Prev: B342 Up: Map Next: B402
B3B6: Routine at B3B6
Used by the routine at AFB5.
B3B6 PUSH HL Stash HL on the stack.
B3B7 LD A,L A=L.
B3B8 LD ($B410),A Write A to *B410.
B3BB LD A,$42 Write INK: RED, PAPER: BLACK (BRIGHT) to *B418.
B3BD LD ($B418),A
B3C0 LD A,L A=L.
B3C1 LD DE,$00C8 DE=00C8.
B3C4 CALL $A875 Call A875.
B3C7 CP (IX+$00) Compare A with *IX+00.
B3CA JR NC,$B3DA Jump to B3DA if HL is greater than or equal to A.
B3CC LD A,$42 Write INK: RED, PAPER: BLACK (BRIGHT) to *B419.
B3CE LD ($B419),A
B3D1 LD A,$FF Write FF to *B412.
B3D3 LD ($B412),A
B3D6 LD A,$32 A=32.
B3D8 JR $B3F4 Jump to B3F4.
B3DA CP (IX+$01) Compare A with *IX+01.
B3DD JR NC,$B3E8 Jump to B3E8 if HL is greater than or equal to A.
B3DF LD A,$42 Write 42 to *B419.
B3E1 LD ($B419),A
B3E4 LD A,$19 A=19.
B3E6 JR $B3F4 Jump to B3F4.
B3E8 LD DE,$0013 DE=0013.
B3EB LD A,$53 Write 53 to *B419.
B3ED LD ($B419),A
B3F0 CALL $A875 Call A875.
B3F3 INC A Increment A by one.
B3F4 LD ($B40C),A Write A to *B40C.
B3F7 LD ($B411),A Write A to *B411.
B3FA POP HL Restore HL from the stack.
B3FB LD D,$00 D=00.
B3FD LD E,A E=A.
B3FE AND A Set flags.
B3FF SBC HL,DE HL-=DE (with carry).
B401 RET Return.
Prev: B342 Up: Map Next: B402