# HG changeset patch
# User boisy
# Date 1042985077 0
# Node ID 617c1b90e6231e15c7c0b3834586eac884789187
# Parent  cfed0d7751f3e569a909eb7ac7da7bc18bf1a5fc
Added DOHELP conditionals, set all to zero to eliminate help from commands

diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/attr.asm
--- a/level1/cmds/attr.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/attr.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -17,13 +17,13 @@
          use   rbfdefs
          endc  
 
+DOHELP   set   0
+
 tylg     set   Prgrm+Objct
 atrv     set   ReEnt+rev
 rev      set   $01
 edition  set   11
 
-DOHELP   set   1
-
          mod   eom,name,tylg,atrv,start,size
 
 fpath    rmb   1
@@ -171,8 +171,12 @@
          leax  <u0078,u
          clrb  
          bra   L01B0
+ShowHelp equ   *
          IFNE  DOHELP
-ShowHelp leax  >HelpMsg,pcr
+         leax  >HelpMsg,pcr
+         ELSE
+         clrb
+         bra  L01BE
          ENDC
 L01B0    pshs  b
          lda   #2
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/backup.asm
--- a/level1/cmds/backup.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/backup.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -16,6 +16,8 @@
          use   defsfile
          endc
 
+DOHELP   set   0
+
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
@@ -52,7 +54,8 @@
 
 L0014    fcc   "/d0 /d1"
          fcb   C$CR
-L001C    fcb   C$LF
+         IFNE  DOHELP
+HelpMsg  fcb   C$LF
          fcc   "Use: Backup [e] [s] [-v]"
          fcb   C$LF
          fcc   "            [/dev1 [/dev2]]"
@@ -62,6 +65,7 @@
          fcc   "  s - single drive prompts"
          fcb   C$LF
          fcc   " -v - inhibit verify pass"
+         ENDC
 L00A0    fcb   $8D 
 L00A1    fcc   "Ready to backup from"
 L00B5    fcb   $A0 
@@ -138,7 +142,7 @@
          cmpa  #PDELIM
          beq   L01E7
          cmpa  #C$CR
-         lbne  L040E
+         lbne  ShowHelp
 L01E3    leax  >L0014,pcr
 L01E7    leay  >L00A1,pcr
          lbsr  L044B
@@ -156,7 +160,7 @@
          ldx   <u0002
          lda   ,x+
 L020B    cmpa  #PDELIM
-         lbne  L040E
+         lbne  ShowHelp
          leax  -$01,x
          leay  >L00B6,pcr
          lbsr  L044B
@@ -355,10 +359,15 @@
          sta   <u0014
          bcc   L03BF
 L040D    rts   
-L040E    leax  <u0057,u
+ShowHelp equ   *
+         IFNE  DOHELP
+         leax  <u0057,u
          stx   <u0055
-         leay  >L001C,pcr
+         leay  >HelpMsg,pcr
          bra   L03B6
+         ELSE
+         bra   L03BA
+         ENDC
 L0419    leay  >L00D9,pcr
 L041D    tst   <u000B
          beq   L0439
@@ -376,7 +385,7 @@
 L043A    pshs  x
          os9   F$PrsNam 
          puls  x
-         bcs   L040E
+         bcs   ShowHelp
 L0443    lda   ,x+
          bsr   L04A5
          decb  
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/cobbler.asm
--- a/level1/cmds/cobbler.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/cobbler.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -19,6 +19,8 @@
          use   rbfdefs
          endc
 
+DOHELP   set   0
+
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
@@ -59,12 +61,14 @@
 L0015    fcb   $00 
          fcb   $00 
 
-Help     fcb   C$LF
+         IFNE  DOHELP
+HelpMsg  fcb   C$LF
          fcc   "Use: COBBLER </devname>"
          fcb   C$LF
          fcc   "     to create a new system disk"
          fcb   C$CR
-WritErr    fcb   C$LF
+         ENDC
+WritErr  fcb   C$LF
          fcc   "Error writing kernel track"
          fcb   C$CR
          fcb   C$LF
@@ -93,12 +97,12 @@
 start    clrb  
          lda   #PDELIM
          cmpa  ,x
