Sherlock: Routine at F1C1

F1C1: Routine at F1C1

Used by the routines at CharacterAction_Gardener and E691.
F1C1	CALL FetchObjectDataPointer
F1C4	LD (IX+$09),E
F1C7	LD (IX+$0A),D
F1CA	LD A,(IX+$08)
F1CD	AND $0F
F1CF	OR B
F1D0	LD (IX+$08),A
F1D3	OR $01
F1D5	RET
F1D6	RLCA
F1D7	NOP
F1D8	LD A,($A034)
F1DB	LD B,$61
F1DD	CP $0D
F1DF	JR C,$F1E5
F1E1	LD B,$70
F1E3	SUB $0C
F1E5	LD HL,$9FE0
F1E8	CP (HL)
F1E9	JP NZ,$DC15
F1EC	LD A,($9FE2)
F1EF	CP B
F1F0	JP NZ,$DC15
F1F3	OR $01
F1F5	RET
F1F6	RLCA
F1F7	NOP
F1F8	LD IX,($A013)
F1FC	SET 7,(IX+$05)
F200	OR $01
F202	RET
F203	RLCA
F204	NOP
F205	LD IX,($A013)
F209	RES 0,(IX+$05)
F20D	OR $01
F20F	RET
F210	RLCA
F211	NOP
F212	LD IX,($A013)
F216	SET 0,(IX+$05)
F21A	OR $01
F21C	RET
F21D	LD (BC),A
F21E	ADC A,H
F21F	DJNZ $F224
F221	LD (BC),A
F222	ADC A,H
F223	LD (BC),A
F224	INC BC
F225	LD (BC),A
F226	ADC A,H
F227	INC D
F228	INC BC
F229	LD (BC),A
F22A	ADC A,H
F22B	LD (BC),A
F22C	LD BC,$BE07
F22F	DEFB $DD
F230	LD (BC),A
F231	RST $38
F232	LD (BC),A
F233	ADC A,H
F234	LD A,(DE)
F235	INC B
F236	LD (BC),A
F237	ADC A,H
F238	LD (BC),A
F239	INC B
F23A	RRCA
F23B	LD (BC),A
F23C	ADC A,H
F23D	LD E,$04
F23F	LD (BC),A
F240	ADC A,H
F241	LD (BC),A
F242	DEC B
F243	LD C,$1D
F245	JP P,$BE07
F248	DEFB $DD
F249	LD (BC),A
F24A	RST $38
F24B	LD (BC),A
F24C	ADC A,H
F24D	DEC D
F24E	INC BC
F24F	LD (BC),A
F250	ADC A,H
F251	LD (BC),A
F252	INC BC
F253	LD (BC),A
F254	ADC A,H
F255	LD DE,$0203
F258	ADC A,H
F259	LD (BC),A
F25A	LD BC,$BE07
F25D	DEFB $DD
F25E	INC B
F25F	RST $38
F260	LD (BC),A
F261	ADC A,H
F262	RRA
F263	INC B
F264	LD (BC),A
F265	ADC A,H
F266	LD (BC),A
F267	LD BC,$BE07
F26A	DEFB $DD
F26B	INC B
F26C	RST $38
F26D	LD (BC),A
F26E	ADC A,H
F26F	DEC DE
F270	INC B
F271	LD (BC),A
F272	ADC A,H
F273	LD (BC),A
F274	LD BC,$460E
F277	JP P,$BE07
F27A	DEFB $DD
F27B	INC A
F27C	RST $38
F27D	LD (BC),A
F27E	ADC A,H
F27F	RLA
F280	LD A,(BC)
F281	LD (BC),A
F282	ADC A,H
F283	INC B
F284	DEC B
F285	LD (BC),A
F286	ADC A,H
F287	LD D,$0A
F289	LD (BC),A
F28A	ADC A,H
F28B	INC BC
F28C	DEC B
F28D	RLCA
F28E	CP (HL)
F28F	DEFB $DD
F290	INC A
F291	RST $38
F292	LD (BC),A
F293	ADC A,H
F294	LD (HL),$0A
F296	LD (BC),A
F297	ADC A,H
F298	INC B
F299	DEC B
F29A	LD (BC),A
F29B	ADC A,H
F29C	SCF
F29D	LD A,(BC)
F29E	LD (BC),A
F29F	ADC A,H
F2A0	INC BC
F2A1	DEC B
F2A2	LD C,$78
F2A4	JP P,$0784
F2A7	RLCA
F2A8	RET
F2A9	CALL PO,$FFFD
F2AC	RLCA
F2AD	CP (HL)
F2AE	DEFB $DD
F2AF	CALL M,$0BFF
F2B2	RRCA
F2B3	LD C,$B2
F2B5	JP P,$FD05
F2B8	XOR H
F2B9	LD L,E
F2BA	RLCA
F2BB	CPL
F2BC	PUSH HL
F2BD	INC B
F2BE	INC B
F2BF	INC BC
F2C0	XOR B
F2C1	PUSH HL
F2C2	ADD A,C
F2C3	ADD A,D
F2C4	RET NC
F2C5	JP P,$7A83
F2C8	PUSH HL
F2C9	CP A
F2CA	JP P,$F686
F2CD	LD L,E
F2CE	HALT
F2CF	DI
F2D0	INC BC
F2D1	ADC A,B
F2D2	PUSH HL
F2D3	RLCA
F2D4	CPL
F2D5	PUSH HL
F2D6	DEC B
F2D7	INC BC
F2D8	ADD A,E
F2D9	LD A,$E6
F2DB	EX DE,HL
F2DC	JP P,$A803
F2DF	PUSH HL
F2E0	ADD A,E
F2E1	LD A,D
F2E2	PUSH HL
F2E3	RET C
F2E4	JP P,$FD85
F2E7	DEC DE
F2E8	LD L,H
F2E9	CP D
F2EA	JP P,$8282
F2ED	DEFB $FD
F2EE	RST $38
F2EF	CALL M,$82F2
F2F2	ADD A,C
F2F3	DEFB $FD
F2F4	EI
F2F5	LD L,$F3
F2F7	INC DE
F2F8	AND $E6
F2FA	LD E,C
F2FB	DI
F2FC	INC BC
F2FD	ADC A,B
F2FE	PUSH HL
F2FF	RLCA
F300	CPL
F301	PUSH HL
F302	DEC B
F303	LD (BC),A
F304	ADD A,E
F305	LD D,H
F306	AND $A2
F308	DI
F309	ADD A,E
F30A	LD L,A
F30B	AND $66
F30D	DI
F30E	LD (DE),A
F30F	ADD A,D
F310	DEFB $FD
F311	RST $38
F312	LD L,$F3
F314	INC BC
F315	XOR B
F316	PUSH HL
F317	ADD A,E
F318	LD A,D
F319	PUSH HL
F31A	INC B
F31B	DI
F31C	ADD A,E
F31D	LD D,H
F31E	AND $A2
F320	DI
F321	ADD A,E
F322	LD L,A
F323	AND $69
F325	DI
F326	RLCA
F327	CP H
F328	AND $FD
F32A	EI
F32B	LD C,$FF
F32D	JP P,$8803
F330	PUSH HL
F331	LD B,$C7
F333	LD L,E
F334	RLCA
F335	CPL
F336	PUSH HL
F337	DEC B
F338	LD (BC),A
F339	ADD A,E
F33A	LD D,H
F33B	AND $A2
F33D	DI
F33E	ADD A,E
F33F	LD L,A
F340	AND $66
F342	DI
F343	ADD A,D
F344	ADD A,D
F345	DEFB $FD
F346	RST $38
F347	CALL M,$12F2
F34A	ADD A,C
F34B	DEFB $FD
F34C	EI
F34D	LD E,C
F34E	DI
F34F	INC BC
F350	XOR B
F351	PUSH HL
F352	SUB E
F353	LD A,D
F354	PUSH HL
F355	ADD HL,SP
F356	DI
F357	LD SP,$03F3
F35A	ADC A,B
F35B	PUSH HL
F35C	INC BC
F35D	LD C,$E7
F35F	SUB E
F360	AND $E6
F362	CALL M,$76F2
F365	DI
F366	INC BC
F367	ADC A,B
F368	PUSH HL
F369	RRCA
F36A	RRCA
F36B	ADD A,D
F36C	ADD A,D
F36D	DEFB $FD
F36E	RST $38
F36F	RET NC
F370	JP P,$E683
F373	AND $E5
F375	JP P,$8002
F378	CALL M,$8300
F37B	ADD A,B
F37C	DI
F37D	LD A,D
F37E	DI
F37F	DEC BC
F380	RET Z
F381	NOP
F382	ADC A,C
F383	DI
F384	LD (BC),A
F385	ADD A,B
F386	DEFB $FD
F387	NOP
F388	DEC BC
F389	LD IX,($A013)
F38D	LD A,($A036)
F390	DEC A
F391	CP (IX+$01)
F394	JP NZ,$DC15
F397	LD HL,$A034
F39A	INC A
F39B	CP (HL)
F39C	JP Z,$DC15
F39F	OR $01
F3A1	RET
F3A2	INC BC
F3A3	ADC A,B
F3A4	PUSH HL
F3A5	RLCA
F3A6	LD B,$E5
F3A8	EI
F3A9	DEFB $FD
F3AA	LD C,$69
F3AC	DI
F3AD	RLCA
F3AE	LD B,C
F3AF	SBC A,H
F3B0	DEFB $FD
F3B1	RST $38
F3B2	ADD A,E
F3B3	LD D,H
F3B4	AND $C1
F3B6	DI
F3B7	ADD A,E
F3B8	LD L,A
F3B9	AND $C1
F3BB	DI
F3BC	RLCA
F3BD	CP H
F3BE	AND $FC
F3C0	EI
F3C1	DEC BC
This entry point is used by the routine at A277.
F3C2	PUSH IY
F3C4	PUSH HL
F3C5	PUSH HL
F3C6	POP IY
F3C8	PUSH DE
F3C9	PUSH BC
F3CA	LD D,$7F
F3CC	LD E,$3F
F3CE	LD B,$01
F3D0	LD C,$01
F3D2	LD L,$01
F3D4	LD A,(IY+$00)
F3D7	AND A
F3D8	JP Z,$F488
F3DB	INC IY
F3DD	CP $08
F3DF	JR NZ,$F3EF
F3E1	LD D,(IY+$00)
F3E4	SET 7,D
F3E6	INC IY
F3E8	LD E,(IY+$00)
F3EB	INC IY
F3ED	JR $F3D4
F3EF	BIT 7,A
F3F1	JR Z,$F414
F3F3	LD B,A
F3F4	AND $07
F3F6	LD C,A
F3F7	LD A,B
F3F8	RRCA
F3F9	AND $3C
F3FB	LD B,A
F3FC	LD A,(IY+$00)
F3FF	AND $3F
F401	LD L,A
F402	INC L
F403	LD A,(IY+$00)
F406	INC IY
F408	RLCA
F409	RLCA
F40A	AND $03
F40C	OR B
F40D	LD B,A
F40E	INC B
F40F	CALL $F56E
F412	JR $F3D4
F414	BIT 6,A
F416	JR Z,$F42E
F418	AND $07
F41A	PUSH DE
F41B	LD D,(IY+$00)
F41E	SET 7,D
F420	INC IY
F422	LD E,(IY+$00)
F425	INC IY
F427	CALL $F490
F42A	POP DE
F42B	JP $F3D4
F42E	BIT 5,A
F430	JP Z,$F3D4
F433	AND $07
F435	RLCA
F436	RLCA
F437	RLCA
F438	PUSH HL
F439	PUSH DE
F43A	PUSH BC
F43B	LD C,A
F43C	LD H,(IY+$00)
F43F	INC IY
F441	LD A,(IY+$00)
F444	ADD A,$10
F446	LD L,A
F447	INC IY
F449	LD A,(IY+$00)
F44C	INC IY
F44E	CP $FF
F450	JR Z,$F482
F452	LD B,A
F453	AND $03
F455	LD E,A
F456	LD A,B
F457	RRCA
F458	RRCA
F459	AND $3F
F45B	INC A
F45C	LD B,A
F45D	LD A,(HL)
F45E	AND $07
F460	RLCA
F461	RLCA
F462	RLCA
F463	CP C
F464	JR NZ,$F468
F466	XOR $38
F468	RRCA
F469	RRCA
F46A	RRCA
F46B	OR C
F46C	LD (HL),A
F46D	LD A,E
F46E	AND A
F46F	CALL Z,$F514
F472	DEC A
F473	CALL Z,$F540
F476	DEC A
F477	CALL Z,$F525
F47A	DEC A
F47B	CALL Z,$F536
F47E	DJNZ $F45D
F480	JR $F449
F482	POP BC
F483	POP DE
F484	POP HL
F485	JP $F3D4
F488	POP BC
F489	POP DE
F48A	POP HL
F48B	POP IY
F48D	RET
F48E	NOP
F48F	NOP
F490	LD ($F60B),A
F493	PUSH DE
F494	PUSH HL
F495	LD HL,$00B0
F498	PUSH HL
F499	CALL $F50D
F49C	JR NZ,$F4A5
F49E	CALL $F565
F4A1	JR NZ,$F499
F4A3	JR $F4AB
F4A5	CALL $F5D2
F4A8	CALL $F55E
F4AB	LD HL,$0000
F4AE	LD ($F48E),HL
F4B1	CALL $F54A
F4B4	LD A,$00
F4B6	JR Z,$F4CD
F4B8	CALL $F50D
F4BB	LD A,$00
F4BD	JR NZ,$F4C8
F4BF	LD A,($F48E)
F4C2	AND A
F4C3	JR NZ,$F4C8
F4C5	PUSH DE
F4C6	LD A,$01
F4C8	PUSH AF
F4C9	CALL $F555
F4CC	POP AF
F4CD	LD ($F48E),A
F4D0	CALL $F555
F4D3	LD A,$00
F4D5	JR Z,$F4EC
F4D7	CALL $F50D
F4DA	LD A,$00
F4DC	JR NZ,$F4E7
F4DE	LD A,($F48F)
F4E1	AND A
F4E2	JR NZ,$F4E7
F4E4	PUSH DE
F4E5	LD A,$01
F4E7	PUSH AF
F4E8	CALL $F54A
F4EB	POP AF
F4EC	LD ($F48F),A
F4EF	CALL $F5D2
F4F2	CALL $F55E
F4F5	JR Z,$F4FF
F4F7	CALL $F50D
F4FA	JR Z,$F4B1
F4FC	CALL $F5D2
F4FF	POP DE
F500	LD A,E
F501	CP $B0
F503	JR NZ,$F499
F505	LD A,$00
F507	LD ($F60B),A
F50A	POP HL
F50B	POP DE
F50C	RET
F50D	PUSH HL
F50E	CALL $F5FB
F511	AND (HL)
F512	POP HL
F513	RET
F514	PUSH AF
F515	PUSH DE
F516	LD DE,$0020
F519	AND A
F51A	SBC HL,DE
F51C	LD A,H
F51D	CP $57
F51F	JR NZ,$F522
F521	ADD HL,DE
F522	POP DE
F523	POP AF
F524	RET
F525	PUSH AF
F526	PUSH DE
F527	LD DE,$0020
F52A	ADD HL,DE
F52B	LD A,H
F52C	CP $5A
F52E	JR NZ,$F532
F530	AND A
F531	SBC HL,DE
F533	POP DE
F534	POP AF
F535	RET
F536	PUSH AF
F537	DEC HL
F538	LD A,H
F539	CP $57
F53B	JR NZ,$F53E
F53D	INC HL
F53E	POP AF
F53F	RET
F540	PUSH AF
F541	INC HL
F542	LD A,H
F543	CP $5A
F545	JR NZ,$F548
F547	DEC HL
F548	POP AF
F549	RET
This entry point is used by the routine at F56E.
F54A	INC E
F54B	LD H,A
F54C	LD A,E
F54D	CP $B0
F54F	LD A,H
F550	RET NZ
F551	DEC E
F552	XOR A
F553	LD A,H
F554	RET