BOOT2/ ;	BOOT2/TXT
 	ORG	4200H
 	DI
 	LD	SP,41F0H
 	LD	BC,4600H
 	CALL	SELECT
 	LD	DE,1
 	LD	(37EEH),DE
 	LD	HL,37ECH
 	LD	(HL),1BH
 	CALL	DSKSLO
 WAIT	CALL	SELECT
 	LD	A,(HL)
 	RRCA
 	JR	C,WAIT
 	LD	(HL),88H
 	PUSH	DE
 	LD	DE,37EFH
 	CALL	DSKSLO
 	JR	WRCO
 WRCK	RRCA
 	JR	NC,WRDN
 WRBZ	LD	A,(HL)
 	BIT	1,A
 	JR	Z,WRCK
 	LD	A,(DE)
 	LD	(BC),A
 	INC	BC
 WRCO	JR	WRBZ
 WRDN	LD	A,(HL)
 	LD	(HL),0D0H
 	JP	4700H
 DSKSLO	EX	(SP),HL
 	EX	(SP),HL
 	EX	(SP),HL
 	EX	(SP),HL
 	RET
 SELECT	LD	A,(37ECH)
 	BIT	7,A
 	LD	A,1
 	LD	(37E1H),A
 	RET	Z
 	PUSH	BC
 	LD	BC,8000H
 SLO	DEC	BC
 	LD	A,B
 	OR	C
 	JR	NZ,SLO
 	POP	BC
 	RET
 	END
(SP),HL
 	EX	(SP),HL
 	RET
 SELECT	LD	A,(37ECH)
 	BIT	7,A
 	LD	A,1
 	LD	(37E1H),A
 	RET	Z
 	PUSH	BC
 	