The Hobbit: Routine at 7838

7838: Inglish: Copy Ten Grammar Bytes

Used by the routines at Inglish_FollowTheGrammarFlag and Command_FollowTheGrammarFlag. Clears bit 7 of the grammar flag and copies ten bytes from 0E into the clause, then reports no match.
Inglish_CopyTenGrammarBytes	7838	RES 7,E	Clear the flags so bit 7 is off.
	783A	PUSH DE	The ten grammar bytes start 0E bytes into the record.
	783B	LD DE,$000E	The ten grammar bytes start 0E bytes into the record.
This entry point is used by the routine at Inglish_CopyFourGrammarBytes.
Inglish_CopyTenGrammarBytes_PointAtTheClause	783E	PUSH BC	Save BC and point HL at the clause plus the offset in DE.
	783F	PUSH IY
	7841	POP HL
	7842	ADD HL,DE
	7843	EX DE,HL	Point DE at those bytes.
	7844	LD HL,$757B	Copy the prepared bytes.
	7847	LD BC,$000A
	784A	LDIR
	784C	POP BC	Restore the saved registers from the stack and clear A.
	784D	POP DE
	784E	XOR A
	784F	RET	Return.