8571: Routine at 8571
| 8571 |
CALL $9394 |
| 8574 |
LD HL,($6DA2) |
| 8577 |
LD H,$00 |
| 8579 |
LD DE,($6DA0) |
| 857D |
LD D,$58 |
| 857F |
LD B,$05 |
| 8581 |
ADD HL,HL |
| 8582 |
DJNZ $8581 |
| 8584 |
ADD HL,DE |
| 8585 |
LD A,($6DA5) |
| 8588 |
LD DE,$0020 |
| 858B |
LD C,$00 |
| 858D |
CALL $85DA |
| 8590 |
INC HL |
| 8591 |
LD A,L |
| 8592 |
AND $1F |
| 8594 |
OR A |
| 8595 |
JR Z,$859B |
| 8597 |
BIT 6,(HL) |
| 8599 |
JR NZ,$858D |
| 859B |
DEC HL |
| 859C |
JR $85A1 |
| 859E |
CALL $85DA |
| 85A1 |
ADD HL,DE |
| 85A2 |
LD A,H |
| 85A3 |
CP $5B |
| 85A5 |
JR Z,$85AB |
| 85A7 |
BIT 6,(HL) |
| 85A9 |
JR NZ,$859E |
| 85AB |
AND A |
| 85AC |
SBC HL,DE |
| 85AE |
JR $85B3 |
| 85B0 |
CALL $85DA |
| 85B3 |
DEC HL |
| 85B4 |
LD A,L |
| 85B5 |
AND $1F |
| 85B7 |
CP $1F |
| 85B9 |
JR Z,$85BF |
| 85BB |
BIT 6,(HL) |
| 85BD |
JR NZ,$85B0 |
| 85BF |
INC HL |
| 85C0 |
JR $85C5 |
| 85C2 |
CALL $85DA |
| 85C5 |
AND A |
| 85C6 |
SBC HL,DE |
| 85C8 |
LD A,H |
| 85C9 |
CP $58 |
| 85CB |
JR C,$85D1 |
| 85CD |
BIT 6,(HL) |
| 85CF |
JR NZ,$85C2 |
| 85D1 |
ADD HL,DE |
| 85D2 |
LD A,C |
| 85D3 |
OR A |
| 85D4 |
RET Z |
| 85D5 |
LD C,$00 |
| 85D7 |
JP $8590 |
| 85DA |
LD C,$01 |
| 85DC |
LD (HL),$09 |
| 85DE |
PUSH AF |
| 85DF |
PUSH BC |
| 85E0 |
LD B,$02 |
| 85E2 |
DEC BC |
| 85E3 |
LD A,B |
| 85E4 |
OR C |
| 85E5 |
JR NZ,$85E2 |
| 85E7 |
POP BC |
| 85E8 |
POP AF |
| 85E9 |
RET |
