-
-
Save texdraft/777379d8efb3176d51ba233af454aefd to your computer and use it in GitHub Desktop.
algol compilation
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
? 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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