Kernel version 0.9 : CP,RM,MV, Added -Q switch

This commit is contained in:
Rémy GIBERT 2017-06-23 14:04:39 +02:00
parent 1a56b758d6
commit 5dc3bfd0cd
12 changed files with 85 additions and 47 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -20,10 +20,10 @@ X.DELETE.SOURCE .EQ 0
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
OptionList >PSTR "CRY" OptionList >PSTR "CRYQcryq"
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm OptionVars .DA #bContinue,#bRecurse,#bNoConfirm,#bQuiet,#bContinue,#bRecurse,#bNoConfirm,#bQuiet
*-------------------------------------- *--------------------------------------
MSG.USAGE >CSTR "Usage : CP [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n" MSG.USAGE >CSTR "Usage : CP [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -Q : Quiet\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n"
MSG.DIR >CSTR "CP Dir :%S%S to %S%S..." MSG.DIR >CSTR "CP Dir :%S%S to %S%S..."
MSG.FILE >CSTR "CP File:%S%S to %S%S..." MSG.FILE >CSTR "CP File:%S%S to %S%S..."
MSG.OVERWRTE >CSTR "Overwrite [Yes,No,All]?" MSG.OVERWRTE >CSTR "Overwrite [Yes,No,All]?"
@ -55,6 +55,7 @@ RC .BS 1
bContinue .BS 1 bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
bNoConfirm .BS 1 bNoConfirm .BS 1
bQuiet .BS 1
Count .BS 2 Count .BS 2
DS.END DS.END
.ED .ED

View File

@ -20,10 +20,10 @@ X.DELETE.SOURCE .EQ 1
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
OptionList >PSTR "CRY" OptionList >PSTR "CRYQcryq"
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm OptionVars .DA #bContinue,#bRecurse,#bNoConfirm,#bQuiet,#bContinue,#bRecurse,#bNoConfirm,#bQuiet
*-------------------------------------- *--------------------------------------
MSG.USAGE >CSTR "Usage : MV [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n" MSG.USAGE >CSTR "Usage : MV [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -Q : Quiet\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n"
MSG.DIR >CSTR "MV Dir :%S%S to %S%S..." MSG.DIR >CSTR "MV Dir :%S%S to %S%S..."
MSG.FILE >CSTR "MV File:%S%S to %S%S..." MSG.FILE >CSTR "MV File:%S%S to %S%S..."
MSG.OVERWRTE >CSTR "Overwrite [Yes,No,All]?" MSG.OVERWRTE >CSTR "Overwrite [Yes,No,All]?"
@ -55,6 +55,7 @@ CopyRC .BS 1
bContinue .BS 1 bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
bNoConfirm .BS 1 bNoConfirm .BS 1
bQuiet .BS 1
Count .BS 2 Count .BS 2
DS.END DS.END
.ED .ED

View File

@ -20,10 +20,10 @@ X.DELETE.SOURCE .EQ 1
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
OptionList >PSTR "CRY" OptionList >PSTR "CRYQcryq"
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm OptionVars .DA #bContinue,#bRecurse,#bNoConfirm,#bQuiet,#bContinue,#bRecurse,#bNoConfirm,#bQuiet
*-------------------------------------- *--------------------------------------
MSG.USAGE >CSTR "Usage : RM [File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -R : Recurse subdirectories\r\n" MSG.USAGE >CSTR "Usage : RM [File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -Q : Quiet\r\n -R : Recurse subdirectories\r\n"
MSG.DIR >CSTR "RM Dir :%S%S..." MSG.DIR >CSTR "RM Dir :%S%S..."
MSG.FILE >CSTR "RM File:%S%S..." MSG.FILE >CSTR "RM File:%S%S..."
MSG.OK >PSTR "[OK]\r\n" MSG.OK >PSTR "[OK]\r\n"
@ -54,6 +54,7 @@ CopyRC .BS 1
bContinue .BS 1 bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
bNoConfirm .BS 1 bNoConfirm .BS 1
bQuiet .BS 1
Count .BS 2 Count .BS 2
DS.END DS.END
.ED .ED

View File

