Prev: 77D1 Up: Map Next: 781C
7809: Add the adjective in BC to PHRASE
Used by the routine at PARSE_ADJECTIVE.
ADD_ADJECTIVE 7809 LD HL,PHRASE_ADJECTIVES Is the first adjective slot free?
This entry point is used by the routine at ADD_PREPOSITION.
ADD_TO_PAIR 780C LD A,(HL)
780D INC HL
780E OR (HL)
780F JR Z,ADD_ADJECTIVE_0 }
7811 INC HL Is the second? Neither: too many adjectives
7812 LD A,(HL)
7813 INC HL
7814 OR (HL)
7815 JP NZ,ORDERS_ONLY
ADD_ADJECTIVE_0 7818 LD (HL),B Store it, low byte first
7819 DEC HL
781A LD (HL),C
781B RET
Prev: 77D1 Up: Map Next: 781C