Joystick-Adapter

Joystick am PC/M

1 Überblick

2 Hardware

Bild 1: Stromlaufplan des Joystick-Adapters PCMJOYS

• PIO D59 - Port A: Adresse 0x90: Joystick I

• PIO D59 - Port B: Adresse 0x91: Joystick II
  
  

• PA0/PB0: links

• PA1/PB1: rechts

• PA2/PB2: herunter

• PA3/PB3: hoch

• PA4/PB4: Feuer

• PA5/PB5: Selektierung Joystick angeschlossen

• PA6/PB6: nicht belegt

• PA7/PB7: nicht belegt

• S1: Joystick I

• S2: Joystick II

• Joystick Stecker: 1 - hoch

• Joystick Stecker: 2 - herunter

• Joystick Stecker: 3 - links

• Joystick Stecker: 4 - rechts

• Joystick Stecker: 5 - nicht belegt

• Joystick Stecker: 6 - Feuer

• Joystick Stecker: 7 - Versorgungsspannung +5 V

• Joystick Stecker: 8 - Masse GND

• Joystick Stecker: 9 - nicht belegt

3 Software

4 Aufbau

Bild 2: Leiterseite der Joystick-Adapterplatine		Bild 3: Bestückungsplan der Joystick-Adapterplatine

PCMJOYS.DRV

{PCMJOYS.DRV - Treiber fuer den Anschlusz
von 2 Stueck Joystick QUICKJOY II an den
PC/M - Computer
(C) by Herbert Mathes  5/90  Hohenstein-Er.}

{$U+}
const JoysDataA    = $90;
      JoysDataB    = $91;
      JoysControlA = $92;
      JoysControlB = $93;
      ActJoyA : boolean = false;
      ActJoyB : boolean = false;

var   Left,Right,Down,Up,LeftDown,LeftUp
      RightDown,RightUp : byte;
      Nothings,Fire : byte;

procedure InitJoys(var n,l,r,d,u,ld,lu,
                   rd,ru,f:byte);
begin
  ActJoyA := false;
  ActJoyB := false;
  port[JoysControlA):=$00;
  port[JoysControlA):=$CF;
  port[JoysControlA):=$FF;
  port[JoysControlA):=$03;
  port[JoysControlB):=$00;
  port[JoysControlB):=$CF;
  port[JoysControlB):=$FF;
  port[JoysControlB):=$03;
  Left:=l; Right:=r; Down:=d; Up:=u;
  LeftDown:=ld; LeftUp:=lu;
  RightDown:=rd; RightUp:=ru;
  Nothings:=n; Fire:=f;
  if (port[JoysDataA] and $20)=0 then
                       ActJoyA:=true;
  if (port[JoysDataB] and $20)=0 then
                       ActJoyB:=true;
end;

procedure ReadJoys(var JoyA,JoyB:byte);
var WertJoyA,WertJoyB : byte
begin
  if ActJoyA then
  begin
    JoyA:=Nothing;
    if (port[JoysDataA] and $10)=$00 then
    JoyA:=Fire else
    begin
      WertJoyA:=port[JoysDataA] and $0F;
      case of WertJoyA of
        $0E : JoyA:=Left;
        $0D : JoyA:=Right;
        $0B : JoyA:=Down;
        $07 : JoyA:=Up;
        $0A : JoyA:=LeftDown;
        $09 : JoyA:=RightDown;
        $06 : JoyA:=LeftUp;
        $05 : JoyA:=RightUp;
      end;
    end;
  end;
  if ActJoyB then
  begin
    JoyA:=Nothing;
    if (port[JoysDataB] and $10)=$00 then
    JoyB:=Fire else
    begin
      WertJoyB:=port[JoysDataB] and $0F;
      case of WertJoyB of
        $0E : JoyB:=Left;
        $0D : JoyB:=Right;
        $0B : JoyB:=Down;
        $07 : JoyB:=Up;
        $0A : JoyB:=LeftDown;
        $09 : JoyB:=RightDown;
        $06 : JoyB:=LeftUp;
        $05 : JoyB:=RightUp;
      end;
    end;
  end;
end;

PCMJOYS.DEM

{DEMOPROGRAMM fuer PCMJOYS.DRV-Treiber}
program PCMJOYSDEMO;
{$I PCMJOYS.DRV}
var a1,a2,a1merk,a2merk : byte;
    antw : char;
    i : byte;
