Common COMPFAT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compfat +++|          CTEXT  COMPFAT - SEARCH FOR FAST ATTACH FILE.
00002  M00S00002.compfat +++| FAT      SPACE  4
00003  M00S00003.compfat +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compfat +++|          QUAL   COMPFAT

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP., 1973.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compfat +++| FAT      SPACE  4
00008  M00S00007.compfat +++|***       FAT - SEARCH FOR FAST ATTACH FILE.
00009  M00S00008.compfat +++|*         V.A. WALSH.  73/01/10.
00010  M00S00009.compfat +++| FAT      SPACE  4
00011  M00S00010.compfat +++|***       FAT SEARCHES THE FNT TABLE FOR A FILE OF FAST ATTACH FILE
00012  M00S00011.compfat +++|*         TYPE AND COMPARES ENTRIES ON FILE NAME AND FAMILY NAME.
00013  M00S00012.compfat +++|*
00014  M00S00013.compfat +++|*         ENTRY  (CM - CM+3) = FILE NAME.
00015  M00S00014.compfat +++|*                (CN - CN+3) = FAMILY NAME.
00016  M00S00015.compfat +++|*
00017  M00S00016.compfat +++|*         EXIT   (A) = 0 IF FAST ATTACH ENTRY FOUND.
00018  M00S00017.compfat +++|*                (A) = 1 IF ENTRY NOT FOUND.
00019  M00S00018.compfat +++|*                (T1) = FNT ORDINAL.
00020  M00S00019.compfat +++|*
00021  M00S00020.compfat +++|*         USES   T1 - T7.
00022  M00S00021.compfat +++|*

Line S00022 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00022.ns22000 ---|*         MACROS CFI.

Line S00001 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00001.ns22000 +++|*         MACROS CFI, SFA.
00025  M00S00023.compfat +++|
00026  M00S00024.compfat +++|
00027  M00S00025.compfat +++| FAT4     LDN    1           FILE NOT FOUND
00028  M00S00026.compfat +++|
00029  M00S00027.compfat +++| FAT      SUBR               ENTRY/EXIT
00030  M00S00028.compfat +++|          LDN    FNTP        SET FNT POINTER
00031  M00S00029.compfat +++|          CRD    T1
00032  M00S00030.compfat +++|          LDD    T1          SET FWA FNT
00033  M00S00031.compfat +++|          ADC    ADCI
00034  M00S00032.compfat +++|          STM    FATB
00035  M00S00033.compfat +++|          LDD    T1+1
00036  M00S00034.compfat +++|          STM    FATB+1
00037  M00S00035.compfat +++|          LDD    T1+2        SET MAXIMUM NUMBER OF ENTRIES
00038  M00S00036.compfat +++|          STM    FATA
00039  M00S00037.compfat +++|          LDN    0           INITIALIZE ORDINAL
00040  M00S00038.compfat +++|          STD    T1
00041  M00S00039.compfat +++| FAT1     AOD    T1          ADVANCE ORDINAL
00042  M00S00040.compfat +++|          LMC    **
00043  M00S00041.compfat +++| FATA     EQU    *-1
00044  M00S00042.compfat +++|          ZJN    FAT4        IF END OF FNT
00045  M00S00043.compfat +++|          CFI    FNT,T1      CALCULATE FILE INDEX
00046  M00S00044.compfat +++| FATB     ADC    **          GET ABSOLUTE FNT ENTRY ADDRESS
00047  M00S00045.compfat +++|          ADN    FSTG
00048  M00S00046.compfat +++|          CRD    T2          READ FST ENTRY
00049  M00S00047.compfat +++|          SBN    FSTG
00050  M00S00048.compfat +++|          CRD    T3          READ FNT ENTRY
00051  M00S00049.compfat +++|
00052  M00S00050.compfat +++|*         COMPARE FILE NAMES.
00053  M00S00051.compfat +++|
00054  M00S00052.compfat +++|          LDD    T3
00055  M00S00053.compfat +++|          ZJN    FAT1        IF EMPTY ENTRY
00056  M00S00054.compfat +++|          LMD    CM
00057  M00S00055.compfat +++|          NJN    FAT1        IF WRONG FILE NAME
00058  M00S00056.compfat +++|          LDD    T3+4        CHECK FILE TYPE
00059  M00S00057.compfat +++|          SHN    -6

