FEA5: Load an edge off tape
FEA5 |
CALL $FEA9 |
FEA8 |
RET NC |
FEA9 |
LD A,$08 |
FEAB |
DEC A |
FEAC |
JR NZ,$FEAB |
FEAE |
AND A |
FEAF |
INC B |
FEB0 |
RET Z |
FEB1 |
LD A,$7F |
FEB3 |
IN A,($FE) |
FEB5 |
RRA |
FEB6 |
XOR C |
FEB7 |
AND $20 |
FEB9 |
JR Z,$FEAF |
FEBB |
LD A,C |
FEBC |
XOR $FD |
FEBE |
LD C,A |
FEBF |
AND $07 |
FEC1 |
OR $08 |
FEC3 |
OUT ($FE),A |
FEC5 |
SCF |
FEC6 |
RET |
FEC7 |
EX AF,AF' |
FEC8 |
JR NZ,$FECF |
FECA |
LD (IX+$00),L |
FECD |
JR $FED8 |
FECF |
RL C |
FED1 |
XOR L |
FED2 |
LD A,C |
FED3 |
RRA |
FED4 |
LD C,A |
FED5 |
INC DE |
FED6 |
JR $FEDA |
FED8 |
INC IX |
FEDA |
DEC DE |
FEDB |
EX AF,AF' |
FEDC |
LD B,$B2 |