55653: Routine at 55653
| L55653 |
55653 |
LD A,(59644) |
|
55656 |
CP 255 |
|
55658 |
RET Z |
|
55659 |
LD HL,(59642) |
|
55662 |
LD DE,(59649) |
|
55666 |
LD A,D |
|
55667 |
SUB 3 |
|
55669 |
CP H |
|
55670 |
RET NC |
|
55671 |
ADD A,5 |
|
55673 |
CP H |
|
55674 |
RET C |
|
55675 |
LD A,E |
|
55676 |
SUB 3 |
|
55678 |
CP L |
|
55679 |
RET NC |
|
55680 |
ADD A,10 |
|
55682 |
CP L |
|
55683 |
RET C |
|
55684 |
LD B,100 |
|
55686 |
LD C,176 |
|
55688 |
CALL L56236 |
|
55691 |
LD A,(59644) |
|
55694 |
INC A |
|
55695 |
LD B,A |
|
55696 |
LD A,1 |
| L55653_0 |
55698 |
ADD A,A |
|
55699 |
DJNZ L55653_0 |
| L55653_1 |
55701 |
PUSH AF |
|
55702 |
CALL L56117_0 |
|
55705 |
POP AF |
|
55706 |
DEC A |
|
55707 |
JP NZ,L55653_1 |
|
55710 |
LD A,255 |
|
55712 |
LD (59644),A |
|
55715 |
LD A,(59645) |
|
55718 |
INC A |
|
55719 |
LD (59645),A |
|
55722 |
CP 5 |
|
55724 |
RET NZ |
|
55725 |
XOR A |
|
55726 |
LD (59645),A |
|
55729 |
RET |