# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1534729461 -32400
# Node ID 60e629904ad6352c35601332a278b7122649cab3
# Parent  4967d1acd34a4940178681c8febb22ab0290d891
forth worked

diff -r 4967d1acd34a -r 60e629904ad6 src/os9/level2/cmds/sbc09.asm
--- 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
-