+
+ WORD p_semicolon,';'
+ ;; ( -- )
+ ;; Lay out p_exit, and set interpreting mode
+ dq p_left_bracket
+ dq p_literal, p_exit
+ dq p_comma
+
+ WORD p_immediate,'IMMEDIATE',fasm,IMMEDIATE
+ ;; ( -- )
+ ;; Set "immediate flag" of the word being defined
+ mov rax,qword [p_wordlist_DFA]
+ mov rax,qword [rax] ; tfa of most recent word
+ mov qword [rax+16],1 ; set the flags field to 1
+ next