The Hobbit: Routine at 30673

30673: Routine at 77D1

Used by the routine at 30626.
30673	LD HL,30079
30676	LD (HL),C
30677	INC HL
30678	LD (HL),B
This entry point is used by the routine at 30626.
30679	LD D,80
30681	LD A,(46873)
30684	CP 2
30686	JR NZ,30722
30688	LD HL,(30075)
30691	LD A,H
30692	OR L
30693	JR NZ,30719
30695	BIT 6,(IY+25)
30699	JR NZ,30709
30701	LD BC,65512
30704	ADD IY,BC
30706	CALL 30820
30709	CALL 30800
30712	LD (IY+1),64
30716	JP 30132
30719	CALL 30808
30722	CALL 30763
30725	JP Z,30132
30728	RET
This entry point is used by the routine at 30665.
30729	LD HL,30081
30732	LD A,(HL)
30733	INC HL
30734	OR (HL)
30735	JR Z,30744
30737	INC HL
30738	LD A,(HL)
30739	INC HL
30740	OR (HL)
30741	JP NZ,31012
30744	LD (HL),B
30745	DEC HL
30746	LD (HL),C
30747	RET
This entry point is used by the routine at 30626.
30748	LD HL,30074
30751	INC (HL)
30752	LD A,(HL)
30753	CP 3
30755	JP NC,31012
30758	LD HL,30075
30761	JR 30732
30763	BIT 6,E
30765	JR NZ,30800
30767	BIT 7,E
30769	JR NZ,30776
30771	CALL 31012
30774	XOR A
30775	RET
This entry point is used by the routine at 33459.
30776	RES 7,E
30778	PUSH DE
30779	LD DE,14
30782	PUSH BC
30783	PUSH IY
30785	POP HL
30786	ADD HL,DE
30787	EX DE,HL
30788	LD HL,30075
30791	LD BC,10
30794	LDIR
30796	POP BC
30797	POP DE
30798	XOR A
30799	RET
This entry point is used by the routine at 33459.
30800	RES 6,E
30802	PUSH DE
30803	LD DE,4
30806	JR 30782
This entry point is used by the routine at 30450.
30808	CALL 30885
30811	PUSH IX
30813	POP IY
This entry point is used by the routines at 30068 and 30515.
30815	XOR A
30816	LD (46873),A
30819	RET
This entry point is used by the routine at 30068.
30820	PUSH IY
30822	POP HL
30823	LD B,24
30825	CALL Blanker
30828	LD (IY-24),B
30831	LD (IY-23),B
30834	RET
This entry point is used by the routines at 30068, 30475, 30515, 30626 and 30665.
30835	LD HL,(46812)
30838	LD (46810),HL
30841	LD A,D
30842	LD (46814),A
30845	LD A,(HL)
30846	AND 15
30848	LD B,A
30849	LD A,(HL)
30850	AND 240
30852	LD D,A
30853	INC HL
30854	LD C,(HL)
30855	INC HL
30856	LD (46812),HL
30859	RET
This entry point is used by the routine at 30202.
30860	DEC B
30861	CALL 30885
30864	JR 30870
This entry point is used by the routine at 30202.
30866	DEC B
This entry point is used by the routine at 30202.
30867	CALL 30879
30870	PUSH IX
30872	PUSH IY
30874	POP IX
30876	POP IY
30878	RET
30879	PUSH DE
30880	LD DE,65512
30883	JR 30889
30885	PUSH DE
30886	LD DE,24
30889	PUSH IY
30891	POP IX
30893	ADD IX,DE
30895	BIT 6,(IX+1)
30899	JR NZ,30893
30901	POP DE
30902	RET
This entry point is used by the routine at 30202.
30903	EXX
30904	LD A,(IX+1)
30907	AND 127
30909	OR (IY+1)
30912	LD (IY+1),A
30915	LD A,(IX+0)
30918	LD (IY+0),A
30921	EXX
30922	LD A,(IY+28)
30925	OR (IY+29)
30928	RET Z
30929	BIT 7,E
30931	RET Z
30932	EXX
30933	PUSH IY
30935	POP HL
30936	LD DE,18
30939	ADD HL,DE
30940	PUSH HL
30941	LD DE,65526
30944	ADD HL,DE
30945	POP DE
30946	LD BC,6
30949	LDIR
30951	LD DE,4
This entry point is used by the routine at 30202.
30954	CALL 30975
30957	LD A,(IY+2)
30960	OR (IY+3)
30963	LD DE,2
30966	CALL Z,30979
30969	EXX
30970	RET
30971	LD C,6
30973	JR 30981
30975	LD C,10
30977	JR 30981
30979	LD C,2
30981	PUSH IY
30983	POP HL
30984	ADD HL,DE
30985	PUSH HL
30986	PUSH IX
30988	POP HL
30989	ADD HL,DE
30990	POP DE
30991	LD B,0
30993	LDIR
30995	RET
This entry point is used by the routine at 30515.
30996	RES 1,E
30998	LD L,0
This entry point is used by the routines at 30450 and 30515.
31000	PUSH DE
31001	PUSH IY
31003	POP DE
31004	LD H,0
31006	ADD HL,DE
31007	LD (HL),C
31008	INC HL
31009	LD (HL),B
31010	POP DE
31011	RET
This entry point is used by the routine at 30626.
31012	CALL 30193
31015	RET NZ
31016	POP HL
This entry point is used by the routines at 30450, 30515 and 33459.
31017	CALL 30193
31020	JP NZ,30132
This entry point is used by the routines at SquiggleLine and 30202.
31023	LD HL,44447	HL="what ?[0x14]"
31026	LD A,1
31028	LD (46849),A
31031	CALL PrintMsg	Call PrintMsg.
31034	OR 1
31036	RET
31037	NOP
31038	NOP
31039	NOP
31040	NOP
31041	NOP
31042	NOP
31043	NOP
31044	NOP
31045	NOP
31046	NOP
31047	NOP
31048	NOP
31049	NOP
31050	NOP
31051	NOP
31052	NOP
31053	NOP
31054	NOP
31055	NOP
31056	NOP
31057	NOP
31058	NOP
31059	NOP
31060	NOP
31061	NOP
31062	NOP
31063	NOP
31064	NOP
31065	NOP
31066	NOP
31067	NOP
31068	NOP
31069	NOP
31070	NOP
31071	NOP
This entry point is used by the routine at SquiggleLine.
31072	XOR A
31073	LD (46876),A
31076	LD IY,47560
31080	LD HL,46874
31083	CP (HL)
31084	LD (HL),A
31085	JP NZ,31124
31088	CALL 31158
31091	JR NZ,31098
31093	XOR A
31094	LD (46853),A
31097	RET
31098	CALL 31469
31101	JP Z,32245
31104	LD A,1
31106	LD (46842),A
31109	CALL 28971
31112	CALL Action_Examine_9
31115	CALL 38579
31118	LD A,(46876)
31121	AND A
31122	JR NZ,31088
31124	LD A,(46854)
31127	DEC A
31128	LD (46854),A
31131	RET Z
31132	LD BC,65512
31135	ADD IY,BC
31137	BIT 6,(IY+1)
31141	JR NZ,31135
31143	JR 31088
31145	XOR A
31146	LD (46849),A
31149	LD HL,31037
31152	LD B,17
31154	CALL Blanker
31157	RET
31158	LD A,255
31160	LD (46825),A
31163	LD (46824),A
31166	CALL 31145
31169	CALL 31646
31172	RET Z
31173	LD A,1
31175	PUSH IX
31177	POP HL
31178	LD DE,43859
31181	SBC HL,DE
31183	JR Z,31193
31185	LD DE,8
31188	INC A
31189	SBC HL,DE
31191	JR NZ,31188
31193	LD (46823),A
31196	LD (46822),A
31199	LD (31070),IX
31203	CALL 31608
31206	CALL 31393
31209	XOR A
31210	LD (46842),A
31213	LD A,(46877)
31216	AND 12
31218	JR Z,31249
31220	LD A,(31058)
31223	LD (46876),A
31226	RLCA
31227	AND 1
31229	LD (31059),A
31232	CALL 31252
31235	JP NZ,32188
31238	LD A,(46876)
31241	AND A
31242	JR Z,31249
31244	CALL 31347
31247	JR NZ,31232
31249	OR 1
31251	RET
31252	CALL 31947
31255	JR NZ,31278
31257	LD A,(31040)
31260	CP 1
31262	RET NZ
31263	LD A,(31062)
31266	LD (46824),A
31269	CALL 31418
31272	CALL 31448
31275	JR NZ,31317
31277	RET
31278	LD HL,31039
31281	INC (HL)
31282	CALL 31448
31285	JR Z,31312
31287	CALL 31418
31290	CALL 32023
31293	JR Z,31252
31295	LD A,(31059)
31298	DEC A
31299	RET Z
31300	LD A,(46824)
31303	LD (31062),A
31306	LD HL,31040
31309	INC (HL)
31310	JR 31252
31312	CALL 31469
31315	JR 31293
31317	CALL 32023
31320	JR NZ,31335
31322	LD A,(31041)
31325	CP 1
31327	RET NZ
31328	LD A,(31063)
31331	LD (46825),A
31334	RET
31335	LD A,(46825)
31338	LD (31063),A
31341	LD HL,31041
31344	INC (HL)
31345	JR 31317
31347	PUSH IY
31349	PUSH DE
31350	PUSH HL
31351	LD DE,65512
31354	ADD IY,DE
31356	BIT 6,(IY+1)
31360	JR Z,31388
31362	LD IX,49248
31366	PUSH IY
31368	POP HL
31369	LD DE,8
31372	ADD HL,DE
31373	CALL 40409
31376	CP 255
31378	JR Z,31351
31380	LD HL,46824
31383	CP (HL)
31384	JR NZ,31366
31386	OR 1
31388	POP HL
31389	POP DE
31390	POP IY
31392	RET
31393	LD A,(46876)
31396	AND A
31397	RET NZ
31398	LD A,(46878)
31401	RRCA
31402	RRCA
31403	CALL 31436
31406	LD A,(46846)
31409	AND A
31410	CALL NZ,40597
31413	LD (31054),IX
31417	RET
31418	LD A,(46878)
31421	CALL 31436
31424	LD A,(46847)
31427	AND A
31428	CALL NZ,40597
31431	LD (31056),IX
31435	RET
31436	LD IX,49251
31440	AND 3
31442	RET Z
31443	LD IX,49248
31447	RET
31448	LD A,(46877)
31451	BIT 2,A
31453	RET Z
31454	LD HL,31038
31457	BIT 0,(HL)
31459	RET NZ
31460	BIT 1,A
31462	JR NZ,31467
31464	OR 1
31466	RET
31467	XOR A
31468	RET
31469	CALL Action_Examine_9
31472	LD A,(46843)
31475	AND A
31476	RET
This entry point is used by the routine at 38579.
31477	PUSH HL
31478	PUSH IY
31480	PUSH IX
31482	PUSH DE
31483	PUSH BC
31484	LD HL,(31054)
31487	PUSH HL
31488	LD A,(46823)
31491	CALL IndexAction
31494	PUSH HL
31495	POP IX
31497	CALL 31145
31500	CALL 28915
31503	CALL 31608
31506	LD A,(46824)
31509	LD B,A
31510	LD A,(46846)
31513	LD DE,31042
31516	CALL 31587
31519	LD A,(46825)
31522	LD B,A
31523	LD A,(46847)
31526	LD DE,31048
31529	CALL 31587
31532	CALL 31398
31535	XOR A
31536	LD (46842),A
31539	LD A,(46877)
31542	AND 12
31544	JR NZ,31555
31546	CALL Action_Examine_9
31549	LD A,(46843)
31552	AND A
31553	JR 31570
31555	LD A,1
31557	LD (31059),A
31560	CALL 31252
31563	JR Z,31568
31565	XOR A
31566	JR 31570
31568	OR 1
31570	LD A,1
31572	LD (46842),A
31575	POP HL
31576	LD (31054),HL
31579	POP BC
31580	POP DE
31581	POP IX
31583	POP IY
31585	POP HL
31586	RET
31587	INC B
31588	RET Z
31589	DEC B
31590	AND A
31591	LD A,B
31592	JR Z,31599
31594	CALL 29141
31597	JR 31602
31599	CALL 29154
31602	LD BC,6
31605	LDIR
31607	RET
31608	LD A,(46878)
31611	AND 64
31613	LD (46865),A
31616	LD A,(46877)
31619	LD B,A
31620	AND 1
31622	LD (46863),A
31625	LD A,B
31626	AND 128
31628	JR Z,31632
31630	LD A,1
31632	LD (46846),A
31635	LD A,B
31636	AND 64
31638	JR Z,31642
31640	LD A,1
31642	LD (46847),A
31645	RET
31646	PUSH IY
31648	LD L,(IY+0)
31651	LD H,(IY+1)
31654	LD A,H
31655	AND 128
31657	LD (31058),A
31660	RES 7,H
31662	LD (31064),HL
31665	LD HL,31066
31668	PUSH HL
31669	LD B,4
31671	CALL Blanker
31674	POP HL
31675	LD B,2
31677	LD E,4
31679	CALL 31916
31682	LD E,14
31684	CALL 31916
31687	LD E,6
31689	CALL 31916
31692	LD E,16
31694	CALL 31916
31697	XOR A
31698	LD (46815),A
31701	LD HL,31064
31704	LD DE,8
31707	LD IX,43859
31711	PUSH IX
31713	POP IY
31715	CALL 29171
31718	JR Z,31771
31720	ADD IX,DE
31722	LD A,(IX+1)
31725	OR (IX+0)
31728	JR NZ,31711
31730	POP IY
31732	LD A,(46815)
31735	AND A
31736	JP NZ,32424
31739	LD HL,(31064)
31742	PUSH HL
31743	LD HL,44451
31746	XOR A
31747	LD (46849),A
31750	LD (46876),A
31753	LD A,1
31755	LD (46842),A
31758	CALL 29395
31761	LD A,(46875)
31764	DEC A
31765	RET Z
31766	POP HL
31767	POP HL
31768	JP 31115
31771	POP IY
31773	CALL 31779
31776	OR 1
31778	RET
31779	AND A
31780	JR Z,31796
31782	LD HL,(31066)
31785	LD DE,(31068)
31789	LD (31066),DE
31793	LD (31068),HL
31796	CALL 28915
31799	LD HL,31066
31802	LD A,(HL)
31803	INC HL
31804	OR (HL)
31805	JR NZ,31812
31807	LD A,(46878)
31810	JR 31843
31812	DEC HL
31813	LD A,(HL)
31814	CP (IY+14)
31817	JR NZ,31827
31819	INC HL
31820	LD A,(HL)
31821	CP (IY+15)
31824	JR Z,31838
31826	DEC HL
31827	LD A,(HL)
31828	CP (IY+16)
31831	JR NZ,31838
31833	INC HL
31834	LD A,(HL)
31835	CP (IY+17)
31838	LD A,(46877)
31841	JR NZ,31845
31843	XOR 32
31845	BIT 5,A
31847	LD BC,4616
31850	JR Z,31855
31852	LD BC,2066
31855	LD HL,31060
31858	LD (HL),B
31859	INC HL
31860	LD (HL),C
31861	LD A,B
31862	LD DE,31042
31865	LD HL,31037
31868	CALL 31889
31871	LD A,C
31872	LD HL,31042
31875	LD DE,46816
31878	LD BC,6
31881	LDIR
31883	LD DE,31048
31886	LD HL,31038
31889	PUSH BC
31890	LD C,A
31891	LD B,0
31893	PUSH HL
31894	PUSH IY
31896	POP HL
31897	ADD HL,BC
31898	LD BC,6
31901	LDIR
31903	XOR A
31904	LD B,6
31906	DEC HL
31907	OR (HL)
31908	DJNZ 31906
31910	POP HL
31911	POP BC
31912	RET Z
31913	SET 0,(HL)
31915	RET
31916	XOR A
31917	CP B
31918	RET Z
31919	LD D,0
31921	PUSH IY
31923	ADD IY,DE
31925	LD A,(IY+0)
31928	LD (HL),A
31929	INC HL
31930	LD A,(IY+1)
31933	LD (HL),A
31934	DEC HL
31935	OR (IY+0)
31938	POP IY
31940	RET Z
31941	DEC B
31942	INC HL
31943	INC HL
31944	RET
31945	JP (IY)
31947	PUSH IY
31949	LD IX,(31054)
31953	LD A,(46846)
31956	DEC A
31957	JR Z,31985
31959	LD IY,40409
31963	LD A,(46878)
31966	RRCA
31967	RRCA
31968	AND 3
31970	LD (46864),A
31973	CALL 31996
31976	CP 255
31978	LD (31054),IX
31982	POP IY
31984	RET
31985	LD IY,40608
31989	CALL 31996
31992	CP 255
31994	JR 31978
31996	LD HL,31042
31999	CALL 31945
32002	CP 255
32004	RET Z
32005	LD (46824),A
32008	LD HL,31037
32011	SET 1,(HL)
32013	CALL Action_Examine_7
32016	LD A,(46843)
32019	AND A
32020	JR Z,31996
32022	RET
32023	XOR A
32024	LD (46863),A
32027	PUSH IY
32029	LD IX,(31056)
32033	LD A,(46847)
32036	DEC A
32037	JR Z,32073
32039	LD IY,40409
32043	LD A,(46878)
32046	AND 3
32048	LD (46864),A
32051	CALL 32084
32054	CP 255
32056	LD (31056),IX
32060	POP IY
32062	PUSH AF
32063	LD A,(46877)
32066	AND 1
32068	LD (46863),A
32071	POP AF
32072	RET
32073	LD IY,40608
32077	CALL 32084
32080	CP 255
32082	JR 32056
32084	LD HL,31048
32087	CALL 31945
32090	CP 255
32092	RET Z
32093	LD (46825),A
32096	LD HL,31038
32099	SET 1,(HL)
32101	CALL 31469
32104	JR Z,32084
32106	RET
32107	LD A,1
32109	LD (46842),A
32112	LD (46849),A
32115	RET
32116	LD (46874),A
32119	PUSH IY
32121	POP HL
32122	LD DE,47560
32125	LD BC,24
32128	LDIR
32130	RET
32131	LD A,(31060)
32134	LD HL,(31042)
32137	PUSH HL
32138	CALL 32116
32141	LD HL,44492
32144	CALL 32107
32147	CALL 29395
32150	XOR A
32151	RET
32152	LD HL,31038
32155	BIT 0,(HL)
32157	JP Z,32333
32160	BIT 1,(HL)
32162	LD HL,31048
32165	LD DE,46825
32168	LD BC,46847
32171	JR Z,32254
32173	LD A,(31041)
32176	AND A
32177	JP Z,32245
32180	LD A,(31061)
32183	LD A,(31048)
32186	JR 32137
32188	LD A,(46875)
32191	DEC A
32192	RET Z
32193	LD A,(46876)
32196	AND A
32197	JR Z,32203
32199	POP HL
32200	JP 31124
32203	LD A,(31040)
32206	CP 1
32208	JR Z,32152
32210	LD HL,31037
32213	BIT 0,(HL)
32215	JP Z,32304
32218	BIT 1,(HL)
32220	LD HL,31042
32223	LD DE,46824
32226	LD BC,46846
32229	JR Z,32254
32231	LD A,(31039)
32234	AND A
32235	JR Z,32245
32237	DEC A
32238	JR NZ,32131
32240	CALL 31448
32243	JR NZ,32152
32245	CALL 32107
32248	CALL Action_Examine_9
32251	JP 31118
32254	PUSH HL
32255	CALL 40597
32258	LD A,1
32260	LD (BC),A
32261	CALL 40608
32264	CP 255
32266	JR NZ,32288
32268	POP HL
32269	LD A,2
32271	LD (46864),A
32274	LD IX,49248
32278	XOR A
32279	LD (BC),A
32280	PUSH HL
32281	CALL 40409
32284	CP 255
32286	JR Z,32293
32288	POP HL
32289	LD (DE),A
32290	JP 28954
32293	CALL 32107
32296	LD HL,44499
32299	CALL 29395
32302	XOR A
32303	RET
32304	CALL 32380
32307	LD HL,(31064)
32310	PUSH HL
32311	LD HL,44513
32314	LD A,(31040)
32317	AND A
32318	JP Z,32144
32321	LD A,(31060)
32324	CALL 32116
32327	LD HL,44484
32330	JP 32144
32333	CALL 32376
32336	LD HL,0
32339	PUSH HL
32340	LD A,(46824)
32343	CALL 29154
32346	PUSH HL
32347	CALL 32380
32350	LD HL,(31064)
32353	PUSH HL
32354	LD HL,44519
32357	LD A,(31041)
32360	AND A
32361	JP Z,32144
32364	LD A,(31061)
32367	CALL 32116
32370	LD HL,44480
32373	JP 32144
32376	LD A,40
32378	JR 32382
32380	LD A,32
32382	LD (32402),A
32385	LD (32417),A
32388	LD IX,(31070)
32392	LD L,(IX+4)
32395	LD H,(IX+5)
32398	BIT 7,(IX+7)
32402	JR NZ,32407
32404	LD HL,0
32407	EX (SP),HL
32408	PUSH HL
32409	LD L,(IX+2)
32412	LD H,(IX+3)
32415	BIT 5,H
32417	JR NZ,32422
32419	LD HL,0
32422	EX (SP),HL
32423	JP (HL)
32424	LD HL,(31068)
32427	PUSH HL
32428	LD HL,(31066)
32431	PUSH HL
32432	LD HL,(31064)
32435	PUSH HL
32436	LD HL,44464
32439	JP 32144
This entry point is used by the routine at Action_Talkto.
32442	PUSH BC
32443	PUSH IX
32445	PUSH DE
32446	LD B,A
32447	LD A,(46903)
32450	LD C,A
32451	CP B
32452	JR NC,32455
32454	LD B,A
32455	LD A,C
32456	SUB B
32457	LD C,A
32458	LD IX,46879
32462	LD DE,25
32465	XOR A
32466	CP B
32467	JR Z,32486
32469	ADD IX,DE
32471	LD A,(IX+0)
32474	CP 255
32476	JR NZ,32469
32478	LD A,(46824)
32481	LD (IX+0),A
32484	DJNZ 32469
32486	LD B,C
32487	XOR A
32488	CP B
32489	JR Z,32506
32491	ADD IX,DE
32493	LD A,(IX+0)
32496	CP 255
32498	JR NZ,32491
32500	LD (IX+0),0
32504	DJNZ 32491
32506	POP DE
32507	POP IX
32509	POP BC
32510	RET
32511	LD HL,46904
32514	LD DE,25
32517	LD A,(46826)
32520	LD B,8
32522	CP (HL)
32523	RET Z
32524	ADD HL,DE
32525	DJNZ 32522
32527	RET
This entry point is used by the routine at 38579.
32528	PUSH HL
32529	PUSH DE
32530	PUSH BC
32531	CALL 32511
32534	POP BC
32535	POP DE
32536	POP HL
32537	RET
This entry point is used by the routines at 38579 and ActionClimbOut.
32538	PUSH IX
32540	PUSH IY
32542	PUSH BC
32543	PUSH DE
32544	PUSH HL
32545	LD C,A
32546	CALL 32511
32549	LD (HL),0
32551	INC HL
32552	XOR A
32553	CP C
32554	JR NZ,32567
32556	OR 1
32558	EX (SP),HL
32559	POP HL
32560	POP DE
32561	POP BC
32562	POP IY
32564	POP IX
32566	RET
32567	PUSH HL
32568	POP IY
32570	LD A,1
32572	LD (46875),A
32575	LD A,(46876)
32578	PUSH AF
32579	CALL 31158
32582	EX AF,AF'
32583	XOR A
32584	LD (46875),A
32587	POP AF
32588	LD (46876),A
32591	EX AF,AF'
32592	JR Z,32599
32594	CALL 31469
32597	JR NZ,32559
32599	LD A,(46826)
32602	CALL 32608
32605	XOR A
32606	JR 32559
This entry point is used by the routine at 38579.
32608	PUSH HL
32609	PUSH DE
32610	PUSH BC
32611	LD HL,46904
32614	LD DE,25
32617	LD B,8
32619	CP (HL)
32620	JR NZ,32624
32622	LD (HL),0
32624	ADD HL,DE
32625	DJNZ 32619
32627	POP BC
32628	POP DE
32629	POP HL
32630	RET