cdc:nos2.source:opl.opl871:common:compvlc
Common COMPVLC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.compvlc +++| CTEXT COMPVLC - VALIDATE ACCESS LEVEL OR CATEGORY STRING. 00002 M00S00002.compvlc +++| SPACE 4,10 00003 M00S00003.compvlc +++| IF -DEF,QUAL$,1 00004 M00S00004.compvlc +++| QUAL COMPVLC
| Line S00005 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00007 M00S00006.compvlc +++| SPACE 4,10 00008 M00S00007.compvlc +++|*** COMPVLC - VALIDATE ACCESS LEVEL OR CATEGORY STRING. 00009 M00S00008.compvlc +++|* J. HOLLISTER 82/11/03. 00010 M00S00009.compvlc +++| SPACE 4,25 00011 M00S00010.compvlc +++|*** COMPVLC VALIDATES AN ACCESS CATEGORY STRING AND/OR 00012 M00S00011.compvlc +++|* AN ACCESS LEVEL STRING, AND CALCULATES THE VALUES 00013 M00S00012.compvlc +++|* CORRESPONDING TO THE STRING SPECIFIED. 00014 M00S00013.compvlc +++|* 00015 M00S00014.compvlc +++|* 00016 M00S00015.compvlc +++|* ASSEMBLY OPTIONS - 00017 M00S00016.compvlc +++|* 00018 M00S00017.compvlc +++|* VAC$ - ASSEMBLE CODE TO SEARCH ACCESS CATEGORY TABLE. 00019 M00S00018.compvlc +++|* IF *TACT* NOT DEFINED, ASSEMBLE TABLE. 00020 M00S00019.compvlc +++|* 00021 M00S00020.compvlc +++|* VAL$ - ASSEMBLE CODE TO SEARCH ACCESS LEVEL TABLE. 00022 M00S00021.compvlc +++|* IF *TALV* NOT DEFINED, ASSEMBLE TABLE. 00023 M00S00022.compvlc +++|* 00024 M00S00023.compvlc +++|* SCH$ - ASSEMBLE SEARCH CODE. IF *SCH$* IS NOT DEFINED 00025 M00S00024.compvlc +++|* BUT *VAC$* AND/OR *VAL$* ARE DEFINED, ASSEMBLE 00026 M00S00025.compvlc +++|* ONLY THE APPROPRIATE TABLE(S). 00027 M00S00026.compvlc +++|* 00028 M00S00027.compvlc +++|* REL$ - GENERATE RELOCATED CODE FOR USE IN ZERO-LEVEL 00029 M00S00028.compvlc +++|* OVERLAY (THIS TAG IS DEFINED IN *COMPRLI*). 00030 M00S00029.compvlc +++| SPACE 4,10 00031 M00S00030.compvlc +++| SCH$ IF DEF,SCH$ 00032 M00S00031.compvlc +++| VAC$ IF DEF,VAC$ 00033 M00S00032.compvlc +++| VAC SPACE 4,10 00034 M00S00033.compvlc +++|** VAC - VALIDATE ACCESS CATEGORY STRING. 00035 M00S00034.compvlc +++|* 00036 M00S00035.compvlc +++|* ENTRY (A) = ADDRESS OF ACCESS CATEGORY STRING. 00037 M00S00036.compvlc +++|* 00038 M00S00037.compvlc +++|* EXIT (A) = ACCESS CATEGORY VALUE. 00039 M00S00038.compvlc +++|* (A) .LT. 0 IF ACCESS CATEGORY NOT VALID. 00040 M00S00039.compvlc +++|* 00041 M00S00040.compvlc +++|* USES T3, T4, T7. 00042 M00S00041.compvlc +++|* 00043 M00S00042.compvlc +++|* CALLS STN. 00044 M00S00043.compvlc +++| 00045 M00S00044.compvlc +++| 00046 M00S00045.compvlc +++| VAC SUBR ENTRY/EXIT 00047 M00S00046.compvlc +++| STD T7 SAVE STRING ADDRESS 00048 M00S00047.compvlc +++| REL$ IF DEF,REL$ 00049 M00S00048.compvlc +++| LDC. TACT SAVE TABLE FWA 00050 M00S00049.compvlc +++| REL$ ELSE 00051 M00S00050.compvlc +++| LDC TACT 00052 M00S00051.compvlc +++| REL$ ENDIF 00053 M00S00052.compvlc +++| STD T4 00054 M00S00053.compvlc +++| LDC TACTL SAVE TABLE LENGTH 00055 M00S00054.compvlc +++| STD T3 00056 M00S00055.compvlc +++| RJM STN SEARCH TABLE FOR NAME 00057 M00S00056.compvlc +++| UJN VACX RETURN 00058 M00S00057.compvlc +++| VAC$ ENDIF 00059 M00S00058.compvlc +++| SPACE 4,10 00060 M00S00059.compvlc +++| VAL$ IF DEF,VAL$ 00061 M00S00060.compvlc +++| VAL SPACE 4,10 00062 M00S00061.compvlc +++|** VAL - VALIDATE ACCESS LEVEL STRING. 00063 M00S00062.compvlc +++|* 00064 M00S00063.compvlc +++|* ENTRY (A) = ADDRESS OF ACCESS LEVEL STRING. 00065 M00S00064.compvlc +++|* 00066 M00S00065.compvlc +++|* EXIT (A) = ACCESS LEVEL VALUE. 00067 M00S00066.compvlc +++|* (A) .LT. 0 IF ACCESS LEVEL NOT VALID. 00068 M00S00067.compvlc +++|* 00069 M00S00068.compvlc +++|* USES T3, T4, T7. 00070 M00S00069.compvlc +++|* 00071 M00S00070.compvlc +++|* CALLS STN. 00072 M00S00071.compvlc +++| 00073 M00S00072.compvlc +++| 00074 M00S00073.compvlc +++| VAL SUBR ENTRY/EXIT 00075 M00S00074.compvlc +++| STD T7 SAVE STRING ADDRESS 00076 M00S00075.compvlc +++| REL$ IF DEF,REL$ 00077 M00S00076.compvlc +++| LDC. TALV SAVE TABLE FWA 00078 M00S00077.compvlc +++| REL$ ELSE 00079 M00S00078.compvlc +++| LDC TALV 00080 M00S00079.compvlc +++| REL$ ENDIF 00081 M00S00080.compvlc +++| STD T4 00082 M00S00081.compvlc +++| LDN TALVL SAVE TABLE LENGTH 00083 M00S00082.compvlc +++| STD T3 00084 M00S00083.compvlc +++| RJM STN SEARCH TABLE FOR NAME 00085 M00S00084.compvlc +++| UJN VALX RETURN 00086 M00S00085.compvlc +++| VAL$ ENDIF 00087 M00S00086.compvlc +++| STN SPACE 4,10 00088 M00S00087.compvlc +++|** STN - SEARCH TABLE FOR NAME. 00089 M00S00088.compvlc +++|* 00090 M00S00089.compvlc +++|* ENTRY (T7) = FWA OF BUFFER CONTAINING NAME. 00091 M00S00090.compvlc +++|* (T4) = FWA OF TABLE TO BE SEARCHED. 00092 M00S00091.compvlc +++|* (T3) = LENGTH OF TABLE TO BE SEARCHED. 00093 M00S00092.compvlc +++|* 00094 M00S00093.compvlc +++|* EXIT (A) = TABLE INDEX OF MATCHING ENTRY. 00095 M00S00094.compvlc +++|* (A) .LT. 0 IF ENTRY NOT FOUND IN TABLE. 00096 M00S00095.compvlc +++|* 00097 M00S00096.compvlc +++|* USES T1, T2, T3, T7. 00098 M00S00097.compvlc +++| 00099 M00S00098.compvlc +++| 00100 M00S00099.compvlc +++| STN3 LDD T1 SET POINTER TO NEXT TABLE ENTRY 00101 M00S00100.compvlc +++| ADD T7 00102 M00S00101.compvlc +++| SBD T2 00103 M00S00102.compvlc +++| STD T1 00104 M00S00103.compvlc +++| SBD T4 CHECK IF ALL ENTRIES IN TABLE CHECKED 00105 M00S00104.compvlc +++| PJN STN1 IF NOT END OF TABLE 00106 M00S00105.compvlc +++| 00107 M00S00106.compvlc +++| STN SUBR ENTRY/EXIT 00108 M00S00107.compvlc +++| LDD T4 SET LWA OF TABLE 00109 M00S00108.compvlc +++| ADD T3 00110 M00S00109.compvlc +++| SBN 1 00111 M00S00110.compvlc +++| STD T1 00112 M00S00111.compvlc +++| SOD T7 PRESET NAME BUFFER FWA-1 00113 M00S00112.compvlc +++| STN1 LDN 4 SET NAME BUFFER POINTER 00114 M00S00113.compvlc +++| ADD T7 00115 M00S00114.compvlc +++| STD T2 00116 M00S00115.compvlc +++| STN2 LDI T2 COMPARE BYTES OF NAMES 00117 M00S00116.compvlc +++| SBI T1 00118 M00S00117.compvlc +++| NJN STN3 IF NO MATCH 00119 M00S00118.compvlc +++| SOD T1 DECREMENT TABLE POINTER 00120 M00S00119.compvlc +++| SOD T2 DECREMENT NAME BUFFER POINTER 00121 M00S00120.compvlc +++| SBD T7 00122 M00S00121.compvlc +++| NJN STN2 IF MORE TO COMPARE 00123 M00S00122.compvlc +++| AOD T1 NAME FOUND - CALCULATE INDEX 00124 M00S00123.compvlc +++| SBD T4 00125 M00S00124.compvlc +++| SHN -2 00126 M00S00125.compvlc +++| UJN STNX RETURN 00127 M00S00126.compvlc +++| SCH$ ENDIF 00128 M00S00127.compvlc +++| SPACE 4,10 00129 M00S00128.compvlc +++| VAC$ IF DEF,VAC$ 00130 M00S00129.compvlc +++| TACT IF -DEF,TACT 00131 M00S00130.compvlc +++|** TACT - TABLE OF VALID SECURITY ACCESS CATEGORIES. 00132 M00S00131.compvlc +++| 00133 M00S00132.compvlc +++| 00134 M00S00133.compvlc +++| TACT BSS 0 00135 M00S00134.compvlc +++| LOC 0 00136 M00S00135.compvlc +++| VFD 48/0L"ACM00" 00137 M00S00136.compvlc +++| VFD 48/0L"ACM01" 00138 M00S00137.compvlc +++| VFD 48/0L"ACM02" 00139 M00S00138.compvlc +++| VFD 48/0L"ACM03" 00140 M00S00139.compvlc +++| VFD 48/0L"ACM04" 00141 M00S00140.compvlc +++| VFD 48/0L"ACM05" 00142 M00S00141.compvlc +++| VFD 48/0L"ACM06" 00143 M00S00142.compvlc +++| VFD 48/0L"ACM07" 00144 M00S00143.compvlc +++| VFD 48/0L"ACM08" 00145 M00S00144.compvlc +++| VFD 48/0L"ACM09" 00146 M00S00145.compvlc +++| VFD 48/0L"ACM10" 00147 M00S00146.compvlc +++| VFD 48/0L"ACM11" 00148 M00S00147.compvlc +++| VFD 48/0L"ACM12" 00149 M00S00148.compvlc +++| VFD 48/0L"ACM13" 00150 M00S00149.compvlc +++| VFD 48/0L"ACM14" 00151 M00S00150.compvlc +++| VFD 48/0L"ACM15" 00152 M00S00151.compvlc +++| VFD 48/0L"ACM16" 00153 M00S00152.compvlc +++| VFD 48/0L"ACM17" 00154 M00S00153.compvlc +++| VFD 48/0L"ACM18" 00155 M00S00154.compvlc +++| VFD 48/0L"ACM19" 00156 M00S00155.compvlc +++| VFD 48/0L"ACM20" 00157 M00S00156.compvlc +++| VFD 48/0L"ACM21" 00158 M00S00157.compvlc +++| VFD 48/0L"ACM22" 00159 M00S00158.compvlc +++| VFD 48/0L"ACM23" 00160 M00S00159.compvlc +++| VFD 48/0L"ACM24" 00161 M00S00160.compvlc +++| VFD 48/0L"ACM25" 00162 M00S00161.compvlc +++| VFD 48/0L"ACM26" 00163 M00S00162.compvlc +++| VFD 48/0L"ACM27" 00164 M00S00163.compvlc +++| VFD 48/0L"ACM28" 00165 M00S00164.compvlc +++| VFD 48/0L"ACM29" 00166 M00S00165.compvlc +++| VFD 48/0L"ACM30" 00167 M00S00166.compvlc +++| VFD 48/0L"ACM31" 00168 M00S00167.compvlc +++| TACTL BSS 0 00169 M00S00168.compvlc +++| LOC *O 00170 M00S00169.compvlc +++| TACT ENDIF 00171 M00S00170.compvlc +++| VAC$ ENDIF 00172 M00S00171.compvlc +++| SPACE 4,10 00173 M00S00172.compvlc +++| VAL$ IF DEF,VAL$ 00174 M00S00173.compvlc +++| TALV IF -DEF,TALV 00175 M00S00174.compvlc +++|** TALV - TABLE OF SECURITY ACCESS LEVELS. 00176 M00S00175.compvlc +++| 00177 M00S00176.compvlc +++| 00178 M00S00177.compvlc +++| TALV BSS 0 00179 M00S00178.compvlc +++| LOC 0 00180 M00S00179.compvlc +++| VFD 48/0L"ALM0" 00181 M00S00180.compvlc +++| VFD 48/0L"ALM1" 00182 M00S00181.compvlc +++| VFD 48/0L"ALM2" 00183 M00S00182.compvlc +++| VFD 48/0L"ALM3" 00184 M00S00183.compvlc +++| VFD 48/0L"ALM4" 00185 M00S00184.compvlc +++| VFD 48/0L"ALM5" 00186 M00S00185.compvlc +++| VFD 48/0L"ALM6" 00187 M00S00186.compvlc +++| VFD 48/0L"ALM7" 00188 M00S00187.compvlc +++| TALVL BSS 0 00189 M00S00188.compvlc +++| LOC *O 00190 M00S00189.compvlc +++| TALV ENDIF 00191 M00S00190.compvlc +++| VAL$ ENDIF 00192 M00S00191.compvlc +++| SPACE 4,10 00193 M00S00192.compvlc +++| QUAL$ IF -DEF,QUAL$ 00194 M00S00193.compvlc +++| QUAL * 00195 M00S00194.compvlc +++| 00196 M00S00195.compvlc +++| VAC$ IF DEF,VAC$ 00197 M00S00196.compvlc +++| IF DEF,SCH$,1 00198 M00S00197.compvlc +++| VAC EQU /COMPVLC/VAC 00199 M00S00198.compvlc +++| IF -DEF,TACT,2 00200 M00S00199.compvlc +++| TACT EQU /COMPVLC/TACT 00201 M00S00200.compvlc +++| TACTL EQU /COMPVLC/TACTL 00202 M00S00201.compvlc +++| VAC$ ENDIF 00203 M00S00202.compvlc +++| 00204 M00S00203.compvlc +++| VAL$ IF DEF,VAL$ 00205 M00S00204.compvlc +++| IF DEF,SCH$,1 00206 M00S00205.compvlc +++| VAL EQU /COMPVLC/VAL 00207 M00S00206.compvlc +++| IF -DEF,TALV,2 00208 M00S00207.compvlc +++| TALV EQU /COMPVLC/TALV 00209 M00S00208.compvlc +++| TALVL EQU /COMPVLC/TALVL 00210 M00S00209.compvlc +++| VAL$ ENDIF 00211 M00S00210.compvlc +++| 00212 M00S00211.compvlc +++| QUAL$ ENDIF 00213 M00S00212.compvlc +++| 00214 M00S00213.compvlc +++| ENDX
cdc/nos2.source/opl.opl871/common/compvlc.txt · Last modified: (external edit)