X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=control.asm;h=81c4c724e384bcaa6b1ae1d3035619c8c6feae4b;hb=3615a7d1910cea3c791916293b06b757c2879be9;hp=949f48c7110c262c6683bbfafaf44d8c1cbcf0b9;hpb=421b56b401697dda99a7cfe402f16943ea094cd6;p=rrq%2Frrqforth.git

diff --git a/control.asm b/control.asm
index 949f48c..81c4c72 100644
--- a/control.asm
+++ b/control.asm
@@ -176,12 +176,11 @@ p_end_ending:
 	mov rbx,rsp
 p_again_loop:
 	cmp qword [rbx],0
-	je p_ifagain_resolve
+	je p_again_resolve
 	add rbx,8
-	jmp p_ifagain_loop
+	jmp p_again_loop
 p_again_resolve:
 	mov rbx,qword [rbx+8]
 	sub rbx,rax
 	mov qword [rax-8],rbx
-	mov rax,rsp
-	jmp p_end_scan
+	jmp p_end_DFA