Sherlock: Routine at DC6C

DC6C: Routine at DC6C

Used by the routines at A2E4, C996, CB43 and DC15.
DC6C	LD A,($A036)
DC6F	CP $00
DC71	RET Z
DC72	CP $01
DC74	RET Z
DC75	CP $64
DC77	RET Z
DC78	OR $01
DC7A	RET
DC7B	JR NZ,$DC8D
DC7D	CALL $DC6C
DC80	RET NZ
DC81	CALL $A2A2
DC84	LD A,($A00A)
DC87	CALL $D102
DC8A	OR $01
DC8C	RET
DC8D	LD L,D
DC8E	DJNZ $DC48
DC90	DEFB $DD
DC91	LD IX,($A013)
DC95	LD IY,($A017)
DC99	LD A,(IY+$01)
DC9C	LD (IX+$01),A
DC9F	OR $01
DCA1	RET
DCA2	CALL $D26C
DCA5	JR C,$DCB6
DCA7	LD A,($A036)
DCAA	LD HL,$A034
DCAD	CALL $D278
DCB0	JP C,$DC15
DCB3	OR $01
DCB5	RET
DCB6	LD HL,$DCBB
DCB9	XOR A
DCBA	RET
DCBB	LD HL,$68B7
DCBE	JP $A59F
DCC1	LD L,C
DCC2	DJNZ $DC66
DCC4	CALL C,$2ADD
DCC7	INC DE
DCC8	AND B
DCC9	LD A,($A036)
DCCC	LD (IX+$01),A
DCCF	OR $01
DCD1	RET
DCD2	LD A,($A033)
DCD5	CALL $D448
DCD8	CP $FF
DCDA	JP Z,$DC15
This entry point is used by the routine at DC15.
DCDD	CALL $CBA7
DCE0	LD IY,($A017)
DCE4	LD A,(IY+$01)
DCE7	CP $FF
DCE9	JP NZ,$DC15
DCEC	LD A,(IX+$02)
DCEF	AND A
DCF0	JP Z,$DC15
DCF3	LD A,(IX+$01)
DCF6	CALL $DD35
DCF9	JP NZ,$DC15
DCFC	OR $01
DCFE	RET
DCFF	NOP
DD00	NOP
DD01	NOP
DD02	NOP
DD03	LD H,B
DD04	JR NZ,$DCD8
DD06	CALL C,$7EDD
DD09	LD (BC),A
DD0A	LD B,A
This entry point is used by the routine at DC15.
DD0B	LD A,($A036)
DD0E	PUSH AF
DD0F	LD HL,$A036
DD12	CP (HL)
DD13	LD A,B
DD14	JR NZ,$DD19
DD16	LD ($A00A),A
DD19	CP $FF
DD1B	JR NZ,$DD1E
DD1D	XOR A
DD1E	LD ($DD01),A
DD21	CALL FetchLocationDataPointer
DD24	LD ($DCFF),IX
DD28	POP AF
DD29	CALL FetchObjectDataPointer
DD2C	LD (IX+$0F),B
DD2F	CALL $D249
DD32	OR $01
DD34	RET
DD35	AND A
DD36	RET Z
DD37	PUSH IX
DD39	CALL FetchObjectDataPointer
DD3C	LD A,(IX+$05)
DD3F	AND $28
DD41	LD A,(IX+$02)
DD44	POP IX
DD46	JR Z,$DD4F
DD48	CP (IY+$02)
DD4B	JR C,$DD4F
DD4D	XOR A
DD4E	RET
DD4F	OR $01
DD51	RET
DD52	AND H
DD53	NOP
DD54	RLA
DD55	LD H,C
DD56	DEFB $DD
DD57	DEFB $FD
DD58	RST $38
DD59	LD H,B
DD5A	DEFB $DD
DD5B	LD DE,$60FD
DD5E	DEFB $DD
DD5F	DEC BC
DD60	LD A,(BC)
DD61	LD H,H
DD62	NOP
DD63	LD L,(HL)
DD64	DEFB $DD
DD65	LD A,(IX+$00)
DD68	LD ($9FD7),A
DD6B	OR $01
DD6D	RET
DD6E	LD A,($A034)
DD71	CALL $D471
DD74	CP $FF
DD76	JP Z,$DC15
DD79	LD A,(IX+$00)
DD7C	CP $0B
DD7E	JP NC,$DC15
DD81	OR $01
DD83	RET
DD84	LD L,L
DD85	NOP
DD86	SUB C
DD87	DEFB $DD
DD88	LD A,(IX+$01)
DD8B	LD ($9FD6),A
DD8E	OR $01
DD90	RET
DD91	LD IX,($A013)
DD95	LD A,(IX+$01)
DD98	AND A
DD99	INC A
DD9A	JP Z,$DC15
DD9D	RET
DD9E	DEC C
DD9F	DJNZ $DDDB
DDA1	INC (HL)
DDA2	AND B
DDA3	CALL FindCharacter
DDA6	CP $FF
DDA8	LD A,$00
DDAA	JR Z,$DDAE
DDAC	LD A,$01
DDAE	CALL $B86A
DDB1	OR $01
DDB3	RET
DDB4	LD B,B
DDB5	LD D,B
DDB6	CP B
DDB7	DEFB $DD
DDB8	CALL $CBA7
DDBB	OR $01
DDBD	RET
DDBE	LD B,B
DDBF	NOP
DDC0	CP B
DDC1	DEFB $DD
DDC2	LD A,($A034)
DDC5	LD ($A01F),A
DDC8	OR $01
DDCA	RET
DDCB	NOP
DDCC	NOP
DDCD	NOP
DDCE	NOP
DDCF	NOP
DDD0	LD B,L
DDD1	NOP
DDD2	CP B
DDD3	LD IX,($A02F)
DDD7	RES 7,H
DDD9	PUSH HL
DDDA	LD A,H
DDDB	AND $3F
DDDD	LD H,A
DDDE	LD A,L
DDDF	AND $3F
DDE1	LD L,A
DDE2	CALL $DE48
DDE5	LD ($DDCD),HL
DDE8	LD HL,($9FDF)
DDEB	CALL $DE48
DDEE	LD ($DDCB),HL
DDF1	POP HL
DDF2	LD A,$61
DDF4	LD ($DDCF),A
DDF7	BIT 6,H
DDF9	JR NZ,$DE19
DDFB	LD A,$70
DDFD	LD ($DDCF),A
DE00	BIT 6,L
DE02	JR NZ,$DE19
DE04	CALL $DE60
DE07	LD A,($9FE2)
DE0A	JR C,$DE0E
DE0C	JR NZ,$DE16
DE0E	CP $61
DE10	LD A,$70
DE12	JR Z,$DE16
DE14	LD A,$61
DE16	LD ($DDCF),A
DE19	LD HL,($DDCD)
DE1C	LD DE,($DDCB)
DE20	AND A
DE21	SBC HL,DE
DE23	LD DE,$02D0
DE26	LD A,($9FE2)
DE29	LD C,A
DE2A	LD A,($DDCF)
DE2D	LD B,A
DE2E	CALL $DE60
DE31	JR C,$DE3C
DE33	JR Z,$DE3C
DE35	LD A,B
DE36	CP C
DE37	JR Z,$DE42
DE39	ADD HL,DE
DE3A	JR $DE42
DE3C	ADD HL,DE
DE3D	LD A,B
DE3E	CP C
DE3F	JR NZ,$DE42
DE41	ADD HL,DE
DE42	LD ($A01F),HL
DE45	OR $01
DE47	RET
DE48	PUSH DE
DE49	PUSH BC
DE4A	LD C,L
DE4B	LD B,H
DE4C	LD HL,$0000
DE4F	LD DE,$003C
DE52	LD A,B
DE53	CP $0C
DE55	JR Z,$DE5A
DE57	ADD HL,DE
DE58	DJNZ $DE57
DE5A	LD B,$00
DE5C	ADD HL,BC
DE5D	POP BC
DE5E	POP DE
DE5F	RET
DE60	PUSH HL
DE61	PUSH DE
DE62	LD HL,($DDCD)
DE65	LD DE,($DDCB)
DE69	AND A
DE6A	SBC HL,DE
DE6C	POP DE
DE6D	POP HL
DE6E	RET
DE6F	JR NZ,$DE81
DE71	CALL $A2A2
DE74	LD HL,$68AD
DE77	CALL $A59F
DE7A	LD A,($A036)
DE7D	CALL $D4CC
DE80	AND A
DE81	LD HL,$6900
DE84	JR NZ,$DE8C
DE86	CALL $A59F
DE89	OR $01
DE8B	RET
DE8C	LD C,A
DE8D	LD A,($A00A)
DE90	LD B,A
DE91	LD A,($A036)
DE94	CALL $D51A
DE97	CALL $A2A2
DE9A	OR $01
DE9C	RET
DE9D	JR C,$DEAF
DE9F	ADD A,B
DEA0	LD HL,$0000
DEA3	NOP
DEA4	LD IX,($A013)
DEA8	SET 5,(IX+$05)
DEAC	OR $01
DEAE	RET
DEAF	JR C,$DEC1
DEB1	NOP
DEB2	JR NZ,$DEB4
DEB4	NOP
DEB5	NOP
DEB6	LD IX,($A013)
DEBA	RES 5,(IX+$05)
DEBE	OR $01
DEC0	RET
DEC1	LD A,D
DEC2	JR $DE9D
DEC4	SBC A,$09
DEC6	NOP
DEC7	NOP
DEC8	LD B,B
DEC9	JR Z,$DEC8
DECB	LD A,(HL)
DECC	RRCA
DECD	LD (IX+$0F),A
DED0	LD A,($A035)
DED3	LD (IX+$01),A
DED6	OR $01
DED8	RET
DED9	LD IX,($A013)
DEDD	LD IY,($A015)
DEE1	LD A,($A035)
DEE4	LD B,A
DEE5	LD A,(IY+$04)
DEE8	AND $07
DEEA	JP Z,$DC15
DEED	LD A,(IY+$02)
DEF0	SUB (IX+$02)
DEF3	JR C,$DF00
DEF5	PUSH AF
DEF6	LD A,B
DEF7	CALL $D2ED
DEFA	LD B,A
DEFB	POP AF
DEFC	SUB B
DEFD	JR C,$DF00
DEFF	RET NZ
DF00	XOR A
DF01	RET
DF02	LD L,D
DF03	DEC E
DF04	INC H
DF05	RST $18
DF06	LD IY,($A015)
DF0A	LD IX,($A013)
DF0E	LD A,($A035)
DF11	LD (IX+$01),A
DF14	LD A,(IY+$0F)
DF17	LD (IX+$0F),A
DF1A	LD B,A
DF1B	LD A,($A034)
DF1E	CALL $D249
DF21	OR $01
DF23	RET
DF24	LD A,($A034)
DF27	LD B,A
DF28	LD A,($A035)
DF2B	JP $C8C6
DF2E	LD A,($A034)
DF31	CALL $C8AF
DF34	JR Z,$DF3D
DF36	LD HL,$A036
DF39	CP (HL)
DF3A	JP NZ,$DC15
DF3D	OR $01
DF3F	RET
DF40	LD A,B
DF41	DJNZ $DF71
DF43	RST $18
DF44	ADD A,B
DF45	LD B,B
DF46	NOP
DF47	NOP
DF48	NOP
DF49	LD A,$01
DF4B	LD ($CAAE),A
DF4E	CALL $DC6C
DF51	RET NZ
DF52	CALL $DF5B
DF55	CALL $A2A2
DF58	OR $01
DF5A	RET
DF5B	LD A,($A034)
DF5E	CALL FetchObjectDataPointer
DF61	SET 6,(IX+$06)
DF65	LD L,(IX+$0D)
DF68	LD H,(IX+$0E)
DF6B	LD A,H
DF6C	OR L
DF6D	JP NZ,$A59F
DF70	LD HL,$68E1
DF73	CALL $A59F
DF76	CALL $D3D5
DF79	LD A,$2E
DF7B	JP $A9B7
DF7E	ADC A,B
DF7F	NOP
DF80	RLCA
DF81	POP BC
DF82	CALL C,$FFFD
DF85	RLCA
DF86	ADC A,E
DF87	RST $18
DF88	DEFB $FD
DF89	RST $38
DF8A	DEC BC
DF8B	EX AF,AF'
DF8C	NOP
DF8D	LD A,($9CA1)
DF90	AND A
DF91	JR Z,$E000
DF93	LD A,$FF
DF95	LD ($9CA1),A
DF98	LD IX,($A013)
DF9C	LD HL,$07D5
DF9F	LD (IX+$09),L
DFA2	LD (IX+$0A),H
DFA5	JR $E000
DFA7	RET Z
DFA8	NOP
DFA9	INC E
DFAA	RET PO
DFAB	RLCA
DFAC	OR (HL)
DFAD	RST $18
DFAE	DEFB $FD
DFAF	RST $38
DFB0	RLCA
DFB1	SBC A,L
DFB2	SBC A,$FD
DFB4	RST $38
DFB5	DEC BC
DFB6	RLCA
DFB7	RET P
DFB8	LD A,($A034)
DFBB	CP $59
DFBD	JP NZ,$E000
DFC0	LD A,($9FE1)
DFC3	CP $00
DFC5	JP NZ,$E000
DFC8	JR $DFCC
DFCA	NOP
DFCB	NOP
This entry point is used by the routine at E691.
DFCC	LD HL,$759C
DFCF	LD A,$06
DFD1	CALL FetchObjectDataPointer
DFD4	LD A,($A009)
DFD7	CP (IX+$0F)
DFDA	JP NZ,$9E74
DFDD	LD HL,$75D2
DFE0	JP $9E74
DFE3	LD A,($A036)
DFE6	CP $64
DFE8	JR $DFFD
DFEA	LD B,A
DFEB	DJNZ $DFD0
DFED	RST $18
DFEE	JR $E007
DFF0	LD C,B
DFF1	DJNZ $E00F
DFF3	RET PO
DFF4	LD A,$64
DFF6	JR $E028
DFF8	LD A,($A036)
DFFB	CP $01
DFFD	JP NZ,$DC15
E000	OR $01
E002	RET
E003	LD B,A
E004	DJNZ $DFFE
E006	RST $18
E007	XOR A
E008	CALL $E03A
E00B	LD IX,($A013)
E00F	LD (IX+$01),$00
E013	LD A,($A00A)
E016	LD (IX+$0F),A
E019	OR $01
E01B	RET
E01C	LD A,($A036)
E01F	AND A
E020	JR $DFFD
E022	LD C,B
E023	DJNZ $E041
E025	RET PO
E026	LD A,$01
E028	CALL $E03A
E02B	LD IX,($A013)
E02F	LD (IX+$01),$00
E033	LD (IX+$0F),$00
E037	OR $01
E039	RET
E03A	LD C,A
E03B	LD A,($A036)
E03E	CALL FindCharacter
E041	LD (IY+$00),C
E044	LD IY,($A017)
E048	LD A,C
E049	CALL FetchObjectDataPointer
E04C	LD ($A017),IX
E050	LD A,(IY+$01)
E053	LD (IX+$01),A
E056	LD (IY+$01),$FF
E05A	LD A,(IY+$0F)
E05D	LD (IX+$0F),A
E060	LD (IY+$0F),$00
E064	LD B,$00
E066	INC B
E067	LD A,B
E068	CP $6E
E06A	JR Z,$E07C
E06C	CALL FetchObjectDataPointer
E06F	LD A,($A036)
E072	CP (IX+$01)
E075	JR NZ,$E066
E077	LD (IX+$01),C
E07A	JR $E066
E07C	CALL $CFB6
E07F	JR Z,$E086
E081	LD (IX+$00),C
E084	JR $E07C
E086	LD A,C
E087	LD ($A036),A
E08A	OR $01
E08C	RET
E08D	ADC A,L
E08E	INC B
E08F	ADD A,A
E090	PUSH IY
E092	DEFB $FD
E093	RST $38
E094	SBC A,E
E095	RET PO
E096	DEC B
E097	SBC A,(IY+$6B)
E09A	DEC BC
E09B	LD (BC),A
E09C	DEC E
E09D	CALL M,$0BFF
E0A0	ADC A,B
E0A1	NOP
E0A2	RLCA
E0A3	XOR L
E0A4	RET PO
E0A5	LD (BC),A
E0A6	LD E,L
E0A7	RLCA
E0A8	DEC (HL)
E0A9	POP HL
E0AA	DEFB $FD
E0AB	RST $38
E0AC	DEC BC
E0AD	LD C,L
E0AE	RLCA
E0AF	INC E
E0B0	RET PO
E0B1	LD A,($A00A)
E0B4	CP $58
E0B6	JR NZ,$E0DD
E0B8	LD A,($9FE1)
E0BB	CP $01
E0BD	JR NZ,$E0DD
E0BF	LD IX,($A015)
E0C3	SET 7,(IX+$06)
E0C7	SET 7,(IX+$05)
E0CB	LD A,($A00A)
E0CE	LD (IX+$0F),A
E0D1	LD A,($A034)
E0D4	LD (IX+$01),A
E0D7	LD HL,$7B5A
E0DA	CALL $A59F
E0DD	OR $01
E0DF	RET
E0E0	ADC A,B
E0E1	NOP
E0E2	RLCA
E0E3	DEC (HL)
E0E4	POP HL
E0E5	DEFB $FD
E0E6	RST $38
E0E7	INC BC
E0E8	EX DE,HL
E0E9	RET PO
E0EA	DEC BC
E0EB	NOP
E0EC	NOP
E0ED	LD A,$51
E0EF	JP $9C56
E0F2	ADC A,B
E0F3	NOP
E0F4	RLCA
E0F5	DEC (HL)
E0F6	POP HL
E0F7	DEFB $FD
E0F8	RST $38
E0F9	INC BC
E0FA	DEFB $FD
E0FB	RET PO
E0FC	DEC BC
E0FD	NOP
E0FE	NOP
E0FF	LD A,$3F
E101	JP $9C56
E104	EX AF,AF'
E105	LD H,B
E106	LD A,$01
E108	LD ($CAAE),A
E10B	LD A,($A036)
E10E	AND A
E10F	RET NZ
E110	CALL $DF5B
E113	LD IX,($A013)
E117	BIT 5,(IX+$05)
E11B	RET NZ
E11C	SET 5,(IX+$05)
E120	LD HL,$7BF7
E123	LD (IX+$0D),L
E126	LD (IX+$0E),H
E129	LD HL,$7C13
E12C	CALL $A59F
E12F	CALL $A2A2
E132	OR $01
E134	RET
E135	LD A,B
E136	LD D,B
E137	LD L,$DF
E139	ADD A,B
E13A	LD B,B
E13B	NOP
E13C	NOP
E13D	NOP
E13E	LD A,$01
E140	LD ($CAAE),A
E143	LD A,($A036)
E146	AND A
E147	RET NZ
E148	CALL $E151
E14B	CALL $A2A2
E14E	OR $01
E150	RET
E151	CALL $DF5B
E154	LD A,($A034)
E157	LD IX,$E16B
E15B	CALL SearchThreeByteTable
E15E	CP $FF
E160	RET Z
E161	LD L,(IX+$01)
E164	LD H,(IX+$02)
E167	CALL $A59F
E16A	RET
E16B	LD C,H
E16C	JP NZ,$667B
E16F	RST $10
E170	LD A,E
E171	ADD HL,SP
E172	SBC A,(HL)
E173	LD A,H
E174	LD A,$E7
E176	LD A,H
E177	LD L,$4A
E179	LD A,H
E17A	RST $38
E17B	ADC A,L
E17C	RLCA
E17D	RLCA
E17E	ADC A,B
E17F	POP HL
E180	DEFB $FD
E181	CALL M,GetDirectionToken_0
E184	POP HL
E185	DEFB $FD
E186	CALL M,$0D0B
E189	RLCA
E18A	LD A,($A035)
E18D	CP $10
E18F	JR Z,$E199
E191	CP $43
E193	JR Z,$E199
E195	CP $11
E197	JR NZ,$E1D3
E199	LD IX,$9993
E19D	SET 1,(IX+$03)
E1A1	JR $E1D3
E1A3	ADC A,L
E1A4	RLCA
E1A5	RLA
E1A6	OR D
E1A7	POP HL
E1A8	RST $38
E1A9	CALL M,$E1B1
E1AC	RLCA
E1AD	SUB $E1
E1AF	DEFB $FD
E1B0	CALL M,$000B
E1B3	RLCA
E1B4	LD A,($A035)
E1B7	CP $43
E1B9	JR NZ,$E1D3
E1BB	CALL $C821
E1BE	JR NZ,$E1C6
E1C0	CALL $E1FC
E1C3	JP $DC15
E1C6	LD A,$5F
E1C8	CALL $E03A
E1CB	LD IX,$998F
E1CF	SET 1,(IX+$03)
E1D3	OR $01
E1D5	RET
E1D6	DEC C
E1D7	RLA
E1D8	LD A,($A036)
E1DB	CALL $E207
E1DE	JR Z,$E1FC
E1E0	INC IX
E1E2	LD A,($A035)
E1E5	CALL $E201
E1E8	JR Z,$E1FC
E1EA	LD L,(IX+$01)
E1ED	LD H,(IX+$02)
E1F0	PUSH AF
E1F1	PUSH HL
E1F2	LD HL,$6830
E1F5	CALL $A59F
E1F8	POP AF
E1F9	OR $01
E1FB	RET
E1FC	LD HL,$761D
This entry point is used by the routine at E691.
E1FF	JR $E1F0
E201	CALL SearchThreeByteTable
E204	CP $FF
E206	RET
E207	LD IX,$E22A
E20B	CP (IX+$00)
E20E	JR Z,$E1F9
E210	PUSH AF
E211	LD A,(IX+$00)
E214	CP $FE
E216	JR Z,$E1F8
E218	INC A
E219	JR Z,$E227
E21B	INC IX
E21D	LD A,$FF
E21F	CALL SearchThreeByteTable
E222	INC IX
E224	POP AF
E225	JR $E20B
E227	POP AF
E228	XOR A
E229	RET
E22A	EX AF,AF'
E22B	DJNZ $E273
E22D	LD A,B
E22E	LD DE,$7846
E231	RLCA
E232	RET M
E233	LD A,B
E234	RST $38
E235	ADD HL,BC
E236	DJNZ $E287
E238	LD A,C
E239	LD DE,$794F
E23C	LD B,$C4
E23E	LD A,C
E23F	RST $38
E240	LD A,(BC)
E241	DJNZ $E278
E243	LD A,D
E244	LD DE,$7A35
E247	RST $38
E248	LD B,$10
E24A	CP C
E24B	LD A,D
E24C	LD DE,$7AB9
E24F	LD (DE),A
E250	INC L
E251	LD (HL),A
E252	RST $38
E253	DEC B
E254	DJNZ $E24C
E256	LD A,D
E257	LD DE,$7AF6
E25A	DEC C
E25B	AND H
E25C	HALT
E25D	RLCA
E25E	CALL NC,$FF78
E261	INC B
E262	RRCA
E263	LD (HL),C
E264	LD (HL),E
E265	RST $38
E266	RLCA
E267	LD DE,$780C
E26A	LD (DE),A
E26B	LD ($FF77),HL
E26E	DEC C
E26F	LD B,E
E270	ADD A,A
E271	HALT
E272	RST $38
E273	LD E,A
E274	LD B,E
E275	ADD A,A
E276	HALT
E277	DJNZ $E2BD
E279	HALT
E27A	LD DE,$7644
E27D	DEC C
E27E	DEC L
E27F	HALT
E280	RST $38
E281	CP $12
E283	LD B,L
E284	LD L,B
E285	DJNZ $E2CC
E287	LD L,B
E288	LD DE,$6845
E28B	RST $38
E28C	RST $38
E28D	LD A,($A036)
E290	LD HL,$A034
E293	CP (HL)
E294	JP Z,$DC15
E297	RET
E298	LD A,($A034)
E29B	CP $1E
E29D	JR Z,$E2A4
E29F	CP $21
E2A1	JP NZ,$DC15
E2A4	LD A,($A00A)
E2A7	LD C,$00
E2A9	CALL $9C07
E2AC	JP NZ,$DC15
E2AF	LD IX,($A013)
E2B3	LD A,(IX+$0F)
E2B6	AND A
E2B7	JP NZ,$DC15
E2BA	LD A,($A034)
E2BD	CALL $CFB9
E2C0	JP NZ,$DC15
E2C3	OR $01
E2C5	RET
E2C6	NOP
E2C7	LD B,A
E2C8	DJNZ $E262
E2CA	JP PO,$0A3A
E2CD	AND B
E2CE	LD B,A
E2CF	LD A,($A034)
E2D2	INC A
E2D3	LD ($E2C6),A
E2D6	DEC A
E2D7	CALL $DD0E
E2DA	LD A,($A036)
E2DD	LD B,A
E2DE	LD A,($A034)
E2E1	LD C,A
E2E2	LD DE,$F2B6
E2E5	LD A,($E2C6)
E2E8	CALL $E2EE
E2EB	OR $01
E2ED	RET
E2EE	PUSH DE
E2EF	LD D,A
E2F0	LD A,B
E2F1	LD ($A034),A
E2F4	LD A,C
E2F5	LD ($A035),A
E2F8	LD A,($A036)
E2FB	PUSH AF
E2FC	LD A,D
E2FD	LD ($A036),A
E300	CALL FindCharacter
E303	LD L,(IY+$01)
E306	LD H,(IY+$02)
E309	LD B,$02
E30B	CALL $CF80
E30E	POP AF
E30F	LD ($A036),A
E312	POP DE
E313	LD (IY+$01),E
E316	LD (IY+$02),D
E319	OR $01
E31B	RET
E31C	LD IX,($A013)
E320	BIT 5,(IX+$06)
E324	JP Z,$DC15
E327	RET
E328	LD L,D
E329	DJNZ $E347
E32B	EX (SP),HL
E32C	LD HL,$6836
E32F	CALL $A59F
E332	LD IX,($A013)
E336	LD L,(IX+$09)
E339	LD H,(IX+$0A)
E33C	CALL $A419
E33F	CALL $A2A2
E342	OR $01
E344	RET
E345	CALL $E34F
E348	RET Z
E349	LD A,$25
E34B	LD ($A033),A
E34E	RET
E34F	LD A,($A036)
E352	CALL $E619
E355	JR Z,$E365
E357	CALL $E39C
E35A	CALL $E3A9
E35D	AND A
E35E	SBC HL,DE
E360	JR C,$E365
E362	OR $01
E364	RET
E365	LD HL,$E36A
E368	XOR A
E369	RET
E36A	LD HL,$683F
E36D	JP $A59F
E370	LD H,(HL)
E371	DEC E
E372	LD B,L
E373	EX (SP),HL
E374	CALL $E34F
E377	CALL $E38F
E37A	LD A,($A035)
E37D	CALL $E619
E380	JR Z,$E38C
E382	CALL $E39C
E385	CALL $E3A9
E388	ADD HL,DE
E389	CALL $E38F
E38C	OR $01
E38E	RET
E38F	RL L
E391	RL H
E393	SRL L
E395	LD (IX+$09),L
E398	LD (IX+$0A),H
E39B	RET
E39C	LD L,(IX+$09)
E39F	LD H,(IX+$0A)
E3A2	RL L
E3A4	SRA H
E3A6	RR L
E3A8	RET
E3A9	LD DE,($A02F)
E3AD	RES 7,D
E3AF	RL E
E3B1	SRA D
E3B3	RR E
E3B5	OR $01
E3B7	RET
E3B8	CALL $E3F5
E3BB	RET Z
E3BC	LD A,($A036)
E3BF	PUSH AF
E3C0	LD A,($A034)
E3C3	INC A
E3C4	LD ($A036),A
E3C7	CALL $CFB6
E3CA	EX AF,AF'
E3CB	POP AF
E3CC	LD ($A036),A
E3CF	EX AF,AF'
E3D0	JR Z,$E3E7
E3D2	LD A,(IX+$03)
E3D5	CALL FetchObjectDataPointer
E3D8	LD IY,($A017)
E3DC	LD A,(IX+$04)
E3DF	AND (IY+$04)
E3E2	AND $70
E3E4	JP Z,$DC15
E3E7	OR $01
E3E9	RET
E3EA	LD A,B
E3EB	JR NZ,$E3A5
E3ED	EX (SP),HL
E3EE	SUB B
E3EF	LD B,B
E3F0	JR Z,$E3F2
E3F2	NOP
E3F3	JR $E413
E3F5	CALL $CBA7
E3F8	CALL $DCA7
E3FB	RET Z
E3FC	LD IX,($A017)
E400	LD IY,($A013)
E404	LD A,($A034)
E407	JP $DEE4
E40A	LD A,B
E40B	JR NZ,$E402
E40D	EX (SP),HL
E40E	SUB B
E40F	LD B,B
E410	JR Z,$E412
E412	NOP
E413	LD IY,($A017)
E417	LD A,($A034)
E41A	LD (IY+$01),A
E41D	OR $01
E41F	RET
E420	CALL $CBA7
E423	LD A,($A036)
E426	LD HL,$A034
E429	CALL $D278
E42C	JP NC,$DC15
E42F	OR $01
E431	RET
E432	LD A,B
E433	JR NZ,$E455
E435	CALL PO,$8010
E438	JR Z,$E43A
E43A	NOP
E43B	LD IY,($A013)
E43F	LD A,(IY+$01)
E442	LD IY,($A017)
E446	LD (IY+$01),A
E449	OR $01
E44B	RET
E44C	CALL $CBA7
E44F	JP $E28D
E452	CALL PE,$4C00
E455	CALL PO,$2F07
E458	PUSH HL
E459	LD A,(BC)
E45A	RST $38
E45B	LD B,A
E45C	ADC A,B
E45D	CALL PO,$FFFD
E460	LD D,A
E461	LD D,D
E462	DEFB $DD
E463	JP M,$6BFF
E466	CALL PO,$8843
E469	PUSH HL
E46A	DEC BC
E46B	RST $00
E46C	PUSH IY
E46E	DEFB $FD
E46F	RST $38
E470	ADD A,C
E471	CALL PO,$0DC1
E474	ADD A,C
E475	CALL PO,$8457
E478	DEFB $DD
E479	DEFB $FD
E47A	RST $38
E47B	ADD A,C
E47C	CALL PO,$0C42
E47F	JP M,$0FFF
E482	JP $E57A
E485	LD E,E
E486	CALL PO,$270A
E489	NOP
E48A	LD IX,($A013)
E48E	LD A,(IX+$0F)
E491	LD ($9FD6),A
E494	OR $01
E496	RET
E497	LD B,A
E498	INC H
E499	OR B
E49A	CALL PO,$353A
E49D	AND B
E49E	LD B,A
E49F	LD A,($A034)
E4A2	LD IX,($A013)
E4A6	LD (IX+$01),$FF
E4AA	CALL $DD0E
E4AD	OR $01
E4AF	RET
E4B0	LD IX,($A013)
E4B4	BIT 6,(IX+$05)
E4B8	JR Z,$E4C6
E4BA	LD A,(IX+$0F)
E4BD	CALL FetchLocationDataPointer
E4C0	LD A,(IX+$09)
E4C3	LD ($A033),A
E4C6	OR $01
E4C8	RET
E4C9	INC B
E4CA	NOP
E4CB	LD HL,$9C56
E4CE	LD A,($A034)
E4D1	PUSH AF
E4D2	CP $02
E4D4	JR Z,$E4DE
E4D6	CP $03
E4D8	JR Z,$E4DE
E4DA	CP $04
E4DC	JR NZ,$E4E7
E4DE	LD HL,$7611
E4E1	CALL $A59F
E4E4	LD HL,$9C60
E4E7	LD A,($A036)
E4EA	PUSH AF
E4EB	CALL $E4FB
E4EE	POP AF
E4EF	POP BC
E4F0	CALL $DD0E
E4F3	LD HL,($DCFF)
E4F6	RES 6,(HL)
E4F8	OR $01
E4FA	RET
E4FB	JP (HL)
E4FC	LD A,($A034)
E4FF	CALL $E619
E502	JP Z,$DC15
E505	RET
E506	XOR L
E507	DEC C
E508	RST $00
E509	JR $E4F0
E50B	DEFB $FD
E50C	CALL M,$E510
E50F	LD A,(BC)
E510	LD D,A
E511	LD (HL),B
E512	EX (SP),HL
E513	DEFB $FD
E514	CALL M,$E50F
E517	DEC BC
E518	LD L,L
E519	DEC C
E51A	CALL M,$3EE4
E51D	CP $32
E51F	RST $10
E520	SBC A,A
E521	LD L,(IX+$09)
E524	LD H,(IX+$0A)
E527	SET 7,L
E529	LD ($A02F),HL
E52C	OR $01
E52E	RET
E52F	RLCA
E530	RLCA
E531	LD A,$02
E533	CALL $A11C
E536	LD HL,($9FE5)
E539	LD ($9FE5),IX
E53D	LD (IX-$02),L
E540	LD (IX-$01),H
E543	LD A,($A036)
E546	LD (IX+$00),A
E549	LD A,($A035)
E54C	LD B,$00
E54E	CP $FF
E550	JR Z,$E556
E552	CALL $D2A4
E555	LD B,A
E556	LD A,($A034)
E559	ADD A,B
E55A	LD (IX+$01),A
E55D	OR $01
E55F	RET
E560	LD IX,$9FE7
E564	CALL $A0F7
E567	RET Z
E568	LD A,($A036)
E56B	CP (IX+$00)
E56E	JR NZ,$E564
E570	OR $01
E572	RET
E573	CALL $E560
E576	JP Z,$DC15
E579	RET
This entry point is used by the routine at E691.
E57A	LD B,B
E57B	NOP
E57C	LD (HL),E
E57D	PUSH HL
E57E	DEC (IX+$01)
E581	RET NZ
E582	CALL $E58C
E585	JP $DC15
E588	LD B,B
E589	NOP
E58A	LD (HL),E
E58B	PUSH HL
E58C	PUSH IX
E58E	POP DE
E58F	LD IY,$9FE5
E593	CALL $A104
E596	LD L,(IX-$02)
E599	LD H,(IX-$01)
E59C	LD (IY-$02),L
E59F	LD (IY-$01),H
E5A2	CALL $A1C7
E5A5	OR $01
E5A7	RET
E5A8	NOP
E5A9	DJNZ $E5A1
E5AB	LD BC,$4CC9
E5AE	INC B
E5AF	OR C
E5B0	PUSH HL
E5B1	LD IX,($A013)
E5B5	LD A,($A035)
E5B8	CP (IX+$0F)
E5BB	JP NZ,$DC15
E5BE	OR $01
E5C0	RET
E5C1	NOP
E5C2	NOP
E5C3	LD A,($9860)
E5C6	CALL FetchObjectDataPointer
E5C9	LD A,(IX+$0F)
E5CC	LD IX,($A017)
E5D0	CP (IX+$0F)
E5D3	LD A,($A036)
E5D6	JR $E5F0
E5D8	LD B,A
E5D9	RLCA
E5DA	RST $18
E5DB	PUSH HL
E5DC	OR $01
E5DE	RET
E5DF	LD IX,($A013)
E5E3	LD A,(IX+$0F)
E5E6	LD IX,($A015)
E5EA	CP (IX+$0F)
E5ED	LD A,($A035)
E5F0	JP NZ,$DC15
E5F3	LD HL,$A034
E5F6	CP (HL)
E5F7	JP Z,$DC15
E5FA	OR $01
E5FC	RET
E5FD	LD B,A
E5FE	NOP
E5FF	INC B
E600	AND $F6
E602	LD BC,$3AC9
E605	LD (HL),$A0
E607	CALL $C863
E60A	EX AF,AF'
E60B	LD B,A
E60C	LD A,($A034)
E60F	CALL $C863
E612	EX AF,AF'
E613	CP B
E614	LD A,($A036)
E617	JR $E5F0
This entry point is used by the routine at E691.
E619	LD C,A
E61A	LD B,$FF
E61C	INC B
E61D	LD A,B
E61E	CP $6E
E620	RET Z
E621	CALL FetchObjectDataPointer
E624	LD A,(IX+$01)
E627	CP C
E628	JR NZ,$E61C
E62A	LD HL,$0575
E62D	LD A,(IX+$07)
E630	CP L
E631	JR NZ,$E61C
E633	LD A,(IX+$08)
E636	AND $0F
E638	CP H
E639	JR NZ,$E61C
E63B	OR $01
E63D	RET
E63E	LD B,B
E63F	NOP
E640	LD B,D
E641	AND $3A
E643	LD (HL),$A0
E645	CALL $E619
E648	JP Z,$DC15
E64B	CALL $E39C
E64E	BIT 7,H
E650	JP Z,$DC15
E653	RET
E654	LD B,B
E655	NOP
E656	LD E,B
E657	AND $3A
E659	LD (HL),$A0
E65B	CALL $E619
E65E	JP Z,$DC15
E661	CALL $E39C
E664	BIT 7,H
E666	JP NZ,$DC15
E669	LD A,H
E66A	OR L
E66B	JP Z,$DC15
E66E	RET
E66F	LD B,B
E670	NOP
E671	LD (HL),E
E672	AND $3A
E674	LD (HL),$A0
E676	CALL $E619
E679	JR Z,$E683
E67B	CALL $E39C
E67E	LD A,H
E67F	OR L
E680	JP NZ,$DC15
This entry point is used by the routine at F1C1.
E683	OR $01
E685	RET
This entry point is used by the routine at E691.
E686	CALL $D29D
E689	CP $32
E68B	JP C,$DC15
E68E	OR $01
E690	RET