# HG changeset patch
# User boisy
# Date 1135108067 0
# Node ID b377521221d9ac7d583bad18fdde5f91f7c735f0
# Parent  e5ad0755bf40335d97b9e39500a2c318f6413768
Update dirsort by Robert Gault

diff -r e5ad0755bf40 -r b377521221d9 level1/cmds/dirsort.asm
--- a/level1/cmds/dirsort.asm	Tue Dec 20 15:18:10 2005 +0000
+++ b/level1/cmds/dirsort.asm	Tue Dec 20 19:47:47 2005 +0000
@@ -18,9 +18,12 @@
                NAM       dirsort
 * This ensures the assembler knows predefined OS-9 terms
                IFP1      
-               USE       defsfile
+               USE       /dd/defs/defsfile
                ENDC      
 
+* If you want built-in help change the next line.
+HELP           SET       FALSE
+
 TyLg           SET       Prgrm+Objct         program object code
 * Re-entrant means multiple users possible
 AtRev          SET       ReEnt+Rev           re-entrant, revision 1
@@ -89,11 +92,15 @@
                bne       a1
 noprm          leax      default,pcr         point to default directory, dot
                bra       a9
+               IFNE      HELP
 a1             cmpa      #'?                 if "?" then show syntax
                lbeq      syntax
                cmpa      #'-                 if attempt at options, syntax
                lbeq      syntax
-               leax      -1,x                backstep to first character of directory
+               leax      -1,x
+               ELSE      
+a1             leax      -1,x                backstep to first character of directory
+               ENDC      
 a9             lda       #%11000011          directory, single user access, update
                os9       I$Open              attempt to open a path to the directory
                lbcs      error
@@ -346,6 +353,7 @@
                FCB       C$CR,C$LF
 endhuh         EQU       *
 
+               IFNE      HELP
 syntax         leax      usage,pcr
                ldy       #enduse-usage
                clr       ,-s
@@ -359,6 +367,8 @@
                FCC       "       dirsort /dd/cmds"
                FCB       C$CR,C$LF
 enduse         EQU       *
+               ENDC      
 
                EMOD      
 Eom            EQU       *
+               END