github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-25 19:25:53 +00:00
Code Issues Releases Wiki Activity

ALGOLXEM & ESPOLXEM: get file names using LTITLE instead of TITLE, correct centering of source file name in heading.

Browse Source
This commit is contained in:
Paul Kimpel
2012-10-17 13:34:23 +00:00
parent 3c340e9344
commit 346251708a
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tools/xem/ALGOLXEM.alg_m
View File

@@ -3293,7 +3293,7 @@ COMMENT "BLANKET" BLANKS OUT N+1 WORDS IN "THERE"; 09000000
P; 09655200
H:= TIME1 DIV 216000; 09715000=01828000=
MN:= (TIME1 DIV 3600) MOD 60; 09720000=01828000=
REPLACE P:POINTER(EBCDICBUFF,8) BY CODE.TITLE; 09725000=01828500=
REPLACE P:POINTER(EBCDICBUFF,8) BY CODE.LTITLE; 09725000=01828500=
N2:= MIN(OFFSET(P)-1, 118); 09730000=01828500=
WRITE(LINE, 09735000=01829100=
$ SET OMIT = NOT ALGOL 09735100=01829900=
@@ -3312,10 +3312,10 @@ COMMENT "BLANKET" BLANKS OUT N+1 WORDS IN "THERE"; 09000000
IF H >= 12 THEN "PM." ELSE "AM.", 09735700=01835000=
(120-N2) DIV 2, N2, POINTER(EBCDICBUFF,8), 09740000=01835550=
(120-N2) DIV 2, N2); 09745000
REPLACE P:POINTER(EBCDICBUFF,8) BY CARD.TITLE; 09745100
REPLACE P:POINTER(EBCDICBUFF,8) BY CARD.LTITLE; 09745100
N2:= MIN(OFFSET(P)-1, 106); 09745200
WRITE(LINE, <X*,"SOURCE FILE: ",A*,//>, 09745300
(120-N2) DIV 2, N2, POINTER(EBCDICBUFF,8)); 09745400
(107-N2) DIV 2, N2, POINTER(EBCDICBUFF,8)); 09745400
NOHEADING:= FALSE; 09760000=01837000=
END OF DATIME; 09765000=01837000=
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%09770000=01837000=

4
tools/xem/ESPOLXEM.alg_m
View File

@@ -2738,7 +2738,7 @@ COMMENT "BLANKET" BLANKS OUT N+1 WORDS IN "THERE"; 07315000
P; 07730000
H:= TIME1 DIV 216000; 07780000=01828000=
MN:= (TIME1 DIV 3600) MOD 60; 07785000=01828000=
REPLACE P:POINTER(EBCDICBUFF,8) BY DISK.TITLE; 07790000=01828500=
REPLACE P:POINTER(EBCDICBUFF,8) BY DISK.LTITLE; 07790000=01828500=
N2:= MIN(OFFSET(P)-1, 118); 07795000=01828500=
WRITE(LINE, 07800000=01835500=
<X18, "BURROUGHS B-5700 ESPOLXEM COMPILER MARK ", 07802000
@@ -2753,7 +2753,7 @@ COMMENT "BLANKET" BLANKS OUT N+1 WORDS IN "THERE"; 07315000
IF H >= 12 THEN "PM." ELSE "AM.", 07820000=01835000=
(120-N2) DIV 2, N2, POINTER(EBCDICBUFF,8), 07825000=01835550=
(120-N2) DIV 2, N2); 07826000
REPLACE P:POINTER(EBCDICBUFF,8) BY CARD.TITLE; 07826100
REPLACE P:POINTER(EBCDICBUFF,8) BY CARD.LTITLE; 07826100
N2:= MIN(OFFSET(P)-1, 106); 07826200
WRITE(LINE, <X*,"SOURCE FILE: ",A*,//>, 07826300
(107-N2) DIV 2, N2, POINTER(EBCDICBUFF,8)); 07826400