+ WORD p_break,'BREAK',fasm,IMMEDIATE
+ ;; ( 0 * -- 0 a * )
+ ;; Lays out a (BRANCH 0) cell pair and marks the current
+ ;; address for later resolution
+ mov rax,qword [p_here_DFA]
+ mov qword [rax],p_branch_CFA
+ mov qword [rax+8],0
+ add rax,16
+ mov qword [p_here_DFA],rax
+ jmp p_ifbreak_elevate
+