Fix AHEAD

TG9541 · Dec 4, 2016 · 82bffe7 · 82bffe7
1 parent 5eb33d4
commit 82bffe7
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/forth.asm b/forth.asm
@@ -3940,8 +3940,10 @@ UNTIL:
 	.db	(IMEDD+5)
 	.ascii	"AGAIN"
 AGAIN:
-	JRA     BRANCOMMA
-
+	CALL    CCOMMALIT
+        .db     BRAN_OPC
+        JP	COMMA	
+        
 ;	IF	( -- A )
 ;	Begin a conditional branch.
 
@@ -3996,14 +3998,14 @@ ELSEE:
 	.ascii	"AHEAD"
         .endif
 AHEAD:
-	CALL	HERE
-	CALL	ZERO
-BRANCOMMA:
 	CALL    CCOMMALIT
         .db     BRAN_OPC
+	CALL	HERE
+	CALL	ZERO
         JP	COMMA
 
 
+
 ;	WHILE	( a -- A a )
 ;	Conditional branch out of a BEGIN-WHILE-REPEAT loop.
 
@@ -4025,7 +4027,7 @@ WHILE:
 	.db	(IMEDD+6)
 	.ascii	"REPEAT"
 REPEA:
-	CALLR   BRANCOMMA
+	CALLR   AGAIN
 	CALL	HERE
 	CALL	SWAPP
 	JP	STORE