Mercurial > hg > Members > kono > nitros9-code

changeset 498:754d001b03d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed code to get around goofy assembler problem
author boisy
date Wed, 09 Oct 2002 17:30:34 +0000
parents 910b1bd03739
children 8c060694e3ca
files 3rdparty/packages/basic09/basic09.asm
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/basic09/basic09.asm	Wed Oct 09 15:33:11 2002 +0000
+++ b/3rdparty/packages/basic09/basic09.asm	Wed Oct 09 17:30:34 2002 +0000
@@ -7659,13 +7659,15 @@
 * NEXT table
 * IF some of these entry points are moved before this table, 8 bit addressing
 * may be used instead of 16
-L33DF    fcb   L3405-L33DF Integer STEP 1
+L33DF    equ   *
+         fcb   L3405-L33DF Integer STEP 1
          fcb   L341E-L33DF Integer STEP <>1
          fcb   L345A-L33DF Real STEP 1
          fcb   L34A5-L33DF Real STEP <>1
 
 * Jump table for FOR (relative to L34E5) (change to 8 bit if possible)
-L34E5    fcb   L33F3-L34E5 $ff0e   INT step 1
+L34E5    equ   *
+         fcb   L33F3-L34E5 $ff0e   INT step 1
          fcb   L33F9-L34E5 $ff14   INT step <>1
          fcb   L343E-L34E5 $ff59   REAL step 1
          fcb   L3446-L34E5 $ff61   REAL step <>1