ChkJoy:				;Read joy pos.d0=port nr
	lea Joy1F(PC),a0
	lea $dff00c,a1
	moveq #7,d1
	tst.w d0
	beq.s .NoAdd
	addq.w #6,a0		;ptr to start of joy2-tbl
	moveq #6,d1
	subq.w #2,a1
.NoAdd:	btst d1,$bfe001
	bne.s .noF
	move.w #-1,(a0)
.noF:	move.w (a1),d1
	btst #1,d1
	beq.s .noR
.R:	move.w #1,2(a0)
	bra.s .UD
.noR:	btst #9,d1
	beq.s .UD
.L:	move.w #-1,2(a0)
.UD:	move.w d1,d0
	lsr.w #1,d0
	eor.w d1,d0
	btst #0,d0
	beq.s .noD
.D:	move.w #1,4(a0)
	bra.s .End
.noD:	btst #8,d0
	beq.s .End
.U:	move.w #-1,4(a0)
.End:	RTS

Joy1F:	dc.w 0
Joy1dx:	dc.w 0
Joy1dy:	dc.w 0
Joy2F:	dc.w 0
Joy2dx:	dc.w 0
Joy2dy:	dc.w 0