Skip to content

Instantly share code, notes, and snippets.

@texdraft
Last active May 16, 2021
Embed
What would you like to do?
algol compilation
? COMPILE SECND/TRY WITH ALGOL GO
? DATA CARD
$ CARD LIST SINGLE DEBUGN
BEGIN
REAL X; REAL ARRAY Y[0:10];
PROCEDURE A(K);
REAL K;
BEGIN REAL I;
I ~ K;
K ~ 1.0
END;
Y[0] ~ 1;
A(Y[0]);
X ~ 2.0;
A(X);
END.
? END
BURROUGHS B-5700 ALGOL COMPILER MARK XIII.0 FRIDAY, 05/10/85, 8:17 PM.
BEGIN 0000
0000 LITC 0000 0000
0001 MKS 0441
PRT(22) = *LIST, LABEL, OR SEGMENT DESCRIPTOR*
PRT(22) = SEGMENT DESCRIPTOR, TYPE = 3, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0001.
PRT(23) = *OUTER BLOCK DESCRIPTOR*
PRT(24) = *SEGMENT DESCRIPTOR*
0002 OPDC 0024 0122
0003 BFW 4231
START OF SEGMENT ********** 2
REAL X; REAL ARRAY Y[0:10]; 0000
PRT(25) = X
0000 MKS 0441
PRT(26) = Y
0001 DESC 0026 0133
0002 LITC 0012 0050
0002 LITC 0013 0054
0003 LITC 0001 0004
0004 LITC 0001 0004
0005 LITC 0000 0000
0006 OPDC 0005 0026
PROCEDURE A(K); 0001
PRT(27) = A
REAL K; 0001
BEGIN REAL I; 0001
START OF SEGMENT ********** 3
STACK(F+2) = I
I ← K; 0000
0000 OPDC 1601 7006
0001 LITC 1002 4010
0002 STD 0421
K ← 1.0 0000
0003 DESC 1601 7007
END; 0001
0004 DESC 1777 7777
0005 XCH 1025
0006 STD 0421
0007 XIT 0435
0004 OPDC 1401 6006
0010 1141000000000000
0014 LITC 0000 0000
0015 LITC 0000 0000
0016 LITC 0000 0000
0017 LITC 0004 0020
0020 LBC 2131
PRT(27) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0014, SEGMENT NUMBER = 0003.
3 IS 5 LONG, NEXT SEG 2
Y[0] ← 1; 0001
0007 LITC 0000 0000
0010 DESC 0026 0133
0011 LITC 0001 0004
0012 XCH 1025
0013 STD 0421
A(Y[0]); 0003
0014 MKS 0441
0015 LITC 0000 0000
0016 DESC 0026 0133
0017 OPDC 0027 0136
X ← 2.0; 0004
0020 DESC 1777 7777
0021 LITC 0025 0124
0022 STD 0421
A(X); 0004
0023 MKS 0441
0024 DESC 0025 0127
0025 OPDC 0027 0136
END. 0005
0026 LITC 0012 0050
0027 COM 1011
0030 XIT 0435
0031 NOP 0055
0032 NOP 0055
0033 NOP 0055
0020 OPDC 1403 6016
0034 1142000000000000
0040 OPDC 0020 0102
0041 LITC 0001 0004
0042 ADD 0101
0043 LITC 0020 0100
0044 STD 0421
0045 LITC 0000 0000
0046 LITC 0011 0044
0047 LBU 6131
PRT(24) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0040, SEGMENT NUMBER = 0002.
2 IS 10 LONG, NEXT SEG 1
PRT(5) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0004.
PRT(5) = BLOCK CONTROL INTRINSIC, SEGMENT NUMBER = 4.
PRT(14) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0005.
PRT(14) = ALGOL WRITE INTRINSIC, SEGMENT NUMBER = 5.
PRT(15) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0006.
PRT(15) = ALGOL READ INTRINSIC, SEGMENT NUMBER = 6.
PRT(16) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0007.
PRT(16) = ALGOL SELECT INTRINSIC, SEGMENT NUMBER = 7.
0003 LITC 0005 0024
0004 COM 1011
1 IS 2 LONG, NEXT SEG 0
NUMBER OF ERRORS DETECTED = 0. COMPILATION TIME = 5 SECONDS.
PRT SIZE = 24; TOTAL SEGMENT SIZE = 17 WORDS; DISK SIZE = 7 SEGS; NO. PGM. SEGS = 7
ESTIMATED CORE STORAGE REQUIRED = 2570 WORDS.
ESTIMATED AUXILIARY MEMORY REQUIRED = 0 WORDS.
LABEL 000000000LINE 00185130? COMPILE SECND/TRY WITH ALGOL GO ALGOL /SECND
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment