27112: Routine at 69E8
| 27112 |
CALL StoreEntity |
| 27115 |
LD A,(IX+5) |
| 27118 |
AND A |
| 27119 |
JR NZ,27185 |
| 27121 |
LD A,8 |
| 27123 |
BIT 6,(IX+0) |
| 27127 |
JR Z,27131 |
| 27129 |
NEG |
| 27131 |
ADD A,(IX+1) |
| 27134 |
CP 24 |
| 27136 |
JR C,27185 |
| 27138 |
CP 224 |
| 27140 |
JR NC,27185 |
| 27142 |
LD (IX+1),A |
| 27145 |
AND 8 |
| 27147 |
JR Z,27175 |
| 27149 |
LD DE,31121 |
| 27152 |
CALL 29888 |
| 27155 |
EXX |
| 27156 |
LD A,(24075) |
| 27159 |
AND 8 |
| 27161 |
JR Z,27180 |
| 27163 |
LD DE,31121 |
| 27166 |
CALL 29864 |
| 27169 |
CALL 29938 |
| 27172 |
JP ColouriseSprite |
| 27175 |
LD DE,31138 |
| 27178 |
JR 27152 |
| 27180 |
LD DE,31138 |
| 27183 |
JR 27166 |
| 27185 |
LD DE,31121 |
| 27188 |
CALL 29985 |
| 27191 |
LD DE,31138 |
| 27194 |
CALL 29985 |
| 27197 |
LD (IX+0),0 |
| 27201 |
RET |
| 27202 |
LD HL,24188 |
| 27205 |
LD B,2 |
| 27207 |
LD A,(IX+1) |
| 27210 |
LD C,(HL) |
| 27211 |
INC HL |
| 27212 |
SUB (HL) |
| 27213 |
JP P,27218 |
| 27216 |
NEG |
| 27218 |
CP 16 |
| 27220 |
JR NC,27243 |
| 27222 |
LD A,(IX+2) |
| 27225 |
INC HL |
| 27226 |
SUB (HL) |
| 27227 |
JP P,27232 |
| 27230 |
NEG |
| 27232 |
CP 13 |
| 27234 |
JR NC,27243 |
| 27236 |
INC HL |
| 27237 |
INC HL |
| 27238 |
INC HL |
| 27239 |
LD E,1 |
| 27241 |
LD (HL),E |
| 27242 |
RET |
| 27243 |
LD HL,24196 |
| 27246 |
DJNZ 27207 |
| 27248 |
LD E,0 |
| 27250 |
RET |
