The Hobbit: Routine at 28915

28915: Routine at 70F3

Used by the routine at 30673.
28915	LD A,(IX+5)
28918	RRCA
28919	RRCA
28920	RRCA
28921	RRCA
28922	AND 15
28924	LD C,A
28925	LD A,(IX+7)
28928	AND 240
28930	ADD A,C
28931	LD (46878),A
28934	LD A,(IX+1)
28937	RRCA
28938	RRCA
28939	RRCA
28940	RRCA
28941	AND 15
28943	LD C,A
28944	LD A,(IX+3)
28947	AND 240
28949	ADD A,C
28950	LD (46877),A
28953	RET
This entry point is used by the routine at 30673.
28954	XOR A
28955	LD (46843),A
28958	INC A
28959	LD (46842),A
28962	LD A,(46875)
28965	AND A
28966	CALL Z,28971
28969	XOR A
28970	RET
This entry point is used by the routines at 30673, 38579 and 40822.
28971	LD A,1
28973	LD (28895),A
28976	XOR A
28977	LD (46851),A
28980	PUSH IY
28982	PUSH BC
28983	LD A,(46843)
28986	LD B,A
28987	AND A
28988	LD A,1
28990	JR Z,28993
28992	XOR A
28993	LD (46849),A
28996	PUSH IX
28998	PUSH HL
28999	PUSH DE
29000	LD A,(46823)
29003	CALL IndexAction
29006	PUSH HL
29007	POP IX
29009	XOR A
29010	CP B
29011	JR Z,29020
29013	LD A,(46826)
29016	AND A
29017	CALL Z,34179
29020	CALL 28915
29023	BIT 4,A
29025	LD C,A
29026	JP NZ,29129
29029	CALL 29607
29032	LD DE,238
29035	XOR A
29036	CP B
29037	CALL Z,PrintToken
29040	PUSH HL
29041	LD DE,6
29044	ADD HL,DE
29045	CALL PrintAction
29048	CALL LocationLit
29051	POP HL
29052	JR NC,29071
29054	LD A,(46823)
29057	CP 11
29059	JR NC,29071
29061	LD DE,2794
29064	INC HL
29065	INC HL
29066	CALL PrintToken
29069	JR 29074
29071	CALL PrintAction
29074	BIT 3,C
29076	JR Z,29094
29078	BIT 5,C
29080	CALL NZ,PrintAction
29083	LD A,(46878)
29086	BIT 7,A
29088	CALL NZ,PrintAction
29091	CALL 29620
29094	LD A,(46825)
29097	CP 255
29099	JR Z,29121
29101	BIT 2,C
29103	JR Z,29121
29105	BIT 5,C
29107	CALL Z,PrintAction
29110	LD A,(46878)
29113	BIT 7,A
29115	CALL Z,PrintAction
29118	CALL 29639
29121	LD A,46
29123	CALL 34187
29126	CALL 34179
29129	XOR A
29130	LD (28895),A
29133	POP DE
29134	POP HL
29135	POP IX
29137	POP BC
29138	POP IY
29140	RET
This entry point is used by the routines at 29634 and 30673.
29141	PUSH IX
29143	CALL LocateLocation
29146	PUSH IX
29148	POP HL
29149	INC HL
29150	INC HL
29151	POP IX
29153	RET
This entry point is used by the routines at 29634 and 30673.
29154	PUSH DE
29155	PUSH IX
29157	CALL LocateObject
29160	PUSH IX
29162	POP HL
29163	LD DE,8
29166	ADD HL,DE
29167	POP IX
29169	POP DE
29170	RET
This entry point is used by the routines at 30673, 40409 and 40608.
29171	PUSH DE
29172	PUSH HL
29173	PUSH IY
29175	CALL 29230
29178	JR NZ,29225
29180	LD A,1
29182	LD (46815),A
29185	CALL 29230
29188	JR NZ,29197
29190	CALL 29230
29193	LD A,0
29195	JR Z,29225
29197	POP IY
29199	POP HL
29200	PUSH HL
29201	PUSH IY
29203	LD DE,4
29206	ADD IY,DE
29208	INC HL
29209	INC HL
29210	CALL 29230
29213	JR NZ,29225
29215	LD DE,65532
29218	ADD IY,DE
29220	CALL 29230
29223	LD A,1
29225	POP IY
29227	POP HL
29228	POP DE
29229	RET
29230	PUSH HL
29231	LD A,(HL)
29232	INC HL
29233	OR (HL)
29234	JR Z,29249
29236	LD A,(IY+1)
29239	XOR (HL)
29240	AND 15
29242	JR NZ,29249
29244	DEC HL
29245	LD A,(HL)
29246	CP (IY+0)
29249	POP HL
29250	INC HL
29251	INC HL
29252	INC IY
29254	INC IY
29256	RET
This entry point is used by the routine at 28118.
29257	PUSH HL
29258	LD HL,(46868)
29261	CALL GetKey
29264	AND A
29265	JR NZ,29299
29267	DEC HL
29268	LD A,H
29269	OR L
29270	JR NZ,29261
29272	POP HL
29273	PUSH HL
29274	CALL 28299
29277	LD DE,29329
29280	LD B,4
29282	LD A,(DE)
29283	LD (HL),A
29284	INC HL
29285	INC DE
29286	CALL 34187
29289	DJNZ 29282
29291	EX (SP),HL
29292	LD B,124
29294	LD A,13
29296	LD HL,65036
29299	PUSH AF
29300	XOR A
29301	LD DE,500
29304	ADC HL,DE
29306	LD DE,3000
29309	JR C,29316
29311	CALL 29323
29314	JR C,29317
29316	EX DE,HL
29317	LD (46868),HL
29320	POP AF
29321	POP HL
29322	RET
29323	LD A,H
29324	SUB D
29325	RET NZ
29326	LD A,L
29327	SUB E
29328	RET