# HG changeset patch
# User boisy
# Date 1043033219 0
# Node ID 207aaa7920765b3d665b24224127a65b4ff18457
# Parent  ebd5b6ce665d736743219d1fc7e236166e19ae95
Added DOHELP conditional

diff -r ebd5b6ce665d -r 207aaa792076 level1/cmds/tuneport.asm
--- a/level1/cmds/tuneport.asm	Mon Jan 20 03:19:21 2003 +0000
+++ b/level1/cmds/tuneport.asm	Mon Jan 20 03:26:59 2003 +0000
@@ -10,13 +10,13 @@
          nam   TunePort
          ttl   Tune Printer Port
 
-* Disassembled 02/07/05 21:58:02 by Disasm v1.6 (C) 1988 by RML
-
          ifp1
          use   os9defs
          use   scfdefs
          endc
 
+DOHELP   set   0
+
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
@@ -90,6 +90,7 @@
          fcb   C$CR
 DoneLen  equ   *-DoneMsg
 
+         IFNE  DOHELP
 HelpMsg  fcc   "USE:TUNEPORT </P OR /T1> [-OPT]"
          fcb   C$CR
          fcb   C$LF
@@ -105,6 +106,7 @@
          fcc   "        FOR CURRENT BAUD VALUE"
          fcb   C$CR
 HelpLen  equ   *-HelpMsg
+         ENDC
 
 ErrMsg   fcc   "TUNEPORT: CURRENT BAUD RATE"
          fcb   C$CR
@@ -276,11 +278,14 @@
          bcs   L03E6
          clrb  
          bra   L03E6
-L03FB    lda   #$02
+L03FB    equ   *
+         IFNE  DOHELP
+         lda   #$02
          leax  >HelpMsg,pcr
          ldy   #HelpLen
          os9   I$Write  
          bcs   L03E6
+         ENDC
          clrb  
          bra   L03E6
 L040D    lda   #$01