Listing of file='JOY.MAC;01' on disk='vmedia/joystick_sound-sector.ccvf'
; PATCH FOR JOYSTICKS IN GHOST CRUNCHERS ; NO 'OFF' POSITION IN CENTRE EXTRN JOYSTK EXTRN KEYDIR ;DB DIRECTION IS PUT INTO PUBLIC SCAN SCAN: XRA A CALL JOYSTK MOV A,C SUI 128 JC TRYDWN CHKLR: MOV D,A MOV A,B SUI 128 JC TRYLFT CMP D JNC RIGHT JMP UP TRYLFT: CMA ADI 1 CMP D JNC LEFT JMP UP TRYDWN: CMA ADI 1 MOV D,A MOV A,B SUI 128 JC TRYL2 CMP D JNC RIGHT JMP DOWN TRYL2: CMA ADI 1 CMP D JNC LEFT JMP DOWN UP: MVI A,4 STA KEYDIR RET DOWN: MVI A,2 STA KEYDIR RET LEFT: MVI A,3 STA KEYDIR RET RIGHT: MVI A,1 STA KEYDIR RET END