The Hobbit: Routine at 70F3

70F3: Routine at 70F3

Used by the routine at 77D1.
70F3	LD A,(IX+$05)
70F6	RRCA
70F7	RRCA
70F8	RRCA
70F9	RRCA
70FA	AND $0F
70FC	LD C,A
70FD	LD A,(IX+$07)
7100	AND $F0
7102	ADD A,C
7103	LD ($B71E),A
7106	LD A,(IX+$01)
7109	RRCA
710A	RRCA
710B	RRCA
710C	RRCA
710D	AND $0F
710F	LD C,A
7110	LD A,(IX+$03)
7113	AND $F0
7115	ADD A,C
7116	LD ($B71D),A
7119	RET
This entry point is used by the routine at 77D1.
711A	XOR A
711B	LD ($B6FB),A
711E	INC A
711F	LD ($B6FA),A
7122	LD A,($B71B)
7125	AND A
7126	CALL Z,$712B
7129	XOR A
712A	RET
This entry point is used by the routines at 77D1, 96B3 and 9F76.
712B	LD A,$01
712D	LD ($70DF),A
7130	XOR A
7131	LD ($B703),A
7134	PUSH IY
7136	PUSH BC
7137	LD A,($B6FB)
713A	LD B,A
713B	AND A
713C	LD A,$01
713E	JR Z,$7141
7140	XOR A
7141	LD ($B701),A
7144	PUSH IX
7146	PUSH HL
7147	PUSH DE
7148	LD A,($B6E7)
714B	CALL IndexAction
714E	PUSH HL
714F	POP IX
7151	XOR A
7152	CP B
7153	JR Z,$715C
7155	LD A,($B6EA)
7158	AND A
7159	CALL Z,$8583
715C	CALL $70F3
715F	BIT 4,A
7161	LD C,A
7162	JP NZ,$71C9
7165	CALL $73A7
7168	LD DE,$00EE
716B	XOR A
716C	CP B
716D	CALL Z,PrintToken
7170	PUSH HL
7171	LD DE,$0006
7174	ADD HL,DE
7175	CALL PrintAction
7178	CALL LocationLit
717B	POP HL
717C	JR NC,$718F
717E	LD A,($B6E7)
7181	CP $0B
7183	JR NC,$718F
7185	LD DE,$0AEA
7188	INC HL
7189	INC HL
718A	CALL PrintToken
718D	JR $7192
718F	CALL PrintAction
7192	BIT 3,C
7194	JR Z,$71A6
7196	BIT 5,C
7198	CALL NZ,PrintAction
719B	LD A,($B71E)
719E	BIT 7,A
71A0	CALL NZ,PrintAction
71A3	CALL $73B4
71A6	LD A,($B6E9)
71A9	CP $FF
71AB	JR Z,$71C1
71AD	BIT 2,C
71AF	JR Z,$71C1
71B1	BIT 5,C
71B3	CALL Z,PrintAction
71B6	LD A,($B71E)
71B9	BIT 7,A
71BB	CALL Z,PrintAction
71BE	CALL $73C7
71C1	LD A,$2E
71C3	CALL $858B
71C6	CALL $8583
71C9	XOR A
71CA	LD ($70DF),A
71CD	POP DE
71CE	POP HL
71CF	POP IX
71D1	POP BC
71D2	POP IY
71D4	RET
This entry point is used by the routines at 73C2 and 77D1.
71D5	PUSH IX
71D7	CALL LocateLocation
71DA	PUSH IX
71DC	POP HL
71DD	INC HL
71DE	INC HL
71DF	POP IX
71E1	RET
This entry point is used by the routines at 73C2 and 77D1.
71E2	PUSH DE
71E3	PUSH IX
71E5	CALL LocateObject
71E8	PUSH IX
71EA	POP HL
71EB	LD DE,$0008
71EE	ADD HL,DE
71EF	POP IX
71F1	POP DE
71F2	RET
This entry point is used by the routines at 77D1, 9DD9 and 9EA0.
71F3	PUSH DE
71F4	PUSH HL
71F5	PUSH IY
71F7	CALL $722E
71FA	JR NZ,$7229
71FC	LD A,$01
71FE	LD ($B6DF),A
7201	CALL $722E
7204	JR NZ,$720D
7206	CALL $722E
7209	LD A,$00
720B	JR Z,$7229
720D	POP IY
720F	POP HL
7210	PUSH HL
7211	PUSH IY
7213	LD DE,$0004
7216	ADD IY,DE
7218	INC HL
7219	INC HL
721A	CALL $722E
721D	JR NZ,$7229
721F	LD DE,$FFFC
7222	ADD IY,DE
7224	CALL $722E
7227	LD A,$01
7229	POP IY
722B	POP HL
722C	POP DE
722D	RET
722E	PUSH HL
722F	LD A,(HL)
7230	INC HL
7231	OR (HL)
7232	JR Z,$7241
7234	LD A,(IY+$01)
7237	XOR (HL)
7238	AND $0F
723A	JR NZ,$7241
723C	DEC HL
723D	LD A,(HL)
723E	CP (IY+$00)
7241	POP HL
7242	INC HL
7243	INC HL
7244	INC IY
7246	INC IY
7248	RET
This entry point is used by the routine at 6DD6.
7249	PUSH HL
724A	LD HL,($B714)
724D	CALL GetKey
7250	AND A
7251	JR NZ,$7273
7253	DEC HL
7254	LD A,H
7255	OR L
7256	JR NZ,$724D
7258	POP HL
7259	PUSH HL
725A	CALL $6E8B
725D	LD DE,$7291
7260	LD B,$04
7262	LD A,(DE)
7263	LD (HL),A
7264	INC HL
7265	INC DE
7266	CALL $858B
7269	DJNZ $7262
726B	EX (SP),HL
726C	LD B,$7C
726E	LD A,$0D
7270	LD HL,$FE0C
7273	PUSH AF
7274	XOR A
7275	LD DE,$01F4
7278	ADC HL,DE
727A	LD DE,$0BB8
727D	JR C,$7284
727F	CALL $728B
7282	JR C,$7285
7284	EX DE,HL
7285	LD ($B714),HL
7288	POP AF
7289	POP HL
728A	RET
728B	LD A,H
728C	SUB D
728D	RET NZ
728E	LD A,L
728F	SUB E
7290	RET