mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-03-02 01:40:31 +00:00
653cbe98cb
1. Finalize compiler helper card decks. 2. Finalize example BALGOL programs. 3. Fix problem with relocation of ERROR library routine buffer address (issue #1). 4. Update Generator tape build notes.
175 lines
14 KiB
Plaintext
175 lines
14 KiB
Plaintext
|
||
Sat, Jun 30, 2018 16:57:09, SYSTEM SERIAL: 4448, LX100 MCP: *SYSTEM/511/051-1A-45/DELTA/MCP. 51.190.8474, HOSTNAME: MCPVMMA
|
||
|
||
|
||
|
||
|
||
W O R K F L O W S T A T E M E N T S
|
||
|
||
|
||
00000100 BEGIN JOB BALGOL/EX3;
|
||
00000200 JOBSUMMARY = UNCONDITIONAL;
|
||
00000210 PRINTDEFAULTS = (PRINTDISPOSITION=EOJ, DESTINATION="DCMAIL",
|
||
00000220 NOTE="DC-EA=PAUL.KIMPEL@DIGM.COM; DC-EX=TXT; DC-ES=CANDE PRINT OUTPUT");
|
||
00000300
|
||
00000400 COMPILE OBJECT/BALGOL/EXAMPLE3 ALGOL GO;
|
||
00000450 OPTION = (DSED, FAULT, ARRAY);
|
||
00000500 ALGOL DATA
|
||
00062000 ?DATA DATA
|
||
00099000 ? END JOB
|
||
|
||
|
||
J O B S U M M A R Y
|
||
|
||
Sat, Jun 30, 2018
|
||
|
||
16:57:08 BOJ 6444 BALGOL/EX3.
|
||
JOB ENTERED SYSTEM: 06/30/2018 16:57:08 FROM WFL 51.189
|
||
QUEUE: 0, ORIGINATING LSN: 224 MCS: 16
|
||
STACK NUMBER: 0B92, PRIORITY: 50, SOURCENAME: NXEDIT/IP192_168_251_200/1.
|
||
USERCODE: PAUL. REALUSERCODE: PAUL.
|
||
INITIATING MCS: SYSTEM/NXEDIT/SUPPORT.
|
||
16:57:08 BOT 6445 *SYSTEM/ALGOL.
|
||
CODE COMPILED: 09/07/2005 15:02:44 BY ALGOL 51.190
|
||
RELEASE ID: IC ALGOL-051.1A.4 [51.190.004] (51.190.8023)
|
||
TASK TYPE: COROUTINE (CALL)
|
||
STACK NUMBER: 0B94, PRIORITY: 50, SOURCENAME: NXEDIT/IP192_168_251_200/1.
|
||
CODEFILE: OBJECT/BALGOL/EXAMPLE3.
|
||
USERCODE: PAUL. REALUSERCODE: PAUL.
|
||
INITIATING MCS: SYSTEM/NXEDIT/SUPPORT.
|
||
16:57:09 BOT 6446 (PAUL)OBJECT/BALGOL/EXAMPLE3 ON OPS.
|
||
CODE COMPILED: 06/30/2018 16:57:08 BY ALGOL 51.190
|
||
TASK TYPE: DEPENDENT TASK (PROCESS)
|
||
STACK NUMBER: 0B96, PRIORITY: 50, SOURCENAME: NXEDIT/IP192_168_251_200/1.
|
||
USERCODE: PAUL. REALUSERCODE: PAUL.
|
||
INITIATING MCS: SYSTEM/NXEDIT/SUPPORT.
|
||
16:57:09 6446 MESSAGE: STACK EXTENDED FROM 1555 TO 1805 WORDS.
|
||
16:57:09 EOT 6445 *SYSTEM/ALGOL.
|
||
RELEASE ID:IC ALGOL-051.1A.4 [51.190.004] (51.190.8023)
|
||
USERCODE: PAUL. REALUSERCODE: PAUL.
|
||
STACK NUMBER: 0B94 AVERAGE DISK SECTORS IN USE BY PERMANENT FILES: 1030.
|
||
PROCESSOR TIME: 00:00:00.5082 CARDS READ: 62.
|
||
I/O TIME: 00:00:00.1002 LINES PRINTED: 80.
|
||
READYQ TIME: 00:00:00.1174 NUMBER OF ARRAY RESIZES: 4.
|
||
INITPBIT TIME: 00:00:00.2427 AVERAGE MEMORY USAGE: CODE=21280, DATA=68814
|
||
ELAPSED TIME: 00:00:01.0673 MEMORY INTEGRAL: CODE=12.949, DATA=41.873
|
||
INITIAL PBITS: 432.
|
||
MAXIMUM NUMBER OF ASDS USED: 158.
|
||
MAXIMUM SAVE MEMORY USED: 11488.
|
||
|
||
16:57:09 6446 MESSAGE: STACK EXTENDED FROM 1805 TO 2055 WORDS.
|
||
16:57:09 EOT 6446 (PAUL)OBJECT/BALGOL/EXAMPLE3 ON OPS.
|
||
USERCODE: PAUL. REALUSERCODE: PAUL.
|
||
STACK NUMBER: 0B96 AVERAGE DISK SECTORS IN USE BY PERMANENT FILES: 66.
|
||
PROCESSOR TIME: 00:00:00.1049 CARDS READ: 26.
|
||
I/O TIME: 00:00:00.0050 LINES PRINTED: 9.
|
||
READYQ TIME: 00:00:00.1328 NUMBER OF ARRAY RESIZES: 5.
|
||
INITPBIT TIME: 00:00:00.0156 AVERAGE MEMORY USAGE: CODE=125, DATA=4509
|
||
ELAPSED TIME: 00:00:00.3447 MEMORY INTEGRAL: CODE=0.014, DATA=0.496
|
||
INITIAL PBITS: 110.
|
||
MAXIMUM NUMBER OF ASDS USED: 60.
|
||
MAXIMUM SAVE MEMORY USED: 8382.
|
||
|
||
16:57:09 EOJ 6444 BALGOL/EX3.
|
||
USERCODE: PAUL. REALUSERCODE: PAUL.
|
||
STACK NUMBER: 0B92 NUMBER OF ARRAY RESIZES: 1.
|
||
PROCESSOR TIME: 00:00:00.0156 AVERAGE MEMORY USAGE: CODE=88, DATA=1924
|
||
I/O TIME: 00:00:00.0047 MEMORY INTEGRAL: CODE=0.002, DATA=0.039
|
||
READYQ TIME: 00:00:00.0136 INITIAL PBITS: 38.
|
||
ELAPSED TIME: 00:00:01.3030 MAXIMUM NUMBER OF ASDS USED: 10.
|
||
MAXIMUM SAVE MEMORY USED: 1808.
|
||
|
||
|
||
Unisys ClearPath LX Series SYSTEMS BDMSALGOL COMPILER, VERSION 51.190.8023, SATURDAY, 06/30/2018, 04:57 PM.
|
||
|
||
|
||
|
||
( P A U L ) O B J E C T / B A L G O L / E X A M P L E 4 O N O P S
|
||
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
|
||
|
||
|
||
BEGIN 0000:0000:0
|
||
BLOCK#1 IS SEGMENT 0003
|
||
COMMENT THIRD EXAMPLE PROGRAM FROM BALGOL MANUAL, MARCH 1963. 1 0003:0000:1
|
||
0003:0000:1
|
||
THE SHORT PROGRAM WHICH FOLLOWS IS FOR A REDUCTION OF A SQUARE MATRIX 0003:0000:1
|
||
TO TRIDIAGONAL FORM, USING THE METHOD OF HOUSEHOLDER; 0003:0000:1
|
||
0003:0000:1
|
||
COMMENT HOUSEHOLDER REDUCTION TO TRIDIAGONAL FORM; 0003:0000:1
|
||
INTEGER I, J, K, L, R, N; 0003:0000:1
|
||
ARRAY A[0:50,0:50], X[0:50], P[0:50]; 0003:0000:1
|
||
REAL Q, S; 0003:0006:3
|
||
LABEL IN; 0003:0006:3
|
||
FILE 0003:0006:3
|
||
DATA (KIND=READER, MAXRECSIZE=80, FRAMESIZE=8, FILEUSE=IN), 0003:0006:3
|
||
DATA LENGTH IN WORDS IS 000E
|
||
LINE (KIND=PRINTER, MAXRECSIZE=120, FRAMESIZE=8, FILEUSE=OUT); 0003:0006:3
|
||
DATA LENGTH IN WORDS IS 000E
|
||
FORMAT 0003:0006:3
|
||
AF (X10, F10.5), 0003:0006:3
|
||
BF (X40, F10.5); 0003:0006:3
|
||
0003:0006:3
|
||
N:= 5; 0003:0006:3
|
||
IN: 0003:0007:2
|
||
READ (DATA, /, I, J, Q); 0003:0007:2
|
||
IF I ^= 0 THEN 0003:0015:4
|
||
BEGIN 0003:0016:2
|
||
A[I,J]:= Q; 2 0003:0016:5
|
||
GO TO IN 0003:0018:4
|
||
END; 0003:0019:1
|
||
2 0003:0019:1
|
||
FOR R:= 1 STEP 1 UNTIL N-1 DO 0003:0019:1
|
||
BEGIN 0003:001B:1
|
||
WRITE (LINE, AF, A[R,R]); 2 0003:001B:1
|
||
L:= R+1; 0003:0023:4
|
||
S:= 0; 0003:0025:0
|
||
FOR J:= L STEP 1 UNTIL N DO 0003:0025:4
|
||
S:= S + A[R,J]**2; 0003:0026:3
|
||
0003:002B:2
|
||
S:= SIGN(A[R,L])/(2*SQRT(S)); 0003:002B:2
|
||
WRITE (LINE, BF, -0.5/S); 0003:0030:2
|
||
X[L]:= SQRT(0.5 + A[R,L]*S); 0003:0038:4
|
||
S:= S/X[L]; 0003:003D:1
|
||
FOR J:= R+2 STEP 1 UNTIL N DO 0003:003F:0
|
||
X[J]:= S*A[R,J]; 0003:0040:3
|
||
FOR J:= R STEP 1 UNTIL N DO 0003:0045:3
|
||
BEGIN 0003:0046:2
|
||
S:= 0; 3 0003:0046:2
|
||
FOR K:= L STEP 1 UNTIL N DO 0003:0047:0
|
||
S:= S + A[MIN(J,K), MAX(J,K)]*X[K]; 0003:0047:5
|
||
P[J]:= S 0003:004E:4
|
||
END; 0003:004F:3
|
||
3 0003:0052:1
|
||
S:= 0; 0003:0052:1
|
||
FOR J:= L STEP 1 UNTIL N DO 0003:0052:5
|
||
S:= S + X[J]*P[J]; % X[J] WAS K[J] 0003:0053:4
|
||
FOR J:= L STEP 1 UNTIL N DO 0003:0058:4
|
||
P[J]:= P[J] - S*X[J]; 0003:0059:3
|
||
FOR J:= L STEP 1 UNTIL N DO 0003:005F:0
|
||
FOR K:= J STEP 1 UNTIL N DO 0003:005F:5
|
||
A[J,K]:= A[J,K] - 2*(X[J]*P[K] + X[K]*P[J]) 0003:0060:4
|
||
END; 0003:0067:0
|
||
2 0003:006D:3
|
||
WRITE (LINE, AF, A[R,R]); 0003:006D:3
|
||
END. 0003:0075:4
|
||
BLOCK#1(0003) LENGTH IN WORDS IS 008B
|
||
DATA LENGTH IN WORDS IS 0008
|
||
====================================================================================================================================
|
||
NUMBER OF ERRORS DETECTED = 0.
|
||
NUMBER OF WARNINGS ISSUED = 1.
|
||
NUMBER OF SEGMENTS = 8. TOTAL SEGMENT SIZE = 175 WORDS. CORE ESTIMATE = 1110 WORDS. STACK ESTIMATE = 19
|
||
PROGRAM SIZE = 61 CARDS, 463 SYNTACTIC ITEMS, 18 DISK SECTORS.
|
||
PROGRAM FILE NAME: (PAUL)OBJECT/BALGOL/EXAMPLE3 ON OPS.
|
||
COMPILATION TIME = 0.530 SECONDS ELAPSED; 0.270 SECONDS PROCESSING; 0.094 SECONDS I/O.
|
||
====================================================================================================================================
|
||
|
||
4.00000
|
||
-3.16228
|
||
3.30000
|
||
-1.30767
|
||
-0.42281
|
||
-1.88627
|
||
0.53947
|
||
1.81621
|
||
1.58333
|