Mercurial > hg > Members > kono > nitros9-code

changeset 1165:b91cc65dbe4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More changes by Robert Gault
author boisy
date Wed, 14 May 2003 00:36:18 +0000
parents 0827fefe9d4d
children bb618bed0bdc
files 3rdparty/packages/basic09/runb.asm 3rdparty/packages/basic09/runbcd.asm
diffstat 2 files changed, 50 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/basic09/runb.asm	Tue May 13 21:17:04 2003 +0000
+++ b/3rdparty/packages/basic09/runb.asm	Wed May 14 00:36:18 2003 +0000
@@ -635,17 +635,28 @@
          jmp   b,x
 
 *embedded jumptable            second value
-L0442    fcb   $f2,L045A-L0444+1  *$17
-L0444    fcb   $92,L045E-L0446+1  *$19
-L0446    fcb   $91,L045A-L0448+1  *$13
-L0448    fcb   $90,L0460-L044A+1  *$17
-L044A    fcb   $8f,L0458-L044C+1  *$0D
-L044C    fcb   $8e,L045A-L044E+1  *$0D
-L044E    fcb   $8d,L045C-L0450+1  *$0D
-L0450    fcb   $55,L045A-L0452+1  *$09
-L0452    fcb   $4b,L045E-L0454+1  *$0B
-L0454    fcb   $3e,L0466-L0456+1  *$11
-L0456    fcb   $00,L045E-L0458+1  *$07
+L0442    fcb   $f2
+         fcb   L045A-*  *$17
+L0444    fcb   $92
+         fcb   L045E-*  *$19
+L0446    fcb   $91
+         fcb   L045A-*  *$13
+L0448    fcb   $90
+         fcb   L0460-*  *$17
+L044A    fcb   $8f
+         fcb   L0458-*  *$0D
+L044C    fcb   $8e
+         fcb   L045A-*  *$0D
+L044E    fcb   $8d
+         fcb   L045C-*  *$0D
+L0450    fcb   $55
+         fcb   L045A-*  *$09
+L0452    fcb   $4b
+         fcb   L045E-*  *$0B
+L0454    fcb   $3e
+         fcb   L0466-*  *$11
+L0456    fcb   $00
+         fcb   L045E-*  *$07
 L0458    leay  $03,y
 L045A    leay  $01,y
 L045C    leay  $01,y
--- a/3rdparty/packages/basic09/runbcd.asm	Tue May 13 21:17:04 2003 +0000
+++ b/3rdparty/packages/basic09/runbcd.asm	Wed May 14 00:36:18 2003 +0000
@@ -5,6 +5,7 @@
            ENDC
 
 * RunB from BASICBOOST from Chris Dekker - 6309'ized version of RunB
+* Created a proper jump table at L204 R.G. 03/05/13
 
 edition    equ   1
 membase    equ   $00
@@ -456,18 +457,37 @@
 
 *  embedded jumptable
 *  do not change until L264
-L204       fcb   242,23,146,25,145,19,144,23
-           fcb   143,13,142,13,141,13,85,9,75
-           fcb   11,62,17,0,7
-           LEAY  3,Y
-           LEAY  1,Y
-           LEAY  1,Y
-           BRA   L208
+L204       fcb   $F2
+           fcb   LA2-*
+           fcb   $92
+           fcb   LA4-*
+           fcb   $91
+           fcb   LA2-*
+           fcb   $90
+           fcb   L210-*
+           fcb   $8f
+           fcb   LA1-*
+           fcb   $8e
+           fcb   LA2-*
+           fcb   $8d
+           fcb   LA3-*
+           fcb   $55
+           fcb   LA2-*
+           fcb   $4b
+           fcb   LA4-*
+           fcb   $3e
+           fcb   L21C-*
+           fcb   $00
+           fcb   LA4-*
+LA1        LEAY  3,Y
+LA2        LEAY  1,Y
+LA3        LEAY  1,Y
+LA4        BRA   L208
 
 L210       TST   ,Y+
            BPL   L210
            BRA   L208
-           PULS  PC,X,d
+L21C       PULS  PC,X,d
 
 * check param list for:
            fcb   0,7,3