24904: Routine at 6148
| 24904 |
LD A,(23351) |
| 24907 |
OR A |
| 24908 |
JR NZ,24939 |
| 24910 |
LD A,(23349) |
| 24913 |
AND 240 |
| 24915 |
RET NZ |
| 24916 |
LD A,(23350) |
| 24919 |
LD DE,24984 |
| 24922 |
BIT 3,A |
| 24924 |
JR NZ,24929 |
| 24926 |
LD DE,25000 |
| 24929 |
LD (23352),DE |
| 24933 |
AND 3 |
| 24935 |
LD (23351),A |
| 24938 |
RET |
| 24939 |
LD H,A |
| 24940 |
LD L,31 |
| 24942 |
LD DE,(23352) |
| 24946 |
LD A,(DE) |
| 24947 |
INC A |
| 24948 |
JR NZ,24954 |
| 24950 |
LD (23351),A |
| 24953 |
RET |
| 24954 |
LD B,3 |
| 24956 |
LD C,47 |
| 24958 |
CALL 24966 |
| 24961 |
LD (23352),DE |
| 24965 |
RET |
| 24966 |
PUSH BC |
| 24967 |
LD A,(DE) |
| 24968 |
OR A |
| 24969 |
JR Z,24978 |
| 24971 |
PUSH DE |
| 24972 |
PUSH HL |
| 24973 |
CALL 24852 |
| 24976 |
POP HL |
| 24977 |
POP DE |
| 24978 |
INC DE |
| 24979 |
INC H |
| 24980 |
POP BC |
| 24981 |
DJNZ 24966 |
| 24983 |
RET |
| 24984 |
NOP |
| 24985 |
DEC BC |
| 24986 |
LD C,0 |
| 24988 |
INC C |
| 24989 |
RRCA |
| 24990 |
NOP |
| 24991 |
DEC C |
| 24992 |
DJNZ 24994 |
| 24994 |
LD DE,19 |
| 24997 |
LD (DE),A |
| 24998 |
INC D |
| 24999 |
RST 56 |
| 25000 |
NOP |
| 25001 |
DEC BC |
| 25002 |
LD C,0 |
| 25004 |
INC C |
| 25005 |
RRCA |
| 25006 |
NOP |
| 25007 |
DEC C |
| 25008 |
DJNZ 25031 |
| 25010 |
ADD HL,DE |
| 25011 |
DEC DE |
| 25012 |
LD D,9 |
| 25014 |
INC E |
| 25015 |
RLA |
| 25016 |
ADD HL,BC |
| 25017 |
DEC E |
| 25018 |
JR 25046 |
| 25020 |
LD E,17 |
| 25022 |
INC DE |
| 25023 |
NOP |
| 25024 |
LD (DE),A |
| 25025 |
INC D |
| 25026 |
NOP |
| 25027 |
RST 56 |
