cdc:nos2.source:opl.opl871:common:compcmx
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
cdc/nos2.source/opl.opl871/common/compcmx.txt ยท Last modified: by 127.0.0.1