6D0C: Routine at 6D0C
| 6D0C |
CALL StoreEntity |
| 6D0F |
LD DE,$769A |
| 6D12 |
LD A,($5E6C) |
| 6D15 |
AND A |
| 6D16 |
JR Z,$6D07 |
| 6D18 |
LD A,($5E22) |
| 6D1B |
AND A |
| 6D1C |
JR NZ,$6D07 |
| 6D1E |
LD A,($5E3B) |
| 6D21 |
CP (IX+$06) |
| 6D24 |
JR Z,$6D2D |
| 6D26 |
LD (IX+$06),A |
| 6D29 |
LD (IX+$05),$01 |
| 6D2D |
DEC (IX+$05) |
| 6D30 |
JR NZ,$6D07 |
| 6D32 |
LD A,($5E3B) |
| 6D35 |
AND A |
| 6D36 |
JR Z,$6D3E |
| 6D38 |
CP $01 |
| 6D3A |
JR Z,$6D07 |
| 6D3C |
JR $6CF1 |
| 6D3E |
DEC (IX+$02) |
| 6D41 |
LD A,(IX+$04) |
| 6D44 |
RLCA |
| 6D45 |
RLCA |
| 6D46 |
LD B,A |
| 6D47 |
LD A,(IX+$02) |
| 6D4A |
CP $70 |
| 6D4C |
JP C,$668E |
| 6D4F |
LD A,$20 |
| 6D51 |
SUB B |
| 6D52 |
LD (IX+$05),A |
| 6D55 |
LD A,($5E15) |
| 6D58 |
AND $40 |
| 6D5A |
LD ($5E15),A |
| 6D5D |
CALL $74DF |
| 6D60 |
CALL ColouriseSprite |
| 6D63 |
LD L,(IX+$01) |
| 6D66 |
LD H,(IX+$02) |
| 6D69 |
LD A,H |
| 6D6A |
CP $B8 |
| 6D6C |
JR NC,$6D84 |
| 6D6E |
CPL |
| 6D6F |
AND $07 |
| 6D71 |
JR NZ,$6D7A |
| 6D73 |
PUSH HL |
| 6D74 |
CALL AttributeAddress |
| 6D77 |
LD (HL),$7C |
| 6D79 |
POP HL |
| 6D7A |
PUSH HL |
| 6D7B |
CALL ScreenAddress |
| 6D7E |
LD (HL),$B9 |
| 6D80 |
POP HL |
| 6D81 |
INC H |
| 6D82 |
JR $6D69 |
| 6D84 |
XOR A |
| 6D85 |
LD ($5E3B),A |
| 6D88 |
LD A,(IX+$04) |
| 6D8B |
AND A |
| 6D8C |
RET M |
| 6D8D |
LD A,($5E15) |
| 6D90 |
AND $01 |
| 6D92 |
RET NZ |
| 6D93 |
LD A,(IX+$02) |
| 6D96 |
AND $0F |
| 6D98 |
RET NZ |
| 6D99 |
JP $6C0E |
