Mercurial > hg > Members > kono > nitros9-code

changeset 832:94475d26192c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added DOHELP conditional
author boisy
date Tue, 14 Jan 2003 04:52:37 +0000
parents 27f21cba6b30
children 143b6d58d434
files level1/cmds/del.asm
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/del.asm	Tue Jan 14 04:29:43 2003 +0000
+++ b/level1/cmds/del.asm	Tue Jan 14 04:52:37 2003 +0000
@@ -18,6 +18,8 @@
          use   defsfile
          endc
 
+DOHELP   set   1
+
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
@@ -33,9 +35,11 @@
 name     fcs   /Del/
          fcb   edition
 
+         IFNE  DOHELP
 HelpMsg  fcb   C$LF
          fcc   "Use: Del [-x] <path> {<path>} [-x]"
          fcb   C$CR
+         ENDC
 
 start    lda   ,x		get first char on command line
          cmpa  #C$CR		carriage return?
@@ -79,10 +83,13 @@
          bne   SkipName
 Return   rts   
 
-ShowHelp leax  >HelpMsg,pcr
+ShowHelp equ   *
+         IFNE  DOHELP
+         leax  >HelpMsg,pcr
          ldy   #80
          lda   #2		stderr
          os9   I$WritLn 	write help
+         ENDC
          bra   ExitOk
 
          emod