41040: Routine at A050
41040 |
PUSH IX |
41042 |
PUSH BC |
41043 |
PUSH DE |
41044 |
LD C,A |
41045 |
CALL LocateObject |
41048 |
LD A,(IX+7) |
41051 |
AND 40 |
41053 |
JR Z,41111 |
41055 |
LD A,C |
41056 |
CALL ObjectCount |
41059 |
CP 0 |
41061 |
JR Z,41111 |
41063 |
BIT 6,(IX+7) |
41067 |
JR Z,41076 |
41069 |
LD A,C |
41070 |
PUSH AF |
41071 |
LD HL,44537 |
41074 |
JR 41102 |
41076 |
LD HL,923 |
41079 |
DEC A |
41080 |
JR Z,41085 |
41082 |
LD HL,101 |
41085 |
PUSH HL |
41086 |
LD L,(IX+8) |
41089 |
LD A,(IX+9) |
41092 |
AND 15 |
41094 |
LD H,A |
41095 |
PUSH HL |
41096 |
CALL 41117 |
41099 |
LD HL,45024 |
41102 |
CALL PrintMsg |
41105 |
AND A |
41106 |
POP DE |
41107 |
POP BC |
41108 |
POP IX |
41110 |
RET |
41111 |
CALL 34179 |
41114 |
SCF |
41115 |
JR 41106 |
41117 |
LD HL,45002 |
41120 |
LD A,(IX+4) |
41123 |
RLCA |
41124 |
RLCA |
41125 |
AND 60 |
41127 |
LD E,A |
41128 |
LD D,0 |
41130 |
ADD HL,DE |
41131 |
JP PrintMsg |