Prev: 761D Up: Map Next: 76E2
766D: Routine at 766D
Used by the routine at LevelNew.
766D LD B,$04
766F LD HL,$6000
7672 PUSH BC
7673 LD A,(HL)
7674 AND A
7675 JP Z,$76D3
7678 INC HL
7679 LD C,(HL)
767A INC HL
767B INC HL
767C LD A,(HL)
767D AND $FC
767F NEG
7681 ADD A,C
7682 ADD A,$10
7684 PUSH HL
7685 DEC HL
7686 LD H,(HL)
7687 LD L,A
7688 CALL ScreenAddress
768B LD DE,$76E2
768E CALL $76DB
7691 EX (SP),HL
7692 LD A,(HL)
7693 EX (SP),HL
7694 SRL A
7696 SRL A
7698 SUB $04
769A LD B,A
769B LD DE,$76EA
769E CALL $76DB
76A1 DJNZ $769E Decrease B by one, and loop back to 769E until zero
76A3 LD DE,$76F2
76A6 CALL $76DB
76A9 POP HL
76AA LD A,(HL)
76AB AND $FC
76AD NEG
76AF ADD A,C
76B0 ADD A,$10
76B2 PUSH HL
76B3 DEC HL
76B4 LD B,(HL)
76B5 DEC HL
76B6 DEC HL
76B7 LD C,(HL)
76B8 LD H,B
76B9 LD L,A
76BA PUSH BC
76BB CALL AttributeAddress
76BE POP BC
76BF EX (SP),HL
76C0 LD A,(HL)
76C1 EX (SP),HL
76C2 SRL A
76C4 SRL A
76C6 SUB $02
76C8 LD B,A
76C9 LD A,C
76CA LD (HL),A
76CB INC HL
76CC DJNZ $76CA Decrease B by one, and loop back to 76CA until zero
76CE POP HL
76CF INC HL
76D0 POP BC
76D1 JR $76D8
76D3 POP BC
76D4 INC HL
76D5 INC HL
76D6 INC HL
76D7 INC HL
76D8 DJNZ $7672 Decrease B by one, and loop back to 7672 until zero
76DA RET
76DB PUSH BC
76DC PUSH DE
76DD LD B,$08
76DF JP PrintScreen_Loop
Prev: 761D Up: Map Next: 76E2