@ -274,14 +274,18 @@ CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
jmp CS.RUN.NEXT jmp CS.RUN.NEXT
.99 ldy #Count+1 .99 ldy #bQuiet
lda (pData),y
bmi .91
ldy #Count+1
>PUSHB (pData),y >PUSHB (pData),y
dey dey
>PUSHB (pData),y >PUSHB (pData),y
>LDYA L.MSG.DONE >LDYA L.MSG.DONE
>SYSCALL PPrintFYA >SYSCALL PPrintFYA
ldy #RC .91 ldy #RC
lda (pData),y get global RC in case of bContinue lda (pData),y get global RC in case of bContinue
sec sec
.9 rts .9 rts
@ -362,27 +366,14 @@ CS.RUN.DIR .DO X.COPY.TO.DEST=1
sec sec
CS.RUN.DIR.RTS rts CS.RUN.DIR.RTS rts
*-------------------------------------- *--------------------------------------
CS.RUN.FILE .DO X.COPY.TO.DEST=1 CS.RUN.FILE ldy #bQuiet
>PUSHW ZPFileName
ldy #hDstBasePath
lda (pData),y lda (pData),y
>SYSCALL GetMemPtrA bmi .14
>PUSHYA
.FIN
>PUSHW ZPFileName jsr CS.RUN.FILE.MSG
ldy #hSrcBasePath
lda (pData),y
>SYSCALL GetMemPtrA
>PUSHYA
>LDYA L.MSG.FILE
>SYSCALL CPrintFYA
bcs CS.RUN.DIR.RTS bcs CS.RUN.DIR.RTS
.DO X.COPY.TO.DEST=1 .14 .DO X.COPY.TO.DEST=1
ldy #hDstBasePath ldy #hDstBasePath
jsr CS.RUN.GetFilePath jsr CS.RUN.GetFilePath
@ -396,7 +387,14 @@ CS.RUN.FILE .DO X.COPY.TO.DEST=1
lda (pData),y lda (pData),y
bmi .2 no prompt, ovverwrite bmi .2 no prompt, ovverwrite
>LDYA L.MSG.OVERWRTE ldy #bQuiet
lda (pData),y
bpl .15
jsr CS.RUN.FILE.MSG
bcs .90
.15 >LDYA L.MSG.OVERWRTE
>SYSCALL CPrintFYA >SYSCALL CPrintFYA
bcs .9 bcs .9
@ -410,7 +408,7 @@ CS.RUN.FILE .DO X.COPY.TO.DEST=1
bne .11 bne .11
jmp CS.RUN.CR.NEXT no overwrite exit jmp CS.RUN.CR.NEXT no overwrite exit
rts .90 rts
.11 cmp #'Y' .11 cmp #'Y'
beq .12 copy beq .12 copy
@ -465,6 +463,26 @@ CS.RUN.FILE .DO X.COPY.TO.DEST=1
lda (pData),y get global RC in case of bContnue lda (pData),y get global RC in case of bContnue
sec sec
rts rts
*--------------------------------------
CS.RUN.FILE.MSG .DO X.COPY.TO.DEST=1
>PUSHW ZPFileName
ldy #hDstBasePath
lda (pData),y
>SYSCALL GetMemPtrA
>PUSHYA
.FIN
>PUSHW ZPFileName
ldy #hSrcBasePath
lda (pData),y
>SYSCALL GetMemPtrA
>PUSHYA
>LDYA L.MSG.FILE
>SYSCALL CPrintFYA
rts
*-------------------------------------- *--------------------------------------
.DO X.COPY.TO.DEST=1 .DO X.COPY.TO.DEST=1
.DO X.DELETE.SOURCE=1 .DO X.DELETE.SOURCE=1
@ -563,10 +581,17 @@ CS.RUN.Copy stz .90+1
lda .90+1 lda .90+1
>SYSCALL FreeMemA >SYSCALL FreeMemA
ldy #bQuiet
lda (pData),y
bmi .8
lda #'.' lda #'.'
>SYSCALL PutCA >SYSCALL PutCA
rts rts
.8 clc
rts
.9 ldy #CopyRC .9 ldy #CopyRC
sta (pData),y sta (pData),y
@ -615,7 +640,11 @@ CS.RUN.CheckErr bcs .1
inc inc
sta (pData),y sta (pData),y
.10 >LDYA L.MSG.OK .10 ldy #bQuiet
lda (pData),y
bmi .8
>LDYA L.MSG.OK
>SYSCALL PPrintFYA >SYSCALL PPrintFYA
rts rts
@ -641,9 +670,10 @@ CS.RUN.CheckErr bcs .1
>SYSCALL PutCA >SYSCALL PutCA
pla pla
sec sec
rts
.9 rts .9 rts
.8 clc
rts
*-------------------------------------- *--------------------------------------
CS.RUN.GetFilePath CS.RUN.GetFilePath
lda (pData),y lda (pData),y

View File

