Kernel version 0.9 : CP,RM,MV, more bugfix....

BIN/CP.S.txt

@@ -52,6 +52,7 @@ bCopy			.BS 1
 hToDelete		.BS 1
 CopyRC			.BS 1
 RC				.BS 1
+bWildcard		.BS 1
 bContinue		.BS 1
 bRecurse		.BS 1
 bNoConfirm		.BS 1

BIN/MV.S.txt

@@ -50,6 +50,7 @@ hDstFile		.BS 1
 bPause			.BS 1
 bCopy			.BS 1
 hToDelete		.BS 1
+bWildcard		.BS 1
 RC				.BS 1
 CopyRC			.BS 1
 bContinue		.BS 1

BIN/RM.S.txt

@@ -50,6 +50,7 @@ bPause			.BS 1
 bCopy			.BS 1
 hToDelete		.BS 1
 RC				.BS 1
+bWildcard		.BS 1
 CopyRC			.BS 1
 bContinue		.BS 1
 bRecurse		.BS 1

BIN/X.CPMVRM.S.txt

@@ -87,7 +87,9 @@ CS.INIT			>SYSCALL GetArgC
 				sta (pData),y
 				bra .1
 				
-.4				ldy #index
+.4				tax						Save len
+
+				ldy #index
 				lda (pData),y
 
 				.DO X.COPY.TO.DEST=1
@@ -96,10 +98,12 @@ CS.INIT			>SYSCALL GetArgC
 				bne .99
 				.FIN
 			
+				jsr CS.INIT.Check.Wildcard
+				
 				>LDYA ZPPtr1
 				jsr InitSrcDirPatYA
 				bcc .1					success, scan for any other args
-				rts
+.9				rts
 
 				.DO X.COPY.TO.DEST=1
 .5				ldy #hDstBasePath				
@@ -141,6 +145,29 @@ CS.INIT			>SYSCALL GetArgC
 				clc
 				rts
 *--------------------------------------
+CS.INIT.Check.Wildcard
+				ldy #0
+				ldx #0
+				
+.40				iny
+				lda (ZPPtr1),y
+				cmp #'?'
+				beq .41
+				cmp #'*'
+				bne .42
+				
+.41				lda #$ff
+				tax
+				
+.42				tya
+				cmp (ZPPtr1)
+				bne .40
+				
+				txa
+				ldy #bWildcard
+				sta (pData),y
+				rts
+*--------------------------------------
 CS.RUN			>SYSCALL GetC
 				bcs .11					no char
 				
@@ -181,12 +208,12 @@ CS.RUN			>SYSCALL GetC
 				pha
 				ldy #hToDelete
 				lda (pData),y
-				>SYSCALL FreeMemA
-
-				ldy #hToDelete
+				pha
 				lda #0
 				sta (pData),y
 				pla
+				>SYSCALL FreeMemA
+				pla
 				plp
 				jsr CS.RUN.CheckErr
 				bcs .9