D2A4: Routine at D2A4
| D2A4 |
CALL $D2AD |
| D2A7 |
BIT 7,A |
| D2A9 |
RET Z |
| D2AA |
NEG |
| D2AC |
RET |
| D2AD |
PUSH IX |
| D2AF |
PUSH BC |
| D2B0 |
LD C,A |
| D2B1 |
SLA A |
| D2B3 |
JR NC,$D2B7 |
| D2B5 |
LD A,$FF |
| D2B7 |
LD B,A |
| D2B8 |
LD IX,$A039 |
| D2BC |
INC (IX+$01) |
| D2BF |
JR NZ,$D2C4 |
| D2C1 |
INC (IX+$00) |
| D2C4 |
LD IX,($A039) |
| D2C8 |
LD A,($A037) |
| D2CB |
ADC A,(IX+$00) |
| D2CE |
ADD IX,DE |
| D2D0 |
XOR (IX+$01) |
| D2D3 |
PUSH HL |
| D2D4 |
LD HL,$A037 |
| D2D7 |
CP (HL) |
| D2D8 |
POP HL |
| D2D9 |
JR Z,$D2B8 |
| D2DB |
LD ($A037),A |
| D2DE |
CP B |
| D2DF |
JR C,$D2E8 |
| D2E1 |
JR Z,$D2E8 |
| D2E3 |
SRL A |
| D2E5 |
JP $D2DE |
| D2E8 |
SUB C |
| D2E9 |
POP BC |
| D2EA |
POP IX |
| D2EC |
RET |
| D2ED |
PUSH BC |
| D2EE |
LD B,$01 |
| D2F0 |
JR $D2F5 |
