A221: Routine at A221
| A221 |
PUSH HL |
| A222 |
PUSH IX |
| A224 |
LD E,A |
| A225 |
LD A,(IX+$00) |
| A228 |
LD D,A |
| A229 |
LD HL,$A1E0 |
| A22C |
LD (HL),$FF |
| A22E |
INC HL |
| A22F |
LD (HL),$FF |
| A231 |
INC HL |
| A232 |
LD (HL),A |
| A233 |
INC HL |
| A234 |
CALL $981B |
| A237 |
JR Z,$A243 |
| A239 |
LD A,E |
| A23A |
CP B |
| A23B |
LD A,$02 |
| A23D |
JP Z,$A2F6 |
| A240 |
CALL $A2DB |
| A243 |
CALL $97F9 |
| A246 |
JR Z,$A252 |
| A248 |
LD A,E |
| A249 |
CP B |
| A24A |
LD A,$01 |
| A24C |
JP Z,$A2F6 |
| A24F |
CALL $A2DB |
| A252 |
CALL $97F0 |
| A255 |
JR Z,$A261 |
| A257 |
LD A,E |
| A258 |
CP B |
| A259 |
LD A,$08 |
| A25B |
JP Z,$A2F6 |
| A25E |
CALL $A2DB |
| A261 |
CALL $9812 |
| A264 |
JR Z,$A270 |
| A266 |
LD A,E |
| A267 |
CP B |
| A268 |
LD A,$04 |
| A26A |
JP Z,$A2F6 |
| A26D |
CALL $A2DB |
| A270 |
LD IX,$A1E3 |
| A274 |
LD D,(IX+$01) |
| A277 |
CALL $981B |
| A27A |
JR Z,$A28C |
| A27C |
LD A,E |
| A27D |
CP B |
| A27E |
JP Z,$A2F3 |
| A281 |
CALL $A2E3 |
| A284 |
JR Z,$A28C |
| A286 |
LD A,(IX+$00) |
| A289 |
CALL $A2DB |
| A28C |
CALL $97F9 |
| A28F |
JR Z,$A2A1 |
| A291 |
LD A,E |
| A292 |
CP B |
| A293 |
JP Z,$A2F3 |
| A296 |
CALL $A2E3 |
| A299 |
JR Z,$A2A1 |
| A29B |
LD A,(IX+$00) |
| A29E |
CALL $A2DB |
| A2A1 |
CALL $97F0 |
| A2A4 |
JR Z,$A2B6 |
| A2A6 |
LD A,E |
| A2A7 |
CP B |
| A2A8 |
JP Z,$A2F3 |
| A2AB |
CALL $A2E3 |
| A2AE |
JR Z,$A2B6 |
| A2B0 |
LD A,(IX+$00) |
| A2B3 |
CALL $A2DB |
| A2B6 |
CALL $9812 |
| A2B9 |
JR Z,$A2CB |
| A2BB |
LD A,E |
| A2BC |
CP B |
| A2BD |
JP Z,$A2F3 |
| A2C0 |
CALL $A2E3 |
| A2C3 |
JR Z,$A2CB |
| A2C5 |
LD A,(IX+$00) |
| A2C8 |
CALL $A2DB |
| A2CB |
INC IX |
| A2CD |
INC IX |
| A2CF |
LD A,(IX+$00) |
| A2D2 |
CP $FF |
| A2D4 |
JP NZ,$A274 |
| A2D7 |
POP IX |
| A2D9 |
POP HL |
| A2DA |
RET |
| A2DB |
LD (HL),A |
| A2DC |
INC HL |
| A2DD |
LD A,B |
| A2DE |
LD (HL),A |
| A2DF |
INC HL |
| A2E0 |
LD (HL),$FF |
| A2E2 |
RET |
| A2E3 |
PUSH HL |
| A2E4 |
DEC HL |
| A2E5 |
LD A,(HL) |
| A2E6 |
CP $FF |
| A2E8 |
JR Z,$A2F0 |
| A2EA |
DEC HL |
| A2EB |
CP B |
| A2EC |
JR NZ,$A2E4 |
| A2EE |
POP HL |
| A2EF |
RET |
| A2F0 |
POP HL |
| A2F1 |
DEC A |
| A2F2 |
RET |
| A2F3 |
LD A,(IX+$00) |
| A2F6 |
POP IX |
| A2F8 |
POP HL |
| A2F9 |
RET |
