From 0e577fcff6c11c7c02289d383f7d9922e4ae5068 Mon Sep 17 00:00:00 2001
From: Paul Kimpel <paul.kimpel@digm.com>
Date: Fri, 21 Dec 2012 16:51:10 +0000
Subject: [PATCH] Fix L-register formatting on ALGOLXEM listing (reported by
 Terry Heidelberg).

---
 tools/xem/ALGOLXEM.alg_m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/xem/ALGOLXEM.alg_m b/tools/xem/ALGOLXEM.alg_m
index 54303f4..106a149 100644
--- a/tools/xem/ALGOLXEM.alg_m
+++ b/tools/xem/ALGOLXEM.alg_m
@@ -3797,7 +3797,7 @@ L:  SCNN(SBUFF, NCR, COUNT, ACCUM, 1, 63-COUNT, RESULT, RESULT, COUNT,  13700000
                     END #,                                              13805100          
     PRINTCARD     =   BEGIN                                             13850000=02182500=
                       EDITLINE(LIN, SBUFF, FCR, L.[11:10], SGNO,        13855000=02182760=
-                        L.[2:2], MEDIUM, OMITTING);                     13860000=02182760=
+                        L.[1:2], MEDIUM, OMITTING);                     13860000=02182760=
                       IF NOHEADING THEN                                 13865000=02183000=
                         DATIME;                                         13870000=02183000=
                       WRITELINE;                                        13875000=02183000=