39702: Routine at 9B16
| 39702 |
LD A,255 |
| 39704 |
LD (46825),A |
| 39707 |
LD A,(IX+1) |
| 39710 |
LD (46824),A |
| 39713 |
CALL LocateObject |
| 39716 |
BIT 3,(IX+7) |
| 39720 |
JP NZ,39024 |
| 39723 |
BIT 6,(IX+7) |
| 39727 |
JP NZ,39024 |
| 39730 |
BIT 5,(IX+7) |
| 39734 |
JP Z,39169 |
| 39737 |
LD A,55 |
| 39739 |
LD (46823),A |
| 39742 |
CALL 39366 |
| 39745 |
JP 39169 |
| 39748 |
LD A,(46824) |
| 39751 |
INC A |
| 39752 |
JR NZ,39756 |
| 39754 |
INC A |
| 39755 |
RET |
| 39756 |
LD A,(46846) |
| 39759 |
AND A |
| 39760 |
JR NZ,39775 |
| 39762 |
LD HL,46824 |
| 39765 |
LD A,(46826) |
| 39768 |
CP (HL) |
| 39769 |
RET Z |
| 39770 |
LD A,(46825) |
| 39773 |
CP (HL) |
| 39774 |
RET Z |
| 39775 |
LD A,(46847) |
| 39778 |
AND A |
| 39779 |
RET NZ |
| 39780 |
LD A,(46825) |
| 39783 |
LD HL,46826 |
| 39786 |
CP (HL) |
| 39787 |
RET |
