28174: Routine at 6E0E
| 28174 |
LD A,(23347) |
| 28177 |
OR A |
| 28178 |
JR NZ,28233 |
| 28180 |
LD A,(23330) |
| 28183 |
OR A |
| 28184 |
RET NZ |
| 28185 |
INC A |
| 28186 |
LD HL,23317 |
| 28189 |
CP (HL) |
| 28190 |
RET Z |
| 28191 |
LD A,(23348) |
| 28194 |
OR A |
| 28195 |
JR NZ,28203 |
| 28197 |
LD A,(23296) |
| 28200 |
CP 11 |
| 28202 |
RET NC |
| 28203 |
LD BC,61438 |
| 28206 |
IN A,(C) |
| 28208 |
BIT 1,A |
| 28210 |
RET NZ |
| 28211 |
DEC HL |
| 28212 |
CALL 27623 |
| 28215 |
LD A,1 |
| 28217 |
LD (23347),A |
| 28220 |
LD HL,(23328) |
| 28223 |
LD (23345),HL |
| 28226 |
LD A,3 |
| 28228 |
LD (23344),A |
| 28231 |
JR 28247 |
| 28233 |
DEC A |
| 28234 |
JR NZ,28264 |
| 28236 |
LD HL,23344 |
| 28239 |
DEC (HL) |
| 28240 |
JR NZ,28247 |
| 28242 |
LD A,2 |
| 28244 |
LD (23347),A |
| 28247 |
LD HL,(23345) |
| 28250 |
INC H |
| 28251 |
LD C,94 |
| 28253 |
LD (23345),HL |
| 28256 |
CALL 28312 |
| 28259 |
RET NZ |
| 28260 |
LD (23347),A |
| 28263 |
RET |
| 28264 |
LD HL,(23345) |
| 28267 |
DEC L |
| 28268 |
JR NZ,28275 |
| 28270 |
XOR A |
| 28271 |
LD (23347),A |
| 28274 |
RET |
| 28275 |
PUSH HL |
| 28276 |
XOR A |
| 28277 |
LD C,45 |
| 28279 |
CALL 24852 |
| 28282 |
POP HL |
| 28283 |
INC H |
| 28284 |
LD C,95 |
| 28286 |
LD (23345),HL |
| 28289 |
CALL 28312 |
| 28292 |
RET NZ |
| 28293 |
LD (23347),A |
| 28296 |
RET |
