Mercurial > hg > Members > kono > os9 > sbc09

diff TL1/TL1os9.asm @ 132:36000611014b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
micro-c buffering
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 06 Jan 2019 19:57:11 +0900
parents 321b7fffadab
children 7503617351c0
line wrap: on
line diff
--- a/TL1/TL1os9.asm	Sat Jan 05 22:10:20 2019 +0900
+++ b/TL1/TL1os9.asm	Sun Jan 06 19:57:11 2019 +0900
@@ -348,7 +348,7 @@
        FDB   $33D7 
        FCB   WT2
        FDB   $33D7
-       FCB   WT1 $9E,WT2
+       FCB   WT1,$9E,WT2
        FDB   $A700 
        CLR   INDEX
        RTS
@@ -402,7 +402,7 @@
        LDA #$64       do
        LBSR CHECK
        BSR ASTOUT
-       LDD   #$3402     pshs a
+       LDD  #$3402     pshs a
        LBSR PUTAB
        CLR   INDEX
        LBSR STAT
@@ -867,10 +867,10 @@
 OLOAD  LDA LSW 
        BEQ RTE 
        LDA ACC
-       BEQ *+6 
-       LDA #$36
-       BSR PUTA1 
-       LDA #$86
+       BEQ OL1
+       LDD #$3402  pshs a
+       LBSR PUTAB 
+OL1    LDA #$86
 OCORD  PSHS A
        CLRA
        STA LSW
@@ -887,12 +887,12 @@
        LBRA PUTAB
 * PUT 'TAB:PULS A'
 PUTPUL LBSR PUTHS
-       FCB 2
-       FDB $1632
+       FCB 4
+       FCB $1f,$89,$35,2     tfr a,b ; puls a
 RTE1   RTS 
 * PUT 'PULS B'
-PUTPLB LDA #$33
-       BRA PUTA1
+PUTPLB LDA #$3504 puls b
+       LBRA PUTAB
 **
 *  ADDING EXPRESSION
 **
@@ -1041,8 +1041,8 @@
 OLP    LBSR OLOAD
        LDB ACC 
        BEQ RTS4
-       LDA #$36 
-       LBSR PUTA
+       LDD #$3402     pshs a
+       LBSR PUTAB
        CLR ACC 
 RTS4   RTS
 ** FUNCTION RND