-         lbne  L0473
+         lbne  ShowHelp
          os9   F$PrsNam 
-         lbcs  L0473
+         lbcs  ShowHelp
          lda   #PDELIM
          cmpa  ,y
-         lbeq  L0473
+         lbeq  ShowHelp
          leay  <FullBName,u
 L013C    sta   ,y+
          lda   ,x+
@@ -112,7 +116,7 @@
          lda   #UPDAT.
          os9   I$Open   
          sta   <DevPath
-         lbcs  L0473
+         lbcs  ShowHelp
          ldx   <u001E
          leay  >BootName,pcr
          lda   #PDELIM
@@ -229,7 +233,7 @@
          lbcs  Bye
          lda   <NewBPath
          os9   I$Close  
-         lbcs  L0473
+         lbcs  ShowHelp
          pshs  u
          ldx   <PathOpts+(PD.FD-PD.OPT),u
          lda   <PathOpts+(PD.FD+2-PD.OPT),u
@@ -492,7 +496,13 @@
          bcs   Bye		branch if error
          rts
 
-L0473    leax  >Help,pcr
+ShowHelp equ   *
+         IFNE  DOHELP
+         leax  >HelpMsg,pcr
+         ELSE
+         clrb
+         bra   Bye
+         ENDC
 L0477    pshs  b
          lda   #$02
          ldy   #256
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/cobbler_d64.asm
--- a/level1/cmds/cobbler_d64.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/cobbler_d64.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -45,7 +45,7 @@
 name     fcs   /Cobbler/
          fcb   edition
 
-L0015    fcb   C$LF 
+HelpMsg  fcb   C$LF 
          fcc   "Use: Cobbler </devname>"
          fcb   C$LF 
          fcc   "    to create a new system disk"
@@ -192,7 +192,7 @@
          os9   I$Seek   Seek to allocation map at LSN 1
          puls  pc,u
 
-Usage    leax  >L0015,pcr
+Usage    leax  >HelpMsg,pcr
 wrerr    pshs  b
          lda   #$02
          ldy   #$0100
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/copy.asm
--- a/level1/cmds/copy.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/copy.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -17,8 +17,7 @@
          use   rbfdefs
          endc
 
-* Tweakable options
-DOHELP   set   1
+DOHELP   set   0
 
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/del.asm
--- a/level1/cmds/del.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/del.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -18,7 +18,7 @@
          use   defsfile
          endc
 
-DOHELP   set   1
+DOHELP   set   0
 
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/dump.asm
--- a/level1/cmds/dump.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/dump.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -29,10 +29,12 @@
 * Tweakable options
 DOSCSIZ  set   1	1 = include SS.ScSiz code, 0 = leave out
 DOHELP   set   0	1 = include help message, 0 = leave out
+BufSz    set   80        
 
-Edition  set   6         
-Revs     set   1         
-BufSz    set   80        
+tylg     set   Prgrm+Objct
+atrv     set   ReEnt+rev
+rev      set   1         
+edition  set   6         
 
          org   0         
 nonopts  rmb   1
@@ -55,13 +57,11 @@
          rmb   128
 datsz    equ   .         
 
-typ      equ   Prgrm+Objct
-att      equ   ReEnt+Revs
 
-         mod   length,name,typ,att,entry,datsz
+         mod   length,name,tylg,atrv,start,datsz
 
 name     fcs   /Dump/    
-         fcb   Edition   
+         fcb   edition   
 
 title    fcc   /Address   0 1  2 3  4 5  6 7  8 9  A B  C D  E F  0 2 4 6 8 A C E/
 caret    fcb   C$CR      
@@ -76,7 +76,7 @@
          fcb   C$CR      
          ENDC
 
-entry    stx   <D.Prm    
+start    stx   <D.Prm    
          clra            
          sta   <D.Hdr    
          sta   <D.Mem    
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/edit.asm
--- a/level1/cmds/edit.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/edit.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -125,7 +125,7 @@
 name     fcs   /Edit/
          fcb   edition
 
