Kernel version 0.9 : CP/MV/RM, more bug fix

BIN/RM.S.txt

@@ -25,7 +25,7 @@ OptionList		>PSTR "CRY"
 OptionVars		.DA #bContinue,#bRecurse,#bNoConfirm
 *--------------------------------------
 MSG.USAGE		>CSTR "Usage : RM [File/Dir, *,? wildcards allowed]\n   -C : Continue on error\n   -R : Recurse subdirectories\n"
-MSG.DIR			>CSTR "RM Dir :%S%S..."
+MSG.DIR			>CSTR "RM Dir :%S..."
 MSG.FILE		>CSTR "RM File:%S%S..."
 MSG.OK			>CSTR "[OK]\n"
 MSG.ERR			>CSTR "[%h]\n"

BIN/X.CPMVRM.S.txt

@@ -129,6 +129,8 @@ CS.INIT			>SYSCALL GetArgC
 				clc
 				rts
 *--------------------------------------
+* CS.RUN
+*--------------------------------------
 CS.RUN			>SYSCALL GetC
 				bcs .11					no char
 				
@@ -147,7 +149,9 @@ CS.RUN			>SYSCALL GetC
 				
 .11				ldy #bPause
 				lda (pData),y
-				bmi .8
+				bpl .1
+				clc
+				rts
 *--------------------------------------				
 .1				.DO X.COPY.TO.DEST=1
 				ldy #bCopy
@@ -160,7 +164,21 @@ CS.RUN			>SYSCALL GetC
 				ldy #hToDelete
 				lda (pData),y
 				beq .3
-				jmp CS.RUN.Delete
+				
+				>SYSCALL GetMemPtrA
+				>SYSCALL RemoveYA
+				php
+				pha
+				ldy #hToDelete
+				lda (pData),y
+				>SYSCALL FreeMemA
+
+				ldy #hToDelete
+				lda #0
+				sta (pData),y
+				pla
+				plp
+				jmp CS.RUN.CheckErr
 				.FIN
 *--------------------------------------
 .3				jsr GetNextEntry		Ptr1=NAME, Ptr2=STAT
@@ -178,36 +196,45 @@ CS.RUN			>SYSCALL GetC
 				
 .4				ldy #S.STAT.P.DRIVE
 				lda (ZPPtr2),y			ProDOS Device ?
-				bne .5
+				bne .6
 				
 				ldy #S.STAT.P.TYPE
 				lda (ZPPtr2),y
 				cmp #$0F				Directory ?
-				beq .6
+				bne .5
 
-				jmp CS.RUN.FILE
+				ldy #bRecurse
-
+				lda (pData),y
-.5				jmp CS.RUN.DEV
+				bpl .8
-
+				jmp CS.RUN.DIR
-.6				jmp CS.RUN.DIR
 				
-.9				jsr LeaveSubDir
+.5				jmp CS.RUN.FILE
-				bcs .99
+				
+.6				lda #MLI.ERR.UNSUPSS
+				sec
+				rts
 *--------------------------------------
+.9				jsr LeaveSubDir			exit this sub dir....
+				bcs .99					base, we are done, exit
+				
 				.DO X.DELETE.SOURCE=1
+				.DO X.COPY.TO.DEST=0
 				ldy #hSrcBasePath
 				jsr CS.RUN.GetBasePath
+
+				>PUSHWI UsrBuf256
+				>LDYA L.MSG.DIR
+				>SYSCALL CPrintFYA
+				bcs .9			
+
+				>LDYAI UsrBuf256 
 				>SYSCALL RemoveYA
 				jsr CS.RUN.CheckErr
 				bcs .99
 				.FIN
+				.FIN
 *--------------------------------------
-				ldy #bRecurse
-				lda (pData),y
-				bpl .8		
-
 				jsr BasePath..
-				
 .8				clc
 				rts
 				
@@ -215,10 +242,6 @@ CS.RUN			>SYSCALL GetC
 				sec
 				rts
 *--------------------------------------
