diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 5c6f7043..594c9a41 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/BIN/CHGRP.S.txt b/BIN/CHGRP.S.txt index b767722c..1694c8a3 100644 --- a/BIN/CHGRP.S.txt +++ b/BIN/CHGRP.S.txt @@ -197,12 +197,9 @@ CS.RUN.DIR lda (ZPFileName) beq .8 skip ".." .1 jsr FilterMatch - bcc .2 + bcs .8 -.8 clc -.9 rts - -.2 jsr CS.RUN.GetFilePath + jsr CS.RUN.GetFilePath >PUSHW L.MSG.DIR >PUSHW ZPFullPath >PUSHBI 2 @@ -218,13 +215,13 @@ CS.RUN.DIR lda (ZPFileName) bcs .9 >LDA.G bRecurse - bpl .80 + bpl .8 >LDYA ZPFileName jmp EnterSubDirYA -.80 clc - rts +.8 clc +.9 rts *-------------------------------------- CS.RUN.FILE clc diff --git a/BIN/CHOWN.S.txt b/BIN/CHOWN.S.txt index 9c83ca75..307e415d 100644 --- a/BIN/CHOWN.S.txt +++ b/BIN/CHOWN.S.txt @@ -198,12 +198,9 @@ CS.RUN.DIR lda (ZPFileName) beq .8 skip ".." .1 jsr FilterMatch - bcc .2 + bcs .8 -.8 clc -.9 rts - -.2 jsr CS.RUN.GetFilePath + jsr CS.RUN.GetFilePath >PUSHW L.MSG.DIR >PUSHW ZPFullPath >PUSHBI 2 @@ -219,13 +216,13 @@ CS.RUN.DIR lda (ZPFileName) bcs .9 >LDA.G bRecurse - bpl .80 + bpl .8 >LDYA ZPFileName jmp EnterSubDirYA -.80 clc - rts +.8 clc +.9 rts *-------------------------------------- CS.RUN.FILE clc diff --git a/BIN/LS.S.txt b/BIN/LS.S.txt index 1c99d770..6a30052c 100644 --- a/BIN/LS.S.txt +++ b/BIN/LS.S.txt @@ -759,7 +759,7 @@ MSG.REGEXT .AZ "%s %6s %6s %10u %s %s %S %H %s" MSG.REG .AZ "%19s" MSG.DIREXT .AZ "%s %6s %6s %s %s %s" MSG.DIR .AZ "\e[32m%s/\e[0m" -MSG.BDEVEXT .AZ "/%15s S%dD%d Blocks Used:%5D Total:%5D" +MSG.BDEVEXT .AZ "/%15s s%dd%d Blocks Used:%5D Total:%5D" MSG.BDEV .AZ "\e[32m%s/\e[0m" MSG.ENTER .AZ "Directory:%s" *-------------------------------------- diff --git a/SBIN/INITD.S.txt b/SBIN/INITD.S.txt index eab8428f..bfd284d4 100644 --- a/SBIN/INITD.S.txt +++ b/SBIN/INITD.S.txt @@ -134,7 +134,13 @@ CS.RUN.ETCINIT >LDYAI 256 beq .1 >LDYA BufPtr - jsr CS.RUN.EXEC.YA + >SYSCALL puts + + >PUSHW BufPtr + >PUSHBI S.PS.F.NOHUP + >SYSCALL ExecL + + >SLEEP bra .1 .90 pha diff --git a/SYS/KERNEL.S.STAT.txt b/SYS/KERNEL.S.STAT.txt index d53eebbd..65bfb4a3 100644 --- a/SYS/KERNEL.S.STAT.txt +++ b/SYS/KERNEL.S.STAT.txt @@ -12,16 +12,36 @@ NEW * ## RETURN VALUE *\-------------------------------------- K.ChTyp jsr PFT.CheckPath1 - bcs .9 + bcs K.ChTyp.9 >MLICALL MLIGETFILEINFO - bcs .9 + bcs K.ChTyp.9 lda (pStack) sta K.MLI.PARAMS+S.FI.T - >MLICALL MLISETFILEINFO +K.ChTyp.8 >MLICALL MLISETFILEINFO -.9 >RET 3 +K.ChTyp.9 >RET 3 +*/-------------------------------------- +* # Attr +* Change Attributes of a ProDOS File +* ## C +* `int attr(const char *filepath, short int attributes);` +* ## ASM +* `>PUSHW filepath` +* `>PUSHB attributes` +* `>SYSCALL attr` +* ## RETURN VALUE +*\-------------------------------------- +K.Attr jsr PFT.CheckPath1 + bcs K.ChTyp.9 + + >MLICALL MLIGETFILEINFO + bcs K.ChTyp.9 + + lda (pStack) + sta K.MLI.PARAMS+S.FI.A + bra K.ChTyp.8 *-------------------------------------- * # ChMod * change permissions of a file @@ -33,43 +53,12 @@ K.ChTyp jsr PFT.CheckPath1 * `>SYSCALL chmod` * ## RETURN VALUE *-------------------------------------- -* ProDOS203 : -* -w------- access = $C2 -* r-------- access = $01 -* --------- access = $00 -*-------------------------------------- K.ChMod jsr PFT.CheckPath2 bcs K.ChMod.RET4 jsr STAT.PullPathAndMode - bit CORE.FSID - bmi K.ChMod.FX - - >MLICALL MLIGETFILEINFO - bcs .9 - - ldx #0 - lda K.S.STAT+S.STAT.MODE+1 - and /S.STAT.MODE.RU - beq .1 - - inx - -.1 lda K.S.STAT+S.STAT.MODE - bpl .2 - - txa - ora #$C2 - - tax - -.2 stx K.MLI.PARAMS+S.FI.A - - >MLICALL MLISETFILEINFO -.9 rts - -K.ChMod.FX stz K.MLI.PARAMS+3+S.FIEX.ACL read mode + stz K.MLI.PARAMS+3+S.FIEX.ACL read mode >MLICALL MLIACL bcs .9 diff --git a/SYS/KERNEL.S.UNISTD.txt b/SYS/KERNEL.S.UNISTD.txt index be4aa598..fbe4ff4d 100644 --- a/SYS/KERNEL.S.UNISTD.txt +++ b/SYS/KERNEL.S.UNISTD.txt @@ -304,8 +304,8 @@ K.ChOwn jsr PFT.CheckPath2 bmi .1 sta K.MLI.PARAMS+3+S.FIEX.ACL.GID -.1 - ldy #1 + +.1 ldy #1 lda (pStack),y bmi .2