Bincom to match binary.

[retro-software/dec/tops10/v4.5.git] / src / errcon.mac

diff --git a/src/errcon.mac b/src/errcon.mac
index fbcb102..87d85da 100644 (file)
--- a/src/errcon.mac
+++ b/src/errcon.mac
@@ -396,7 +396,7 @@ PRTDIG:     IDIVI TAC,12    ;DIVIDE BY 10
        HRLM TAC1,(PDP)         ;RT ON PD LIST\r
        JUMPE TAC,.+2           ;FINISHED?\r
        PUSHJ PDP,PRTDIG        ;NO, CALL S OR F\r
-       HRLZ TAC,(PDP)          ;YES, GET LAST NUMBER\r
+       HLRZ TAC,(PDP)          ;YES, GET LAST NUMBER\r
 PRTNUM:        ADDI TAC,"0"            ;CONVERT TO ASCIZ\r
 IFN FTTTYSER,<\r
 EXTERN OUTCHS\r
@@ -445,4 +445,3 @@ IFE FTTTYSER,<
 \r
 ERREND:        END\r
 \f\r
-\0\r