		ORG	48500
START
		;  
NEW_LD_EDGE_2	EQU	LOADER+141
NEW_LD_EDGE_1	EQU	LOADER+145
NEV_LD_8_BITS	EQU	LOADER+116

		; 
		LD	BC,LOADER-START
		LD	DE,(23635)
		LD	HL,5
		ADD	HL,DE
		LD	DE,48500
		LDIR
		JP	GOTO 

TEXT		DEFB	22,11,12,#EF,8,"I","N","G"

GOTO		; "LOADING"
		LD	A,2
		CALL	5633
		LD	DE,TEXT
              	LD	BC,8
		CALL	8252

		;    
		LD	HL,#5800
		LD	DE,#5801
		LD	BC,#2FF
		XOR	A
		LD	(HL),A
		LDIR

		;  
		LD	BC,2048
		LD	HL,18432
BOLD		LD	A,(HL)
		SRL	A
		OR	(HL)
		LD	(HL),A
		INC	HL
		DEC	BC
		LD	A,B
		OR	C
		JR	NZ,BOLD

		;  
		LD	B,7
		LD	HL,22892
		LD	DE,1345
CLR		LD	A,(DE)
		AND	71
		LD	(HL),A
		INC	HL
		INC	DE
		DJNZ	CLR


		;  
		LD	HL,#0556
		LD	DE,LOADER
		LD	BC,175
		LDIR

		;  
		XOR	A
		LD	(LOADER+5),A
		LD	(LOADER+17),A

		;  
		LD	A,#AF
		LD	(LOADER+173),A	;XOR A
		LD	A,#D3
		LD	(LOADER+174),A	;OUT
		LD	A,#FE
		LD	(LOADER+175),A	;(#FE),A
		LD	A,#37
		LD	(LOADER+176),A	;SCF
		LD	A,#C9
		LD	(LOADER+177),A	;RET


		;  358     
		LD	A,#CD
		LD	(LOADER+145),A	;CALL DELAY
		LD	HL,DELAY
		LD	(LOADER+146),HL
		XOR	A
		LD	(LOADER+148),A	;NOP
		LD	(LOADER+149),A	;NOP


		;    LD_EDGE_1
		LD	HL,LOADER+145
		LD	(LOADER+23),HL
		LD	(LOADER+60),HL
		LD	(LOADER+70),HL
		LD	(LOADER+142),HL

		;    LD_EDGE_2
		LD	HL,LOADER+141
		LD	(LOADER+38),HL
		LD	(LOADER+45),HL
		LD	(LOADER+117),HL

		;    LD_8_BITS
		LD	HL,LOADER+116
		LD	(LOADER+128),HL


		; 
BLOCK1		LD	HL,BLOCK2	;  ( #053F)
		LD	(LOADER+9),HL
		LD	DE,8447
		LD	IX,32768
		LD	A,255
		SCF
		JP	LOADER

BLOCK2		LD	HL,32768
		LD	(LOADER+9),HL
		LD	DE,7887
		LD	IX,#C000
		LD	A,255
		SCF
		JP	LOADER

DELAY		;    329 
		PUSH	BC		;11
		PUSH	HL		;11
		LD	HL,22892	;10
		LD	C,(HL)		;7
		LD	B,6		;7
C4		INC	HL		;6	
		LD	A,(HL)		;7	32
		DEC	HL		;6
		LD	(HL),A		;7
		INC	HL		;6

		DJNZ	C4		;13,8	(45,40)

		LD	(HL),C		;7
		POP	HL		;10
		POP	BC		;10
		RET			;10

LOADER		;  






