57913: Routine at 57913
| L57913 |
57913 |
CALL L58863 |
|
57916 |
AND 3 |
|
57918 |
RET NZ |
|
57919 |
LD IX,60081 |
|
57923 |
LD D,4 |
| L57913_0 |
57925 |
LD A,(IX+2) |
|
57928 |
CP 255 |
|
57930 |
JP Z,L57913_1 |
|
57933 |
INC IX |
|
57935 |
INC IX |
|
57937 |
INC IX |
|
57939 |
DEC D |
|
57940 |
JP NZ,L57913_0 |
|
57943 |
RET |
| L57913_1 |
57944 |
LD A,C |
|
57945 |
AND 7 |
|
57947 |
RLA |
|
57948 |
DEC A |
|
57949 |
LD (IX+0),A |
|
57952 |
LD A,C |
|
57953 |
RRA |
|
57954 |
RRA |
|
57955 |
AND 30 |
|
57957 |
LD D,A |
|
57958 |
LD A,(59786) |
|
57961 |
RRA |
|
57962 |
CPL |
|
57963 |
AND 1 |
|
57965 |
OR D |
|
57966 |
ADD A,3 |
|
57968 |
LD (IX+1),A |
|
57971 |
LD (IX+2),0 |
|
57975 |
JP L56250 |