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