Kernel version 0.9 : CP/MV/RM , fixed a memory leak with DstPath

BIN/X.CPMVRM.S.txt

@@ -288,7 +288,7 @@ CS.RUN.DIR		.DO X.COPY.TO.DEST=1
 				
 				>LDYA L.MSG.DIR
 				>SYSCALL CPrintFYA
-				bcs .9			
+				bcs CS.RUN.DIR.RTS		
 
 				ldy #hDstBasePath
 				jsr CS.RUN.GetFilePath
@@ -304,7 +304,7 @@ CS.RUN.DIR		.DO X.COPY.TO.DEST=1
 				
 				>LDYA L.MSG.OVERWRTE
 				>SYSCALL CPrintFYA
-				bcs .9
+				bcs CS.RUN.DIR.RTS
 				
 .1				>SYSCALL Sleep
 				>SYSCALL GetC
@@ -335,7 +335,7 @@ CS.RUN.DIR		.DO X.COPY.TO.DEST=1
 				>SYSCALL MKDirYA
 				
 .4				jsr CS.RUN.CheckErr
-				bcs .9
+				bcs CS.RUN.DIR.RTS
 				.FIN
 
 .7				>LDYA ZPFileName
@@ -344,7 +344,7 @@ CS.RUN.DIR		.DO X.COPY.TO.DEST=1
 .99				ldy #RC
 				lda (pData),y			get global RC in case of bContnue
 				sec
-.9				rts
+CS.RUN.DIR.RTS	rts
 *--------------------------------------
 CS.RUN.FILE		.DO X.COPY.TO.DEST=1
 				>PUSHW ZPFileName
@@ -364,7 +364,7 @@ CS.RUN.FILE		.DO X.COPY.TO.DEST=1
 				
 				>LDYA L.MSG.FILE
 				>SYSCALL CPrintFYA
-				bcs .9
+				bcs CS.RUN.DIR.RTS
 
 				.DO X.COPY.TO.DEST=1
 				
@@ -394,7 +394,7 @@ CS.RUN.FILE		.DO X.COPY.TO.DEST=1
 				bne .11
 				
 				jmp CS.RUN.CR.NEXT		no overwrite exit
-.9				rts
+				rts
 				
 .11				cmp #'Y'
 				beq .12					copy
@@ -427,7 +427,7 @@ CS.RUN.FILE		.DO X.COPY.TO.DEST=1
 				.FIN
 				
 				clc
-				rts
+.9				rts
 
 .99				ldy #RC
 				lda (pData),y			get global RC in case of bContnue
@@ -633,5 +633,3 @@ CS.QUIT			jsr LeaveSubDir
 *--------------------------------------
 MAN
 SAVE BIN/X.CPMVRM.S
-LOAD BIN/MV.S
-ASM

BIN/X.FILEENUM.S.txt

@@ -451,6 +451,12 @@ LeaveSubDir		ldy #index
 				lda (pData),y
 				>SYSCALL FreeMemA
 				
+				.DO X.COPY.TO.DEST=1
+				ldy #hDstBasePath
+				lda (pData),y
+				>SYSCALL FreeMemA
+				.FIN
+				
 .9				sec
 				rts