25664: Routine at 6440
| 25664 |
LD A,10 |
| 25666 |
NOP |
| 25667 |
LD C,A |
| 25668 |
INC B |
| 25669 |
INC C |
| 25670 |
LD HL,40990 |
| 25673 |
PUSH HL |
| 25674 |
LD DE,46080 |
| 25677 |
DEC (HL) |
| 25678 |
JR Z,25688 |
| 25680 |
LD E,36 |
| 25682 |
INC H |
| 25683 |
DEC (HL) |
| 25684 |
JR Z,25688 |
| 25686 |
LD E,72 |
| 25688 |
POP HL |
| 25689 |
PUSH HL |
| 25690 |
INC L |
| 25691 |
INC L |
| 25692 |
JR NZ,25698 |
| 25694 |
LD A,H |
| 25695 |
ADD A,5 |
| 25697 |
LD H,A |
| 25698 |
INC L |
| 25699 |
LD A,(HL) |
| 25700 |
DEC A |
| 25701 |
JR Z,25712 |
| 25703 |
INC H |
| 25704 |
LD A,(HL) |
| 25705 |
DEC A |
| 25706 |
LD A,12 |
| 25708 |
JR Z,25712 |
| 25710 |
LD A,24 |
| 25712 |
ADD A,E |
| 25713 |
LD E,A |
| 25714 |
POP HL |
| 25715 |
DEC H |
| 25716 |
LD B,4 |
| 25718 |
LD A,(DE) |
| 25719 |
LD (HL),A |
| 25720 |
INC H |
| 25721 |
INC E |
| 25722 |
DJNZ 25718 |
| 25724 |
DEC H |
| 25725 |
DEC H |
| 25726 |
DEC H |
| 25727 |
DEC H |
| 25728 |
INC L |
| 25729 |
LD B,4 |
| 25731 |
LD A,(DE) |
| 25732 |
LD (HL),A |
| 25733 |
INC H |
| 25734 |
INC E |
| 25735 |
DJNZ 25731 |
| 25737 |
INC H |
| 25738 |
INC L |
| 25739 |
JR Z,25745 |
| 25741 |
LD A,H |
| 25742 |
SUB 5 |
| 25744 |
LD H,A |
| 25745 |
LD B,4 |
| 25747 |
LD A,(DE) |
| 25748 |
LD (HL),A |
| 25749 |
INC H |
| 25750 |
INC E |
| 25751 |
DJNZ 25747 |
| 25753 |
DEC H |
| 25754 |
DEC H |
| 25755 |
DEC H |
| 25756 |
LD A,L |
| 25757 |
ADD A,30 |
| 25759 |
LD L,A |
| 25760 |
DEC C |
| 25761 |
JR NZ,25673 |
| 25763 |
RET |
