cdc:nos2.source:opl.opl871:deck:psamp
Deck PSAMP
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.psamp +++| IDENT PSAMP 00002 M01S00002.psamp +++| TITLE PSAMP - P-SAMPLE ANALYZER.
Line S00003 Modification History | |
---|---|
M01 (Added by) | psamp |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00003 M02S00003.ns22000 ---|*COMMENT P-SAMPLE ANALYZER.
Line S00004 Modification History | |
---|---|
M01 (Added by) | psamp |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.ns22000 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1971. 00005 M01S00001.ns22000 +++|*COMMENT PSAMP - P-SAMPLE ANALYZER.
Line S00002 Modification History | |
---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00002.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00005.psamp +++| LCC OVERLAY(PSAMP,0,0) 00009 M01S00006.psamp +++| ENTRY SFF 00010 M01S00007.psamp +++| SPACE 4,10
Line S00008 Modification History | |
---|---|
M01 (Added by) | psamp |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00011 M02S00008.ns22000 ---|* COMMON DECKS. 00012 M01S00003.ns22000 +++|** COMMON DECKS. 00013 M01S00009.psamp +++| 00014 M01S00010.psamp +++| 00015 M01S00011.psamp +++|*CALL COMCMAC 00016 M01S00012.psamp +++| TITLE SUBROUTINES. 00017 M01S00013.psamp +++| SFF SPACE 4,10 00018 M01S00014.psamp +++|** SFF - SPACE FILL FIELD. 00019 M01S00015.psamp +++|* 00020 M01S00016.psamp +++|* ENTRY (A1) = PARAMETER BLOCK ADDRESS. 00021 M01S00017.psamp +++|* (X1) = FWA OF AREA TO SPACE FILL. 00022 M01S00018.psamp +++|* (((A1)+1)) = NUMBER OF WORDS TO SPACE FILL. 00023 M01S00019.psamp +++|* 00024 M01S00020.psamp +++|* EXIT SPECIFIED AREA SPACE FILLED. 00025 M01S00021.psamp +++|* 00026 M01S00022.psamp +++|* USES A - 1, 5, 6. 00027 M01S00023.psamp +++|* B - 1, 7. 00028 M01S00024.psamp +++|* X - 1, 5, 6. 00029 M01S00025.psamp +++|* 00030 M01S00026.psamp +++|* CALLS SFN. 00031 M01S00027.psamp +++| 00032 M01S00028.psamp +++| 00033 M01S00029.psamp +++| SFF SUBR ENTRY/EXIT 00034 M01S00030.psamp +++| SB1 1 SET PARAMETERS 00035 M01S00031.psamp +++| SA5 X1-1 00036 M01S00032.psamp +++| SA1 A1+1 00037 M01S00033.psamp +++| SA1 X1 00038 M01S00034.psamp +++| SB7 X1 00039 M01S00035.psamp +++| SFF1 SA5 A5+B1 SPACE FILE AREA 00040 M01S00036.psamp +++| SB7 B7-B1 00041 M01S00037.psamp +++| NG B7,SFFX IF SPECIFIED WORDS SPACE FILLED 00042 M01S00038.psamp +++| BX1 X5 SPACE FILL NAME 00043 M01S00039.psamp +++| RJ SFN 00044 M01S00040.psamp +++| SA6 A5 00045 M01S00041.psamp +++| EQ SFF1 LOOP 00046 M01S00042.psamp +++| SPACE 4,10
Line S00043 Modification History | |
---|---|
M01 (Added by) | psamp |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00047 M02S00043.ns22000 ---|* COMMON DECKS. 00048 M01S00004.ns22000 +++|** COMMON DECKS. 00049 M01S00044.psamp +++| 00050 M01S00045.psamp +++| 00051 M01S00046.psamp +++|*CALL COMCSFN 00052 M01S00047.psamp +++| SPACE 4,10 00053 M01S00048.psamp +++| END 00054 M01S00049.psamp +++| PROGRAM PSMPL(PSAMPL,OUTPUT,TAPE2=OUTPUT,TAPE1=PSAMPL) 00055 M01S00050.psamp +++| 00056 M01S00051.psamp +++| 00057 M01S00052.psamp +++|*** PSAMP - P-REGISTER SAMPLE ANALYZER. 00058 M01S00053.psamp +++|* G. R. MANSFIELD. 71/06/03. 00059 M01S00054.psamp +++| 00060 M01S00055.psamp +++| 00061 M01S00056.psamp +++| 00062 M01S00057.psamp +++| 00063 M01S00058.psamp +++|*** PSAMP ANALYZES THE P-SAMPLE DATA PRODUCED BY SMP. 00064 M01S00059.psamp +++| 00065 M01S00060.psamp +++| 00066 M01S00061.psamp +++| 00067 M01S00062.psamp +++| 00068 M01S00063.psamp +++|*** CONTROL CARD CALL. 00069 M01S00064.psamp +++|* 00070 M01S00065.psamp +++|* 00071 M01S00066.psamp +++|* PSAMP. 00072 M01S00067.psamp +++| 00073 M01S00068.psamp +++| 00074 M01S00069.psamp +++| 00075 M01S00070.psamp +++| 00076 M01S00071.psamp +++|1000 FORMAT ('1',9X,'P REGISTER SAMPLES FOR ',8A10,/,9X,2A10) 00077 M01S00072.psamp +++|1001 FORMAT ('0',9X,'ELAPSED REAL TIME',F10.3,' SEC.',/, 00078 M01S00073.psamp +++| 1 10X, 'ELAPSED CPU TIME ',F10.3,' SEC.') 00079 M01S00074.psamp +++|1002 FORMAT ('0',9X,'SAMPLE RANGE - FROM ',O6,' TO ',O6) 00080 M01S00075.psamp +++|1003 FORMAT ('0',9X,'SAMPLES JOB NOT ACTIVE',I14, 00081 M01S00076.psamp +++| 1 /,10X, 'SAMPLES JOB IN RECALL ',I14, 00082 M01S00077.psamp +++| 2 /,10X, 'SAMPLES BELOW RANGE ',I14, 00083 M01S00078.psamp +++| 3 /,10X, 'SAMPLES IN RANGE ',I14, 00084 M01S00079.psamp +++| 3 /,10X, 'SAMPLES ABOVE RANGE ',I14, 00085 M01S00080.psamp +++| 3 /,10X, 'SAMPLES CPU AT SUB-CP ',I14, 00086 M01S00081.psamp +++| 4 //,10X, 'TOTAL SAMPLES ',I14) 00087 M01S00082.psamp +++|1004 FORMAT ('Q',//,5X,'P-REG COUNT PCT',5X, 00088 M01S00083.psamp +++| 1 '0',9X,'1',9X,'2',9X,'3',9X,'4',9X,'5',9X,'6',9X,'7',9X,'8', 00089 M01S00084.psamp +++| 2 9X,'9',9X,'0',//) 00090 M01S00085.psamp +++|1005 FORMAT (5X,'BELOW',I10,F6.1,5X,100R1) 00091 M01S00086.psamp +++|1006 FORMAT (4X,O6,I10,F6.1,5X,100R1) 00092 M01S00087.psamp +++|1007 FORMAT (5X,'ABOVE',I10,F6.1,5X,100R1) 00093 M01S00088.psamp +++|1008 FORMAT (1H0,9X,I10,F6.1) 00094 M01S00089.psamp +++| 00095 M01S00090.psamp +++| 00096 M01S00091.psamp +++| COMMON /BLOCK/ CCD, DTE, TIM, RTS, RTF, CTS, CTF, FWA, LWA, 00097 M01S00092.psamp +++| = IAC, RCL, BLR, ABR, ASC, PSM 00098 M01S00093.psamp +++| INTEGER CCD(8), DTE, TIM, RTS, RTF, CTS, CTF, FWA, LWA, 00099 M01S00094.psamp +++| = IAC, RCL, BLR, ABR, ASC, PSM(128) 00100 M01S00095.psamp +++| DIMENSION IBUF(100) 00101 M01S00096.psamp +++| 00102 M01S00097.psamp +++|* READ P-SAMPLE FILE. 00103 M01S00098.psamp +++| 00104 M01S00099.psamp +++| REWIND 1 00105 M01S00100.psamp +++|1 BUFFER IN (1,0) (CCD(1), PSM(128)) 00106 M01S00101.psamp +++| IF (UNIT(1)) 2, 11, 11 00107 M01S00102.psamp +++|11 ENDFILE 2 00108 M01S00103.psamp +++| STOP 00109 M01S00104.psamp +++| 00110 M01S00105.psamp +++|* PRINT STATISTICS. 00111 M01S00106.psamp +++| 00112 M01S00107.psamp +++|2 CALL SFF(CCD, 8) 00113 M01S00108.psamp +++| WRITE (2,1000) CCD, DTE, TIM 00114 M01S00109.psamp +++| RT = (AND(RTF,O"777777777777")-AND(RTS,O"777777777777"))*.001 00115 M01S00110.psamp +++| CT = FLOAT(CTF - CTS) / 4000000000.0 00116 M01S00111.psamp +++| WRITE(2,1001) RT, CT 00117 M01S00112.psamp +++| WRITE(2,1002) FWA, LWA 00118 M01S00113.psamp +++| 00119 M01S00114.psamp +++|* CALCULATE SAMPLE COUNTS. 00120 M01S00115.psamp +++| 00121 M01S00116.psamp +++| IR = 0 00122 M01S00117.psamp +++| DO 21 I=1,128 00123 M01S00118.psamp +++|21 IR = IR+PSM(I) 00124 M01S00119.psamp +++| IS = IAC + RCL + BLR + ABR + ASC + IR 00125 M01S00120.psamp +++| WRITE(2,1003) IAC, RCL, BLR, IR, ABR, ASC, IS 00126 M01S00121.psamp +++| 00127 M01S00122.psamp +++|* LIST SAMPLING RESULTS. 00128 M01S00123.psamp +++| 00129 M01S00124.psamp +++| WRITE(2,1004) 00130 M01S00125.psamp +++| INT = (LWA-FWA)/128 00131 M01S00126.psamp +++| TCNT = BLR + IR + ABR 00132 M01S00127.psamp +++| IPSM = BLR 00133 M01S00128.psamp +++| A = BLR 00134 M01S00129.psamp +++| TPCT = 100*(A/TCNT) 00135 M01S00130.psamp +++| K = TPCT+.5 00136 M01S00131.psamp +++| DO 31 J=1,100 00137 M01S00132.psamp +++|31 IBUF(J) = R" " 00138 M01S00133.psamp +++| DO 32 J=1,K 00139 M01S00134.psamp +++|32 IBUF(J) = R"*" 00140 M01S00135.psamp +++| IF (K.GT.0) IBUF(K) = R"+" 00141 M01S00136.psamp +++| WRITE(2,1005) BLR, TPCT, IBUF 00142 M01S00137.psamp +++| 00143 M01S00138.psamp +++| DO 45 I=1,128 00144 M01S00139.psamp +++| DO 41 J=1,100 00145 M01S00140.psamp +++|41 IBUF(J) = R" " 00146 M01S00141.psamp +++| LOC = FWA+((I-1)*INT) 00147 M01S00142.psamp +++| A = PSM(I) 00148 M01S00143.psamp +++| PCT = 100*(A/TCNT) 00149 M01S00144.psamp +++| N = PCT+.5 00150 M01S00145.psamp +++| DO 42 J=1,N 00151 M01S00146.psamp +++|42 IBUF(J) = R"*" 00152 M01S00147.psamp +++| K = K+N 00153 M01S00148.psamp +++| IF (N.GT.0) IBUF(N) = R"+" 00154 M01S00149.psamp +++| TPCT = TPCT+PCT 00155 M01S00150.psamp +++| IPSM = IPSM+PSM(I) 00156 M01S00151.psamp +++|45 WRITE(2,1006) LOC, PSM(I), PCT, IBUF 00157 M01S00152.psamp +++| 00158 M01S00153.psamp +++| A = ABR 00159 M01S00154.psamp +++| PCT = 100*(A/TCNT) 00160 M01S00155.psamp +++| N = PCT+.5 00161 M01S00156.psamp +++| DO 51 J=1,100 00162 M01S00157.psamp +++|51 IBUF(J) = R" " 00163 M01S00158.psamp +++| DO 52 J=1,N 00164 M01S00159.psamp +++|52 IBUF(J) = R"*" 00165 M01S00160.psamp +++| K = K+N 00166 M01S00161.psamp +++| IF (N.GT.0) IBUF(N) = R"+" 00167 M01S00162.psamp +++| TPCT = TPCT+PCT 00168 M01S00163.psamp +++| IPSM = IPSM+ABR 00169 M01S00164.psamp +++| WRITE(2,1007) ABR, PCT, IBUF 00170 M01S00165.psamp +++| 00171 M01S00166.psamp +++| WRITE(2,1008) IPSM, TPCT 00172 M01S00167.psamp +++| 00173 M01S00168.psamp +++| GOTO 1 00174 M01S00169.psamp +++| 00175 M01S00170.psamp +++| END
cdc/nos2.source/opl.opl871/deck/psamp.txt · Last modified: by 127.0.0.1