@ -130,7 +130,7 @@ note : '$VAR' does NOT expand Variable
| SSC.I.DRV | Working | Apple "Super Serial Card" Driver (IRQ enabled) | 0.9 | | SSC.I.DRV | Working | Apple "Super Serial Card" Driver (IRQ enabled) | 0.9 |
| PIC.DRV | In Progress | Apple "Parallel Interface Card" Driver, renamed from PPIC.DRV | 0.9 | | PIC.DRV | In Progress | Apple "Parallel Interface Card" Driver, renamed from PPIC.DRV | 0.9 |
| Mouse.DRV | Working | Apple Mouse Card,//c Mouse Port | 0.9 | | Mouse.DRV | Working | Apple Mouse Card,//c Mouse Port | 0.9 |
| DHGR.DRV | In Progress | except bitblt... | 0.8 | | DHGR.DRV | In Progress | except bitblt... | 0.9 |
| ---- | ------ | ------- | ----- | | ---- | ------ | ------- | ----- |
| LanCeGS.DRV | Working | | 0.9 | | LanCeGS.DRV | Working | | 0.9 |
| Uthernet.DRV | Working | | 0.9 | | Uthernet.DRV | Working | | 0.9 |
@ -148,11 +148,14 @@ note : '$VAR' does NOT expand Variable
| | | -L : long listing with size/date... | | | | | -L : long listing with size/date... | |
| | | -R : Recurse subdirectories | | | | | -R : Recurse subdirectories | |
| RM | Working | -C : Continue On Error | 0.9 | | RM | Working | -C : Continue On Error | 0.9 |
| | | -Q : Quiet | |
| | | -R : Recurse subdirectories | | | | | -R : Recurse subdirectories | |
| CP | Working | -C : Continue On Error | 0.9 | | CP | Working | -C : Continue On Error | 0.9 |
| | | -Q : Quiet | |
| | | -R : Recurse subdirectories | | | | | -R : Recurse subdirectories | |
| | | -Y : Dont't Prompt For Override | | | | | -Y : Dont't Prompt For Override | |
| MV | Working | -C : Continue On Error | 0.9 | | MV | Working | -C : Continue On Error | 0.9 |
| | | -Q : Quiet | |
| | | -R : Recurse subdirectories | | | | | -R : Recurse subdirectories | |
| | | -Y : Dont't Prompt For Override | | | | | -Y : Dont't Prompt For Override | |
| CAT | Working | -A : Show All non printable caracters | 0.9 | | CAT | Working | -A : Show All non printable caracters | 0.9 |

View File

@ -5,23 +5,23 @@ AUTO 6
PREFIX /A2OSX.BUILD PREFIX /A2OSX.BUILD
echo \fBuilding A2OSX.BOOT Media... echo \fBuilding A2OSX.BOOT Media...
format S6D1 A2OSX.BOOT format S6D1 A2OSX.BOOT
cp ProDOS /A2OSX.BOOT echo Copying Files...
cp -q ProDOS /A2OSX.BOOT
md /A2OSX.BOOT/SYS md /A2OSX.BOOT/SYS
cp SYS/* /A2OSX.BOOT/SYS cp -q SYS/* /A2OSX.BOOT/SYS
md /A2OSX.BOOT/DRV md /A2OSX.BOOT/DRV
cp DRV/* /A2OSX.BOOT/DRV cp -q DRV/* /A2OSX.BOOT/DRV
md /A2OSX.BOOT/LIB md /A2OSX.BOOT/LIB
cp LIB/* /A2OSX.BOOT/LIB cp -q LIB/* /A2OSX.BOOT/LIB
md /A2OSX.BOOT/SBIN md /A2OSX.BOOT/SBIN
cp SBIN/* /A2OSX.BOOT/SBIN cp -q SBIN/* /A2OSX.BOOT/SBIN
md /A2OSX.BOOT/BIN md /A2OSX.BOOT/BIN
cp BIN/* /A2OSX.BOOT/BIN cp -q BIN/* /A2OSX.BOOT/BIN
md /A2OSX.BOOT/ETC md /A2OSX.BOOT/ETC
md /A2OSX.BOOT/SRV echo Done!
md /A2OSX.BOOT/USR cp -q A2OSX.SYSTEM /A2OSX.BOOT
cp A2OSX.SYSTEM /A2OSX.BOOT
chtyp /A2OSX.BOOT/A2OSX.SYSTEM SYS chtyp /A2OSX.BOOT/A2OSX.SYSTEM SYS
cp A2OSX.STARTUP /A2OSX.BOOT cp -q A2OSX.STARTUP /A2OSX.BOOT
MAN MAN
TEXT MAKEBOOT TEXT MAKEBOOT

View File

@ -5,9 +5,11 @@ AUTO 6
PREFIX /A2OSX.BUILD PREFIX /A2OSX.BUILD
echo \fBuilding A2OSX.DEV Media... echo \fBuilding A2OSX.DEV Media...
format S6D2 A2OSX.DEV format S6D2 A2OSX.DEV
echo Copying Files...
md /A2OSX.DEV/BIN md /A2OSX.DEV/BIN
cp BIN/DEV/* /A2OSX.DEV/BIN cp -q BIN/DEV/* /A2OSX.DEV/BIN
md /A2OSX.DEV/INC md /A2OSX.DEV/INC
cp INC/* /A2OSX.DEV/INC cp -q INC/* /A2OSX.DEV/INC
echo Done!
MAN MAN
TEXT MAKEDEV TEXT MAKEDEV