58579: Routine at E4D3
| 58579 |
LD HL,58554 |
| 58582 |
LD IX,58566 |
| 58586 |
LD DE,0 |
| 58589 |
LD B,11 |
| 58591 |
LD C,(HL) |
| 58592 |
PUSH HL |
| 58593 |
LD E,(IX+0) |
| 58596 |
INC IX |
| 58598 |
LD HL,58554 |
| 58601 |
ADD HL,DE |
| 58602 |
LD A,(HL) |
| 58603 |
LD (58577),HL |
| 58606 |
POP HL |
| 58607 |
LD (HL),A |
| 58608 |
LD HL,(58577) |
| 58611 |
DJNZ 58592 |
| 58613 |
LD (HL),C |
| 58614 |
RET |
| 58615 |
PUSH HL |
| 58616 |
LD HL,(57552) |
| 58619 |
LD A,(HL) |
| 58620 |
RLCA |
| 58621 |
RLCA |
| 58622 |
RLCA |
| 58623 |
PUSH AF |
| 58624 |
LD A,R |
| 58626 |
AND 31 |
| 58628 |
LD H,A |
| 58629 |
INC L |
| 58630 |
LD (57552),HL |
| 58633 |
POP AF |
| 58634 |
LD (57552),HL |
| 58637 |
LD HL,54593 |
| 58640 |
SRL A |
| 58642 |
SRL A |
| 58644 |
CP (HL) |
| 58645 |
JP P,58642 |
| 58648 |
INC A |
| 58649 |
LD B,0 |
| 58651 |
LD C,A |
| 58652 |
POP HL |
| 58653 |
RET |
| 58654 |
LD HL,57502 |
| 58657 |
LD A,(54594) |
| 58660 |
CP 0 |
| 58662 |
JP NZ,58671 |
| 58665 |
LD A,0 |
| 58667 |
LD (57554),A |
| 58670 |
RET |
| 58671 |
LD A,(HL) |
| 58672 |
PUSH HL |
| 58673 |
POP DE |
| 58674 |
INC HL |
| 58675 |
LD (57554),A |
| 58678 |
LD A,(54594) |
| 58681 |
DEC A |
| 58682 |
CP 0 |
| 58684 |
JP NZ,58691 |
| 58687 |
LD C,1 |
| 58689 |
JR 58692 |
| 58691 |
LD C,A |
| 58692 |
LD B,0 |
| 58694 |
LDIR |
| 58696 |
LD (54594),A |
| 58699 |
RET |
| 58700 |
LD A,(57554) |
| 58703 |
CP 21 |
| 58705 |
JP M,58709 |
| 58708 |
RET |
| 58709 |
LD HL,57502 |
| 58712 |
LD B,0 |
| 58714 |
LD A,(54594) |
| 58717 |
LD C,A |
| 58718 |
INC A |
| 58719 |
LD (54594),A |
| 58722 |
ADD HL,BC |
| 58723 |
LD A,(57554) |
| 58726 |
LD (HL),A |
| 58727 |
RET |
