55079: Routine at 55079
| L55079 |
55079 |
LD A,(59682) |
|
55082 |
AND A |
|
55083 |
JP Z,L55079_1 |
|
55086 |
DEC A |
|
55087 |
LD (59682),A |
|
55090 |
AND A |
|
55091 |
JP NZ,L55079_0 |
|
55094 |
INC A |
|
55095 |
LD (59679),A |
|
55098 |
XOR A |
|
55099 |
LD (59651),A |
| L55079_0 |
55102 |
LD DE,(59640) |
|
55106 |
SRL D |
|
55108 |
SRL E |
|
55110 |
LD A,(59674) |
|
55113 |
RRA |
|
55114 |
CALL C,L56342 |
|
55117 |
JP L55079_2 |
| L55079_1 |
55120 |
LD A,(59678) |
|
55123 |
CP 1 |
|
55125 |
RET NZ |
|
55126 |
LD A,(59638) |
|
55129 |
INC A |
|
55130 |
LD (59638),A |
|
55133 |
CP 16 |
|
55135 |
JP NZ,L55079_2 |
|
55138 |
XOR A |
|
55139 |
LD (59638),A |
| L55079_2 |
55142 |
LD A,(59677) |
|
55145 |
DEC A |
|
55146 |
LD (59677),A |
|
55149 |
RET NZ |
|
55150 |
INC A |
|
55151 |
LD (59677),A |
|
55154 |
LD BC,(59640) |
|
55158 |
LD A,(59639) |
|
55161 |
RRA |
|
55162 |
JP C,L55079_3 |
|
55165 |
INC B |
|
55166 |
LD A,B |
|
55167 |
CP 20 |
|
55169 |
JP Z,L55079_4 |
|
55172 |
JP L55079_5 |
| L55079_3 |
55175 |
DEC B |
|
55176 |
LD A,B |
|
55177 |
CP 4 |
|
55179 |
JP NZ,L55079_5 |
| L55079_4 |
55182 |
LD A,(59639) |
|
55185 |
XOR 1 |
|
55187 |
LD (59639),A |
| L55079_5 |
55190 |
LD A,(59639) |
|
55193 |
RRA |
|
55194 |
RRA |
|
55195 |
JP C,L55079_6 |
|
55198 |
INC C |
|
55199 |
LD A,C |
|
55200 |
CP 52 |
|
55202 |
JP Z,L55079_7 |
|
55205 |
JP L55079_8 |
| L55079_6 |
55208 |
DEC C |
|
55209 |
LD A,C |
|
55210 |
CP 12 |
|
55212 |
JP NZ,L55079_8 |
| L55079_7 |
55215 |
LD A,(59639) |
|
55218 |
XOR 2 |
|
55220 |
LD (59639),A |
| L55079_8 |
55223 |
LD (59640),BC |
|
55227 |
RET |