Mercurial > hg > Members > kono > nitros9-code

changeset 630:73c67b086b74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed 6809 bug
author boisy
date Fri, 06 Dec 2002 15:43:14 +0000
parents befc3fed07e5
children 594a34d027f8
files 3rdparty/packages/basic09/basic09.asm
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/basic09/basic09.asm	Wed Dec 04 21:04:16 2002 +0000
+++ b/3rdparty/packages/basic09/basic09.asm	Fri Dec 06 15:43:14 2002 +0000
@@ -1658,11 +1658,14 @@
          IFNE  H6309
          addr  w,d        Add to start of module address
          ELSE
-         addd  ,s++
+         addd  ,s
          ENDC
          std   ,x++       Store as destination of JMP
          ldd   ,y         Keep installing JMP tables until 0000 found
          bne   L082E     
+         IFEQ  H6309
+         leas  2,s        eat X on stack
+         ENDC
          bsr   L0116      Go init <$50 vars, & some table ptrs
          puls  y          Get parameter ptr
          leax  >L0140,pc  Point to main command token list
@@ -1722,7 +1725,7 @@
          bsr   L08D0      Copy to temp buffer/print to Std error
 
 L08B2    bsr   L086D     
-         leax  >L073F,pc  Point to 'Ready'
+         leax  >L073F+1,pc  Point to 'Ready'
          bsr   L08D0      Copy to temp buffer/print to Std error
          leax  >L07A8,pc  Point to 'B:' prompt
          leay  >L0668,pc  Point to system mode command table