12 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comssru +++|          CTEXT  COMSSRU - DEFINE SRU PARAMETERS.
00002  M01S00002.comssru +++|          SPACE  4
00003  M01S00003.comssru +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00005.comssru +++|          SPACE  4
00007  M01S00006.comssru +++|***       COMSSRU - SRU ACCOUNTING EQUIVALENCES.
00008  M01S00007.comssru +++|*         R. E. SEABOLD.  74/12/03.
00009  M01S00008.comssru +++|*         D. D. SADLER    75/02/01.
00010  M01S00009.comssru +++|          SPACE  4
00011  M01S00010.comssru +++|***              COMSSRU DEFINES THE RANGES AND DEFAULT VALUES FOR THE
00012  M01S00011.comssru +++|*         PARAMETERS USED IN THE SYSTEM RESOURCE UNIT (SRU) FORMULA.
00013  M01S00012.comssru +++|*         IT ALSO DEFINES THE INCREMENTS THAT ARE APPLIED TO THE IO
00014  M01S00013.comssru +++|*         ACCUMULATORS (MS, MT AND PF).
00015  M01S00014.comssru +++|          SPACE  4
00016  M01S00015.comssru +++|***       SRU FORMULA.
00017  M01S00016.comssru +++|*

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.ns22000 ---|*         SRU =  M1(CP + M2*IO + M3(CP + IO)CM + M4(CP + IO)EC) + AD

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00018.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00019.ns22000 ---|*             =  M1(1 + M3*CM + M4*EC)CP +

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00020.ns22000 ---|*                     M1(M2 + M3*CM + M4*EC)IO + AD

Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00021.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00022.ns22000 ---|*             =  (M1 + M1*M3*CM + M1*M4*EC)CP +

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00023.ns22000 ---|*                     (M1*M2 + M1*M3*CM + M1*M4*EC)IO + AD

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00024.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00025.ns22000 ---|*             =  CPM*CP + IOM*IO + AD
00027  M01S00001.ns22000 +++|*         SRU = M1(CP + M2*IO + M3(CP+IO)CM +
00028  M01S00002.ns22000 +++|*                  M4(CP+IO)EC + MM*MP + AUC) + AD
00029  M01S00003.ns22000 +++|*
00030  M01S00004.ns22000 +++|*             = M1(1 + M3*CM + M4*EC)CP + M1(M2 + M3*CM + M4*EC)IO +
00031  M01S00005.ns22000 +++|*                  M1*MM*MP + M1*AUC + AD
00032  M01S00006.ns22000 +++|*
00033  M01S00007.ns22000 +++|*             = (M1 + M1*M3*CM + M1*M4*EC)CP +
00034  M01S00008.ns22000 +++|*                  (M1*M2 + M1*M3*CM + M1*M4*EC)IO +
00035  M01S00009.ns22000 +++|*                  M1*MM*MP + M1*AUC + AD
00036  M01S00010.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00011.ssru1   ---|*             = CPM*CP + IOM*IO + M1M*MP + M1*AUC + AD.
00038  M01S00001.ssru1   +++|*             = CPM*CP + IOM*IO + M1*MM*MP + M1*AUC + AD.
00039  M01S00026.comssru +++|*
00040  M01S00027.comssru +++|*
00041  M01S00028.comssru +++|*                CP = (S0)*CP0 + (S1)*CP1

Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00029.ns2753  ---|*                IO = S2*MS + S3*MT + S4*PF
00043  M01S00001.ns2753  +++|*                IO = S2*MS + S3*MT + S4*PF +S5*OD
00044  M01S00030.comssru +++|*                CM = (CM FL + 777B) / 1000B  (WORDS)

Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00031.252l678 ---|*                EC = (ECS FL) = (TRACKS) = (2020B WORDS).
00046  M01S00001.252l678 +++|*                EC = (EM FL) = (TRACKS) = (101*SLDE WORDS).
00047  M01S00032.comssru +++|*
00048  M01S00002.ssru1   +++|*                AD = INCREMENTAL ADDER WHICH IS APPLIED TO THE SRU
00049  M01S00003.ssru1   +++|*                     VALUE DURING ACCOUNTING INITIALIZATION.
00050  M01S00004.ssru1   +++|*                MM = MULTIPLIER USED TO SCALE *MAP* USAGE.
00051  M01S00005.ssru1   +++|*                MP = ACCUMULATED *MAP* ACTIVITY FOR A USER.
00052  M01S00006.ssru1   +++|*                AUC = ACCUMULATED APPLICATION ACTIVITY FOR A USER.
00053  M01S00007.ssru1   +++|*
00054  M01S00033.comssru +++|*                CPM = M1 + M1*M3*CM + M1*M4*EC
00055  M01S00034.comssru +++|*                IOM = M1*M2 + M1*M3*CM + M1*M4*EC
00056  M01S00035.comssru +++|*
00057  M01S00036.comssru +++|*
00058  M01S00037.comssru +++|*         FIXED PARAMETERS -
00059  M01S00038.comssru +++|*

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00039.ns22000 ---|*         S0, S1, S2, S3 AND S4 ARE FIXED PARAMETERS AND DO NOT

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00012.ns2753  ---|*         S0, S1, S2, S3, S4 AND MM ARE FIXED PARAMETERS AND DO NOT

Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00040.ns2753  ---|*         VARY DURING SYSTEM EXECUTION. S0 AND S1 ARE SET TO ONE OF

Seq #  *Modification Id* Act 
----------------------------+
00063  M03S00041.ns2753  ---|*         THE FOLLOWING VALUES AT DEAD START TIME, CP62, CP64, CP66,

Seq #  *Modification Id* Act 
----------------------------+
00064  M03S00042.ns2753  ---|*         C172, C173, OR C175 DEPENDING ON WHAT TYPE OF CPU IS

