Prev: 6600 Up: Map Next: 6800
6700: Scroll Screen Left
Used by the routine at Door_Prep_01.
6700 LD B,$0B B=0B.
6702 PUSH BC Push the counter onto the stack.
6703 CALL $6710 Call 6710.
6706 CALL $6747 Call 6747.
6709 CALL $6747 Call 6747 again.
670C POP BC Restore the counter off the stack.
670D DJNZ $6702 Decrease counter by one and loop back to 6702 until counter is zero.
670F RET Return.
6710 LD IX,$5B00
6714 LD HL,$406A
6717 LD B,$0D
6719 CALL $677E
671C LD HL,$4061
671F LD DE,$4060
6722 LD IX,$5B00
6726 LD B,$0D
6728 CALL $67BA
672B LD HL,$586A
672E LD IX,$5B00
6732 LD B,$0D
6734 CALL $679B
6737 LD HL,$5861
673A LD DE,$5860
673D LD IX,$5B00
6741 LD B,$0D
6743 CALL $67A8
6746 RET
6747 LD IX,$5B00
674B LD HL,$502A
674E LD B,$04
6750 CALL $677E
6753 LD HL,$5021
6756 LD DE,$5020
6759 LD IX,$5B00
675D LD B,$04
675F CALL $67BA
6762 LD HL,$5A20
6765 LD IX,$5B00
6769 LD B,$04
676B CALL $679B
676E LD HL,$5A21
6771 LD DE,$5A20
6774 LD IX,$5B00
6778 LD B,$04
677A CALL $67A8
677D RET
677E LD C,$08
6780 LD A,(HL)
6781 LD (IX+$00),A
6784 INC IX
6786 INC H
6787 DEC C
6788 JR NZ,$6780
678A LD A,H
678B SUB $08
678D LD H,A
678E LD DE,$0020
6791 ADD HL,DE
6792 LD A,H
6793 AND $07
6795 CALL NZ,$67EC
6798 DJNZ $677E
679A RET
679B LD A,(HL)
679C LD (IX+$00),A
679F LD DE,$0020
67A2 ADD HL,DE
67A3 INC IX
67A5 DJNZ $679B
67A7 RET
67A8 PUSH BC
67A9 LD BC,$001F
67AC LD A,(IX+$00)
67AF LDIR
67B1 LD (DE),A
67B2 INC IX
67B4 INC HL
67B5 INC DE
67B6 POP BC
67B7 DJNZ $67A8
67B9 RET
67BA PUSH BC
67BB PUSH DE
67BC CALL $67D4
67BF POP HL
67C0 LD BC,$0020
67C3 ADD HL,BC
67C4 LD A,H
67C5 AND $07
67C7 JR Z,$67CD
67C9 LD A,H
67CA ADD A,$07
67CC LD H,A
67CD PUSH HL
67CE POP DE
67CF INC HL
67D0 POP BC
67D1 DJNZ $67BA
67D3 RET
67D4 PUSH DE
67D5 PUSH DE
67D6 LD BC,$001F
67D9 LD A,(IX+$00)
67DC INC IX
67DE LDIR
67E0 LD (DE),A
67E1 POP DE
67E2 POP HL
67E3 INC H
67E4 INC D
67E5 INC HL
67E6 LD A,H
67E7 AND $07
67E9 RET Z
67EA JR $67D4
67EC LD A,H
67ED ADD A,$07
67EF LD H,A
67F0 RET
67F1 JP $EA90
67F4 NOP
67F5 NOP
67F6 NOP
67F7 NOP
67F8 NOP
67F9 NOP
67FA NOP
67FB NOP
67FC NOP
67FD NOP
67FE NOP
67FF NOP
Prev: 6600 Up: Map Next: 6800