Mercurial > hg > Members > kono > nitros9-code

changeset 927:207aaa792076

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added DOHELP conditional
author boisy
date Mon, 20 Jan 2003 03:26:59 +0000
parents ebd5b6ce665d
children 82f525c3a789
files level1/cmds/tuneport.asm
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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