begin
  a1:=0;
  a2:=0;
  a1merk:=0;
  a2merk:=0;
  ClrScr;
  Writeln(char($83));
  GotoXY(1,1);
  Writeln('PCMJOYS - EIN TREIBER FUER JOYSTICK-ANSCHLUSZ AM PC/M');
  GotoXY(1,15);
  Writeln('(C) by Herber Mathes  5/90  Hohenstein-Er.');
  GotoXY(1,3);
  Writeln('Dies ist ein Demo/TestProgramm fuer den Anschlusz von');
  Writeln('2 Stueck Joystick vom Typ Quickjoy II (und Kompatible)');
  Writeln('an den PC/M-Computer. Notwendig sind der PC/M Joystick');
  Writeln('Adapter PCMJOYS sowie der Softwaretreiber PCMJOYS.DRV.');
  Writeln('PCMJOYS.DRV liegt als Include File vor und kann muehelos');
  Writeln('in jedes Turbo Pascal Programm Version 3 eingebunden');
  Writeln('werden. Realisiert wird der Anschlusz ueber die User PIO');
  Writeln('auf der Systemplatine (Port 90 H). Port A wird dem Joystick I');
  Writeln('und Port B dem Joystick II zugeordnet.');
  Writeln;
  Write('                                               WEITER MIT TASTE');
  Read(kbd,antw);
  for i:=3 to 14 do
  begin
    GotoXY(1,i); ClrEOL;
  end;
  GotoXY(1,3);
  Writeln('Ueber den Prozeduraufruf InitJoys wird der Treiber aktiviert,');
  Writeln('als Optionen sind anzugeben die Wertigkeiten der einzelnen');
  Writeln('Joystickzeichen (Byte) in folgender Reihenfolge:');
  Writeln('Nothing (Normalstellung) -Left - Right - Down - Up -');
  Writeln('LeftDown - LeftUp - RightDown - RightUp - Fire.');
  Writeln('Die Prozedur ReadJoysbelegt zwei frei waehlbare Variablen');
  Writeln('mit der Wertigkeit des entsprechenden Joysticks. Die erste');
  Writeln('Variable entspricht Joystick I, die zweite Joystick II.');
  Writeln('Die Variablen ActJoyA und ActJoyB geben Auskunft, ob ein');
  Writeln('Joystick angeschlossen ist, entsprechend der Stellung der');
  Writeln('Schalter auf dem Adapter.                    WEITER MIT TASTE');
  Read(kbd,antw);
  for i:=3 to 14 do
  begin
    GotoXY(1,i); ClrEOL;
  end;
  GotoXY(1,13);
  Writeln('Das Programm kann mittels believer Taste abgebrochen werden.');
  GotoXY(1,3);
  InitJoys(1,2,3,4,5,6,7,8,9,10);
  Writeln('Treiber PCMJOYS.DRC geladen und initialisiert');
  if ActJoyA then
  begin
    GotoXY(1,5);
    Writeln('Joystick I aktiv');
  end;
  if ActJoyB then
  begin
    GotoXY(30,5);
    Writeln('Joystick II aktiv');
  end;
  if (not ActJoyA) and (not ActJoyB) then
  begin
    GotoXY(15,5);
    Writeln('Kein Joystick aktiv');
  end;
  repeat
    ReadJoys(a1,a2);
    if ActJoyA then
      if a1<>a1merk then
      begin
        GotoXY(1,7);
        case a1 of
          1 : Writeln('Nothings        ');
          2 : Writeln('Left            ');
          3 : Writeln('Right           ');
          4 : Writeln('Down            ');
          5 : Writeln('Up              ');
          6 : Writeln('LeftDown        ');
          7 : Writeln('LeftUp          ');
          8 : Writeln('RightDown       ');
          9 : Writeln('RightUp         ');
          10: Writeln('           FIRE ');
        end;
        a1merk:=a1;
      end;
    if ActJoyB then
      if a2<>a2merk then
      begin
        GotoXY(30,7);
        case a2 of
          1 : Writeln('Nothings        ');
          2 : Writeln('Left            ');
          3 : Writeln('Right           ');
          4 : Writeln('Down            ');
          5 : Writeln('Up              ');
          6 : Writeln('LeftDown        ');
          7 : Writeln('LeftUp          ');
          8 : Writeln('RightDown       ');
          9 : Writeln('RightUp         ');
          10: Writeln('           FIRE ');
        end;
        a2merk:=a2;
      end;
  until keypressed;
  Write(char($82));
  ClrScr;
end.

PCM_PCMJOYS_SW.zip

PCMJOYS Triber und DEMO/Test Programm
zip, 2.3K, 11/26/05, 954 downloads

PCMJOYS Triber und Demo/Test Programm

hochauflösende Abbildungen

PCM_ABB_BA_PCMJOYS.zip

alle Bilder
zip, 918.8K, 11/26/05, 583 downloads

hochaufl

Scans vom Original in niedriger Qualität

PCM_JOYSTICK_FA041991_LQ.pdf

Teil Joystick: FA-4/1991 S.202-203
pdf, 141.3K, 11/26/05, 891 downloads

PC/M Bauanleitung Teil PCMJOYS

Scans vom Original in hoher Qualität

PCM_JOYSTICK_FA041991_HQ.pdf

Teil Joystick: FA-4/1991 S.202-203
pdf, 2.7M, 11/26/05, 709 downloads

PC/M Bauanleitung Teil PCMJOYS: FA-4/1991 S.202-203