D847: Routine at D847
| D847 |
CALL $22AA |
| D84A |
LD E,A |
| D84B |
LD D,$08 |
| D84D |
AND A |
| D84E |
JP Z,$D86B |
| D851 |
LD B,E |
| D852 |
LD A,(IX+$00) |
| D855 |
LD C,$00 |
| D857 |
SRL A |
| D859 |
RR C |
| D85B |
DJNZ $D857 |
| D85D |
LD (HL),A |
| D85E |
INC HL |
| D85F |
LD A,C |
| D860 |
LD (HL),A |
| D861 |
DEC HL |
| D862 |
INC IX |
| D864 |
CALL $D878 |
| D867 |
DEC D |
| D868 |
JR NZ,$D851 |
| D86A |
RET |
| D86B |
LD B,D |
| D86C |
LD A,(IX+$00) |
| D86F |
LD (HL),A |
| D870 |
CALL $D878 |
| D873 |
INC IX |
| D875 |
DJNZ $D86C |
| D877 |
RET |
| D878 |
INC H |
| D879 |
LD A,H |
| D87A |
AND $07 |
| D87C |
RET NZ |
| D87D |
LD A,H |
| D87E |
SUB $08 |
| D880 |
LD H,A |
| D881 |
LD A,L |
| D882 |
ADD A,$20 |
| D884 |
LD L,A |
| D885 |
RET NC |
| D886 |
LD A,H |
| D887 |
ADD A,$08 |
| D889 |
LD H,A |
| D88A |
XOR $58 |
| D88C |
RET NZ |
| D88D |
LD H,$40 |
| D88F |
RET |
