Mercurial > hg > Members > kono > nitros9-code

changeset 921:617c1b90e623

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added DOHELP conditionals, set all to zero to eliminate help from commands
author boisy
date Sun, 19 Jan 2003 14:04:37 +0000
parents cfed0d7751f3
children b62985f61614
files level1/cmds/attr.asm level1/cmds/backup.asm level1/cmds/cobbler.asm level1/cmds/cobbler_d64.asm level1/cmds/copy.asm level1/cmds/del.asm level1/cmds/dump.asm level1/cmds/edit.asm level1/cmds/free.asm level1/cmds/ident.asm level1/cmds/os9gen.asm level1/cmds/os9gen_d64.asm level1/cmds/printerr.asm level1/cmds/touch.asm
diffstat 14 files changed, 78 insertions(+), 41 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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  
--- 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
--- 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
--- 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
--- 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
--- 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    
--- 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
--- 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
--- 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
--- 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
--- 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
 
--- 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
--- 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