Prev: 9175 Up: Map Next: 91CC
91A1: Erase planet
Used by the routine at display_planet.
erase_planet 91A1 CALL clear_row_7 Clear row 7
91A4 LD HL,buffer Clear 16 bytes in RAM
91A7 LD DE,$71A4 ...
91AA LD BC,$000F ...
91AD LD (HL),$00 ...
91AF LDIR ...
91B1 LD HL,buffer Use cleared bytes as planet data
This entry point is used by the routine at display_planet.
display_planet_name_table 91B4 LD DE,$194E Address in name table
91B7 LD C,$04 4 rows
erase_planet_0 91B9 LD B,$04 4 columns
erase_planet_1 91BB LD A,(HL) Get name to write
91BC RST $10 Write VDP byte
91BD INC DE Next destination
91BE INC HL Next source
91BF DJNZ erase_planet_1 Loop for 4 columns
91C1 PUSH HL Save source
91C2 LD HL,$001C 32 - 4
91C5 ADD HL,DE One row down
91C6 EX DE,HL To DE
91C7 POP HL Restore source
91C8 DEC C Row counter
91C9 JR NZ,erase_planet_0 Loop for 4 rows
91CB RET
Prev: 9175 Up: Map Next: 91CC