cdc:nos2.source:opl.opl871:common:compecx
Common COMPECX
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00001 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.252l678 ---| CTEXT COMPECX - COMPUTE ECS MAXIMUM FIELD LENGTH.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00002 M01S00001.252l678 +++| CTEXT COMPECX - COMPUTE USER EXTENDED MEMORY MAXIMUM FL. 00003 M00S00002.compecx +++| SPACE 4,10 00004 M00S00003.compecx +++| IF -DEF,QUAL$,1 00005 M00S00004.compecx +++| QUAL COMPECX 00006 M00S00005.compecx +++| BASE MIXED
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00007.compecx +++| ECX SPACE 4,10 00010 M00S00008.compecx +++|*** ECX - COMPUTE ECS MAXIMUM FIELD LENGTH. 00011 M00S00009.compecx +++|* J. L. LARSON. 75/05/22. 00012 M00S00010.compecx +++| SPACE 4,20 00013 M00S00011.compecx +++|*** ECX COMPUTES THE MAXIMUM POSSIBLE ECS FIELD LENGTH 00014 M00S00012.compecx +++|* FOR ANY JOB BASED ON THE USER ECS SIZE AND THE GIVEN 00015 M00S00013.compecx +++|* VALIDATION LIMITATIONS. THE CALCULATIONS INCLUDED IN THE 00016 M00S00014.compecx +++|* SUPPLIED VERSION OF THIS DECK ARE THE FOLLOWING - 00017 M00S00015.compecx +++|* 00018 M00S00016.compecx +++|* MAXFL (ECS) = MINIMUM (MACHINE USER ECS FL - CONSTANT, 00019 M00S00017.compecx +++|* VALIDATION ECS FL) 00020 M00S00018.compecx +++|* 00021 M00S00019.compecx +++|* REQUIRES COMMON DECK *COMPCVI* WITH *ECI$* SELECTED. 00022 M00S00020.compecx +++|* 00023 M00S00021.compecx +++|* ENTRY (A) = ECS VALIDATION INDEX. 00024 M00S00022.compecx +++|*
| Line S00023 Modification History | |
|---|---|
M01 (Removed by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00025 M01S00023.ns2184 ---|* EXIT (A) = MAXFL (ECS) IN 1000B WORD BLOCKS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00026 M01S00001.ns2184 +++|* EXIT (A) = MAXFL (ECS) IN *UEBS* WORD BLOCKS. 00027 M00S00024.compecx +++|* 00028 M00S00025.compecx +++|* USES T1, T2, CM - CM+4. 00029 M00S00026.compecx +++|* 00030 M00S00027.compecx +++|* CALLS ECI. 00031 M00S00028.compecx +++| 00032 M00S00029.compecx +++|
| Line S00030 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00033 M01S00030.252l678 ---| ECX1 LDD T2 EXIT WITH MACHINE USER ECS SIZE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00002.252l678 +++| ECX1 ADD T2 00035 M00S00031.compecx +++| 00036 M00S00032.compecx +++| ECX SUBR ENTRY/EXIT 00037 M00S00033.compecx +++| RJM ECI CONVERT ECS FL INDEX
| Line S00034 Modification History | |
|---|---|
M01 (Removed by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00038 M01S00034.ns2184 ---| STD T1 VALIDATION ECS SIZE (IN 1000B WORD BLOCKS) 00039 M01S00035.ns2184 ---| LDN ECRL READ MACHINE USER ECS FL (IN 1000B WORDS)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00040 M01S00002.ns2184 +++| STD T1 VALIDATION SIZE (IN *UEBS* WORD BLOCKS) 00041 M01S00003.ns2184 +++| LDN ECRL MACHINE USER ECS (IN *UEBS* WORD BLOCKS) 00042 M00S00036.compecx +++| CRD CM
| Line S00037 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00043 M01S00037.252l678 ---| LDD CM+2
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00044 M01S00003.252l678 +++| LDD CM+1 00045 M00S00038.compecx +++| SBD CM+4 USER ECS FL - SYSTEM RESERVED ECS FL 00046 M00S00039.compecx +++| SBN ECXA CALCULATE MACHINE ECS SIZE - CONSTANT 00047 M00S00040.compecx +++| STD T2 00048 M00S00041.compecx +++| LDD T1 VALIDATION SIZE 00049 M00S00042.compecx +++| SBD T2 MACHINE ECS SIZE
| Line S00043 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00050 M01S00043.252l678 ---| PJN ECX1 IF VALIDATION .GE. MACHINE ECS SIZE 00051 M01S00044.252l678 ---| LDD T1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00045.compecx +++| UJN ECXX EXIT WITH ECS VALIDATION SIZE 00058 M00S00046.compecx +++| 00059 M00S00047.compecx +++| 00060 M00S00048.compecx +++| ECXA EQU 0 RESERVED SECTION OF USER ECS FL 00061 M00S00049.compecx +++| ECX SPACE 4,10 00062 M00S00050.compecx +++| BASE * 00063 M00S00051.compecx +++| QUAL$ IF -DEF,QUAL$ 00064 M00S00052.compecx +++| QUAL * 00065 M00S00053.compecx +++| ECX EQU /COMPECX/ECX 00066 M00S00054.compecx +++| QUAL$ ENDIF 00067 M00S00055.compecx +++| ENDX
cdc/nos2.source/opl.opl871/common/compecx.txt · Last modified: (external edit)