Seq #  *Modification Id* Act 
----------------------------+
00065  M03S00043.ns2753  ---|*         PRESENT.

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00001.ns2753  ---|*         THE FOLLOWING HARDWARE DETECTABLE CPU TYPE DEFAULT
00067  M01S00002.ns2753  +++|*         S0, S1, S2, S3, S4, S5 AND MM ARE FIXED PARAMETERS AND DO
00068  M01S00003.ns2753  +++|*         NOT VARY DURING SYSTEM EXECUTION. S0 AND S1 ARE SET TO ONE
00069  M01S00004.ns2753  +++|*         OF THE FOLLOWING HARDWARE DETECTABLE CPU TYPE DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00002.ns22000 ---|*         MULTIPLIERS AT DEAD START TIME - CP64, CP66, C173,

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00003.ns22000 ---|*         C175, C176, C825, C835, C855, C865, C875.  DIFFERENT
00072  M01S00013.ns22000 +++|*         MULTIPLIERS AT DEAD START TIME - CP64, CP66, C173, C175,
00073  M01S00014.ns22000 +++|*         C176, C815, C825, C835, C845, C855, C865, C875.  DIFFERENT
00074  M01S00004.ns21000 +++|*         S0 AND S1 CPU MULTIPLIERS CAN BE SELECTED VIA THE
00075  M01S00005.ns21000 +++|*         *CPM* *IPRDECK* DIRECTIVE.
00076  M01S00044.comssru +++|*
00077  M01S00045.comssru +++|*         VARIABLE PARAMETERS -
00078  M01S00046.comssru +++|*
00079  M01S00047.comssru +++|*         THE DEFAULT VALUES FOR M1, M2, M3, M4 AND AD ARE SET AT JOB
00080  M01S00048.comssru +++|*         INITIALIZATION.  THEY MAY BE RE-DEFINED UPON ENTRY OF A
00081  M01S00049.comssru +++|*         CHARGE/PROJECT NUMBER OR DURING EXECUTION OF AN APPLICATION
00082  M01S00050.comssru +++|*         PROGRAM.  THE VALUE AD IS APPLIED TO THE SRU AND AD
00083  M01S00051.comssru +++|*         ACCUMULATOR ONLY WHEN A SPECIFIC REQUEST TO DO SO IS MADE.
00084  M01S00052.comssru +++|*
00085  M01S00053.comssru +++|*         NOTE - THE APPLICATION PROGRAM CAPABILITY TO INCREMENT THE AD

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00054.ns22000 ---|*         ACCUMULATOR IS NOT CURRENTLY AVALIABLE. THIS CAPABILITY WILL
00087  M01S00015.ns22000 +++|*         ACCUMULATOR IS NOT CURRENTLY AVAILABLE.  THIS CAPABILITY WILL
00088  M01S00055.comssru +++|*         BE PROVIDED IN FUTURE SYSTEMS.
00089  M01S00056.comssru +++|*

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00057.ns22000 ---|*         THE AD INCREMENT VALUE PROVIDED AT THE BEGINING OF AN ACCOUNT
00091  M01S00016.ns22000 +++|*         THE AD INCREMENT VALUE PROVIDED AT THE BEGINNING OF ACCOUNT

Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00058.ns2753  ---|*         BLOCK IS INCREMENTED INTO THE SRU ACCUMULATOR AND NOT INTO THE

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00059.ns2753  ---|*         AD ACCUMULATOR. THUS, THE AD INCREMENT MAYBE USED AS AN
00094  M01S00005.ns2753  +++|*         BLOCK IS INCREMENTED INTO THE SRU ACCUMULATOR AND NOT INTO
00095  M01S00006.ns2753  +++|*         THE AD ACCUMULATOR. THUS, THE AD INCREMENT MAYBE USED AS AN

Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00060.ns22000 ---|*         OVERHEAD CHARGE AT THE BEGINING OF ACCOUNT BLOCK.
00097  M01S00017.ns22000 +++|*         OVERHEAD CHARGE AT THE BEGINNING OF AN ACCOUNT BLOCK.
00098  M01S00061.comssru +++|*
00099  M01S00062.comssru +++|*         CALCULATION -
00100  M01S00063.comssru +++|*

Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00064.ns22000 ---|*         THE MULTIPLIERS M1, M1*M2, M1*M3 AND M1*M4 ARE MAINTAINED IN

Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00065.ns22000 ---|*         THE CONTROL POINT AREA.  WHEN A NEW CM OR ECS FIELD LENGTH IS

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00066.ns22000 ---|*         INTRODUCED, THE WORKING MULTIPLIERS CPM AND IOM ARE CALCULATED

Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00067.ns22000 ---|*         AND SAVED IN THE CONTROL POINT AREA.  WHEN CP TIME IS

Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00068.ns22000 ---|*         INCREMENTED, CPM*CP IS CALCULATED AND THE RESULT IS ADDED
00106  M01S00018.ns22000 +++|*         THE MULTIPLIERS M1, M1*M2, M1*M3, M1*M4 AND M1*MM ARE
00107  M01S00019.ns22000 +++|*         MAINTAINED IN THE CONTROL POINT AREA.  WHEN A NEW CM OR ECS
00108  M01S00020.ns22000 +++|*         FIELD LENGTH IS SET, THE WORKING MULTIPLIERS CPM AND IOM ARE
00109  M01S00021.ns22000 +++|*         CALCULATED AND SAVED IN THE CONTROL POINT AREA.  WHEN CP TIME
00110  M01S00022.ns22000 +++|*         IS INCREMENTED, CPM*CP IS CALCULATED AND THE RESULT IS ADDED
00111  M01S00069.comssru +++|*         TO THE SRU ACCUMULATOR.  WHEN MS, MT OR PF IS INCREMENTED,
00112  M01S00070.comssru +++|*         IO USAGE AND IOM*IO ARE CALCULATED AND THE LATTER IS ADDED
00113  M01S00071.comssru +++|*         TO THE SRU ACCUMULATOR.
00114  M01S00072.comssru +++|*         IF MT$ IS DEFINED, ONLY MT INCREMENTS WILL
00115  M01S00073.comssru +++|*         BE ASSEMBLED.
00116  M01S00074.comssru +++| EXTR     SPACE  4,10
00117  M01S00075.comssru +++|**        EXTR - EXTRACT INTEGER AND FRACTION.
00118  M01S00076.comssru +++|*
00119  M01S00077.comssru +++|*         EXTR   NUM
00120  M01S00078.comssru +++|*
00121  M01S00079.comssru +++|*         THE INTEGER AND FRACTIONAL PORTIONS ARE EXTRACTED FROM THE
00122  M01S00080.comssru +++|*         GIVEN NUMBER.  THE SIZE OF THE FRACTION IS DETERMINED AND A
00123  M01S00081.comssru +++|*         MULTIPLIER IS COMPUTED SO THAT THE NUMBER CAN BE REPRESENTED
00124  M01S00082.comssru +++|*         AS AN INTEGER VALUE.
00125  M01S00083.comssru +++|*
00126  M01S00084.comssru +++|*         ENTRY  NUM = ANY REAL NUMBER.
00127  M01S00085.comssru +++|*
00128  M01S00086.comssru +++|*         EXIT   IP (MICRO) = INTEGER PORTION.
00129  M01S00087.comssru +++|*                FP (MICRO) = FRACTIONAL PORTION.
00130  M01S00088.comssru +++|*                DV (MICRO) = POWER OF 10 MULTIPLIER.
00131  M01S00089.comssru +++|*
00132  M01S00090.comssru +++|*         EXAMPLE
00133  M01S00091.comssru +++|*                      EXTR   1.32
00134  M01S00092.comssru +++|*                IP = 1
00135  M01S00093.comssru +++|*                FP = 32
00136  M01S00094.comssru +++|*                DV = 100
00137  M01S00095.comssru +++|*                INTEGER REPRESENTATION = IP*DV+FP = 1*100+32 = 132.
00138  M01S00096.comssru +++|
00139  M01S00097.comssru +++|
00140  M01S00098.comssru +++| EXTR     MACRO  NUM
00141  M01S00099.comssru +++|          LOCAL  DP,IS,FS,NM,NS,CX,PT
00142  M01S00100.comssru +++|
00143  M01S00101.comssru +++|*         SEARCH FOR DECIMAL POINT.
00144  M01S00102.comssru +++|
00145  M01S00103.comssru +++| DP       SET    0
00146  M01S00104.comssru +++| IS       SET    0
00147  M01S00105.comssru +++| FS       SET    0
00148  M01S00106.comssru +++| NM       MICRO  1,,*NUM*
00149  M01S00107.comssru +++| NS       MICCNT NM
00150  M01S00108.comssru +++|
00151  M01S00109.comssru +++|          DUP    NS
00152  M01S00110.comssru +++| DP       SET    DP+1
00153  M01S00111.comssru +++| CX       MICRO  DP,1,*NUM*
00154  M01S00112.comssru +++|          IFC    EQ,*"CX"*.*
00155  M01S00113.comssru +++| FS       SET    NS-IS-1
00156  M01S00114.comssru +++|          STOPDUP
00157  M01S00115.comssru +++|          ELSE
00158  M01S00116.comssru +++| IS       SET    IS+1
00159  M01S00117.comssru +++|          ENDIF
00160  M01S00118.comssru +++|          ENDD
00161  M01S00119.comssru +++|
00162  M01S00120.comssru +++|*         COMPUTE POWER OF 10 MULTIPLIER.
00163  M01S00121.comssru +++|
00164  M01S00122.comssru +++| PT       SET    1
00165  M01S00123.comssru +++|          IFGT   FS,0
00166  M01S00124.comssru +++|          DUP    FS
00167  M01S00125.comssru +++| PT       SET    PT*10
00168  M01S00126.comssru +++|          ENDD
00169  M01S00127.comssru +++|          ENDIF
00170  M01S00128.comssru +++| DV       MICRO  1,,*PT*
00171  M01S00129.comssru +++|
00172  M01S00130.comssru +++|*         EXTRACT INTEGER AND FRACTION.
00173  M01S00131.comssru +++|
00174  M01S00132.comssru +++|          IFGT   IS,0
00175  M01S00133.comssru +++| IP       MICRO  1,IS,*NUM*
00176  M01S00134.comssru +++|          ELSE
00177  M01S00135.comssru +++| IP       MICRO  1,1,*0*
00178  M01S00136.comssru +++|          ENDIF
00179  M01S00137.comssru +++|
00180  M01S00138.comssru +++|          IFGT   FS,0
00181  M01S00139.comssru +++| FP       MICRO  DP+1,FS,*NUM*
00182  M01S00140.comssru +++|          ELSE
00183  M01S00141.comssru +++| FP       MICRO  1,1,*0*
00184  M01S00142.comssru +++|          ENDIF
00185  M01S00143.comssru +++|
00186  M01S00144.comssru +++|          ENDM
00187  M01S00145.comssru +++|          SPACE  4
00188  M01S00146.comssru +++|**        RANGE - DEFINE LOWER AND UPPER LIMITS.
00189  M01S00147.comssru +++|*
00190  M01S00148.comssru +++|* TAG     RANGE  NUML,NUMU
00191  M01S00149.comssru +++|*
00192  M01S00150.comssru +++|*         THE LOWER AND UPPER LIMITS ARE CONVERTED TO INTEGER FORMAT
00193  M01S00151.comssru +++|*         AND EQUATED TO APPROPRIATE TAGS.  THE FRACTIONAL PORTIONS OF
00194  M01S00152.comssru +++|*         THE LIMITS MUST CONTAIN THE SAME NUMBER OF DIGITS.  THE SIZE
00195  M01S00153.comssru +++|*         OF THE FRACTION IS REPRESENTED AS A POWER OF 10.
00196  M01S00154.comssru +++|*
00197  M01S00155.comssru +++|*         ENTRY  NUML = LOWER LIMIT - ANY REAL NUMBER.
00198  M01S00156.comssru +++|*                NUMU = UPPER LIMIT - ANY REAL NUMBER.
00199  M01S00157.comssru +++|*
00200  M01S00158.comssru +++|*         EXIT   TAG_L (MICRO) = LOWER LIMIT IN INTEGER FORMAT.
00201  M01S00159.comssru +++|*                TAG_U (MICRO) = UPPER LIMIT IN INTEGER FORMAT.
00202  M01S00160.comssru +++|*                TAG_D (MICRO) = POWER OF 10 MULTIPLIER.
00203  M01S00161.comssru +++|*
00204  M01S00162.comssru +++|*         EXAMPLE
00205  M01S00163.comssru +++|*                TAG   RANGE   1.3,5.6
00206  M01S00164.comssru +++|*                TAG_L = 13
00207  M01S00165.comssru +++|*                TAG_U = 56
00208  M01S00166.comssru +++|*                TAG_D = 10
00209  M01S00167.comssru +++|
00210  M01S00168.comssru +++|
00211  M01S00169.comssru +++|          MACRO  RANGE,TAG,NUML,NUMU
00212  M01S00170.comssru +++|          LOCAL  DL,NL,DU,NU
00213  M01S00171.comssru +++|
00214  M01S00172.comssru +++|*         EXTRACT INTEGER AND FRACTION FROM LOWER LIMIT.
00215  M01S00173.comssru +++|
00216  M01S00174.comssru +++|          EXTR   NUML
00217  M01S00175.comssru +++| DL       SET    "DV"
00218  M01S00176.comssru +++| NL       SET    "IP"*"DV"+"FP"
00219  M01S00177.comssru +++| TAG_L    MICRO  1,,*NL*
00220  M01S00178.comssru +++|
00221  M01S00179.comssru +++|*         EXTRACT INTEGER AND FRACTION FROM UPPER LIMIT.
00222  M01S00180.comssru +++|
00223  M01S00181.comssru +++|          EXTR   NUMU
00224  M01S00182.comssru +++| DU       SET    "DV"
00225  M01S00183.comssru +++| NU       SET    "IP"*"DV"+"FP"
00226  M01S00184.comssru +++| TAG_U    MICRO  1,,*NU*
00227  M01S00185.comssru +++|
00228  M01S00186.comssru +++|*         VALIDATE LIMITS.
00229  M01S00187.comssru +++|
00230  M01S00188.comssru +++|          IFGT   NL,NU,1
00231  M01S00189.comssru +++|          ERR    RANGE ERROR.
00232  M01S00190.comssru +++|          IFNE   DL,DU,1
00233  M01S00191.comssru +++|          ERR    FORMAT ERROR.
00234  M01S00192.comssru +++| TAG_D    MICRO  1,,*DU*
00235  M01S00193.comssru +++|
00236  M01S00194.comssru +++|          ENDM
00237  M01S00195.comssru +++|          SPACE  4
00238  M01S00196.comssru +++|***       DEFVL - DEFINE PARAMETER VALUE.
00239  M01S00197.comssru +++|*
00240  M01S00198.comssru +++|* TAG     DEFVL  NUM,R
00241  M01S00199.comssru +++|*
00242  M01S00200.comssru +++|*         THE GIVEN VALUE IS CONVERTED TO INTEGER FORMAT AND EQUATED
00243  M01S00201.comssru +++|*         TO THE ASSOCIATED TAG.  THE CONVERTED VALUE IS COMPARED TO
00244  M01S00202.comssru +++|*         THE PREVIOUSLY DEFINED LOWER (TAG_L) AND UPPER (TAG_U)
00245  M01S00203.comssru +++|*         LIMITS.  THE FRACTIONAL SIZE MUST BE THE SAME AS THAT
00246  M01S00204.comssru +++|*         DEFINED FOR THE LIMITS.
00247  M01S00205.comssru +++|*
00248  M01S00206.comssru +++|*         ENTRY  NUM = ANY REAL NUMBER.
00249  M01S00207.comssru +++|*                R = OMMITTED IF -
00250  M01S00208.comssru +++|*                    TAG_L = LOWER LIMIT.  (SEE RANGE MACRO).
00251  M01S00209.comssru +++|*                    TAG_U = UPPER LIMIT.
00252  M01S00210.comssru +++|*                    TAG_D = POWER OF 10 MULTIPLIER.
00253  M01S00211.comssru +++|*                R = RANGE VALUES TO CHECK AGAINST -
00254  M01S00212.comssru +++|*                    R_L = LOWER LIMIT.  (SEE RANGE MACRO).
00255  M01S00213.comssru +++|*                    R_U = UPPER LIMIT.
00256  M01S00214.comssru +++|*                    R_D = POWER OF 10 MULTIPLIER.
00257  M01S00215.comssru +++|*
00258  M01S00216.comssru +++|*         EXIT   TAG (EQUATE) = NUMBER IN INTEGER FORMAT.
00259  M01S00217.comssru +++|*                TAG_M (MICRO) = NUMBER IN MICRO FORMAT.
00260  M01S00218.comssru +++|*
00261  M01S00219.comssru +++|          MACRO  DEFVL,TAG,NUM,R
00262  M01S00220.comssru +++|
00263  M01S00221.comssru +++|*         EXTRACT INTEGER AND FRACTION.
00264  M01S00222.comssru +++|
00265  M01S00223.comssru +++|          EXTR   NUM
00266  M01S00224.comssru +++| TAG      EQU    "IP"*"DV"+"FP"
00267  M01S00225.comssru +++| TAG_M    MICRO  1,,*NUM*
00268  M01S00226.comssru +++| A        IFC    EQ,*R**
00269  M01S00227.comssru +++|
00270  M01S00228.comssru +++|*         VALIDATE NUMBER.
00271  M01S00229.comssru +++|
00272  M01S00230.comssru +++| B        IFNE   TAG,0
00273  M01S00231.comssru +++|          IFNE   "TAG_D","DV",1
00274  M01S00232.comssru +++|          ERR    FORMAT ERROR.
00275  M01S00233.comssru +++|          IFLT   TAG,"TAG_L",1
00276  M01S00234.comssru +++|          ERR    RANGE ERROR.
00277  M01S00235.comssru +++|          IFGT   TAG,"TAG_U",1
00278  M01S00236.comssru +++|          ERR    RANGE ERROR.
00279  M01S00237.comssru +++|
00280  M01S00238.comssru +++| B        ENDIF
00281  M01S00239.comssru +++| A        ELSE
00282  M01S00240.comssru +++|
00283  M01S00241.comssru +++|*         VALIDATE NUMBER.
00284  M01S00242.comssru +++|
00285  M01S00243.comssru +++|          IFNE   TAG,0
00286  M01S00244.comssru +++|          IFNE   "R_D","DV",1
00287  M01S00245.comssru +++|          ERR    FORMAT ERROR.
00288  M01S00246.comssru +++|          IFLT   TAG,"R_L",1
00289  M01S00247.comssru +++|          ERR    RANGE ERROR.
00290  M01S00248.comssru +++|          IFGT   TAG,"R_U",1
00291  M01S00249.comssru +++|          ERR    RANGE ERROR.
00292  M01S00250.comssru +++| A        ENDIF
00293  M01S00251.comssru +++|          ENDM
00294  M01S00252.comssru +++| CPRG     SPACE  4
00295  M01S00253.comssru +++|***       DEFINE RANGES FOR SRU PARAMETERS.
00296  M01S00254.comssru +++|*         THE FOLLOWING RANGES DEFINE BOTH THE MAGNITUDE AND FORMAT OF
00297  M01S00255.comssru +++|*         THE PARAMETERS.  THEY ARE DEFINED FOR VALIDATION PURPOSES AND
00298  M01S00256.comssru +++|*         CAN NOT BE TREATED AS INSTALLATION OPTIONS.  THEY MUST
00299  M01S00257.comssru +++|*         REMAIN AS SHOWN.
00300  M01S00258.comssru +++|
00301  M01S00259.comssru +++|
00302  M01S00260.comssru +++| CPRG     RANGE  .1,50.0     CPU TIME MULTIPLIER RANGE
00303  M01S00261.comssru +++|

Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00262.ns2753  ---| SMRG     RANGE  .1,50.0     S2 THRU S4 MULTIPLIER RANGE
00305  M01S00007.ns2753  +++| SMRG     RANGE  .1,50.0     S2 THRU S5 MULTIPLIER RANGE
00306  M01S00263.comssru +++|
00307  M01S00264.comssru +++| M1SR     RANGE  .1,25.5     M1 MULTIPLIER RANGE
00308  M01S00265.comssru +++|
00309  M01S00266.comssru +++| M2SR     RANGE  .001,1.023  M2 MULTIPLIER RANGE
00310  M01S00267.comssru +++|
00311  M01S00268.comssru +++| M3SR     RANGE  .001,1.023  M3 MULTIPLIER RANGE
00312  M01S00269.comssru +++|
00313  M01S00270.comssru +++| M4SR     RANGE  .001,1.023  M4 MULTIPLIER RANGE
00314  M01S00271.comssru +++|
00315  M01S00272.comssru +++| ADSR     RANGE  1,100       ADDER RANGE
00316  M01S00273.comssru +++|
00317  M01S00274.comssru +++| MDSR     RANGE  .001,1.000  MINIMUM DISPLAY RANGE
00318  M01S00275.comssru +++|

