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