Harrier Attack: Routine at 29026

29026: Routine at 7162

Used by the routine at 30036.
29026	LD A,(23296)	A=23296.
29029	OR A
29030	JP NZ,25935
29033	LD A,0	Set the border to BLACK .
29035	OUT (254),A	Set the border to BLACK .
29037	LD HL,15872	Copy 200 bytes of data from 15872 (CHARSET) to Font.
29040	LD DE,26848
29043	LD BC,200
29046	LDIR
Draw the sky.
29048	LD HL,0	Writes 45 to all but the botttom row of the playarea attribute space and UDG 0 to each block using XXX.
29051	LD C,45
29053	LD DE,512
29056	CALL XXX
Draw the sea.
29059	LD DE,32	Writes 121 to the bottom row of the playarea attribute space and UDG 9 to each block using XXX.
29062	LD A,9
29064	LD C,121
29066	CALL XXX
29069	LD C,0	Writes 0 to the next row down of the attribute space and UDG 0 to each block using XXX.
29071	XOR A
29072	LD DE,32
29075	CALL XXX
29078	LD DE,29247	DE=29247.
29081	LD C,7	C=7.
29083	LD B,32	B=32.
29085	CALL Process_UDG_Data	Call Process_UDG_Data.
29088	XOR A	A=0.
29089	LD DE,32	DE=0032.
29092	LD C,0	C=0.
29094	CALL XXX	Call XXX.
29097	LD DE,29279	DE=29279.
29100	LD B,32	B=32.
29102	LD C,7	C=7.
29104	CALL Process_UDG_Data	Call Process_UDG_Data.
29107	CALL Draw_Gauge	Call Draw_Gauge.
29110	LD DE,29311	DE=29311.
29113	LD B,32	B=32.
29115	LD C,7	C=7.
29117	CALL Process_UDG_Data	Call Process_UDG_Data.
29120	CALL Draw_Gauge	Call Draw_Gauge.
29123	DI
29124	PUSH IX
29126	LD IX,23200
29130	LD (IX+0),80
29134	LD (IX+31),32
29138	LD (IX+79),32
29142	LD (IX+95),32
29146	POP IX
29148	EI
29149	LD HL,20480
29152	LD B,32
29154	PUSH BC
29155	PUSH HL
29156	CALL 24758
29159	LD A,L
29160	POP HL
29161	LD (HL),A
29162	INC HL
29163	POP BC
29164	DJNZ 29154
29166	LD HL,29210
29169	LD (23338),HL
29172	LD A,1
29174	LD (23296),A
29177	LD HL,(23672)
29180	LD (23349),HL
29183	LD A,2	A=2.
29185	CALL 5633	Call CHAN_OPEN.
29188	LD BC,1543	BC=1543.
29191	CALL 3545	Call CL_SET.
29194	LD A,7	Write 7 to ATTR-T.
29196	LD (23695),A	Write 7 to ATTR-T.
29199	LD BC,(30399)	BC=30399.
29203	CALL 6683	Call OUT_NUM_1.
29206	LD A,"0"	Print "0" to the screen.
29208	RST 16	Print "0" to the screen.
29209	RET	Return.