Routines
Prev: 49775 Up: Map Next: 49854
49822: Parser: Find Phrase
Used by the routines at Parser_ValidateDirectObject and Parser_MatchOrRephrase.
Count how many of the typed tokens are real nouns.
Parser_FindPhrase 49822 LD HL,47926 Start at the token buffer.
49825 LD B,10
49827 LD E,0
Parser_FindPhrase_Loop 49829 LD A,(HL) Jump to Parser_FindPhrase_Done if the end-of-list marker was pressed.
49830 CP 255
49832 JR Z,Parser_FindPhrase_Done
49834 EXX Jump to Parser_FindPhrase_Next if the search did not find a match.
49835 LD HL,(47854)
49838 LD BC,(47866)
49842 CPIR
49844 EXX
49845 JR NZ,Parser_FindPhrase_Next
49847 INC E Count one more match.
Parser_FindPhrase_Next 49848 INC HL Repeat from Parser_FindPhrase_Loop for the remaining tokens.
49849 DJNZ Parser_FindPhrase_Loop
Parser_FindPhrase_Done 49851 XOR A Test whether E is zero.
49852 OR E
49853 RET Return.
View the equivalent code in;
Prev: 49775 Up: Map Next: 49854