6853: Routine at 6853
| 6853 |
LD IX,$68D7 |
| 6857 |
LD L,(IX+$00) |
| 685A |
LD H,(IX+$01) |
| 685D |
LD A,H |
| 685E |
OR L |
| 685F |
RET Z |
| 6860 |
LD C,(IX+$02) |
| 6863 |
SRL C |
| 6865 |
LD E,(IX+$03) |
| 6868 |
LD D,(IX+$04) |
| 686B |
LD A,$01 |
| 686D |
LD ($68A5),A |
| 6870 |
SRL C |
| 6872 |
PUSH BC |
| 6873 |
CALL C,$688B |
| 6876 |
POP BC |
| 6877 |
LD A,C |
| 6878 |
AND A |
| 6879 |
JR Z,$6884 |
| 687B |
LD A,($68A5) |
| 687E |
INC A |
| 687F |
LD ($68A5),A |
| 6882 |
JR $6870 |
| 6884 |
LD DE,$0005 |
| 6887 |
ADD IX,DE |
| 6889 |
JR $6857 |
| 688B |
PUSH HL |
| 688C |
LD A,(HL) |
| 688D |
LD ($689A),A |
| 6890 |
INC A |
| 6891 |
LD (DE),A |
| 6892 |
INC HL |
| 6893 |
INC DE |
| 6894 |
LD A,(HL) |
| 6895 |
LD (DE),A |
| 6896 |
INC HL |
| 6897 |
INC DE |
| 6898 |
EX AF,AF' |
| 6899 |
LD B,$00 |
| 689B |
PUSH BC |
| 689C |
PUSH DE |
| 689D |
LD A,(HL) |
| 689E |
INC HL |
| 689F |
LD E,(HL) |
| 68A0 |
INC HL |
| 68A1 |
LD D,$00 |
| 68A3 |
LD C,D |
| 68A4 |
LD B,$00 |
| 68A6 |
SRL E |
| 68A8 |
RR D |
| 68AA |
SRL A |
| 68AC |
RR C |
| 68AE |
DJNZ $68A6 |
| 68B0 |
LD B,A |
| 68B1 |
LD A,D |
| 68B2 |
LD ($68C9),A |
| 68B5 |
LD A,E |
| 68B6 |
LD ($68C0),A |
| 68B9 |
POP DE |
| 68BA |
LD A,(DE) |
| 68BB |
OR B |
| 68BC |
LD (DE),A |
| 68BD |
INC DE |
| 68BE |
LD A,(DE) |
| 68BF |
OR $00 |
| 68C1 |
LD (DE),A |
| 68C2 |
INC DE |
| 68C3 |
LD A,(DE) |
| 68C4 |
OR C |
| 68C5 |
LD (DE),A |
| 68C6 |
INC DE |
| 68C7 |
LD A,(DE) |
| 68C8 |
OR $00 |
| 68CA |
LD (DE),A |
| 68CB |
DEC DE |
| 68CC |
POP BC |
| 68CD |
DJNZ $689B |
| 68CF |
INC DE |
| 68D0 |
INC DE |
| 68D1 |
EX AF,AF' |
| 68D2 |
DEC A |
| 68D3 |
JR NZ,$6898 |
| 68D5 |
POP HL |
| 68D6 |
RET |
| 68D7 |
LD D,$7B |
| 68D9 |
RST $38 |
| 68DA |
LD C,B |
| 68DB |
LD A,E |
| 68DC |
JR C,$695C |
| 68DE |
DJNZ $692E |
| 68E0 |
LD A,L |
| 68E1 |
LD B,D |
| 68E2 |
LD A,A |
| 68E3 |
DJNZ $686F |
| 68E5 |
ADD A,D |
| 68E6 |
ADC A,B |
| 68E7 |
ADD A,C |
| 68E8 |
DJNZ $68DC |
| 68EA |
ADD A,C |
| 68EB |
NOP |
| 68EC |
NOP |
