mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-23 04:29:01 +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
|
||||
.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
|
||||
|
Loading…
x
Reference in New Issue
Block a user