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