34161: Routine at 8571
| 34161 |
CALL 37780 |
| 34164 |
LD HL,(28066) |
| 34167 |
LD H,0 |
| 34169 |
LD DE,(28064) |
| 34173 |
LD D,88 |
| 34175 |
LD B,5 |
| 34177 |
ADD HL,HL |
| 34178 |
DJNZ 34177 |
| 34180 |
ADD HL,DE |
| 34181 |
LD A,(28069) |
| 34184 |
LD DE,32 |
| 34187 |
LD C,0 |
| 34189 |
CALL 34266 |
| 34192 |
INC HL |
| 34193 |
LD A,L |
| 34194 |
AND 31 |
| 34196 |
OR A |
| 34197 |
JR Z,34203 |
| 34199 |
BIT 6,(HL) |
| 34201 |
JR NZ,34189 |
| 34203 |
DEC HL |
| 34204 |
JR 34209 |
| 34206 |
CALL 34266 |
| 34209 |
ADD HL,DE |
| 34210 |
LD A,H |
| 34211 |
CP 91 |
| 34213 |
JR Z,34219 |
| 34215 |
BIT 6,(HL) |
| 34217 |
JR NZ,34206 |
| 34219 |
AND A |
| 34220 |
SBC HL,DE |
| 34222 |
JR 34227 |
| 34224 |
CALL 34266 |
| 34227 |
DEC HL |
| 34228 |
LD A,L |
| 34229 |
AND 31 |
| 34231 |
CP 31 |
| 34233 |
JR Z,34239 |
| 34235 |
BIT 6,(HL) |
| 34237 |
JR NZ,34224 |
| 34239 |
INC HL |
| 34240 |
JR 34245 |
| 34242 |
CALL 34266 |
| 34245 |
AND A |
| 34246 |
SBC HL,DE |
| 34248 |
LD A,H |
| 34249 |
CP 88 |
| 34251 |
JR C,34257 |
| 34253 |
BIT 6,(HL) |
| 34255 |
JR NZ,34242 |
| 34257 |
ADD HL,DE |
| 34258 |
LD A,C |
| 34259 |
OR A |
| 34260 |
RET Z |
| 34261 |
LD C,0 |
| 34263 |
JP 34192 |
| 34266 |
LD C,1 |
| 34268 |
LD (HL),9 |
| 34270 |
PUSH AF |
| 34271 |
PUSH BC |
| 34272 |
LD B,2 |
| 34274 |
DEC BC |
| 34275 |
LD A,B |
| 34276 |
OR C |
| 34277 |
JR NZ,34274 |
| 34279 |
POP BC |
| 34280 |
POP AF |
| 34281 |
RET |
