41652: Action: Untie
| ActionUntie |
41652 |
LD IX,(46856) |
|
41656 |
LD A,(IX+1) |
|
41659 |
CP 18 |
|
41661 |
LD HL,45202 |
|
41664 |
JP NZ,PrintMsg |
|
41667 |
CALL 40260 |
|
41670 |
LD A,(50023) |
|
41673 |
LD (IX+1),A |
|
41676 |
RET |
|
41677 |
CALL 40741 |
|
41680 |
LD A,(IX+2) |
|
41683 |
CP 0 |
|
41685 |
JR NZ,ActionUntie_0 |
|
41687 |
CALL 40260 |
|
41690 |
RET |
| ActionUntie_0 |
41691 |
LD A,(IX+0) |
|
41694 |
LD HL,(46823) |
|
41697 |
PUSH HL |
|
41698 |
LD (46823),A |
|
41701 |
LD IX,(46856) |
|
41705 |
SET 5,(IX+7) |
|
41709 |
PUSH IX |
|
41711 |
LD A,255 |
|
41713 |
LD (46824),A |
|
41716 |
CALL Action_Dir_0 |
|
41719 |
POP IX |
|
41721 |
RES 5,(IX+7) |
|
41725 |
POP HL |
|
41726 |
LD (46823),HL |
|
41729 |
RET |
