Prev: 56110 Up: Map Next: 56293
56190: Routine at DB7E
Used by the routines at 61025 and 62526.
56190 LD A,(59229) A=*59229.
56193 DEC A Decrease A by one.
56194 LD (59231),A Write A to *59231.
56197 LD A,(59233) B=*59233.
56200 LD B,A
56201 PUSH BC Stash BC on the stack.
56202 LD A,(59230) A=*59230.
56205 ADD A,2 A+=2.
56207 LD (59232),A Write A to *59232.
56210 LD B,4 B=4.
56212 PUSH BC Stash BC on the stack.
56213 LD A,(59231) B=*59231.
56216 LD B,A
56217 LD A,(59232) C=*59232.
56220 LD C,A
56221 CALL Calculate_ScreenBlockAddress Call Calculate_ScreenBlockAddress.
56224 LD A,8 A=8.
56226 LD BC,4 BC=0004.
56229 PUSH HL Stash HL on the stack.
56230 POP DE Restore DE from the stack.
56231 INC DE Increment DE by one.
56232 PUSH HL Stash HL and HL on the stack.
56233 PUSH HL
56234 LDDR LDDR.
56236 INC HL Increment HL by one.
56237 LD (HL),C Write C to *HL.
56238 POP HL Restore HL from the stack.
56239 INC H Increment H by one.
56240 PUSH HL Stash HL on the stack.
56241 POP DE Restore DE from the stack.
56242 INC DE Increment DE by one.
56243 LD BC,4 BC=0004.
56246 DEC A Decrease A by one.
56247 JP NZ,56233 Jump to 56233 if A is not zero.
56250 POP HL Restore HL from the stack.
56251 CALL Calculate_AttributeAddress Call Calculate_AttributeAddress.
56254 PUSH DE Stash DE on the stack.
56255 POP HL Restore HL from the stack.
56256 INC DE Increment DE by one.
56257 LD BC,5 BC=0005.
56260 LDDR LDDR.
56262 LD A,71 A=71.
56264 INC DE Increment DE by one.
56265 LD (DE),A Write A to *DE.
56266 LD HL,59231 HL=59231.
56269 INC (HL) Increment *HL by one.
56270 POP BC Restore BC from the stack.
56271 DJNZ 56212 Decrease counter by one and loop back to 56212 until counter is zero.
56273 POP BC Restore BC from the stack.
56274 PUSH BC Stash BC on the stack.
56275 CALL 56658 Call 56658.
56278 LD A,(59229) A=*59229.
56281 DEC A Decrease A by one.
56282 LD (59231),A Write A to *59231.
56285 LD HL,59230 HL=59230.
56288 INC (HL) Increment *HL by one.
56289 POP BC Restore BC from the stack.
56290 DJNZ 56201 Decrease counter by one and loop back to 56201 until counter is zero.
56292 RET Return.
Prev: 56110 Up: Map Next: 56293