User Tools

Site Tools


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