From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 4 Jun 2021 09:06:21 +0000 (+1000)
Subject: fixed AGAIN (CnP) bug
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=0b2424d77066d82aadd748ba74dc35eb81dde81b;p=rrq%2Frrqforth.git

fixed AGAIN (CnP) bug
---

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