86A1: Routine at 86A1
| 86A1 |
LD L,(IX+$02) |
| 86A4 |
LD H,(IX+$03) |
| 86A7 |
LD BC,$0078 |
| 86AA |
ADD HL,BC |
| 86AB |
LD BC,($607A) |
| 86AF |
AND A |
| 86B0 |
SBC HL,BC |
| 86B2 |
LD A,H |
| 86B3 |
AND $1F |
| 86B5 |
JR NZ,$867F |
| 86B7 |
LD A,L |
| 86B8 |
CP $F0 |
| 86BA |
JR NC,$867F |
| 86BC |
LD (IX+$01),L |
| 86BF |
CALL $857F |
| 86C2 |
LD L,(IX+$01) |
| 86C5 |
LD H,(IX+$04) |
| 86C8 |
LD A,L |
| 86C9 |
DEC A |
| 86CA |
RLCA |
| 86CB |
AND $0E |
| 86CD |
CP $0E |
| 86CF |
JR NZ,$86D3 |
| 86D1 |
LD A,$E8 |
| 86D3 |
LD ($861D),A |
| 86D6 |
LD (IX+$09),A |
| 86D9 |
LD A,$02 |
| 86DB |
JR Z,$86DE |
| 86DD |
INC A |
| 86DE |
LD ($5E57),A |
| 86E1 |
LD (IX+$0B),H |
| 86E4 |
CALL ScreenAddress |
| 86E7 |
LD A,(DE) |
| 86E8 |
INC DE |
| 86E9 |
LD ($5E59),A |
| 86EC |
LD ($5E58),A |
| 86EF |
LD (IX+$0A),A |
| 86F2 |
LD (IX+$0C),E |
| 86F5 |
LD (IX+$0D),D |
| 86F8 |
LD (IX+$0E),L |
| 86FB |
LD (IX+$0F),H |
| 86FE |
LD C,$00 |
| 8700 |
RET |
