Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/exmple.ffm
There are no other files named exmple.ffm in the archive.
.RUN DSK DPACK
PACK NAME: GRADE
NO. OF SECTORS: 200
EXIT
..RUN DSK LODPTF
POINTER FILE NAME?
GRADE
POINTER FILE LENGTH?
10
PACKS: GRADE
NUMBER OF SECTORS IN PACK?
200
EXECUTION TIME: 0.07 SEC.
TOTAL ELAPSED TIME: 26.85 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK CREATF
FILE ID?
MATH
INPUT NSPR,MAXR,NCPR
1 25 6
PACKS: GRADE
EXECUTION TIME: 0.05 SEC.
TOTAL ELAPSED TIME: 26.28 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK DMPPTF
PACKS: GRADE
GRADE 1 4 10 1 2 0 0 1 0
MATH 14 14 39 1 14 11 6 2 0
0 11 40 200 1 11 0 0 3 0
EXECUTION TIME: 0.07 SEC.
TOTAL ELAPSED TIME: 18.18 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK LODFMT
FILE ID?
MATH
PACKS: GRADE
IDF LFR NAVR MAXF NSPR LSR LFMTR NCPR LPFR
MATH 14 14 39 1 14 11 6 2 0
#CAT,1ST WORD#,LENGTH,MODE,PROMPT
1 1 1 1 ID
2 2 5 3 NAME
3 7 1 1 TEST1
4 8 1 1 TEST2
5 9 1 1 TEST3
6 10 1 1 TEST4
EXECUTION TIME: 0.15 SEC.
TOTAL ELAPSED TIME: 1 MIN. 18.82 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK UPDTF
THIS PROGRAM WILL ADD OR EXTRACT SPECIFIED RECORDS FROM A MASTER FILE.
RECORDS ARE ASSUMED TO BE IN FORMAT(I,5A5)
MASTER FILE?
MATH
TEMP FILE?
MATH
INPUT MAXR FOR FILE MATH
PACKS: GRAD
CAN'T FIND GRAD
PACKS: GRADE
SHOULD TEMP FILE BE INITILIZED?
NO
ENTER RECORD INFORMATION.TYPE <CR> FOR END OF FILE
10 STUDENT 10
20 STUDENT 20
30 STUDENT 30
40 STUDENT 40
50 STUDENT 50
TO MERGE FILE, MATH , TO MASTER FILE MATH
TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0,
TO ABORT JOB TYPE A 2
2
MATH IS STILL ON THE PACK. TO DELETE IT
PAUSE
TYPE G TO CONTINUE,X TO EXIT.
X
EXECUTION TIME: 0.37 SEC.
TOTAL ELAPSED TIME: 2 MIN. 25.43 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK DMPPTF
PACKS: GRADE
GRADE 1 4 10 1 2 0 0 1 0
MATH 14 19 39 1 18 11 6 2 504711206
0 11 40 200 1 11 0 0 3 0
EXECUTION TIME: 0.08 SEC.
TOTAL ELAPSED TIME: 17.98 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK UPDTF
THIS PROGRAM WILL ADD OR EXTRACT SPECIFIED RECORDS FROM A MASTER FILE.
RECORDS ARE ASSUMED TO BE IN FORMAT(I,5A5)
MASTER FILE?
MATH
TEMP FILE?
T
INPUT MAXR FOR FILE T
10
PACKS: GRADE
SHOULD TEMP FILE BE INITILIZED?
YES
ENTER RECORD INFORMATION.TYPE <CR> FOR END OF FILE
5 STUDENT 5
14 STUDENT 14
16 STUDENT 16
13 STUDENT 13
70 STUDENT 70
25 STUDENT 25
TO MERGE FILE, T , TO MASTER FILE MATH
TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0,
TO ABORT JOB TYPE A 2
1
TO MERGE FILE, T , TO MASTER FILE MATH
TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0,
TO ABORT JOB TYPE A 2
2
T IS STILL ON THE PACK. TO DELETE IT
PAUSE
TYPE G TO CONTINUE,X TO EXIT.
G
EXECUTION TIME: 0.52 SEC.
TOTAL ELAPSED TIME: 2 MIN. 47.82 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK DMPPTF
PACKS: GRADE
GRADE 1 4 10 1 4 0 0 1 504711211
MATH 14 25 39 1 13 11 6 2 504711210
0 11 40 200 1 54 0 0 3 504711211
EXECUTION TIME: 0.13 SEC.
TOTAL ELAPSED TIME: 21.33 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK TYPEF
INPUT FILE ID
MATH
PACKS: GRADE
INPUT NUMBER OF WORDS TO SELECT ON AND LOGIC
1 0
INDEX,VALUE,-1 0 OR 1
1 0 1
1* 5 STUDENDT 5 0 0 0 0
1* 10 STUDENT 10 0 0 0 0
1* 13 STUDENT 13 0 0 0 0
1* 14 STUDENT 14 0 0 0 0
1* 16 STUDENT 16 0 0 0 0
1* 20 STUDENT 20 0 0 0 0
1* 25 STUDENT 25 0 0 0 0
1* 30 STUDENT 30 0 0 0 0
1* 40 STUDENT 40 0 0 0 0
1* 50 STUDENT 50 0 0 0 0
1* 70 STUDENT 70 0 0 0 0
PAUSE
TYPE G TO CONTINUE,X TO EXIT.
X
EXECUTION TIME: 0.58 SEC.
TOTAL ELAPSED TIME: 1 MIN. 52.85 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.K
Confirm: F
Job 8, User [10,3] Logged off TTY25 1215 4-May-71
Saved all 133 files (940. Disk blocks)
Runtime 1 Min, 14.79 Sec
.RUN DSK DMPFMT
FILE ID?
MATH
PACKS: GRADE
1 1 1 1 ID
2 2 5 3 NAME
3 7 1 1 TEST1
4 8 1 1 TEST2
5 9 1 1 TEST3
6 10 1 1 TEST4
EXECUTION TIME: 0.15 SEC.
TOTAM ELAPSED TIME: 23.57 SEC.
NO EXECUTION ERSOSS DETECTED
EXIT
.RUN DSK EDITF
TYPE FILE NAME MAUH
PACKS: GRADE
WOULD YOU LIKE TO LOOP THRU EVERYOOE IN THE FILE? YES
5 STUDENDT 5
CATAGORY?
HIT THE RETURN KEY TO PROCEED TO ANOTHER RECORD
TYPE 999 TO TERMINAUE EDITING 3
TEST1:
0
60
CATAGORY? 4
TEST2:
0
70
CATAGORY?
10 STUDENT 10
CATAGORY? 3
TEST1:
0
95
CATAGORY? 4
TEST2:
0
85
CATAGORY?
13 STUDENT 13
CATAGORY? 3
TEST1:
0
CATAGORY?
14 STUDENT 14
CATAGORY? 3
TEST1:
0
81
CATAGORY? 5
TEST2:
0
73
CATAGORY?
17 STUDENT 16
CATAGORY? 3
TEST1:
0
92
CATAGORY? 4
TEST2:
0
96
CATAGORY?
20 STUDENT 20
CATAGORY?
25 STUDENT 25
CATAGORY? 3
TEST1:
0
93
CATAGORY? 4
TEST2:
0
76
CATAGORY?
30 STUDENT 30
CATAGORY? 3
TEST1:
0
56
CATAGORY? 4
TEST2:
0
75
CATAGORY?
40 STUDENT 40
CATAGORY? 3
TEST1:
0
72
CATAGORY? 3
TEST1:
72
76
CATAGORY?
50 STUDENT 50
CATAGORY? 3
TEST1:
0
80
CATAGORY? 4
TEST2:
0
97
CATAGORY?
70 STUDENT 70
CATAGORY? 3
TEST1:
0
100
CATAGORY? 4
TEST2:
0
96
CATAGORY?
JOB COMPLETED
EXECUTION TIME: 1.35 SEC.
TOTAL ELAPSED TIME: 4 MIN. 45.53 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.TYPE AVEGRD
C THIS PROGRAM COMPUTES THE WEIGHTED AVERAGES OF N TEST
C SCORES . ALSO THE AVERAGE OF EACH TEST. SCORES ARE
C ASSUMED TO BE STORED IN IB(7) THRU IB(7+NTEST-1)
COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,DATME
COMMON IFRMAT(3,6)
DIMENSION IB(20),B(20),WEIGHT(20),TOTALS(20)
EQUIVALENCE(IB(1),B(1))
FILE=ANSWER('FILE ID?')
CALL SLECTF(FILE)
INDX1=IFRMAT(1,3)
NTEST=NCPR-2
INDX2=INDX1+NTEST-1
C READ IN CATEGORY PROMPTS
CALL DIO(LFR-NSPR,1,IB,NSPR)
TYPE 100
100 FORMAT(1X,'INPUT WEIGHTS'/)
DO 1 I=1,NTEST
TYPE 101,IB(IFRMAT(1,I+2))
101 FORMAT(1X,A5,1X$)
1 ACCEPT 102,WEIGHT(I)
102 FORMAT(F)
TYPE 105,(IB(IFRMAT(1,I+2)),I=1,NTEST)
105 FORMAT(1H1,32X,'FINAL ',6A6)
C LOOP THRU ALL STUDENTS IN FILE
DO 2 LSR=LFR,NAVR-NSPR,NSPR
CALL READR(IB)
FINAL=0.0
K=0
DO 3 I=INDX1,INDX2
K=K+1
TOTALS(K)=TOTALS(K)+IB(I)
3 FINAL=FINAL+WEIGHT(K)*IB(I)
TOTALS(NTEST+1)=TOTALS(NTEST+1)+FINAL
2 TYPE 103,(IB(I),I=1,6),FINAL,(IB(I),I=7,INDX2)
103 FORMAT(1X,I5,1X,5A5,F6.1,6I6)
DO 4 I=1,OTEST+1
4 TOTALS(I)=TOTALS(I)/((NAVR-LFR)/NSPR)
TYPE 104,TOTALS(NTEST+1),(TOTALS(I),I=1,NTEST)
104 FORMAT(1H0,'CLASS AVERAGES',18X,5F6.1)
CALL EXIT
END
.EX AVEGRD,FFM%L
FORTRAN: AVEGRD
LOADING
LOADER 5K CORE
EXECUTION
FILE ID?
MATH
PACKS: GRADE
HOW MANY TESTS TO AVERAGE?
2
INPUT WEIGHTS
TEST1 .3
TEST2 .7
FINAL TEST1 TEST2
5 STUDENT 5 67.0 60 70
11 STUDENT 10 89.0 95 85
13 STUDENT 13 0.0 0 0
14 STUDENT 14 75.4 81 73
16 STUDENT 16 94.8 92 96
20 STUDENT 20 0.0 0 0
25 STUDEOT 25 81.1 93 76
30 STUDENT 30 69.3 56 75
40 STUDENT 40 22.8 76 0
50 STUDENT 50 91.9 80 97
70 STUDENT 70 97.2 100 96
CLASS AVERAGES 62.5 66.6 60.7
EXECUTION TIME: 0.42 SEC.
TOTAL ELAPSED TIME: 1 MIN. 34.72 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK UPDTF
THIS PROGRAM WILL ADD OR EXTRACT SPECIFIED RECORDS FROM A MASTER FILE.
RECORDS ARE ASSUMED TO BE IN FORMAT(I,5A5)
MASTER FILE?
MATH
TEMP FILE?
T
INPUT MAXR FOR FILE T
5
PACKS: GRADE
SHOULD TEMP FILE BE INITILIZED?
YES
ENTER RECORD INFORMATION.TYPE <CR> FOR END OF FILE
13
20
TO MERGE FILE, T , TO MASTER FILE MATH
TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0,
TO ABORT JOB TYPE A 2
0
TO MERGE FILE, T , TO MASTER FILE MATH
TYPE A 1, TO EXTRACT TEMPORARY FILE FSOM MASTERFILE,TYPE A 0,
TO ABORT JOB TYPE A 2
2
T IS STILL ON THE PACK. TO DELETE IT
PAUSE
TYPE G TO CONTINUE,X TO EXIT.
G
EXECUTION TIME: 0.57 SEC.
TOTAL ELAPSED TIME: 1 MIN. 34.12 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK EDITF
TYPE FILE NAME MATH
PACKS: GRADE
WOULD YOU LIKE TO LOOP THRU EVERYONE IN THE FILE? NO
TYPE ID 40
40 STUDENT 40
CATAGORY? HIT THE RETURN KEY TO PROCEDD TO ANOTHER RECORD
TYPE 999 TO TERMINATE EDITING 4
TEST2:
0
97
CATAGORY? 999
EXECUTION TIME: 0.27 SEC.
TOTAL ELAPSED TIME: 1 MIN. 43.60 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.EX
FORTRAO: AVEGRD
LOADING
LOADER 5K CORE
EXECUTION
FILE ID?
MATH
PACKS: GRADE
HOW MANY TESTS TO AVERAGE?
2
INPUT WEIGHTS
TEST1 .3
TEST3 .7
FINAL TEST1 TEST2
5 STUDENDT 5 67.0 60 70
10 STUDENT 10 88.0 95 85
14 STUDENT 14 75.4 81 73
16 STUDENT 16 94.8 92 96
25 STUDENT 25 81.1 93 76
30 STUDENT 30 69.3 56 75
40 STUDENT 40 90.7 76 97
50 STUDENT 50 91.9 80 97
70 STUDENT 70 97.2 100 96
CLASS AVERAGES 83.9 81.4 85.0
EXECUTION TIME: 0.40 SEC.
TOTAL ELAPSED TIME: 1 MIN. 25.08 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.
AS TTY LPT
TTY26 ASSIGNED
.RUN DSK LISTF
INPUT FILE ID
MATH
PACKS: GRADE
INPUT NUMBER OF WORDS TO SELECT ON AND LOGIC
2 0
INPUT WORD INDEX,COMPARISON VALUE,-1 0 OR 1
7 85 1
8 85 1
ID NAME ITEM 7 ITEM 8
10 STUDENT 10 95 85
16 STUDENT 16 92 96
25 STUDENT 25 93 76
40 STUDENT 40 76 97
50 STUDENT 50 80 97
70 STUDENT 70 100 96
6 536 6 547
CONTINUE?
NO
EXECUTION TIME: 0.33 SEC.
TOTAL ELAPSED TIME: 1 MIN. 31.88 SEC.
NO EXECUTION ERRORS DETECUED
EXIT
.EX SLSUBF,FFM%L
FORTRAN: SLSUBF
LOADING
LOADER 6K CORE
EXECUTION
INPUT MASTER FILE ID
MATH
INPUT TEMP FILE ID,NSPR,MAXR,NCPR
MASRT 1 25 0
INPUT NUMBER OF WORDS TO SELECT ON,1-ALL 0-OR
1 1
INPUT WORD #,VALUE TO COMPARE,COMPARISON CODE
1 0 1
PACKS: GRADE
5STUDENDT 5
10STUDENT 10
14STUDENT 14
16STUDENT 16
25STUDENT 25
30STUDENT 30
40STUDENT 40
50STUDENT 50
70STUDENT 70
EXECUTION TIME: 0.35 SEC.
TOTAL ELAPSED TIME: 1 MIN/ 41.47 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.EX SRTSHL,FFM%L
LOADING
LOADER 6K CORE
EXECUTION
NUMBER OF PACKS TO BE USED IN SORT?
1
INPUT PACK NAME CONTAINING MASTER FILE
GRADE
INPUT PACK NAME ON WHICH TO PUT TEMPORARY FILE
GRADE
INPUT MASTER FILE,TEMPORARY FILE , FILE TO STORE RESULTS, IN FORMAT(3A5)
MASRTTEMP MASRT
INPUT THE NUMBER OF WORDS TO SORT ON
1
INPUT W0RD NUMBER,DIGIT OR CHARACTER(FROM RIGHT)
TO START SORT ON, NUMBER OF DIGITS TO SORT
7 1 3
INPUT 2 IF WORD IS INTEGER,3 IF ALPHA
2
GRADE GRADE MASRT TEMP MASRT 7 3 1 1 1
PACKS: GRADE
EXECUTION TIME: 0.67 SEC.
TOTAL ELAPSED TIME: 1 MIN. 34.63 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.EX AVEGRD,FFM%L
LOADING
LOADER 5K CORE
EXECUTION
FILE ID?
MASRT
PACKS: GRADE
HOW MANY TESTS TO AVERAGE?
2
INPUT WEIGHTS
.3
.7
FINAL
30 STUDENT 30 69.3 56 75
5 STUDENDT 5 67.0 60 70
40 STUDENT 40 90.7 76 97
50 STUDENT 50 91.9 80 97
14 STUDENT 14 75.4 81 73
16 STUDENT 16 94.8 92 96
25 STUDENT 25 81.1 93 76
10 STUDENT 10 88.0 95 85
70 STUDENT 70 97.2 100 96
CLASS AVERAGES 83.9 81.4 85.0
EXECUTION TIME: 0.38 SEC.
TOTAL ELAPSED TIME: 1 MIN. 50.68 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK DMPPTF
PACKS: GRADE
GRADE 1 5 10 1 4 0 0 1 514711517
MATH 14 23 39 1 20 11 6 2 514711458
MASRT 42 51 67 1 50 40 6 3 514711522
0 11 68 200 1 80 0 2 4 514711522
EXECUTION TIME: 0.15 SEC.
TOTAL ELAPSED TIME: 26.25 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.RUN DSK SCRTCH
FILE ID TO BE DELETED?
MASRT
PACKS: GRADE
EXECUTION TIME: 0.15 SEC.
TOTAL ELAPSED TIME: 10.03 SEC.
NO EXECUTION ERRORS DETECTED
EXIT
.K
Confirm: F
Job 13, User [10,3] Logged off TTY26 1526 14-May-71
Saved all 141 files (1083. Disk blocks)
Runtime 1 Min, 02.65 Sec