readkey:	macro		;reads a key and returns it into D0

	lea keybuff(a5),a0 ;-If error, insert keybuff into list.
	move.l a0,d2
	move.l #2,d3
	move.l conbase(a5),d1
	move.l dosbase(a5),a6
	jsr -42(a6)
	move.b keybuff(a5),d0
	endm