# HG changeset patch
# User boisy
# Date 1041181048 0
# Node ID 0ef2294df11fa0f20c437725cfd34c2d2106a9d8
# Parent  b37b87121be25b62145741d7f863fbe883dcbd81
Wrapped 6309 code in basic09.asm around proper IFNE H6309/ENDC constructs
Also modified makefile to allow -e option for 6309 assembly

diff -r b37b87121be2 -r 0ef2294df11f 3rdparty/packages/basic09/basic09.asm
--- a/3rdparty/packages/basic09/basic09.asm	Sun Dec 29 16:57:25 2002 +0000
+++ b/3rdparty/packages/basic09/basic09.asm	Sun Dec 29 16:57:28 2002 +0000
@@ -7621,7 +7621,11 @@
 L3405    ldd   ,x         Get offset to current FOR/NEXT INTEGER value
          leay  d,u        Point Y to it
          ldd   ,y         Get current FOR/NEXT counter
+         IFNE  H6309
          incd             Add 1 to it
+         ELSE
+         addd  #$0001
+         ENDC
          std   ,y         Save it back
 L3410    ldd   2,x        Get offset to TO variable
          leax  6,x        Eat temp var
@@ -7636,10 +7640,18 @@
          leay  d,u       
          ldd   4,x        Get STEP value
          ldd   d,u        Get current FOR/NEXT counter
+         IFNE  H6309
          tfr   a,e        Preserve Hi byte (for sign)
+         ELSE
+         pshs  a
+         ENDC
          addd  ,y         Add increment value
          std   ,y         Save new current value
+         IFNE  H6309
          tste             Was STEP negative value?
+         ELSE
+         tst   ,s+
+         ENDC
          bpl   L3410      No, go use normal compare routine
 L3430    ldd   2,x        Get offset to TO value
          leax  6,x        Eat temp var
diff -r b37b87121be2 -r 0ef2294df11f 3rdparty/packages/basic09/makefile
--- a/3rdparty/packages/basic09/makefile	Sun Dec 29 16:57:25 2002 +0000
+++ b/3rdparty/packages/basic09/makefile	Sun Dec 29 16:57:28 2002 +0000
@@ -3,7 +3,7 @@
 DISK	= basic09v010100.dsk
 
 # NitrOS-9
-H6309		= $(AFLAGS) -aH6309=1
+H6309		= $(AFLAGS) -aH6309=1 -e
 # Non-NitrOS-9
 M6809		= $(AFLAGS)
 
diff -r b37b87121be2 -r 0ef2294df11f 3rdparty/packages/basic09/runb.asm
--- a/3rdparty/packages/basic09/runb.asm	Sun Dec 29 16:57:25 2002 +0000
+++ b/3rdparty/packages/basic09/runb.asm	Sun Dec 29 16:57:28 2002 +0000
@@ -702,8 +702,8 @@
          fdb   $0007
          fcb   $03
 L048F    fcb   $cb
-L0490    fdb   $4b0c,$accb,$4d0c,$a8cb,$4e0c,$a9d4,$890c,$ae21
-L04A0    fdb   $9006,$a200,$9106,$a4cb,$3f02
+         fdb   $4b0c,$accb,$4d0c,$a8cb,$4e0c,$a9d4,$890c,$ae21
+         fdb   $9006,$a200,$9106,$a4cb,$3f02
          fcb   $8d
 
 L04AB    lda   <u000B