B0FD: Routine at B0FD
| B0FD |
LD BC,$0008 |
| B100 |
BIT 3,E |
| B102 |
JR NZ,$B107 |
| B104 |
CALL $AEC6 |
| B107 |
PUSH IY |
| B109 |
POP HL |
| B10A |
ADD HL,BC |
| B10B |
PUSH DE |
| B10C |
PUSH HL |
| B10D |
BIT 3,E |
| B10F |
JR NZ,$B118 |
| B111 |
SET 3,E |
| B113 |
CALL $AEA9 |
| B116 |
JR $B11F |
| B118 |
LD HL,$A012 |
| B11B |
INC (HL) |
| B11C |
CALL $AE6A |
| B11F |
PUSH IY |
| B121 |
POP HL |
| B122 |
LD BC,$0018 |
| B125 |
ADD HL,BC |
| B126 |
POP DE |
| B127 |
EX DE,HL |
| B128 |
LD BC,$0006 |
| B12B |
LDIR |
| B12D |
POP DE |
| B12E |
LD A,E |
| B12F |
OR $C7 |
| B131 |
LD E,A |
| B132 |
JP $AAD1 |
| B135 |
CALL $AFE1 |
| B138 |
LD A,$02 |
| B13A |
LD ($A024),A |
| B13D |
JR $B14B |
| B13F |
BIT 3,E |
| B141 |
JR Z,$B14B |
| B143 |
PUSH DE |
| B144 |
CALL $AEA9 |
| B147 |
CALL $AE6A |
| B14A |
POP DE |
| B14B |
SET 7,(IY+$19) |
| B14F |
JR $B12E |
| B151 |
CALL $AFE1 |
| B154 |
LD A,$02 |
| B156 |
LD ($A024),A |
| B159 |
JR $B167 |
| B15B |
BIT 3,E |
| B15D |
JR Z,$B167 |
| B15F |
PUSH DE |
| B160 |
CALL $AEA9 |
| B163 |
CALL $AE6A |
| B166 |
POP DE |
| B167 |
SET 6,(IY+$19) |
| B16B |
JR $B12E |
