# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1554958768 -32400
# Node ID 2937e970aac627b41a6d967d137ec319640ed4df
# Parent  3f8bbec566b37f24a191c82013c99187985fee27
generate os9 module done

diff -r 3f8bbec566b3 -r 2937e970aac6 TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Wed Apr 10 22:48:30 2019 +0900
+++ b/TL1/TL1os9.asm	Thu Apr 11 13:59:28 2019 +0900
@@ -47,6 +47,7 @@
 AMODE  RMB 1
 ACC    RMB 1
 LSIZE  RMB 1     local variable size (including arguments )
+GSIZE  RMB 1     global variable including array
 TCOUNT RMB 1     1 search reserved word only, 5 search all local/global var/array, proc
 TEND   RMB 2     table end (search start from here ) include local name
 WEND   RMB 2     word end
@@ -71,7 +72,7 @@
 ioentry  rmb   $80
 readbuff rmb   bufsiz+1
 
-OBJSTART RMB 11
+OBJSTART RMB 10
 
 
 * OBJECT PG AREA
@@ -87,6 +88,7 @@
 name     fcs   /TL1/
          fcb   edition
 
+
 ** OBJECT START
 ******
 C      tst    <runmod
@@ -205,6 +207,8 @@
        BSR REGNAM
        CLR LSIZE
        BSR REG0
+       LDB  LSIZE
+       STB  GSIZE
        LBSR PROG 
        LBSR STPOUT
        LDX TEND
@@ -1428,40 +1432,47 @@
        sta   <runmod
        ldy   <pc
        ldd   #$87CD
+       std   ,y
+       leay  4,y        skip size 
+       ldd   #$0d       module name offset
        std   ,y++
-       ldd   #$0c0a
+       ldd   #$1180     type language
        std   ,y++
-       leay  9,y
+       ldd   #$1a00     attribue rev
+       leay  5,y
+       *  put module name
        ldx   ,s
        bsr   mkmodnam
        tfr   y,d
-       subd  #LIBEND+2
-       std    modofs
+       leax  crt0top,pcr
+       pshs  x
+       subd  ,s++
+       subd  #2
+       std   modofs
        leau  crt0top,pc
        ldx   #LIBEND-crt0top
-libcpy ldd   ,u++
-       std   ,y++
-       leax  -2,x
-       bhi   libcpy
+libcpy lda   ,u+
+       sta   ,y+
+       leax  -1,x
+       bne   libcpy
        sty   <PC
        puls   x,y,u,pc
 
 mkmodnam pshs x,y,u
-m4     tfr    x,u
-       tst    ,x
+m7     tfr    x,u
+       lda    ,x+
        lbeq   ERROR    * no file name
        cmpa   #' '
-       bne    m0
-       leax   1,x
-       bra    m4
+       bne    m2
+       bra    m7
 m0     lda    ,x+
-       cmpa   #' '
+m2     cmpa   #' '
        ble    m1
        cmpa   #'/'
-       bne    m0
+       beq    m8
        cmpa   #':'
        bne    m0
-       tfr    x,u
+m8     tfr    x,u
        bra    m0
 m1     lda    ,u+
        cmpa   #' '
@@ -1477,59 +1488,67 @@
        puls  x,y,u,pc
 
 modend leax   OBJECT,u         * header setup
-       ldy    <PC
-       sty    2,x
+       ldd    <PC
+       pshs   x
+       subd   ,s++
+       addd   #3
+       std    2,x              module size
        * header parity
        clra
-       ldb    #7
-m4     adda   ,x+
+       ldb    #8
+m4     eora   ,x+
        decb
        bne    m4
+       eora   #$ff
        sta    ,x+              header parity
-       leay    OBJECT,u
-       leay   crt0-crt0top,y
-       sty    ,x++             start address
-       ldy    GEND
-       clra
-       clrb
-m5     tst    ,y+
-       bpl    m5
-       beq    m6
-       leay   1,y
+       leay   crt0,pcr
+       ldd    modofs
+       addd   #11
+       leay   d,y
+       tfr    y,d
+       pshs   x
+       subd   ,s++
+       std    ,x++             start address offset
+       clra 
+       ldb    GSIZE
        addd   #1
-       bra    m5
-m6     std    $b,u             global size
+       std    ,x             global size
        * mod CRC
        pshs   d,u
        leax   OBJECT,u
        ldu    <PC
-       clr    ,u
-       clr    1,u
-       clr    2,u
+       lda    #$ff
+       sta    ,u
+       sta    1,u
+       sta    2,u
+       tfr    u,d
+       pshs   x
+       subd   ,s++
+       tfr    d,y
        os9    F$CRC
+       com    ,u
+       com    1,u
+       com    2,u
 
        * write to file
        ldu    2,s
        leax   OBJECT,u
        ldd    4,x
        leax   d,x
-       lda    2                write
-       os9    I$Open
+       ldd    #$27f         10 01111111      
+       os9    I$Create
        lbcs    ERROR
        sta    ,s
        ldu    2,s
        leax   OBJECT,u
-       ldd    <PC
-       addd   #3
-       pshs   x
-       subd   ,s++
+       ldy    2,x           module size
        lda    ,s
        os9    I$Write
        lbcs    ERROR
-       clra
+       puls   d,u
+       clrb
        os9    F$Exit          all end
 
-
 **********************
 * ADVANCE WORD
 **
@@ -1970,7 +1989,7 @@
         leax        OBJSTART,u
         *   compiled code follows
 
-LIBEND
+LIBEND   equ *
 
 
          emod
diff -r 3f8bbec566b3 -r 2937e970aac6 src/a09.c
--- a/src/a09.c	Wed Apr 10 22:48:30 2019 +0900
+++ b/src/a09.c	Thu Apr 11 13:59:28 2019 +0900
@@ -957,7 +957,8 @@
  if(lp) {
   if(lp->cat!=13&&lp->cat!=6) {
    if(lp->cat!=2||lp->value!=loccounter)
-     lp->value=loccounter; // seterror(8);
+     lp->value=loccounter; 
+     if (pass==1) seterror(8);
   } else {
    lp->cat=2;
    lp->value=loccounter;