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