From 18301b6ce9e3e3509e01744bc972505c6383252c Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sun, 4 Mar 2018 14:21:40 -0800
Subject: [PATCH] Adjust to new for/next

---
 src/toolsrc/codegen.pla | 22 +++++++++++-----------
 src/toolsrc/parse.pla   |  1 -
 2 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/src/toolsrc/codegen.pla b/src/toolsrc/codegen.pla
index 4c72ea2..acbb04c 100644
--- a/src/toolsrc/codegen.pla
+++ b/src/toolsrc/codegen.pla
@@ -183,32 +183,32 @@ def emit_branch(tag)#0
 end
 def emit_brgt(tag)#0
     emit_pending_seq
-    emit_byte($88)
+    emit_byte($80)
     emit_reladdr(tag)
 end
 def emit_brlt(tag)#0
     emit_pending_seq
-    emit_byte($8A)
-    emit_reladdr(tag)
-end
-def emit_addbrle(tag)#0
-    emit_pending_seq
-    emit_byte($80)
+    emit_byte($82)
     emit_reladdr(tag)
 end
 def emit_incbrle(tag)#0
     emit_pending_seq
-    emit_byte($82)
+    emit_byte($84)
     emit_reladdr(tag)
 end
-def emit_subbrge(tag)#0
+def emit_addbrle(tag)#0
     emit_pending_seq
-    emit_byte($84)
+    emit_byte($86)
     emit_reladdr(tag)
 end
 def emit_decbrge(tag)#0
     emit_pending_seq
-    emit_byte($86)
+    emit_byte($88)
+    emit_reladdr(tag)
+end
+def emit_subbrge(tag)#0
+    emit_pending_seq
+    emit_byte($8A)
     emit_reladdr(tag)
 end
 def emit_leave#0
diff --git a/src/toolsrc/parse.pla b/src/toolsrc/parse.pla
index 95e3812..47a467c 100644
--- a/src/toolsrc/parse.pla
+++ b/src/toolsrc/parse.pla
@@ -745,7 +745,6 @@ def parse_stmnt
             emit_seq(toseq)
             emit_seq(fromseq)
             if stepdir > 0; emit_brgt(break_tag); else; emit_brlt(break_tag); fin
-            
             emit_tag(tag_for)
             if type & LOCAL_TYPE
                 if type & BYTE_TYPE; emit_dlb(addr); else; emit_dlw(addr); fin