	lea	$BFEC01,a0
	move.b	(a0),d0
WaitKey	cmp.b	(a0),d0
	beq.s	WaitKey
	rts
	
