27916: Routine at 6D0C
27916 |
CALL StoreEntity |
27919 |
LD DE,30362 |
27922 |
LD A,(24172) |
27925 |
AND A |
27926 |
JR Z,27911 |
27928 |
LD A,(24098) |
27931 |
AND A |
27932 |
JR NZ,27911 |
27934 |
LD A,(24123) |
27937 |
CP (IX+6) |
27940 |
JR Z,27949 |
27942 |
LD (IX+6),A |
27945 |
LD (IX+5),1 |
27949 |
DEC (IX+5) |
27952 |
JR NZ,27911 |
27954 |
LD A,(24123) |
27957 |
AND A |
27958 |
JR Z,27966 |
27960 |
CP 1 |
27962 |
JR Z,27911 |
27964 |
JR 27889 |
27966 |
DEC (IX+2) |
27969 |
LD A,(IX+4) |
27972 |
RLCA |
27973 |
RLCA |
27974 |
LD B,A |
27975 |
LD A,(IX+2) |
27978 |
CP 112 |
27980 |
JP C,26254 |
27983 |
LD A,32 |
27985 |
SUB B |
27986 |
LD (IX+5),A |
27989 |
LD A,(24085) |
27992 |
AND 64 |
27994 |
LD (24085),A |
27997 |
CALL 29919 |
28000 |
CALL ColouriseSprite |
28003 |
LD L,(IX+1) |
28006 |
LD H,(IX+2) |
28009 |
LD A,H |
28010 |
CP 184 |
28012 |
JR NC,28036 |
28014 |
CPL |
28015 |
AND 7 |
28017 |
JR NZ,28026 |
28019 |
PUSH HL |
28020 |
CALL AttributeAddress |
28023 |
LD (HL),124 |
28025 |
POP HL |
28026 |
PUSH HL |
28027 |
CALL ScreenAddress |
28030 |
LD (HL),185 |
28032 |
POP HL |
28033 |
INC H |
28034 |
JR 28009 |
28036 |
XOR A |
28037 |
LD (24123),A |
28040 |
LD A,(IX+4) |
28043 |
AND A |
28044 |
RET M |
28045 |
LD A,(24085) |
28048 |
AND 1 |
28050 |
RET NZ |
28051 |
LD A,(IX+2) |
28054 |
AND 15 |
28056 |
RET NZ |
28057 |
JP 27662 |