40341: Routine at 9D95
| 40341 |
LD HL,40337 |
| 40344 |
LD C,0 |
| 40346 |
CALL 40390 |
| 40349 |
LD HL,40340 |
| 40352 |
LD C,0 |
| 40354 |
CALL 40408 |
| 40357 |
LD HL,40339 |
| 40360 |
LD C,3 |
| 40362 |
CALL 40169 |
| 40365 |
LD IX,39395 |
| 40369 |
RES 0,(IX+3) |
| 40373 |
LD IX,39409 |
| 40377 |
RES 0,(IX+3) |
| 40381 |
LD IX,39337 |
| 40385 |
RES 0,(IX+3) |
| 40389 |
RET |
| 40390 |
INC HL |
| 40391 |
CALL 40178 |
| 40394 |
DEC HL |
| 40395 |
LD A,(HL) |
| 40396 |
AND A |
| 40397 |
JP NZ,40172 |
| 40400 |
INC A |
| 40401 |
LD (HL),A |
| 40402 |
LD HL,29165 |
| 40405 |
JP 42399 |
| 40408 |
CALL 40178 |
| 40411 |
LD (HL),1 |
| 40413 |
CALL 48198 |
| 40416 |
CALL 48284 |
| 40419 |
LD A,B |
| 40420 |
AND A |
| 40421 |
JR NZ,40437 |
| 40423 |
CALL 48244 |
| 40426 |
AND A |
| 40427 |
RET Z |
| 40428 |
PUSH IX |
| 40430 |
LD HL,29229 |
| 40433 |
CALL 42399 |
| 40436 |
RET |
| 40437 |
BIT 4,(IX+3) |
| 40441 |
RET NZ |
| 40442 |
LD A,1 |
| 40444 |
JP 48101 |
