Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.sxucp +++|PROC ALT$RP;
00002 M00S00002.sxucp +++|# TITLE ALT$RP - SSALTER REQUEST PROCESSOR. #
00003 M00S00003.sxucp +++|
00004 M00S00004.sxucp +++| BEGIN # ALT$RP #
00005 M00S00005.sxucp +++|
00006 M00S00006.sxucp +++|#
00007 M00S00007.sxucp +++|** ALT$RP - SSALTER REQUEST PROCESSOR.
00008 M00S00008.sxucp +++|*
00009 M00S00009.sxucp +++|* *ALT$RP* PROCESSES THE *SSALTER* TYPE 5 REQUESTS.
00010 M00S00010.sxucp +++|*
00011 M00S00011.sxucp +++|* PROC ALT$RP
00012 M00S00012.sxucp +++|*
00013 M00S00013.sxucp +++|* ENTRY P<CPR> = ADDRESS OF TYPE 5 *UCP* REQUEST BLOCK.
00014 M00S00014.sxucp +++|*
00015 M00S00015.sxucp +++|* EXIT THE *UNIT DEVICE TABLE* TRANSMITTED, OR THE *UNIT
00016 M00S00016.sxucp +++|* DEVICE TABLE* FIELD CHANGED.
00017 M00S00017.sxucp +++|#
00018 M00S00018.sxucp +++|
00019 M00S00019.sxucp +++|#
00020 M00S00020.sxucp +++|**** PROC ALT$RP - XREF LIST BEGIN.
00021 M00S00021.sxucp +++|#
00022 M00S00022.sxucp +++|
00023 M00S00023.sxucp +++| XREF
00024 M00S00024.sxucp +++| BEGIN
00025 M00S00025.sxucp +++| PROC ABORT; # INTERFACE TO *ABORT* #
00026 M00S00026.sxucp +++| PROC MESSAGE; # ABORT A *UCP* #
00027 M00S00027.sxucp +++| PROC KILL$UC; # ABORT A UCP #
00028 M00S00028.sxucp +++| PROC LLRQENQ; # *LLRQ* ENGUEUER #
00029 M00S00029.sxucp +++| PROC UCP$RES; # ISSUE RESPONSE TO *UCP* #
00030 M00S00030.sxucp +++| PROC UCP$WRI; # PASS DATA TO *UCP* #
00031 M00S00031.sxucp +++| END
00032 M00S00032.sxucp +++|
00033 M00S00033.sxucp +++|#
00034 M00S00034.sxucp +++|**** PROC ALT$RP - XREF LIST END.
00035 M00S00035.sxucp +++|#
00036 M00S00036.sxucp +++|
00037 M00S00037.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00038 M00S00038.sxucp +++|*CALL COMBFAS
00039 M00S00039.sxucp +++|*CALL COMBCPR
| Line S00040 Modification History |
M01 (Removed by) | sxucp1 |
Seq # *Modification Id* Act
----------------------------+
00040 M01S00040.sxucp1 ---|*CALL,COMBFET
00041 M00S00041.sxucp +++|*CALL COMBLRQ
00042 M00S00042.sxucp +++|*CALL COMBUCR
00043 M00S00043.sxucp +++|*CALL COMBUDT
00044 M00S00044.sxucp +++|*CALL COMXCTF
00045 M00S00045.sxucp +++|*CALL COMXLTC
00046 M00S00046.sxucp +++|*CALL COMXMSC
00047 M00S00047.sxucp +++|
00048 M00S00048.sxucp +++| ITEM BYNR U; # OFF/SET BIT ADDRESS #
| Line S00049 Modification History |
M01 (Removed by) | sxucp1 |
Seq # *Modification Id* Act
----------------------------+
00049 M01S00049.sxucp1 ---| ITEM CHAN$CH B; # CHANNEL STATUS CHANGE FLAG #
00050 M00S00050.sxucp +++| ITEM LLRADR U; # *LLRQ* ENTRY ADDRESS #
00051 M00S00051.sxucp +++| ITEM PMMR U; # STATUS BIT #
00052 M00S00052.sxucp +++| ITEM RETCODE U; # RETURN CODE #
00053 M00S00053.sxucp +++| ITEM STAT U; # STATUS OF *UDT* BIT #
00054 M00S00054.sxucp +++| ITEM UDTQ U; # UDT ADDRESS #
00055 M00S00055.sxucp +++|
00056 M00S00056.sxucp +++| BASED
00057 M00S00057.sxucp +++| ARRAY UDTBIT [0:0] P(1); # ALTER *UDT* AREA #
00058 M00S00058.sxucp +++| BEGIN
00059 M00S00059.sxucp +++| ITEM UDT$BIT U(00,00,60);
00060 M00S00060.sxucp +++| END
00061 M00S00061.sxucp +++|
00062 M00S00062.sxucp +++|
00063 M00S00063.sxucp +++| IF CPR$RQC[0] LQ REQTYP5"RES5" ##
00064 M00S00064.sxucp +++| OR CPR$RQC[0] GQ REQTYP5"LSTREQTYP5"
00065 M00S00065.sxucp +++| THEN
00066 M00S00066.sxucp +++| BEGIN # IF REQUEST CODE IS INCORRECT #
00067 M00S00067.sxucp +++| KILL$UC(KILLCODE"INVRQC"); # ABORT THE UCP #
00068 M00S00068.sxucp +++| RETURN;
00069 M00S00069.sxucp +++| END
00070 M00S00070.sxucp +++|
00071 M00S00071.sxucp +++|#
00072 M00S00072.sxucp +++|* RETURN THE UNIT DEVICE TABLE TO THE UCP.
00073 M00S00073.sxucp +++|#
00074 M00S00074.sxucp +++|
00075 M00S00075.sxucp +++| IF CPR$RQC[0] EQ REQTYP5"SSA$PUDT" ##
00076 M00S00076.sxucp +++| THEN
00077 M00S00077.sxucp +++| BEGIN # TRANFERS THE UDT TO THE UCP #
00078 M00S00078.sxucp +++| UDTQ = UDTCADR + CPR$ADDR3[0];
00079 M00S00079.sxucp +++| UCP$WRI(CPR$ADDR2[0],CPR$ADDR4[0],UDTQ,RETCODE);
00080 M00S00080.sxucp +++| IF RETCODE EQ SFRCUCPGON
00081 M00S00081.sxucp +++| THEN
00082 M00S00082.sxucp +++| BEGIN
00083 M00S00083.sxucp +++| RETURN;
00084 M00S00084.sxucp +++| END
00085 M00S00085.sxucp +++|
00086 M00S00086.sxucp +++| IF RETCODE EQ SFRCBDUCPA
00087 M00S00087.sxucp +++| THEN
00088 M00S00088.sxucp +++| BEGIN
00089 M00S00089.sxucp +++| KILL$UC(KILLCODE"INVADDR");
00090 M00S00090.sxucp +++| RETURN;
00091 M00S00091.sxucp +++| END
00092 M00S00092.sxucp +++|
00093 M00S00093.sxucp +++| IF RETCODE NQ 0
00094 M00S00094.sxucp +++| THEN
00095 M00S00095.sxucp +++| BEGIN
00096 M00S00096.sxucp +++| FE$RTN[0] = "ALT$RP.";
00097 M00S00097.sxucp +++| MESSAGE(FEMSG[0],UDFL1);
00098 M00S00098.sxucp +++| ABORT;
00099 M00S00099.sxucp +++| END
00100 M00S00100.sxucp +++|
00101 M00S00101.sxucp +++| ELSE
00102 M00S00102.sxucp +++| BEGIN
00103 M00S00103.sxucp +++|
00104 M00S00104.sxucp +++| IF INITIALIZE
00105 M00S00105.sxucp +++| THEN
00106 M00S00106.sxucp +++| BEGIN # BEFORE INITIALIZATION #
00107 M00S00107.sxucp +++| LTC$RQR[LTCENTRY] = RESPTYP5"SSA$OK";
00108 M00S00108.sxucp +++| END
00109 M00S00109.sxucp +++| ELSE
00110 M00S00110.sxucp +++| BEGIN # AFTER INITIALIZATION #
00111 M00S00111.sxucp +++| LTC$RQR[LTCENTRY] = RESPTYP5"OK5";
00112 M00S00112.sxucp +++| END
00113 M00S00113.sxucp +++|
00114 M00S00114.sxucp +++| UCP$RES;
00115 M00S00115.sxucp +++| RETURN;
00116 M00S00116.sxucp +++| END
00117 M00S00117.sxucp +++|
00118 M00S00118.sxucp +++| END # RETURN OF UDT #
00119 M00S00119.sxucp +++|
00120 M00S00120.sxucp +++|#
00121 M00S00121.sxucp +++|* CHANGE A PATH NOD.
00122 M00S00122.sxucp +++|#
00123 M00S00123.sxucp +++|
00124 M00S00124.sxucp +++| UDTQ = CPR$UDTQ[0]+UDTCADR; # UDT RELATIVE ADDRESS #
00125 M00S00125.sxucp +++| BYNR = CPR$BYNR[0]; # OFF SET BIT ADDRESS #
00126 M00S00126.sxucp +++|
00127 M00S00127.sxucp +++| P<UDTBIT> = UDTQ;
00128 M00S00128.sxucp +++| IF CPR$PMMR[0]
00129 M00S00129.sxucp +++| THEN
00130 M00S00130.sxucp +++| BEGIN
00131 M00S00131.sxucp +++| PMMR = 1;
00132 M00S00132.sxucp +++| END
00133 M00S00133.sxucp +++|
00134 M00S00134.sxucp +++| ELSE
00135 M00S00135.sxucp +++| BEGIN
00136 M00S00136.sxucp +++| PMMR = 0;
00137 M00S00137.sxucp +++| END
00138 M00S00138.sxucp +++|
00139 M00S00139.sxucp +++| STAT = B<BYNR,1> UDT$BIT[0]; # CHECK FOR BIT ALREADY SET #
00140 M00S00140.sxucp +++| IF STAT EQ PMMR
00141 M00S00141.sxucp +++| THEN
00142 M00S00142.sxucp +++| BEGIN
00143 M00S00143.sxucp +++| LTC$RQR[LTCENTRY] = RESPTYP5"SSA$UIRC";
00144 M00S00144.sxucp +++| UCP$RES;
00145 M00S00145.sxucp +++| RETURN;
00146 M00S00146.sxucp +++| END
00147 M00S00147.sxucp +++|
00148 M00S00148.sxucp +++| ELSE
00149 M00S00149.sxucp +++| BEGIN
00150 M00S00150.sxucp +++| B<BYNR,1> UDT$BIT[0] = PMMR; # SET OPTION BIT #
| Line S00151 Modification History |
M01 (Removed by) | sxucp1 |
Seq # *Modification Id* Act
----------------------------+
00151 M01S00151.sxucp1 ---| IF BYNR GQ 48
00152 M01S00152.sxucp1 ---| THEN
00153 M01S00153.sxucp1 ---| BEGIN # SET CHANNEL STATUS BIT ONLY #
00154 M01S00154.sxucp1 ---| CHAN$CH = TRUE;
00155 M01S00155.sxucp1 ---| P<MWBTMP> = LOC(UD$CAMF[CPR$CUORD[0]]);
00156 M01S00156.sxucp1 ---| P<FETMWB> = MWB$ADDR[CPR$CIF[0]];
00157 M01S00157.sxucp1 ---| FMW$CHON[0] = CPR$PMMR[0]; # SET CHANNEL STATUS IN WRITE FET #
00158 M01S00158.sxucp1 ---| GOTO CALLDRVR;
00159 M01S00159.sxucp1 ---| END # CHANNEL STATUS SET #
00160 M01S00160.sxucp1 ---|
00161 M00S00161.sxucp +++| B<BYNR+1,1> UDT$BIT[0] = 1; # SET *ACK* FLAG #
00162 M00S00162.sxucp +++| END
00163 M00S00163.sxucp +++|
00164 M00S00164.sxucp +++|#
00165 M00S00165.sxucp +++|* CHECK FOR INITIALIZATION.
00166 M00S00166.sxucp +++|#
00167 M00S00167.sxucp +++|
| Line S00168 Modification History |
M01 (Removed by) | sxucp1 |
Seq # *Modification Id* Act
----------------------------+
00168 M01S00168.sxucp1 ---|CALLDRVR:
00169 M00S00169.sxucp +++| IF INITIALIZE
00170 M00S00170.sxucp +++| THEN
00171 M00S00171.sxucp +++| BEGIN
00172 M00S00172.sxucp +++| LTC$RQR[LTCENTRY] = RESPTYP5"SSA$OK";
00173 M00S00173.sxucp +++| UCP$RES;
00174 M00S00174.sxucp +++| RETURN;
00175 M00S00175.sxucp +++| END
00176 M00S00176.sxucp +++|
00177 M00S00177.sxucp +++|#
00178 M00S00178.sxucp +++|* SET UP A *LLRQ* ENTRY.
00179 M00S00179.sxucp +++|#
00180 M00S00180.sxucp +++|
00181 M00S00181.sxucp +++|
00182 M00S00182.sxucp +++| LLRQENQ(LLRADR);
00183 M00S00183.sxucp +++| P<LLRQ> = LLRADR;
00184 M00S00184.sxucp +++| LLR$LTCT[0] = LTCENTRY;
00185 M00S00185.sxucp +++| LLR$UCPRA[0] = UCP$ADDR[0];
00186 M00S00186.sxucp +++| LLR$WORD4[0] = CPR3[0];
00187 M00S00187.sxucp +++| LLR$WORD5[0] = CPR2[0];
00188 M00S00188.sxucp +++| LLR$PRCNME[0] = REQTYP4"INITHW";
00189 M00S00189.sxucp +++| LLR$CU[0] = CPR$CUORD[0];
00190 M00S00190.sxucp +++| LLR$UDTQ[0] = UDTQ;
00191 M00S00191.sxucp +++| LLR$BYNR[0] = BYNR;
00192 M00S00192.sxucp +++| LLR$PMMR[0] = PMMR;
00193 M00S00193.sxucp +++|
00194 M00S00194.sxucp +++| LTC$LLRQA[LTCENTRY] = LLRADR;
| Line S00195 Modification History |
M01 (Removed by) | sxucp1 |
Seq # *Modification Id* Act
----------------------------+
00195 M01S00195.sxucp1 ---|
00196 M01S00196.sxucp1 ---| IF CHAN$CH
00197 M01S00197.sxucp1 ---| THEN
00198 M01S00198.sxucp1 ---| BEGIN # SET CHANNEL CHANGE REQUEST #
00199 M01S00199.sxucp1 ---| LLR$CHAN = TRUE;
00200 M01S00200.sxucp1 ---| LLR$CIF[0] = CPR$CIF[0]; # PASS CHANNEL INTERFACE #
00201 M01S00201.sxucp1 ---| END # CHANNEL CHANGE REQUEST COMPLETE #
00202 M00S00202.sxucp +++| RETURN;
00203 M00S00203.sxucp +++|
00204 M00S00204.sxucp +++| END # ALT$PR #
00205 M00S00205.sxucp +++|
00206 M00S00206.sxucp +++| TERM
00207 M00S00207.sxucp +++|PROC CONNECT;
00208 M00S00208.sxucp +++|# TITLE CONNECT - ESTABLISH LONG TERM CONNECTION. #
00209 M00S00209.sxucp +++|
00210 M00S00210.sxucp +++| BEGIN # CONNECT #
00211 M00S00211.sxucp +++|
00212 M00S00212.sxucp +++|#
00213 M00S00213.sxucp +++|** CONNECT - ESTABLISH LONG TERM CONNECTION.
00214 M00S00214.sxucp +++|*
00215 M00S00215.sxucp +++|* *CONNECT* PROCESSES *UCP* CONNECT REQUESTS.
00216 M00S00216.sxucp +++|*
00217 M00S00217.sxucp +++|* PROC CONNECT
00218 M00S00218.sxucp +++|*
00219 M00S00219.sxucp +++|* ENTRY THE CONNECT REQUEST TO BE PROCESSED IS IN ARRAY
00220 M00S00220.sxucp +++|* *CPR*. THE BASE POINTER FOR *CPR* IS ALREADY SET.
00221 M00S00221.sxucp +++|*
00222 M00S00222.sxucp +++|* EXIT THE LONG TERM CONNECTION HAS BEEN ESTABLISHED, THE
00223 M00S00223.sxucp +++|* *LTCT* ENTRY FOR THE CONNECTING *UCP* HAS BEEN BUILT,
00224 M00S00224.sxucp +++|* AND A RESPONSE HAS BEEN SENT BACK TO THE *UCP*.
00225 M00S00225.sxucp +++|*
00226 M00S00226.sxucp +++|* MESSAGES * EXEC ABNORMAL, CONNECT.*
00227 M00S00227.sxucp +++|#
00228 M00S00228.sxucp +++|
00229 M00S00229.sxucp +++|#
00230 M00S00230.sxucp +++|**** PROC CONNECT - XREF LIST BEGIN.
00231 M00S00231.sxucp +++|#
00232 M00S00232.sxucp +++|
00233 M00S00233.sxucp +++| XREF
00234 M00S00234.sxucp +++| BEGIN
00235 M00S00235.sxucp +++| PROC ABORT; # INTERFACE TO *ABORT* MACRO #
00236 M00S00236.sxucp +++| PROC KILL$UC; # ABORT A *UCP* #
00237 M00S00237.sxucp +++| PROC MESSAGE; # CALLS *MESSAGE* MACRO #
00238 M00S00238.sxucp +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO #
00239 M00S00239.sxucp +++| PROC UCP$RES; # NOTIFY *UCP* OF REQUEST COMPLETE
00240 M00S00240.sxucp +++| #
00241 M00S00241.sxucp +++| END
00242 M00S00242.sxucp +++|
00243 M00S00243.sxucp +++|#
00244 M00S00244.sxucp +++|**** PROC CONNECT - XREF LIST END.
00245 M00S00245.sxucp +++|#
00246 M00S00246.sxucp +++|
00247 M00S00247.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
00248 M00S00248.sxucp +++|
00249 M00S00249.sxucp +++|*CALL COMBFAS
00250 M00S00250.sxucp +++|*CALL COMBCPR
00251 M00S00251.sxucp +++|*CALL COMBMAP
00252 M00S00252.sxucp +++|*CALL COMBUCR
00253 M00S00253.sxucp +++|*CALL COMXCTF
00254 M00S00254.sxucp +++|*CALL COMXLTC
00255 M00S00255.sxucp +++|*CALL COMXMSC
00256 M00S00256.sxucp +++|
00257 M00S00257.sxucp +++|
00258 M00S00258.sxucp +++| ITEM J U; # COUNTER #
00259 M00S00259.sxucp +++| ITEM ORD$MRFT U; # *MRFT* ORDINAL #
00260 M00S00260.sxucp +++| ITEM UCPSWAPPED B; # UCP WAS SWAPPED OUT #
00261 M00S00261.sxucp +++|
00262 M00S00262.sxucp +++|
00263 M00S00263.sxucp +++|
00264 M00S00264.sxucp +++|
00265 M00S00265.sxucp +++|#
00266 M00S00266.sxucp +++|* ABORT *UCP* IF *DRYUP* FLAG IS SET.
00267 M00S00267.sxucp +++|#
00268 M00S00268.sxucp +++|
00269 M00S00269.sxucp +++| IF DRYUP
00270 M00S00270.sxucp +++| THEN
00271 M00S00271.sxucp +++| BEGIN
00272 M00S00272.sxucp +++| KILL$UC(KILLCODE"CLOSED");
00273 M00S00273.sxucp +++| RETURN;
00274 M00S00274.sxucp +++| END
00275 M00S00275.sxucp +++|
00276 M00S00276.sxucp +++|#
00277 M00S00277.sxucp +++|* REQUESTOR ID HAS TO BE IN RANGE.
00278 M00S00278.sxucp +++|#
00279 M00S00279.sxucp +++|
00280 M00S00280.sxucp +++| IF CPR$RQI[0] EQ REQNAME"RQIFIRST" OR ##
00281 M00S00281.sxucp +++| CPR$RQI[0] GQ REQNAME"RQILAST"
00282 M00S00282.sxucp +++| THEN
00283 M00S00283.sxucp +++| BEGIN
00284 M00S00284.sxucp +++| KILL$UC(KILLCODE"NOTAUTH");
00285 M00S00285.sxucp +++| RETURN;
00286 M00S00286.sxucp +++| END
00287 M00S00287.sxucp +++|
00288 M00S00288.sxucp +++|#
00289 M00S00289.sxucp +++|* SYSTEM LONG TERM CONNECTION HAS TO BE CLEARED.
00290 M00S00290.sxucp +++|#
00291 M00S00291.sxucp +++|
00292 M00S00292.sxucp +++| IF LTCENTRY NQ 0
00293 M00S00293.sxucp +++| THEN
00294 M00S00294.sxucp +++| BEGIN
00295 M00S00295.sxucp +++| KILL$UC(KILLCODE"MULCON");
00296 M00S00296.sxucp +++| RETURN;
00297 M00S00297.sxucp +++| END
00298 M00S00298.sxucp +++|
| Line S00299 Modification History |
M01 (Removed by) | mse0005 |
Seq # *Modification Id* Act
----------------------------+
00299 M01S00299.mse0005 ---|#
00300 M01S00300.mse0005 ---|* 1. *SSMOVE* CAN HAVE MULTIPLE CONNECTIONS, BUT ONLY ONE
00301 M01S00301.mse0005 ---|* PER FAMILY AT ONE TIME.
00302 M01S00302.mse0005 ---|*
00303 M01S00303.mse0005 ---|* 2. ONLY ONE OF THE THREE UTILITIES *SSLABEL*, *SSDEBUG*,
00304 M01S00304.mse0005 ---|* OR *SSVAL* CAN BE CONNECTED AT ANY ONE TIME.
00305 M01S00305.mse0005 ---|*
00306 M01S00306.mse0005 ---|* 3. OTHER REQUESTORS CAN ONLY HAVE ONE REQUEST UP
00307 M01S00307.mse0005 ---|* AT A TIME.
00308 M01S00308.mse0005 ---|#
00309 M01S00309.mse0005 ---|
00310 M01S00310.mse0005 ---| IF CPR$RQI[0] EQ REQNAME"RQIMOVE"
00311 M01S00311.mse0005 ---| # #
00312 M01S00312.mse0005 ---| AND DSC$FAM NQ 0
00313 M01S00313.mse0005 ---| THEN # *SSMOVE* CONFLICT #
00314 M01S00314.mse0005 ---| BEGIN
00315 M01S00315.mse0005 ---| KILL$UC(KILLCODE"UTLCONF");
00316 M01S00316.mse0005 ---| RETURN;
00317 M01S00317.mse0005 ---| END
00318 M01S00318.mse0005 ---|
00319 M01S00319.mse0005 ---| IF CPR$RQI[0] NQ REQNAME"RQIMOVE"
00320 M01S00320.mse0005 ---| THEN
00321 M01S00321.mse0005 ---| BEGIN # CHECK MULTIPLE RUNS AND UTILITY CONFLICTS #
00322 M01S00322.mse0005 ---| IF CONIND[CPR$RQI[0]]
00323 M01S00323.mse0005 ---| THEN
00324 M01S00324.mse0005 ---| BEGIN
00325 M01S00325.mse0005 ---| KILL$UC(KILLCODE"MULRUN");
00326 M01S00326.mse0005 ---| RETURN;
00327 M01S00327.mse0005 ---| END
00328 M01S00328.mse0005 ---|
00329 M01S00329.mse0005 ---| ELSE
00330 M01S00330.mse0005 ---| BEGIN # CHECK UTILITY CONFLICTS #
00331 M01S00331.mse0005 ---| IF CPR$RQI[0] LQ REQNAME"RQIVALD"
00332 M01S00332.mse0005 ---| THEN
00333 M01S00333.mse0005 ---| BEGIN
00334 M01S00334.mse0005 ---| IF CONIND[REQNAME"RQILABL"] OR CONIND[REQNAME"RQIDBUG"] OR
00335 M01S00335.mse0005 ---| CONIND[REQNAME"RQIVALD"]
00336 M01S00336.mse0005 ---| THEN
00337 M01S00337.mse0005 ---| BEGIN
00338 M01S00338.mse0005 ---| KILL$UC(KILLCODE"UTLCONF");
00339 M01S00339.mse0005 ---| RETURN;
00340 M01S00340.mse0005 ---| END
00341 M01S00341.mse0005 ---|
00342 M01S00342.mse0005 ---| END
00343 M01S00343.mse0005 ---|
00344 M01S00344.mse0005 ---| END # CHECK UTILITY CONFLICT #
00345 M01S00345.mse0005 ---|
00346 M01S00346.mse0005 ---| END # CHECK MULTIPLE RUNS AND UTILITY CONFLICTS #
00347 M01S00347.mse0005 ---|
| Line S00001 Modification History |
M01 (Added by) | mse0005 |
Seq # *Modification Id* Act
----------------------------+
00348 M01S00001.mse0005 +++|#
00349 M01S00002.mse0005 +++|* 1. MULTIPLE COPIES OF *SSMOVE* CAN BE RUN AT A TIME, HOWEVER,
00350 M01S00003.mse0005 +++|* ONLY ONE COPY OF *SSMOVE* THAT IS IN THE PROCESS OF
00351 M01S00004.mse0005 +++|* DESTAGING FILES CAN BE CONNECTED AT A TIME. *MULTIPLE RUN*
00352 M01S00005.mse0005 +++|*
00353 M01S00006.mse0005 +++|* 2. MULTIPLE COPIES OF *SSLABEL*, *SSDEBUG* OR *SSVAL* CAN NOT
00354 M01S00007.mse0005 +++|* BE CONNECTED. *MULTIPLE RUN*
00355 M01S00008.mse0005 +++|*
00356 M01S00009.mse0005 +++|* 3. *SSLABEL*, *SSDEBUG* OR *SSVAL* CAN NOT BE CONNECTED WHILE
00357 M01S00010.mse0005 +++|* ANOTHER COPY OF THESE UTILITIES ARE CONNECTED.
00358 M01S00011.mse0005 +++|* *UTILITY CONFLICT*
00359 M01S00012.mse0005 +++|*
00360 M01S00013.mse0005 +++|* 4. *SSVAL* CAN NOT BE CONNECTED WHILE *SSMOVE* IS IN THE
00361 M01S00014.mse0005 +++|* PROCESS OF DESTAGING FILES. *SSMOVE* CAN NOT BE CONNECTED
00362 M01S00015.mse0005 +++|* WHEN *SSVAL* IS CONNECTED. *UTILITY CONFLICT*
00363 M01S00016.mse0005 +++|#
00364 M01S00017.mse0005 +++|
00365 M01S00018.mse0005 +++| IF CPR$RQI[0] EQ REQNAME"RQIMOVE"
00366 M01S00019.mse0005 +++| THEN
00367 M01S00020.mse0005 +++| BEGIN # *SSMOVE* REQUEST #
00368 M01S00021.mse0005 +++| IF DSC$FAM NQ 0
00369 M01S00022.mse0005 +++| THEN
00370 M01S00023.mse0005 +++| BEGIN # MULTIPLE RUN #
00371 M01S00024.mse0005 +++| KILL$UC(KILLCODE"MULRUN");
00372 M01S00025.mse0005 +++| RETURN;
00373 M01S00026.mse0005 +++| END # MULTIPLE RUN #
00374 M01S00027.mse0005 +++|
00375 M01S00028.mse0005 +++| IF CONIND[REQNAME"RQIVALD"]
00376 M01S00029.mse0005 +++| THEN
00377 M01S00030.mse0005 +++| BEGIN # UTILITY CONFLICT #
00378 M01S00031.mse0005 +++| KILL$UC(KILLCODE"UTLCONF");
00379 M01S00032.mse0005 +++| RETURN;
00380 M01S00033.mse0005 +++| END # UTILITY CONFLICT #
00381 M01S00034.mse0005 +++|
00382 M01S00035.mse0005 +++| END # *SSMOVE* REQUEST #
00383 M01S00036.mse0005 +++|
00384 M01S00037.mse0005 +++| ELSE
00385 M01S00038.mse0005 +++| BEGIN # NOT *SSMOVE* REQUEST #
00386 M01S00039.mse0005 +++| IF CONIND[CPR$RQI[0]]
00387 M01S00040.mse0005 +++| THEN
00388 M01S00041.mse0005 +++| BEGIN # MULTIPLE RUN #
00389 M01S00042.mse0005 +++| KILL$UC(KILLCODE"MULRUN");
00390 M01S00043.mse0005 +++| RETURN;
00391 M01S00044.mse0005 +++| END # MULTIPLE RUN #
00392 M01S00045.mse0005 +++|
00393 M01S00046.mse0005 +++| ELSE
00394 M01S00047.mse0005 +++| BEGIN # NOT MULTIPLE RUN #
00395 M01S00048.mse0005 +++| IF (CPR$RQI[0] EQ REQNAME"RQILABL") ##
00396 M01S00049.mse0005 +++| OR (CPR$RQI[0] EQ REQNAME"RQIDBUG") ##
00397 M01S00050.mse0005 +++| OR (CPR$RQI[0] EQ REQNAME"RQIVALD")
00398 M01S00051.mse0005 +++| THEN
00399 M01S00052.mse0005 +++| BEGIN # *SSLABEL*, *SSDEBUG* OR *SSVAL* REQUEST #
00400 M01S00053.mse0005 +++| IF ((CONIND[REQNAME"RQILABL"]) ##
00401 M01S00054.mse0005 +++| OR (CONIND[REQNAME"RQIDBUG"]) ##
00402 M01S00055.mse0005 +++| OR (CONIND[REQNAME"RQIVALD"])) ##
00403 M01S00056.mse0005 +++| OR ((CPR$RQI[0] EQ REQNAME"RQIVALD") AND (DSC$FAM NQ 0))
00404 M01S00057.mse0005 +++| THEN
00405 M01S00058.mse0005 +++| BEGIN # UTILITY CONFLICT #
00406 M01S00059.mse0005 +++| KILL$UC(KILLCODE"UTLCONF");
00407 M01S00060.mse0005 +++| RETURN;
00408 M01S00061.mse0005 +++| END # UTILITY CONFLICT #
00409 M01S00062.mse0005 +++|
00410 M01S00063.mse0005 +++| END # *SSLABEL*, *SSDEBUG* OR *SSVAL* REQUEST #
00411 M01S00064.mse0005 +++|
00412 M01S00065.mse0005 +++| END # NOT MULTIPLE RUN #
00413 M01S00066.mse0005 +++|
00414 M01S00067.mse0005 +++| END # NOT *SSMOVE* REQUEST #
00415 M01S00068.mse0005 +++|
00416 M00S00348.sxucp +++|#
00417 M00S00349.sxucp +++|* FIND AN EMPTY LONG TERM CONNECT TABLE ENTRY AND
00418 M00S00350.sxucp +++|* ASSIGN THE *UCP* TO THE ENTRY. SET THE SYSTEM LONG
00419 M00S00351.sxucp +++|* TERM CONNECT BIT.
00420 M00S00352.sxucp +++|#
00421 M00S00353.sxucp +++|
00422 M00S00354.sxucp +++| FASTFOR LTCENTRY = 1 STEP 1 UNTIL LTCTCNT
00423 M00S00355.sxucp +++| DO
00424 M00S00356.sxucp +++| BEGIN # SEARCH *LTCT* FOR AN EMPTY SLOT #
00425 M00S00357.sxucp +++| IF LTC$SFJBSN[LTCENTRY] EQ 0
00426 M00S00358.sxucp +++| THEN
00427 M00S00359.sxucp +++| BEGIN # SET UP LONG TERM CONNECTION #
00428 M00S00360.sxucp +++| UCPSWAPPED = TRUE;
00429 M00S00361.sxucp +++| REPEAT WHILE UCPSWAPPED
00430 M00S00362.sxucp +++| DO
00431 M00S00363.sxucp +++| BEGIN # REPEAT WHILE SWAPPED #
00432 M00S00364.sxucp +++| SFFC[0] = SFSLTC;
00433 M00S00365.sxucp +++| SFCALL(SFBLKPTR,RCL);
00434 M00S00366.sxucp +++| IF SFRC[0] EQ SFRCSWPOUT
00435 M00S00367.sxucp +++| THEN
00436 M00S00368.sxucp +++| BEGIN
00437 M00S00369.sxucp +++| SFFC[0] = SFSWPI;
00438 M00S00370.sxucp +++| SFCALL(SFBLKPTR,RCL);
00439 M00S00371.sxucp +++| END
00440 M00S00372.sxucp +++|
00441 M00S00373.sxucp +++| ELSE
00442 M00S00374.sxucp +++| BEGIN
00443 M00S00375.sxucp +++| UCPSWAPPED = FALSE;
00444 M00S00376.sxucp +++| END
00445 M00S00377.sxucp +++|
00446 M00S00378.sxucp +++| END # REPEAT WHILE SWAPPED #
00447 M00S00379.sxucp +++|
00448 M00S00380.sxucp +++| IF SFRC[0] NQ 0
00449 M00S00381.sxucp +++| THEN
00450 M00S00382.sxucp +++| BEGIN # PROCESS UNEXPECTED RESPONSE #
00451 M00S00383.sxucp +++| IF SFRC[0] EQ SFRCUCPGON
00452 M00S00384.sxucp +++| THEN
00453 M00S00385.sxucp +++| BEGIN
00454 M00S00386.sxucp +++| RETURN;
00455 M00S00387.sxucp +++| END
00456 M00S00388.sxucp +++|
00457 M00S00389.sxucp +++| ELSE
00458 M00S00390.sxucp +++| BEGIN
00459 M00S00391.sxucp +++| FE$RTN[0] = "CONNECT.";
00460 M00S00392.sxucp +++| MESSAGE(FEMSG[0],UDFL1);
00461 M00S00393.sxucp +++| ABORT;
00462 M00S00394.sxucp +++| END
00463 M00S00395.sxucp +++|
00464 M00S00396.sxucp +++| END # PROCESS UNEXPECTED RESPONSE #
00465 M00S00397.sxucp +++|
00466 M00S00398.sxucp +++| LTC$WORD1[LTCENTRY] = UCP$WORD1[0];
00467 M00S00399.sxucp +++| LTC$WORD2[LTCENTRY] = 0;
00468 M00S00400.sxucp +++| LTC$RQI[LTCENTRY] = CPR$RQI[0];
00469 M00S00401.sxucp +++| LTC$UCPA[LTCENTRY] = UCP$ADDR[0];
00470 M00S00402.sxucp +++| LTC$WORD3[LTCENTRY] = CPR3[0];
00471 M00S00403.sxucp +++| CONIND[CPR$RQI[0]] = TRUE;
00472 M00S00404.sxucp +++| LTC$RQR[LTCENTRY] = RESPTYP1"OK1";
00473 M00S00405.sxucp +++| UCP$RES;
00474 M00S00406.sxucp +++| RETURN;
00475 M00S00407.sxucp +++| END # SET UP LONG TERM CONNECTION #
00476 M00S00408.sxucp +++|
00477 M00S00409.sxucp +++| END # SEARCH *LTCT* FOR AN EMPTY SLOT #
00478 M00S00410.sxucp +++|
00479 M00S00411.sxucp +++|#
00480 M00S00412.sxucp +++|* ABORT IF THERE ARE NO LONG TERM CONNECT TABLE ENTRIES
00481 M00S00413.sxucp +++|* AVAILABLE.
00482 M00S00414.sxucp +++|#
00483 M00S00415.sxucp +++|
00484 M00S00416.sxucp +++| FE$RTN[0] = "CONNECT.";
00485 M00S00417.sxucp +++| MESSAGE(FEMSG[0],UDFL1);
00486 M00S00418.sxucp +++| ABORT;
00487 M00S00419.sxucp +++| END # CONNECT #
00488 M00S00420.sxucp +++|
00489 M00S00421.sxucp +++| TERM
00490 M00S00422.sxucp +++|PROC KILL$UC((MCODE));
00491 M00S00423.sxucp +++|# TITLE KILL$UC - ABORT A *UCP*. #
00492 M00S00424.sxucp +++| BEGIN # KILL$UC #
00493 M00S00425.sxucp +++|
00494 M00S00426.sxucp +++|#
00495 M00S00427.sxucp +++|** KILL$UC - ABORT A *UCP*.
00496 M00S00428.sxucp +++|*
00497 M00S00429.sxucp +++|* *KILL$UC* ABORTS A *UCP*.
00498 M00S00430.sxucp +++|*
00499 M00S00431.sxucp +++|* PROC KILL$UC((MCODE))
00500 M00S00432.sxucp +++|*
00501 M00S00433.sxucp +++|* ENTRY MCODE = MESSAGE CODE ORDINAL.
00502 M00S00434.sxucp +++|* THE JOB SEQUEUNCE NUMBER FROM THE OFFENDING *UCP* IS
00503 M00S00435.sxucp +++|* IN ARRAY *UCPR*. THE BASE POINTER FOR *UCPR* IS
00504 M00S00436.sxucp +++|* ALREADY SET.
00505 M00S00437.sxucp +++|*
00506 M00S00438.sxucp +++|* EXIT A DAYFILE MESSAGE HAS BEEN ISSUED TO EXPLAIN WHY THE
00507 M00S00439.sxucp +++|* *UCP* IS BEING ABORTED, AND AN *SF.REGR* HAS BEEN
00508 M00S00440.sxucp +++|* ISSUED TO ABORT THE OFFENDING *UCP*.
00509 M00S00441.sxucp +++|*
00510 M00S00442.sxucp +++|* MESSAGES * EXEC ABNORMAL, KILL$UC.*
00511 M00S00443.sxucp +++|* * XXXX ABORTED - NOT CONNECTED.*
00512 M00S00444.sxucp +++|* * XXXX ABORTED - ALREADY CONNECTED.*
00513 M00S00445.sxucp +++|* * XXXX ABORTED - MULTIPLE REQUESTS.*
00514 M00S00446.sxucp +++|* * XXXX ABORTED - MULTIPLE RUN.*
00515 M00S00447.sxucp +++|* * XXXX ABORTED - INCORRECT REQUEST TYPE.*
00516 M00S00448.sxucp +++|* * XXXX ABORTED - INCORRECT REQUEST CODE.*
00517 M00S00449.sxucp +++|* * XXXX ABORTED - UTILITY CONFLICT.*
00518 M00S00450.sxucp +++|* * XXXX ABORTED - CARTRIDGE ACTIVE.*
00519 M00S00451.sxucp +++|* * XXXX ABORTED - SSEXEC IS CLOSED.*
00520 M00S00452.sxucp +++|* * XXXX ABORTED - INCORRECT ADDRESS.*
00521 M00S00453.sxucp +++|* XXXX = JOB SEQUENCE NUMBER.
00522 M00S00454.sxucp +++|*
00523 M00S00455.sxucp +++|#
00524 M00S00456.sxucp +++|
00525 M00S00457.sxucp +++| ITEM MCODE U; # MESSAGE-CODE ORDINAL #
00526 M00S00458.sxucp +++|
00527 M00S00459.sxucp +++|#
00528 M00S00460.sxucp +++|**** PROC KILL$UC - XREF LIST BEGIN.
00529 M00S00461.sxucp +++|#
00530 M00S00462.sxucp +++|
00531 M00S00463.sxucp +++| XREF
00532 M00S00464.sxucp +++| BEGIN
00533 M00S00465.sxucp +++| PROC ABORT; # INTERFACE TO *ABORT* MACRO #
00534 M00S00466.sxucp +++| PROC MESSAGE; # INTERFACE TO *MESSAGE* MACRO #
00535 M00S00467.sxucp +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO #
00536 M00S00468.sxucp +++| END
00537 M00S00469.sxucp +++|
00538 M00S00470.sxucp +++|#
00539 M00S00471.sxucp +++|**** PROC KILL$UC - XREF LIST END.
00540 M00S00472.sxucp +++|#
00541 M00S00473.sxucp +++|
00542 M00S00474.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
00543 M00S00475.sxucp +++|*CALL COMBFAS
00544 M00S00476.sxucp +++|*CALL COMBUCR
00545 M00S00477.sxucp +++|*CALL COMXLTC
00546 M00S00478.sxucp +++|*CALL COMXMSC
00547 M00S00479.sxucp +++|
00548 M00S00480.sxucp +++|#
00549 M00S00481.sxucp +++|* ABORT MESSAGE DEFINITION.
00550 M00S00482.sxucp +++|#
00551 M00S00483.sxucp +++|
00552 M00S00484.sxucp +++| ARRAY DISPMESS [0:0] S(5);
00553 M00S00485.sxucp +++| BEGIN
00554 M00S00486.sxucp +++| ITEM MESSJBSN C(00,00,04); # JOB NAME #
00555 M00S00487.sxucp +++| ITEM MESSFLR C(00,24,03) = [" "];
00556 M00S00488.sxucp +++| ITEM MESSABT C(00,42,10) = ["ABORTED - "];
00557 M00S00489.sxucp +++| ITEM MESSREASON C(01,42,21);
00558 M00S00490.sxucp +++| ITEM MESSTERMTR C(03,48,12) = [0];
00559 M00S00491.sxucp +++| END
00560 M00S00492.sxucp +++|
00561 M00S00493.sxucp +++|#
00562 M00S00494.sxucp +++|* REASON WHY *UCP* IS BEING ABORTED.
00563 M00S00495.sxucp +++|#
00564 M00S00496.sxucp +++|
00565 M00S00497.sxucp +++| ARRAY ABTREASON [KILLCODE"NOTAUTH":KILLCODE"LASTCODE"] S(3);
00566 M00S00498.sxucp +++| BEGIN
00567 M00S00499.sxucp +++| ITEM REASONMESS C(00,00,21) = ["NOT AUTHORIZED.",
00568 M00S00500.sxucp +++| "NOT CONNECTED.",
00569 M00S00501.sxucp +++| "ALREADY CONNECTED.",
00570 M00S00502.sxucp +++| "MULTIPLE REQUESTS.",
00571 M00S00503.sxucp +++| "MULTIPLE RUN.",
00572 M00S00504.sxucp +++| "INVALID REQUEST TYPE.",
00573 M00S00505.sxucp +++| "INVALID REQUEST CODE.",
00574 M00S00506.sxucp +++| "UTILITY CONFLICT.",
00575 M00S00507.sxucp +++| "CARTRIDGE ACTIVE.",
00576 M00S00508.sxucp +++| "SSEXEC IS CLOSED.",
00577 M00S00509.sxucp +++| "INVALID ADDRESS.",
00578 M00S00510.sxucp +++| "LAST ENTRY."];
00579 M00S00511.sxucp +++| END
00580 M00S00512.sxucp +++|
00581 M00S00513.sxucp +++|
00582 M00S00514.sxucp +++|
00583 M00S00515.sxucp +++|
00584 M00S00516.sxucp +++|
00585 M00S00517.sxucp +++|#
00586 M00S00518.sxucp +++|* REASON CODE HAS TO BE WITHIN RANGE.
00587 M00S00519.sxucp +++|#
00588 M00S00520.sxucp +++|
00589 M00S00521.sxucp +++| IF MCODE LS KILLCODE"NOTAUTH" OR MCODE GQ KILLCODE"LASTCODE"
00590 M00S00522.sxucp +++| THEN
00591 M00S00523.sxucp +++| BEGIN
00592 M00S00524.sxucp +++| FE$RTN[0] = "KILLUCP.";
00593 M00S00525.sxucp +++| MESSAGE(FEMSG[0],UDFL1);
00594 M00S00526.sxucp +++| ABORT;
00595 M00S00527.sxucp +++| END
00596 M00S00528.sxucp +++|
00597 M00S00529.sxucp +++| MESSJBSN[0] = UCP$JBSN[0];
00598 M00S00530.sxucp +++| MESSREASON[0] = REASONMESS[MCODE];
00599 M00S00531.sxucp +++| MESSAGE(DISPMESS,3);
00600 M00S00532.sxucp +++|
00601 M00S00533.sxucp +++|#
00602 M00S00534.sxucp +++|* ABORT THE *UCP* VIA A *SFCALL* REQUEST.
00603 M00S00535.sxucp +++|#
00604 M00S00536.sxucp +++|
00605 M00S00537.sxucp +++|REPEATREGR:
00606 M00S00538.sxucp +++| SFFP[0] = 0;
00607 M00S00539.sxucp +++| SFUCPA[0] = 2;
00608 M00S00540.sxucp +++| SFSCPA[0] = LOC(DISPMESS);
00609 M00S00541.sxucp +++| SFFC[0] = SFREGR;
00610 M00S00542.sxucp +++| SFJBSN[0] = UCP$JBSN[0];
00611 M00S00543.sxucp +++| SFFSTA[0] = UCP$FSTA[0];
00612 M00S00544.sxucp +++| SFCALL(SFBLKPTR,RCL);
00613 M00S00545.sxucp +++|
00614 M00S00546.sxucp +++|#
00615 M00S00547.sxucp +++|* SWAPIN *UCP* IF OUT.
00616 M00S00548.sxucp +++|#
00617 M00S00549.sxucp +++|
00618 M00S00550.sxucp +++| IF SFRC[0] EQ SFRCSWPOUT
00619 M00S00551.sxucp +++| THEN
00620 M00S00552.sxucp +++| BEGIN
00621 M00S00553.sxucp +++| SFFC[0] = SFSWPI;
00622 M00S00554.sxucp +++| SFCALL(SFBLKPTR,RCL);
00623 M00S00555.sxucp +++| GOTO REPEATREGR;
00624 M00S00556.sxucp +++| END
00625 M00S00557.sxucp +++|
00626 M00S00558.sxucp +++|#
00627 M00S00559.sxucp +++|* ABORT IF *SFERROR* NOT *UCP* ABORTED OR UNDEFINED.
00628 M00S00560.sxucp +++|#
00629 M00S00561.sxucp +++|
00630 M00S00562.sxucp +++| IF SFRC[0] NQ 0
00631 M00S00563.sxucp +++| THEN
00632 M00S00564.sxucp +++| BEGIN
00633 M00S00565.sxucp +++| IF SFRC[0] NQ SFRCUCPGON
00634 M00S00566.sxucp +++| THEN
00635 M00S00567.sxucp +++| BEGIN
00636 M00S00568.sxucp +++| FE$RTN[0] = "KILLUCP.";
00637 M00S00569.sxucp +++| MESSAGE(FEMSG[0],UDFL1);
00638 M00S00570.sxucp +++| ABORT;
00639 M00S00571.sxucp +++| END
00640 M00S00572.sxucp +++|
00641 M00S00573.sxucp +++| END
00642 M00S00574.sxucp +++|
00643 M00S00575.sxucp +++| RETURN;
00644 M00S00576.sxucp +++| END # KILL$UC #
00645 M00S00577.sxucp +++|
00646 M00S00578.sxucp +++| TERM
00647 M00S00579.sxucp +++|PROC LINK$RP;
00648 M00S00580.sxucp +++|# TITLE LINK$RP - PRELIMINARY LINKAGE PROCESSING. #
00649 M00S00581.sxucp +++| BEGIN # LINK$RP #
00650 M00S00582.sxucp +++|
00651 M00S00583.sxucp +++|
00652 M00S00584.sxucp +++|#
00653 M00S00585.sxucp +++|** LINK$RP - PRELIMINARY LINKAGE PROCESSING.
00654 M00S00586.sxucp +++|*
00655 M00S00587.sxucp +++|* *LINK$RP* DOES PRELIMINARY PROCESSING OF *UCP* LINKAGE
00656 M00S00588.sxucp +++|* REQUESTS AND THEN CALLS THE APPROPRIATE MODULE TO DO
00657 M00S00589.sxucp +++|* THE DETAILED PROCESSING OF THE REQUEST.
00658 M00S00590.sxucp +++|*
00659 M00S00591.sxucp +++|* PROC LINK$RP
00660 M00S00592.sxucp +++|*
00661 M00S00593.sxucp +++|* ENTRY THE TYPE 1 UCP REQUEST TO BE PROCESSED IS IN ARRAY
00662 M00S00594.sxucp +++|* *CPR*. THE BASE POINTER FOR *CPR* IS ALREADY SET.
00663 M00S00595.sxucp +++|*
00664 M00S00596.sxucp +++|* EXIT THE TYPE 1 REQUEST HAS BEEN PROCESSED AND A RESPONSE
00665 M00S00597.sxucp +++|* HAS BEEN SENT BACK TO THE UCP INDICATING COMPLETION
00666 M00S00598.sxucp +++|* OF THE REQUEST.
00667 M00S00599.sxucp +++|#
00668 M00S00600.sxucp +++|
00669 M00S00601.sxucp +++|#
00670 M00S00602.sxucp +++|**** PROC LINK$RP - XREF LIST BEGIN.
00671 M00S00603.sxucp +++|#
00672 M00S00604.sxucp +++|
00673 M00S00605.sxucp +++| XREF
00674 M00S00606.sxucp +++| BEGIN
00675 M00S00607.sxucp +++| PROC CONNECT; # ESTABLISH LONG TERM CONNECTION #
00676 M00S00608.sxucp +++| PROC KILL$UC; # ABORT A *UCP* #
00677 M00S00609.sxucp +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO #
00678 M00S00610.sxucp +++| PROC UCP$DON; # TERMINATE *UCP* REQUEST PROPERLY
00679 M00S00611.sxucp +++| #
00680 M00S00612.sxucp +++| END
00681 M00S00613.sxucp +++|
00682 M00S00614.sxucp +++|#
00683 M00S00615.sxucp +++|**** PROC LINK$RP - XREF LIST END.
00684 M00S00616.sxucp +++|#
00685 M00S00617.sxucp +++|
00686 M00S00618.sxucp +++|
00687 M00S00619.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
00688 M00S00620.sxucp +++|*CALL COMBFAS
00689 M00S00621.sxucp +++|*CALL COMBCPR
00690 M00S00622.sxucp +++|*CALL COMBUCR
00691 M00S00623.sxucp +++|*CALL COMXMSC
00692 M00S00624.sxucp +++|
00693 M00S00625.sxucp +++|#
00694 M00S00626.sxucp +++|* LIST FOR PROCESSING LINKAGE REQUESTS.
00695 M00S00627.sxucp +++|#
00696 M00S00628.sxucp +++|
00697 M00S00629.sxucp +++| SWITCH TYP1SW:REQTYP1
00698 M00S00630.sxucp +++| PRCON:CONNECT,
00699 M00S00631.sxucp +++| PRDISC:DISCONNECT;
00700 M00S00632.sxucp +++|
00701 M00S00633.sxucp +++|
00702 M00S00634.sxucp +++|
00703 M00S00635.sxucp +++|
00704 M00S00636.sxucp +++|
00705 M00S00637.sxucp +++|#
00706 M00S00638.sxucp +++|* REQUEST CODE HAS TO BE A VALID LINKAGE REQUEST CODE.
00707 M00S00639.sxucp +++|#
00708 M00S00640.sxucp +++|
00709 M00S00641.sxucp +++| IF CPR$RQC[0] EQ REQTYP1"RES1" ##
00710 M00S00642.sxucp +++| OR CPR$RQC[0] GQ REQTYP1"LSTREQTYP1"
00711 M00S00643.sxucp +++| THEN
00712 M00S00644.sxucp +++| BEGIN
00713 M00S00645.sxucp +++| KILL$UC(KILLCODE"INVRQC");
00714 M00S00646.sxucp +++| RETURN;
00715 M00S00647.sxucp +++| END
00716 M00S00648.sxucp +++|
00717 M00S00649.sxucp +++|
00718 M00S00650.sxucp +++|#
00719 M00S00651.sxucp +++|* PROCESS THE APPROPRIATE LINKAGE REQUEST AND THEN RETURN TO
00720 M00S00652.sxucp +++|* THE CALLER.
00721 M00S00653.sxucp +++|#
00722 M00S00654.sxucp +++|
00723 M00S00655.sxucp +++| GOTO TYP1SW[CPR$RQC[0]];
00724 M00S00656.sxucp +++|
00725 M00S00657.sxucp +++|
00726 M00S00658.sxucp +++|PRCON:
00727 M00S00659.sxucp +++| CONNECT;
00728 M00S00660.sxucp +++| RETURN;
00729 M00S00661.sxucp +++|
00730 M00S00662.sxucp +++|
00731 M00S00663.sxucp +++|PRDISC:
00732 M00S00664.sxucp +++| UCP$DON;
00733 M00S00665.sxucp +++| RETURN;
00734 M00S00666.sxucp +++|
00735 M00S00667.sxucp +++|
00736 M00S00668.sxucp +++| END # LINK$RP #
00737 M00S00669.sxucp +++|
00738 M00S00670.sxucp +++| TERM
00739 M00S00671.sxucp +++|PROC QUE$RP;
00740 M00S00672.sxucp +++|# TITLE QUE$RP - QUEUABLE REQUEST PROCESSOR. #
00741 M00S00673.sxucp +++|
00742 M00S00674.sxucp +++| BEGIN # QUE$RP #
00743 M00S00675.sxucp +++|
00744 M00S00676.sxucp +++|#
00745 M00S00677.sxucp +++|** QUE$RP - QUEUABLE REQUEST PROCESSOR.
00746 M00S00678.sxucp +++|*
00747 M00S00679.sxucp +++|* *QUE$RP* DOES PRELIMINARY PROCESSING OF TYPE 4 *UCP* REQUESTS.
00748 M00S00680.sxucp +++|* A LOW LEVEL REQUEST QUEUE ENTRY IS SET UP. FOR AN UNLOAD
00749 M00S00681.sxucp +++|* CARTRIDGE REQUEST, THE UTILITY CARTRIDGE TABLE IS CLEARED.
00750 M00S00682.sxucp +++|*
00751 M00S00683.sxucp +++|* PROC QUE$RP
00752 M00S00684.sxucp +++|*
00753 M00S00685.sxucp +++|* ENTRY POINTERS TO THE UCP REQUEST BEING PROCESSED AND
00754 M00S00686.sxucp +++|* THE *LTCT* ENTRY CORRESPONDING TO THE REQUEST HAVE
00755 M00S00687.sxucp +++|* BEEN SET.
00756 M00S00688.sxucp +++|*
00757 M00S00689.sxucp +++|* EXIT IF AN INCORRECT REQUEST CODE OR A UTILITY CONFLICT IS
00758 M00S00690.sxucp +++|* DISCOVERED, THE UCP WILL BE ABORTED AND CONTROL WILL
00759 M00S00691.sxucp +++|* RETURN TO THE CALLER.
00760 M00S00692.sxucp +++|*
00761 M00S00693.sxucp +++|* NOTES *QUE$RP* MUST NOT BE CALLED IF THE *LLRQ* IS FULL.
00762 M00S00694.sxucp +++|#
00763 M00S00695.sxucp +++|
00764 M00S00696.sxucp +++|#
00765 M00S00697.sxucp +++|**** PROC QUE$RP - XREF LIST BEGIN.
00766 M00S00698.sxucp +++|#
00767 M00S00699.sxucp +++|
00768 M00S00700.sxucp +++| XREF
00769 M00S00701.sxucp +++| BEGIN
00770 M00S00702.sxucp +++| PROC ADD$LNK; # ADD ENTRY TO END OF CHAIN #
00771 M00S00703.sxucp +++| PROC KILL$UC; # ABORT A UCP #
00772 M00S00704.sxucp +++| PROC LLRQENQ; # *LLRQ* ENQUEUER #
00773 M00S00705.sxucp +++| END
00774 M00S00706.sxucp +++|
00775 M00S00707.sxucp +++|#
00776 M00S00708.sxucp +++|**** PROC QUE$RP - XREF LIST END.
00777 M00S00709.sxucp +++|#
00778 M00S00710.sxucp +++|
00779 M00S00711.sxucp +++| DEF LISTCON #0#;
00780 M00S00712.sxucp +++|*CALL COMBFAS
00781 M00S00713.sxucp +++|*CALL COMBCHN
00782 M00S00714.sxucp +++|*CALL COMBCPR
00783 M00S00715.sxucp +++|*CALL COMBLRQ
00784 M00S00716.sxucp +++|*CALL COMXLTC
00785 M00S00717.sxucp +++|*CALL COMXMSC
00786 M00S00718.sxucp +++|*CALL COMBUCR
00787 M00S00719.sxucp +++|
00788 M00S00720.sxucp +++| ITEM LLRADR U; # *LLRQ* ENTRY ADDRESS #
00789 M00S00721.sxucp +++|
00790 M00S00722.sxucp +++| SWITCH REQCODE:REQTYP4
00791 M00S00723.sxucp +++| REQ1:LOAD$CART,
00792 M00S00724.sxucp +++| REQ2:UNLD$CART,
00793 M00S00725.sxucp +++| REQ3:CP$RAW$AU,
00794 M00S00726.sxucp +++| REQ4:WRT$LAB,
00795 M00S00727.sxucp +++| REQEND:LSTREQTYP4;
00796 M00S00728.sxucp +++|
00797 M00S00729.sxucp +++| CONTROL EJECT;
00798 M00S00730.sxucp +++|
00799 M00S00731.sxucp +++| IF CPR$RQC[0] LQ REQTYP4"RES4" ##
00800 M00S00732.sxucp +++| OR CPR$RQC[0] GQ REQTYP4"LSTREQTYP4"
00801 M00S00733.sxucp +++| THEN # IF REQUEST CODE IS INCORRECT #
00802 M00S00734.sxucp +++| BEGIN
00803 M00S00735.sxucp +++| KILL$UC(KILLCODE"INVRQC"); # ABORT THE UCP #
00804 M00S00736.sxucp +++| RETURN;
00805 M00S00737.sxucp +++| END
00806 M00S00738.sxucp +++|
00807 M00S00739.sxucp +++| IF CPR$RQC[0] EQ REQTYP4"LOAD$CART"
00808 M00S00740.sxucp +++| THEN # IF LOAD CARTRDIGE REQUEST #
00809 M00S00741.sxucp +++| BEGIN # LOAD CARTRDIGE REQUEST #
00810 M00S00742.sxucp +++| IF LTC$CART[LTCENTRY]
00811 M00S00743.sxucp +++| THEN # IF *UTCT* NOT EMPTY #
00812 M00S00744.sxucp +++| BEGIN
00813 M00S00745.sxucp +++| KILL$UC(KILLCODE"MULCART"); # CARTRIDGE ALREADY ACTIVE #
00814 M00S00746.sxucp +++| RETURN;
00815 M00S00747.sxucp +++| END
00816 M00S00748.sxucp +++| ELSE
00817 M00S00749.sxucp +++| BEGIN # SET UP *LLRQ* ENTRY #
00818 M00S00750.sxucp +++| LLRQENQ(LLRADR);
00819 M00S00751.sxucp +++| P<LLRQ> = LLRADR;
00820 M00S00752.sxucp +++| LLR$LTCT[0] = LTCENTRY;
00821 M00S00753.sxucp +++| LLR$UCPRA[0] = UCP$ADDR[0];
00822 M00S00754.sxucp +++| LLR$WORD4[0] = CPR3[0];
00823 M00S00755.sxucp +++| LLR$WORD5[0] = CPR2[0];
00824 M00S00756.sxucp +++| LTC$LLRQA[LTCENTRY] = LLRADR;
00825 M00S00757.sxucp +++| END
00826 M00S00758.sxucp +++|
00827 M00S00759.sxucp +++| END # LOAD CARTRIDGE REQUEST #
00828 M00S00760.sxucp +++|
00829 M00S00761.sxucp +++| IF CPR$RQC[0] EQ REQTYP4"UNLD$CART"
00830 M00S00762.sxucp +++| THEN # IF UNLOAD CARTRIDGE REQUEST #
00831 M00S00763.sxucp +++| BEGIN
00832 M00S00764.sxucp +++| LTC$CART[0] = FALSE;
00833 M00S00765.sxucp +++| END
00834 M00S00766.sxucp +++|
00835 M00S00767.sxucp +++| IF CPR$RQC[0] NQ REQTYP4"LOAD$CART"
00836 M00S00768.sxucp +++| THEN
00837 M00S00769.sxucp +++| BEGIN # NO BUILD OF *LLRQ* #
00838 M00S00770.sxucp +++| P<LLRQ> = LTC$LLRQA[LTCENTRY];
00839 M00S00771.sxucp +++| LLR$DR[0] = 0; # CLEAR OLD RESPONSE CODE #
00840 M00S00772.sxucp +++| LLR$PRCST[0] = 0;
00841 M00S00773.sxucp +++| LLR$RQC[0] = CPR$RQC[0]; # NEW REQUEST CODE #
00842 M00S00774.sxucp +++| LLR$WORD4[0] = CPR3[0];
00843 M00S00775.sxucp +++| LLR$YZ[0] = CPR$YZ[0];
00844 M00S00776.sxucp +++| LLR$ADDR2[0] = CPR$ADDR2[0];
00845 M00S00777.sxucp +++| END
00846 M00S00778.sxucp +++|
00847 M00S00779.sxucp +++|#
00848 M00S00780.sxucp +++|* SIMULATED CASE COMMAND FOR SETTING PROCESS NAME.
00849 M00S00781.sxucp +++|#
00850 M00S00782.sxucp +++|
00851 M00S00783.sxucp +++|CORCOD:
00852 M00S00784.sxucp +++| GOTO REQCODE[CPR$RQC[0]];
00853 M00S00785.sxucp +++|
00854 M00S00786.sxucp +++|REQ1: # LOAD CARTRIDGE #
00855 M00S00787.sxucp +++| LLR$PRCNME[0] = REQTYP4"LOAD$CART";
00856 M00S00788.sxucp +++| RETURN;
00857 M00S00789.sxucp +++|
00858 M00S00790.sxucp +++|REQ2: # UNLOAD CARTRIDGE #
00859 M00S00791.sxucp +++| LLR$PRCNME[0] = REQTYP4"UNLD$CART";
00860 M00S00792.sxucp +++| GOTO REQEND;
00861 M00S00793.sxucp +++|
00862 M00S00794.sxucp +++|REQ3: # COPY RAW STREAM #
00863 M00S00795.sxucp +++| LLR$PRCNME[0] = REQTYP4"CP$RAW$AU";
00864 M00S00796.sxucp +++| GOTO REQEND;
00865 M00S00797.sxucp +++|
00866 M00S00798.sxucp +++|REQ4: # WRITE LABEL #
00867 M00S00799.sxucp +++| LLR$PRCNME[0] = REQTYP4"WRT$LAB";
00868 M00S00800.sxucp +++| GOTO REQEND;
00869 M00S00801.sxucp +++|
00870 M00S00802.sxucp +++|REQEND:
00871 M00S00803.sxucp +++|
00872 M00S00804.sxucp +++|#
00873 M00S00805.sxucp +++|* END SIMULATED CASE COMMAND FOR SETTING PROCESS NAME.
00874 M00S00806.sxucp +++|#
00875 M00S00807.sxucp +++|
00876 M00S00808.sxucp +++| ADD$LNK(LTC$LLRQA[LTCENTRY],LCHN"LL$READY",0);
00877 M00S00809.sxucp +++| RETURN;
00878 M00S00810.sxucp +++|
00879 M00S00811.sxucp +++| END # QUE$RP #
00880 M00S00812.sxucp +++|
00881 M00S00813.sxucp +++| TERM
00882 M00S00814.sxucp +++|PROC TYP2$RP;
00883 M00S00815.sxucp +++|# TITLE TYP2$RP - TYPE 2 REQUEST PROCESSOR. #
00884 M00S00816.sxucp +++|
00885 M00S00817.sxucp +++| BEGIN # TYP2$RP #
00886 M00S00818.sxucp +++|
00887 M00S00819.sxucp +++|#
00888 M00S00820.sxucp +++|** TYP2$RP - TYPE 2 REQUEST PROCESSOR.
00889 M00S00821.sxucp +++|*
00890 M00S00822.sxucp +++|* *TYP2$RP* DOES PRELIMINARY PROCESSING OF TYPE 2 *UCP* REQUESTS.
00891 M00S00823.sxucp +++|* THE APPROPRIATE MODULE IS CALLED TO DO DETAILED PROCESSING OF
00892 M00S00824.sxucp +++|* THE REQUEST.
00893 M00S00825.sxucp +++|*
00894 M00S00826.sxucp +++|* PROC TYP2$RP
00895 M00S00827.sxucp +++|*
00896 M00S00828.sxucp +++|* ENTRY THE POINTER TO THE *UCP* REQUEST BEING PROCESSED
00897 M00S00829.sxucp +++|* HAS BEEN SET (BASED ARRAY *CPR*).
00898 M00S00830.sxucp +++|*
00899 M00S00831.sxucp +++|* EXIT IF AN INCORRECT REQUEST CODE WAS DETECTED, THE *UCP*
00900 M00S00832.sxucp +++|* HAS BEEN ABORTED, ELSE *ACTVMF* HAS BEEN CALLED.
00901 M00S00833.sxucp +++|#
00902 M00S00834.sxucp +++|
00903 M00S00835.sxucp +++|#
00904 M00S00836.sxucp +++|* PROC TYP2$RP - XREF LIST BEGIN.
00905 M00S00837.sxucp +++|#
00906 M00S00838.sxucp +++|
00907 M00S00839.sxucp +++| XREF
00908 M00S00840.sxucp +++| BEGIN
00909 M00S00841.sxucp +++| PROC DSSETUP; # SETUP DESTAGE PROCESSING #
00910 M00S00842.sxucp +++| PROC KILL$UC; # ABORT A *UCP* #
00911 M00S00843.sxucp +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO #
00912 M00S00844.sxucp +++| PROC UCP$RES; # ISSUE RESPONSE TO A *UCP* #
00913 M00S00845.sxucp +++| END
00914 M00S00846.sxucp +++|
00915 M00S00847.sxucp +++|#
00916 M00S00848.sxucp +++|* PROC TYP2$RP - XREF LIST END.
00917 M00S00849.sxucp +++|#
00918 M00S00850.sxucp +++|
00919 M00S00851.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00920 M00S00852.sxucp +++|*CALL COMBFAS
00921 M00S00853.sxucp +++|*CALL COMBCPR
00922 M00S00854.sxucp +++|*CALL COMBUCR
00923 M00S00855.sxucp +++|*CALL,COMXLTC
00924 M00S00856.sxucp +++|*CALL,COMXMSC
00925 M00S00857.sxucp +++|
00926 M00S00858.sxucp +++| ITEM STAT U; # STATUS #
00927 M00S00859.sxucp +++| CONTROL EJECT;
00928 M00S00860.sxucp +++| IF CPR$RQC[0] LQ REQTYP2"RES2" ##
00929 M00S00861.sxucp +++| OR CPR$RQC[0] GQ REQTYP2"LSTREQTYP2"
00930 M00S00862.sxucp +++| THEN # IF INCORRECT REQUEST CODE #
00931 M00S00863.sxucp +++| BEGIN
00932 M00S00864.sxucp +++| KILL$UC(KILLCODE"INVRQC"); # ABORT THE *UCP* #
00933 M00S00865.sxucp +++| RETURN;
00934 M00S00866.sxucp +++| END
00935 M00S00867.sxucp +++|
00936 M00S00868.sxucp +++|#
00937 M00S00869.sxucp +++|* CALL *DSSETUP* TO INITIATE DESTAGE PROCESSING.
00938 M00S00870.sxucp +++|* IF PROBLEMS WITH THIS INITIATION OR IF THE NO-WAIT OPTION IS
00939 M00S00871.sxucp +++|* SELECTED, ISSUE AN IMMEDIATE REPLY TO *SSMOVE*. OTHERWISE,
00940 M00S00872.sxucp +++|* SAVE THE LONG-TERM CONNECT TABLE ORDINAL SO A REPLY CAN
00941 M00S00873.sxucp +++|* BE RETURNED UPON COMPLETION OF DESTAGING.
00942 M00S00874.sxucp +++|#
00943 M00S00875.sxucp +++|
00944 M00S00876.sxucp +++| DSSETUP(CPR$FAM[0],STAT);
00945 M00S00877.sxucp +++|
00946 M00S00878.sxucp +++| IF STAT NQ 0
00947 M00S00879.sxucp +++| THEN
00948 M00S00880.sxucp +++| BEGIN STAT = RESPTYP2"MRFERR"; END
00949 M00S00881.sxucp +++| ELSE BEGIN STAT = RESPTYP2"OK2";
00950 M00S00882.sxucp +++| IF NOT CPR$NW[0]
00951 M00S00883.sxucp +++| THEN # CAUSE *SSMOVE* TO BE ROLLED UNTIL DESTAGING
00952 M00S00884.sxucp +++| IS COMPLETE #
00953 M00S00885.sxucp +++| BEGIN
00954 M00S00886.sxucp +++| LTC$SFUCPA[LTCENTRY] = 0;
00955 M00S00887.sxucp +++| LTC$SFSCPA[LTCENTRY] = 0;
00956 M00S00888.sxucp +++| LTC$SFFC[LTCENTRY] = SFSWPO;
00957 M00S00889.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),NRCL);
00958 M00S00890.sxucp +++| DSC$LTCT = LTCENTRY;
00959 M00S00891.sxucp +++| RETURN;
00960 M00S00892.sxucp +++| END
00961 M00S00893.sxucp +++|
00962 M00S00894.sxucp +++| END
00963 M00S00895.sxucp +++|
00964 M00S00896.sxucp +++|#
00965 M00S00897.sxucp +++|* REPLY IMMEDIATELY.
00966 M00S00898.sxucp +++|#
00967 M00S00899.sxucp +++|
00968 M00S00900.sxucp +++| LTC$RQR[LTCENTRY] = STAT;
00969 M00S00901.sxucp +++| UCP$RES;
00970 M00S00902.sxucp +++| RETURN;
00971 M00S00903.sxucp +++| END # TYP2$RP #
00972 M00S00904.sxucp +++|
00973 M00S00905.sxucp +++| TERM
00974 M00S00906.sxucp +++|PROC UCP$DON;
00975 M00S00907.sxucp +++|# TITLE UCP$DON - TERMINATE *UCP* REQUEST PROPERLY. #
00976 M00S00908.sxucp +++|
00977 M00S00909.sxucp +++| BEGIN # UCP$DON #
00978 M00S00910.sxucp +++|
00979 M00S00911.sxucp +++|#
00980 M00S00912.sxucp +++|** UCP$DON - TERMINATE *UCP* REQUEST PROPERLY.
00981 M00S00913.sxucp +++|*
00982 M00S00914.sxucp +++|* *UCP$DON* CLEANS UP THE LONG TERM CONNECT TABLE
00983 M00S00915.sxucp +++|* ENTRY AND ANY OUTSTANDING REQUESTS WHEN A *UCP*
00984 M00S00916.sxucp +++|* TERMINATES WHILE STILL HAVING A LONG TERM
00985 M00S00917.sxucp +++|* CONNECTION WITH *SSEXEC*.
00986 M00S00918.sxucp +++|*
00987 M00S00919.sxucp +++|* PROC UCP$DON
00988 M00S00920.sxucp +++|*
00989 M00S00921.sxucp +++|* ENTRY THE DISCONNECT REQUEST OR TERMINATION NOTICE IS IN
00990 M00S00922.sxucp +++|* ARRAY *CPR*. THE BASE POINTER FOR *CPR* IS ALREADY
00991 M00S00923.sxucp +++|* SET. THE *LTCT* ENTRY FOR THE REQUESTING *UCP* IS
00992 M00S00924.sxucp +++|* POINTED TO BY *LTCENTRY*.
00993 M00S00925.sxucp +++|*
00994 M00S00926.sxucp +++|* EXIT THE REQUEST/NOTICE HAS BEEN PROCESSED.
00995 M00S00927.sxucp +++|*
00996 M00S00928.sxucp +++|* MESSAGES * EXEC ABNORMAL, UCP$DON.*
00997 M00S00929.sxucp +++|*
00998 M00S00930.sxucp +++|* NOTE IT IS ASSUMED THAT THE *LTCENTRY* FOR THE *UCP*
00999 M00S00931.sxucp +++|* IS SET ON ENTRY. THE REQUEST AREA FOR THE UCP,
01000 M00S00932.sxucp +++|* AS DEFINED IN *COMBCPR*, IS USED AS A COUNTER
01001 M00S00933.sxucp +++|* TO CLEAR THE TEST POINTS IF THE CONDITIONS ARE
01002 M00S00934.sxucp +++|* PROPER.
01003 M00S00935.sxucp +++|#
01004 M00S00936.sxucp +++|
01005 M00S00937.sxucp +++|#
01006 M00S00938.sxucp +++|**** PROC UCP$DON - XREF LIST BEGIN.
01007 M00S00939.sxucp +++|#
01008 M00S00940.sxucp +++|
01009 M00S00941.sxucp +++| XREF
01010 M00S00942.sxucp +++| BEGIN
01011 M00S00943.sxucp +++| PROC ABORT; # ABORTS PROCESSING #
01012 M00S00944.sxucp +++| PROC ADD$LNK; # ADD ENTRY TO END OF CHAIN #
01013 M00S00945.sxucp +++| PROC LLRQENQ; # LOW LEVEL REQUEST QUEUE ENQUEUER
01014 M00S00946.sxucp +++| #
01015 M00S00947.sxucp +++| PROC MESSAGE; # ISSUES DAYFILE MESSAGE #
01016 M00S00948.sxucp +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO #
01017 M00S00949.sxucp +++| PROC UCP$RES; # NOTIFY *UCP* OF REQUEST
01018 M00S00950.sxucp +++| COMPLETION #
01019 M00S00951.sxucp +++| END
01020 M00S00952.sxucp +++|
01021 M00S00953.sxucp +++|#
01022 M00S00954.sxucp +++|**** PROC UCP$DON - XREF LIST END.
01023 M00S00955.sxucp +++|#
01024 M00S00956.sxucp +++|
01025 M00S00957.sxucp +++| DEF OVERRIDE #3#; # N.OVERRIDE ON UCP #
01026 M00S00958.sxucp +++|
01027 M00S00959.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
01028 M00S00960.sxucp +++|*CALL COMBFAS
01029 M00S00961.sxucp +++|*CALL COMBCHN
01030 M00S00962.sxucp +++|*CALL COMBCPR
01031 M00S00963.sxucp +++|*CALL COMBLRQ
01032 M00S00964.sxucp +++|*CALL COMBMAT
01033 M00S00965.sxucp +++|*CALL COMBUCR
01034 M00S00966.sxucp +++|*CALL COMXCTF
01035 M00S00967.sxucp +++|*CALL COMXLTC
01036 M00S00968.sxucp +++|*CALL COMXMSC
01037 M00S00969.sxucp +++|
01038 M00S00970.sxucp +++| ITEM I U; # COUNTER #
01039 M00S00971.sxucp +++| ITEM LLRQE U; # ADDRESS OF THE *LLRQ* FROM
01040 M00S00972.sxucp +++| *LLRQENQ* #
01041 M00S00973.sxucp +++| ITEM MATCH B; # LOOP CONTROL FLAG #
01042 M00S00974.sxucp +++| ITEM RESTRT B=FALSE; # RESTART ALL PROCESSES AT A STEP
01043 M00S00975.sxucp +++| POINT #
01044 M00S00976.sxucp +++| ITEM UCPSWAPPED B; # UCP WAS SWAPPED OUT #
01045 M00S00977.sxucp +++|
01046 M00S00978.sxucp +++|
01047 M00S00979.sxucp +++|
01048 M00S00980.sxucp +++|
01049 M00S00981.sxucp +++|
01050 M00S00982.sxucp +++|#
01051 M00S00983.sxucp +++|* IF THE *UCP* HAS AN *LLRQ* ENTRY, FLAG THE *LLRQ* THAT
01052 M00S00984.sxucp +++|*
01053 M00S00985.sxucp +++|* THE *UCP* HAS ABORTED. IF AN CARTRIDGE IS LOADED, CLEAN-UP
01054 M00S00986.sxucp +++|* WILL UNLOAD THE CARTRIDGE.
01055 M00S00987.sxucp +++|#
01056 M00S00988.sxucp +++|
01057 M00S00989.sxucp +++|
01058 M00S00990.sxucp +++| IF LTC$LLRQA[LTCENTRY] NQ 0
01059 M00S00991.sxucp +++| THEN
01060 M00S00992.sxucp +++| BEGIN # SET ABORT FLAG #
01061 M00S00993.sxucp +++| P<LLRQ> = LTC$LLRQA[LTCENTRY];
01062 M00S00994.sxucp +++| LLR$UCPABT[0] = TRUE;
01063 M00S00995.sxucp +++| IF LTC$CART[LTCENTRY] ##
01064 M00S00996.sxucp +++| AND LLR$RS[0] EQ PROCST"COMPLETE" ##
01065 M00S00997.sxucp +++| AND LTC$RQI[LTCENTRY] NQ REQNAME"RQIDBUG"
01066 M00S00998.sxucp +++| THEN
01067 M00S00999.sxucp +++| BEGIN # SET UNLOAD OF CARTRIDGE #
01068 M00S01000.sxucp +++| LLR$RQC[0] = REQTYP4"UNLD$CART";
01069 M00S01001.sxucp +++| LLR$DR[0] = 0; # CLEAR OLD FIELDS #
01070 M00S01002.sxucp +++| LLR$PRCST[0] = 0;
01071 M00S01003.sxucp +++| LLR$PRCNME[0] = REQTYP4"UNLD$CART";
01072 M00S01004.sxucp +++| ADD$LNK(LTC$LLRQA[LTCENTRY],LCHN"LL$READY",0);
01073 M00S01005.sxucp +++| END # END OF UNLOAD CARTRIDGE #
01074 M00S01006.sxucp +++| END # END OF *LLRQ* CLEAN UP #
01075 M00S01007.sxucp +++|
01076 M00S01008.sxucp +++|#
01077 M00S01009.sxucp +++|* CLOSE OUT THE CONNECTION.
01078 M00S01010.sxucp +++|#
01079 M00S01011.sxucp +++|
01080 M00S01012.sxucp +++| LTC$SFSCPA[LTCENTRY] = 0;
01081 M00S01013.sxucp +++|
01082 M00S01014.sxucp +++| IF UCP$STAT[0] NQ 0
01083 M00S01015.sxucp +++| THEN
01084 M00S01016.sxucp +++| BEGIN # PROCESS THE *UCP* TERMINATION NOTICE #
01085 M00S01017.sxucp +++| LTC$SFUCPA[LTCENTRY] = -1;
01086 M00S01018.sxucp +++| UCPSWAPPED = TRUE;
01087 M00S01019.sxucp +++| REPEAT WHILE UCPSWAPPED
01088 M00S01020.sxucp +++| DO
01089 M00S01021.sxucp +++| BEGIN # PROCESS SWAPPED *UCP* #
01090 M00S01022.sxucp +++| LTC$SFFC[LTCENTRY] = SFENDT;
01091 M00S01023.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01092 M00S01024.sxucp +++| IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT
01093 M00S01025.sxucp +++| THEN
01094 M00S01026.sxucp +++| BEGIN
01095 M00S01027.sxucp +++| LTC$SFFC[LTCENTRY] = SFSWPI;
01096 M00S01028.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01097 M00S01029.sxucp +++| END
01098 M00S01030.sxucp +++|
01099 M00S01031.sxucp +++| ELSE
01100 M00S01032.sxucp +++| BEGIN
01101 M00S01033.sxucp +++| UCPSWAPPED = FALSE;
01102 M00S01034.sxucp +++| END
01103 M00S01035.sxucp +++|
01104 M00S01036.sxucp +++| END # PROCESS SWAPPED *UCP* #
01105 M00S01037.sxucp +++|
01106 M00S01038.sxucp +++| END # PROCESS THE *UCP* TERMINATION NOTICE #
01107 M00S01039.sxucp +++|
01108 M00S01040.sxucp +++| ELSE
01109 M00S01041.sxucp +++| BEGIN # PROCESS THE DISCONNECT REQUEST #
01110 M00S01042.sxucp +++|
01111 M00S01043.sxucp +++|#
01112 M00S01044.sxucp +++|* CLEAR THE LONG TERM CONNECT.
01113 M00S01045.sxucp +++|#
01114 M00S01046.sxucp +++|
01115 M00S01047.sxucp +++| LTC$SFUCPA[LTCENTRY] = LTC$UCPA[LTCENTRY];
01116 M00S01048.sxucp +++| UCPSWAPPED = TRUE;
01117 M00S01049.sxucp +++| REPEAT WHILE UCPSWAPPED
01118 M00S01050.sxucp +++| DO
01119 M00S01051.sxucp +++| BEGIN # WAIT FOR CONNECTION TO CLEAR #
01120 M00S01052.sxucp +++| LTC$SFFC[LTCENTRY] = SFCLTC;
01121 M00S01053.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01122 M00S01054.sxucp +++| IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT
01123 M00S01055.sxucp +++| THEN
01124 M00S01056.sxucp +++| BEGIN
01125 M00S01057.sxucp +++| LTC$SFFC[LTCENTRY] = SFSWPI;
01126 M00S01058.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01127 M00S01059.sxucp +++| END
01128 M00S01060.sxucp +++|
01129 M00S01061.sxucp +++| ELSE
01130 M00S01062.sxucp +++| BEGIN
01131 M00S01063.sxucp +++| UCPSWAPPED = FALSE;
01132 M00S01064.sxucp +++| END
01133 M00S01065.sxucp +++|
01134 M00S01066.sxucp +++| END # WAIT FOR CONNECTION TO CLEAR #
01135 M00S01067.sxucp +++|
01136 M00S01068.sxucp +++| IF LTC$SFRC[LTCENTRY] NQ 0
01137 M00S01069.sxucp +++| THEN
01138 M00S01070.sxucp +++| BEGIN
01139 M00S01071.sxucp +++| GOTO SFERR;
01140 M00S01072.sxucp +++| END
01141 M00S01073.sxucp +++|
01142 M00S01074.sxucp +++|#
01143 M00S01075.sxucp +++|* RETURN THE OK1 RESPONSE.
01144 M00S01076.sxucp +++|#
01145 M00S01077.sxucp +++|
01146 M00S01078.sxucp +++| LTC$RQR[LTCENTRY] = RESPTYP1"OK1";
01147 M00S01079.sxucp +++| UCPSWAPPED = TRUE;
01148 M00S01080.sxucp +++| REPEAT WHILE UCPSWAPPED
01149 M00S01081.sxucp +++| DO
01150 M00S01082.sxucp +++| BEGIN # WAIT FOR RESPONSE TO BE PROCESSED #
01151 M00S01083.sxucp +++| LTC$SFFC[LTCENTRY] = SFWRIT;
01152 M00S01084.sxucp +++| LTC$SFSCPA[LTCENTRY] = LOC(LTC$RQR[LTCENTRY]);
01153 M00S01085.sxucp +++| LTC$SFUCPA[LTCENTRY] = LTC$UCPA[LTCENTRY] + 2;
01154 M00S01086.sxucp +++| LTC$SFFP[LTCENTRY] = 1;
01155 M00S01087.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01156 M00S01088.sxucp +++| IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT
01157 M00S01089.sxucp +++| THEN
01158 M00S01090.sxucp +++| BEGIN
01159 M00S01091.sxucp +++| LTC$SFFC[LTCENTRY] = SFSWPI;
01160 M00S01092.sxucp +++| LTC$SFSCPA[LTCENTRY] = 0;
01161 M00S01093.sxucp +++| LTC$SFFP[LTCENTRY] = 0;
01162 M00S01094.sxucp +++| LTC$SFUCPA[LTCENTRY] = LTC$UCPA[LTCENTRY];
01163 M00S01095.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01164 M00S01096.sxucp +++| END
01165 M00S01097.sxucp +++|
01166 M00S01098.sxucp +++| ELSE
01167 M00S01099.sxucp +++| BEGIN
01168 M00S01100.sxucp +++| UCPSWAPPED = FALSE;
01169 M00S01101.sxucp +++| END
01170 M00S01102.sxucp +++|
01171 M00S01103.sxucp +++| END # WAIT FOR RESPONSE TO BE PROCESSED #
01172 M00S01104.sxucp +++|
01173 M00S01105.sxucp +++| IF LTC$SFRC[LTCENTRY] NQ 0
01174 M00S01106.sxucp +++| THEN
01175 M00S01107.sxucp +++| BEGIN
01176 M00S01108.sxucp +++| GOTO SFERR;
01177 M00S01109.sxucp +++| END
01178 M00S01110.sxucp +++|
01179 M00S01111.sxucp +++|#
01180 M00S01112.sxucp +++|* ACKNOWLEDGE REQUEST COMPLETION.
01181 M00S01113.sxucp +++|#
01182 M00S01114.sxucp +++|
01183 M00S01115.sxucp +++| UCPSWAPPED = TRUE;
01184 M00S01116.sxucp +++| LTC$SFUCPA[LTCENTRY] = LTC$UCPA[LTCENTRY];
01185 M00S01117.sxucp +++| LTC$SFSCPA[LTCENTRY] = 0;
01186 M00S01118.sxucp +++| LTC$SFFP[LTCENTRY] = 0;
01187 M00S01119.sxucp +++| REPEAT WHILE UCPSWAPPED
01188 M00S01120.sxucp +++| DO
01189 M00S01121.sxucp +++| BEGIN # WAIT UNTIL *ENDT* IS PROCESSED #
01190 M00S01122.sxucp +++| LTC$SFFC[LTCENTRY] = SFENDT;
01191 M00S01123.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01192 M00S01124.sxucp +++| IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT
01193 M00S01125.sxucp +++| THEN
01194 M00S01126.sxucp +++| BEGIN
01195 M00S01127.sxucp +++| LTC$SFFC[LTCENTRY] = SFSWPI;
01196 M00S01128.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01197 M00S01129.sxucp +++| END
01198 M00S01130.sxucp +++|
01199 M00S01131.sxucp +++| ELSE
01200 M00S01132.sxucp +++| BEGIN
01201 M00S01133.sxucp +++| UCPSWAPPED = FALSE;
01202 M00S01134.sxucp +++| END
01203 M00S01135.sxucp +++|
01204 M00S01136.sxucp +++| END # WAIT UNTIL *ENDT* IS PROCESSED #
01205 M00S01137.sxucp +++|
01206 M00S01138.sxucp +++| END # PROCESS THE DISCONNECT REQUEST #
01207 M00S01139.sxucp +++|
01208 M00S01140.sxucp +++|SFERR:
01209 M00S01141.sxucp +++| IF LTC$SFRC[LTCENTRY] EQ 0 OR LTC$SFRC[LTCENTRY] EQ SFRCUCPGON
01210 M00S01142.sxucp +++| OR (LTC$SFRC[LTCENTRY] EQ SFRCUCPNET AND UCP$STAT[0] EQ
01211 M00S01143.sxucp +++| OVERRIDE)
01212 M00S01144.sxucp +++| THEN
01213 M00S01145.sxucp +++| BEGIN # CLEAR THE *LTCT* ENTRY #
01214 M00S01146.sxucp +++| CONIND[LTC$RQI[LTCENTRY]] = FALSE;
01215 M00S01147.sxucp +++| LTC$WORD0[LTCENTRY] = 0;
01216 M00S01148.sxucp +++| LTC$WORD1[LTCENTRY] = 0;
01217 M00S01149.sxucp +++| LTC$WORD2[LTCENTRY] = 0;
01218 M00S01150.sxucp +++| LTC$WORD3[LTCENTRY] = 0;
01219 M00S01151.sxucp +++| RETURN;
01220 M00S01152.sxucp +++| END # CLEAR THE *LTCT* ENTRY #
01221 M00S01153.sxucp +++|
01222 M00S01154.sxucp +++| ELSE
01223 M00S01155.sxucp +++| BEGIN # UNEXPECTED *SFCALL* RESPONSE #
01224 M00S01156.sxucp +++| FE$RTN[0] = "UCP$DON.";
01225 M00S01157.sxucp +++| MESSAGE(FEMSG[0],UDFL1);
01226 M00S01158.sxucp +++| ABORT;
01227 M00S01159.sxucp +++| END # UNEXPECTED *SFCALL* RESPONSE #
01228 M00S01160.sxucp +++|
01229 M00S01161.sxucp +++| END # UCP$DON #
01230 M00S01162.sxucp +++|
01231 M00S01163.sxucp +++| TERM
01232 M00S01164.sxucp +++|PROC UCP$RES;
01233 M00S01165.sxucp +++|# TITLE UCP$RES - NOTIFY *UCP* OF REQUEST COMPLETE. #
01234 M00S01166.sxucp +++|
01235 M00S01167.sxucp +++| BEGIN # UCP$RES #
01236 M00S01168.sxucp +++|
01237 M00S01169.sxucp +++|#
01238 M00S01170.sxucp +++|** UCP$RES - NOTIFY *UCP* OF REQUEST COMPLETE.
01239 M00S01171.sxucp +++|*
01240 M00S01172.sxucp +++|* *UCP$RES* RETURNS THE REQUEST RESPONSE WORD TO THE *UCP*
01241 M00S01173.sxucp +++|* AND THEN NOTIFIES THE *UCP* (AND O/S) THAT THE PROCESSING
01242 M00S01174.sxucp +++|* OF THE REQUEST HAS BEEN COMPLETED.
01243 M00S01175.sxucp +++|*
01244 M00S01176.sxucp +++|* PROC UCP$RES
01245 M00S01177.sxucp +++|*
01246 M00S01178.sxucp +++|* ENTRY THE *LTCT* ENTRY POINTED TO BY *LTCENTRY* CONTAINS
01247 M00S01179.sxucp +++|* ALL THE INFORMATION NEEDED.
01248 M00S01180.sxucp +++|*
01249 M00S01181.sxucp +++|* EXIT IF THE *UCP* WAS SWAPPED OUT, AN *SF.SWPI* REQUEST
01250 M00S01182.sxucp +++|* HAS BEEN ISSUED AND THE SWAPPED-UCP FLAG IN THE *LTCT*
01251 M00S01183.sxucp +++|* ENTRY HAS BEEN SET. OTHERWISE, THE RESPONSE WORD HAS
01252 M00S01184.sxucp +++|* BEEN WRITTEN BACK TO THE *UCP* AND THE *UCP* HAS BEEN
01253 M00S01185.sxucp +++|* NOTIFIED THAT PROCESSING OF ITS LAST REQUEST HAS BEEN
01254 M00S01186.sxucp +++|* COMPLETED.
01255 M00S01187.sxucp +++|*
01256 M00S01188.sxucp +++|* MESSAGES * EXEC ABNORMAL, UCP$RES.*
01257 M00S01189.sxucp +++|*
01258 M00S01190.sxucp +++|#
01259 M00S01191.sxucp +++|
01260 M00S01192.sxucp +++|#
01261 M00S01193.sxucp +++|**** PROC UCP$RES - XREF LIST BEGIN.
01262 M00S01194.sxucp +++|#
01263 M00S01195.sxucp +++|
01264 M00S01196.sxucp +++| XREF
01265 M00S01197.sxucp +++| BEGIN
01266 M00S01198.sxucp +++| PROC ABORT; # ABORTS PROCESSING #
01267 M00S01199.sxucp +++| PROC MESSAGE; # ISSUES DAYFILE MESSAGE #
01268 M00S01200.sxucp +++| PROC RTIME; # GETS TIME SINCE DEADSTART #
01269 M00S01201.sxucp +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO #
01270 M00S01202.sxucp +++| END
01271 M00S01203.sxucp +++|
01272 M00S01204.sxucp +++|#
01273 M00S01205.sxucp +++|**** PROC UCP$RES - XREF LIST END.
01274 M00S01206.sxucp +++|#
01275 M00S01207.sxucp +++|
01276 M00S01208.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
01277 M00S01209.sxucp +++|*CALL COMBFAS
01278 M00S01210.sxucp +++|*CALL COMBUCR
01279 M00S01211.sxucp +++|*CALL COMXCTF
01280 M00S01212.sxucp +++|*CALL COMXIPR
01281 M00S01213.sxucp +++|*CALL COMXLTC
01282 M00S01214.sxucp +++|*CALL COMXMSC
01283 M00S01215.sxucp +++|
01284 M00S01216.sxucp +++|
01285 M00S01217.sxucp +++|
01286 M00S01218.sxucp +++|
01287 M00S01219.sxucp +++|
01288 M00S01220.sxucp +++|#
01289 M00S01221.sxucp +++|* RETURN REQUEST RESPONSE WORD TO THE *UCP*.
01290 M00S01222.sxucp +++|#
01291 M00S01223.sxucp +++|
01292 M00S01224.sxucp +++| LTC$SFUCPA[LTCENTRY] = LTC$UCPA[LTCENTRY] + 2;
01293 M00S01225.sxucp +++| LTC$SFSCPA[LTCENTRY] = LOC(LTC$RQR[LTCENTRY]);
01294 M00S01226.sxucp +++| LTC$SFFP[LTCENTRY] = 1;
01295 M00S01227.sxucp +++| LTC$SFFC[LTCENTRY] = SFWRIT;
01296 M00S01228.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01297 M00S01229.sxucp +++| IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT
01298 M00S01230.sxucp +++| THEN
01299 M00S01231.sxucp +++| BEGIN # SWAPPED *UCP* #
01300 M00S01232.sxucp +++| LTC$UCPSW[LTCENTRY] = TRUE;
01301 M00S01233.sxucp +++| GLBUCPSW = TRUE;
01302 M00S01234.sxucp +++| LTC$SFUCPA[LTCENTRY] = 0;
01303 M00S01235.sxucp +++| LTC$SFSCPA[LTCENTRY] = 0;
01304 M00S01236.sxucp +++| LTC$SFFC[LTCENTRY] = SFSWPI;
01305 M00S01237.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),NRCL);
01306 M00S01238.sxucp +++|
01307 M00S01239.sxucp +++| IF UCP$EXPIR EQ 0
01308 M00S01240.sxucp +++| THEN
01309 M00S01241.sxucp +++| BEGIN
01310 M00S01242.sxucp +++| RTIME(RTIMESTAT[0]);
01311 M00S01243.sxucp +++| UCP$EXPIR = RTIMSECS[0] + UCP$INTV;
01312 M00S01244.sxucp +++| END
01313 M00S01245.sxucp +++|
01314 M00S01246.sxucp +++| RETURN;
01315 M00S01247.sxucp +++| END # SWAPPED *UCP* #
01316 M00S01248.sxucp +++|
01317 M00S01249.sxucp +++| ELSE
01318 M00S01250.sxucp +++| BEGIN
01319 M00S01251.sxucp +++| IF LTC$SFRC[LTCENTRY] NQ 0 AND LTC$SFRC[LTCENTRY] NQ
01320 M00S01252.sxucp +++| SFRCUCPGON
01321 M00S01253.sxucp +++| THEN # UNEXPECTED RESPONSE #
01322 M00S01254.sxucp +++| BEGIN
01323 M00S01255.sxucp +++| FE$RTN[0] = "UCP$RES.";
01324 M00S01256.sxucp +++| MESSAGE(FEMSG[0],UDFL1);
01325 M00S01257.sxucp +++| ABORT;
01326 M00S01258.sxucp +++| END
01327 M00S01259.sxucp +++|
01328 M00S01260.sxucp +++| END
01329 M00S01261.sxucp +++|
01330 M00S01262.sxucp +++|#
01331 M00S01263.sxucp +++|* NOTIFY THE *UCP* THAT THE REQUEST IS COMPLETE.
01332 M00S01264.sxucp +++|#
01333 M00S01265.sxucp +++|
01334 M00S01266.sxucp +++| LTC$SFUCPA[LTCENTRY] = LTC$UCPA[LTCENTRY];
01335 M00S01267.sxucp +++| LTC$SFSCPA[LTCENTRY] = 0;
01336 M00S01268.sxucp +++| LTC$SFFP[LTCENTRY] = 0;
01337 M00S01269.sxucp +++| LTC$SFFC[LTCENTRY] = SFENDT;
01338 M00S01270.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01339 M00S01271.sxucp +++| IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT
01340 M00S01272.sxucp +++| THEN
01341 M00S01273.sxucp +++| BEGIN # *UCP* SWAPPED #
01342 M00S01274.sxucp +++| LTC$UCPSW[LTCENTRY] = TRUE;
01343 M00S01275.sxucp +++| GLBUCPSW = TRUE;
01344 M00S01276.sxucp +++| LTC$SFUCPA[LTCENTRY] = 0;
01345 M00S01277.sxucp +++| LTC$SFSCPA[LTCENTRY] = 0;
01346 M00S01278.sxucp +++| LTC$SFFC[LTCENTRY] = SFSWPI;
01347 M00S01279.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),NRCL);
01348 M00S01280.sxucp +++|
01349 M00S01281.sxucp +++| IF UCP$EXPIR EQ 0
01350 M00S01282.sxucp +++| THEN
01351 M00S01283.sxucp +++| BEGIN
01352 M00S01284.sxucp +++| RTIME(RTIMESTAT[0]);
01353 M00S01285.sxucp +++| UCP$EXPIR = RTIMSECS[0] + UCP$INTV;
01354 M00S01286.sxucp +++| END
01355 M00S01287.sxucp +++|
01356 M00S01288.sxucp +++| RETURN;
01357 M00S01289.sxucp +++| END # *UCP* SWAPPED #
01358 M00S01290.sxucp +++|
01359 M00S01291.sxucp +++| ELSE
01360 M00S01292.sxucp +++| BEGIN
01361 M00S01293.sxucp +++| IF LTC$SFRC[LTCENTRY] NQ 0 AND LTC$SFRC[LTCENTRY] NQ
01362 M00S01294.sxucp +++| SFRCUCPGON
01363 M00S01295.sxucp +++| THEN # UNEXPECTED RESPONSE #
01364 M00S01296.sxucp +++| BEGIN
01365 M00S01297.sxucp +++| FE$RTN[0] = "UCP$RES.";
01366 M00S01298.sxucp +++| MESSAGE(FEMSG[0],UDFL1);
01367 M00S01299.sxucp +++| ABORT;
01368 M00S01300.sxucp +++| END
01369 M00S01301.sxucp +++|
01370 M00S01302.sxucp +++| END
01371 M00S01303.sxucp +++|
01372 M00S01304.sxucp +++|#
01373 M00S01305.sxucp +++|* CLEAR THE REQUEST FROM THE LONG TERM CONNECT TABLE.
01374 M00S01306.sxucp +++|#
01375 M00S01307.sxucp +++|
01376 M00S01308.sxucp +++| LTC$UCPSW[LTCENTRY] = FALSE;
01377 M00S01309.sxucp +++| LTC$UCPA[LTCENTRY] = 0;
01378 M00S01310.sxucp +++| LTC$WORD3[LTCENTRY] = 0;
01379 M00S01311.sxucp +++| RETURN;
01380 M00S01312.sxucp +++|
01381 M00S01313.sxucp +++| END # UCP$RES #
01382 M00S01314.sxucp +++|
01383 M00S01315.sxucp +++| TERM
01384 M00S01316.sxucp +++|PROC UCP$RP;
01385 M00S01317.sxucp +++|# TITLE UCP$RP - PRELIMINARY PROCESSING OF *UCP* REQUESTS. #
01386 M00S01318.sxucp +++|
01387 M00S01319.sxucp +++| BEGIN # UCP$RP #
01388 M00S01320.sxucp +++|
01389 M00S01321.sxucp +++|#
01390 M00S01322.sxucp +++|** UCP$RP - PRELIMINARY PROCESSING OF *UCP* REQUESTS.
01391 M00S01323.sxucp +++|*
01392 M00S01324.sxucp +++|* *UCP$RP* DOES PRELIMINARY PROCESSING OF *UCP* REQUESTS AND CALLS
01393 M00S01325.sxucp +++|* THE APPROPRIATE MODULES TO DO FURTHER PROCESSING OF THE REQUESTS.
01394 M00S01326.sxucp +++|*
01395 M00S01327.sxucp +++|* PROC UCP$RP
01396 M00S01328.sxucp +++|*
01397 M00S01329.sxucp +++|* ENTRY A NEW *UCP* REQUEST HAS BEEN RECEIVED AND IF
01398 M00S01330.sxucp +++|* IT IS A TYPE 4 OR 5 REQUEST, AT LEAST ONE *LLRQ*
01399 M00S01331.sxucp +++|* ENTRY IS AVAILABLE ON THE *LLRQ* FREE SPACE CHAIN.
01400 M00S01332.sxucp +++|*
01401 M00S01333.sxucp +++|* EXIT TYPE 4 OR 5 REQUESTS HAVE BEEN ENQUEUED IN THE
01402 M00S01334.sxucp +++|* *LLRQ* FOR FUTURE PROCESSING. ALL OTHER REQUESTS HAVE
01403 M00S01335.sxucp +++|* BEEN PROCESSED TO COMPLETION.
01404 M00S01336.sxucp +++|*
01405 M00S01337.sxucp +++|* NOTES BEFORE SUBORDINATE ROUTINES ARE CALLED, THE BASE
01406 M00S01338.sxucp +++|* POINTERS FOR *CPR* AND *UCPR* ARE SET AND *LTCENTRY*
01407 M00S01339.sxucp +++|* IS SET TO POINT TO THE *LTCT* ENTRY FOR THE *UCP*.
01408 M00S01340.sxucp +++|#
01409 M00S01341.sxucp +++|
01410 M00S01342.sxucp +++|#
01411 M00S01343.sxucp +++|**** PROC UCP$RP - XREF LIST BEGIN.
01412 M00S01344.sxucp +++|#
01413 M00S01345.sxucp +++|
01414 M00S01346.sxucp +++| XREF
01415 M00S01347.sxucp +++| BEGIN
01416 M00S01348.sxucp +++| PROC ALT$RP; # PRELIMINARY PROCESSING OF
01417 M00S01349.sxucp +++| *SSALTER* REQUESTS #
01418 M00S01350.sxucp +++| PROC KILL$UC; # ABORT A *UCP* #
01419 M00S01351.sxucp +++| PROC LINK$RP; # PRELIMINARY LINKAGE PROCESSING #
01420 M00S01352.sxucp +++| PROC NONQ$RP; # PRELIMINARY PROCESSING OF TYPE 3
01421 M00S01353.sxucp +++| REQUEST #
01422 M00S01354.sxucp +++| PROC QUE$RP; # QUEUABLE REQUEST PROCESSOR #
01423 M00S01355.sxucp +++| PROC SFCALL; # ISSUES *SFCALL* REQUEST #
01424 M00S01356.sxucp +++| PROC TYP2$RP; # TYPE 2 REQUEST PROCESSOR #
01425 M00S01357.sxucp +++| PROC UCP$DON; # TERMINATE *UCP* REQUEST PROPERLY
01426 M00S01358.sxucp +++| #
01427 M00S01359.sxucp +++| END
01428 M00S01360.sxucp +++|
01429 M00S01361.sxucp +++|#
01430 M00S01362.sxucp +++|**** PROC UCP$RP - XREF LIST END.
01431 M00S01363.sxucp +++|#
01432 M00S01364.sxucp +++|
01433 M00S01365.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
01434 M00S01366.sxucp +++|*CALL COMBFAS
01435 M00S01367.sxucp +++|*CALL COMBCHN
01436 M00S01368.sxucp +++|*CALL COMBCPR
01437 M00S01369.sxucp +++|*CALL COMBLRQ
01438 M00S01370.sxucp +++|*CALL COMBUCR
01439 M00S01371.sxucp +++|*CALL COMXCTF
01440 M00S01372.sxucp +++|*CALL,COMXJCA
01441 M00S01373.sxucp +++|*CALL COMXLTC
01442 M00S01374.sxucp +++|*CALL COMXMSC
01443 M00S01375.sxucp +++|
01444 M00S01376.sxucp +++| ITEM I U; # LOOP COUNTER #
01445 M00S01377.sxucp +++| ITEM J U; # LOOP COUNTER #
01446 M00S01378.sxucp +++| ITEM TESTEXIT B; # *FOR* LOOP CONTROL SWITCH #
01447 M00S01379.sxucp +++| ITEM UCPSWAPPED B; # UCP WAS SWAPPED OUT #
01448 M00S01380.sxucp +++|#
01449 M00S01381.sxucp +++|* STATUS SWITCH LIST TO PROCESS TYPE OF REQUEST.
01450 M00S01382.sxucp +++|#
01451 M00S01383.sxucp +++|
01452 M00S01384.sxucp +++| SWITCH TYPSW:TYP
01453 M00S01385.sxucp +++| TYPE1:TYP1,
01454 M00S01386.sxucp +++| TYPE2:TYP2,
01455 M00S01387.sxucp +++| TYPE3:TYP3,
01456 M00S01388.sxucp +++| TYPE4:TYP4,
01457 M00S01389.sxucp +++| TYPE5:TYP5;
01458 M00S01390.sxucp +++|
01459 M00S01391.sxucp +++|
01460 M00S01392.sxucp +++|
01461 M00S01393.sxucp +++|
01462 M00S01394.sxucp +++|
01463 M00S01395.sxucp +++| P<LTCT> = LTCTPTR;
01464 M00S01396.sxucp +++|
01465 M00S01397.sxucp +++|#
01466 M00S01398.sxucp +++|* THE FOLLOWING *FOR* LOOP IS THE MAIN CONTROL LOOP OF *UCP$RP*.
01467 M00S01399.sxucp +++|* THIS LOOP MAINTAINS CONTROL IN THIS PROCEDURE UNTIL THERE ARE
01468 M00S01400.sxucp +++|* NO MORE *UCP* REQUESTS TO BE STARTED.
01469 M00S01401.sxucp +++|#
01470 M00S01402.sxucp +++|
01471 M00S01403.sxucp +++| SLOWFOR I=0 WHILE RA$SSCINLK[0] ##
01472 M00S01404.sxucp +++| AND CHN$BOC[LCHN"LL$FRSPC"] NQ 0
01473 M00S01405.sxucp +++| DO
01474 M00S01406.sxucp +++| BEGIN # PROCESS *UCP* REQUEST #
01475 M00S01407.sxucp +++| P<UCPR> = RA$SSCAP[0];
01476 M00S01408.sxucp +++| P<CPR> = RA$SSCAP[0] + 2;
01477 M00S01409.sxucp +++|
01478 M00S01410.sxucp +++|#
01479 M00S01411.sxucp +++|* SWITCH TO ALTERNATE *UCP* REQUEST RECEIVING AREA.
01480 M00S01412.sxucp +++|#
01481 M00S01413.sxucp +++|
01482 M00S01414.sxucp +++| RA$SSCAP[0] = LOC(UCPPARM[UCPPARMSW]);
01483 M00S01415.sxucp +++| IF UCPPARMSW EQ 0
01484 M00S01416.sxucp +++| THEN
01485 M00S01417.sxucp +++| BEGIN
01486 M00S01418.sxucp +++| UCPPARMSW = 1;
01487 M00S01419.sxucp +++| END
01488 M00S01420.sxucp +++|
01489 M00S01421.sxucp +++| ELSE
01490 M00S01422.sxucp +++| BEGIN
01491 M00S01423.sxucp +++| UCPPARMSW = 0;
01492 M00S01424.sxucp +++| END
01493 M00S01425.sxucp +++|
01494 M00S01426.sxucp +++| RA$SSCINLK[0] = FALSE;
01495 M00S01427.sxucp +++| TESTEXIT = FALSE;
01496 M00S01428.sxucp +++| SFJBSN[0] = UCP$JBSN[0];
01497 M00S01429.sxucp +++| SFFSTA[0] = UCP$FSTA[0];
01498 M00S01430.sxucp +++|
01499 M00S01431.sxucp +++| LTCENTRY = 0;
01500 M00S01432.sxucp +++| FASTFOR J = 1 STEP 1 WHILE J LQ LTCTCNT AND NOT TESTEXIT
01501 M00S01433.sxucp +++| DO
01502 M00S01434.sxucp +++| BEGIN # *LTCT* SEARCH #
01503 M00S01435.sxucp +++| IF UCP$JBSN[0] EQ LTC$SFJBSN[J] ##
01504 M00S01436.sxucp +++| AND UCP$FSTA[0] EQ LTC$SFFSTA[J]
01505 M00S01437.sxucp +++| THEN
01506 M00S01438.sxucp +++| BEGIN # *UCP* HAS AN ENTRY IN THE *LTCT* #
01507 M00S01439.sxucp +++| TESTEXIT = TRUE;
01508 M00S01440.sxucp +++| LTCENTRY = J;
01509 M00S01441.sxucp +++| END # *UCP* HAS AN ENTRY IN THE *LTCT* #
01510 M00S01442.sxucp +++|
01511 M00S01443.sxucp +++| ELSE
01512 M00S01444.sxucp +++| BEGIN
01513 M00S01445.sxucp +++| TEST J;
01514 M00S01446.sxucp +++| END
01515 M00S01447.sxucp +++|
01516 M00S01448.sxucp +++| END # *LTCT* SEARCH #
01517 M00S01449.sxucp +++|
01518 M00S01450.sxucp +++| IF UCP$STAT NQ 0
01519 M00S01451.sxucp +++| THEN
01520 M00S01452.sxucp +++| BEGIN # PROCESS TERMINATION NOTICE FROM O/S #
01521 M00S01453.sxucp +++| IF TESTEXIT
01522 M00S01454.sxucp +++| THEN
01523 M00S01455.sxucp +++| BEGIN # TERMINATING *UCP* WAS CONNECTED #
01524 M00S01456.sxucp +++| UCP$DON;
01525 M00S01457.sxucp +++| END # TERMINATING *UCP* WAS CONNECTED #
01526 M00S01458.sxucp +++|
01527 M00S01459.sxucp +++| ELSE
01528 M00S01460.sxucp +++| BEGIN # TERMINATING UCP NOT CONNECTED #
01529 M00S01461.sxucp +++| SFUCPA[0] = -1;
01530 M00S01462.sxucp +++| UCPSWAPPED = TRUE;
01531 M00S01463.sxucp +++| REPEAT WHILE UCPSWAPPED
01532 M00S01464.sxucp +++| DO
01533 M00S01465.sxucp +++| BEGIN # WAIT UNTIL *ENDT* IS PROCESSED #
01534 M00S01466.sxucp +++| SFFC[0] = SFENDT;
01535 M00S01467.sxucp +++| SFCALL(SFBLKPTR,RCL);
01536 M00S01468.sxucp +++| IF SFRC[0] EQ SFRCSWPOUT
01537 M00S01469.sxucp +++| THEN
01538 M00S01470.sxucp +++| BEGIN
01539 M00S01471.sxucp +++| SFFC[0] = SFSWPI;
01540 M00S01472.sxucp +++| SFCALL(SFBLKPTR,RCL);
01541 M00S01473.sxucp +++| END
01542 M00S01474.sxucp +++|
01543 M00S01475.sxucp +++| ELSE
01544 M00S01476.sxucp +++| BEGIN
01545 M00S01477.sxucp +++| UCPSWAPPED = FALSE;
01546 M00S01478.sxucp +++| END
01547 M00S01479.sxucp +++|
01548 M00S01480.sxucp +++| END # WAIT UNTIL *ENDT* IS PROCESSED #
01549 M00S01481.sxucp +++|
01550 M00S01482.sxucp +++| END # TERMINATING *UCP* NOT CONNECTED #
01551 M00S01483.sxucp +++|
01552 M00S01484.sxucp +++| TEST I;
01553 M00S01485.sxucp +++| END # PROCESS TERMINATION NOTICE FROM O/S #
01554 M00S01486.sxucp +++|
01555 M00S01487.sxucp +++| ELSE
01556 M00S01488.sxucp +++| BEGIN # PROCESS REQUEST FROM *UCP* #
01557 M00S01489.sxucp +++| IF NOT TESTEXIT
01558 M00S01490.sxucp +++| THEN
01559 M00S01491.sxucp +++| BEGIN # NOT IN *LTCT* SO REQUIRE A CONNECT #
01560 M00S01492.sxucp +++| IF CPR$RQT[0] EQ TYP"TYP1" ##
01561 M00S01493.sxucp +++| AND CPR$RQC[0] EQ REQTYP1"CONNECT"
01562 M00S01494.sxucp +++| THEN
01563 M00S01495.sxucp +++| BEGIN
01564 M00S01496.sxucp +++| LINK$RP;
01565 M00S01497.sxucp +++| END
01566 M00S01498.sxucp +++|
01567 M00S01499.sxucp +++| ELSE
01568 M00S01500.sxucp +++| BEGIN
01569 M00S01501.sxucp +++| KILL$UC(KILLCODE"NOTCON");
01570 M00S01502.sxucp +++| END
01571 M00S01503.sxucp +++|
01572 M00S01504.sxucp +++| TEST I;
01573 M00S01505.sxucp +++| END # NOT IN *LTCT* SO REQUIRE A CONNECT #
01574 M00S01506.sxucp +++|
01575 M00S01507.sxucp +++| IF LTC$UCPA[LTCENTRY] NQ 0
01576 M00S01508.sxucp +++| THEN
01577 M00S01509.sxucp +++| BEGIN # PREVIOUS REQUEST NOT PROCESSED YET #
01578 M00S01510.sxucp +++| KILL$UC(KILLCODE"MULREQ");
01579 M00S01511.sxucp +++| TEST I;
01580 M00S01512.sxucp +++| END # PREVIOUS REQUEST NOT PROCESSED YET #
01581 M00S01513.sxucp +++|
01582 M00S01514.sxucp +++| IF CPR$RQT[0] EQ TYP"TYP0" OR CPR$RQT[0] GQ TYP"TYPLST"
01583 M00S01515.sxucp +++| THEN
01584 M00S01516.sxucp +++| BEGIN # TYPE CODE OUT OF RANGE #
01585 M00S01517.sxucp +++| KILL$UC(KILLCODE"INVRQT");
01586 M00S01518.sxucp +++| TEST I;
01587 M00S01519.sxucp +++| END # TYPE CODE OUT OF RANGE #
01588 M00S01520.sxucp +++|
01589 M00S01521.sxucp +++|#
01590 M00S01522.sxucp +++|* SET THE LONG TERM CONNECT TABLE ENTRY TO REFLECT THE CURRENT
01591 M00S01523.sxucp +++|* REQUEST.
01592 M00S01524.sxucp +++|#
01593 M00S01525.sxucp +++|
01594 M00S01526.sxucp +++| LTC$WORD3[LTCENTRY] = CPR3[0];
01595 M00S01527.sxucp +++| LTC$UCPA[LTCENTRY] = UCP$ADDR[0];
01596 M00S01528.sxucp +++|
01597 M00S01529.sxucp +++|#
01598 M00S01530.sxucp +++|* CALL THE APPROPRIATE REQUEST PROCESSOR.
01599 M00S01531.sxucp +++|#
01600 M00S01532.sxucp +++|
01601 M00S01533.sxucp +++| GOTO TYPSW[CPR$RQT[0]];
01602 M00S01534.sxucp +++|
01603 M00S01535.sxucp +++|TYPE1:
01604 M00S01536.sxucp +++| LINK$RP;
01605 M00S01537.sxucp +++| TEST I;
01606 M00S01538.sxucp +++|
01607 M00S01539.sxucp +++|TYPE2:
01608 M00S01540.sxucp +++| TYP2$RP;
01609 M00S01541.sxucp +++| TEST I;
01610 M00S01542.sxucp +++|
01611 M00S01543.sxucp +++|TYPE3:
01612 M00S01544.sxucp +++| NONQ$RP;
01613 M00S01545.sxucp +++| TEST I;
01614 M00S01546.sxucp +++|
01615 M00S01547.sxucp +++|TYPE4:
01616 M00S01548.sxucp +++| QUE$RP;
01617 M00S01549.sxucp +++| TEST I;
01618 M00S01550.sxucp +++|
01619 M00S01551.sxucp +++|TYPE5:
01620 M00S01552.sxucp +++| ALT$RP;
01621 M00S01553.sxucp +++| TEST I;
01622 M00S01554.sxucp +++|
01623 M00S01555.sxucp +++| END # PROCESS REQUEST FROM *UCP* #
01624 M00S01556.sxucp +++|
01625 M00S01557.sxucp +++| END # PROCESS *UCP* REQUEST #
01626 M00S01558.sxucp +++|
01627 M00S01559.sxucp +++|#
01628 M00S01560.sxucp +++|* RETURN TO THE CALLER WHEN THERE IS NO REQUEST TO
01629 M00S01561.sxucp +++|* PROCESS OR NO REQUEST CAN BE PROCESSED.
01630 M00S01562.sxucp +++|#
01631 M00S01563.sxucp +++|
01632 M00S01564.sxucp +++| RETURN;
01633 M00S01565.sxucp +++| END # UCP$RP #
01634 M00S01566.sxucp +++|
01635 M00S01567.sxucp +++| TERM
01636 M00S01568.sxucp +++|PROC UCP$WRI((LLRQADDR2),(WORDCOUNT),(SCPADDR),RSTATUS);
01637 M00S01569.sxucp +++|# TITLE UCP$WRI - PASS DATA TO *UCP*. #
01638 M00S01570.sxucp +++|
01639 M00S01571.sxucp +++| BEGIN # UCP$WRI #
01640 M00S01572.sxucp +++|
01641 M00S01573.sxucp +++|#
01642 M00S01574.sxucp +++|** UCP$WRI - PASS DATA TO *UCP*.
01643 M00S01575.sxucp +++|*
01644 M00S01576.sxucp +++|* *UCP$WRI* ISSUES AN *SF.WRIT* TO TRANSFER INFORMATION BACK
01645 M00S01577.sxucp +++|* TO THE *UCP*.
01646 M00S01578.sxucp +++|*
01647 M00S01579.sxucp +++|* PROC UCP$WRI((LLRQADDR2),(WORDCOUNT),(SCPADDR),RSTATUS)
01648 M00S01580.sxucp +++|*
01649 M00S01581.sxucp +++|* ENTRY LLRQADDR2 = DESTINATION OF DATA IN *UCP*.
01650 M00S01582.sxucp +++|* WORDCOUNT = NUMBER OF WORDS TO BE TRANSFERRED
01651 M00S01583.sxucp +++|* TO *UCP*.
01652 M00S01584.sxucp +++|* SCPADDR = SOURCE OF DATA IN THE *SCP*.
01653 M00S01585.sxucp +++|*
01654 M00S01586.sxucp +++|* EXIT RSTATUS = *SFCALL* ERROR RETURNED TO THE CALLER.
01655 M00S01587.sxucp +++|*
01656 M00S01588.sxucp +++|* NOTE *LTCENTRY* CONTAINS THE ORDINAL OF THE *UCP* LONG
01657 M00S01589.sxucp +++|* TERM CONNECT TABLE ENTRY.
01658 M00S01590.sxucp +++|*
01659 M00S01591.sxucp +++|#
01660 M00S01592.sxucp +++|
01661 M00S01593.sxucp +++| ITEM LLRQADDR2 U; # DESTINATION OF DATA IN *UCP* #
01662 M00S01594.sxucp +++| ITEM WORDCOUNT U; # NUMBER OF WORDS TO BE
01663 M00S01595.sxucp +++| TRANSFERRED #
01664 M00S01596.sxucp +++| ITEM SCPADDR U; # SOURCE OF DATA IN *SCP* #
01665 M00S01597.sxucp +++| ITEM RSTATUS U; # *SFCALL* ERROR RETURNED TO
01666 M00S01598.sxucp +++| CALLER #
01667 M00S01599.sxucp +++|
01668 M00S01600.sxucp +++|#
01669 M00S01601.sxucp +++|**** PROC UCP$WRI - XREF LIST BEGIN.
01670 M00S01602.sxucp +++|#
01671 M00S01603.sxucp +++|
01672 M00S01604.sxucp +++| XREF
01673 M00S01605.sxucp +++| BEGIN
01674 M00S01606.sxucp +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO #
01675 M00S01607.sxucp +++| END
01676 M00S01608.sxucp +++|
01677 M00S01609.sxucp +++|#
01678 M00S01610.sxucp +++|**** PROC UCP$WRI - XREF LIST END.
01679 M00S01611.sxucp +++|#
01680 M00S01612.sxucp +++|
01681 M00S01613.sxucp +++|
01682 M00S01614.sxucp +++|
01683 M00S01615.sxucp +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
01684 M00S01616.sxucp +++|*CALL COMBFAS
01685 M00S01617.sxucp +++|*CALL COMBUCR
01686 M00S01618.sxucp +++|*CALL COMXLTC
01687 M00S01619.sxucp +++|*CALL COMXMSC
01688 M00S01620.sxucp +++|
01689 M00S01621.sxucp +++|
01690 M00S01622.sxucp +++|
01691 M00S01623.sxucp +++|
01692 M00S01624.sxucp +++|
01693 M00S01625.sxucp +++|#
01694 M00S01626.sxucp +++|* SET UP AN *SFCALL* REQUEST FOR AN *SF.WRIT* AND ISSUE IT.
01695 M00S01627.sxucp +++|#
01696 M00S01628.sxucp +++|
01697 M00S01629.sxucp +++| LTC$SFUCPA[LTCENTRY] = LLRQADDR2;
01698 M00S01630.sxucp +++| LTC$SFSCPA[LTCENTRY] = SCPADDR;
01699 M00S01631.sxucp +++| LTC$SFFP[LTCENTRY] = WORDCOUNT;
01700 M00S01632.sxucp +++| LTC$SFFC[LTCENTRY] = SFWRIT;
01701 M00S01633.sxucp +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
01702 M00S01634.sxucp +++| RSTATUS = LTC$SFRC[LTCENTRY];
01703 M00S01635.sxucp +++| RETURN;
01704 M00S01636.sxucp +++| END # UCP$WRI #
01705 M00S01637.sxucp +++|
01706 M00S01638.sxucp +++| TERM