60604: Routine at ECBC
60604 |
LD E,(HL) |
60605 |
INC HL |
60606 |
LD D,0 |
60608 |
PUSH HL |
60609 |
LD HL,60508 |
60612 |
ADD HL,DE |
60613 |
ADD HL,DE |
60614 |
ADD HL,DE |
60615 |
LD A,(HL) |
60616 |
OR A |
60617 |
JR NZ,60657 |
60619 |
LD (HL),1 |
60621 |
INC HL |
60622 |
LD A,(IY-10) |
60625 |
ADD A,(HL) |
60626 |
DAA |
60627 |
LD (IY-10),A |
60630 |
INC HL |
60631 |
LD A,(IY-30) |
60634 |
ADC A,(HL) |
60635 |
DAA |
60636 |
LD (IY-30),A |
60639 |
DEC HL |
60640 |
LD A,(60671) |
60643 |
ADD A,(HL) |
60644 |
DAA |
60645 |
LD (60671),A |
60648 |
INC HL |
60649 |
LD A,(60670) |
60652 |
ADC A,(HL) |
60653 |
DAA |
60654 |
LD (60670),A |
60657 |
POP HL |
60658 |
JP 60139 |