24653: Routine at 604D
| 24653 |
LD BC,255 |
| 24656 |
LD HL,22785 |
| 24659 |
LD DE,22784 |
| 24662 |
LDIR |
| 24664 |
LD BC,2047 |
| 24667 |
LD HL,18433 |
| 24670 |
LD DE,18432 |
| 24673 |
LDIR |
| 24675 |
BIT 3,A |
| 24677 |
CALL NZ,27913 |
| 24680 |
CALL 28174 |
| 24683 |
LD B,16 |
| 24685 |
LD HL,31 |
| 24688 |
PUSH BC |
| 24689 |
PUSH HL |
| 24690 |
XOR A |
| 24691 |
LD C,45 |
| 24693 |
CALL 24852 |
| 24696 |
POP HL |
| 24697 |
INC H |
| 24698 |
POP BC |
| 24699 |
DJNZ 24688 |
| 24701 |
LD BC,31 |
| 24704 |
LD HL,20481 |
| 24707 |
LD DE,20480 |
| 24710 |
LDIR |
| 24712 |
CALL 24758 |
| 24715 |
LD A,L |
| 24716 |
LD (26064),A |
| 24719 |
LD A,H |
| 24720 |
LD (20511),A |
| 24723 |
CALL 24904 |
| 24726 |
LD HL,(23340) |
| 24729 |
INC HL |
| 24730 |
LD (23340),HL |
| 24733 |
CALL 25028 |
| 24736 |
CALL 27048 |
| 24739 |
CALL 27172 |
| 24742 |
CALL 27354 |
| 24745 |
CALL 28574 |
| 24748 |
CALL 28632 |
| 24751 |
CALL 28669 |
| 24754 |
CALL 28840 |
| 24757 |
RET |
| 24758 |
LD HL,(23349) |
| 24761 |
LD D,H |
| 24762 |
LD E,L |
| 24763 |
ADD HL,HL |
| 24764 |
ADD HL,HL |
| 24765 |
ADD HL,HL |
| 24766 |
ADD HL,HL |
| 24767 |
PUSH HL |
| 24768 |
ADD HL,HL |
| 24769 |
EX (SP),HL |
| 24770 |
OR A |
| 24771 |
SBC HL,DE |
| 24773 |
POP BC |
| 24774 |
ADD HL,BC |
| 24775 |
ADD HL,HL |
| 24776 |
ADD HL,HL |
| 24777 |
ADD HL,HL |
| 24778 |
ADD HL,DE |
| 24779 |
ADD HL,HL |
| 24780 |
ADD HL,HL |
| 24781 |
ADD HL,DE |
| 24782 |
LD DE,41 |
| 24785 |
ADD HL,DE |
| 24786 |
LD (23349),HL |
| 24789 |
RET |
