BOOT/T 	ORG	4200H
 ENTRY	DI
 	LD	SP,41F0H
 	LD	HL,15
 	LD	BC,6D00H
 	LD	DE,0005H
 READ	PUSH	HL
 	CALL	READ1
 	JP	NZ,ERROR
 	INC	E
 	LD	A,E
 	SUB	0AH
 	JR	NZ,CONT
 	LD	E,A
 	INC	D
 CONT	POP	HL
 	DEC	HL
 	LD	A,H
 	OR	L
 	JP	Z,6D00H
 	JR	READ
 READ1	PUSH	BC
 	CALL	R1
 	POP	HL
 	RET	Z
 	LD	A,2
 	LD	(37EDH),A
 	LD	B,H
 	LD	C,L
 R1	CALL	SELECT
 	LD	(37EEH),DE
 	LD	HL,37ECH
 	LD	(HL),1BH
 	PUSH	AF
 	POP	AF
 	PUSH	AF
 	POP	AF
 SKWT	CALL	SELECT
 	LD	A,(HL)
 	RRCA
 	JR	C,SKWT
 	LD	(HL),88H
 	PUSH	DE
 	LD	DE,37EFH
 	PUSH	BC
 	POP	BC
 	PUSH	BC
 	POP	BC
 	JR	RDCO
 RDBZ	RRCA
 	JR	NC,RDDN
 RDCK	LD	A,(HL)
 	BIT	1,A
 	JR	Z,RDBZ
 	LD	A,(DE)
 	LD	(BC),A
 	INC	BC
 RDCO	JR	RDCK
 RDDN	LD	A,(HL)
 	AND	1CH
 	POP	DE
 	RET	Z
 	LD	(HL),0D0H
 	RET
 ERROR	LD	HL,MESSAG
 PRINT	LD	A,(HL)
 	INC	HL
 	OR	A
 	JR	Z,WAIT
 	CALL	33H
 	JR	PRINT
 WAIT	CALL	40H
 	HALT
 SELECT	LD	A,(37ECH)
 	BIT	7,A
 	LD	A,1
 	LD	(37E1H),A
 	RET	Z
 	PUSH	BC
 	LD	BC,8000H
 	CALL	60H
 	POP	BC
 	RET
 MESSAG	DEFW	1F1CH
 	DEFM	'DISK ERROR !!!'
 	DEFB	0
 	END	ENTRY
 	HALT
 SELECT	LD	A,(37ECH)
 	BIT	7,A
 	LD	A,1
 	LD	(37E1H),A
