Compucolor.org – Virtual Media

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