Kernel 0.94

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

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

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  <dir>   %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"
 *--------------------------------------

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

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

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