*************************
			*     READ KEYBOARD	*
			*			*
			* Code: Lynx / Appendix	*
			*			*
			*************************

	moveq	#0,d0
	move.b	$bfec01,d0
	not.b	d0
	lsr.b	#1,d0
	bcs.s	NoKey
	move.b	d0,Key

NoKey
	bset	#6,$bfee01
	sf.b	$bfec01
	moveq	#4-1,d0
Ramk1	move.b	$dff006,d1
Ramk2	cmp.b	$dff006,d1
	beq.s	Ramk2
	dbf	d0,RamkL1
	bclr	#6,$bfee01
	rts

Key	dc.b	0

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