The Hobbit: Routine at 29741

29741: Routine at 742D


29741	POP DE
29742	POP HL
29743	POP AF
29744	PUSH HL
29745	PUSH DE
29746	JR 29736
This entry point is used by the routines at 29543 and 29634.
29748	PUSH IY
29750	PUSH HL
29751	POP IY
29753	CALL 40662
29756	POP IY
29758	RET
This entry point is used by the routine at 40647.
29759	BIT 7,D
29761	JR Z,29781
29763	LD A,E
29764	LD HL,1960
29767	CP L
29768	JR NZ,29775
29770	LD A,D
29771	AND 15
29773	CP H
29774	RET Z
29775	LD A,1
29777	LD (46852),A
29780	RET
29781	LD HL,44333	HL=44333.
29784	LD A,(46849)
29787	LD E,A
29788	LD A,(28895)
29791	OR E
29792	JR Z,29797
29794	LD HL,44341	HL=44341.
29797	LD A,D
29798	RRCA
29799	RRCA
29800	RRCA
29801	AND %00011110	Keep only bits 1-4.
29803	PUSH DE	Stash DE on the stack.
29804	LD E,A	Create an offset in DE using A as the LSB.
29805	LD D,0	Create an offset in DE using A as the LSB.
29807	ADD HL,DE	HL = HL + offset.
29808	LD E,(HL)	DE=contents of the calculated address.
29809	INC HL
29810	LD D,(HL)
29811	CALL PrintToken	Call PrintToken.
29814	POP DE	Restore DE from the stack.
29815	RET	Return.
This entry point is used by the routines at 29588 and 40647.
29816	PUSH DE	Stash DE on the stack.
29817	LD A,(46851)	A=46851.
29820	AND A	Call 29759 if A is non-zero.
29821	CALL NZ,29759	Call 29759 if A is non-zero.
29824	POP DE	Restore DE from the stack.
29825	LD A,D	A=D.
29826	AND %00001111	Keep only bits 0-3.
29828	LD D,A	D=A.
29829	JP PrintToken	Jump to PrintToken.
This entry point is used by the routines at 29603 and 29708.
29832	CP 255
29834	JP NZ,29654
29837	LD DE,2787	DE=$0AE3.
29840	JP PrintToken	Jump to PrintToken.