workarounds for Corrupted FS

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

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

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