X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/4004a326545fc294821707378dd8e6b026df8be1..cff7fa5698c01a69c3a64e2f39a8db9b398068b5:/src/errcon.mac

diff --git a/src/errcon.mac b/src/errcon.mac
index 0338ed0..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