Routines
Prev: 7125 Up: Map Next: 721A
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
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=723F.
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=725F.
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=727F.
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
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
7219 RET Return.
Prev: 7125 Up: Map Next: 721A