LOADER ;	LOADER3/TXT	L3
 	ORG	0A300H
 STEPIN	EQU	0A135H
 READ	EQU	0A14AH
 ;	LOADER3/TXT	LOADER3/CIM
 ENTRY	DI
 	LD	SP,0A7F0H
 	CALL	CHECK
 	CALL	STEPIN
 	LD	L,96
 	LD	E,0
 	LD	IX,4000H
 LOADLP	PUSH	HL
 	CALL	READ
 	POP	HL
 	JP	NZ,ERROR
 	CALL	MOVE
 	DEC	L
 	JR	Z,GOGO
 	INC	E
 	LD	A,E
 	SUB	5
 	JR	NZ,LOADLP
 	LD	E,A
 	PUSH	DE
 	CALL	STEPIN
 	POP	DE
 	JR	LOADLP
 GOGO	LD	A,(0BFFFH)
 	LD	(4030H),A
 	JP	4200H
 BAD1	DEFM	'BAD LOAD'
 ERROR	LD	HL,BAD1
 	LD	DE,3C40H
 	LD	BC,8
 	LDIR
 	CALL	DELAY
 	CALL	DELAY
 	CALL	DELAY
 	CALL	DELAY
 	CALL	DELAY
 	HALT
 DELAY	DEC	C
 	JR	NZ,DELAY
 	DJNZ	DELAY
 	RET
 MOVE	PUSH	HL
 	PUSH	DE
 	LD	HL,0A500H
 	LD	B,0
 MOVELP	LD	A,(HL)
 	LD	(IX),A
 	INC	HL
 	INC	IX
 	DJNZ	MOVELP
 	POP	DE
 	POP	HL
 	RET
 CHECK	LD	HL,4109H
 	LD	BC,0700H
 CHK	LD	A,(HL)
 	ADD	A,C
 	LD	C,A
 	INC	HL
 	DJNZ	CHK
 	CP	56
 	RET	Z
 	LD	HL,TAMP
 	LD	DE,3C40H
 	LD	BC,7
 	LDIR
 	HALT
 TAMP	DEFM	'TAMPER!'
 	END	402DH
LD	HL,4109H
 	LD	BC,0700H
 CHK	LD	A,(HL)
 	ADD	A,C
 	LD	C,A
 	INC	HL
 	DJNZ	CHK
 	CP	56
 	RET	Z
 	LD	HL,TAMP
 	LD	DE,3C40H
 	LD	BC,7
 	LDIR
 	HALT
 TAMP	DEFM	'TAMPER!'
 	E
 	I