Mercurial > hg > Members > kono > os9 > sbc09

changeset 125:95718258025c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TL/1 fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 05 Jan 2019 10:22:12 +0900
parents f065d9718442
children f43ca5d22920
files TL1/TL1os9.asm
diffstat 1 files changed, 21 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- a/TL1/TL1os9.asm	Sat Jan 05 07:51:54 2019 +0900
+++ b/TL1/TL1os9.asm	Sat Jan 05 10:22:12 2019 +0900
@@ -353,7 +353,7 @@
        BNE   AS4
        LBSR  PUTX 
        LDA   #$A7 
-       LDS   OPER 
+       LDB   OPER 
        LBRA  PUTAB
 AS4      DECA 
        BNE   AS5
@@ -366,7 +366,7 @@
        FDB   $33D7 
        FCB   WT2
        FDB   $33D7
-       FCB   WT1 $DE,WT2
+       FCB   WT1 $9E,WT2
        FDB   $A700 
        CLR   INDEX
        RTS
@@ -383,7 +383,7 @@
        SUBA #$51
        PSHS A
        LBSR WORD
-       PULS B
+       PULS B         B keyword A next token
 **
 *  REPEAT UNTIL 
 **
@@ -405,7 +405,7 @@
 **
 SS7    DECB
        BNE SS8
-       CMPA #4
+       CMPA #4        should be simple var
        BEQ *+5
        LBRA ERROR
        LDB VAL
@@ -413,19 +413,19 @@
        LDB GL
        PSHS B
        LBSR ASSIGN
-       LDA #$61
+       LDA #$61       to
        LBSR CHECK
        CLR ACC
        LBSR EXPR
-       LDA #$64
+       LDA #$64       do
        LBSR CHECK
        BSR ASTOUT
-       LDA   #$36
-       LBSR PUTA
+       LDD   #$3402     pshs a
+       LBSR PUTAB
        CLR   INDEX
        LBSR STAT
-       LDA  #$32
-       LBSR PUTA
+       LDD  #$3502      puls a
+       LBSR PUTAB
        PULS D
        STA GLL
        STB OPER
@@ -453,7 +453,7 @@
        FCB 2
        FDB $2603
        BSR SLAOUT 
-       LDS INDEX 
+       LDB INDEX 
        PSHS B
        LBSR STAT
        PULS B
@@ -524,7 +524,7 @@
 **
 SS11   LDA #$37
        LBSR CHECK
-       LBSR EXPR
+       LBSR EXPR    output channel number
        LBSR PUTHS
        FDB $0297
        FCB OUTDN
@@ -537,21 +537,21 @@
        BNE WTEN
        LBSR WORD
        BRA WTLP
-WTEN   LDA #$36
+WTEN   LDA #$3B
        LBRA CHECK
-**
-WTERM  CMPA #$6C
+**  write command argument
+WTERM  CMPA #$6C      string
        BNE WR1
        LBSR PUTHSL
        FDB $03BD
        FDB PUTSTR
        LDA CH
-WR01   CMPA #'"'
+WR01   CMPA #'"'     copy until '"'
        BEQ WR02
        LBSR PUTA
        LBSR GETCH
        BRA WR01
-WR02   CLRA
+WR02   CLRA          put 0 at end
        STA INDEX
        LBSR PUTA
        LBSR GETCH
@@ -613,18 +613,18 @@
        PULS D 
        BRA PUTAB
 **
-* PUT LP, OR GB BY INDEX
+* PUT LB, OR GB BY INDEX
 **
 PUTX   LDB GLL 
        CMPB INDEX 
        BEQ RTS11 
        STB INDEX 
        ADDB #LB+1
-       LDA #$DE 
+       LDA #$9E 
 ***
 * PUT ACC A&B
 **
-PUTAB    BSR PUTA
+PUTAB  BSR PUTA
        TFR B,A
 **
 * PUT ACCA RS AN OBJECT
@@ -1157,7 +1157,7 @@
        FDB $0997
        FCB WT2
        FDB $3297
-       FCB WT1,$DE,WT1
+       FCB WT1,$9E,WT1
        FDB $A600
        CLR INDEX 
        RTS