The Hobbit: Routine at 742D

742D: Routine at 742D


742D	POP DE
742E	POP HL
742F	POP AF
7430	PUSH HL
7431	PUSH DE
7432	JR $7428
This entry point is used by the routines at 7367 and 73C2.
7434	PUSH IY
7436	PUSH HL
7437	POP IY
7439	CALL $9ED6
743C	POP IY
743E	RET
This entry point is used by the routine at 9EC7.
743F	BIT 7,D
7441	JR Z,$7455
7443	LD A,E
7444	LD HL,$07A8
7447	CP L
7448	JR NZ,$744F
744A	LD A,D
744B	AND $0F
744D	CP H
744E	RET Z
744F	LD A,$01
7451	LD ($B704),A
7454	RET
7455	LD HL,$AD2D	HL=AD2D.
7458	LD A,($B701)
745B	LD E,A
745C	LD A,($70DF)
745F	OR E
7460	JR Z,$7465
7462	LD HL,$AD35	HL=AD35.
7465	LD A,D
7466	RRCA
7467	RRCA
7468	RRCA
7469	AND %00011110	Keep only bits 1-4.
746B	PUSH DE	Stash DE on the stack.
746C	LD E,A	Create an offset in DE using A as the LSB.
746D	LD D,$00	Create an offset in DE using A as the LSB.
746F	ADD HL,DE	HL = HL + offset.
7470	LD E,(HL)	DE=contents of the calculated address.
7471	INC HL
7472	LD D,(HL)
7473	CALL PrintToken	Call PrintToken.
7476	POP DE	Restore DE from the stack.
7477	RET	Return.
This entry point is used by the routines at 7394 and 9EC7.
7478	PUSH DE	Stash DE on the stack.
7479	LD A,($B703)	A=B703.
747C	AND A	Call 743F if A is non-zero.
747D	CALL NZ,$743F	Call 743F if A is non-zero.
7480	POP DE	Restore DE from the stack.
7481	LD A,D	A=D.
7482	AND %00001111	Keep only bits 0-3.
7484	LD D,A	D=A.
7485	JP PrintToken	Jump to PrintToken.
This entry point is used by the routines at 73A3 and 740C.
7488	CP $FF
748A	JP NZ,$73D6
748D	LD DE,$0AE3	DE=$0AE3.
7490	JP PrintToken	Jump to PrintToken.