Harrier Attack: Routine at 7162

7162: Routine at 7162

Used by the routine at 7554.
7162	LD A,($5B00)	A=5B00.
7165	OR A
7166	JP NZ,$654F
7169	LD A,$00	Set the border to BLACK .
716B	OUT ($FE),A	Set the border to BLACK .
716D	LD HL,$3E00	Copy C8 bytes of data from 3E00 (CHARSET) to Font.
7170	LD DE,$68E0
7173	LD BC,$00C8
7176	LDIR
Draw the sky.
7178	LD HL,$0000	Writes 2D to all but the botttom row of the playarea attribute space and UDG 00 to each block using XXX.
717B	LD C,$2D
717D	LD DE,$0200
7180	CALL XXX
Draw the sea.
7183	LD DE,$0020	Writes 79 to the bottom row of the playarea attribute space and UDG 09 to each block using XXX.
7186	LD A,$09
7188	LD C,$79
718A	CALL XXX
718D	LD C,$00	Writes 00 to the next row down of the attribute space and UDG 00 to each block using XXX.
718F	XOR A
7190	LD DE,$0020
7193	CALL XXX
7196	LD DE,$723F	DE=Messaging_Banner.
7199	LD C,$07	C=07.
719B	LD B,$20	B=20.
719D	CALL Process_UDG_Data	Call Process_UDG_Data.
71A0	XOR A	A=00.
71A1	LD DE,$0020	DE=0020.
71A4	LD C,$00	C=00.
71A6	CALL XXX	Call XXX.
71A9	LD DE,$725F	DE=Messaging_Dashboard.
71AC	LD B,$20	B=20.
71AE	LD C,$07	C=07.
71B0	CALL Process_UDG_Data	Call Process_UDG_Data.
71B3	CALL Draw_Gauge	Call Draw_Gauge.
71B6	LD DE,$727F	DE=Messaging_Artillery.
71B9	LD B,$20	B=20.
71BB	LD C,$07	C=07.
71BD	CALL Process_UDG_Data	Call Process_UDG_Data.
71C0	CALL Draw_Gauge	Call Draw_Gauge.
71C3	DI
71C4	PUSH IX
71C6	LD IX,$5AA0
71CA	LD (IX+$00),$50
71CE	LD (IX+$1F),$20
71D2	LD (IX+$4F),$20
71D6	LD (IX+$5F),$20
71DA	POP IX
71DC	EI
71DD	LD HL,$5000
71E0	LD B,$20
71E2	PUSH BC
71E3	PUSH HL
71E4	CALL $60B6
71E7	LD A,L
71E8	POP HL
71E9	LD (HL),A
71EA	INC HL
71EB	POP BC
71EC	DJNZ $71E2
71EE	LD HL,$721A
71F1	LD ($5B2A),HL
71F4	LD A,$01
71F6	LD ($5B00),A
71F9	LD HL,($5C78)
71FC	LD ($5B35),HL
71FF	LD A,$02	A=02.
7201	CALL $1601	Call CHAN_OPEN.
7204	LD BC,$0607	BC=0607.
7207	CALL $0DD9	Call CL_SET.
720A	LD A,$07	Write 07 to ATTR-T.
720C	LD ($5C8F),A	Write 07 to ATTR-T.
720F	LD BC,($76BF)	BC=76BF.
7213	CALL $1A1B	Call OUT_NUM_1.
7216	LD A,"0"	Print "0" to the screen.
7218	RST $10	Print "0" to the screen.
7219	RET	Return.