Mercurial > hg > Members > kono > nitros9-code
changeset 845:4dda505a9d31
Optimized help, added DOHELP conditional
| author | boisy |
|---|---|
| date | Tue, 14 Jan 2003 15:38:47 +0000 |
| parents | 5b803d860bdb |
| children | c6e6cf68e03e |
| files | level1/cmds/ident.asm |
| diffstat | 1 files changed, 18 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/cmds/ident.asm Tue Jan 14 15:36:45 2003 +0000 +++ b/level1/cmds/ident.asm Tue Jan 14 15:38:47 2003 +0000 @@ -16,6 +16,8 @@ use defsfile endc +DOHELP set 1 + tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 @@ -61,19 +63,19 @@ name fcs /Ident/ fcb edition -L0013 fcb C$LF - fcc "Use: Ident [-opts] <module> [-opts]" + IFNE DOHELP +HelpMsg fcb C$LF + fcc "Use: Ident [-opts] <path> [-opts]" fcb C$LF - fcc " to display module header." - fcb C$LF - fcc " -m to display module in memory." + fcc " -m = module in memory" fcb C$LF - fcc " -s for short form." + fcc " -s = short form" + fcb C$LF + fcc " -v = don't verify CRC" fcb C$LF - fcc " -v for no CRC verification" - fcb C$LF - fcc " -x for file in execution directory" + fcc " -x = file in exec dir" fcb C$CR + ENDC L00CD fcs "Module header is incorrect!" L00E8 fcs "Header for: " L00F4 fcs "Module size:" @@ -206,9 +208,9 @@ lda #EXEC.+READ. sta <u000D bra L027E -L02B8 lbra L03C4 +L02B8 lbra ShowHelp L02BB ldx <u0002 - lbeq L03C4 + lbeq ShowHelp leax -$01,x tst <u000A beq L0314 @@ -318,10 +320,13 @@ lbra L032C L03C1 clrb bra L03D2 -L03C4 lda #$01 - leax >L0013,pcr +ShowHelp equ * + IFNE DOHELP + lda #$01 + leax >HelpMsg,pcr ldy #$00BA os9 I$WritLn + ENDC clrb L03D2 os9 F$Exit L03D5 tst <u000B