Routines
Prev: 25950 Up: Map Next: 26136
26093: Clear Rows Under Picture
Used by the routines at DescribeLocation and WaitForKey.
Blanks the pixel rows down to the bottom of the text window. Pictures on start at row 12, under the illustration. Pictures off start at row 0.
ClearLowerRows 26093 LD A,(26326) Pictures off start clearing at row 0.
26096 OR A
26097 JR Z,ClearLower_Adjust
26099 LD A,12 Pictures on start at row 12.
ClearLower_Adjust 26101 DEC A Pictures off arrive here with zero, so this wraps to 255.
ClearLower_Row 26102 INC A The increment restores row 0, or restores 12 when pictures are on.
26103 LD HL,23447 Stop when this row reaches the bottom row.
26106 LD B,(HL)
26107 CP B
26108 RET Z
26109 CALL RowAddress Address of this character row.
26112 PUSH DE
26113 POP HL
26114 INC DE Eight pixel rows, filled from the next byte.
26115 LD B,8
ClearLower_Pixel 26117 PUSH HL Save the row.
26118 PUSH DE
26119 PUSH BC
26120 LD BC,31 Blank the rest of the pixel row.
26123 LD (HL),0
26125 LDIR
26127 POP BC Restore the row from the stack.
26128 POP DE
26129 POP HL
26130 INC D The next pixel row.
26131 INC H
26132 DJNZ ClearLower_Pixel All eight.
26134 JR ClearLower_Row The next character row.
Prev: 25950 Up: Map Next: 26136