diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 31a9b1f3..0b3b3fcd 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/BIN/LS.S.txt b/BIN/LS.S.txt index 2969aefc..323b8933 100644 --- a/BIN/LS.S.txt +++ b/BIN/LS.S.txt @@ -395,7 +395,8 @@ CS.RUN.PRINT.DIR1 .9 rts *-------------------------------------- CS.RUN.PRINT.CDEV - clc + lda #MLI.E.UNSUPST + sec rts *-------------------------------------- CS.RUN.PRINT.BDEV @@ -476,7 +477,8 @@ CS.RUN.PRINT.LNK CS.RUN.PRINT.DSOCK CS.RUN.PRINT.SSOCK CS.RUN.PRINT.PIPE - clc + lda #MLI.E.UNSUPST + sec rts *-------------------------------------- CS.RUN.PRINT.DIREND diff --git a/ProDOS.FX/ProDOS.S.XDOS.B.txt b/ProDOS.FX/ProDOS.S.XDOS.B.txt index 4fb5c2d0..648e9dac 100644 --- a/ProDOS.FX/ProDOS.S.XDOS.B.txt +++ b/ProDOS.FX/ProDOS.S.XDOS.B.txt @@ -206,18 +206,27 @@ movhed0 ldx #9 move this directory info bpl .1 .DO ACL=1 + ldx #7 + lda gbuf+$14 cmp #$57 bne .20 - ldx #7 + lda gbuf+$15 + bne .20 .2 lda gbuf+$14,x sta h_acl,x dex bpl .2 + + bra .21 -.20 .FIN +.20 stz h_acl,x + dex + bpl .20 + +.21 .FIN lda gbuf+4 if this is root, then nothing to do and #$F0 diff --git a/SYS/KERNEL.S.FS.txt b/SYS/KERNEL.S.FS.txt index f6ab3048..c696445b 100644 --- a/SYS/KERNEL.S.FS.txt +++ b/SYS/KERNEL.S.FS.txt @@ -300,6 +300,10 @@ FS.DirEnt2Stat jsr FS.ClrStat cmp #$57 bne .7 + iny + lda (ZPPtr3),y + bne .7 + ldy #S.FIEX.ACL.UID lda (ZPPtr3),y sta K.S.STAT+S.STAT.UID