A002: Routine at A002
| A002 |
PUSH IY |
| A004 |
POP DE |
| A005 |
LD A,(IX+$08) |
| A008 |
SUB $1F |
| A00A |
ADD A,A |
| A00B |
LD HL,$6D65 |
| A00E |
LD C,A |
| A00F |
LD B,$00 |
| A011 |
ADD HL,BC |
| A012 |
LD (HL),E |
| A013 |
INC HL |
| A014 |
LD (HL),D |
| A015 |
RET |
| A016 |
AND $7F |
| A018 |
LD ($6D88),A |
| A01B |
LD C,$01 |
| A01D |
LD B,$80 |
| A01F |
JR $A02E |
| A021 |
AND $7F |
| A023 |
LD C,A |
| A024 |
LD B,$81 |
| A026 |
XOR A |
| A027 |
LD ($6DB0),A |
| A02A |
INC A |
| A02B |
LD ($6D88),A |
| A02E |
LD E,(IX+$09) |
| A031 |
LD D,(IX+$0B) |
| A034 |
PUSH DE |
| A035 |
PUSH HL |
| A036 |
PUSH BC |
| A037 |
CALL $89A2 |
| A03A |
POP BC |
| A03B |
POP HL |
| A03C |
POP DE |
| A03D |
LD IX,($6D73) |
| A041 |
LD (IX+$09),E |
| A044 |
LD (IX+$0B),D |
| A047 |
CALL $9FC1 |
| A04A |
RET |
