Mercurial > hg > Members > kono > nitros9-code

changeset 677:0ef2294df11f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Wrapped 6309 code in basic09.asm around proper IFNE H6309/ENDC constructs Also modified makefile to allow -e option for 6309 assembly
author boisy
date Sun, 29 Dec 2002 16:57:28 +0000
parents b37b87121be2
children ecc14d6a24af
files 3rdparty/packages/basic09/basic09.asm 3rdparty/packages/basic09/makefile 3rdparty/packages/basic09/runb.asm
diffstat 3 files changed, 15 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)
 
--- 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