25127: Routine at 6227
| 25127 |
DEC A |
| 25128 |
JR NZ,25163 |
| 25130 |
LD DE,200 |
| 25133 |
SBC HL,DE |
| 25135 |
RET C |
| 25136 |
LD HL,0 |
| 25139 |
LD (23340),HL |
| 25142 |
LD A,3 |
| 25144 |
LD (23296),A |
| 25147 |
LD A,15 |
| 25149 |
LD (23354),A |
| 25152 |
LD HL,3871 |
| 25155 |
LD C,44 |
| 25157 |
LD A,1 |
| 25159 |
CALL 24852 |
| 25162 |
RET |
| 25163 |
DEC A |
| 25164 |
JP NZ,25385 |
| 25167 |
LD A,(23350) |
| 25170 |
RRA |
| 25171 |
RRA |
| 25172 |
AND 3 |
| 25174 |
LD (23361),A |
| 25177 |
JR NZ,25212 |
| 25179 |
LD A,(23354) |
| 25182 |
LD H,A |
| 25183 |
LD A,10 |
| 25185 |
LD L,31 |
| 25187 |
PUSH HL |
| 25188 |
LD C,44 |
| 25190 |
CALL 24852 |
| 25193 |
POP HL |
| 25194 |
LD A,15 |
| 25196 |
SUB H |
| 25197 |
JR Z,25209 |
| 25199 |
LD B,A |
| 25200 |
INC H |
| 25201 |
LD DE,25423 |
| 25204 |
LD C,36 |
| 25206 |
CALL 24966 |
| 25209 |
JP 25350 |
| 25212 |
DEC A |
| 25213 |
JR NZ,25238 |
| 25215 |
LD A,R |
| 25217 |
RRA |
| 25218 |
AND 6 |
| 25220 |
ADD A,2 |
| 25222 |
LD HL,(23353) |
| 25225 |
LD L,A |
| 25226 |
LD A,H |
| 25227 |
CP 15 |
| 25229 |
JR Z,25179 |
| 25231 |
INC A |
| 25232 |
LD (23354),A |
| 25235 |
LD A,L |
| 25236 |
JR 25185 |
| 25238 |
DEC A |
| 25239 |
JR NZ,25273 |
| 25241 |
LD A,(23350) |
| 25244 |
RRA |
| 25245 |
AND 6 |
| 25247 |
INC A |
| 25248 |
LD HL,(23353) |
| 25251 |
LD L,A |
| 25252 |
LD A,(23335) |
| 25255 |
LD D,A |
| 25256 |
LD A,5 |
| 25258 |
SUB D |
| 25259 |
ADD A,7 |
| 25261 |
CP H |
| 25262 |
LD A,H |
| 25263 |
JR Z,25179 |
| 25265 |
DEC A |
| 25266 |
DEC H |
| 25267 |
LD (23354),A |
| 25270 |
LD A,L |
| 25271 |
JR 25185 |
| 25273 |
LD A,(23362) |
| 25276 |
AND 1 |
| 25278 |
JR Z,25286 |
| 25280 |
XOR A |
| 25281 |
LD (23361),A |
| 25284 |
JR 25179 |
| 25286 |
LD A,40 |
| 25288 |
LD C,A |
| 25289 |
LD (23357),A |
| 25292 |
LD A,R |
| 25294 |
RRA |
| 25295 |
AND 12 |
| 25297 |
LD L,A |
| 25298 |
RRA |
| 25299 |
RRA |
| 25300 |
LD (23336),A |
| 25303 |
ADD A,L |
| 25304 |
LD L,A |
| 25305 |
CP 15 |
| 25307 |
JR NZ,25315 |
| 25309 |
LD A,40 |
| 25311 |
LD C,A |
| 25312 |
LD (23357),A |
| 25315 |
LD H,0 |
| 25317 |
LD DE,25403 |
| 25320 |
ADD HL,DE |
| 25321 |
EX DE,HL |
| 25322 |
LD A,4 |
| 25324 |
LD (23296),A |
| 25327 |
LD HL,(23353) |
| 25330 |
LD L,31 |
| 25332 |
PUSH HL |
| 25333 |
DEC H |
| 25334 |
DEC H |
| 25335 |
LD B,2 |
| 25337 |
CALL 24966 |
| 25340 |
LD (23355),DE |
| 25344 |
POP HL |
| 25345 |
LD A,9 |
| 25347 |
JP 25185 |
| 25350 |
LD A,(23361) |
| 25353 |
LD (23362),A |
| 25356 |
LD A,(23335) |
| 25359 |
LD L,0 |
| 25361 |
LD H,A |
| 25362 |
LD DE,300 |
| 25365 |
ADD HL,DE |
| 25366 |
EX DE,HL |
| 25367 |
LD HL,(23340) |
| 25370 |
SBC HL,DE |
| 25372 |
RET C |
| 25373 |
LD A,5 |
| 25375 |
LD (23296),A |
| 25378 |
LD HL,0 |
| 25381 |
LD (23340),HL |
| 25384 |
RET |
| 25385 |
DEC A |
| 25386 |
JR NZ,25432 |
| 25388 |
LD DE,(23355) |
| 25392 |
LD A,3 |
| 25394 |
LD (23296),A |
| 25397 |
LD A,(23357) |
| 25400 |
LD C,A |
| 25401 |
JR 25327 |
