6BD0: Routine at 6BD0
| 6BD0 |
CALL StoreEntity |
| 6BD3 |
LD A,(IX+$05) |
| 6BD6 |
AND A |
| 6BD7 |
JP NZ,$69B3 |
| 6BDA |
INC (IX+$04) |
| 6BDD |
LD A,(IX+$04) |
| 6BE0 |
AND $0F |
| 6BE2 |
CALL Z,$6C02 |
| 6BE5 |
LD A,$04 |
| 6BE7 |
BIT 6,(IX+$00) |
| 6BEB |
JR Z,$6BEF |
| 6BED |
NEG |
| 6BEF |
ADD A,(IX+$01) |
| 6BF2 |
CP $18 |
| 6BF4 |
JP C,$69B3 |
| 6BF7 |
CP $D8 |
| 6BF9 |
JP NC,$69B3 |
| 6BFC |
LD (IX+$01),A |
| 6BFF |
JP $6F31 |
| 6C02 |
LD A,(IX+$00) |
| 6C05 |
AND $3F |
| 6C07 |
CP $06 |
| 6C09 |
RET NC |
| 6C0A |
INC (IX+$00) |
| 6C0D |
RET |
| 6C0E |
LD HL,$5E94 |
| 6C11 |
LD B,$04 |
| 6C13 |
LD DE,$0008 |
| 6C16 |
LD A,(HL) |
| 6C17 |
AND A |
| 6C18 |
JR Z,$6C1E |
| 6C1A |
ADD HL,DE |
| 6C1B |
DJNZ $6C16 |
| 6C1D |
RET |
| 6C1E |
LD A,($5E15) |
| 6C21 |
XOR $40 |
| 6C23 |
OR $01 |
| 6C25 |
LD ($5E15),A |
| 6C28 |
PUSH HL |
| 6C29 |
EX DE,HL |
| 6C2A |
LD HL,$5F38 |
| 6C2D |
LD BC,$0008 |
| 6C30 |
LDIR |
| 6C32 |
POP HL |
| 6C33 |
LD A,($5E15) |
| 6C36 |
AND $40 |
| 6C38 |
LD DE,$5E8D |
| 6C3B |
LD A,(DE) |
| 6C3C |
JR Z,$6C4D |
| 6C3E |
ADD A,$08 |
| 6C40 |
INC HL |
| 6C41 |
LD (HL),A |
| 6C42 |
INC DE |
| 6C43 |
INC HL |
| 6C44 |
LD A,(DE) |
| 6C45 |
ADD A,$07 |
| 6C47 |
LD (HL),A |
| 6C48 |
LD HL,$5E90 |
| 6C4B |
INC (HL) |
| 6C4C |
RET |
| 6C4D |
SET 6,(HL) |
| 6C4F |
SUB $10 |
| 6C51 |
JR $6C40 |