Seq #  *Modification Id* Act 
----------------------------+
00319  M02S00276.v22l602 ---| MCSR     RANGE  .001,10.000  MINIMUM CHARGE RANGE
00320  M01S00001.v22l602 +++| MCSR     RANGE  .001,10.000 MINIMUM CHARGE RANGE
00321  M01S00277.comssru +++|
00322  M01S00278.comssru +++| ICRG     RANGE  0,63        INCREMENT RANGE
00323  M01S00279.comssru +++|

Seq #  *Modification Id* Act 
----------------------------+
00324  M02S00280.ns2753  ---| IMPT     RANGE  0,4         PRUS TRANSFERRED INCREMENT RANGE
00325  M01S00008.ns2753  +++| IMPT     RANGE  0,4         MS PRUS TRANSFERRED INCREMENT RANGE
00326  M01S00009.ns2753  +++|
00327  M01S00010.ns2753  +++| IODT     RANGE  0,4         OD PRUS TRANSFERRED INCREMENT RANGE
00328  M01S00281.comssru +++|

Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00282.v22l602 ---| MPSR     RANGE  1,100       MAP III MULTIPLIER RANGE
00330  M01S00002.v22l602 +++| MPSR     RANGE  1,100       MAP MULTIPLIER RANGE
00331  M01S00283.comssru +++| CPU      SPACE  4
00332  M01S00284.comssru +++| MT1      IF     -DEF,MT$
00333  M01S00285.comssru +++|
00334  M01S00286.comssru +++|***       DEFINE FIXED MULTIPLIER VALUES FOR CPU TIME.
00335  M01S00287.comssru +++|*         THE FOLLOWING PARAMETERS ARE INSTALLATION OPTIONS AND CAN BE
00336  M01S00288.comssru +++|*         CHANGED BY THE CENTRAL SITE.  THEY MUST LIE WITHIN THE RANGE
00337  M01S00289.comssru +++|*         PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT (NUMBER OF
00338  M01S00290.comssru +++|*         DECIMAL PLACES) AS THE LIMITS. IN ALL CASES, A VALUE OF 0
00339  M01S00291.comssru +++|*         IS ACCEPTABLE.
00340  M01S00292.comssru +++|*
00341  M01S00293.comssru +++|*         THESE MULTIPLIERS DEFINE THE VALUES TO BE USED
00342  M01S00294.comssru +++|*         FOR THE S0 AND S1 MULTIPLIERS (CPU TIME ACTIVITY).
00343  M01S00295.comssru +++|*         WHEN CPU MONITOR INITIALIZES, TWO PARAMETERS ARE
00344  M01S00296.comssru +++|*         CHECKED TO DETERMINE WHICH MULTIPLIER TO USE FOR
00345  M01S00297.comssru +++|*         S0 AND S1. THE FIRST IS THE IPRDECK PARAMETER
00346  M01S00298.comssru +++|*         AND SECOND, THE HARDWARE OPTION CONTROL BITS SET
00347  M01S00299.comssru +++|*         AT SYSTEM DEAD START.
00348  M01S00300.comssru +++|*
00349  M01S00301.comssru +++|*         THE FORMAT OF THE IPRDECK ENTRY IS
00350  M01S00302.comssru +++|*
00351  M01S00303.comssru +++|*                CPM,N = XX,N = XX.
00352  M01S00304.comssru +++|*
00353  M01S00305.comssru +++|*         WHERE N = 0 OR 1 FOR CPU0 OR CPU1
00354  M01S00306.comssru +++|*              XX = INDEX VALUE INTO TIPR TABLE IN CPUMTR PRESET.
00355  M01S00307.comssru +++|*
00356  M01S00308.comssru +++|*
00357  M01S00309.comssru +++|*         IF THERE IS NO IPRDECK ENTRY, THEN THE FOLLOWING
00358  M01S00310.comssru +++|*         MULTIPLIERS ARE USED -
00359  M01S00311.comssru +++|*

Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00312.ns21000 ---|*         1.) CYBER 170-8X5 CPU ONLY.
00361  M01S00313.comssru +++|*         CP64 - 6200, 6400, 6500, 6700 (CPU1),
00362  M01S00314.comssru +++|*                CYBER 71, CYBER 72, CYBER 73, CYBER 74 (CPU1).
00363  M01S00315.comssru +++|*
00364  M01S00316.comssru +++|*         CP66 - 6600, 6700 (CPU0), CYBER 74 (CPU0).
00365  M01S00317.comssru +++|*
00366  M01S00318.comssru +++|*         C173 - CYBER 171, CYBER 172, CYBER 173, CYBER 174,
00367  M01S00319.comssru +++|*                CYBER 170-720, CYBER 170-730.
00368  M01S00320.comssru +++|*
00369  M01S00321.comssru +++|*         C175 - CYBER 175 (ALL MODELS).
00370  M01S00322.comssru +++|*                CYBER 170-740, CYBER 170-750, CYBER 170-760.
00371  M01S00323.comssru +++|*
00372  M01S00324.comssru +++|*         C176 - CYBER 176 (ALL MODELS).
00373  M01S00325.comssru +++|*
00374  M01S00001.v23l617 +++|*         C810 - CYBER 180-810.
00375  M01S00002.v23l617 +++|*
00376  M01S00006.ns21000 +++|*         C815 - CYBER 170-815.
00377  M01S00007.ns21000 +++|*
00378  M01S00326.comssru +++|*         C825 - CYBER 170-825.
00379  M01S00327.comssru +++|*
00380  M01S00003.v23l617 +++|*         C810 - CYBER 180-830.
00381  M01S00004.v23l617 +++|*
00382  M01S00328.comssru +++|*         C835 - CYBER 170-835.
00383  M01S00001.241l630 +++|*
00384  M01S00002.241l630 +++|*         C840 - CYBER 180-840.
00385  M01S00329.comssru +++|*
00386  M01S00023.ns22000 +++|*         C845 - CYBER 170-845.
00387  M01S00024.ns22000 +++|*
00388  M01S00003.241l630 +++|*         C850 - CYBER 180-850.
00389  M01S00004.241l630 +++|*
00390  M01S00330.comssru +++|*         C855 - CYBER 170-855.
00391  M01S00005.241l630 +++|*
00392  M01S00006.241l630 +++|*         C860 - CYBER 180-860.
00393  M01S00008.ns21000 +++|*
00394  M01S00009.ns21000 +++|*         C865 - CYBER 170-865.
00395  M01S00010.ns21000 +++|*
00396  M01S00011.ns21000 +++|*         C875 - CYBER 170-875.
00397  M01S00007.241l630 +++|*
00398  M01S00001.ns2642  +++|*         C961 - CYBER 180-960-11.
00399  M01S00002.ns2642  +++|*
00400  M01S00003.ns2642  +++|*         C963 - CYBER 180-960-31/32.
00401  M01S00004.ns2642  +++|*
00402  M01S00008.241l630 +++|*         C990 - CYBER 180-990.
00403  M01S00331.comssru +++|*
00404  M01S00332.comssru +++|*         NOTE -
00405  M01S00333.comssru +++|*         IF A MULTIPLIER IS DEFINED TO BE 0.0 OR 1.0, NO MULTIPLY IS
00406  M01S00334.comssru +++|*         PERFORMED.  A MULTIPLY BY 0.0 NEGATES CP ACCUMULATION AND
00407  M01S00335.comssru +++|*         PREVENTS TIME-SLICING.  A MULTIPLIER OF 1.0 IS REDUNDANT.  IN
00408  M01S00336.comssru +++|*         BOTH CASES, UNFACTORED CP TIME IS ACCUMULATED.
00409  M01S00337.comssru +++|*
00410  M01S00338.comssru +++|*         ALSO, IF A NON INTEGER CP MULTIPLIER IS SELECTED, CP TIME ACCU
00411  M01S00339.comssru +++|*         WILL BE INACCURATE BECAUSE THE LEAST SIGNIFICANT DIGITS AFTER
00412  M01S00340.comssru +++|*         MULTIPLICATION ARE LOST. HOWEVER, THE SRU ACCUMULATION IS NOT
00413  M01S00341.comssru +++|*         AFFECTED AT ALL IN THE SAME WAY.
00414  M01S00342.comssru +++|
00415  M01S00343.comssru +++|
00416  M01S00344.comssru +++|**        TCPM - TABLE OF CPU MULTIPLIERS.
00417  M01S00345.comssru +++|

Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00346.ns21000 ---| CPS2     DEFVL  1.0,CPRG    CYBER 170-8X5 CPU
00419  M01S00347.comssru +++| CP62     DEFVL  1.0,CPRG    6200
00420  M01S00348.comssru +++| CP64     DEFVL  1.0,CPRG    6400
00421  M01S00349.comssru +++| CP65     DEFVL  1.0,CPRG    6500
00422  M01S00350.comssru +++| CP66     DEFVL  1.0,CPRG    6600
00423  M01S00351.comssru +++| CP67     DEFVL  1.0,CPRG    6700
00424  M01S00352.comssru +++| CP71     DEFVL  1.0,CPRG    CYBER 71
00425  M01S00353.comssru +++| CP72     DEFVL  1.0,CPRG    CYBER 72
00426  M01S00354.comssru +++| CP73     DEFVL  1.0,CPRG    CYBER 73
00427  M01S00355.comssru +++| CP74     DEFVL  1.0,CPRG    CYBER 74
00428  M01S00356.comssru +++| C171     DEFVL  1.0,CPRG    CYBER 171
00429  M01S00357.comssru +++| C172     DEFVL  1.0,CPRG    CYBER 172
00430  M01S00358.comssru +++| C173     DEFVL  1.0,CPRG    CYBER 173
00431  M01S00359.comssru +++| C174     DEFVL  1.0,CPRG    CYBER 174
00432  M01S00360.comssru +++| C175     DEFVL  1.0,CPRG    CYBER 175
00433  M01S00361.comssru +++| C176     DEFVL  1.0,CPRG    CYBER 176
00434  M01S00362.comssru +++| C720     DEFVL  1.0,CPRG    CYBER 170-720
00435  M01S00363.comssru +++| C730     DEFVL  1.0,CPRG    CYBER 170-730
00436  M01S00364.comssru +++| C740     DEFVL  1.0,CPRG    CYBER 170-740
00437  M01S00365.comssru +++| C750     DEFVL  1.0,CPRG    CYBER 170-750
00438  M01S00366.comssru +++| C760     DEFVL  1.0,CPRG    CYBER 170-760
00439  M01S00005.v23l617 +++| C810     DEFVL  1.0,CPRG    CYBER 180-810
00440  M01S00012.ns21000 +++| C815     DEFVL  1.0,CPRG    CYBER 170-815
00441  M01S00367.comssru +++| C825     DEFVL  1.0,CPRG    CYBER 170-825
00442  M01S00006.v23l617 +++| C830     DEFVL  1.0,CPRG    CYBER 180-830
00443  M01S00368.comssru +++| C835     DEFVL  1.0,CPRG    CYBER 170-835
00444  M01S00009.241l630 +++| C840     DEFVL  1.0,CPRG    CYBER 180-840
00445  M01S00025.ns22000 +++| C845     DEFVL  1.0,CPRG    CYBER 170-845
00446  M01S00010.241l630 +++| C850     DEFVL  1.0,CPRG    CYBER 180-850
00447  M01S00369.comssru +++| C855     DEFVL  1.0,CPRG    CYBER 170-855
00448  M01S00011.241l630 +++| C860     DEFVL  1.0,CPRG    CYBER 180-860
00449  M01S00013.ns21000 +++| C865     DEFVL  1.0,CPRG    CYBER 170-865
00450  M01S00014.ns21000 +++| C875     DEFVL  1.0,CPRG    CYBER 170-875
00451  M01S00005.ns2642  +++| C961     DEFVL  1.0,CPRG    CYBER 180-960-11
00452  M01S00006.ns2642  +++| C963     DEFVL  1.0,CPRG    CYBER 180-960-31/32
00453  M01S00012.241l630 +++| C990     DEFVL  1.0,CPRG    CYBER 180-990
00454  M01S00370.comssru +++| ICM1     DEFVL  1.0,CPRG    INSTALLATION DEFINED - 1
00455  M01S00371.comssru +++| ICM2     DEFVL  2.0,CPRG    INSTALLATION DEFINED - 2
00456  M01S00372.comssru +++| ICM3     DEFVL  3.0,CPRG    INSTALLATION DEFINED - 3
00457  M01S00373.comssru +++| ICM4     DEFVL  4.0,CPRG    INSTALLATION DEFINED - 4
00458  M01S00374.comssru +++| ICM5     DEFVL  5.0,CPRG    INSTALLATION DEFINED - 5
00459  M01S00001.ns2068  +++|
00460  M01S00002.ns2068  +++|
00461  M01S00003.ns2068  +++|**        TIPRL - SIZE OF *TIPRL* TABLE IN *CPUMTR*.
00462  M01S00004.ns2068  +++|*
00463  M01S00005.ns2068  +++|*         *TIPRL* IS USED BY *SET* TO ENSURE THE CPU INDEX
00464  M01S00006.ns2068  +++|*         SPECIFIED ON THE *CPM* IPRDECK ENTRY IS WITHIN RANGE.
00465  M01S00007.ns2068  +++|
00466  M01S00008.ns2068  +++|

Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00009.241l630 ---| TIPRL    EQU    46B

Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00013.ns2642  ---| TIPRL    EQU    47B
00469  M01S00007.ns2642  +++| TIPRL    EQU    51B
00470  M01S00375.comssru +++| SNSR     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00376.ns2753  ---|***       DEFINE FIXED MULTIPLIER VALUES FOR THE S2 THRU S4 MULTIPLIERS.
00472  M01S00011.ns2753  +++|***       DEFINE FIXED MULTIPLIER VALUES FOR THE S2 THRU S5 MULTIPLIERS.
00473  M01S00377.comssru +++|*         THE FOLLOWING PARAMETERS ARE INSTALLATION OPTIONS AND CAN BE
00474  M01S00378.comssru +++|*         CHANGED BY THE CENTRAL SITE.  THEY MUST LIE WITHIN THE RANGE
00475  M01S00379.comssru +++|*         PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT (NUMBER OF
00476  M01S00380.comssru +++|*         DECIMAL PLACES) AS THE LIMITS. IN ALL CASES, A VALUE
00477  M01S00381.comssru +++|*         OF ZERO (0) IS ACCEPTABLE.
00478  M01S00382.comssru +++|
00479  M01S00383.comssru +++|
00480  M01S00384.comssru +++| S2SR     DEFVL  1.0,SMRG    MS MULTIPLIER
00481  M01S00385.comssru +++|
00482  M01S00386.comssru +++| S3SR     DEFVL  1.0,SMRG    MT MULTIPLIER
00483  M01S00387.comssru +++|
00484  M01S00388.comssru +++| S4SR     DEFVL  1.0,SMRG    PF MULTIPLIER
00485  M01S00012.ns2753  +++|
00486  M01S00013.ns2753  +++| S5SR     DEFVL  1.0,SMRG    OD MULTIPLIER
00487  M01S00389.comssru +++| SRU      SPACE  4
00488  M01S00390.comssru +++|***       DEFINE DEFAULT VALUES FOR VARIABLE MULTIPLIERS.
00489  M01S00391.comssru +++|*         THE FOLLOWING PARAMETERS ARE INSTALLATION OPTIONS AND CAN BE
00490  M01S00392.comssru +++|*         CHANGED BY THE CENTRAL SITE.  THEY MUST LIE WITHIN THE RANGE
00491  M01S00393.comssru +++|*         PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT (NUMBER OF
00492  M01S00394.comssru +++|*         DECIMAL PLACES) AS THE LIMITS. IN ALL CASES, A VALUE
00493  M01S00395.comssru +++|*         OF ZERO (0) IS ACCEPTABLE.
00494  M01S00396.comssru +++|
00495  M01S00397.comssru +++|
00496  M01S00398.comssru +++| M1SR     DEFVL  1.0         M1 MULTIPLIER  (OVERALL)
00497  M01S00399.comssru +++|
00498  M01S00400.comssru +++| M2SR     DEFVL  0.100       M2 MULTIPLIER  (IO)
00499  M01S00401.comssru +++|
00500  M01S00402.comssru +++| M3SR     DEFVL  0.003       M3 MULTIPLIER  (CM)
00501  M01S00403.comssru +++|
00502  M01S00404.comssru +++| M4SR     DEFVL  0.003       M4 MULTIPLIER  (ECS)
00503  M01S00405.comssru +++|
00504  M01S00406.comssru +++| ADSR     DEFVL  0           ADDER
00505  M01S00407.comssru +++|

Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00408.v22l602 ---| MPSR     DEFVL  1           MAP III MULTIPLIER DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00409.v22l602 ---|
00508  M01S00003.v22l602 +++| MPSR     DEFVL  1           MAP MULTIPLIER DEFAULT
00509  M01S00410.comssru +++| SRU      SPACE  4,10
00510  M01S00411.comssru +++|***       DEFINE SRU DISPLAY CONTROLS.
00511  M01S00412.comssru +++|*         THE FOLLOWING VALUES ARE INSTALLATION OPTIONS AND CAN BE
00512  M01S00413.comssru +++|*         CHANGED BY THE CENTRAL SITE. THEY MUST FALL WITHIN THE
00513  M01S00414.comssru +++|*         RANGE PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT
00514  M01S00415.comssru +++|*         AS THE LIMITS. IN ALL CASES A VALUE OF 0 (ZERO) IS
00515  M01S00416.comssru +++|*         ACCEPTABLE.
00516  M01S00417.comssru +++|*
00517  M01S00418.comssru +++|*         THE FOLLOWING VALUE DEFINES THE MINIMUM CHARGE TO BE MADE
00518  M01S00419.comssru +++|*         AGAINST A CHARGE/PROJECT NUMBER. IF THE ACCUMULATED SRUS ARE
00519  M01S00420.comssru +++|*         LESS THAN *MCSR*, THE A CHARGE OF *MCSR* IS DISPLAYED.
00520  M01S00421.comssru +++|
00521  M01S00422.comssru +++|
00522  M01S00423.comssru +++| MCSR     DEFVL  1.000       MINIMUM CHARGE
00523  M01S00424.comssru +++|
00524  M01S00425.comssru +++|*         THE FOLLOWING VALUE DEFINES THE MIMINUM VALUE TO BE DISPLAYED
00525  M01S00426.comssru +++|*         FOR EACH TELEX JOB STEP. IF THE ACCUMULATED SRUS FOR A JOB
00526  M01S00427.comssru +++|*         STEP IS BELOW *MDSR*, THEN SRUS ARE NOT DISPLAYED.
00527  M01S00428.comssru +++|
00528  M01S00429.comssru +++| MDSR     DEFVL  .100        MINIMUM DISPLAY SRU
00529  M01S00430.comssru +++| AD       SPACE  4
00530  M01S00431.comssru +++|***       DEFINE INCREMENTS FOR THE *ADDER* ACCUMULATOR.
00531  M01S00432.comssru +++|*         THE FOLLOWING PARAMETERS ARE INSTALLATION OPTIONS AND CAN
00532  M01S00433.comssru +++|*         BE CHANGED BY THE CENTRAL SITE.  THEY MUST LIE WITHIN THE
00533  M01S00434.comssru +++|*         RANGE PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT AS
00534  M01S00435.comssru +++|*         THE LIMITS.
00535  M01S00436.comssru +++|*
00536  M01S00437.comssru +++|*         THE FOLLOWING INCREMENTS ARE FOR EACH OPERATION
00537  M01S00438.comssru +++|
00538  M01S00439.comssru +++| IAAC     DEFVL  1,ICRG      ACCFAM OPERATION
00539  M01S00440.comssru +++|
00540  M01S00441.comssru +++| IACH     DEFVL  1,ICRG      CHARGE OPERATION
00541  M01S00442.comssru +++|
00542  M01S00443.comssru +++| IARX     DEFVL  1,ICRG      RESEX OPERATION
00543  M01S00444.comssru +++| MS       SPACE  4
00544  M01S00445.comssru +++|***       DEFINE INCREMENTS FOR THE *MS* IO ACCUMULATOR.
00545  M01S00446.comssru +++|*         THE FOLLOWING PARAMETERS ARE INSTALLATION OPTIONS AND CAN BE
00546  M01S00447.comssru +++|*         CHANGED BY THE CENTRAL SITE.  THEY MUST LIE WITHIN THE RANGE
00547  M01S00448.comssru +++|*         PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT
00548  M01S00449.comssru +++|*         AS THE LIMITS.
00549  M01S00450.comssru +++|*
00550  M01S00451.comssru +++|*         THE FORMULA FOR CALCULATING THE MS INCREMENT IS -
00551  M01S00452.comssru +++|*
00552  M01S00453.comssru +++|*         MS INCREMENT = OPERATION CHARGE + PENALTY +
00553  M01S00454.comssru +++|*                            PRUS TRANSFERRED * (2**IMPT)
00554  M01S00455.comssru +++|
00555  M01S00456.comssru +++|
00556  M01S00457.comssru +++|*         THE FOLLOWING OPERATION CHARGES ARE APPLIED FOR THE
00557  M01S00458.comssru +++|*         DEFINED FUNCTIONS.
00558  M01S00459.comssru +++|
00559  M01S00460.comssru +++|
00560  M01S00461.comssru +++| IMLL     DEFVL  1,ICRG      LIBRARY LOAD    (LDR)
00561  M01S00462.comssru +++| IMCS     DEFVL  1,ICRG      CONTROL STATEMENT (1AJ)
00562  M01S00463.comssru +++| IMMS     DEFVL  1,ICRG      DAYFILE MESSAGE (1MA)
00563  M01S00464.comssru +++|
00564  M01S00465.comssru +++| IMRD     DEFVL  2,ICRG      READ (CIO)
00565  M01S00466.comssru +++| IMWT     DEFVL  2,ICRG      WRITE (CIO)
00566  M01S00467.comssru +++| IMSK     DEFVL  2,ICRG      SKIP (CIO)
00567  M01S00468.comssru +++| IMOP     DEFVL  1,ICRG      OPEN (CIO)
00568  M01S00469.comssru +++| IMCL     DEFVL  1,ICRG      CLOSE (CIO)
00569  M01S00470.comssru +++| IMRU     DEFVL  1,ICRG      RETURN/UNLOAD/EVICT (CIO)
00570  M01S00471.comssru +++|
00571  M01S00472.comssru +++|
00572  M01S00473.comssru +++|*         REWIND IS A FREE FUNCTION (ALSO SKIP BACKWARD WITH SKIP
00573  M01S00474.comssru +++|*         COUNT = 777777B, WHICH IS TREATED SIMILAR TO REWIND).
00574  M01S00475.comssru +++|*         *CLOSE/RETURN* AND *CLOSE/UNLOAD* FUNCTIONS INCUR AN
00575  M01S00476.comssru +++|*         OPERATION CHARGE OF *IMCL* + *IMRU*.
00576  M01S00477.comssru +++|
00577  M01S00478.comssru +++|
00578  M01S00479.comssru +++|*         AN ADDITIONAL PENALTY OF *IMRL* IF ADDED FOR EACH
00579  M01S00480.comssru +++|*         RANDOM REPOSITIONING OPERATION FOR A READ-WITH-LIST
00580  M01S00481.comssru +++|*         FUNCTION (*READLS*/*RPHRLS*), IF THE RANDOM ADDRESS
00581  M01S00482.comssru +++|*         SPECIFIED BY THE NEXT LIST ENTRY IF LESS THAN THE PRIOR
00582  M01S00483.comssru +++|*         RANDOM ADDRESS (REQUIRES BACKWARD REPOSITIONING)
00583  M01S00484.comssru +++|*         OR EXCEEDS *IMPL* PRUS FORWARD FROM THE PREVIOUS POSITION.
00584  M01S00485.comssru +++|
00585  M01S00486.comssru +++| IMRL     DEFVL  3,ICRG      READ WITH LIST (CIO)
00586  M01S00487.comssru +++| IMPL     EQU    128         POSITION INTERVAL (CIO)
00587  M01S00488.comssru +++|
00588  M01S00489.comssru +++|
00589  M01S00490.comssru +++|*         INCREMENTS FOR CIO PRU TRANSFER OPERATIONS ARE
00590  M01S00491.comssru +++|*         (PRUS TRANSFERRED * (2**IMPT)).
00591  M01S00492.comssru +++|
00592  M01S00493.comssru +++| IMPT     DEFVL  2           PRUS TRANSFERRED INCREMENT (CIO)
00593  M01S00494.comssru +++|
00594  M01S00495.comssru +++|*         PRUS TRANSFERRED ARE ACCUMULATED FOR ALL OPERATIONS
00595  M01S00496.comssru +++|*         REQUIRING A DATA TRANSFER, INCLUDING *CIO* READ, WRITE,
00596  M01S00497.comssru +++|*         AND SKIP (EXCEPT BACKSPACE PRU AND SKIPEI), AND RANDOM
00597  M01S00498.comssru +++|*         FILE DIRECTORY POSITIONING AND TRANSFER FOR *CIO* OPEN
00598  M01S00499.comssru +++|*         AND CLOSE OPERATIONS.  SKIP BACKWARD TO EOR/EOF (AND
00599  M01S00500.comssru +++|*         RANDOM OPEN DIRECTORY POSITIONING) CHARGES FOR PRUS THAT
00600  M01S00501.comssru +++|*         ARE SKIPPED BACKWARDS, BUT NOT FOR THE EXCESS PRUS READ
00601  M01S00502.comssru +++|*         TO DETERMINE EOR AND EOF BOUNDARIES.
00602  M01S00014.ns2753  +++| OD       SPACE  4
00603  M01S00015.ns2753  +++|***       DEFINE INCREMENTS FOR THE *OD* IO ACCUMULATOR.
00604  M01S00016.ns2753  +++|*         THE FOLLOWING PARAMETERS ARE INSTALLATION OPTIONS AND CAN BE
00605  M01S00017.ns2753  +++|*         CHANGED BY THE CENTRAL SITE.  THEY MUST LIE WITHIN THE RANGE
00606  M01S00018.ns2753  +++|*         PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT
00607  M01S00019.ns2753  +++|*         AS THE LIMITS.
00608  M01S00020.ns2753  +++|*
00609  M01S00021.ns2753  +++|*         THE FORMULA FOR CALCULATING THE OD INCREMENT IS -
00610  M01S00022.ns2753  +++|*
00611  M01S00023.ns2753  +++|*         OD INCREMENT = OPERATION CHARGE +
00612  M01S00024.ns2753  +++|*                            PRUS TRANSFERRED * (2**IODT)
00613  M01S00025.ns2753  +++|
00614  M01S00026.ns2753  +++|
00615  M01S00027.ns2753  +++|*         THE FOLLOWING OPERATION CHARGES ARE APPLIED FOR THE
00616  M01S00028.ns2753  +++|*         DEFINED FUNCTIONS.
00617  M01S00029.ns2753  +++|
00618  M01S00030.ns2753  +++|
00619  M01S00031.ns2753  +++| IORD     DEFVL  2,ICRG      READ (CIO)
00620  M01S00032.ns2753  +++| IOWT     DEFVL  2,ICRG      WRITE (CIO)
00621  M01S00033.ns2753  +++| IOSK     DEFVL  2,ICRG      SKIP (CIO)
00622  M01S00034.ns2753  +++| IOOP     DEFVL  1,ICRG      OPEN (CIO)
00623  M01S00035.ns2753  +++| IOCL     DEFVL  1,ICRG      CLOSE (CIO)
00624  M01S00036.ns2753  +++| IORU     DEFVL  1,ICRG      RETURN/UNLOAD/EVICT (CIO)
00625  M01S00037.ns2753  +++|
00626  M01S00038.ns2753  +++|
00627  M01S00039.ns2753  +++|*         REWIND IS A FREE FUNCTION (ALSO SKIP BACKWARD WITH SKIP
00628  M01S00040.ns2753  +++|*         COUNT = 777777B, WHICH IS TREATED SIMILAR TO REWIND).
00629  M01S00041.ns2753  +++|*         *CLOSE/RETURN* AND *CLOSE/UNLOAD* FUNCTIONS INCUR AN
00630  M01S00042.ns2753  +++|*         OPERATION CHARGE OF *IOCL* + *IORU*.
00631  M01S00043.ns2753  +++|
00632  M01S00044.ns2753  +++|
00633  M01S00045.ns2753  +++|*         INCREMENTS FOR CIO PRU TRANSFER OPERATIONS ARE
00634  M01S00046.ns2753  +++|*         (PRUS TRANSFERRED * (2**IODT)).
00635  M01S00047.ns2753  +++|
00636  M01S00048.ns2753  +++| IODT     DEFVL  2           PRUS TRANSFERRED INCREMENT (CIO)
00637  M01S00049.ns2753  +++|
00638  M01S00050.ns2753  +++|*         PRUS TRANSFERRED ARE ACCUMULATED FOR ALL OPERATIONS
00639  M01S00051.ns2753  +++|*         REQUIRING A DATA TRANSFER, INCLUDING *CIO* READ, WRITE,
00640  M01S00052.ns2753  +++|*         AND SKIP (EXCEPT BACKSPACE PRU AND SKIPEI), AND RANDOM
00641  M01S00053.ns2753  +++|*         FILE DIRECTORY POSITIONING AND TRANSFER FOR *CIO* OPEN
00642  M01S00054.ns2753  +++|*         AND CLOSE OPERATIONS.  SKIP BACKWARD TO EOR/EOF (AND
00643  M01S00055.ns2753  +++|*         RANDOM OPEN DIRECTORY POSITIONING) CHARGES FOR PRUS THAT
00644  M01S00056.ns2753  +++|*         ARE SKIPPED BACKWARDS, BUT NOT FOR THE EXCESS PRUS READ
00645  M01S00057.ns2753  +++|*         TO DETERMINE EOR AND EOF BOUNDARIES.
00646  M01S00503.comssru +++| MT       SPACE 4
00647  M01S00504.comssru +++| MT1      ENDIF
00648  M01S00505.comssru +++|
00649  M01S00506.comssru +++|***       DEFINE INCREMENTS FOR THE *MT* IO ACCUMULATOR.
00650  M01S00507.comssru +++|*         THE FOLLOWING PARAMETERS ARE INSTALLATION OPTIONS AND CAN BE
00651  M01S00508.comssru +++|*         CHANGED BY THE CENTRAL SITE.  THEY MUST LIE WITHIN THE RANGE
00652  M01S00509.comssru +++|*         PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT
00653  M01S00510.comssru +++|*         AS THE LIMITS.
00654  M01S00511.comssru +++|*
00655  M01S00512.comssru +++|*         THE FOLLOWING INCREMENTS ARE FOR EACH PRU PROCESSED OR
00656  M01S00513.comssru +++|*         FOR EACH OPERATION.
00657  M01S00514.comssru +++|
00658  M01S00515.comssru +++|
00659  M01S00516.comssru +++| ITRW     DEFVL  4,ICRG      READ/WRITE   (CIO/1MT)
00660  M01S00517.comssru +++| ITRL     DEFVL  5,ICRG      READ L TAPE  (CIO/1MT)
00661  M01S00518.comssru +++| ITPO     DEFVL  2,ICRG      POSITION     (CIO/1MT)
00662  M01S00519.comssru +++| ITCL     DEFVL  1,ICRG      OPEN/CLOSE   (CIO/1MT)
00663  M01S00520.comssru +++| ITWL     DEFVL  6,ICRG      WRITE L TAPE (CIO/1MT)
00664  M01S00521.comssru +++| PF       SPACE  4
00665  M01S00522.comssru +++| MT2      IF     -DEF,MT$
00666  M01S00523.comssru +++|
00667  M01S00524.comssru +++|***       DEFINE INCREMENTS FOR THE *PF* IO ACCUMULATOR.
00668  M01S00525.comssru +++|*         THE FOLLOWING PARAMETERS ARE INSTALLATION OPTIONS AND CAN BE
00669  M01S00526.comssru +++|*         CHANGED BY THE CENTRAL SITE.  THEY MUST LIE WITHIN THE RANGE
00670  M01S00527.comssru +++|*         PREVIOUSLY DEFINED AND MUST BE IN THE SAME FORMAT
00671  M01S00528.comssru +++|*         AS THE LIMITS. THE INCREMENTS ARE FOR EACH OPERATION.
00672  M01S00529.comssru +++|
00673  M01S00530.comssru +++|
00674  M01S00531.comssru +++|*         PFM FUNCTIONS.
00675  M01S00532.comssru +++|
00676  M01S00533.comssru +++| IPSV     DEFVL  1,ICRG      SAVE
00677  M01S00534.comssru +++| IPRP     DEFVL  1,ICRG      REPLACE
00678  M01S00535.comssru +++| IPGT     DEFVL  1,ICRG      GET
00679  M01S00536.comssru +++| IPAP     DEFVL  20,ICRG     APPEND
00680  M01S00537.comssru +++| IPDF     DEFVL  4,ICRG      DEFINE
00681  M01S00538.comssru +++| IPAT     DEFVL  4,ICRG      ATTACH
00682  M01S00539.comssru +++| IPPM     DEFVL  1,ICRG      PERMIT
00683  M01S00540.comssru +++| IPCG     DEFVL  1,ICRG      CHANGE
00684  M01S00541.comssru +++| IPPG     DEFVL  1,ICRG      PURGE
00685  M01S00542.comssru +++| IPCT     DEFVL  1,ICRG      CATLIST
00686  M01S00543.comssru +++| IPUA     DEFVL  1,ICRG      UATTACH
00687  M01S00544.comssru +++| IPSA     DEFVL  1,ICRG      SETASA
00688  M01S00545.comssru +++| IPAF     DEFVL  1,ICRG      SETAF
00689  M01S00546.comssru +++| IPSD     DEFVL  1,ICRG      SETDA
00690  M01S00547.comssru +++| IPDD     DEFVL  1,ICRG      DROPDS
00691  M01S00548.comssru +++| IPAN     DEFVL  1,ICRG      ASSIGNPF
00692  M01S00026.ns22000 +++| IPAC     DEFVL  1,ICRG      SETPFAC
00693  M01S00027.ns22000 +++| IPAL     DEFVL  1,ICRG      SETPFAL
00694  M01S00007.v23l617 +++| IPUG     DEFVL  1,ICRG      UGET
00695  M01S00008.v23l617 +++| IPUR     DEFVL  1,ICRG      UREPLACE
00696  M01S00009.v23l617 +++| IPDI     DEFVL  1,ICRG      DROPIDS
00697  M01S00010.v23l617 +++| IPDP     DEFVL  1,ICRG      DELPFC
00698  M01S00011.v23l617 +++| IPRS     DEFVL  1,ICRG      RPFSTAT
00699  M01S00001.253l688 +++| IPSP     DEFVL  1,ICRG      STAGEPF
00700  M01S00012.v23l617 +++|
00701  M01S00549.comssru +++|
00702  M01S00550.comssru +++|*         CHARGES MADE ON ALL PFM FUNCTIONS.
00703  M01S00551.comssru +++|
00704  M01S00552.comssru +++| IPCS     DEFVL  4,ICRG      CATALOG SEARCH
00705  M01S00553.comssru +++| IPCE     DEFVL  0,ICRG      CATALOG ENTRY RETURNED
00706  M01S00554.comssru +++| IPVA     DEFVL  1,ICRG      VALIDUX ACCESS
00707  M01S00555.comssru +++| IPPA     DEFVL  1,ICRG      PERMIT FILE ACCESS
00708  M01S00556.comssru +++| IPAD     DEFVL  1,ICRG      ALTERNATE DEVICE ACCESS
00709  M01S00013.v23l617 +++|
00710  M01S00557.comssru +++|
00711  M01S00558.comssru +++|*         INDIRECT FILE DEVICE TRANSFER CHARGES.
00712  M01S00559.comssru +++|
00713  M01S00560.comssru +++| IPPR     DEFVL  4,ICRG      INCREMENT APPLIED AT PRU TRANSFER INTERVAL
00714  M01S00561.comssru +++| IPPN     DEFVL  10,ICRG     INTERVAL (IN PRUS) FOR APPLYING INCREMENT
00715  M01S00562.comssru +++| CHARGE   SPACE  4
00716  M01S00563.comssru +++|***       CHARGE CONTROL CONVERSION PARAMETERS.
00717  M01S00564.comssru +++|*         THESE PARAMETERS ARE INSTALLATION OPTIONS AND CAN BE
00718  M01S00565.comssru +++|*         CHANGED BY THE CENTRAL SITE.
00719  M01S00566.comssru +++|*         THE FOLLOWING VALUES ARE USED TO COVERT THE SRU
00720  M01S00567.comssru +++|*         INDICES IN PROFILO TO THE SRU MULTIPLIER VALUES.
00721  M01S00568.comssru +++|*         THESE VALUES MUST FALL WITHIN THE APPROPRIATE
00722  M01S00569.comssru +++|*         PREDEFINED MULTIPLIER RANGE AND MUST BE OF THE SAME
00723  M01S00570.comssru +++|*         FORMAT (NUMBER OF DECIMAL PLACES) AS THE PREDEFINED
00724  M01S00571.comssru +++|*         RANGES.
00725  M01S00572.comssru +++|*
00726  M01S00573.comssru +++| CHARGE   SPACE  4
00727  M01S00574.comssru +++|***       THE FOLLOWING ALGORITHM IS USED TO CONVERT THE
00728  M01S00575.comssru +++|*         PROFILO SRU INDICES TO THE SRU MULTIPLIER.
00729  M01S00576.comssru +++|*
00730  M01S00577.comssru +++|*         MI = I(MISU-MISL)/64 + MISL
00731  M01S00578.comssru +++|*
00732  M01S00579.comssru +++|*         MISU = UPPER BOUND.
00733  M01S00580.comssru +++|*         MISL = LOWER BOUND.
00734  M01S00581.comssru +++|*         I = PROFILO INDEX.
00735  M01S00582.comssru +++|*
00736  M01S00583.comssru +++|*         EXAMPLE -
00737  M01S00584.comssru +++|*         M2SL = .O50.
00738  M01S00585.comssru +++|*         M2SU = .150.
00739  M01S00586.comssru +++|*         I = 32.
00740  M01S00587.comssru +++|*         M2 = 32(.150-.050)/64 + .050
00741  M01S00588.comssru +++|*            = 3.200/64 + .050
00742  M01S00589.comssru +++|*            = .050 +.050
00743  M01S00590.comssru +++|*            = .100
00744  M01S00591.comssru +++|*
00745  M01S00592.comssru +++|*         TWO EXCEPTIONS EXIST -
00746  M01S00593.comssru +++|*         1.) IF THE INDEX IS 77B, THEN THE DEFAULT SRU MULTIPLIER
00747  M01S00594.comssru +++|*             VALUE IS USED ( M1SR, M2SR, ETC.)
00748  M01S00595.comssru +++|*         2.) IF THE INDEX IS 0, THEN THE SRU MULTIPLIER IS
00749  M01S00596.comssru +++|*             ZERO.
00750  M01S00597.comssru +++|*
00751  M01S00598.comssru +++|*         TO DETERMINE THE INDICES FOR THE APPROPRIATE
00752  M01S00599.comssru +++|*         MULTIPLIERS, FIRST ASSIGN A RANGE THAT COVERS ALL
00753  M01S00600.comssru +++|*         OF THE VALUES FOR A MULTIPLIER. AND SECOND,
00754  M01S00601.comssru +++|*         SOLVE THE ABOVE EQUATION FOR I OR -
00755  M01S00602.comssru +++|*
00756  M01S00603.comssru +++|*         I = 64(MI - MISL)/(MISU - MISL)
00757  M01S00604.comssru +++|*         MI = MULTIPLIER VALUE.
00758  M01S00605.comssru +++|*         MISU = UPPER BOUND OF CONVERSION RANGE.
00759  M01S00606.comssru +++|*         MISL = LOWER BOUND OF CONVERSION RANGE.
00760  M01S00607.comssru +++|*
00761  M01S00608.comssru +++|*         EXAMPLE -
00762  M01S00609.comssru +++|*         M2 = .100
00763  M01S00610.comssru +++|*         M2SL = .050
00764  M01S00611.comssru +++|*         M2SU = .150
00765  M01S00612.comssru +++|*         I = 64(.100 - .050)/(.150 - .050)
00766  M01S00613.comssru +++|*           = 64(.050)/(.100)
00767  M01S00614.comssru +++|*           = 64*.5
00768  M01S00615.comssru +++|*           = 32
00769  M01S00616.comssru +++|*
00770  M01S00617.comssru +++|*         NOTE - WHEN THE SRU INDICES ARE ENTERED INTO PROFILE, THE SRU
00771  M01S00618.comssru +++|*         MULTIPLIERS ARE DISPLAYED.
00772  M01S00619.comssru +++|
00773  M01S00620.comssru +++|
00774  M01S00621.comssru +++| M1SL     DEFVL  0.5,M1SR    M1 LOWER BOUND
00775  M01S00622.comssru +++| M1SU     DEFVL  1.5,M1SR    M1 UPPER BOUND
00776  M01S00623.comssru +++|
00777  M01S00624.comssru +++| M2SL     DEFVL  .050,M2SR   M2 LOWER BOUND
00778  M01S00625.comssru +++| M2SU     DEFVL  .150,M2SR   M2 UPPER BOUND
00779  M01S00626.comssru +++|
00780  M01S00627.comssru +++| M3SL     DEFVL  .001,M3SR   M3 LOWER BOUND
00781  M01S00628.comssru +++| M3SU     DEFVL  .064,M3SR   M3 UPPER BOUND
00782  M01S00629.comssru +++|
00783  M01S00630.comssru +++| M4SL     DEFVL  .001,M4SR   M4 LOWER BOUND
00784  M01S00631.comssru +++| M4SU     DEFVL  .064,M4SR   M4 UPPER BOUND
00785  M01S00632.comssru +++|
00786  M01S00633.comssru +++| MASL     DEFVL  1,ADSR      ADDER LOWER BOUND
00787  M01S00634.comssru +++| MASU     DEFVL  64,ADSR     ADDER UPPER BOUND
00788  M01S00635.comssru +++|
00789  M01S00636.comssru +++| MT2      ENDIF
00790  M01S00028.ns22000 +++| FSE      SPACE  4,15
00791  M01S00029.ns22000 +++|***       FULL SCREEN EDITOR ACCOUNTING PARAMETERS.
00792  M01S00030.ns22000 +++|*
00793  M01S00031.ns22000 +++|*         THE *IFCO* PARAMETER DEFINES THE ESTIMATED NUMBER OF *CP*
00794  M01S00032.ns22000 +++|*         MILLISECONDS TO BE CHARGED FOR EACH WORD OF TERMINAL OUTPUT
00795  M01S00033.ns22000 +++|*         PRODUCED BY THE *SMFEX* SUBSYSTEM.  THIS ESTIMATE WILL BE
00796  M01S00034.ns22000 +++|*         USED BY FSE TO INCLUDE THE PROCESSING DONE BY *SMFEX*,
00797  M01S00035.ns22000 +++|*         WHICH FSE CAN NOT DETERMINE DIRECTLY.
00798  M01S00637.comssru +++|
00799  M01S00036.ns22000 +++| IFCO     RANGE  .001,1.000  FSE MSEC CP PER OUTPUT WORD RANGE
00800  M01S00037.ns22000 +++| IFCO     DEFVL  .100        FSE CP MSEC PER OUTPUT WORD
00801  M01S00638.comssru +++|
00802  M01S00038.ns22000 +++|
00803  M01S00639.comssru +++|          BASE   *
00804  M01S00640.comssru +++|          ENDX