69A8: Routine at 69A8
| 69A8 |
LD HL,$5B45 |
| 69AB |
LD A,($5B28) |
| 69AE |
INC A |
| 69AF |
BIT 1,A |
| 69B1 |
JR Z,$69C2 |
| 69B3 |
LD A,$04 |
| 69B5 |
LD (HL),A |
| 69B6 |
LD ($5B28),A |
| 69B9 |
LD A,($5B3A) |
| 69BC |
DEC A |
| 69BD |
DEC A |
| 69BE |
DEC A |
| 69BF |
LD ($5B29),A |
| 69C2 |
LD A,(HL) |
| 69C3 |
OR A |
| 69C4 |
LD A,($5B00) |
| 69C7 |
JR NZ,$69D3 |
| 69C9 |
CP $07 |
| 69CB |
RET NZ |
| 69CC |
LD A,$0A |
| 69CE |
LD ($5B29),A |
| 69D1 |
JR $69D8 |
| 69D3 |
CP $03 |
| 69D5 |
JR NZ,$69C9 |
| 69D7 |
DEC (HL) |
| 69D8 |
LD A,($5B36) |
| 69DB |
RLCA |
| 69DC |
RLCA |
| 69DD |
RLCA |
| 69DE |
RLCA |
| 69DF |
AND $0F |
| 69E1 |
LD H,A |
| 69E2 |
LD A,($5B29) |
| 69E5 |
CP H |
| 69E6 |
RET C |
| 69E7 |
LD L,$1A |
| 69E9 |
CALL $60F6 |
| 69EC |
LD A,(DE) |
| 69ED |
CP $2D |
| 69EF |
RET NZ |
| 69F0 |
LD B,$60 |
| 69F2 |
LD A,R |
| 69F4 |
BIT 0,A |
| 69F6 |
JR Z,$69F9 |
| 69F8 |
INC B |
| 69F9 |
LD A,B |
| 69FA |
LD C,$2B |
| 69FC |
CALL $6114 |
| 69FF |
LD HL,$6A1C |
| 6A02 |
LD C,$02 |
| 6A04 |
XOR A |
| 6A05 |
LD B,(HL) |
| 6A06 |
INC HL |
| 6A07 |
PUSH HL |
| 6A08 |
POP HL |
| 6A09 |
DJNZ $6A07 |
| 6A0B |
SET 4,A |
| 6A0D |
OUT ($FE),A |
| 6A0F |
LD B,(HL) |
| 6A10 |
PUSH HL |
| 6A11 |
POP HL |
| 6A12 |
DJNZ $6A10 |
| 6A14 |
RES 4,A |
| 6A16 |
OUT ($FE),A |
| 6A18 |
DEC C |
| 6A19 |
JR NZ,$6A05 |
| 6A1B |
RET |
