X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/0000ed8f3efcdbf411f6c91517909089e5d7ef5d..8975ed2f727e4bb0190f22b1401821e5981cf7c2:/src/errcon.mac

diff --git a/src/errcon.mac b/src/errcon.mac
index fbcb102..87d85da 100644
--- 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
 	JUMPE TAC,.+2		;FINISHED?
 	PUSHJ PDP,PRTDIG	;NO, CALL S OR F
-	HRLZ TAC,(PDP)		;YES, GET LAST NUMBER
+	HLRZ TAC,(PDP)		;YES, GET LAST NUMBER
 PRTNUM:	ADDI TAC,"0"		;CONVERT TO ASCIZ
 IFN FTTTYSER,<
 EXTERN OUTCHS
@@ -445,4 +445,3 @@ IFE FTTTYSER,<
 
 ERREND:	END
 
- 