Kernel version 0.9 : MV,CP,RM.....bugfix in cp -C not proceeding to next file after an error

This commit is contained in:
Rémy GIBERT 2017-08-02 23:05:36 +02:00
parent 046c5b943c
commit d297b4ad66
5 changed files with 4 additions and 31 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -98,8 +98,6 @@ CS.INIT >SYSCALL GetArgC
bne .99 bne .99
.FIN .FIN
* jsr CS.INIT.Check.Wildcard
>LDYA ZPPtr1 >LDYA ZPPtr1
jsr InitSrcDirYA jsr InitSrcDirYA
bcc .1 success, scan for any other args bcc .1 success, scan for any other args
@ -155,29 +153,6 @@ CS.INIT >SYSCALL GetArgC
clc clc
rts 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 CS.RUN >SYSCALL GetC
bcs .11 no char bcs .11 no char
@ -485,7 +460,7 @@ CS.RUN.FILE jsr CS.RUN.FILE.MSG
.3 jsr CS.RUN.CopyStart .3 jsr CS.RUN.CopyStart
bcc .4 bcc .4
jsr CS.RUN.CheckErr jsr CS.RUN.CheckErr
rts jmp CS.RUN.NEXT
.FIN .FIN
.4 .DO X.DELETE.SOURCE=1 .4 .DO X.DELETE.SOURCE=1
@ -559,9 +534,10 @@ CS.RUN.OVERWRITE.KEY
*-------------------------------------- *--------------------------------------
CS.RUN.CR lda #13 CS.RUN.CR lda #13
>SYSCALL PutCA >SYSCALL PutCA
bcs .9
lda #10 lda #10
>SYSCALL PutCA >SYSCALL PutCA
rts .9 rts
*-------------------------------------- *--------------------------------------
.DO X.COPY.TO.DEST=1 .DO X.COPY.TO.DEST=1
.DO X.DELETE.SOURCE=1 .DO X.DELETE.SOURCE=1
@ -731,10 +707,7 @@ CS.RUN.CheckErr bcs .1
bcs .9 bcs .9
rts rts
.2 lda #13 .2 jsr CS.RUN.CR
>SYSCALL PutCA
lda #10
>SYSCALL PutCA
pla pla
sec sec
.9 rts .9 rts