Common COMPCMX

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compcmx +++|          CTEXT  COMPCMX - COMPUTE MAXIMUM FIELD LENGTH.
00002  M01S00002.compcmx +++| COMPCMX  SPACE  4
00003  M01S00003.compcmx +++|          BASE   MIXED
00004  M01S00004.compcmx +++|          IF     -DEF,QUAL$,1
00005  M01S00005.compcmx +++|          QUAL   COMPCMX

Line S00006 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1975.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.compcmx +++| COMPCMX  SPACE  4
00009  M01S00008.compcmx +++|***       CMX - COMPUTE MAXIMUM FIELD LENGTH.
00010  M01S00009.compcmx +++|*         B.T. ZEMLIN.       75/01/25.
00011  M01S00010.compcmx +++|*         M.J. CARIDDI       81/10/19.
00012  M01S00011.compcmx +++| COMPCMX  SPACE  4
00013  M01S00012.compcmx +++|***               CMX COMPUTES THE MAXIMUM POSSIBLE FIELD LENGTH
00014  M01S00013.compcmx +++|*         FOR ANY JOB.  THE CALCULATION IN THE SUPPLIED VERSION
00015  M01S00014.compcmx +++|*         OF THIS DECK IS AS FOLLOWS -
00016  M01S00015.compcmx +++|*
00017  M01S00016.compcmx +++|*                MAXFL = MINIMUM(MACHINE SIZE - CMR SIZE - CONSTANT,
00018  M01S00001.ns2069  +++|*                        MACHINE SIZE - CMR SIZE - CONSTANT - IAF FL
00019  M01S00002.ns2069  +++|*                        - NETWORK CONSTANT (IF TXOT JOB),
00020  M01S00017.compcmx +++|*                        VALIDATION FL)
00021  M01S00018.compcmx +++|*
00022  M01S00019.compcmx +++|*         ENTRY  (A) - CM VALIDATION INDEX.
00023  M01S00003.ns2069  +++|*                (T1) = ORIGIN TYPE.
00024  M01S00020.compcmx +++|*
00025  M01S00021.compcmx +++|*         EXIT   (A) - MAXFL/100.
00026  M01S00022.compcmx +++|*
00027  M01S00023.compcmx +++|*         USES   T2, T3, CM - CM+4.
00028  M01S00024.compcmx +++|*
00029  M01S00025.compcmx +++|*         CALLS  CMI.
00030  M01S00026.compcmx +++|*

Line S00027 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`ns2169`

Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00027.ns2169  ---|*         XREF   COMPCVI (WITH CMI$ SELECTED).
00032  M01S00001.ns2169  +++|*         XREF   COMPCVI (WITH CMI$ SELECTED), COMSREM.
00033  M01S00028.compcmx +++|
00034  M01S00029.compcmx +++|
00035  M01S00030.compcmx +++| CMX      SUBR               ENTRY/EXIT
00036  M01S00031.compcmx +++|          RJM    CMI         CONVERT MEMORY INDEX
00037  M01S00032.compcmx +++|          STD    T2          VALIDATION SIZE/100
00038  M01S00033.compcmx +++|          LDN    CMRL        CMR SIZE/100
00039  M01S00034.compcmx +++|          CRD    CM
00040  M01S00035.compcmx +++|          LDD    CM+4

Line S00036 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`ns2069`

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00036.ns2069  ---|          STD    T3

Line S00037 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`ns2069`

Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00037.ns2069  ---|          LDC    MABL        MACHINE SIZE/100B
00043  M01S00004.ns2069  +++|          ADK    CMXB
00044  M01S00005.ns2069  +++|          STD    T3
00045  M01S00006.ns2069  +++|          LDD    T1
00046  M01S00007.ns2069  +++|          LMN    TXOT
00047  M01S00008.ns2069  +++|          NJN    CMX0        IF NOT *TXOT* JOB

Line S00009 Modification History
`M01` (Added by)	`ns2069`
`M02` (Updated by)	`ns2169`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00009.ns2169  ---|          LDC    VCPT*200+JCIW
00049  M01S00002.ns2169  +++|          LDC    /REM/VCPT*200+JCIW
00050  M01S00010.ns2069  +++|          CRD    CM
00051  M01S00011.ns2069  +++|          LDD    CM+2
00052  M01S00012.ns2069  +++|          LMC    IFSI
00053  M01S00013.ns2069  +++|          NJN    CMX0        IF *IAF* NOT PRESENT

