changeset 87:60e629904ad6

forth worked
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 20 Aug 2018 10:44:21 +0900
parents 4967d1acd34a
children a7576562324d
files src/os9/level2/cmds/sbc09.asm
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/os9/level2/cmds/sbc09.asm	Mon Aug 20 00:48:11 2018 +0900
+++ b/src/os9/level2/cmds/sbc09.asm	Mon Aug 20 10:44:21 2018 +0900
@@ -66,6 +66,11 @@
 *         bne   start            branch if not
 
 copytbl
+         lda   #$17             lbra
+         sta   $e400
+         leax  Exit,pcr
+         leax  -$e403,x
+         stx   $e401
          leax  iotbl,pcr
          leay  iotblend,pcr
          pshs  x,y
@@ -208,7 +213,8 @@
         LDA         <stdin
         OS9         I$ReadLn
         BCS         GETLN0
-*        TFR         Y,D
+        LEAY        -1,Y
+        TFR         Y,D
 *        LDA         D,X
 *        CMPA        #C$CR
 *        BNE         GETLN1
@@ -235,9 +241,6 @@
         TFR         D,X
         OS9         F$Sleep
         PULS        D,X,PC
-        org         $400
-        lbra        Exit
-