8D4C: Routine at 8D4C
| 8D4C |
LD A,$1E |
| 8D4E |
LD ($7939),A |
| 8D51 |
LD A,($B7EA) |
| 8D54 |
ADD A,A |
| 8D55 |
LD HL,$8E06 |
| 8D58 |
CALL PrintLine_9 |
| 8D5B |
LD E,(HL) |
| 8D5C |
INC HL |
| 8D5D |
LD D,(HL) |
| 8D5E |
PUSH DE |
| 8D5F |
POP IY |
| 8D61 |
LD A,(IY+$00) |
| 8D64 |
LD ($8DB7),A |
| 8D67 |
AND A |
| 8D68 |
RET Z |
| 8D69 |
LD IX,$8DB8 |
| 8D6D |
PUSH AF |
| 8D6E |
LD (IX+$01),$06 |
| 8D72 |
LD L,(IY+$01) |
| 8D75 |
LD H,(IY+$02) |
| 8D78 |
INC IY |
| 8D7A |
INC IY |
| 8D7C |
LD (IX+$02),L |
| 8D7F |
LD (IX+$04),H |
| 8D82 |
CALL $B684 |
| 8D85 |
CALL $9910 |
| 8D88 |
LD A,(IX+$04) |
| 8D8B |
ADD A,$05 |
| 8D8D |
LD (IX+$04),A |
| 8D90 |
CALL $8EB4 |
| 8D93 |
LD A,($8D48) |
| 8D96 |
RRA |
| 8D97 |
JR C,$8DA0 |
| 8D99 |
LD (IX+$01),$07 |
| 8D9D |
CALL $9910 |
| 8DA0 |
LD A,(IX+$02) |
| 8DA3 |
ADD A,$05 |
| 8DA5 |
LD (IX+$02),A |
| 8DA8 |
LD DE,$0010 |
| 8DAB |
ADD IX,DE |
| 8DAD |
POP AF |
| 8DAE |
DEC A |
| 8DAF |
JR NZ,$8D6D |
| 8DB1 |
LD A,$17 |
| 8DB3 |
LD ($7939),A |
| 8DB6 |
RET |
