	lea	tbdr,a1
	move.b	#0,tbcr
	move.b	#200,(a1)
	move.b	#8,tbcr
	rept	4
	nop
	endr
	move.b	(a1),d0
wait:
	cmp.b	(a1),d0
	beq	wait
