pop rbx
next
-
+ WORD p_again,'AGAIN',fasm,IMMEDIATE
+ ;; Compiling: ( a 0 * -- )
+ ;; Lay out unconditional loop-back, then perform END action
+ 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
+ mov rbx,rsp
+p_again_loop:
+ cmp qword [rbx],0
+ je p_again_resolve
+ add rbx,8
+ jmp p_again_loop
+p_again_resolve:
+ mov rbx,qword [rbx+8]
+ sub rbx,rax
+ mov qword [rax-8],rbx
+ jmp p_end_DFA