-         fcc   "(C)1981Microware"
+*         fcc   "(C)1981Microware"
 
 L0022    fcb   $01 
          lbra  L0292
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/free.asm
--- a/level1/cmds/free.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/free.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -52,11 +52,13 @@
 
 name     fcs   /Free/
          fcb   edition
+         IFNE  DOHELP
 HelpMsg  fcb   C$LF
          fcc   "Use: free [/diskname]"
          fcb   C$LF
          fcc   "  tells how many disk sectors are unused"
          fcb   C$CR
+         ENDC
 L0052    fcs   /" created on:/
 L005F    fcs   "Capacity:"
 L0068    fcs   " sectors ("
@@ -73,10 +75,13 @@
          beq   L00E0
          cmpa  #PDELIM
          beq   L00CC
-L00BC    leax  >HelpMsg,pcr		point to help message
+L00BC    equ   *
+         IFNE  DOHELP
+         leax  >HelpMsg,pcr		point to help message
          ldy   #64			max bytes
          lda   #$02			stderr
          os9   I$WritLn 		write it
+         ENDC
          lbra  ExitOk			and branch
 L00CC    leax  -$01,x
          pshs  x
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/ident.asm
--- a/level1/cmds/ident.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/ident.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -16,7 +16,7 @@
          use   defsfile
          endc
 
-DOHELP   set   1
+DOHELP   set   0
 
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/os9gen.asm
--- a/level1/cmds/os9gen.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/os9gen.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -12,13 +12,14 @@
 
 * Disassembled 02/07/06 13:11:11 by Disasm v1.6 (C) 1988 by RML
 
-BTrack   set   34
-
          IFP1
          use   defsfile
          use   rbfdefs
          ENDC
 
+DOHELP   set   0
+BTrack   set   34
+
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
@@ -65,7 +66,8 @@
 name     fcs   /OS9gen/
          fcb   edition
 
-Help     fcb   C$LF
+         IFNE  DOHELP
+HelpMsg  fcb   C$LF
          fcc   "Use (CAUTION): OS9GEN </devname> [-s]"
          fcb   C$LF
          fcc   " ..reads (std input) pathnames until EOF,"
@@ -74,6 +76,7 @@
          fcb   C$LF
          fcc   " -s = single drive operation"
          fcb   C$LF,C$CR
+         ENDC
          fcc   "Can't find: "
 ErrWrit  fcb   C$LF
          fcc   "Error writing kernel track"
@@ -656,7 +659,13 @@
 WriteErr leax  >ErrWrit,pcr
          bra   WritExit
 BadName  ldb   #E$BPNam
-ShowHelp leax  >Help,pcr
+ShowHelp equ   *
+         IFNE  DOHELP
+         leax  >HelpMsg,pcr
+         ELSE
+         clrb
+         bra   Bye
+         ENDC
 WritExit pshs  b
          lda   #$02
          ldy   #256
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/os9gen_d64.asm
--- a/level1/cmds/os9gen_d64.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/os9gen_d64.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -28,12 +28,13 @@
          use   defsfile
          endc
 
+os9start equ   $EF00
+os9size  equ   $0F80
+
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
 edition  set   8
-os9start equ  $EF00
-os9size  equ  $0F80
 
          mod   eom,name,tylg,atrv,start,size
 
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/printerr.asm
--- a/level1/cmds/printerr.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/printerr.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -35,7 +35,7 @@
 
 ErrFile  fcc   "/DD/SYS/ERRMSG"
          fcb   C$CR
-         fcc   ",,,,,,,,,,,,"
+*         fcc   ",,,,,,,,,,,,"
 
 ErrMsg   fcc   "Error #"
          fcb   $FF
diff -r cfed0d7751f3 -r 617c1b90e623 level1/cmds/touch.asm
--- a/level1/cmds/touch.asm	Sun Jan 19 12:02:27 2003 +0000
+++ b/level1/cmds/touch.asm	Sun Jan 19 14:04:37 2003 +0000
@@ -18,7 +18,7 @@
          endc
 
 * Here are some tweakable options
-DOHELP   set   1	1 = include help info
+DOHELP   set   0	1 = include help info
 STCKSIZE set   64	our stack size in bytes
 ZOPTSIZ  set   64	max size of -z option's parameter