27623: Routine at 6BE7
| 27623 |
DI |
| 27624 |
PUSH IX |
| 27626 |
PUSH HL |
| 27627 |
POP IX |
| 27629 |
DEC (IX+0) |
| 27632 |
JR NZ,27648 |
| 27634 |
LD A,(IX+3) |
| 27637 |
LD (IX+0),A |
| 27640 |
DEC (IX+1) |
| 27643 |
JR NZ,27652 |
| 27645 |
INC (IX+1) |
| 27648 |
POP IX |
| 27650 |
EI |
| 27651 |
RET |
| 27652 |
LD A,(IX+2) |
| 27655 |
ADD A,(IX+1) |
| 27658 |
LD HL,23216 |
| 27661 |
ADD A,L |
| 27662 |
LD L,A |
| 27663 |
LD C,32 |
| 27665 |
LD A,(IX+1) |
| 27668 |
CP 3 |
| 27670 |
JR NC,27699 |
| 27672 |
LD C,80 |
| 27674 |
PUSH HL |
| 27675 |
LD DE,31 |
| 27678 |
SRL A |
| 27680 |
SRL A |
| 27682 |
SBC HL,DE |
| 27684 |
LD B,14 |
| 27686 |
LD A,(HL) |
| 27687 |
XOR (IX+4) |
| 27690 |
LD (HL),A |
| 27691 |
INC HL |
| 27692 |
DJNZ 27686 |
| 27694 |
LD (IX+4),128 |
| 27698 |
POP HL |
| 27699 |
LD (HL),C |
| 27700 |
INC HL |
| 27701 |
LD (HL),48 |
| 27703 |
JR 27648 |
| 27705 |
LD B,A |
| 27706 |
LD A,(23334) |
| 27709 |
ADD A,B |
| 27710 |
INC A |
| 27711 |
JR NZ,27717 |
| 27713 |
LD (23334),A |
| 27716 |
RET |
| 27717 |
DEC A |
| 27718 |
CP 16 |
| 27720 |
RET NC |
| 27721 |
LD (23334),A |
| 27724 |
LD HL,23200 |
| 27727 |
ADD A,L |
| 27728 |
LD L,A |
| 27729 |
LD (HL),80 |
| 27731 |
LD A,B |
| 27732 |
DEC A |
| 27733 |
JR NZ,27738 |
| 27735 |
DEC HL |
| 27736 |
JR 27739 |
| 27738 |
INC HL |
| 27739 |
LD (HL),48 |
| 27741 |
RET |
| 27742 |
PUSH HL |
| 27743 |
LD A,100 |
| 27745 |
LD C,43 |
| 27747 |
CALL 24852 |
| 27750 |
POP HL |
| 27751 |
DEC H |
| 27752 |
CALL 24822 |
| 27755 |
LD A,(DE) |
| 27756 |
CP 45 |
| 27758 |
RET NZ |
| 27759 |
LD A,98 |
| 27761 |
LD C,43 |
| 27763 |
CALL 24852 |
| 27766 |
RET |
