Sherlock: Routine at 50385

50385: Routine at C4D1

Used by the routines at ScriptInterpreter, 52641 and HandleSimpleAction.
50385	LD A,(41011)
50388	BIT 7,A
50390	JP NZ,50563
50393	CALL 41649
50396	PUSH HL
50397	POP IX
50399	CALL 41661
50402	CALL 50323
50405	CALL 50354
50408	XOR A
50409	LD (40971),A
50412	LD A,(40989)
50415	AND 12
50417	JR Z,50490
50419	LD A,(40975)
50422	CP 5
50424	JR NZ,50434
50426	LD A,(41012)
50429	CP 254
50431	JP NZ,52033
50434	LD A,(40976)
50437	CP 5
50439	JR NZ,50449
50441	LD A,(41013)
50444	CP 254
50446	JP NZ,52033
50449	LD A,(40975)
50452	AND A
50453	JR Z,50481
50455	LD A,(41012)
50458	CP 255
50460	JR NZ,50481
50462	LD B,255
50464	INC B
50465	CALL 50275
50468	RET Z
50469	LD (41012),A
50472	PUSH BC
50473	CALL 50522
50476	POP BC
50477	JR NZ,50490
50479	JR 50464
50481	CALL 50498
50484	JR Z,50490
50486	CALL 50528
50489	RET Z
50490	LD A,1
50492	LD (40971),A
50495	JP 51497
50498	LD A,(40976)
50501	AND A
50502	RET Z
50503	LD A,(41013)
50506	CP 255
50508	JR NZ,50520
50510	LD A,(40989)
50513	AND 2
50515	JR NZ,50520
50517	OR 1
50519	RET
50520	XOR A
50521	RET
50522	CALL 50498
50525	JP Z,51497
50528	LD B,255
50530	INC B
50531	CALL 50270
50534	JR Z,50544
50536	LD (41013),A
50539	CALL 51497
50542	JR Z,50530
50544	RET
50545	LD A,(IX+0)
50548	AND 15
50550	LD (40975),A
50553	RET
50554	LD A,(IX+1)
50557	AND 15
50559	LD (40976),A
50562	RET
50563	AND 127
50565	LD E,A
50566	LD D,0
50568	LD HL,40875
50571	ADD HL,DE
50572	ADD HL,DE
50573	LD E,(HL)
50574	INC HL
50575	LD D,(HL)
50576	EX DE,HL
This entry point is used by the routine at 52815.
50577	PUSH HL
50578	POP IX
50580	CALL 50545
50583	CALL 50554
50586	XOR A
50587	LD (40971),A
50590	LD A,(40975)
50593	LD HL,40976
50596	OR (HL)
50597	JR Z,50676
50599	LD A,(40975)
50602	CP 5
50604	JR Z,50610
50606	CP 6
50608	JR NZ,50618
50610	LD A,(41012)
50613	CP 254
50615	JP NZ,52033
50618	LD A,(40976)
50621	CP 5
50623	JR Z,50629
50625	CP 6
50627	JR NZ,50637
50629	LD A,(41013)
50632	CP 254
50634	JP NZ,52033
50637	LD A,(40975)
50640	AND A
50641	JR Z,50667
50643	LD A,(41012)
50646	CP 255
50648	JR NZ,50667
50650	LD B,0
50652	CALL 50275
50655	RET Z
50656	LD (41012),A
50659	CALL 50701
50662	JR NZ,50676
50664	INC B
50665	JR 50652
50667	CALL 50684
50670	JR Z,50676
50672	CALL 50707
50675	RET Z
50676	LD A,1
50678	LD (40971),A
50681	JP 51593
50684	LD A,(40976)
50687	AND A
50688	RET Z
50689	LD A,(41013)
50692	CP 255
50694	JR NZ,50699
50696	OR 1
50698	RET
50699	XOR A
50700	RET
50701	CALL 50684
50704	JP Z,51593
50707	PUSH BC
50708	LD B,0
50710	CALL 50270
50713	JR Z,50726
50715	LD (41013),A
50718	CALL 51593
50721	JR NZ,50726
50723	INC B
50724	JR 50710
50726	POP BC
50727	RET
This entry point is used by the routine at 51606.
50728	LD A,(IY+0)
50731	AND 15
50733	JR NZ,50741
50735	OR 1
50737	RET
50738	JP 56341
50741	CP 5
50743	JR C,50784
50745	CP 7
50747	JR NC,50818
50749	LD A,(41012)
50752	CP 254
50754	JR NZ,50772
50756	LD HL,(41007)
50759	LD A,(IY+0)
50762	AND 15
50764	CP 5
50766	JR NZ,50778
50768	BIT 7,L
50770	JR Z,50735
50772	XOR A
50773	LD (40993),A
50776	JR 50738
50778	BIT 7,L
50780	JR NZ,50735
50782	JR 50772
50784	CP 3
50786	JR NC,50800
50788	LD A,(41012)
50791	CALL FetchLocationDataPointer
50794	BIT 7,(IX+0)
50798	JR Z,50772
50800	BIT 0,(IY+0)
50804	JR Z,50735
50806	LD A,(41012)
50809	CALL 54385
50812	CP 255
50814	JR Z,50772
50816	JR 50735
50818	LD A,(41012)
50821	LD (52090),A
50824	LD C,A
50825	LD A,(IY+0)
50828	CALL 51110
50831	JR Z,50772
50833	BIT 4,(IY+0)
50837	JR Z,50735
50839	LD A,(IY+2)
50842	LD L,(IY+3)
50845	LD H,(IY+4)
50848	BIT 6,(IY+0)
50852	JR Z,50863
50854	LD A,(IY+4)
50857	LD L,(IY+5)
50860	LD H,(IY+6)
50863	RRCA
50864	RRCA
50865	RRCA
50866	RRCA
50867	LD B,A
50868	CALL 51022
50871	RET NZ
50872	LD A,1
50874	LD (40993),A
50877	RET
This entry point is used by the routine at 51606.
50878	LD A,(IY+1)
50881	AND 15
50883	JR NZ,50891
50885	OR 1
50887	RET
50888	JP 56341
50891	CP 5
50893	JR C,50933
50895	CP 7
50897	JR NC,50969
50899	LD A,(41013)
50902	CP 254
50904	JP NZ,50772
50907	LD HL,(41009)
50910	LD A,(IY+1)
50913	AND 15
50915	CP 5
50917	JR NZ,50926
50919	BIT 7,L
50921	JR Z,50885
50923	JP 50772
50926	BIT 7,L
50928	JR NZ,50885
50930	JP 50772
50933	CP 3
50935	JR NC,50950
50937	LD A,(41013)
50940	CALL FetchLocationDataPointer
50943	BIT 7,(IX+0)
50947	JP Z,50772
50950	BIT 0,(IY+1)
50954	JR Z,50885
50956	LD A,(41013)
50959	CALL 54385
50962	CP 255
50964	JP Z,50772
50967	JR 50885
50969	LD A,(41013)
50972	LD (52090),A
50975	LD C,A
50976	LD A,(IY+1)
50979	CALL 51110
50982	RET Z
50983	BIT 4,(IY+0)
50987	JP Z,50735
50990	LD A,(IY+2)
50993	LD L,(IY+5)
50996	LD H,(IY+6)
50999	BIT 6,(IY+0)
51003	JR Z,51014
51005	LD A,(IY+4)
51008	LD L,(IY+7)
51011	LD H,(IY+8)
51014	LD B,A
51015	CALL 51022
51018	RET NZ
51019	JP 50872
51022	LD A,C
51023	CALL FetchObjectDataPointer
51026	LD C,(IX+5)
51029	LD A,B
51030	RRCA
51031	RRCA
51032	AND 3
51034	LD D,L
51035	CALL 51043
51038	RET Z
51039	LD A,B
51040	AND 3
51042	LD D,H
51043	JR NZ,51053
51045	LD A,D
51046	AND C
51047	CP D
51048	JP Z,50735
51051	JR 51090
51053	CP 1
51055	JR NZ,51067
51057	LD A,D
51058	AND A
51059	JR Z,51048
51061	AND C
51062	JR Z,51093
51064	JP 50735
51067	CP 2
51069	JR NZ,51080
51071	LD A,D
51072	AND C
51073	JP Z,50735
51076	OR 128
51078	JR 51095
51080	LD A,D
51081	AND C
51082	CP D
51083	JP NZ,50735
51086	OR 128
51088	JR 51095
51090	XOR 255
51092	AND D
51093	AND 127
51095	LD (52089),A
51098	LD A,(40971)
51101	AND A
51102	JP Z,50735
51105	LD HL,52091
51108	XOR A
51109	RET
51110	AND 15
51112	CP 7
51114	JP Z,50735
51117	CP 8
51119	JR NZ,51131
51121	LD A,C
51122	CALL 51233
51125	JP Z,50738
51128	JP 50735
51131	CP 9
51133	JR NZ,51172
51135	LD A,C
51136	CALL 51233
51139	JP Z,50738
51142	LD A,C
51143	CALL 51367
51146	JP NZ,50738
51149	LD A,C
51150	CALL 51390
51153	JP NZ,50738
51156	LD B,C
51157	LD A,(41014)
51160	CALL 51398
51163	JP Z,50738
51166	LD A,C
51167	CALL 51375
51170	JR 51048
51172	CP 10
51174	JR NZ,51193
51176	LD A,C
51177	CALL 51233
51180	JP Z,50738
51183	LD A,C
51184	CALL 53877
51187	JP NC,50738
51190	JP 50735
51193	CP 11
51195	JR NZ,51210
51197	LD A,C
51198	CALL 51233
51201	JP Z,50738
51204	LD A,C
51205	CALL 51367
51208	JR 51125
51210	CP 12
51212	JR NZ,51220
51214	LD A,C
51215	CALL 51390
51218	JR 51125
51220	LD A,C
51221	CALL 51233
51224	JP Z,50738
51227	LD A,C
51228	CALL 51390
51231	JR 51125