Line S00058 Modification History
`M01` (Removed by)	`ns2357`

Seq #  *Modification Id* Act 
----------------------------+
00060  M01S00058.ns2357  ---|          LMN    FAFT

Line S00001 Modification History
`M01` (Added by)	`ns2357`

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00001.ns2357  +++| FATC     LMN    FAFT
00062  M00S00059.compfat +++|          NJN    FAT1        IF NOT CORRECT FILE TYPE
00063  M00S00060.compfat +++|          LDD    CM+1
00064  M00S00061.compfat +++|          LMD    T3+1
00065  M00S00062.compfat +++|          NJN    FAT1        IF WRONG NAME
00066  M00S00063.compfat +++|          LDD    CM+2
00067  M00S00064.compfat +++|          LMD    T3+2
00068  M00S00065.compfat +++|          NJN    FAT1        IF WRONG NAME
00069  M00S00066.compfat +++|          LDD    CM+3
00070  M00S00067.compfat +++|          LMD    T3+3
00071  M00S00068.compfat +++|          SCN    77
00072  M00S00069.compfat +++| FAT2     NJN    FAT1        IF WRONG NAME
00073  M00S00070.compfat +++|
00074  M00S00071.compfat +++|*         IF CORRECT FAST ATTACH FILE FOUND, CHECK FAMILY NAME.
00075  M00S00072.compfat +++|

Line S00073 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00076  M01S00073.ns22000 ---| FAT3     LDD    T2          GET EQUIPMENT OF FAST ATTACH FILE
00077  M01S00074.ns22000 ---|          ADM    ESTS

Line S00002 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00002.ns22000 +++| FAT3     SFA    EST,T2      GET EST OF FAST ATTACH FILE
00079  M01S00003.ns22000 +++|          ADK    EQDE
00080  M00S00075.compfat +++|          CRD    T3          READ EST ENTRY
00081  M00S00076.compfat +++|          LDD    T3+4
00082  M00S00077.compfat +++|          SHN    3
00083  M00S00078.compfat +++|          ADN    PFGL
00084  M00S00079.compfat +++|          CRD    T3          READ FAMILY NAME
00085  M00S00080.compfat +++|
00086  M00S00081.compfat +++|*         CHECK FAMILY NAME.
00087  M00S00082.compfat +++|
00088  M00S00083.compfat +++|          LDD    T3
00089  M00S00084.compfat +++|          LMD    CN
00090  M00S00085.compfat +++|          NJN    FAT2        IF WRONG FAMILY
00091  M00S00086.compfat +++|          LDD    T3+1
00092  M00S00087.compfat +++|          LMD    CN+1
00093  M00S00088.compfat +++|          NJN    FAT2        IF WRONG FAMILY
00094  M00S00089.compfat +++|          LDD    T3+2
00095  M00S00090.compfat +++|          LMD    CN+2
00096  M00S00091.compfat +++|          NJN    FAT2        IF WRONG FAMILY
00097  M00S00092.compfat +++|          LDD    T3+3
00098  M00S00093.compfat +++|          LMD    CN+3
00099  M00S00094.compfat +++|          SCN    77
00100  M00S00095.compfat +++|          NJN    FAT2        IF INCORRECT FAMILY
00101  M00S00096.compfat +++|
00102  M00S00097.compfat +++|*         CORRECT FAST ATTACH FILE FOUND.
00103  M00S00098.compfat +++|
00104  M00S00099.compfat +++|*         LDN    0           SET FILE FOUND
00105  M00S00100.compfat +++|          LJM    FATX        RETURN
00106  M00S00101.compfat +++| FAT      SPACE  4
00107  M00S00102.compfat +++| QUAL$    IF     -DEF,QUAL$
00108  M00S00103.compfat +++|          QUAL   *
00109  M00S00104.compfat +++| FAT      EQU    /COMPFAT/FAT
00110  M00S00105.compfat +++| FATB     EQU    /COMPFAT/FATB

Line S00002 Modification History
`M01` (Added by)	`ns2357`

Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00002.ns2357  +++| FATC     EQU    /COMPFAT/FATC
00112  M00S00106.compfat +++| QUAL$    ENDIF
00113  M00S00107.compfat +++|          ENDX