+ mov word [rax],bx
+ add qword [p_here_DFA],2
+ next
+
+ WORD p_Dcomma,'D,',fasm
+ ;; ( d -- )
+ ;; Put byte value onto the heap and advance "HERE"
+ mov rax,qword [p_here_DFA]
+ pop rbx
+ mov dword [rax],ebx
+ add qword [p_here_DFA],4
+ next
+
+ WORD p_comma,',',fasm
+ ;; ( v -- )
+ ;; Put byte value onto the heap and advance "HERE"
+ mov rax,qword [p_here_DFA]
+ pop rbx
+ mov qword [rax],rbx
+ add qword [p_here_DFA],8