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 |