Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.compast ---| CTEXT COMPAST - ACCESS SUBSYSTEM TABLES.
00002 M00S00002.compast ---| SPACE 4,10
00003 M00S00003.compast ---| IF -DEF,QUAL$,1
00004 M00S00004.compast ---| QUAL COMPAST
00005 M00S00005.compast ---| BASE M
00006 M00S00006.compast ---|*COMMENT COMPAST - ACCESS SUBSYSTEM TABLES.
| Line S00007 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M00S00008.compast +++| AST SPACE 4,10
00010 M00S00009.compast +++|*** AST - ACCESS SUBSYSTEM TABLES.
00011 M00S00010.compast +++|*
00012 M00S00011.compast +++|* R. M. DANISCH. 81/01/26.
00013 M00S00012.compast +++| AST SPACE 4,40
00014 M00S00013.compast +++|** *AST* PROVIDES THE CALLER WITH A MEANS OF ACCESSING
00015 M00S00014.compast +++|* THE SSCT AND SSAT SUBSYSTEM TABLES. AN ENTRY FOR A PARTICULAR
00016 M00S00015.compast +++|* SUBSYSTEM MAY BE READ OR MODIFIED. MODIFICATION IS PERFORMED
00017 M00S00016.compast +++|* VIA THE *UTEM* MONITOR FUNCTION WITH PRIOR VERIFICATION
00018 M00S00017.compast +++|* PERFORMED FOR SSAT UPDATES. USE OF ANY OF THE MODIFICATION
00019 M00S00018.compast +++|* FUNCTIONS (FUNCTIONS *SECF*, *CSCF*, *SSCF*, *CEAF*, AND
00020 M00S00019.compast +++|* *SEAF*) REQUIRES DEFINITION OF *AST$*.
00021 M00S00020.compast +++|*
00022 M00S00021.compast +++|* *AST* PERFORMS THE FOLLOWING FUNCTIONS -
00023 M00S00022.compast +++|* FECF FETCH SSCT ENTRY.
00024 M00S00023.compast +++|* SECF STORE CP NUMBER IN SSCT ENTRY.
00025 M00S00024.compast +++|* CSCF CLEAR SUBSYSTEM ACCESS FLAG (BIT 11D)
00026 M00S00025.compast +++|* OF SSCT ENTRY.
00027 M00S00026.compast +++|* SSCF SET SUBSYSTEM ACCESS FLAG (BIT 11D) OF
00028 M00S00027.compast +++|* SSCT ENTRY.
00029 M00S00028.compast +++|* FEAF FETCH SSAT ENTRY.
00030 M00S00029.compast +++|* CEAF CLEAR SSAT ENTRY (RELEASE EJT ASSIGNMENT).
00031 M00S00030.compast +++|* SEAF CREATE SSAT ENTRY (ASSIGN EJT).
00032 M00S00031.compast +++|*
00033 M00S00032.compast +++|* ENTRY (A) = 6/ FC,12/ SSID
00034 M00S00033.compast +++|* FC FUNCTION CODE.
00035 M00S00034.compast +++|* SSID SUBSYSTEM IDENTIFICATION NUMBER.
00036 M00S00035.compast +++|* (T1) = CONTROL POINT NUMBER (FUNCTION *SECF*).
00037 M00S00036.compast +++|* = EJT ORDINAL (FUNCTION *SEAF*).
00038 M00S00037.compast +++|*
00039 M00S00038.compast +++|* EXIT (A) = SSCT ENTRY (FUNCTION *FECF*).
00040 M00S00039.compast +++|* (A) .NE. 0 IF SUBSYSTEM ACCESSIBLE FLAG IS ALEADY
00041 M00S00040.compast +++|* CLEAR (FUNCTION *CSCF*).
00042 M00S00041.compast +++|* (A) .NE. 0 IF SUBSYSTEM ACCESSIBLE FLAG IS ALREADY
00043 M00S00042.compast +++|* SET (FUNCTION *SSCF*).
00044 M00S00043.compast +++|* (A) = SSAT ENTRY (FUNCTION *FEAF*).
00045 M00S00044.compast +++|* (A) .NE. 0 IF SSAT ENTRY IS ALREADY CLEAR
00046 M00S00045.compast +++|* (FUNCTION *CEAF*).
00047 M00S00046.compast +++|* (A) .NE. 0 IF SSAT ENTRY IS ALREADY NON-ZERO
00048 M00S00047.compast +++|* (FUNCTION *SEAF*).
00049 M00S00048.compast +++|*
00050 M00S00049.compast +++|* USES T1 - T4, CM - CM+4.
00051 M00S00050.compast +++|*
00052 M00S00051.compast +++|* MACROS MONITOR.
00053 M00S00052.compast +++|*
00054 M00S00053.compast +++|* HANG CONDITIONS -
00055 M00S00054.compast +++|* ATTEMPT TO EXECUTE TABLE UPDATE FUNCTION WITHOUT
00056 M00S00055.compast +++|* *AST$* DEFINED.
00057 M00S00056.compast +++|* INVALID FUNCTION CODE.
00058 M00S00057.compast +++|
00059 M00S00058.compast +++|
00060 M00S00059.compast +++| AST SUBR ENTRY/EXIT
00061 M00S00060.compast +++| STD T3 SAVE SUBSYSTEM IDENTIFICATION NUMBER
00062 M00S00061.compast +++| SHN -14 SAVE FUNCTION CODE
00063 M00S00062.compast +++| STD T2
00064 M00S00063.compast +++| LDC MXSI SAVE SUBSYSTEM INDEX
00065 M00S00064.compast +++| SBD T3
00066 M00S00065.compast +++| STD T3
00067 M00S00066.compast +++|
00068 M00S00067.compast +++| AST$ IF DEF,AST$
00069 M00S00068.compast +++| LDN 0
00070 M00S00069.compast +++| STM ASTA
00071 M00S00070.compast +++| AST$ ENDIF
00072 M00S00071.compast +++|
00073 M00S00072.compast +++|* COMPUTE SSCT CM WORD AND BYTE OFFSET.
00074 M00S00073.compast +++|
00075 M00S00074.compast +++| LCN 0
00076 M00S00075.compast +++| STD T4
00077 M00S00076.compast +++| AST1 AOD T4 INCREMENT CM WORD OFFSET
00078 M00S00077.compast +++| LCN 5
00079 M00S00078.compast +++| RAD T3
00080 M00S00079.compast +++| PJN AST1 IF COMPUTATION INCOMPLETE
00081 M00S00080.compast +++| ADN 5
00082 M00S00081.compast +++| STD T3 SET BYTE OFFSET
00083 M00S00082.compast +++|
00084 M00S00083.compast +++|* DETERMINE IF SSAT ACCESS REQUIRED.
00085 M00S00084.compast +++|
00086 M00S00085.compast +++| LDD T2
00087 M00S00086.compast +++| SBN MNAF
00088 M00S00087.compast +++| MJN AST2 IF NO SSAT ACCESS REQUIRED
00089 M00S00088.compast +++| LDN SSCTL POSITION AT SSAT
00090 M00S00089.compast +++| RAD T4
00091 M00S00090.compast +++|
00092 M00S00091.compast +++|* READ SSCT/SSAT WORD CONTAINING THE TARGET ENTRY.
00093 M00S00092.compast +++|
00094 M00S00093.compast +++| AST2 LDC SSCP
00095 M00S00094.compast +++| CRD CM
00096 M00S00095.compast +++| LDD CM+2
00097 M00S00096.compast +++| SHN 14
00098 M00S00097.compast +++| LMD CM+3
00099 M00S00098.compast +++| ADD T4
00100 M00S00099.compast +++| CRM ASTD,ON
00101 M00S00100.compast +++| LDD T2
00102 M00S00101.compast +++| SBN MAXF
00103 M00S00102.compast +++| PJN AST3 INVALID FUNCTION CODE
00104 M00S00103.compast +++| LDM TAST,T2
00105 M00S00104.compast +++| NJN AST4 IF VALID FUNCTION CODE
00106 M00S00105.compast +++| AST3 MONITOR HNGM HANG PP
00107 M00S00106.compast +++| UJN *
00108 M00S00107.compast +++|
00109 M00S00108.compast +++| AST4 STD CM
00110 M00S00109.compast +++| LJM 0,CM GO TO FUNCTION PROCESSOR
00111 M00S00110.compast +++|
00112 M00S00111.compast +++|* PROCESS *FECF*/*FEAF* FUNCTIONS. FETCH SSCT/SSAT ENTRY.
00113 M00S00112.compast +++|
00114 M00S00113.compast +++| AST5 LDM ASTD,T3 FETCH SSCT/SSAT ENTRY
00115 M00S00114.compast +++| LJM ASTX RETURN
00116 M00S00115.compast +++|
00117 M00S00116.compast +++| .A IF DEF,AST$
00118 M00S00117.compast +++|
00119 M00S00118.compast +++|* PROCESS *SECF* FUNCTION. STORE CP NUMBER IN SSCT ENTRY.
00120 M00S00119.compast +++|
00121 M00S00120.compast +++| AST6 LDD T1 STORE CP NUMBER IN *UTEM* PARAMETERS
00122 M00S00121.compast +++| STM ASTC+4
00123 M00S00122.compast +++| LDM ASTD,T3 STORE VERIFY VALUE IN *UTEM* PARAMETERS
00124 M00S00123.compast +++| STM ASTB+4
00125 M00S00124.compast +++| LDN 5 SET FIELD SIZE
00126 M00S00125.compast +++| UJN AST12 GO TO COMMON CODE
00127 M00S00126.compast +++|
00128 M00S00127.compast +++|* PROCESS *CSCF*/*SSCF* FUNCTIONS. CLEAR/SET SUBSYSTEM ACCESS
00129 M00S00128.compast +++|* FLAG.
00130 M00S00129.compast +++|
00131 M00S00130.compast +++| AST7 LDD T2 STORE INTENDED VALUE IN *UTEM* PARAMETERS
00132 M00S00131.compast +++| SBN CSCF
00133 M00S00132.compast +++| STM ASTC+4
00134 M00S00133.compast +++| LMN 1 STORE VERIFY VALUE IN *UTEM* PARAMETERS
00135 M00S00134.compast +++| STM ASTB+4
00136 M00S00135.compast +++| LDN 11D BIAS LOW ORDER BIT POSITION
00137 M00S00136.compast +++| STM ASTA
00138 M00S00137.compast +++| LDN 1 STORE FIELD SIZE IN *UTEM* PARAMETERS
00139 M00S00138.compast +++| UJN AST12 GO TO COMMON CODE
00140 M00S00139.compast +++|
00141 M00S00140.compast +++|* PROCESS *CEAF* FUNCTION. CLEAR SSAT ENTRY.
00142 M00S00141.compast +++|
00143 M00S00142.compast +++| AST8 LDN 0
00144 M00S00143.compast +++| STD T1
00145 M00S00144.compast +++| LDM ASTD,T3
00146 M00S00145.compast +++| NJN AST11 IF SSAT ENTRY NOT ALREADY CLEAR
00147 M00S00146.compast +++| LDN 1 INDICATE POSSIBLE ERROR CONDITION
00148 M00S00147.compast +++| AST9 LJM ASTX RETURN
00149 M00S00148.compast +++|
00150 M00S00149.compast +++|* PROCESS *SEAF* FUNCTION. CREATE SSAT ENTRY.
00151 M00S00150.compast +++|
00152 M00S00151.compast +++| AST10 LDM ASTD,T3
00153 M00S00152.compast +++| NJN AST9 IF SSAT ENTRY ALREADY NON-ZERO
00154 M00S00153.compast +++| AST11 STM ASTB+4 STORE VERIFY VALUE IN *UTEM* PARAMETERS
00155 M00S00154.compast +++| LDD T1 STORE INTENDED VALUE IN *UTEM* PARAMETERS
00156 M00S00155.compast +++| STM ASTC+4
00157 M00S00156.compast +++| LDN 12D STORE FIELD SIZE IN *UTEM* PARAMETER BLOCK
00158 M00S00157.compast +++| AST12 STM ASTC
00159 M00S00158.compast +++| ADC 4000 SET VERIFY BIT
00160 M00S00159.compast +++| STM ASTB
00161 M00S00160.compast +++| LDN 4 CALCULATE LOW ORDER BIT OF BYTE
00162 M00S00161.compast +++| SBD T3
00163 M00S00162.compast +++| STD T3
00164 M00S00163.compast +++| SHN 1
00165 M00S00164.compast +++| RAD T3
00166 M00S00165.compast +++| SHN 2
00167 M00S00166.compast +++| ADC **
00168 M00S00167.compast +++| ASTA EQU *-1 (LOW ORDER BIT BIAS)
00169 M00S00168.compast +++| SHN 6
00170 M00S00169.compast +++| STM ASTB+1
00171 M00S00170.compast +++| STM ASTC+1
00172 M00S00171.compast +++| LDN 2 FINISH SETTING UP *UTEM* CALL AND ISSUE IT
00173 M00S00172.compast +++| STD CM+1
00174 M00S00173.compast +++| LDD CM+2
00175 M00S00174.compast +++| SHN 14
00176 M00S00175.compast +++| LMD CM+3
00177 M00S00176.compast +++| ADD T4
00178 M00S00177.compast +++| STD CM+4
00179 M00S00178.compast +++| SHN -14
00180 M00S00179.compast +++| STD CM+3
00181 M00S00180.compast +++| LDN 0
00182 M00S00181.compast +++| STD CM+2
00183 M00S00182.compast +++| LDD MA
00184 M00S00183.compast +++| CWM ASTB,CM+1
00185 M00S00184.compast +++| MONITOR UTEM
00186 M00S00185.compast +++| LDD CM+1
00187 M00S00186.compast +++| LJM ASTX RETURN
00188 M00S00187.compast +++|
00189 M00S00188.compast +++|
00190 M00S00189.compast +++|* *UTEM* PARAMETER BLOCK.
00191 M00S00190.compast +++|
00192 M00S00191.compast +++| ASTB VFD 1/1,5/0,6/0 VERIFY ENTRY
00193 M00S00192.compast +++| VFD 6/0,6/0
00194 M00S00193.compast +++| CON 0
00195 M00S00194.compast +++| CON 0
00196 M00S00195.compast +++| CON 0
00197 M00S00196.compast +++|
00198 M00S00197.compast +++| ASTC VFD 1/0,5/0,6/0 CHANGE ENTRY
00199 M00S00198.compast +++| VFD 6/0,6/0
00200 M00S00199.compast +++| CON 0
00201 M00S00200.compast +++| CON 0
00202 M00S00201.compast +++| CON 0
00203 M00S00202.compast +++|
00204 M00S00203.compast +++| .A ELSE
00205 M00S00204.compast +++|
00206 M00S00205.compast +++| AST6 EQU AST3 DISABLE FUNCTIONS ISSUING *UTEM*
00207 M00S00206.compast +++| AST7 EQU AST3
00208 M00S00207.compast +++| AST8 EQU AST3
00209 M00S00208.compast +++| AST10 EQU AST3
00210 M00S00209.compast +++|
00211 M00S00210.compast +++| .A ENDIF
00212 M00S00211.compast +++|
00213 M00S00212.compast +++| ASTD BSS 5 SSCT/SSAT WORD
00214 M00S00213.compast +++| SPACE 4,10
00215 M00S00214.compast +++|** TAST - TABLE OF FUNCTION PROCESSORS.
00216 M00S00215.compast +++|*
00217 M00S00216.compast +++|* EACH ENTRY CONTAINS THE ADDRESS OF THE CORRESPONDING FUNCTION
00218 M00S00217.compast +++|* PROCESSOR.
00219 M00S00218.compast +++|
00220 M00S00219.compast +++|
00221 M00S00220.compast +++| TAST BSS 0
00222 M00S00221.compast +++| LOC 0
00223 M00S00222.compast +++|
00224 M00S00223.compast +++| FECF CON AST5
00225 M00S00224.compast +++| SECF CON AST6
00226 M00S00225.compast +++| CSCF CON AST7
00227 M00S00226.compast +++| SSCF CON AST7
00228 M00S00227.compast +++|
00229 M00S00228.compast +++| MNAF BSS 0 MINIMUM SSAT FUNCTION
00230 M00S00229.compast +++|
00231 M00S00230.compast +++| FEAF CON AST5
00232 M00S00231.compast +++| CEAF CON AST8
00233 M00S00232.compast +++| SEAF CON AST10
00234 M00S00233.compast +++|
00235 M00S00234.compast +++| MAXF BSS 0 MAXIMUM VALID FUNCTION
00236 M00S00235.compast +++|
00237 M00S00236.compast +++| LOC *O
00238 M00S00237.compast +++| AST SPACE 4,10
00239 M00S00238.compast +++| BASE *
00240 M00S00239.compast +++| QUAL$ IF -DEF,QUAL$
00241 M00S00240.compast +++| QUAL *
00242 M00S00241.compast +++| AST EQU /COMPAST/AST
00243 M00S00242.compast +++| FECF EQU /COMPAST/FECF
00244 M00S00243.compast +++| SECF EQU /COMPAST/SECF
00245 M00S00244.compast +++| CSCF EQU /COMPAST/CSCF
00246 M00S00245.compast +++| SSCF EQU /COMPAST/SSCF
00247 M00S00246.compast +++| FEAF EQU /COMPAST/FEAF
00248 M00S00247.compast +++| CEAF EQU /COMPAST/CEAF
00249 M00S00248.compast +++| SEAF EQU /COMPAST/SEAF
00250 M00S00249.compast +++| QUAL$ ENDIF
00251 M00S00250.compast +++| ENDX