Prev: 69BD Up: Map Next: 69F2
69BE: Routine at 69BE
69BE LD DE,$0002 DE=0002.
69C1 ADD HL,DE HL+=DE.
69C2 LD A,(HL) A=*HL.
69C3 RLCA RLCA.
69C4 SBC A,A A-=A.
69C5 RET C Return if {} is lower.
69C6 BIT 6,(HL) Return if bit 6 of *HL is zero.
69C8 RET Z
69C9 INC A Increment A by one.
69CA RET Return.
This entry point is used by the routines at 6A00 and 6AAC.
69CB CALL $69BE Call 69BE.
69CE LD E,A E=A.
69CF LD HL,($782E) HL=*782E.
69D2 ADD A,H A+=H.
69D3 LD H,A H=A.
69D4 ADD HL,BC HL+=BC.
69D5 CP H Jump to 69DD if A is equal to H.
69D6 JR Z,$69DD
69D8 LD A,C A=C.
69D9 ADD A,A A+=A.
69DA ADD A,A A+=A.
69DB ADD A,H A+=H.
69DC LD H,A H=A.
69DD LD A,B A=B.
69DE AND %00000011 Keep only bits 0-1.
69E0 INC A Increment A by one.
69E1 ADD A,E A+=E.
69E2 LD E,A E=A.
69E3 CALL $6F62 Call 6F62.
69E6 ADD A,A A+=A.
69E7 ADD A,E A+=E.
69E8 CALL $6996 Call 6996.
69EB LD ($7831),HL Write HL to *7831.
69EE LD A,($7830) A=*7830.
69F1 RET Return.
Prev: 69BD Up: Map Next: 69F2