42624: Routine at A680
| 42624 |
CALL StoreEntity |
| 42627 |
LD L,(IX+6) |
| 42630 |
LD H,(IX+7) |
| 42633 |
LD A,H |
| 42634 |
OR L |
| 42635 |
JR Z,42708 |
| 42637 |
LD A,(38658) |
| 42640 |
SUB 16 |
| 42642 |
CP 32 |
| 42644 |
JR NC,42653 |
| 42646 |
LD A,(38581) |
| 42649 |
AND A |
| 42650 |
JR NZ,42653 |
| 42652 |
DEC HL |
| 42653 |
LD (IX+6),L |
| 42656 |
LD (IX+7),H |
| 42659 |
CALL 42807 |
| 42662 |
CALL DisplayEntity |
| 42665 |
LD L,(IX+3) |
| 42668 |
LD H,(IX+4) |
| 42671 |
CALL AttributeAddress |
| 42674 |
LD C,1 |
| 42676 |
LD D,68 |
| 42678 |
LD B,2 |
| 42680 |
CALL 42696 |
| 42683 |
LD A,(IX+0) |
| 42686 |
AND %00000111 |
| 42688 |
RET Z |
| 42689 |
LD C,1 |
| 42691 |
LD D,(IX+5) |
| 42694 |
LD B,2 |
| 42696 |
LD A,(IX+0) |
| 42699 |
CPL |
| 42700 |
AND %00000111 |
| 42702 |
JR NZ,42705 |
| 42704 |
INC B |
| 42705 |
JP AttrDrawUnchanged |