A219: Routine at A219
| A219 |
LD HL,$B03A |
| A21C |
LD ($5E01),HL |
| A21F |
LD HL,$00C0 |
| A222 |
LD DE,$B32A |
| A225 |
LD BC,$0818 |
| A228 |
PUSH BC |
| A229 |
PUSH HL |
| A22A |
CALL $9BA2 |
| A22D |
LD A,(DE) |
| A22E |
INC DE |
| A22F |
CALL $A1D3 |
| A232 |
DJNZ $A22D |
| A234 |
POP HL |
| A235 |
LD A,H |
| A236 |
ADD A,$08 |
| A238 |
LD H,A |
| A239 |
POP BC |
| A23A |
DEC C |
| A23B |
JR NZ,$A228 |
| A23D |
JP $A1AE |
| A240 |
LD HL,$00C0 |
| A243 |
CALL $9BD2 |
| A246 |
LD BC,$0818 |
| A249 |
LD A,($5E1A) |
| A24C |
CPL |
| A24D |
AND $07 |
| A24F |
CP $02 |
| A251 |
JR NC,$A255 |
| A253 |
LD A,$44 |
| A255 |
LD E,A |
| A256 |
PUSH DE |
| A257 |
PUSH BC |
| A258 |
PUSH HL |
| A259 |
LD (HL),E |
| A25A |
INC L |
| A25B |
DJNZ $A259 |
| A25D |
POP HL |
| A25E |
LD BC,$0020 |
| A261 |
ADD HL,BC |
| A262 |
POP BC |
| A263 |
DEC C |
| A264 |
JR NZ,$A257 |
| A266 |
LD HL,$90C8 |
| A269 |
CALL $9BD2 |
| A26C |
LD A,($5E1A) |
| A26F |
LD BC,$0303 |
| A272 |
CALL $809A |
| A275 |
INC L |
| A276 |
LD (HL),A |
| A277 |
ADD HL,DE |
| A278 |
LD BC,$0202 |
| A27B |
CALL $809A |
| A27E |
LD HL,$98D0 |
| A281 |
CALL $9BD2 |
| A284 |
POP DE |
| A285 |
LD (HL),E |
| A286 |
LD HL,$7DC8 |
| A289 |
CALL $9BD2 |
| A28C |
LD BC,$0603 |
| A28F |
LD A,$47 |
| A291 |
CALL $809A |
| A294 |
LD HL,$5FC8 |
| A297 |
CALL $9BD2 |
| A29A |
LD BC,$0604 |
| A29D |
LD A,$46 |
| A29F |
CALL $809A |
| A2A2 |
LD HL,$48C8 |
| A2A5 |
CALL $9BD2 |
| A2A8 |
LD BC,$0601 |
| A2AB |
LD A,$45 |
| A2AD |
CALL $809A |
| A2B0 |
LD BC,$0601 |
| A2B3 |
LD A,$47 |
| A2B5 |
CALL $809A |
| A2B8 |
LD HL,$38C8 |
| A2BB |
CALL $9BD2 |
| A2BE |
LD BC,$0601 |
| A2C1 |
LD A,$43 |
| A2C3 |
CALL $809A |
| A2C6 |
LD BC,$0601 |
| A2C9 |
LD A,$47 |
| A2CB |
JP $809A |
| A2CE |
PUSH IX |
| A2D0 |
LD IX,$A17D |
| A2D4 |
LD A,($5E00) |
| A2D7 |
RLCA |
| A2D8 |
AND $30 |
| A2DA |
OR $01 |
| A2DC |
LD (IX+$00),A |
| A2DF |
LD (IX+$05),$47 |
| A2E3 |
LD HL,$8DC8 |
| A2E6 |
LD (IX+$03),L |
| A2E9 |
LD (IX+$04),H |
| A2EC |
LD A,($5E21) |
| A2EF |
LD C,A |
| A2F0 |
LD B,$03 |
| A2F2 |
PUSH BC |
| A2F3 |
CALL $A185 |
| A2F6 |
LD A,C |
| A2F7 |
AND A |
| A2F8 |
JR Z,$A2FD |
| A2FA |
CALL $9F4A |
| A2FD |
LD A,(IX+$03) |
| A300 |
ADD A,$10 |
| A302 |
LD (IX+$03),A |
| A305 |
POP BC |
| A306 |
DEC C |
| A307 |
JP P,$A30C |
| A30A |
LD C,$00 |
| A30C |
DJNZ $A2F2 |
| A30E |
POP IX |
| A310 |
RET |
