B7BC: Routine at B7BC
| B7BC |
CALL $945C |
| B7BF |
JR NZ,$B7DE |
| B7C1 |
RES 7,(IX+$08) |
| B7C5 |
LD HL,($607A) |
| B7C8 |
LD (IX+$02),L |
| B7CB |
LD (IX+$03),H |
| B7CE |
LD A,($607C) |
| B7D1 |
ADD A,$10 |
| B7D3 |
CP $AF |
| B7D5 |
JR C,$B7D9 |
| B7D7 |
LD A,$AF |
| B7D9 |
LD (IX+$04),A |
| B7DC |
JR $B7A2 |
| B7DE |
BIT 7,(IX+$08) |
| B7E2 |
JR NZ,$B7C5 |
| B7E4 |
LD A,(IX+$04) |
| B7E7 |
CP $AF |
| B7E9 |
JR Z,$B80A |
| B7EB |
LD (IX+$08),$82 |
| B7EF |
LD A,($607D) |
| B7F2 |
SRA A |
| B7F4 |
SRA A |
| B7F6 |
SRA A |
| B7F8 |
SRA A |
| B7FA |
LD (IX+$05),A |
| B7FD |
LD A,($6080) |
| B800 |
AND $FE |
| B802 |
LD ($6080),A |
| B805 |
CALL $B8C3 |
| B808 |
JR $B7A2 |
| B80A |
LD (IX+$08),$80 |
| B80E |
JR $B7FD |
