cdc:nos2.source:opl.opl871:common:compecx
Common COMPECX
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00001 M02S00001.252l678 ---| CTEXT COMPECX - COMPUTE ECS MAXIMUM FIELD LENGTH. 00002 M01S00001.252l678 +++| CTEXT COMPECX - COMPUTE USER EXTENDED MEMORY MAXIMUM FL. 00003 M01S00002.compecx +++| SPACE 4,10 00004 M01S00003.compecx +++| IF -DEF,QUAL$,1 00005 M01S00004.compecx +++| QUAL COMPECX 00006 M01S00005.compecx +++| BASE MIXED
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1975. 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00007.compecx +++| ECX SPACE 4,10 00010 M01S00008.compecx +++|*** ECX - COMPUTE ECS MAXIMUM FIELD LENGTH. 00011 M01S00009.compecx +++|* J. L. LARSON. 75/05/22. 00012 M01S00010.compecx +++| SPACE 4,20 00013 M01S00011.compecx +++|*** ECX COMPUTES THE MAXIMUM POSSIBLE ECS FIELD LENGTH 00014 M01S00012.compecx +++|* FOR ANY JOB BASED ON THE USER ECS SIZE AND THE GIVEN 00015 M01S00013.compecx +++|* VALIDATION LIMITATIONS. THE CALCULATIONS INCLUDED IN THE 00016 M01S00014.compecx +++|* SUPPLIED VERSION OF THIS DECK ARE THE FOLLOWING - 00017 M01S00015.compecx +++|* 00018 M01S00016.compecx +++|* MAXFL (ECS) = MINIMUM (MACHINE USER ECS FL - CONSTANT, 00019 M01S00017.compecx +++|* VALIDATION ECS FL) 00020 M01S00018.compecx +++|* 00021 M01S00019.compecx +++|* REQUIRES COMMON DECK *COMPCVI* WITH *ECI$* SELECTED. 00022 M01S00020.compecx +++|* 00023 M01S00021.compecx +++|* ENTRY (A) = ECS VALIDATION INDEX. 00024 M01S00022.compecx +++|*
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00025 M02S00023.ns2184 ---|* EXIT (A) = MAXFL (ECS) IN 1000B WORD BLOCKS. 00026 M01S00001.ns2184 +++|* EXIT (A) = MAXFL (ECS) IN *UEBS* WORD BLOCKS. 00027 M01S00024.compecx +++|* 00028 M01S00025.compecx +++|* USES T1, T2, CM - CM+4. 00029 M01S00026.compecx +++|* 00030 M01S00027.compecx +++|* CALLS ECI. 00031 M01S00028.compecx +++| 00032 M01S00029.compecx +++|
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00033 M02S00030.252l678 ---| ECX1 LDD T2 EXIT WITH MACHINE USER ECS SIZE 00034 M01S00002.252l678 +++| ECX1 ADD T2 00035 M01S00031.compecx +++| 00036 M01S00032.compecx +++| ECX SUBR ENTRY/EXIT 00037 M01S00033.compecx +++| RJM ECI CONVERT ECS FL INDEX
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00038 M02S00034.ns2184 ---| STD T1 VALIDATION ECS SIZE (IN 1000B WORD BLOCKS)
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00039 M02S00035.ns2184 ---| LDN ECRL READ MACHINE USER ECS FL (IN 1000B WORDS) 00040 M01S00002.ns2184 +++| STD T1 VALIDATION SIZE (IN *UEBS* WORD BLOCKS) 00041 M01S00003.ns2184 +++| LDN ECRL MACHINE USER ECS (IN *UEBS* WORD BLOCKS) 00042 M01S00036.compecx +++| CRD CM
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00043 M02S00037.252l678 ---| LDD CM+2 00044 M01S00003.252l678 +++| LDD CM+1 00045 M01S00038.compecx +++| SBD CM+4 USER ECS FL - SYSTEM RESERVED ECS FL 00046 M01S00039.compecx +++| SBN ECXA CALCULATE MACHINE ECS SIZE - CONSTANT 00047 M01S00040.compecx +++| STD T2 00048 M01S00041.compecx +++| LDD T1 VALIDATION SIZE 00049 M01S00042.compecx +++| SBD T2 MACHINE ECS SIZE
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00043.252l678 ---| PJN ECX1 IF VALIDATION .GE. MACHINE ECS SIZE
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00051 M02S00044.252l678 ---| LDD T1 00052 M01S00004.252l678 +++| MJN ECX1 IF VALIDATION .LT. MACHINE SIZE 00053 M01S00005.252l678 +++| LDD T2 00054 M01S00006.252l678 +++| SHN -13 00055 M01S00007.252l678 +++| ZJN ECX1 IF MACHINE SIZE .LE. 3777B BLOCKS 00056 M01S00008.252l678 +++| LDC 3777 00057 M01S00045.compecx +++| UJN ECXX EXIT WITH ECS VALIDATION SIZE 00058 M01S00046.compecx +++| 00059 M01S00047.compecx +++| 00060 M01S00048.compecx +++| ECXA EQU 0 RESERVED SECTION OF USER ECS FL 00061 M01S00049.compecx +++| ECX SPACE 4,10 00062 M01S00050.compecx +++| BASE * 00063 M01S00051.compecx +++| QUAL$ IF -DEF,QUAL$ 00064 M01S00052.compecx +++| QUAL * 00065 M01S00053.compecx +++| ECX EQU /COMPECX/ECX 00066 M01S00054.compecx +++| QUAL$ ENDIF 00067 M01S00055.compecx +++| ENDX 00068 M01S00014.compecx +++|COMPFAT
| Line S37973 Modification History | |
|---|---|
M01 (Yanked) (Updated by) | @004863 |
M02 (Yanked) (Updated by) | @008398 |
M03 (Yanked) (Added by) | @000384 |
M04 (Yanked) (Added by) | @016383 |
Seq # *Modification Id* Act ----------------------------+ 00069 M04S37973.@016383 +++|
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00070 M02S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP., 1973. 00071 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00072 M01S00006.compecx +++| FAT SPACE 4 00073 M01S00007.compecx +++|*** FAT - SEARCH FOR FAST ATTACH FILE. 00074 M01S00008.compecx +++|* V.A. WALSH. 73/01/10. 00075 M01S00009.compecx +++| FAT SPACE 4 00076 M01S00010.compecx +++|*** FAT SEARCHES THE FNT TABLE FOR A FILE OF FAST ATTACH FILE 00077 M01S00011.compecx +++|* TYPE AND COMPARES ENTRIES ON FILE NAME AND FAMILY NAME. 00078 M01S00012.compecx +++|* 00079 M01S00013.compecx +++|* ENTRY (CM - CM+3) = FILE NAME. 00080 M01S00014.compecx +++|* (CN - CN+3) = FAMILY NAME. 00081 M01S00015.compecx +++|* 00082 M01S00016.compecx +++|* EXIT (A) = 0 IF FAST ATTACH ENTRY FOUND. 00083 M01S00017.compecx +++|* (A) = 1 IF ENTRY NOT FOUND. 00084 M01S00018.compecx +++|* (T1) = FNT ORDINAL. 00085 M01S00019.compecx +++|* 00086 M01S00020.compecx +++|* USES T1 - T7. 00087 M01S00021.compecx +++|*
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00088 M02S00022.ns2184 ---|* MACROS CFI. 00089 M01S00001.ns2184 +++|* MACROS CFI, SFA. 00090 M01S00023.compecx +++| 00091 M01S00024.compecx +++| 00092 M01S00025.compecx +++| FAT4 LDN 1 FILE NOT FOUND 00093 M01S00026.compecx +++| 00094 M01S00027.compecx +++| FAT SUBR ENTRY/EXIT 00095 M01S00028.compecx +++| LDN FNTP SET FNT POINTER 00096 M01S00029.compecx +++| CRD T1 00097 M01S00030.compecx +++| LDD T1 SET FWA FNT 00098 M01S00031.compecx +++| ADC ADCI 00099 M01S00032.compecx +++| STM FATB 00100 M01S00033.compecx +++| LDD T1+1 00101 M01S00034.compecx +++| STM FATB+1 00102 M01S00035.compecx +++| LDD T1+2 SET MAXIMUM NUMBER OF ENTRIES 00103 M01S00036.compecx +++| STM FATA 00104 M01S00037.compecx +++| LDN 0 INITIALIZE ORDINAL 00105 M01S00038.compecx +++| STD T1 00106 M01S00039.compecx +++| FAT1 AOD T1 ADVANCE ORDINAL 00107 M01S00040.compecx +++| LMC ** 00108 M01S00041.compecx +++| FATA EQU *-1 00109 M01S00042.compecx +++| ZJN FAT4 IF END OF FNT 00110 M01S00043.compecx +++| CFI FNT,T1 CALCULATE FILE INDEX 00111 M01S00044.compecx +++| FATB ADC ** GET ABSOLUTE FNT ENTRY ADDRESS 00112 M01S00045.compecx +++| ADN FSTG 00113 M01S00046.compecx +++| CRD T2 READ FST ENTRY 00114 M01S00047.compecx +++| SBN FSTG 00115 M01S00048.compecx +++| CRD T3 READ FNT ENTRY 00116 M01S00049.compecx +++| 00117 M01S00050.compecx +++|* COMPARE FILE NAMES. 00118 M01S00051.compecx +++| 00119 M01S00052.compecx +++| LDD T3 00120 M01S00053.compecx +++| ZJN FAT1 IF EMPTY ENTRY 00121 M01S00054.compecx +++| LMD CM 00122 M01S00055.compecx +++| NJN FAT1 IF WRONG FILE NAME 00123 M01S00056.compecx +++| LDD T3+4 CHECK FILE TYPE 00124 M01S00057.compecx +++| SHN -6
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00125 M02S00058.252l678 ---| LMN FAFT 00126 M01S00001.252l678 +++| FATC LMN FAFT 00127 M01S00059.compecx +++| NJN FAT1 IF NOT CORRECT FILE TYPE 00128 M01S00060.compecx +++| LDD CM+1 00129 M01S00061.compecx +++| LMD T3+1 00130 M01S00062.compecx +++| NJN FAT1 IF WRONG NAME 00131 M01S00063.compecx +++| LDD CM+2 00132 M01S00064.compecx +++| LMD T3+2 00133 M01S00065.compecx +++| NJN FAT1 IF WRONG NAME 00134 M01S00066.compecx +++| LDD CM+3 00135 M01S00067.compecx +++| LMD T3+3 00136 M01S00068.compecx +++| SCN 77 00137 M01S00069.compecx +++| FAT2 NJN FAT1 IF WRONG NAME 00138 M01S00070.compecx +++| 00139 M01S00071.compecx +++|* IF CORRECT FAST ATTACH FILE FOUND, CHECK FAMILY NAME. 00140 M01S00072.compecx +++|
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00141 M02S00073.ns2184 ---| FAT3 LDD T2 GET EQUIPMENT OF FAST ATTACH FILE
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | compecx |
M02 (Updated by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00142 M02S00074.ns2184 ---| ADM ESTS 00143 M01S00002.ns2184 +++| FAT3 SFA EST,T2 GET EST OF FAST ATTACH FILE 00144 M01S00003.ns2184 +++| ADK EQDE 00145 M01S00075.compecx +++| CRD T3 READ EST ENTRY 00146 M01S00076.compecx +++| LDD T3+4 00147 M01S00077.compecx +++| SHN 3 00148 M01S00078.compecx +++| ADN PFGL 00149 M01S00079.compecx +++| CRD T3 READ FAMILY NAME 00150 M01S00080.compecx +++| 00151 M01S00081.compecx +++|* CHECK FAMILY NAME. 00152 M01S00082.compecx +++| 00153 M01S00083.compecx +++| LDD T3 00154 M01S00084.compecx +++| LMD CN 00155 M01S00085.compecx +++| NJN FAT2 IF WRONG FAMILY 00156 M01S00086.compecx +++| LDD T3+1 00157 M01S00087.compecx +++| LMD CN+1 00158 M01S00088.compecx +++| NJN FAT2 IF WRONG FAMILY 00159 M01S00089.compecx +++| LDD T3+2 00160 M01S00090.compecx +++| LMD CN+2 00161 M01S00091.compecx +++| NJN FAT2 IF WRONG FAMILY 00162 M01S00092.compecx +++| LDD T3+3 00163 M01S00093.compecx +++| LMD CN+3 00164 M01S00094.compecx +++| SCN 77 00165 M01S00095.compecx +++| NJN FAT2 IF INCORRECT FAMILY 00166 M01S00096.compecx +++| 00167 M01S00097.compecx +++|* CORRECT FAST ATTACH FILE FOUND. 00168 M01S00098.compecx +++| 00169 M01S00099.compecx +++|* LDN 0 SET FILE FOUND 00170 M01S00100.compecx +++| LJM FATX RETURN 00171 M01S00101.compecx +++| FAT SPACE 4 00172 M01S00102.compecx +++| QUAL$ IF -DEF,QUAL$ 00173 M01S00103.compecx +++| QUAL * 00174 M01S00104.compecx +++| FAT EQU /COMPFAT/FAT 00175 M01S00105.compecx +++| FATB EQU /COMPFAT/FATB 00176 M01S00002.252l678 +++| FATC EQU /COMPFAT/FATC 00177 M01S00106.compecx +++| QUAL$ ENDIF 00178 M01S00107.compecx +++| ENDX
cdc/nos2.source/opl.opl871/common/compecx.txt · Last modified: by 127.0.0.1