mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-14 04:29:02 +00:00
Kernel version 0.9 : MV,CP,RM.....bugfix in cp -C not proceeding to next file after an error
This commit is contained in:
parent
046c5b943c
commit
d297b4ad66
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user