Mercurial > hg > Members > kono > nitros9-code
changeset 1955:b377521221d9
Update dirsort by Robert Gault
| author | boisy |
|---|---|
| date | Tue, 20 Dec 2005 19:47:47 +0000 |
| parents | e5ad0755bf40 |
| children | 03750843cffd |
| files | level1/cmds/dirsort.asm |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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