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

TEXT_ATTR	EQU	23159

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



GOTO		

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




		;  
		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


		; 
SCREEN		LD	HL,PRINT_LOADING	;  
		LD	(LOADER+9),HL
		LD	DE,6912
		LD	IX,16384
		LD	A,255
		SCF
		JP	LOADER

BLOCK1		LD	HL,BLOCK2
		LD	(LOADER+9),HL
		LD	DE,18336
		LD	IX,25000
		LD	A,255
		SCF
		JP	LOADER

BLOCK2		LD	HL,BLOCK3
		LD	(LOADER+9),HL
		LD	DE,1617
		LD	IX,49152
		LD	A,255
		SCF
		JP	LOADER

BLOCK3		LD	HL,25000
		LD	(LOADER+9),HL
		LD	DE,1406
		LD	IX,51310
		LD	A,255
		SCF
		JP	LOADER

DELAY		;    329 
		PUSH	BC		;11
		PUSH	DE		;11
		PUSH	HL		;11

		LD	HL,TEXT_ATTR+1	;10
		LD	DE,TEXT_ATTR	;10 = 53
		LD	A,(DE)		;7
		LDI			;16
		LDI			;16
		LDI			;16
		LDI			;16
		LDI			;16
		LDI			;16 = 84
		LD	(DE),A		;7	= 118

		LD	HL,TEXT_ATTR+1	;10
		LD	DE,TEXT_ATTR	;10 = 53
		LD	A,(DE)		;7
		LDI			;16
		LDI			;16		;
		LDI			;16
		LDI			;16
		LDI			;16
		LDI			;16 = 84
		LD	(DE),A		;7	= 118

		;OR	(IX+0)		;19 		;
		LD	A,7
		;OUT	(254),A
		OUT	(254),A

		POP	HL		;10
		POP	DE		;10
		POP	BC		;10
		RET			;10 = 40 = 191

PRINT_LOADING
		; "LOADING"
		LD	A,2
		CALL	5633
		LD	DE,TEXT
              	LD	BC,8
		CALL	8252
		; 
		LD	HL,20599
		ld	c,7
sym		push	hl
		ld	b,8
line		ld	a,(hl)
		srl	a
		or	(hl)
		ld	(hl),a
		inc	h
		djnz	line
		pop	hl
		inc	hl
		dec	c
		jr	nz,sym
		;  
		LD	B,7
		LD	HL,TEXT_ATTR
CLR		ld	a,56
		or	b
		LD	(HL),a
		INC	HL
		DJNZ	CLR
		JP	BLOCK1

TEXT		DEFB	22,19,22,#EF,8,"I","N","G"

LOADER		;  






