LOADER ;	LOADER2/TXT	L2
 	ORG	0A100H
 GETTRK	CALL	ADDR
 	LD	A,(INPUT)
 	LD	(TRAK),A
 	CALL	ADDR
 	LD	A,(TRAK)
 	LD	B,A
 	LD	A,(INPUT)
 	LD	(TRAK),A
 	CP	B
 	JR	NZ,GETTRK
 	LD	A,(INPUT+3)
 	CP	2
 	LD	A,(TRAK)
 	RET	Z
 	LD	HL,MGXX
 	LD	DE,3C40H
 	LD	BC,7
 	LDIR
 	HALT
 MGXX	DEFM	'TAMPER!'
 STEPIN	CALL	SELECT
 	LD	A,5BH
 	LD	(37ECH),A
 	CALL	DSKSLO
 STEPWT	CALL	SELECT
 	LD	A,(37ECH)
 	RRCA
 	JR	C,STEPWT
 	RET
 READ	PUSH	DE
 	CALL	GETTRK
 	POP	DE
 	LD	(37EDH),A
 	LD	D,A
 	LD	BC,0A400H
 	CALL	READ1
 	RET	Z
 	LD	BC,0A400H
 READ1	CALL	SELECT
 	LD	(37EEH),DE
 	LD	HL,37ECH
 	LD	(HL),88H
 	PUSH	DE
 	LD	DE,37EFH
 	CALL	DSKSLO
 	JR	RDCK
 RDBZ	RRCA
 	JR	NC,RDDN
 RDCK	LD	A,(HL)
 	BIT	1,A
 	JR	Z,RDBZ
 	LD	A,(DE)
 	LD	(BC),A
 	INC	BC
 RDGO	JR	RDCK
 RDDN	LD	A,(HL)
 	AND	1CH
 	POP	DE
 	RET	Z
 	LD	(HL),0D0H
 	RET
 SELECT	LD	A,(37ECH)
 	BIT	7,A
 	LD	A,1
 	LD	(37E1H),A
 	RET	Z
 	PUSH	BC
 	LD	BC,8000H
 	CALL	DELAY
 	POP	BC
 	RET
 ADDR	CALL	SELECT
 	LD	BC,INPUT
 	LD	HL,37ECH
 	LD	(HL),0C4H
 	CALL	DSKSLO
 	JR	ADCK
 ADBZ	RRCA
 	JR	NC,ADDN
 ADCK	LD	A,(HL)
 	BIT	1,A
 	JR	Z,ADBZ
 	LD	A,(37EFH)
 	LD	(BC),A
 	INC	BC
 	JR	ADCK
 ADDN	LD	A,(HL)
 	LD	(HL),0D0H
 	RET
 INPUT	DEFS	10H
 TRAK	DEFB	0
 DELAY	DEC	C
 	JR	NZ,DELAY
 	DJNZ	DELAY
 	RET
 DSKSLO	EX	(SP),HL
 	EX	(SP),HL
 	EX	(SP),HL
 	EX	(SP),HL
 	RET
 	ORG	0A1F9H
 	DEFB	1
 	DEFB	2
 	DEFB	7
 	DEFB	1DH
 	DEFB	0
 	DEFB	0DH
 	DEFB	4
 	END	402DH
 	DJNZ	DELAY
 	RET
 DSKSLO	EX	(SP),HL
 	EX	(SP),HL
 	EX	(SP),HL
 	EX	(SP),HL
0DH
 	DEFB	4
 	END	402DH
	RET
 INPUT	DEFS	10H
 TRAK	DEFB	0
 DELAY	DEC	BC
 	LD	A,B
 	OR	C
 	RET	Z
 	J