github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-04-18 00:46:31 +00:00
Code Issues Releases Wiki Activity

Fix L-register formatting on ALGOLXEM listing (reported by Terry Heidelberg).

Browse Source
This commit is contained in:
Paul Kimpel
2012-12-21 16:51:10 +00:00
parent 7aec6a9955
commit 0e577fcff6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tools/xem/ALGOLXEM.alg_m
View File

@@ -3797,7 +3797,7 @@ L: SCNN(SBUFF, NCR, COUNT, ACCUM, 1, 63-COUNT, RESULT, RESULT, COUNT, 13700000
END #, 13805100 END #, 13805100
PRINTCARD = BEGIN 13850000=02182500= PRINTCARD = BEGIN 13850000=02182500=
EDITLINE(LIN, SBUFF, FCR, L.[11:10], SGNO, 13855000=02182760= 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= IF NOHEADING THEN 13865000=02183000=
DATIME; 13870000=02183000= DATIME; 13870000=02183000=
WRITELINE; 13875000=02183000= WRITELINE; 13875000=02183000=