cdc:nos2.source:opl.opl871:common:compsfe
Common COMPSFE
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compsfe +++| CTEXT COMPSFE - SET FAMILY EST ORDINAL. 00002 M01S00002.compsfe +++| IF -DEF,QUAL$,1 00003 M01S00003.compsfe +++| QUAL COMPSFE 00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M01S00004.compsfe +++| SFE SPACE 4 00006 M01S00005.compsfe +++|*** SFE - SET FAMILY EST ORDINAL. 00007 M01S00006.compsfe +++|* S. L. KSANDER. 76/09/18. 00008 M01S00007.compsfe +++| SPACE 4,10 00009 M01S00008.compsfe +++|*** SFE SETS THE FAMILY EST ORDINAL FOR A GIVEN FAMILY. 00010 M01S00009.compsfe +++|* 00011 M01S00010.compsfe +++|* ENTRY (FN - FN+3) = FAMILY NAME. 00012 M01S00011.compsfe +++|* = 0, IF CP DEFAULT FAMILY. 00013 M01S00012.compsfe +++|* = *0*, IF SYSTEM DEFAULT FAMILY. 00014 M01S00013.compsfe +++|* 00015 M01S00014.compsfe +++|* EXIT (A) .EQ. 0, IF FAMILY FOUND. 00016 M01S00015.compsfe +++|* (A) = 1, IF FAMILY FOUND, BUT IDLED. 00017 M01S00016.compsfe +++|* (A) = 2, IF FAMILY NOT FOUND. 00018 M01S00017.compsfe +++|* (T2) = FAMILY EST ORDINAL. 00019 M01S00018.compsfe +++|* (FN - FN+4) = 42/ FAMILY NAME, 6/, 12/ EST ORDINAL. 00020 M01S00019.compsfe +++|* 00021 M01S00020.compsfe +++|* USES T1 - T3, CM - CM+4. 00022 M01S00021.compsfe +++|* 00023 M01S00022.compsfe +++|* MACROS SFA. 00024 M01S00023.compsfe +++| 00025 M01S00024.compsfe +++| 00026 M01S00025.compsfe +++| SFE SUBR ENTRY/EXIT 00027 M01S00026.compsfe +++| LDN ESTP SET EST LIMITS 00028 M01S00027.compsfe +++| CRD CM 00029 M01S00028.compsfe +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 00030 M01S00029.compsfe +++| STD T2 00031 M01S00030.compsfe +++| LDD CM+3 SET LAST MASS STORAGE ORDINAL + 1 00032 M01S00031.compsfe +++| STD T1 00033 M01S00032.compsfe +++| LDD FN CHECK FAMILY NAME 00034 M01S00033.compsfe +++| ZJN SFE1 IF FAMILY NAME NOT SET 00035 M01S00034.compsfe +++| SHN -6 CHECK EXPLICIT ZERO FAMILY NAME 00036 M01S00035.compsfe +++| LMN 1R0 00037 M01S00036.compsfe +++| NJN SFE2 IF NOT EXPLICIT ZERO FAMILY NAME 00038 M01S00037.compsfe +++| LDC PFNL 00039 M01S00038.compsfe +++| UJN SFE1.1 SET SYSTEM DEFAULT FAMILY 00040 M01S00039.compsfe +++| 00041 M01S00040.compsfe +++| SFE0 LDN 2 SET FAMILY NOT FOUND STATUS 00042 M01S00041.compsfe +++| UJN SFEX RETURN 00043 M01S00042.compsfe +++| 00044 M01S00043.compsfe +++| SFE1 LDD CP SET CP DEFAULT FAMILY 00045 M01S00044.compsfe +++| ADN PFCW 00046 M01S00045.compsfe +++| SFE1.1 CRD CM 00047 M01S00046.compsfe +++| LDD CM+3 00048 M01S00047.compsfe +++| STD T2 00049 M01S00048.compsfe +++| SFA EST READ EST ENTRY 00050 M01S00049.compsfe +++| ADK EQDE 00051 M01S00050.compsfe +++| CRD CM 00052 M01S00051.compsfe +++| LDD CM+4 00053 M01S00052.compsfe +++| SHN 3 00054 M01S00053.compsfe +++| ADN PFGL 00055 M01S00054.compsfe +++| CRD FN 00056 M01S00055.compsfe +++| SOD T2 ADJUST FOR *AOD* AT *SFE2* 00057 M01S00056.compsfe +++| 00058 M01S00057.compsfe +++|* SCAN EST FOR SPECIFIED FAMILY. 00059 M01S00058.compsfe +++| 00060 M01S00059.compsfe +++| SFE2 AOD T2 ADVANCE EST ORDINAL 00061 M01S00060.compsfe +++| LMD T1 00062 M01S00061.compsfe +++| ZJN SFE0 IF END OF EST 00063 M01S00062.compsfe +++| SFA EST,T2 READ EST ENTRY 00064 M01S00063.compsfe +++| ADK EQDE 00065 M01S00064.compsfe +++| CRD CM 00066 M01S00065.compsfe +++| LDD CM CHECK DEVICE EST 00067 M01S00066.compsfe +++| SHN -6 00068 M01S00067.compsfe +++| LPN 41 00069 M01S00068.compsfe +++| LMN 40 00070 M01S00069.compsfe +++| NJN SFE2 IF NOT MASS STORAGE 00071 M01S00070.compsfe +++| LDD CM+4 SET MST ADDRESS 00072 M01S00071.compsfe +++| STD T3 00073 M01S00072.compsfe +++| SHN 3 00074 M01S00073.compsfe +++| ADN STLL 00075 M01S00074.compsfe +++| CRD CM 00076 M01S00075.compsfe +++| LDD CM 00077 M01S00076.compsfe +++| SHN 21-3 00078 M01S00077.compsfe +++| MJN SFE2 IF UNLOAD REQUESTED 00079 M01S00078.compsfe +++| LDD T3 00080 M01S00079.compsfe +++| SHN 3 00081 M01S00080.compsfe +++| ADN MDGL 00082 M01S00081.compsfe +++| CRD CM 00083 M01S00082.compsfe +++| LDD CM 00084 M01S00083.compsfe +++| SHN 21-12 00085 M01S00084.compsfe +++| MJN SFE2 IF AUXILIARY DEVICE 00086 M01S00085.compsfe +++| LDD T3 00087 M01S00086.compsfe +++| SHN 3 00088 M01S00087.compsfe +++| ADN PFGL 00089 M01S00088.compsfe +++| CRD CM 00090 M01S00089.compsfe +++| 00091 M01S00090.compsfe +++|* COMPARE FAMILY NAME. 00092 M01S00091.compsfe +++| 00093 M01S00092.compsfe +++| LDD CM 00094 M01S00093.compsfe +++| LMD FN 00095 M01S00094.compsfe +++| NJN SFE3 IF NO MATCH 00096 M01S00095.compsfe +++| LDD CM+1 00097 M01S00096.compsfe +++| LMD FN+1 00098 M01S00097.compsfe +++| NJN SFE3 IF NO MATCH 00099 M01S00098.compsfe +++| LDD CM+2 00100 M01S00099.compsfe +++| LMD FN+2 00101 M01S00100.compsfe +++| NJN SFE3 IF NO MATCH 00102 M01S00101.compsfe +++| LDD CM+3 00103 M01S00102.compsfe +++| LMD FN+3 00104 M01S00103.compsfe +++| SCN 77 00105 M01S00104.compsfe +++| NJN SFE3 IF NOT MATCH 00106 M01S00105.compsfe +++| LDD T3 CHECK DEVICE MASK 00107 M01S00106.compsfe +++| SHN 3 00108 M01S00107.compsfe +++| ADN PUGL 00109 M01S00108.compsfe +++| CRD CM 00110 M01S00109.compsfe +++| LDD CM+4 00111 M01S00110.compsfe +++| SHN 21-7 00112 M01S00111.compsfe +++| PJN SFE3 IF NOT FAMILY MASTER DEVICE 00113 M01S00112.compsfe +++| LDD T2 SET FAMILY EST ORDINAL 00114 M01S00113.compsfe +++| STD FN+4 00115 M01S00114.compsfe +++| LDD T3 CHECK IDLE DOWN STATUS 00116 M01S00115.compsfe +++| SHN 3 00117 M01S00116.compsfe +++| ADN DULL 00118 M01S00117.compsfe +++| CRD CM 00119 M01S00118.compsfe +++| LDD CM+4 00120 M01S00119.compsfe +++| SHN 0-13 SET FAMILY STATUS 00121 M01S00120.compsfe +++| LJM SFEX RETURN 00122 M01S00121.compsfe +++| 00123 M01S00122.compsfe +++| SFE3 LJM SFE2 CHECK NEXT EST ENTRY 00124 M01S00123.compsfe +++| SPACE 4 00125 M01S00124.compsfe +++| QUAL$ IF -DEF,QUAL$ 00126 M01S00125.compsfe +++| QUAL * 00127 M01S00126.compsfe +++| SFE EQU /COMPSFE/SFE 00128 M01S00127.compsfe +++| QUAL$ ENDIF 00129 M01S00128.compsfe +++| ENDX
cdc/nos2.source/opl.opl871/common/compsfe.txt · Last modified: by 127.0.0.1