Sherlock: Routine at 56428

56428: Routine at DC6C

Used by the routines at 41700, 51606, 52035 and 56341.
56428	LD A,(41014)
56431	CP 0
56433	RET Z
56434	CP 1
56436	RET Z
56437	CP 100
56439	RET Z
56440	OR 1
56442	RET
56443	JR NZ,56461
56445	CALL 56428
56448	RET NZ
56449	CALL 41634
56452	LD A,(40970)
56455	CALL 53506
56458	OR 1
56460	RET
56461	LD L,D
56462	DJNZ 56392
56464	DEFB 221
56465	LD IX,(40979)
56469	LD IY,(40983)
56473	LD A,(IY+1)
56476	LD (IX+1),A
56479	OR 1
56481	RET
56482	CALL 53868
56485	JR C,56502
This entry point is used by the routine at 57723.
56487	LD A,(41014)
56490	LD HL,41012
56493	CALL 53880
56496	JP C,56341
56499	OR 1
56501	RET
56502	LD HL,56507
56505	XOR A
56506	RET
56507	LD HL,26807
56510	JP 42399
56513	LD L,C
56514	DJNZ 56422
56516	CALL C,10973
56519	INC DE
56520	AND B
56521	LD A,(41014)
56524	LD (IX+1),A
56527	OR 1
56529	RET
56530	LD A,(41011)
56533	CALL 54344
56536	CP 255
56538	JP Z,56341
This entry point is used by the routine at 56341.
56541	CALL 52135
56544	LD IY,(40983)
56548	LD A,(IY+1)
56551	CP 255
56553	JP NZ,56341
56556	LD A,(IX+2)
56559	AND A
56560	JP Z,56341
56563	LD A,(IX+1)
56566	CALL 56629
56569	JP NZ,56341
56572	OR 1
56574	RET
56575	NOP
56576	NOP
56577	NOP
56578	NOP
56579	LD H,B
56580	JR NZ,56536
56582	CALL C,32477
56585	LD (BC),A
56586	LD B,A
This entry point is used by the routine at 56341.
56587	LD A,(41014)
This entry point is used by the routine at 57723.
56590	PUSH AF
56591	LD HL,41014
56594	CP (HL)
56595	LD A,B
56596	JR NZ,56601
56598	LD (40970),A
56601	CP 255
56603	JR NZ,56606
56605	XOR A
56606	LD (56577),A
56609	CALL FetchLocationDataPointer
56612	LD (56575),IX
56616	POP AF
56617	CALL FetchObjectDataPointer
56620	LD (IX+15),B
56623	CALL 53833
56626	OR 1
56628	RET
56629	AND A
56630	RET Z
56631	PUSH IX
56633	CALL FetchObjectDataPointer
56636	LD A,(IX+5)
56639	AND 40
56641	LD A,(IX+2)
56644	POP IX
56646	JR Z,56655
56648	CP (IY+2)
56651	JR C,56655
56653	XOR A
56654	RET
56655	OR 1
56657	RET
56658	AND H
56659	NOP
56660	RLA
56661	LD H,C
56662	DEFB 221
56663	DEFB 253
56664	RST 56
56665	LD H,B
56666	DEFB 221
56667	LD DE,24829
56670	DEFB 221
56671	DEC BC
56672	LD A,(BC)
56673	LD H,H
56674	NOP
56675	LD L,(HL)
56676	DEFB 221
56677	LD A,(IX+0)
56680	LD (40919),A
56683	OR 1
56685	RET
56686	LD A,(41012)
56689	CALL 54385
56692	CP 255
56694	JP Z,56341
56697	LD A,(IX+0)
56700	CP 11
56702	JP NC,56341
56705	OR 1
56707	RET
56708	LD L,L
56709	NOP
56710	SUB C
56711	DEFB 221
56712	LD A,(IX+1)
56715	LD (40918),A
56718	OR 1
56720	RET
56721	LD IX,(40979)
56725	LD A,(IX+1)
56728	AND A
56729	INC A
56730	JP Z,56341
56733	RET
56734	DEC C
56735	DJNZ 56795
56737	INC (HL)
56738	AND B
56739	CALL FindCharacter
56742	CP 255
56744	LD A,0
56746	JR Z,56750
56748	LD A,1
56750	CALL 47210
56753	OR 1
56755	RET
56756	LD B,B
56757	LD D,B
56758	CP B
56759	DEFB 221
56760	CALL 52135
56763	OR 1
56765	RET
56766	LD B,B
56767	NOP
56768	CP B
56769	DEFB 221
56770	LD A,(41012)
56773	LD (40991),A
56776	OR 1
56778	RET
56779	NOP
56780	NOP
56781	NOP
56782	NOP
56783	NOP
56784	LD B,L
56785	NOP
56786	CP B
56787	LD IX,(41007)
56791	RES 7,H
56793	PUSH HL
56794	LD A,H
56795	AND 63
56797	LD H,A
56798	LD A,L
56799	AND 63
56801	LD L,A
56802	CALL 56904
56805	LD (56781),HL
56808	LD HL,(40927)
56811	CALL 56904
56814	LD (56779),HL
56817	POP HL
56818	LD A,97
56820	LD (56783),A
56823	BIT 6,H
56825	JR NZ,56857
56827	LD A,112
56829	LD (56783),A
56832	BIT 6,L
56834	JR NZ,56857
56836	CALL 56928
56839	LD A,(40930)
56842	JR C,56846
56844	JR NZ,56854
56846	CP 97
56848	LD A,112
56850	JR Z,56854
56852	LD A,97
56854	LD (56783),A
56857	LD HL,(56781)
56860	LD DE,(56779)
56864	AND A
56865	SBC HL,DE
56867	LD DE,720
56870	LD A,(40930)
56873	LD C,A
56874	LD A,(56783)
56877	LD B,A
56878	CALL 56928
56881	JR C,56892
56883	JR Z,56892
56885	LD A,B
56886	CP C
56887	JR Z,56898
56889	ADD HL,DE
56890	JR 56898
56892	ADD HL,DE
56893	LD A,B
56894	CP C
56895	JR NZ,56898
56897	ADD HL,DE
56898	LD (40991),HL
56901	OR 1
56903	RET
56904	PUSH DE
56905	PUSH BC
56906	LD C,L
56907	LD B,H
56908	LD HL,0
56911	LD DE,60
56914	LD A,B
56915	CP 12
56917	JR Z,56922
56919	ADD HL,DE
56920	DJNZ 56919
56922	LD B,0
56924	ADD HL,BC
56925	POP BC
56926	POP DE
56927	RET
56928	PUSH HL
56929	PUSH DE
56930	LD HL,(56781)
56933	LD DE,(56779)
56937	AND A
56938	SBC HL,DE
56940	POP DE
56941	POP HL
56942	RET
56943	JR NZ,56961
56945	CALL 41634
56948	LD HL,26797
56951	CALL 42399
56954	LD A,(41014)
56957	CALL 54476
56960	AND A
56961	LD HL,26880
56964	JR NZ,56972
56966	CALL 42399
56969	OR 1
56971	RET
56972	LD C,A
56973	LD A,(40970)
56976	LD B,A
56977	LD A,(41014)
56980	CALL 54554
56983	CALL 41634
56986	OR 1
56988	RET
56989	JR C,57007
56991	ADD A,B
56992	LD HL,0
56995	NOP
56996	LD IX,(40979)
57000	SET 5,(IX+5)
57004	OR 1
57006	RET
57007	JR C,57025
57009	NOP
57010	JR NZ,57012
57012	NOP
57013	NOP
57014	LD IX,(40979)
57018	RES 5,(IX+5)
57022	OR 1
57024	RET
57025	LD A,D
57026	JR 56989
57028	SBC A,9
57030	NOP
57031	NOP
57032	LD B,B
57033	JR Z,57032
57035	LD A,(HL)
57036	RRCA
57037	LD (IX+15),A
57040	LD A,(41013)
57043	LD (IX+1),A
57046	OR 1
57048	RET
57049	LD IX,(40979)
57053	LD IY,(40981)
57057	LD A,(41013)
This entry point is used by the routine at 57723.
57060	LD B,A
57061	LD A,(IY+4)
57064	AND 7
57066	JP Z,56341
57069	LD A,(IY+2)
57072	SUB (IX+2)
57075	JR C,57088
57077	PUSH AF
57078	LD A,B
57079	CALL 53997
57082	LD B,A
57083	POP AF
57084	SUB B
57085	JR C,57088
57087	RET NZ
57088	XOR A
57089	RET
57090	LD L,D
57091	DEC E
57092	INC H
57093	RST 24
57094	LD IY,(40981)
57098	LD IX,(40979)
57102	LD A,(41013)
57105	LD (IX+1),A
57108	LD A,(IY+15)
57111	LD (IX+15),A
57114	LD B,A
57115	LD A,(41012)
57118	CALL 53833
57121	OR 1
57123	RET
57124	LD A,(41012)
57127	LD B,A
57128	LD A,(41013)
57131	JP 51398
57134	LD A,(41012)
57137	CALL 51375
57140	JR Z,57149
57142	LD HL,41014
57145	CP (HL)
57146	JP NZ,56341
57149	OR 1
57151	RET
57152	LD A,B
57153	DJNZ 57201
57155	RST 24
57156	ADD A,B
57157	LD B,B
57158	NOP
57159	NOP
57160	NOP
57161	LD A,1
57163	LD (51886),A
57166	CALL 56428
57169	RET NZ
57170	CALL 57179
57173	CALL 41634
57176	OR 1
57178	RET
This entry point is used by the routine at 57681.
57179	LD A,(41012)
57182	CALL FetchObjectDataPointer
57185	SET 6,(IX+6)
57189	LD L,(IX+13)
57192	LD H,(IX+14)
57195	LD A,H
57196	OR L
57197	JP NZ,42399
57200	LD HL,26849
57203	CALL 42399
57206	CALL 54229
57209	LD A,46
57211	JP 43447
57214	ADC A,B
57215	NOP
57216	RLCA
57217	POP BC
57218	CALL C,65533
57221	RLCA
57222	ADC A,E
57223	RST 24
57224	DEFB 253
57225	RST 56
57226	DEC BC
57227	EX AF,AF'
57228	NOP
57229	LD A,(40097)
57232	AND A
57233	JR Z,57344
57235	LD A,255
57237	LD (40097),A
57240	LD IX,(40979)
57244	LD HL,2005
57247	LD (IX+9),L
57250	LD (IX+10),H
57253	JR 57344
57255	RET Z
57256	NOP
57257	INC E
57258	RET PO
57259	RLCA
57260	OR (HL)
57261	RST 24
57262	DEFB 253
57263	RST 56
57264	RLCA
57265	SBC A,L
57266	SBC A,253
57268	RST 56
57269	DEC BC
57270	RLCA
57271	RET P
57272	LD A,(41012)
57275	CP 89
57277	JP NZ,57344
57280	LD A,(40929)
57283	CP 0
57285	JP NZ,57344
57288	JR 57292
57290	NOP
57291	NOP
This entry point is used by the routine at 59025.
57292	LD HL,30108
57295	LD A,6
57297	CALL FetchObjectDataPointer
57300	LD A,(40969)
57303	CP (IX+15)
57306	JP NZ,40564
57309	LD HL,30162
57312	JP 40564
57315	LD A,(41014)
57318	CP 100
57320	JR 57341
57322	LD B,A
57323	DJNZ 57296
57325	RST 24
57326	JR 57351
57328	LD C,B
57329	DJNZ 57359
57331	RET PO
57332	LD A,100
57334	JR 57384
57336	LD A,(41014)
57339	CP 1
57341	JP NZ,56341
57344	OR 1
57346	RET
57347	LD B,A
57348	DJNZ 57342
57350	RST 24
57351	XOR A
57352	CALL 57402
57355	LD IX,(40979)
57359	LD (IX+1),0
57363	LD A,(40970)
57366	LD (IX+15),A
57369	OR 1
57371	RET
57372	LD A,(41014)
57375	AND A
57376	JR 57341
57378	LD C,B
57379	DJNZ 57409
57381	RET PO
57382	LD A,1
57384	CALL 57402
57387	LD IX,(40979)
57391	LD (IX+1),0
57395	LD (IX+15),0
57399	OR 1
57401	RET
This entry point is used by the routine at 57723.
57402	LD C,A
57403	LD A,(41014)
57406	CALL FindCharacter
57409	LD (IY+0),C
57412	LD IY,(40983)
57416	LD A,C
57417	CALL FetchObjectDataPointer
57420	LD (40983),IX
57424	LD A,(IY+1)
57427	LD (IX+1),A
57430	LD (IY+1),255
57434	LD A,(IY+15)
57437	LD (IX+15),A
57440	LD (IY+15),0
57444	LD B,0
57446	INC B
57447	LD A,B
57448	CP 110
57450	JR Z,57468
57452	CALL FetchObjectDataPointer
57455	LD A,(41014)
57458	CP (IX+1)
57461	JR NZ,57446
57463	LD (IX+1),C
57466	JR 57446
57468	CALL 53174
57471	JR Z,57478
57473	LD (IX+0),C
57476	JR 57468
57478	LD A,C
57479	LD (41014),A
57482	OR 1
57484	RET
57485	ADC A,L
57486	INC B
57487	ADD A,A
57488	PUSH IY
57490	DEFB 253
57491	RST 56
57492	SBC A,E
57493	RET PO
57494	DEC B
57495	SBC A,(IY+107)
57498	DEC BC
57499	LD (BC),A
57500	DEC E
57501	CALL M,3071
57504	ADC A,B
57505	NOP
57506	RLCA
57507	XOR L
57508	RET PO
57509	LD (BC),A
57510	LD E,L
57511	RLCA
57512	DEC (HL)
57513	POP HL
57514	DEFB 253
57515	RST 56
57516	DEC BC
57517	LD C,L
57518	RLCA
57519	INC E
57520	RET PO
57521	LD A,(40970)
57524	CP 88
57526	JR NZ,57565
57528	LD A,(40929)
57531	CP 1
57533	JR NZ,57565
57535	LD IX,(40981)
57539	SET 7,(IX+6)
57543	SET 7,(IX+5)
57547	LD A,(40970)
57550	LD (IX+15),A
57553	LD A,(41012)
57556	LD (IX+1),A
57559	LD HL,31578
57562	CALL 42399
57565	OR 1
57567	RET
57568	ADC A,B
57569	NOP
57570	RLCA
57571	DEC (HL)
57572	POP HL
57573	DEFB 253
57574	RST 56
57575	INC BC
57576	EX DE,HL
57577	RET PO
57578	DEC BC
57579	NOP
57580	NOP
57581	LD A,81
57583	JP 40022
57586	ADC A,B
57587	NOP
57588	RLCA
57589	DEC (HL)
57590	POP HL
57591	DEFB 253
57592	RST 56
57593	INC BC
57594	DEFB 253
57595	RET PO
57596	DEC BC
57597	NOP
57598	NOP
57599	LD A,63
57601	JP 40022
57604	EX AF,AF'
57605	LD H,B
57606	LD A,1
57608	LD (51886),A
57611	LD A,(41014)
57614	AND A
57615	RET NZ
57616	CALL 57179
57619	LD IX,(40979)
57623	BIT 5,(IX+5)
57627	RET NZ
57628	SET 5,(IX+5)
57632	LD HL,31735
57635	LD (IX+13),L
57638	LD (IX+14),H
57641	LD HL,31763
57644	CALL 42399
57647	CALL 41634
57650	OR 1
57652	RET
57653	LD A,B
57654	LD D,B
57655	LD L,223
57657	ADD A,B
57658	LD B,B
57659	NOP
57660	NOP
57661	NOP
57662	LD A,1
57664	LD (51886),A
57667	LD A,(41014)
57670	AND A
57671	RET NZ
57672	CALL 57681
57675	CALL 41634
57678	OR 1
57680	RET