github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-20 17:37:18 +00:00
Code Issues Releases Wiki Activity

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.

Browse Source
This commit is contained in:
Paul Kimpel 2013-07-20 17:56:31 +00:00
parent 20df25056e
commit 034b507e12
2 changed files with 48 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Mark-XVI/PATCHES/ESPOL-116.txt
View File

@ -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

47
Mark-XVI/PATCHES/ESPOL-PC-951.txt Normal file
View File

@ -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