The Hobbit: Routine at 31996

31996: Inglish: Run The First Noun Test

Used by the routine at Inglish_FindTheFirstNoun. Runs the first-noun test through the clause handler, stores the object, and runs the action handler until the message-suppressed flag is set.
Inglish_RunTheFirstNounTest	31996	LD HL,31042	Point HL at the first copy window.
	31999	CALL Inglish_JumpToTheClauseHandler	Call Inglish_JumpToTheClauseHandler to jump to the clause handler.
	32002	CP 255	Return when the clause marker is 255.
	32004	RET Z	Return when the clause marker is 255.
	32005	LD (46824),A	Update *CurrentObject.
	32008	LD HL,31037	Point HL at the match buffer.
	32011	SET 1,(HL)	Mark the match buffer so bit 1 is on.
	32013	CALL Turn_RunTheActionHandler	Call Turn_RunTheActionHandler to run the action handler.
Test the message-suppressed flag.
	32016	LD A,(46843)	Loop back to Inglish_RunTheFirstNounTest to keep running the action while the message-suppressed flag is clear.
	32019	AND A
	32020	JR Z,Inglish_RunTheFirstNounTest
	32022	RET	Return.
View the equivalent code in; Sherlock