From 36f09f251980fe9d91c2d531f2d9786263e2b113 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Wed, 23 Mar 2016 18:32:41 -0400
Subject: [PATCH] fix error reporting

---
 src/other/pblsd.s | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/other/pblsd.s b/src/other/pblsd.s
index e0ceb50..f05815b 100644
--- a/src/other/pblsd.s
+++ b/src/other/pblsd.s
@@ -19,10 +19,10 @@ main:
    lac nextarg i		" fetch it
    dac longopt			" save (for long check)
 
-   -4				" check for second arg
-   tad argc
-   spa
-    jmp nodir			" no second arg
+   lac argc
+   sad d8
+    skp
+     jmp usage			" no second arg
 
    lac nextarg
    tad d3			" skip rest of argv[0]
@@ -199,8 +199,8 @@ octal: 0
    isz octal		" skip the oits argument
    jmp octal i		" and return
 
-nodir:
-   lac d1; sys write; nodirs; 5
+usage:
+   lac d1; sys write; usages; lusage
    sys exit
 
 error:
@@ -212,8 +212,9 @@ error:
 
 " constants
 
-nodirs: <di>; <r 040; <na>; <me>
+usages: <di>; <r 040; <na>; <me> " also writes next word!!
 qnl: <? 012
+lusage=.-usages
 
 " file type bits, each followed by character to tag with
 types: