.Z80
BDOS	EQU	5

X	EQU	0E0H
STATUS	EQU	X+4	;STATUS PORT  (IN)
DATA	EQU	X+7	;DATA PORT (BID)
CMD	EQU	X+4	;COMMAND PORT (OUT)

NEXT:	XOR	A
	CALL	SEEK
	LD	C,11
	CALL	BDOS
	OR	A
	RET	NZ
	LD	A,76
	CALL	SEEK
	JR	NEXT

SEEK:	OUT	(DATA),A
	LD	A,12H	;SEEK W/NO VERIFY COMMAND
	OUT	(CMD),A
	LD	B,99H
WAIT:	DJNZ	WAIT
END:	IN	A,(STATUS)
	RRA
	JR	C,END
	RET
	END