Line S00014 Modification History
`M01` (Added by)	`ns2069`
`M02` (Updated by)	`ns2169`

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00014.ns2169  ---|          LDC    VCPT*200+FLSW
00055  M01S00003.ns2169  +++|          LDC    /REM/VCPT*200+FLSW
00056  M01S00015.ns2069  +++|          CRD    CM
00057  M01S00016.ns2069  +++|          LDD    CM+4        ADJUST FOR *IAF* FL
00058  M01S00017.ns2069  +++|          RAD    T3

Line S00018 Modification History
`M01` (Added by)	`ns2069`
`M02` (Updated by)	`ns2169`

Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00018.ns2169  ---|          LDC    CMXC        ADJUST FOR *NAM*
00060  M01S00004.ns2169  +++|          LDC    /REM/NMFL/100  ADJUST FOR NAM
00061  M01S00019.ns2069  +++|          RAD    T3
00062  M01S00020.ns2069  +++| CMX0     LDC    MABL        GET MACHINE SIZE
00063  M01S00038.compcmx +++|          CRD    CM
00064  M01S00039.compcmx +++|          LDD    CM+2        CALCULATE MACHINE SIZE - CMR SIZE - CMXB
00065  M01S00040.compcmx +++|          SHN    14
00066  M01S00041.compcmx +++|          LMD    CM+3
00067  M01S00042.compcmx +++|          SBD    T3

Line S00043 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`ns2069`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00043.ns2069  ---|          SBN    CMXB
00069  M01S00044.compcmx +++|          STD    T3
00070  M01S00045.compcmx +++|          SHN    -14
00071  M01S00046.compcmx +++|          ZJN    CMX1        IF .LE. 7777
00072  M01S00047.compcmx +++|          LCN    0
00073  M01S00048.compcmx +++|          STD    T3
00074  M01S00049.compcmx +++| CMX1     LDD    T2          VALIDATION SIZE

Line S00050 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`ns2069`

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00050.ns2069  ---|          SBD    T3          SERVICE CLASS MAXIMUM
00076  M01S00021.ns2069  +++|          SBD    T3          MACHINE MAXIMUM
00077  M01S00051.compcmx +++|          PJN    CMX2        IF VALIDATION LARGER
00078  M01S00052.compcmx +++|          LDD    T2

Line S00053 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`ns2069`

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00053.ns2069  ---|          UJN    CMXX        EXIT WITH VALIDATION
00080  M01S00022.ns2069  +++|          UJN    CMX3        EXIT WITH VALIDATION
00081  M01S00054.compcmx +++|

Line S00055 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`ns2069`

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00055.ns2069  ---| CMX2     LDD    T3          EXIT WITH SERVICE CLASS MAXIMUM

Line S00056 Modification History
`M01` (Added by)	`compcmx`
`M02` (Updated by)	`ns2069`

Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00056.ns2069  ---|          UJN    CMXX        RETURN
00084  M01S00023.ns2069  +++| CMX2     LDD    T3          EXIT WITH MACHINE MAXIMUM
00085  M01S00024.ns2069  +++| CMX3     LJM    CMXX        RETURN
00086  M01S00057.compcmx +++|
00087  M01S00058.compcmx +++| CMXB     EQU    20          ADDITIONAL MEMORY RESIDENT SIZE/100

Line S00025 Modification History
`M01` (Added by)	`ns2069`
`M02` (Updated by)	`ns2169`

Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00025.ns2169  ---| CMXC     EQU    600         ADDITIONAL MEMORY ADJUST FOR *NAM*
00089  M01S00059.compcmx +++| COMPCMX  SPACE  4
00090  M01S00060.compcmx +++|          BASE   *
00091  M01S00061.compcmx +++| QUAL$    IF     -DEF,QUAL$
00092  M01S00062.compcmx +++|          QUAL   *
00093  M01S00063.compcmx +++| CMX      EQU    /COMPCMX/CMX
00094  M01S00064.compcmx +++| QUAL$    ENDIF
00095  M01S00065.compcmx +++|          ENDX