6DBA: Routine at 6DBA
| 6DBA |
LD HL,$5E22 |
| 6DBD |
LD A,(HL) |
| 6DBE |
AND A |
| 6DBF |
JR Z,$6DDB |
| 6DC1 |
DEC (HL) |
| 6DC2 |
JP NZ,$619E |
| 6DC5 |
LD A,($5E1E) |
| 6DC8 |
AND A |
| 6DC9 |
JR NZ,$6DD6 |
| 6DCB |
LD HL,$0018 |
| 6DCE |
CALL $61B4 |
| 6DD1 |
CALL $64E7 |
| 6DD4 |
JR $6DDB |
| 6DD6 |
LD HL,$00D8 |
| 6DD9 |
JR $6DCE |
| 6DDB |
LD A,(IX+$01) |
| 6DDE |
CP $20 |
| 6DE0 |
JR C,$6DEA |
| 6DE2 |
CP $D0 |
| 6DE4 |
JR NC,$6DEA |
| 6DE6 |
RES 2,(IX+$04) |
| 6DEA |
CALL StoreEntity |
| 6DED |
CALL ReadInput |
| 6DF0 |
BIT 0,A |
| 6DF2 |
JR Z,$6E11 |
| 6DF4 |
BIT 1,A |
| 6DF6 |
JR Z,$6E1F |
| 6DF8 |
LD A,(IX+$01) |
| 6DFB |
CP $18 |
| 6DFD |
JR C,$6E0E |
| 6DFF |
CP $D8 |
| 6E01 |
JR NC,$6E0E |
| 6E03 |
CALL ReadInput |
| 6E06 |
BIT 3,A |
| 6E08 |
JR Z,$6E2A |
| 6E0A |
BIT 2,A |
| 6E0C |
JR Z,$6E38 |
| 6E0E |
JP $6F31 |
| 6E11 |
LD A,(IX+$01) |
| 6E14 |
ADD A,$02 |
| 6E16 |
CP $D8 |
| 6E18 |
JR NC,$6E43 |
| 6E1A |
LD (IX+$01),A |
| 6E1D |
JR $6DF8 |
| 6E1F |
LD A,(IX+$01) |
| 6E22 |
SUB $02 |
| 6E24 |
CP $18 |
| 6E26 |
JR C,$6E43 |
| 6E28 |
JR $6E1A |
| 6E2A |
LD A,(IX+$02) |
| 6E2D |
SUB $02 |
| 6E2F |
CP $28 |
| 6E31 |
JR C,$6E0E |
| 6E33 |
LD (IX+$02),A |
| 6E36 |
JR $6E0E |
| 6E38 |
LD A,(IX+$02) |
| 6E3B |
ADD A,$02 |
| 6E3D |
CP $B8 |
| 6E3F |
JR NC,$6E0E |
| 6E41 |
JR $6E33 |
| 6E43 |
CALL $7049 |
| 6E46 |
BIT 0,E |
| 6E48 |
JR Z,$6DF8 |
| 6E4A |
BIT 1,E |
| 6E4C |
LD A,(IX+$01) |
| 6E4F |
JR Z,$6E60 |
| 6E51 |
ADD A,$02 |
| 6E53 |
CP $E4 |
| 6E55 |
JR NC,$6E0E |
| 6E57 |
BIT 2,E |
| 6E59 |
JR NZ,$6E68 |
| 6E5B |
LD (IX+$01),A |
| 6E5E |
JR $6E0E |
| 6E60 |
SUB $02 |
| 6E62 |
CP $0C |
| 6E64 |
JR C,$6E0E |
| 6E66 |
JR $6E57 |
| 6E68 |
LD A,(HL) |
| 6E69 |
BIT 7,A |
| 6E6B |
JR NZ,$6EC0 |
| 6E6D |
BIT 2,(IX+$04) |
| 6E71 |
JR Z,$6E79 |
| 6E73 |
CP (IX+$06) |
| 6E76 |
JP Z,$6E0E |
| 6E79 |
AND $07 |
| 6E7B |
OR $40 |
| 6E7D |
LD (IX+$03),A |
| 6E80 |
LD (IX+$0B),A |
| 6E83 |
LD A,$02 |
| 6E85 |
LD (IX+$00),A |
| 6E88 |
INC A |
| 6E89 |
LD (IX+$08),A |
| 6E8C |
CALL $64D6 |
| 6E8F |
BIT 7,(IX+$01) |
| 6E93 |
LD A,(IX+$01) |
| 6E96 |
JR Z,$6EC5 |
| 6E98 |
RES 0,(IX+$04) |
| 6E9C |
ADD A,$14 |
| 6E9E |
LD (IX+$09),A |
| 6EA1 |
SUB $04 |
| 6EA3 |
LD (IX+$0D),A |
| 6EA6 |
LD A,(IX+$02) |
| 6EA9 |
LD (IX+$0A),A |
| 6EAC |
LD (IX+$0E),A |
| 6EAF |
LD (IX+$0C),$00 |
| 6EB3 |
LD (HL),$00 |
| 6EB5 |
SET 2,(IX+$04) |
| 6EB9 |
SET 3,(IX+$04) |
| 6EBD |
JP $6E0E |
| 6EC0 |
LD (HL),$80 |
| 6EC2 |
JP $6E0E |
| 6EC5 |
SUB $0D |
| 6EC7 |
LD (IX+$09),A |
| 6ECA |
ADD A,$01 |
| 6ECC |
SET 0,(IX+$04) |
| 6ED0 |
JR $6EA3 |
