changeset 1930:91fb0d6e789f

Added -t and -n options to dsave
author boisy
date Sat, 26 Nov 2005 19:18:11 +0000
parents 83bd67630eb9
children 806378a6049c
files level1/cmds/dsave.asm level1/sys/dsave.hp
diffstat 2 files changed, 32 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/dsave.asm	Sat Nov 26 19:09:53 2005 +0000
+++ b/level1/cmds/dsave.asm	Sat Nov 26 19:18:11 2005 +0000
@@ -12,6 +12,9 @@
 *   1r1    2003/12/11  Boisy G. Pitre
 * Fixed -b option so that it prepends device name in front of os9boot
 * filename.  Also fixed -b= option to work as well.
+*
+*   2r0    2005/11/26  Boisy G. Pitre
+* Added -t and -n options, ala OS-9/68K.
 
          nam   dsave
          ttl   Multi-file copy utility
@@ -29,8 +32,8 @@
 * Module header definitions
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
-edition  set   1
+rev      set   $00
+edition  set   2
 
          mod   eom,name,tylg,atrv,start,size
 
@@ -49,6 +52,8 @@
 indent   rmb   1
 onelevel rmb   1
 nomakdir rmb   1
+noload   rmb   1	don't load copy/cmp
+notmode  rmb   1
 rewrite  rmb   1
 cpymemsz rmb   1
 doverify rmb   1
@@ -269,8 +274,16 @@
          sta   <nomakdir
          bra   FixCmdLn
 IsItR    cmpa  #'r		is it this option?
+         bne   IsItT		branch if not
+         sta   <rewrite
+         bra   FixCmdLn
+IsItT    cmpa  #'t		is it this option?
+         bne   IsItN		branch if not
+         sta   <notmode
+         bra   FixCmdLn
+IsItN    cmpa  #'n		is it this option?
          bne   IsItS		branch if not
-         sta   <rewrite
+         sta   <noload
          bra   FixCmdLn
 IsItS    cmpa  #'s		is it this option?
          bne   IsItV		branch if not
@@ -658,6 +671,8 @@
          rts
 
 DoPauseOn
+         tst   <notmode			do we do the tmode?
+         bne   CPRts
          leax  TMode,pcr
          bsr   CopyCmd
          leax  TPause,pcr		get pause command
@@ -691,6 +706,8 @@
 *ExecRTS  puls  u,pc
 
 DoPauseOff 
+         tst   <notmode			do we do the tmode?
+         bne   CPRts
          leax  TMode,pcr
          bsr   CopyCmd
          leax  TNoPause,pcr
@@ -699,6 +716,8 @@
 *         bra   ExecCmd
 
 DoLoadCmp
+         tst   <noload			do we load the utility?
+         bne   CPRts
          leax  Load,pcr			point to load command
          bsr   CopyCmd			copy it to buffer
          leax  Cmp,pcr			point to copy command
@@ -707,6 +726,8 @@
 *         bra   ExecCmd
 
 DoUnlinkCmp
+         tst   <noload			do we load the utility?
+         bne   CPRts
          leax  Unlink,pcr
          lbsr  CopyCmd
          leax  Cmp,pcr
@@ -715,6 +736,8 @@
 *         bra   ExecCmd
 
 DoLoadCopy
+         tst   <noload			do we load the utility?
+         bne   CPRts
          leax  Load,pcr			point to load command
          lbsr  CopyCmd			copy it to buffer
          leax  Copy,pcr			point to copy command
@@ -723,6 +746,8 @@
 *         bra   ExecCmd
 
 DoUnlinkCopy
+         tst   <noload			do we load the utility?
+         bne   CPRts
          leax  Unlink,pcr
          lbsr  CopyCmd
          leax  Copy,pcr
--- a/level1/sys/dsave.hp	Sat Nov 26 19:09:53 2005 +0000
+++ b/level1/sys/dsave.hp	Sat Nov 26 19:18:11 2005 +0000
@@ -1,15 +1,17 @@
 @DSAVE
-Syntax: Dsave [<opts>] [<pathlist>]
+Syntax: Dsave [<opts>] [<to path>]
 Usage : Generates procedure file to copy all files from the
-        current directory to <pathlist>
+        current directory to <to path>
 Opts  :
   -b = make a system disk by using OS9boot if present
   -b=<path> = make system disk using path as source
   -i = indent for directory levels
   -l = do not process below the current level
   -m = do not include makdir commands in procedure file
+  -n = don't load copy/cmp
   -r = force rewrite of file on copy
   -s<num> = set copy size to num K
+  -t = don't issue tmode (pause/nopause)
   -v = verify copies
 
 Examples: