[Coco] I$Create

[L. Curtis Boyle]

What Chris said about the # signs missing in the LDB and LDA instructions is correct. It is doing both as if reading from the memory locations being pointed to by the label, not the value of the labels themselves.

L. Curtis Boyle
curtisboyle at sasktel.net



> On Mar 21, 2023, at 1:46 PM, Bill Gunshannon via Coco <coco at maltedmedia.com> wrote:
> 
> 
> On 3/21/2023 9:25 AM, L. Curtis Boyle wrote:
>> Can you post a code snippet of one that you have tried, and what the resulting attributes you are getting?
> 
> I can do better than that.  Here's a program.
> 
> 
>         nam     create_file
>         ttl     M6809 Program to create a file and a directory
> *
>         ifp1
>         use     /DD/defs/os9.d
>         endc
> *
>         mod     PRGSIZ,PRGNAM,TYPE,REVS,START,SIZE
> PRGNAM  fcs     /cf/
> TYPE    set     Prgrm+Objct
> REVS    set     ReEnt+1
> *
> FILE1   fcs     #./file1#
>         fcb     $0D
> FILE2   fcs     #./file2#
>         fcb     $0D
> FILE3   fcs     #./file3#
>         fcb     $0D
> FILE4   fcs     #./file4#
>         fcb     $0D
> DIR1    fcs     #./dir1#
>         fcb     $0D
> DIR2    fcs     #./dir2#
>         fcb     $0D
> DIR3    fcs     #./dir3#
>         fcb     $0D
> DIR4    fcs     #./dir4#
>         fcb     $0D
>         rmb     250
>         rmb     200
> SIZE    equ     .
> *
> START   equ     *
>         leax    FILE1,U
>         lda     UPDAT.
>         ldb     READ.+WRITE.+PREAD.+PWRIT.
>         os9     I$Create
>         leax    FILE2,U
>         lda     UPDAT.
>         ldb     READ.+WRITE.+EXEC.+PREAD.+PWRIT.
>         os9     I$Create
>         leax    FILE3,U
>         lda     UPDAT.
>         ldb     %00011011
>         os9     I$Create
>         leax    FILE4,U
>         lda     UPDAT.
>         ldb     %00011111
>         os9     I$Create
>         leax    DIR1,U
>         lda     UPDAT.
>         ldb     READ.+WRITE.+PREAD.+PWRIT.
>         os9     I$MakDir
>         leax    DIR2,U
>         lda     UPDAT.
>         ldb     READ.+WRITE.+EXEC.+PREAD.+PWRIT.
>         os9     I$MakDir
>         leax    DIR3,U
>         lda     UPDAT.
>         ldb     %00011011
>         os9     I$MakDir
>         leax    DIR4,U
>         lda     UPDAT.
>         ldb     %00011111
>         os9     I$MakDir
>         clrb
>         os9     F$Exit
>         emod
> PRGSIZ  equ     *
>         END
> 
> ----------------------------
> 
> 
> And here is the result:
> 
> 
> {N3|06}/DD/Users/bill/M6809/CF/FTest:dir -e
> 
>  Directory of .  2023/03/21 15:41
> 
> Owner  Last modified   Attributes Sector Bytecount Name
> ----- ---------------- ---------- ------ --------- ----
>   65  2023/03/21 15:40  ------wr   12809       907 AAA
>   65  2023/03/21 15:40  ----r-wr   12814       67E ft.a
>   65  2023/03/21 15:41  -se-re--   13000         0 file1
>   65  2023/03/21 15:41  --e-rew-   13800         0 file2
>   65  2023/03/21 15:41  -se-re--   14000         0 file3
>   65  2023/03/21 15:41  --e-rew-   14800         0 file4
>   65  2023/03/21 15:41  dse-re--   15000        40 dir1
>   65  2023/03/21 15:41  d-e-rew-   15800        40 dir2
>   65  2023/03/21 15:41  dse-re--   16000        40 dir3
>   65  2023/03/21 15:41  d-e-rew-   16800        40 dir4
> 
> 
> Thanks for the help.  I am sure there is something subtle I am missing.
> 
> I haven't done any M6809 programming in decades.
> 
> bill
> 
> 
> 
> -- 
> Coco mailing list
> Coco at maltedmedia.com
> https://pairlist5.pair.net/mailman/listinfo/coco
>