diff TL1/TL1os9.asm @ 167:3f8bbec566b3

x
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 10 Apr 2019 22:48:30 +0900
parents a813c5ae58d5
children 2937e970aac6
line wrap: on
line diff
--- a/TL1/TL1os9.asm	Wed Apr 10 12:09:08 2019 +0900
+++ b/TL1/TL1os9.asm	Wed Apr 10 22:48:30 2019 +0900
@@ -89,16 +89,19 @@
 
 ** OBJECT START
 ******
-C      leas OBJECT,u
-VARPTR lda INDN
-       lbsr close
+C      tst    <runmod
+       beq    c2
+       lbra   modend
+c2     leas   OBJECT,u
+VARPTR lda    INDN
+       lbsr  close
        clra       os9 stdin
-       sta INDN
+       sta   INDN
        inca
-       sta OUTDN
-       LDX <PC
-       leay ,x
-OBJMP  JMP OBJECT,u
+       sta   OUTDN
+       LDX   <PC
+       leay  ,x
+OBJMP  JMP   OBJECT,u
 
 
 start    LEAY OBJECT,u
@@ -1428,9 +1431,7 @@
        std   ,y++
        ldd   #$0c0a
        std   ,y++
-       ldd   #$000d
-       ldy   <pc
-       leay  $d,y
+       leay  9,y
        ldx   ,s
        bsr   mkmodnam
        tfr   y,d
@@ -1446,17 +1447,25 @@
        puls   x,y,u,pc
 
 mkmodnam pshs x,y,u
-       tfr    x,u
+m4     tfr    x,u
        tst    ,x
        lbeq   ERROR    * no file name
+       cmpa   #' '
+       bne    m0
+       leax   1,x
+       bra    m4
 m0     lda    ,x+
-       bne    m3
+       cmpa   #' '
+       ble    m1
        cmpa   #'/'
        bne    m0
+       cmpa   #':'
+       bne    m0
        tfr    x,u
        bra    m0
 m1     lda    ,u+
-       beq    m3
+       cmpa   #' '
+       ble    m3
        cmpa   #'.'
        beq    m3
        sta    ,y+