27354: Routine at 6ADA
| 27354 |
LD A,(23331) |
| 27357 |
OR A |
| 27358 |
JR NZ,27422 |
| 27360 |
LD A,(23296) |
| 27363 |
CP 2 |
| 27365 |
RET C |
| 27366 |
CP 8 |
| 27368 |
RET NC |
| 27369 |
LD A,(23325) |
| 27372 |
OR A |
| 27373 |
RET NZ |
| 27374 |
LD A,(23330) |
| 27377 |
OR A |
| 27378 |
RET NZ |
| 27379 |
LD HL,(23328) |
| 27382 |
LD A,(23335) |
| 27385 |
LD C,A |
| 27386 |
LD A,11 |
| 27388 |
SUB C |
| 27389 |
LD C,A |
| 27390 |
LD A,H |
| 27391 |
CP C |
| 27392 |
RET NC |
| 27393 |
LD A,R |
| 27395 |
AND 15 |
| 27397 |
RET NZ |
| 27398 |
LD A,(23349) |
| 27401 |
AND 3 |
| 27403 |
LD H,A |
| 27404 |
LD L,30 |
| 27406 |
LD (23332),HL |
| 27409 |
LD A,88 |
| 27411 |
LD C,42 |
| 27413 |
CALL 27585 |
| 27416 |
LD A,1 |
| 27418 |
LD (23331),A |
| 27421 |
RET |
| 27422 |
DEC A |
| 27423 |
JR NZ,27501 |
| 27425 |
LD HL,(23332) |
| 27428 |
DEC L |
| 27429 |
LD (23332),HL |
| 27432 |
LD DE,(23328) |
| 27436 |
LD A,L |
| 27437 |
SUB E |
| 27438 |
CP 10 |
| 27440 |
JR NC,27456 |
| 27442 |
LD A,1 |
| 27444 |
LD (23325),A |
| 27447 |
INC A |
| 27448 |
LD (23331),A |
| 27451 |
DEC L |
| 27452 |
LD (23326),HL |
| 27455 |
RET |
| 27456 |
LD A,H |
| 27457 |
CP D |
| 27458 |
RET Z |
| 27459 |
JR C,27464 |
| 27461 |
DEC H |
| 27462 |
JR 27465 |
| 27464 |
INC H |
| 27465 |
CALL 24822 |
| 27468 |
LD A,(DE) |
| 27469 |
INC DE |
| 27470 |
CP 45 |
| 27472 |
JR Z,27477 |
| 27474 |
CP 47 |
| 27476 |
RET NZ |
| 27477 |
LD A,(DE) |
| 27478 |
CP 45 |
| 27480 |
JR Z,27485 |
| 27482 |
CP 47 |
| 27484 |
RET NZ |
| 27485 |
PUSH HL |
| 27486 |
CALL 27566 |
| 27489 |
POP HL |
| 27490 |
LD (23332),HL |
| 27493 |
LD A,88 |
| 27495 |
LD C,42 |
| 27497 |
CALL 27585 |
| 27500 |
RET |
| 27501 |
DEC A |
| 27502 |
JR NZ,27531 |
| 27504 |
LD HL,(23332) |
| 27507 |
DEC L |
| 27508 |
JR Z,27526 |
| 27510 |
LD (23332),HL |
| 27513 |
BIT 0,L |
| 27515 |
RET Z |
| 27516 |
DEC H |
| 27517 |
INC H |
| 27518 |
JR Z,27523 |
| 27520 |
DEC H |
| 27521 |
JR 27465 |
| 27523 |
CALL 27566 |
| 27526 |
XOR A |
| 27527 |
LD (23331),A |
| 27530 |
RET |
| 27531 |
DEC A |
| 27532 |
JR NZ,27554 |
| 27534 |
LD A,4 |
| 27536 |
LD (23331),A |
| 27539 |
LD HL,(23332) |
| 27542 |
DEC L |
| 27543 |
LD (23332),HL |
| 27546 |
LD A,77 |
| 27548 |
LD C,43 |
| 27550 |
CALL 27585 |
| 27553 |
RET |
| 27554 |
LD HL,(23332) |
| 27557 |
DEC L |
| 27558 |
CALL 27569 |
| 27561 |
XOR A |
| 27562 |
LD (23331),A |
| 27565 |
RET |
| 27566 |
LD HL,(23332) |
| 27569 |
LD C,45 |
| 27571 |
XOR A |
| 27572 |
PUSH HL |
| 27573 |
CALL 24852 |
| 27576 |
POP HL |
| 27577 |
XOR A |
| 27578 |
LD C,45 |
| 27580 |
INC L |
| 27581 |
CALL 24852 |
| 27584 |
RET |
| 27585 |
PUSH HL |
| 27586 |
PUSH AF |
| 27587 |
PUSH BC |
| 27588 |
CALL 24852 |
| 27591 |
POP BC |
| 27592 |
POP AF |
| 27593 |
POP HL |
| 27594 |
INC L |
| 27595 |
INC A |
| 27596 |
CALL 24852 |
| 27599 |
RET |
