25950: Routine at 655E
| 25950 |
LD A,(23447) |
| 25953 |
LD B,A |
| 25954 |
LD A,22 |
| 25956 |
SUB B |
| 25957 |
LD B,A |
| 25958 |
LD A,(25948) |
| 25961 |
CP B |
| 25962 |
JR C,25986 |
| 25964 |
LD HL,(25946) |
| 25967 |
LD (23672),HL |
| 25970 |
LD A,(23556) |
| 25973 |
CP 255 |
| 25975 |
JR NZ,25986 |
| 25977 |
CALL 82 |
| 25980 |
LD A,(23673) |
| 25983 |
OR A |
| 25984 |
JR Z,25970 |
| 25986 |
LD HL,25948 |
| 25989 |
INC (HL) |
| 25990 |
LD A,(23447) |
| 25993 |
CALL 24342 |
| 25996 |
PUSH DE |
| 25997 |
INC A |
| 25998 |
CALL 24342 |
| 26001 |
EX DE,HL |
| 26002 |
POP DE |
| 26003 |
LD B,8 |
| 26005 |
PUSH HL |
| 26006 |
PUSH BC |
| 26007 |
PUSH DE |
| 26008 |
LD BC,32 |
| 26011 |
LDIR |
| 26013 |
POP DE |
| 26014 |
POP BC |
| 26015 |
POP HL |
| 26016 |
INC H |
| 26017 |
INC D |
| 26018 |
DJNZ 26005 |
| 26020 |
CP 19 |
| 26022 |
JR Z,26030 |
| 26024 |
CP 23 |
| 26026 |
JR NZ,25993 |
| 26028 |
JR 26046 |
| 26030 |
PUSH AF |
| 26031 |
LD A,(24966) |
| 26034 |
OR A |
| 26035 |
JR Z,26043 |
| 26037 |
POP AF |
| 26038 |
LD HL,20576 |
| 26041 |
JR 26049 |
| 26043 |
POP AF |
| 26044 |
JR 25993 |
| 26046 |
LD HL,20704 |
| 26049 |
PUSH HL |
| 26050 |
POP DE |
| 26051 |
INC DE |
| 26052 |
LD B,8 |
| 26054 |
PUSH DE |
| 26055 |
PUSH HL |
| 26056 |
PUSH BC |
| 26057 |
LD (HL),0 |
| 26059 |
LD BC,31 |
| 26062 |
LDIR |
| 26064 |
POP BC |
| 26065 |
POP HL |
| 26066 |
POP DE |
| 26067 |
INC H |
| 26068 |
INC D |
| 26069 |
DJNZ 26054 |
| 26071 |
LD A,(24966) |
| 26074 |
OR A |
| 26075 |
JR Z,26082 |
| 26077 |
LD HL,20576 |
| 26080 |
JR 26085 |
| 26082 |
LD HL,20704 |
| 26085 |
LD (23431),HL |
| 26088 |
XOR A |
| 26089 |
LD (23434),A |
| 26092 |
RET |
| 26093 |
LD A,(26326) |
| 26096 |
OR A |
| 26097 |
JR Z,26101 |
| 26099 |
LD A,12 |
| 26101 |
DEC A |
| 26102 |
INC A |
| 26103 |
LD HL,23447 |
| 26106 |
LD B,(HL) |
| 26107 |
CP B |
| 26108 |
RET Z |
| 26109 |
CALL 24342 |
| 26112 |
PUSH DE |
| 26113 |
POP HL |
| 26114 |
INC DE |
| 26115 |
LD B,8 |
| 26117 |
PUSH HL |
| 26118 |
PUSH DE |
| 26119 |
PUSH BC |
| 26120 |
LD BC,31 |
| 26123 |
LD (HL),0 |
| 26125 |
LDIR |
| 26127 |
POP BC |
| 26128 |
POP DE |
| 26129 |
POP HL |
| 26130 |
INC D |
| 26131 |
INC H |
| 26132 |
DJNZ 26117 |
| 26134 |
JR 26102 |