Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-08 08:33:37 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-02-28 09:55:51 +00:00
parent 0589c4a4a4
commit 0d729cd34e
4 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

10
BIN/RM.S.txt
View File

@ -19,10 +19,13 @@ X.DELETE.SOURCE .EQ 1
*--------------------------------------
CS.END
*--------------------------------------
OptionList >PSTR "CRYQcryq"
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm,#bQuiet,#bContinue,#bRecurse,#bNoConfirm,#bQuiet
OptionList >PSTR "CRQcrq"
OptionVars .DA #bContinue,#bRecurse,#bQuiet,#bContinue,#bRecurse,#bQuiet
*--------------------------------------
MSG.USAGE .AZ "Usage : RM [File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -Q : Quiet\r\n -R : Recurse subdirectories\r\n"
MSG.USAGE .AS "Usage : RM [File/Dir, *,? wildcards allowed]\r\n"
.AS " -C : Continue on error\r\n"
.AS " -Q : Quiet\r\n"
.AZ " -R : Recurse subdirectories\r\n"
MSG.DIR .AZ "RM Dir :%s..."
MSG.FILE .AZ "RM File:%s..."
MSG.OK .AZ "[OK]"
@ -34,7 +37,6 @@ MSG.DONE .AZ "%D File(s) Removed.\r\n"
DS.START
bContinue .BS 1
bRecurse .BS 1
bNoConfirm .BS 1
bQuiet .BS 1
.INB USR/SRC/BIN/X.CPMVRM.G
.INB USR/SRC/BIN/X.FILEENUM.G

17
BIN/X.CPMVRM.S.txt
View File

@ -286,16 +286,12 @@ CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
jsr CS.RUN.BuildFilePath
ldy #hSrcFullPath
jsr CS.RUN.GetPathY
>STYA ZPPtr1
>PUSHYA
jsr CS.RUN.DIR.MSG
bcs CS.RUN.LEAVE.RTS
>LDYA ZPPtr1
ldy #hSrcFullPath
jsr CS.RUN.GetPathY
>SYSCALL remove
jsr CS.RUN.CheckErr
bcs .99
@ -323,11 +319,10 @@ CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
CS.RUN.LEAVE.RTS
rts
*--------------------------------------
CS.RUN.DIR jsr CS.RUN.DIR.MSG
CS.RUN.DIR .DO X.COPY.TO.DEST=1
jsr CS.RUN.DIR.MSG
bcs CS.RUN.LEAVE.RTS
.DO X.COPY.TO.DEST=1
>PUSHW L.STAT
ldy #hDstFullPath
@ -779,5 +774,5 @@ CS.QUIT.FREE lda (pData),y
*--------------------------------------
MAN
SAVE USR/SRC/BIN/X.CPMVRM.S
LOAD USR/SRC/BIN/CP.S
LOAD USR/SRC/BIN/RM.S
ASM

2
BIN/X.FILEENUM.S.txt
View File

@ -613,5 +613,5 @@ GetoDIRENT ldy #index
*--------------------------------------
MAN
SAVE USR/SRC/BIN/X.FILEENUM.S
LOAD USR/SRC/BIN/LS.S
LOAD USR/SRC/BIN/RM.S
ASM