698F: Routine at 698F
| 698F |
CALL StoreEntity |
| 6992 |
LD A,(IX+$05) |
| 6995 |
AND A |
| 6996 |
JR NZ,$69B3 |
| 6998 |
LD A,$04 |
| 699A |
BIT 6,(IX+$00) |
| 699E |
JR Z,$69A2 |
| 69A0 |
NEG |
| 69A2 |
ADD A,(IX+$01) |
| 69A5 |
CP $18 |
| 69A7 |
JR C,$69B3 |
| 69A9 |
CP $E0 |
| 69AB |
JR NC,$69B3 |
| 69AD |
LD (IX+$01),A |
| 69B0 |
JP $6F31 |
| 69B3 |
CALL $7526 |
| 69B6 |
LD (IX+$00),$00 |
| 69BA |
RET |
| 69BB |
CALL $696B |
| 69BE |
JR Z,$69DF |
| 69C0 |
CP $38 |
| 69C2 |
RET C |
| 69C3 |
SUB $0C |
| 69C5 |
LD (HL),$52 |
| 69C7 |
PUSH AF |
| 69C8 |
PUSH HL |
| 69C9 |
LD A,($5E19) |
| 69CC |
AND $03 |
| 69CE |
LD C,A |
| 69CF |
LD B,$00 |
| 69D1 |
LD HL,$69DB |
| 69D4 |
ADD HL,BC |
| 69D5 |
LD B,(HL) |
| 69D6 |
POP HL |
| 69D7 |
POP AF |
| 69D8 |
JP $6BA5 |
| 69DB |
LD B,A |
| 69DC |
LD B,(HL) |
| 69DD |
LD B,L |
| 69DE |
LD B,E |
| 69DF |
CP $B8 |
| 69E1 |
RET NC |
| 69E2 |
ADD A,$18 |
| 69E4 |
LD (HL),$12 |
| 69E6 |
JR $69C7 |
