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 Handler_Flak |
| 24739 |
CALL 27172 |
| 24742 |
CALL 27354 |
| 24745 |
CALL 28574 |
| 24748 |
CALL 28632 |
| 24751 |
CALL 28669 |
| 24754 |
CALL 28840 |
| 24757 |
RET |
