Kernel 0.93+

BIN/X.FILEENUM.S.txt

@@ -20,16 +20,19 @@ X.MAX.RECURSE	.EQ 8
 FilterMatch		>LDA.G index
 				dec
 				bne .8					in a subdir, match everything
+
 				>LDA.G hFilter
 				beq	.8					No filter....
+
 				>SYSCALL GetMemPtr
 				>STYA ZPPtr2
-				ldy #S.STAT.FSID
-				lda (ZPFileStat),y
-				bne .10					not prodos...
 
-				>LDYA ZPPtr2			CI compare
-				>SYSCALL strupr
+*				ldy #S.STAT.FSID
+*				lda (ZPFileStat),y
+*				bne .10					not prodos...
+
+*				>LDYA ZPPtr2			CI compare
+*				>SYSCALL strupr
 
 .10				lda (ZPPtr2)			Get first pattern byte
                 beq .8                  Match always if empty

ProDOS.FX/ProDOS.S.XDOS.B.txt

@@ -634,30 +634,6 @@ L3B1E  			sec		 				anticipate different names.
 
 L3B26  			ldx xvcbptr				offset to start of vcb (rev note #23)
 				rts
-*--------------------------------------
-				.DO LOWERCASE=1
-XDOS.GetVolNameCharGBufY
-				bit gbuf+$20			VERSION
-				bpl .8
-
-				cpy #8
-				bcs .2
-				
-				lda whichbit,y
-				bit gbuf+$20
-				beq .8
-				bra .7
-				
-.2				lda whichbit-8,y
-				bit gbuf+$21
-				beq .8
-				
-.7				lda gbuf+4,y
-				jmp XDOS.ToLower
-				
-.8				lda gbuf+4,y
-				rts
-				.FIN
 *--------------------------------------
 tstdupvol 		lda #$00			 	check for other logged in volumes with the same name.
 L3B2C  			tax

ProDOS.FX/ProDOS.S.XDOS.F.txt

@@ -584,6 +584,30 @@ XDOS.IsValidFirstChar.SEC
 				rts
 *--------------------------------------
 				.DO LOWERCASE=1
+XDOS.GetVolNameCharGBufY
+				bit gbuf+$20			VERSION
+				bpl .8
+
+				cpy #8
+				bcs .2
+				
+				lda whichbit,y
+				bit gbuf+$20
+				beq .8
+				bra .7
+				
+.2				lda whichbit-8,y
+				bit gbuf+$21
+				beq .8
+				
+.7				lda gbuf+4,y
+				jmp XDOS.ToLower
+				
+.8				lda gbuf+4,y
+				rts
+				.FIN
+*--------------------------------------
+				.DO LOWERCASE=1
 *XDOS.ToUpper	cmp #'a'
 *				bcc .8
 *				cmp #'z'+1