+ WORD p_quote,"'",fasm
+ ;; ( "word" -- cfa )
+ ;; Find the following word and push its cfa, or 0
+ pushr rsi
+ DOFORTH p_stdin, p_read_word, p_find
+ cmp qword[rsp],0
+ jne p_quote_tfa
+ add rsp,16
+ mov qword[rsp],0
+ jmp p_quote_end
+p_quote_tfa:
+ mov rax,qword [rsp]
+ tfa2cfa rax
+ mov qword [rsp],rax
+p_quote_end:
+ popr rsi
+ next
+
+ WORD p_bracketed_quote,"[']",doforth,IMMEDIATE
+ ;; Compilation ( "word" -- cfa )
+ ;; Find the following word and push its cfa, or 0
+ dq p_literal
+ dq p_literal
+ dq p_comma
+ dq p_quote
+ dq p_comma
+ dq p_exit
+