mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-25 15:24:26 +00:00
Kernel version 0.9 : CP,RM,MV, Code rewrite in progress....#2
This commit is contained in:
parent
ece6e1f056
commit
188e0c6393
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -199,30 +199,43 @@ CS.RUN >SYSCALL GetC
|
|||||||
bpl .1
|
bpl .1
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
|
*--------------------------------------
|
||||||
.1 .DO X.COPY.TO.DEST=1
|
.1 .DO X.COPY.TO.DEST=1
|
||||||
ldy #bCopy
|
ldy #bCopy
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
bne .2
|
beq .2
|
||||||
|
|
||||||
jsr CS.RUN.Copy
|
jsr CS.RUN.Copy
|
||||||
|
|
||||||
ldy #bCopy Copy completed ?
|
ldy #bCopy Copy completed ?
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
bne .8
|
bne .8 no.....exit
|
||||||
|
|
||||||
ldy #bCopy
|
clc
|
||||||
|
ldy #CopyRC
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
beq .2 non copy error
|
.DO X.DELETE.SOURCE=0
|
||||||
|
beq .20 no copy error
|
||||||
|
|
||||||
sec
|
sec
|
||||||
jsr CS.RUN.CheckErr we have an error....
|
jsr CS.RUN.CheckErr we have an error....
|
||||||
bcs .9
|
bcs .9
|
||||||
|
jmp CS.RUN.NEXT
|
||||||
|
|
||||||
.DO X.DELETE.SOURCE=1
|
.20 jsr CS.RUN.CheckErr Success!!
|
||||||
ldy #hToDelete
|
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
|
lda #0
|
||||||
sta (pData),y Cancel delete if any
|
sta (pData),y Cancel delete if any
|
||||||
|
jmp CS.RUN.NEXT
|
||||||
.FIN
|
.FIN
|
||||||
.FIN
|
.FIN
|
||||||
|
|
||||||
@ -231,19 +244,23 @@ CS.RUN >SYSCALL GetC
|
|||||||
lda (pData),y
|
lda (pData),y
|
||||||
beq .3
|
beq .3
|
||||||
|
|
||||||
pha
|
|
||||||
lda #0
|
lda #0
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
pla
|
|
||||||
|
|
||||||
|
ldy #hSrcFullPath
|
||||||
|
lda (pData),y
|
||||||
>SYSCALL GetMemPtrA
|
>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
|
bcs .9
|
||||||
jmp CS.RUN.NEXT
|
jmp CS.RUN.NEXT
|
||||||
.FIN
|
.FIN
|
||||||
*---------------
|
*--------------------------------------
|
||||||
.3 jsr GetEntry
|
.3 jsr GetEntry
|
||||||
bcs CS.RUN.LEAVE
|
bcs CS.RUN.LEAVE
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user