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
This entry point is used by the routine at E17B.
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)
This entry point is used by the routine at E17B.
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)
This entry point is used by the routine at E17B.
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
This entry point is used by the routine at E151.
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
This entry point is used by the routine at E17B.
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