From 034b507e12ac4246c51d1540f06780aa7877a90b Mon Sep 17 00:00:00 2001 From: Paul Kimpel Date: Sat, 20 Jul 2013 17:56:31 +0000 Subject: [PATCH] Separate Paul Cumberworth's patches 950 and 951 that adapt the Mark XVI ESPOL compiler to Mark XIII Algol from the file of Mark XVI patches 101-116 transcribed from bitsavers.org. --- Mark-XVI/PATCHES/ESPOL-116.txt | 48 +------------------------------ Mark-XVI/PATCHES/ESPOL-PC-951.txt | 47 ++++++++++++++++++++++++++++++ 2 files changed, 48 insertions(+), 47 deletions(-) create mode 100644 Mark-XVI/PATCHES/ESPOL-PC-951.txt diff --git a/Mark-XVI/PATCHES/ESPOL-116.txt b/Mark-XVI/PATCHES/ESPOL-116.txt index 6a33dd8..54a4790 100644 --- a/Mark-XVI/PATCHES/ESPOL-116.txt +++ b/Mark-XVI/PATCHES/ESPOL-116.txt @@ -1506,52 +1506,6 @@ $#PATCH NUMBER 902 FOR ESPOL CONTAINS 1 CARD. PAGE SKIP BETWEEN PROCEDURES $: THIS PATCH CHANGES THE EFFECT OF THE FORMAT OPTION TO CAUSE A $: PAGE SKIP BETWEEN PROCEDURES INSTEAD OF A FOUR-LINE SKIP $: BY J.H., USC, 4 MAY 77 +$: SPACEITDOWN = WRITE(LINE[PAGE])#; 14023100 -$# PATCH NUMBER 950 FOR ESPOL CONTAINS 6 CARD -$: RESTORE DECLARATION REMOVED FROM INITIAL XVI SYMBOL TRANSCRIPTION -$: CHANGE OCTAL CONSTANTS TO REFLECT ALGOL XIII SYNTAX -$: PC 17 JUL 13 - NESTOG = OPTIONWORD.[NESTBIT:1] #, 01001310 - DS := 63 SET; % ID.NO, AND SEQ.NO. FIELDS 17041100 - DS := 63 SET; % TOTAL OF 216 BITS 17041101 - DS := 63 SET; % 17041102 - DS := 27 SET; % WAS 8 BY 9 OCTETS: 8 LIT 3"777777777" 17041103 - A[0] := REAL(NOT FALSE)&0[1:1:3]; % BIGGEST FLOATING PT. NO. 17114000 -$# PATCH NUMBER 951 FOR ESPOL CONTAINS 34 CARDS -$: FIX PATCH 110 AND 112 FILL DECLARATION FOR ALGOL MARK III COMPATABILITY -$: PC 19 JUL 13 - "UNKNOWN."," "," "," ", % 0 17084020 - "STREAM L","ABEL. "," "," ", % 1 17084030 - "STREAM V","ARIABLE."," "," ", % 2 17084040 - "DEFINE. "," "," "," ", % 3 17084050 - "LIST. "," "," "," ", % 4 17084060 - "FORMAT. "," "," "," ", % 5 17084070 - "SWITCH F","ORMAT. "," "," ", % 6 17084080 - "REAL SUB","ROUTINE."," "," ", % 7 17084090 - "SUBROUTI","NE. "," "," ", % 8 17084100 - "SWITCH L","ABEL. "," "," ", % 9 17084110 - "PROCEDUR","E. "," "," ", % 10 17084120 - "INTRINSI","C. "," "," ", % 11 17084130 - "STREAM P","ROCEDURE",". "," ", % 12 17084140 - "BOOLEAN ","STREAM P","ROCEDURE",". ", % 13 17084150 - "REAL STR","EAM PROC","EDURE. "," ", % 14 17084160 - "INTEGER ","STREAM P","ROCEDURE",". ", % 15 17084170 - "INTEGER ","STREAM P","ROCEDURE",". ", % 16 17084180 - "BOOLEAN ","PROCEDUR","E. "," ", % 17 17084182 - "REAL PRO","CEDURE. "," "," ", % 18 17084184 - "INTEGER ","PROCEDUR","E. "," ", % 19 17084186 - "INTEGER ","PROCEDUR","E. "," ", % 20 17084188 - "BOOLEAN."," "," "," ", % 21 17084190 - "REAL. "," "," "," ", % 22 17084200 - "INTEGER."," "," "," ", % 23 17084210 - "INTEGER."," "," "," ", % 24 17084220 - "BOOLEAN ","ARRAY. "," "," ", % 25 17084230 - "REAL ARR","AY. "," "," ", % 26 17084240 - "INTEGER ","ARRAY. "," "," ", % 27 17084250 - "INTEGER ","ARRAY. "," "," ", % 28 17084260 - " "," "," "," ", % 29 17084270 - "NAME. "," "," "," ", % 30 17084280 - "INTEGER ","NAME. "," "," ", % 31 17084290 - "LABEL. "," "," "," ", % 32 17084300 - "FIELD, "," "," "," "; % 33(CLASS=125) 17084400 ?END \ No newline at end of file diff --git a/Mark-XVI/PATCHES/ESPOL-PC-951.txt b/Mark-XVI/PATCHES/ESPOL-PC-951.txt new file mode 100644 index 0000000..457d280 --- /dev/null +++ b/Mark-XVI/PATCHES/ESPOL-PC-951.txt @@ -0,0 +1,47 @@ +$# PATCH NUMBER 950 FOR ESPOL CONTAINS 6 CARD +$: RESTORE DECLARATION REMOVED FROM INITIAL XVI SYMBOL TRANSCRIPTION +$: CHANGE OCTAL CONSTANTS TO REFLECT ALGOL XIII SYNTAX +$: PC 17 JUL 13 + NESTOG = OPTIONWORD.[NESTBIT:1] #, 01001310 + DS := 63 SET; % ID.NO, AND SEQ.NO. FIELDS 17041100 + DS := 63 SET; % TOTAL OF 216 BITS 17041101 + DS := 63 SET; % 17041102 + DS := 27 SET; % WAS 8 BY 9 OCTETS: 8 LIT 3"777777777" 17041103 + A[0] := REAL(NOT FALSE)&0[1:1:3]; % BIGGEST FLOATING PT. NO. 17114000 +$# PATCH NUMBER 951 FOR ESPOL CONTAINS 34 CARDS +$: FIX PATCH 110 AND 112 FILL DECLARATION FOR ALGOL MARK XIII COMPATABILITY +$: PC 19 JUL 13 + "UNKNOWN."," "," "," ", % 0 17084020 + "STREAM L","ABEL. "," "," ", % 1 17084030 + "STREAM V","ARIABLE."," "," ", % 2 17084040 + "DEFINE. "," "," "," ", % 3 17084050 + "LIST. "," "," "," ", % 4 17084060 + "FORMAT. "," "," "," ", % 5 17084070 + "SWITCH F","ORMAT. "," "," ", % 6 17084080 + "REAL SUB","ROUTINE."," "," ", % 7 17084090 + "SUBROUTI","NE. "," "," ", % 8 17084100 + "SWITCH L","ABEL. "," "," ", % 9 17084110 + "PROCEDUR","E. "," "," ", % 10 17084120 + "INTRINSI","C. "," "," ", % 11 17084130 + "STREAM P","ROCEDURE",". "," ", % 12 17084140 + "BOOLEAN ","STREAM P","ROCEDURE",". ", % 13 17084150 + "REAL STR","EAM PROC","EDURE. "," ", % 14 17084160 + "INTEGER ","STREAM P","ROCEDURE",". ", % 15 17084170 + "INTEGER ","STREAM P","ROCEDURE",". ", % 16 17084180 + "BOOLEAN ","PROCEDUR","E. "," ", % 17 17084182 + "REAL PRO","CEDURE. "," "," ", % 18 17084184 + "INTEGER ","PROCEDUR","E. "," ", % 19 17084186 + "INTEGER ","PROCEDUR","E. "," ", % 20 17084188 + "BOOLEAN."," "," "," ", % 21 17084190 + "REAL. "," "," "," ", % 22 17084200 + "INTEGER."," "," "," ", % 23 17084210 + "INTEGER."," "," "," ", % 24 17084220 + "BOOLEAN ","ARRAY. "," "," ", % 25 17084230 + "REAL ARR","AY. "," "," ", % 26 17084240 + "INTEGER ","ARRAY. "," "," ", % 27 17084250 + "INTEGER ","ARRAY. "," "," ", % 28 17084260 + " "," "," "," ", % 29 17084270 + "NAME. "," "," "," ", % 30 17084280 + "INTEGER ","NAME. "," "," ", % 31 17084290 + "LABEL. "," "," "," ", % 32 17084300 + "FIELD, "," "," "," "; % 33(CLASS=125) 17084400