Routines
Prev: 56293 Up: Map Next: 56514
56395: Routine at DC4B
Used by the routines at 61025 and 62526.
56395 LD A,(59230) A=*59230.
56398 DEC A Decrease A by one.
56399 LD (59232),A Write A to *59232.
56402 LD A,(59233) B=*59233.
56405 LD B,A
56406 PUSH BC Stash BC on the stack.
56407 LD A,(59229) A=*59229.
56410 ADD A,2 A+=2.
56412 LD (59231),A Write A to *59231.
56415 LD B,4 B=4.
56417 PUSH BC Stash BC on the stack.
56418 LD A,(59231) B=*59231.
56421 LD B,A
56422 LD A,(59232) C=*59232.
56425 LD C,A
56426 CALL Calculate_ScreenBlockAddress Call Calculate_ScreenBlockAddress.
56429 PUSH HL Stash HL on the stack.
56430 INC B Increment B by one.
56431 CALL Calculate_ScreenBlockAddress Call Calculate_ScreenBlockAddress.
56434 PUSH HL Stash HL on the stack.
56435 POP DE Restore DE and HL from the stack.
56436 POP HL
56437 LD A,8 A=8.
56439 LD BC,4 BC=0004.
56442 PUSH HL Stash HL, HL and DE on the stack.
56443 PUSH HL
56444 PUSH DE
56445 LDIR LDIR.
56447 DEC HL Decrease HL by one.
56448 PUSH HL Stash HL on the stack.
56449 LD (HL),C Write C to *HL.
56450 POP DE Restore DE from the stack.
56451 DEC DE Decrease DE by one.
56452 LD BC,3 BC=0003.
56455 LDDR LDDR.
56457 POP DE Restore DE and HL from the stack.
56458 POP HL
56459 INC D Increment D by one.
56460 INC H Increment H by one.
56461 LD BC,4 BC=0004.
56464 DEC A Decrease A by one.
56465 JP NZ,56443 Jump to 56443 if A is not zero.
56468 POP HL Restore HL from the stack.
56469 CALL Calculate_AttributeAddress Call Calculate_AttributeAddress.
56472 LD HL,32 HL=0032.
56475 ADD HL,DE HL+=DE.
56476 EX DE,HL Exchange the DE and HL registers.
56477 LD BC,4 BC=0004.
56480 LDIR LDIR.
56482 LD BC,3 BC=0003.
56485 LD A,71 A=71.
56487 DEC HL Decrease HL by one.
56488 LD (HL),A Write A to *HL.
56489 PUSH HL Stash HL on the stack.
56490 POP DE Restore DE from the stack.
56491 DEC DE Decrease DE by one.
56492 LDDR LDDR.
56494 LD HL,59231 HL=59231.
56497 DEC (HL) Decrease *HL by one.
56498 POP BC Restore BC from the stack.
56499 DJNZ 56417 Decrease counter by one and loop back to 56417 until counter is zero.
56501 POP BC Restore BC from the stack.
56502 PUSH BC Stash BC on the stack.
56503 CALL 56658 Call 56658.
56506 LD HL,59229 HL=59229.
56509 INC (HL) Increment *HL by one.
56510 POP BC Restore BC from the stack.
56511 DJNZ 56406 Decrease counter by one and loop back to 56406 until counter is zero.
56513 RET Return.
Prev: 56293 Up: Map Next: 56514