Mercurial > hg > Members > kono > nitros9-code
changeset 1655:22c82cfcb1f5
Added DOHELP equate to cut down on size of module by optionally opting out the
help information from the module
| author | boisy |
|---|---|
| date | Sat, 17 Jul 2004 13:13:55 +0000 |
| parents | f62ca34d4419 |
| children | 5b5390b7333a |
| files | level1/cmds/xmode.asm |
| diffstat | 1 files changed, 16 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/cmds/xmode.asm Sat Jul 17 13:08:39 2004 +0000 +++ b/level1/cmds/xmode.asm Sat Jul 17 13:13:55 2004 +0000 @@ -1,5 +1,5 @@ ******************************************************************** -* EXMode - Extended SCF device descriptor utility +* XMode - Extended SCF device descriptor utility * * $Id$ * @@ -9,9 +9,11 @@ * 1 1989/06/21 Bruce Isted * Released to public domain. - nam EXMode + nam XMode ttl Extended SCF device descriptor utility +DOHELP set 0 + ifp1 use defsfile endc @@ -39,7 +41,7 @@ mod Size,Name,Prgrm+Objct,ReEnt+rev,Entry,MemSize -Name fcs "EXMode" +Name fcs "XMode" fcb Edtn edition number OptTable @@ -126,6 +128,7 @@ TablOpts equ (*-OptTable)/6 number of table entries fcb $80 end of option table + IFNE DOHELP UseMsg fcb C$LF fcc "Usage: EXMode [/<device> || -<pathlist> || -?] [option] [option] [...]" @@ -205,6 +208,7 @@ fcc "fgc Foreground Colour bgc Background Colour bdc Border Colour" fcb C$CR HelpLen equ *-HelpMsg + ENDC Equal fcc "=" @@ -228,10 +232,12 @@ **************** * miscellaneous error and help routines + IFNE DOHELP MuchHelp leax HelpMsg,pc ldy #HelpLen bra Helpprnt + ENDC BadSize leax Sizemsg,pc @@ -241,15 +247,20 @@ BadType leax TypeMsg,pc ldy #TypeLen + AddHelp + IFNE DOHelp lda #2 os9 I$WritLn + ENDC Help + IFNE DOHelp leax UseMsg,pc ldy #UseLen Helpprnt lda #2 os9 I$WritLn + ENDC lbra OkayEnd2 **************** @@ -260,8 +271,10 @@ ldd ,x+ check for device name cmpa #'- file option? bne Link + IFNE DOHELP cmpb #'? help option? beq MuchHelp + ENDC * Use Filename to Get Desc: lda #UPDAT. open path to module file os9 I$Open