diff --git a/.Floppies/A2OSX.BOOT.po b/.Floppies/A2OSX.BOOT.po index c76d7d27..acf37390 100644 Binary files a/.Floppies/A2OSX.BOOT.po and b/.Floppies/A2OSX.BOOT.po differ diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index bcf3af01..49ce79f8 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index f36e00df..e39fee0b 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/BIN/X.CPMVRM.S.txt b/BIN/X.CPMVRM.S.txt index 3d85fd36..81d6bb67 100644 --- a/BIN/X.CPMVRM.S.txt +++ b/BIN/X.CPMVRM.S.txt @@ -199,30 +199,43 @@ CS.RUN >SYSCALL GetC bpl .1 .8 clc rts - +*-------------------------------------- .1 .DO X.COPY.TO.DEST=1 ldy #bCopy lda (pData),y - bne .2 + beq .2 jsr CS.RUN.Copy ldy #bCopy Copy completed ? lda (pData),y - bne .8 + bne .8 no.....exit - ldy #bCopy + clc + ldy #CopyRC lda (pData),y - beq .2 non copy error + .DO X.DELETE.SOURCE=0 + beq .20 no copy error sec jsr CS.RUN.CheckErr we have an error.... bcs .9 + jmp CS.RUN.NEXT - .DO X.DELETE.SOURCE=1 - ldy #hToDelete +.20 jsr CS.RUN.CheckErr Success!! + jsr CS.RUN.IncCount + jmp CS.RUN.NEXT + .ELSE + beq .2 + sec + jsr CS.RUN.CheckErr we have an error.... + bcc .21 + rts + +.21 ldy #hToDelete lda #0 sta (pData),y Cancel delete if any + jmp CS.RUN.NEXT .FIN .FIN @@ -231,19 +244,23 @@ CS.RUN >SYSCALL GetC lda (pData),y beq .3 - pha lda #0 sta (pData),y - pla + ldy #hSrcFullPath + lda (pData),y >SYSCALL GetMemPtrA - >SYSCALL RemoveYA -.20 jsr CS.RUN.CheckErr + >SYSCALL RemoveYA + bcs .22 + jsr CS.RUN.IncCount + jmp CS.RUN.NEXT + +.22 jsr CS.RUN.CheckErr bcs .9 jmp CS.RUN.NEXT .FIN -*--------------- +*-------------------------------------- .3 jsr GetEntry bcs CS.RUN.LEAVE