0100 ; SSI JOYSTICK DRIVER (6-WAY)õ0110 ; BY RICH MOOREõ0120 ;(c)1987, ANTIC PUBLISHINGõ0130 ;õ0140 ; SYSTEM EQUATESõ0150 SETVBV = 58460õ0160 XITVBV = 58466õ0170 STICK0 = 632õ0180 INITAD = 738õ0190 CH  =   764õ0200 ;õ0210 ; DOS 2.0 EQUATESõ0220 XRENAME = $0BD9õ0230 ERDVDC = $12BFõ0240 ;õ0250     *=  XRENAMEõ0260 ;õ0270     JMP ERDVDCõ0280 INSTALLõ0290     LDY # <VBDõ0300     LDX # >VBDõ0310     LDA #7õ0320     JMP SETVBVõ0330 ;õ0340 VBDõ0350     LDA STICK0õ0360     AND #15õ0370     CMP #15õ0380     BEQ DONEõ0390 ;õ0400     LDX #5      ;Match stickõ0410 ;                positionõ0420 L1  ;           (N/NE/SE/S/SW/NW)õ0430 ;                to aõ0440     LDY KEY,X   ;keyboard codeõ0450     CMP POS,Xõ0460     BEQ DELAYõ0470     DEX õ0480     BPL L1õ0490     BMI DONE    ;Exit if no matchõ0500 ;õ0510 DELAYõ0520     DEC TIMERõ0530     BPL DONEõ0540     LDX #3õ0550     STX TIMERõ0560 ;õ0570 PRESSõ0580     STY CH      ;Enter the codeõ0590 DONEõ0600     JMP XITVBV  ;and exitõ0610 ;õ0620 TIMERõ0630     .BYTE 3õ0640 ;õ0650 KEYõ0660     .BYTE 31    ;"1"õ0670     .BYTE 30    ;"2"õ0680     .BYTE 26    ;"3"õ0690     .BYTE 24    ;"4"õ0700     .BYTE 29    ;"5"õ0710     .BYTE 27    ;"6"õ0720 POSõ0730     .BYTE 14    ;NORTHõ0740     .BYTE 6     ;NEõ0750     .BYTE 5     ;SEõ0760     .BYTE 13    ;SOUTHõ0770     .BYTE 9     ;SWõ0780     .BYTE 10    ;NWõ0790 ;õ0800     *=  INITADõ0810     .WORD INSTALLõ0820     .END õ