B694: Routine at B694
| B694 |
LD IY,$B6F4 |
| B698 |
LD B,$05 |
| B69A |
LD A,(IY+$00) |
| B69D |
AND A |
| B69E |
CALL NZ,$B6A9 |
| B6A1 |
LD DE,$0007 |
| B6A4 |
ADD IY,DE |
| B6A6 |
DJNZ $B69A |
| B6A8 |
RET |
| B6A9 |
LD L,(IY+$05) |
| B6AC |
LD H,(IY+$06) |
| B6AF |
BIT 7,(HL) |
| B6B1 |
JR Z,$B6B8 |
| B6B3 |
LD (IY+$00),$00 |
| B6B7 |
RET |
| B6B8 |
EXX |
| B6B9 |
INC A |
| B6BA |
AND $FE |
| B6BC |
LD HL,$AF6D |
| B6BF |
LD E,A |
| B6C0 |
LD D,$00 |
| B6C2 |
ADD HL,DE |
| B6C3 |
LD E,(HL) |
| B6C4 |
INC HL |
| B6C5 |
LD D,(HL) |
| B6C6 |
LD L,(IY+$01) |
| B6C9 |
LD H,(IY+$02) |
| B6CC |
LD C,(IY+$03) |
| B6CF |
LD B,(IY+$04) |
| B6D2 |
LD A,$07 |
| B6D4 |
EX AF,AF' |
| B6D5 |
LD A,(DE) |
| B6D6 |
LD (HL),A |
| B6D7 |
LD (BC),A |
| B6D8 |
INC L |
| B6D9 |
INC C |
| B6DA |
INC DE |
| B6DB |
LD A,(DE) |
| B6DC |
LD (HL),A |
| B6DD |
LD (BC),A |
| B6DE |
DEC L |
| B6DF |
INC H |
| B6E0 |
INC DE |
| B6E1 |
LD A,$1F |
| B6E3 |
ADD A,C |
| B6E4 |
LD C,A |
| B6E5 |
EX AF,AF' |
| B6E6 |
DEC A |
| B6E7 |
JR NZ,$B6D4 |
| B6E9 |
EXX |
| B6EA |
LD A,(IY+$00) |
| B6ED |
INC A |
| B6EE |
AND $0F |
| B6F0 |
LD (IY+$00),A |
| B6F3 |
RET |
| B6F4 |
NOP |
| B6F5 |
NOP |
| B6F6 |
NOP |
| B6F7 |
NOP |
| B6F8 |
NOP |
| B6F9 |
NOP |
| B6FA |
NOP |
| B6FB |
NOP |
| B6FC |
NOP |
| B6FD |
NOP |
| B6FE |
NOP |
| B6FF |
NOP |
| B700 |
NOP |
| B701 |
NOP |
| B702 |
NOP |
| B703 |
NOP |
| B704 |
NOP |
| B705 |
NOP |
| B706 |
NOP |
| B707 |
NOP |
| B708 |
NOP |
| B709 |
NOP |
| B70A |
NOP |
| B70B |
NOP |
| B70C |
NOP |
| B70D |
NOP |
| B70E |
NOP |
| B70F |
NOP |
| B710 |
NOP |
| B711 |
NOP |
| B712 |
NOP |
| B713 |
NOP |
| B714 |
NOP |
| B715 |
NOP |
| B716 |
NOP |
