Sherlock: Routine at 61889

61889: Routine at F1C1

Used by the routines at CharacterAction_Gardener and 59025.
61889	CALL FetchObjectDataPointer
61892	LD (IX+9),E
61895	LD (IX+10),D
61898	LD A,(IX+8)
61901	AND 15
61903	OR B
61904	LD (IX+8),A
61907	OR 1
61909	RET
61910	RLCA
61911	NOP
61912	LD A,(41012)
61915	LD B,97
61917	CP 13
61919	JR C,61925
61921	LD B,112
61923	SUB 12
61925	LD HL,40928
61928	CP (HL)
61929	JP NZ,56341
61932	LD A,(40930)
61935	CP B
61936	JP NZ,56341
61939	OR 1
61941	RET
61942	RLCA
61943	NOP
61944	LD IX,(40979)
61948	SET 7,(IX+5)
61952	OR 1
61954	RET
61955	RLCA
61956	NOP
61957	LD IX,(40979)
61961	RES 0,(IX+5)
61965	OR 1
61967	RET
61968	RLCA
61969	NOP
61970	LD IX,(40979)
61974	SET 0,(IX+5)
61978	OR 1
61980	RET
61981	LD (BC),A
61982	ADC A,H
61983	DJNZ 61988
61985	LD (BC),A
61986	ADC A,H
61987	LD (BC),A
61988	INC BC
61989	LD (BC),A
61990	ADC A,H
61991	INC D
61992	INC BC
61993	LD (BC),A
61994	ADC A,H
61995	LD (BC),A
61996	LD BC,48647
61999	DEFB 221
62000	LD (BC),A
62001	RST 56
62002	LD (BC),A
62003	ADC A,H
62004	LD A,(DE)
62005	INC B
62006	LD (BC),A
62007	ADC A,H
62008	LD (BC),A
62009	INC B
62010	RRCA
62011	LD (BC),A
62012	ADC A,H
62013	LD E,4
62015	LD (BC),A
62016	ADC A,H
62017	LD (BC),A
62018	DEC B
62019	LD C,29
62021	JP P,48647
62024	DEFB 221
62025	LD (BC),A
62026	RST 56
62027	LD (BC),A
62028	ADC A,H
62029	DEC D
62030	INC BC
62031	LD (BC),A
62032	ADC A,H
62033	LD (BC),A
62034	INC BC
62035	LD (BC),A
62036	ADC A,H
62037	LD DE,515
62040	ADC A,H
62041	LD (BC),A
62042	LD BC,48647
62045	DEFB 221
62046	INC B
62047	RST 56
62048	LD (BC),A
62049	ADC A,H
62050	RRA
62051	INC B
62052	LD (BC),A
62053	ADC A,H
62054	LD (BC),A
62055	LD BC,48647
62058	DEFB 221
62059	INC B
62060	RST 56
62061	LD (BC),A
62062	ADC A,H
62063	DEC DE
62064	INC B
62065	LD (BC),A
62066	ADC A,H
62067	LD (BC),A
62068	LD BC,17934
62071	JP P,48647
62074	DEFB 221
62075	INC A
62076	RST 56
62077	LD (BC),A
62078	ADC A,H
62079	RLA
62080	LD A,(BC)
62081	LD (BC),A
62082	ADC A,H
62083	INC B
62084	DEC B
62085	LD (BC),A
62086	ADC A,H
62087	LD D,10
62089	LD (BC),A
62090	ADC A,H
62091	INC BC
62092	DEC B
62093	RLCA
62094	CP (HL)
62095	DEFB 221
62096	INC A
62097	RST 56
62098	LD (BC),A
62099	ADC A,H
62100	LD (HL),10
62102	LD (BC),A
62103	ADC A,H
62104	INC B
62105	DEC B
62106	LD (BC),A
62107	ADC A,H
62108	SCF
62109	LD A,(BC)
62110	LD (BC),A
62111	ADC A,H
62112	INC BC
62113	DEC B
62114	LD C,120
62116	JP P,1924
62119	RLCA
62120	RET
62121	CALL PO,65533
62124	RLCA
62125	CP (HL)
62126	DEFB 221
62127	CALL M,3071
62130	RRCA
62131	LD C,178
62133	JP P,64773
62136	XOR H
62137	LD L,E
62138	RLCA
62139	CPL
62140	PUSH HL
62141	INC B
62142	INC B
62143	INC BC
62144	XOR B
62145	PUSH HL
62146	ADD A,C
62147	ADD A,D
62148	RET NC
62149	JP P,31363
62152	PUSH HL
62153	CP A
62154	JP P,63110
62157	LD L,E
62158	HALT
62159	DI
62160	INC BC
62161	ADC A,B
62162	PUSH HL
62163	RLCA
62164	CPL
62165	PUSH HL
62166	DEC B
62167	INC BC
62168	ADD A,E
62169	LD A,230
62171	EX DE,HL
62172	JP P,43011
62175	PUSH HL
62176	ADD A,E
62177	LD A,D
62178	PUSH HL
62179	RET C
62180	JP P,64901
62183	DEC DE
62184	LD L,H
62185	CP D
62186	JP P,33410
62189	DEFB 253
62190	RST 56
62191	CALL M,33522
62194	ADD A,C
62195	DEFB 253
62196	EI
62197	LD L,243
62199	INC DE
62200	AND 230
62202	LD E,C
62203	DI
62204	INC BC
62205	ADC A,B
62206	PUSH HL
62207	RLCA
62208	CPL
62209	PUSH HL
62210	DEC B
62211	LD (BC),A
62212	ADD A,E
62213	LD D,H
62214	AND 162
62216	DI
62217	ADD A,E
62218	LD L,A
62219	AND 102
62221	DI
62222	LD (DE),A
62223	ADD A,D
62224	DEFB 253
62225	RST 56
62226	LD L,243
62228	INC BC
62229	XOR B
62230	PUSH HL
62231	ADD A,E
62232	LD A,D
62233	PUSH HL
62234	INC B
62235	DI
62236	ADD A,E
62237	LD D,H
62238	AND 162
62240	DI
62241	ADD A,E
62242	LD L,A
62243	AND 105
62245	DI
62246	RLCA
62247	CP H
62248	AND 253
62250	EI
62251	LD C,255
62253	JP P,34819
62256	PUSH HL
62257	LD B,199
62259	LD L,E
62260	RLCA
62261	CPL
62262	PUSH HL
62263	DEC B
62264	LD (BC),A
62265	ADD A,E
62266	LD D,H
62267	AND 162
62269	DI
62270	ADD A,E
62271	LD L,A
62272	AND 102
62274	DI
62275	ADD A,D
62276	ADD A,D
62277	DEFB 253
62278	RST 56
62279	CALL M,4850
62282	ADD A,C
62283	DEFB 253
62284	EI
62285	LD E,C
62286	DI
62287	INC BC
62288	XOR B
62289	PUSH HL
62290	SUB E
62291	LD A,D
62292	PUSH HL
62293	ADD HL,SP
62294	DI
62295	LD SP,1011
62298	ADC A,B
62299	PUSH HL
62300	INC BC
62301	LD C,231
62303	SUB E
62304	AND 230
62306	CALL M,30450
62309	DI
62310	INC BC
62311	ADC A,B
62312	PUSH HL
62313	RRCA
62314	RRCA
62315	ADD A,D
62316	ADD A,D
62317	DEFB 253
62318	RST 56
62319	RET NC
62320	JP P,59011
62323	AND 229
62325	JP P,32770
62328	CALL M,33536
62331	ADD A,B
62332	DI
62333	LD A,D
62334	DI
62335	DEC BC
62336	RET Z
62337	NOP
62338	ADC A,C
62339	DI
62340	LD (BC),A
62341	ADD A,B
62342	DEFB 253
62343	NOP
62344	DEC BC
62345	LD IX,(40979)
62349	LD A,(41014)
62352	DEC A
62353	CP (IX+1)
62356	JP NZ,56341
62359	LD HL,41012
62362	INC A
62363	CP (HL)
62364	JP Z,56341
62367	OR 1
62369	RET
62370	INC BC
62371	ADC A,B
62372	PUSH HL
62373	RLCA
62374	LD B,229
62376	EI
62377	DEFB 253
62378	LD C,105
62380	DI
62381	RLCA
62382	LD B,C
62383	SBC A,H
62384	DEFB 253
62385	RST 56
62386	ADD A,E
62387	LD D,H
62388	AND 193
62390	DI
62391	ADD A,E
62392	LD L,A
62393	AND 193
62395	DI
62396	RLCA
62397	CP H
62398	AND 252
62400	EI
62401	DEC BC
This entry point is used by the routine at 41591.
62402	PUSH IY
62404	PUSH HL
62405	PUSH HL
62406	POP IY
62408	PUSH DE
62409	PUSH BC
62410	LD D,127
62412	LD E,63
62414	LD B,1
62416	LD C,1
62418	LD L,1
62420	LD A,(IY+0)
62423	AND A
62424	JP Z,62600
62427	INC IY
62429	CP 8
62431	JR NZ,62447
62433	LD D,(IY+0)
62436	SET 7,D
62438	INC IY
62440	LD E,(IY+0)
62443	INC IY
62445	JR 62420
62447	BIT 7,A
62449	JR Z,62484
62451	LD B,A
62452	AND 7
62454	LD C,A
62455	LD A,B
62456	RRCA
62457	AND 60
62459	LD B,A
62460	LD A,(IY+0)
62463	AND 63
62465	LD L,A
62466	INC L
62467	LD A,(IY+0)
62470	INC IY
62472	RLCA
62473	RLCA
62474	AND 3
62476	OR B
62477	LD B,A
62478	INC B
62479	CALL 62830
62482	JR 62420
62484	BIT 6,A
62486	JR Z,62510
62488	AND 7
62490	PUSH DE
62491	LD D,(IY+0)
62494	SET 7,D
62496	INC IY
62498	LD E,(IY+0)
62501	INC IY
62503	CALL 62608
62506	POP DE
62507	JP 62420
62510	BIT 5,A
62512	JP Z,62420
62515	AND 7
62517	RLCA
62518	RLCA
62519	RLCA
62520	PUSH HL
62521	PUSH DE
62522	PUSH BC
62523	LD C,A
62524	LD H,(IY+0)
62527	INC IY
62529	LD A,(IY+0)
62532	ADD A,16
62534	LD L,A
62535	INC IY
62537	LD A,(IY+0)
62540	INC IY
62542	CP 255
62544	JR Z,62594
62546	LD B,A
62547	AND 3
62549	LD E,A
62550	LD A,B
62551	RRCA
62552	RRCA
62553	AND 63
62555	INC A
62556	LD B,A
62557	LD A,(HL)
62558	AND 7
62560	RLCA
62561	RLCA
62562	RLCA
62563	CP C
62564	JR NZ,62568
62566	XOR 56
62568	RRCA
62569	RRCA
62570	RRCA
62571	OR C
62572	LD (HL),A
62573	LD A,E
62574	AND A
62575	CALL Z,62740
62578	DEC A
62579	CALL Z,62784
62582	DEC A
62583	CALL Z,62757
62586	DEC A
62587	CALL Z,62774
62590	DJNZ 62557
62592	JR 62537
62594	POP BC
62595	POP DE
62596	POP HL
62597	JP 62420
62600	POP BC
62601	POP DE
62602	POP HL
62603	POP IY
62605	RET
62606	NOP
62607	NOP
62608	LD (62987),A
62611	PUSH DE
62612	PUSH HL
62613	LD HL,176
62616	PUSH HL
62617	CALL 62733
62620	JR NZ,62629
62622	CALL 62821
62625	JR NZ,62617
62627	JR 62635
62629	CALL 62930
62632	CALL 62814
62635	LD HL,0
62638	LD (62606),HL
62641	CALL 62794
62644	LD A,0
62646	JR Z,62669
62648	CALL 62733
62651	LD A,0
62653	JR NZ,62664
62655	LD A,(62606)
62658	AND A
62659	JR NZ,62664
62661	PUSH DE
62662	LD A,1
62664	PUSH AF
62665	CALL 62805
62668	POP AF
62669	LD (62606),A
62672	CALL 62805
62675	LD A,0
62677	JR Z,62700
62679	CALL 62733
62682	LD A,0
62684	JR NZ,62695
62686	LD A,(62607)
62689	AND A
62690	JR NZ,62695
62692	PUSH DE
62693	LD A,1
62695	PUSH AF
62696	CALL 62794
62699	POP AF
62700	LD (62607),A
62703	CALL 62930
62706	CALL 62814
62709	JR Z,62719
62711	CALL 62733
62714	JR Z,62641
62716	CALL 62930
62719	POP DE
62720	LD A,E
62721	CP 176
62723	JR NZ,62617
62725	LD A,0
62727	LD (62987),A
62730	POP HL
62731	POP DE
62732	RET
62733	PUSH HL
62734	CALL 62971
62737	AND (HL)
62738	POP HL
62739	RET
62740	PUSH AF
62741	PUSH DE
62742	LD DE,32
62745	AND A
62746	SBC HL,DE
62748	LD A,H
62749	CP 87
62751	JR NZ,62754
62753	ADD HL,DE
62754	POP DE
62755	POP AF
62756	RET
62757	PUSH AF
62758	PUSH DE
62759	LD DE,32
62762	ADD HL,DE
62763	LD A,H
62764	CP 90
62766	JR NZ,62770
62768	AND A
62769	SBC HL,DE
62771	POP DE
62772	POP AF
62773	RET
62774	PUSH AF
62775	DEC HL
62776	LD A,H
62777	CP 87
62779	JR NZ,62782
62781	INC HL
62782	POP AF
62783	RET
62784	PUSH AF
62785	INC HL
62786	LD A,H
62787	CP 90
62789	JR NZ,62792
62791	DEC HL
62792	POP AF
62793	RET
This entry point is used by the routine at 62830.
62794	INC E
62795	LD H,A
62796	LD A,E
62797	CP 176
62799	LD A,H
62800	RET NZ
62801	DEC E
62802	XOR A
62803	LD A,H
62804	RET