cdc:nos2.source:opl.opl871:common:compsfe
Common COMPSFE
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.compsfe +++| CTEXT COMPSFE - SET FAMILY EST ORDINAL. 00002 M00S00002.compsfe +++| IF -DEF,QUAL$,1 00003 M00S00003.compsfe +++| QUAL COMPSFE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M00S00004.compsfe +++| SFE SPACE 4 00006 M00S00005.compsfe +++|*** SFE - SET FAMILY EST ORDINAL. 00007 M00S00006.compsfe +++|* S. L. KSANDER. 76/09/18. 00008 M00S00007.compsfe +++| SPACE 4,10 00009 M00S00008.compsfe +++|*** SFE SETS THE FAMILY EST ORDINAL FOR A GIVEN FAMILY. 00010 M00S00009.compsfe +++|* 00011 M00S00010.compsfe +++|* ENTRY (FN - FN+3) = FAMILY NAME. 00012 M00S00011.compsfe +++|* = 0, IF CP DEFAULT FAMILY. 00013 M00S00012.compsfe +++|* = *0*, IF SYSTEM DEFAULT FAMILY. 00014 M00S00013.compsfe +++|* 00015 M00S00014.compsfe +++|* EXIT (A) .EQ. 0, IF FAMILY FOUND. 00016 M00S00015.compsfe +++|* (A) = 1, IF FAMILY FOUND, BUT IDLED. 00017 M00S00016.compsfe +++|* (A) = 2, IF FAMILY NOT FOUND. 00018 M00S00017.compsfe +++|* (T2) = FAMILY EST ORDINAL. 00019 M00S00018.compsfe +++|* (FN - FN+4) = 42/ FAMILY NAME, 6/, 12/ EST ORDINAL. 00020 M00S00019.compsfe +++|* 00021 M00S00020.compsfe +++|* USES T1 - T3, CM - CM+4. 00022 M00S00021.compsfe +++|* 00023 M00S00022.compsfe +++|* MACROS SFA. 00024 M00S00023.compsfe +++| 00025 M00S00024.compsfe +++| 00026 M00S00025.compsfe +++| SFE SUBR ENTRY/EXIT 00027 M00S00026.compsfe +++| LDN ESTP SET EST LIMITS 00028 M00S00027.compsfe +++| CRD CM 00029 M00S00028.compsfe +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 00030 M00S00029.compsfe +++| STD T2 00031 M00S00030.compsfe +++| LDD CM+3 SET LAST MASS STORAGE ORDINAL + 1 00032 M00S00031.compsfe +++| STD T1 00033 M00S00032.compsfe +++| LDD FN CHECK FAMILY NAME 00034 M00S00033.compsfe +++| ZJN SFE1 IF FAMILY NAME NOT SET 00035 M00S00034.compsfe +++| SHN -6 CHECK EXPLICIT ZERO FAMILY NAME 00036 M00S00035.compsfe +++| LMN 1R0 00037 M00S00036.compsfe +++| NJN SFE2 IF NOT EXPLICIT ZERO FAMILY NAME 00038 M00S00037.compsfe +++| LDC PFNL 00039 M00S00038.compsfe +++| UJN SFE1.1 SET SYSTEM DEFAULT FAMILY 00040 M00S00039.compsfe +++| 00041 M00S00040.compsfe +++| SFE0 LDN 2 SET FAMILY NOT FOUND STATUS 00042 M00S00041.compsfe +++| UJN SFEX RETURN 00043 M00S00042.compsfe +++| 00044 M00S00043.compsfe +++| SFE1 LDD CP SET CP DEFAULT FAMILY 00045 M00S00044.compsfe +++| ADN PFCW 00046 M00S00045.compsfe +++| SFE1.1 CRD CM 00047 M00S00046.compsfe +++| LDD CM+3 00048 M00S00047.compsfe +++| STD T2 00049 M00S00048.compsfe +++| SFA EST READ EST ENTRY 00050 M00S00049.compsfe +++| ADK EQDE 00051 M00S00050.compsfe +++| CRD CM 00052 M00S00051.compsfe +++| LDD CM+4 00053 M00S00052.compsfe +++| SHN 3 00054 M00S00053.compsfe +++| ADN PFGL 00055 M00S00054.compsfe +++| CRD FN 00056 M00S00055.compsfe +++| SOD T2 ADJUST FOR *AOD* AT *SFE2* 00057 M00S00056.compsfe +++| 00058 M00S00057.compsfe +++|* SCAN EST FOR SPECIFIED FAMILY. 00059 M00S00058.compsfe +++| 00060 M00S00059.compsfe +++| SFE2 AOD T2 ADVANCE EST ORDINAL 00061 M00S00060.compsfe +++| LMD T1 00062 M00S00061.compsfe +++| ZJN SFE0 IF END OF EST 00063 M00S00062.compsfe +++| SFA EST,T2 READ EST ENTRY 00064 M00S00063.compsfe +++| ADK EQDE 00065 M00S00064.compsfe +++| CRD CM 00066 M00S00065.compsfe +++| LDD CM CHECK DEVICE EST 00067 M00S00066.compsfe +++| SHN -6 00068 M00S00067.compsfe +++| LPN 41 00069 M00S00068.compsfe +++| LMN 40 00070 M00S00069.compsfe +++| NJN SFE2 IF NOT MASS STORAGE 00071 M00S00070.compsfe +++| LDD CM+4 SET MST ADDRESS 00072 M00S00071.compsfe +++| STD T3 00073 M00S00072.compsfe +++| SHN 3 00074 M00S00073.compsfe +++| ADN STLL 00075 M00S00074.compsfe +++| CRD CM 00076 M00S00075.compsfe +++| LDD CM 00077 M00S00076.compsfe +++| SHN 21-3 00078 M00S00077.compsfe +++| MJN SFE2 IF UNLOAD REQUESTED 00079 M00S00078.compsfe +++| LDD T3 00080 M00S00079.compsfe +++| SHN 3 00081 M00S00080.compsfe +++| ADN MDGL 00082 M00S00081.compsfe +++| CRD CM 00083 M00S00082.compsfe +++| LDD CM 00084 M00S00083.compsfe +++| SHN 21-12 00085 M00S00084.compsfe +++| MJN SFE2 IF AUXILIARY DEVICE 00086 M00S00085.compsfe +++| LDD T3 00087 M00S00086.compsfe +++| SHN 3 00088 M00S00087.compsfe +++| ADN PFGL 00089 M00S00088.compsfe +++| CRD CM 00090 M00S00089.compsfe +++| 00091 M00S00090.compsfe +++|* COMPARE FAMILY NAME. 00092 M00S00091.compsfe +++| 00093 M00S00092.compsfe +++| LDD CM 00094 M00S00093.compsfe +++| LMD FN 00095 M00S00094.compsfe +++| NJN SFE3 IF NO MATCH 00096 M00S00095.compsfe +++| LDD CM+1 00097 M00S00096.compsfe +++| LMD FN+1 00098 M00S00097.compsfe +++| NJN SFE3 IF NO MATCH 00099 M00S00098.compsfe +++| LDD CM+2 00100 M00S00099.compsfe +++| LMD FN+2 00101 M00S00100.compsfe +++| NJN SFE3 IF NO MATCH 00102 M00S00101.compsfe +++| LDD CM+3 00103 M00S00102.compsfe +++| LMD FN+3 00104 M00S00103.compsfe +++| SCN 77 00105 M00S00104.compsfe +++| NJN SFE3 IF NOT MATCH 00106 M00S00105.compsfe +++| LDD T3 CHECK DEVICE MASK 00107 M00S00106.compsfe +++| SHN 3 00108 M00S00107.compsfe +++| ADN PUGL 00109 M00S00108.compsfe +++| CRD CM 00110 M00S00109.compsfe +++| LDD CM+4 00111 M00S00110.compsfe +++| SHN 21-7 00112 M00S00111.compsfe +++| PJN SFE3 IF NOT FAMILY MASTER DEVICE 00113 M00S00112.compsfe +++| LDD T2 SET FAMILY EST ORDINAL 00114 M00S00113.compsfe +++| STD FN+4 00115 M00S00114.compsfe +++| LDD T3 CHECK IDLE DOWN STATUS 00116 M00S00115.compsfe +++| SHN 3 00117 M00S00116.compsfe +++| ADN DULL 00118 M00S00117.compsfe +++| CRD CM 00119 M00S00118.compsfe +++| LDD CM+4 00120 M00S00119.compsfe +++| SHN 0-13 SET FAMILY STATUS 00121 M00S00120.compsfe +++| LJM SFEX RETURN 00122 M00S00121.compsfe +++| 00123 M00S00122.compsfe +++| SFE3 LJM SFE2 CHECK NEXT EST ENTRY 00124 M00S00123.compsfe +++| SPACE 4 00125 M00S00124.compsfe +++| QUAL$ IF -DEF,QUAL$ 00126 M00S00125.compsfe +++| QUAL * 00127 M00S00126.compsfe +++| SFE EQU /COMPSFE/SFE 00128 M00S00127.compsfe +++| QUAL$ ENDIF 00129 M00S00128.compsfe +++| ENDX
cdc/nos2.source/opl.opl871/common/compsfe.txt · Last modified: (external edit)