Mercurial > hg > Members > kono > nitros9-code

changeset 619:8622c2a17b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added H6309 conditional around 6309 specific code
author boisy
date Tue, 03 Dec 2002 14:48:06 +0000
parents 7a4d7a896b8f
children be4e1a676e45
files 3rdparty/packages/basic09/basic09.asm
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/basic09/basic09.asm	Sat Nov 30 09:44:49 2002 +0000
+++ b/3rdparty/packages/basic09/basic09.asm	Tue Dec 03 14:48:06 2002 +0000
@@ -1643,7 +1643,11 @@
          leax  <L07B5,pc  Point to intercept routine and set it up with
          os9   F$Icpt     it's memory area @ start of param area
          leax  >L000D-$d,pc Point to beginning of module header
+         IFNE  H6309
          tfr   x,w        Move it to W
+         ELSE
+         pshs  x
+         ENDC
          ldx   <u0000     Point X to start of data mem
 * Set up some JMP tables from the module header
          leax  <$1B,x     Point $1b bytes into it
@@ -1651,7 +1655,11 @@
 L082E    lda   #$7E       Opcode for JMP Extended instruction
          sta   ,x+        Store in table
          ldd   ,y++       Get jump offset from module header extension
+         IFNE  H6309
          addr  w,d        Add to start of module address
+         ELSE
+         addd  ,s++
+         ENDC
          std   ,x++       Store as destination of JMP
          ldd   ,y         Keep installing JMP tables until 0000 found
          bne   L082E