27600: Routine at 6BD0
| 27600 |
CALL StoreEntity |
| 27603 |
LD A,(IX+5) |
| 27606 |
AND A |
| 27607 |
JP NZ,27059 |
| 27610 |
INC (IX+4) |
| 27613 |
LD A,(IX+4) |
| 27616 |
AND 15 |
| 27618 |
CALL Z,27650 |
| 27621 |
LD A,4 |
| 27623 |
BIT 6,(IX+0) |
| 27627 |
JR Z,27631 |
| 27629 |
NEG |
| 27631 |
ADD A,(IX+1) |
| 27634 |
CP 24 |
| 27636 |
JP C,27059 |
| 27639 |
CP 216 |
| 27641 |
JP NC,27059 |
| 27644 |
LD (IX+1),A |
| 27647 |
JP 28465 |
| 27650 |
LD A,(IX+0) |
| 27653 |
AND 63 |
| 27655 |
CP 6 |
| 27657 |
RET NC |
| 27658 |
INC (IX+0) |
| 27661 |
RET |
| 27662 |
LD HL,24212 |
| 27665 |
LD B,4 |
| 27667 |
LD DE,8 |
| 27670 |
LD A,(HL) |
| 27671 |
AND A |
| 27672 |
JR Z,27678 |
| 27674 |
ADD HL,DE |
| 27675 |
DJNZ 27670 |
| 27677 |
RET |
| 27678 |
LD A,(24085) |
| 27681 |
XOR 64 |
| 27683 |
OR 1 |
| 27685 |
LD (24085),A |
| 27688 |
PUSH HL |
| 27689 |
EX DE,HL |
| 27690 |
LD HL,24376 |
| 27693 |
LD BC,8 |
| 27696 |
LDIR |
| 27698 |
POP HL |
| 27699 |
LD A,(24085) |
| 27702 |
AND 64 |
| 27704 |
LD DE,24205 |
| 27707 |
LD A,(DE) |
| 27708 |
JR Z,27725 |
| 27710 |
ADD A,8 |
| 27712 |
INC HL |
| 27713 |
LD (HL),A |
| 27714 |
INC DE |
| 27715 |
INC HL |
| 27716 |
LD A,(DE) |
| 27717 |
ADD A,7 |
| 27719 |
LD (HL),A |
| 27720 |
LD HL,24208 |
| 27723 |
INC (HL) |
| 27724 |
RET |
| 27725 |
SET 6,(HL) |
| 27727 |
SUB 16 |
| 27729 |
JR 27712 |