-CS.RUN.DEV		
-.8				clc				
-.9				rts
-*--------------------------------------
 CS.RUN.DIR		ldy #1
 				lda (ZPPtr1),y
 				cmp #'.'
@@ -229,7 +252,6 @@ CS.RUN.DIR		ldy #1
 				lda (pData),y
 				>SYSCALL GetMemPtrA
 				>PUSHYA
-				.FIN
 				
 				>PUSHW ZPPtr1			Filename
 				
@@ -241,8 +263,7 @@ CS.RUN.DIR		ldy #1
 				>LDYA L.MSG.DIR
 				>SYSCALL CPrintFYA
 				bcs .9			
-*--------------------------------------
+
-				.DO X.COPY.TO.DEST=1
 				ldy #hDstBasePath
 				jsr CS.RUN.GetFilePath
 				
@@ -252,22 +273,9 @@ CS.RUN.DIR		ldy #1
 				bcs .9
 				.FIN
 *--------------------------------------
-				ldy #bRecurse
-				lda (pData),y
-				bpl .1
-
 				>LDYA ZPPtr1
 				jmp EnterSubDirYA
 *--------------------------------------
-.1				.DO X.DELETE.SOURCE=1
-				ldy #hSrcBasePath
-				jsr CS.RUN.GetFilePath
-				>LDYAI UsrBuf256 
-				>SYSCALL RemoveYA
-				jsr CS.RUN.CheckErr
-				bcs .9
-				.FIN
-*--------------------------------------
 .8				clc
 .9				rts
 *--------------------------------------
@@ -291,10 +299,12 @@ CS.RUN.FILE		.DO X.COPY.TO.DEST=1
 *--------------------------------------
 				.DO X.COPY.TO.DEST=1
 				jsr CS.RUN.CopyStart
-				bcs .9
+				bcc .1
+				jsr CS.RUN.CheckErr
+				rts
 				.FIN
 *--------------------------------------
-				.DO X.DELETE.SOURCE=1
+.1				.DO X.DELETE.SOURCE=1
 				ldy #hSrcBasePath
 				jsr CS.RUN.GetFilePath
 				>LDYAI UsrBuf256
@@ -322,7 +332,7 @@ CS.RUN.CopyStart
 				>PUSHWI UsrBuf256
 				
 				>SYSCALL FOpen
-				bcs .9
+				bcs .99
 				
 				ldy #hSrcFile
 				sta (pData),y
@@ -340,23 +350,24 @@ CS.RUN.CopyStart
 				>PUSHWI UsrBuf256
 				
 				>SYSCALL FOpen
-				bcc .1
+				bcs .9
-				pha
-				ldy #hSrcFile
-				lda (pData),y
-				>SYSCALL FCloseA
-				pla
-				sec
-				rts
 
-.1				ldy #hDstFile
+				ldy #hDstFile
 				sta (pData),y
 				
 				ldy #bCopy
 				lda #$ff
 				sta (pData),y
 				clc
-.9				rts
+				rts
+				
+.9				pha
+				ldy #hSrcFile
+				lda (pData),y
+				>SYSCALL FCloseA
+				pla
+				sec
+.99				rts
 *--------------------------------------
 CS.RUN.Copy		stz .90+1
 				>PUSHWI COPY.BUF.SIZE
@@ -426,16 +437,6 @@ CS.RUN.CopyEnd	ldy #hSrcFile
 				sec
 				bra CS.RUN.CheckErr
 				.FIN
-*--------------------------------------
-				.DO X.DELETE.SOURCE=1
-CS.RUN.Delete	pha
-				lda #0
-				sta (pData),y
-				pla
-				>SYSCALL GetMemPtrA
-				>SYSCALL RemoveYA
-				bra CS.RUN.CheckErr
-				.FIN
 *--------------------------------------
 CS.RUN.CheckErr	bcs .1
 				>LDYA L.MSG.OK