8826: Routine at 8826
| 8826 |
CALL $857F |
| 8829 |
LD L,(IX+$02) |
| 882C |
LD H,(IX+$03) |
| 882F |
LD BC,($607A) |
| 8833 |
AND A |
| 8834 |
SBC HL,BC |
| 8836 |
LD BC,$0068 |
| 8839 |
ADD HL,BC |
| 883A |
LD A,H |
| 883B |
AND $1F |
| 883D |
JR Z,$88B1 |
| 883F |
ADD A,$E1 |
| 8841 |
JR NZ,$8891 |
| 8843 |
LD A,L |
| 8844 |
SRA A |
| 8846 |
SRA A |
| 8848 |
SRA A |
| 884A |
JP P,$8891 |
| 884D |
LD B,A |
| 884E |
AND $0F |
| 8850 |
LD ($87EE),A |
| 8853 |
LD (IX+$09),A |
| 8856 |
LD A,(DE) |
| 8857 |
INC DE |
| 8858 |
LD C,A |
| 8859 |
ADD A,B |
| 885A |
JP M,$8891 |
| 885D |
JR Z,$8891 |
| 885F |
LD B,A |
| 8860 |
LD ($5E57),A |
| 8863 |
LD (IX+$0B),A |
| 8866 |
LD A,(DE) |
| 8867 |
INC DE |
| 8868 |
LD ($5E59),A |
| 886B |
LD ($5E58),A |
| 886E |
LD (IX+$0A),A |
| 8871 |
LD A,C |
| 8872 |
SUB B |
| 8873 |
INC DE |
| 8874 |
DEC A |
| 8875 |
JR NZ,$8873 |
| 8877 |
LD L,$00 |
| 8879 |
LD (IX+$01),L |
| 887C |
LD H,(IX+$04) |
| 887F |
CALL ScreenAddress |
| 8882 |
LD (IX+$0C),E |
| 8885 |
LD (IX+$0D),D |
| 8888 |
LD (IX+$0E),L |
| 888B |
LD (IX+$0F),H |
| 888E |
LD C,$00 |
| 8890 |
RET |
