*************************
			*	JOY READ	*
			*			*
			* Code: Lynx / Appendix	*
			*************************


	lea	$dff000,a6

LMB	move.w	$c(a6),d0	; JOY1DAT, dane myszy/joysticka z port #1

	move.w	d0,d1
	add.w	d1,d1

	btst	#1,d0
	bne.s	right

	btst	#9,d0
	bne.s	left

	eor.w	d1,d0

	btst	#1,d0
	bne.s	down
	btst	#9,d0
	bne.s	up

	btst	#7,$bfe001
	beq.s	fire

exit
	btst	#6,$bfe001
	bne.s	LMB

	rts

up	move.w	#$0ff,$dff180
	bra.s	exit

down	move.w	#$f0f,$dff180
	bra.s	exit

right	move.w	#$00f,$dff180
	bra.s	exit

left	move.w	#$ff0,$dff180
	bra.s	exit

fire	move.w	#$fff,$dff180
	bra.s	exit

	blk.w	37,0

Tab_Relo_4
	dc.l	0

;If you have any questions or any sugestions then you may call to me at:
;
;			amigos@safona.mech.tuniv.szczecin.pl