Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:sxllr
Deck SXLLR
Library Member Format: MODIFY
Listing Sections
- Deck SXLLR Start
- Deck SXLLR Part 1 (Line 2107)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.sxllr +++|PROC L; 00002 M00S00002.sxllr +++|# TITLE L - LOW LEVEL REQUEST PROCESSOR DOCUMENTATION. # 00003 M00S00003.sxllr +++| BEGIN # L # 00004 M00S00004.sxllr +++| 00005 M00S00005.sxllr +++|# 00006 M00S00006.sxllr +++|**** LOW LEVEL REQUEST PROCESSORS. 00007 M00S00007.sxllr +++|* 00008 M00S00008.sxllr +++|* THE FOLLOWING PROCESSORS CONSTITUTE THE LOW LEVEL REQUEST 00009 M00S00009.sxllr +++|* PROCESSORS: 00010 M00S00010.sxllr +++|* CPY$DS 00011 M00S00011.sxllr +++|* CPY$RS 00012 M00S00012.sxllr +++|* CPY$SD 00013 M00S00013.sxllr +++|* INIT$HW 00014 M00S00014.sxllr +++|* LD$CAR 00015 M00S00015.sxllr +++|* RD$LAB 00016 M00S00016.sxllr +++|* TEST$YZ 00017 M00S00017.sxllr +++|* UNL$CAR 00018 M00S00018.sxllr +++|* WT$LAB 00019 M00S00019.sxllr +++|* 00020 M00S00020.sxllr +++|* THESE PROCESSORS ARE ALL CODED IN A SPECIAL WAY THAT IS TERMED 00021 M00S00021.sxllr +++|* "PSEUDO-REENTRANT". 00022 M00S00022.sxllr +++|* 00023 M00S00023.sxllr +++|* WHEN A LOW LEVEL REQUEST PROCESSOR IS CALLED IT IS PASSED THE 00024 M00S00024.sxllr +++|* ADDRESS OF AN *LLRQ* ENTRY (A REQUEST) WHICH IS READY FOR 00025 M00S00025.sxllr +++|* FURTHER PROCESSING. ALL THE PARAMETERS THE PROCESSOR NEEDS FOR 00026 M00S00026.sxllr +++|* ADVANCING THE REQUEST ARE CONTAINED IN THE *LLRQ* ENTRY. IN 00027 M00S00027.sxllr +++|* PARTICULAR, THE PROCESS STATE FIELD (LLR$PS) TELLS THE PROCESSOR 00028 M00S00028.sxllr +++|* WHERE IT LEFT OFF THE LAST TIME IT WAS PROCESSING THIS REQUEST, 00029 M00S00029.sxllr +++|* AND THUS WHAT TO DO NEXT TO ADVANCE THE REQUEST. 00030 M00S00030.sxllr +++|* 00031 M00S00031.sxllr +++|* WHEN A LOW LEVEL REQUEST PROCESSOR REACHES A POINT WHERE IT 00032 M00S00032.sxllr +++|* CANNOT CONTINUE ADVANCING THE REQUEST WITHOUT A LONG DELAY, IT 00033 M00S00033.sxllr +++|* SETS UP SOME CONDITION THAT WILL EVENTUALLY GET THE REQUEST PUT 00034 M00S00034.sxllr +++|* BACK ON THE *LLRQ* READY CHAIN, AND THEN DROPS OUT BY 00035 M00S00035.sxllr +++|* 1) SETTING THE PROCESS STATE FIELD IN THE *LLRQ* ENTRY TO A 00036 M00S00036.sxllr +++|* VALUE THAT WILL ALLOW THE PROCESSOR TO RESTART THE REQUEST 00037 M00S00037.sxllr +++|* AT THE CORRECT POINT LATER, AND 00038 M00S00038.sxllr +++|* 2) RETURNING CONTROL TO THE *LLRQ* MONITOR. 00039 M00S00039.sxllr +++|* 00040 M00S00040.sxllr +++|* WHEN A LOW LEVEL REQUEST PROCESSOR COMPLETES THE PROCESSING OF 00041 M00S00041.sxllr +++|* A REQUEST, IT CAUSES THE ORIGINATOR OF THE REQUEST TO BE 00042 M00S00042.sxllr +++|* NOTIFIED OF THE COMPLETION. IF THE REQUEST ORIGINATED FROM A 00043 M00S00043.sxllr +++|* *UCP* THE NOTIFICATION IS DONE BY STORING THE RESPONSE CODE IN 00044 M00S00044.sxllr +++|* THE LONG TERM CONNECT TABLE ENTRY FOR THE *UCP* AND THEN 00045 M00S00045.sxllr +++|* CALLING *UCP$RES*. IF THE REQUEST ORIGINATED FROM A HIGH LEVEL 00046 M00S00046.sxllr +++|* REQUEST PROCESSOR, THE NOTIFICATION IS DONE BY STORING THE 00047 M00S00047.sxllr +++|* RESPONSE CODE IN THE *HLRQ* ENTRY FOR THE HIGH LEVEL REQUEST, 00048 M00S00048.sxllr +++|* AND PUTTING THE *HLRQ* ENTRY ON THE *HLRQ* READY CHAIN. 00049 M00S00049.sxllr +++|* 00050 M00S00050.sxllr +++|* WHEN THE PROCESSOR HAS NOTIFIED THE ORIGINATOR, IT THEN SETS 00051 M00S00051.sxllr +++|* PROCESS STATE FIELD IN THE *LLRQ* ENTRY TO "COMPLETE" AND 00052 M00S00052.sxllr +++|* RETURNS CONTROL TO THE *LLRQ* MONITOR. THE MONITOR THEN ZEROES 00053 M00S00053.sxllr +++|* OUT THE *LLRQ* ENTRY AND PUTS IT ON THE *LLRQ* FREE SPACE 00054 M00S00054.sxllr +++|* CHAIN. 00055 M00S00055.sxllr +++|# 00056 M00S00056.sxllr +++| 00057 M00S00057.sxllr +++| END # L # 00058 M00S00058.sxllr +++| 00059 M00S00059.sxllr +++| TERM 00060 M00S00060.sxllr +++|PROC CPY$DS((LLRADR)); 00061 M00S00061.sxllr +++|# TITLE CPY$DS - COPY DISK TO VOLUME. # 00062 M00S00062.sxllr +++| 00063 M00S00063.sxllr +++| BEGIN # CPY$DS # 00064 M00S00064.sxllr +++| 00065 M00S00065.sxllr +++|# 00066 M00S00066.sxllr +++|** CPY$DS - COPY DISK TO VOLUME. 00067 M00S00067.sxllr +++|* 00068 M00S00068.sxllr +++|* *CPY$DS* COPIES THE DISK FILE (FROM ITS CURRENT POSITION) TO THE 00069 M00S00069.sxllr +++|* VOLUME, UNTIL END OF VOLUME OR END OF FILE IS ENCOUNTERED. 00070 M00S00070.sxllr +++|* 00071 M00S00071.sxllr +++|* PROC CPY$DS((LLRADR)) 00072 M00S00072.sxllr +++|* 00073 M00S00073.sxllr +++|* ENTRY (LLRADR) - ADDRESS OF *LLRQ* ENTRY FOR THE COPY 00074 M00S00074.sxllr +++|* CONTAINING THE SMA-ID, YZ COORDINATES, 00075 M00S00075.sxllr +++|* ADDRESS OF THE DISK AND M860 FET-S. THE 00076 M00S00076.sxllr +++|* FET-S MUST BE INITIALIZED. 00077 M00S00077.sxllr +++|* 00078 M00S00078.sxllr +++|* EXIT THE PROCESS STATE FIELD IN THE *LLRQ* ENTRY HAS BEEN 00079 M00S00079.sxllr +++|* ADVANCED TO INDICATE WHERE PROCESSING OF THIS REQUEST 00080 M00S00080.sxllr +++|* LEFT OFF AND THUS WHAT TO DO NEXT TO ADVANCE THE 00081 M00S00081.sxllr +++|* REQUEST. WHEN THE COPY IS COMPLETE AN ERROR RESPONSE 00082 M00S00082.sxllr +++|* CODE IS RETURNED IN THE *HLRQ* ENTRY WHICH GENERATED 00083 M00S00083.sxllr +++|* THE COPY REQUEST. 00084 M00S00084.sxllr +++|* (HLR$RESP[0]) - ERROR RESPONSE CODE. 00085 M00S00085.sxllr +++|* (VALUES DEFINED IN *COMBCPR*). 00086 M00S00086.sxllr +++|* = RESPTYP4"OK4". 00087 M00S00087.sxllr +++|* = RESPTYP4"UN$WRT$ERR". 00088 M00S00088.sxllr +++|* = RESPTYP4"EX$WRT$ERR". 00089 M00S00089.sxllr +++|* = RESPTYP4"M86$HDW$PR". 00090 M00S00090.sxllr +++|* = RESPTYP4"RMS$FL$ERR". 00091 M00S00091.sxllr +++|* 00092 M00S00092.sxllr +++|* NOTES THIS MODULE IS A PSEUDO REENTRANT ROUTINE, CALLED ONLY 00093 M00S00093.sxllr +++|* BY *DESTAGR* THRU THE *HLRQ* PROCESSOR. 00094 M00S00094.sxllr +++|# 00095 M00S00095.sxllr +++| 00096 M00S00096.sxllr +++| ITEM LLRADR U; # *LLRQ* ENTRY ADDRESS # 00097 M00S00097.sxllr +++| ITEM STRPCT U; # NUMBER OF STRIPES # 00098 M00S00098.sxllr +++| 00099 M00S00099.sxllr +++|# 00100 M00S00100.sxllr +++|**** PROC CPY$DS - XREF LIST BEGIN. 00101 M00S00101.sxllr +++|# 00102 M00S00102.sxllr +++| 00103 M00S00103.sxllr +++| XREF 00104 M00S00104.sxllr +++| BEGIN 00105 M00S00105.sxllr +++| PROC ADD$LNK; # ADD ENTRY TO CHAIN # 00106 M00S00106.sxllr +++| PROC GETBUF; # GET LARGE BUFFER # 00107 M00S00107.sxllr +++| PROC RLSBUF; # RELASE LARGE BUFFER # 00108 M00S00108.sxllr +++| PROC READCW; # READ WITH CONTROL WORDS # 00109 M00S00109.sxllr +++| PROC SETFET; # INITIALIZE LARGE BUFFER # 00110 M00S00110.sxllr +++| END 00111 M00S00111.sxllr +++| 00112 M00S00112.sxllr +++|# 00113 M00S00113.sxllr +++|**** PROC CPY$DS - XREF LIST END. 00114 M00S00114.sxllr +++|# 00115 M00S00115.sxllr +++| 00116 M00S00116.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 00117 M00S00117.sxllr +++|*CALL COMBFAS 00118 M00S00118.sxllr +++|*CALL COMBCDD 00119 M00S00119.sxllr +++|*CALL COMBCHN 00120 M00S00120.sxllr +++|*CALL COMBCPR 00121 M00S00121.sxllr +++|*CALL COMBFET 00122 M00S00122.sxllr +++|*CALL COMBLRQ 00123 M00S00123.sxllr +++|*CALL COMBRCD 00124 M00S00124.sxllr +++|*CALL COMXCCB 00125 M00S00125.sxllr +++|*CALL COMXHLR 00126 M00S00126.sxllr +++|*CALL COMXMSC 00127 M00S00127.sxllr +++| 00128 M00S00128.sxllr +++| ITEM FLAG B; # FLAG # 00129 M00S00129.sxllr +++| 00130 M00S00130.sxllr +++| SWITCH CDSENTR:PROCST # COPY DISK TO VOLUME ENTRIES # 00131 M00S00131.sxllr +++| CDSINIT:INITIAL, # INITIAL ENTRY # 00132 M00S00132.sxllr +++| CDS1:CONT1, # WAIT LARGE BUFFER # 00133 M00S00133.sxllr +++| CDS2:CONT2, # DRIVER VOLUME RETURN # 00134 M00S00134.sxllr +++| CDS3:CONT3; # DRIVER RETURN *REWIND/UNLOAD* # 00135 M00S00135.sxllr +++| CONTROL EJECT; 00136 M00S00136.sxllr +++| 00137 M00S00137.sxllr +++| P<LLRQ> = LLRADR; 00138 M00S00138.sxllr +++| P<HLRQ> = LLR$UCPRA[0]; 00139 M00S00139.sxllr +++| GOTO CDSENTR[LLR$PRCST[0]]; 00140 M00S00140.sxllr +++| 00141 M00S00141.sxllr +++|# 00142 M00S00142.sxllr +++|* "INITIAL" PROCESS STATE. 00143 M00S00143.sxllr +++|# 00144 M00S00144.sxllr +++| 00145 M00S00145.sxllr +++|CDSINIT: # SET UP COPY CONTROL BLOCK # 00146 M00S00146.sxllr +++| GETBUF(LLRADR,HLRQIND,FLAG); 00147 M00S00147.sxllr +++| IF NOT FLAG 00148 M00S00148.sxllr +++| THEN # NO BUFFER AVAILABLE # 00149 M00S00149.sxllr +++| BEGIN 00150 M00S00150.sxllr +++| LLR$PRCST[0] = PROCST"CONT1"; # WAIT BUFFER ASSIGNMENT # 00151 M00S00151.sxllr +++| ADD$LNK(LLRADR,LCHN"LL$LGBUF",0); 00152 M00S00152.sxllr +++| RETURN; 00153 M00S00153.sxllr +++| END 00154 M00S00154.sxllr +++| 00155 M00S00155.sxllr +++|# 00156 M00S00156.sxllr +++|* *CONT1* PROCESS STATE. 00157 M00S00157.sxllr +++|# 00158 M00S00158.sxllr +++| 00159 M00S00159.sxllr +++|CDS1: 00160 M00S00160.sxllr +++| SETFET(LLRADR); # INITIALIZE,LARGE BUFFER # 00161 M00S00161.sxllr +++| P<HLRQ> = LLR$UCPRA[0]; 00162 M00S00162.sxllr +++| P<LLRQ> = LLRADR; 00163 M00S00163.sxllr +++| P<CCB> = LLR$CCB[0]; 00164 M00S00164.sxllr +++| P<FETSET> = LLR$DSKFET[0]; 00165 M00S00165.sxllr +++| P<FETFHB> = LLR$MSFET[0]; 00166 M00S00166.sxllr +++| CCBOPCODE[0] = CPYC"DISKAU"; 00167 M00S00167.sxllr +++| FET$RR[0] = HLR$PRU[0]; 00168 M00S00168.sxllr +++| 00169 M00S00169.sxllr +++|# 00170 M00S00170.sxllr +++|* SET STRIPE INFORMATION IN LARGE BUFFER. 00171 M00S00171.sxllr +++|# 00172 M00S00172.sxllr +++| 00173 M00S00173.sxllr +++| FHB$TIME[0] = PDATEV; 00174 M00S00174.sxllr +++| FHB$SMIF[0] = LLR$SMIF[0]; 00175 M00S00175.sxllr +++| FHB$CCSN[0] = HLR$CSNTCU[0]; 00176 M00S00176.sxllr +++| FHB$SHDWD[0] = HLR$FETMT[0]; 00177 M00S00177.sxllr +++| FHB$PCSN[0] = HLR$CSNTPS[0]; 00178 M00S00178.sxllr +++| FHB$PFC[0] = HLR$PFC[0]; 00179 M00S00179.sxllr +++| FHB$CODE[0] = FCCWW; # CONTROL WORD WRITE # 00180 M00S00180.sxllr +++| READCW(FETSET[0],0,NRCL); 00181 M00S00181.sxllr +++| LLR$RC[0] = REQCODE"SWRT$VOL"; # ISSUE WRITE VOLUME REQUEST # 00182 M00S00182.sxllr +++| LLR$RS[0] = PROCST"INITIAL"; 00183 M00S00183.sxllr +++| ADD$LNK(CCBLLRQ[0],LCHN"DRQUEUE",0); 00184 M00S00184.sxllr +++| LLR$PRCST[0] = PROCST"CONT2"; 00185 M00S00185.sxllr +++| RETURN; 00186 M00S00186.sxllr +++| 00187 M00S00187.sxllr +++|# 00188 M00S00188.sxllr +++|* *CONT2* PROCESS STATE. 00189 M00S00189.sxllr +++|* CPU DRIVER RETURN FROM VOLUME MOUNT. 00190 M00S00190.sxllr +++|# 00191 M00S00191.sxllr +++| 00192 M00S00192.sxllr +++|CDS2: # PROCESS DRIVER RESPONSE # 00193 M00S00193.sxllr +++| IF LLR$DR[0] NQ RESPTYP4"OK4" 00194 M00S00194.sxllr +++| THEN 00195 M00S00195.sxllr +++| BEGIN # PROCESS DRIVER ERROR RETURN CODE # 00196 M00S00196.sxllr +++| IF LLR$DR[0] EQ RESPTYP4"UN$WRT$ERR" 00197 M00S00197.sxllr +++| THEN 00198 M00S00198.sxllr +++| BEGIN # UNRECOVERED WRITE ERROR # 00199 M00S00199.sxllr +++| HLR$AUUD[0] = (LLR$ST$LW[0] - INFTST) / INSPAU + 1; 00200 M00S00200.sxllr +++| HLR$HRDE[0] = HLR$HRDE[0] + 1; # SET WRITE ERROR # 00201 M00S00201.sxllr +++| END # WRITE ERROR # 00202 M00S00202.sxllr +++| GOTO CONT; 00203 M00S00203.sxllr +++| END 00204 M00S00204.sxllr +++| 00205 M00S00205.sxllr +++| ADD$LNK(LLR$CCB[0],LCHN"KC$GOING",0); 00206 M00S00206.sxllr +++| LLR$PRCST[0] = PROCST"CONT3"; 00207 M00S00207.sxllr +++| RETURN; 00208 M00S00208.sxllr +++| 00209 M00S00209.sxllr +++| 00210 M00S00210.sxllr +++|# 00211 M00S00211.sxllr +++|* *CONT3* PROCESS STATE. 00212 M00S00212.sxllr +++|* KEEP COPY GOING RETURN AFTER REWIND/UNLOAD COMMAND. 00213 M00S00213.sxllr +++|# 00214 M00S00214.sxllr +++| 00215 M00S00215.sxllr +++|CDS3: 00216 M00S00216.sxllr +++| P<CCB> = LLR$CCB[0]; 00217 M00S00217.sxllr +++| HLR$AUUD[0] = (LLR$LT$ST[0] - INFTST) / INSPAU + 1; 00218 M00S00218.sxllr +++| STRPCT = LLR$LOG$ST[0] / INSPAU; 00219 M00S00219.sxllr +++| 00220 M00S00220.sxllr +++| IF CCBDERR[0] 00221 M00S00221.sxllr +++| THEN 00222 M00S00222.sxllr +++| BEGIN # DISK ERROR # 00223 M00S00223.sxllr +++| LLR$DR[0] = RESPTYP4"RMS$FL$ERR"; 00224 M00S00224.sxllr +++| GOTO CONT; 00225 M00S00225.sxllr +++| END 00226 M00S00226.sxllr +++| 00227 M00S00227.sxllr +++| IF (CCBHDWPM[0]) 00228 M00S00228.sxllr +++| OR (LLR$DR[0] NQ RESPTYP4"OK4") 00229 M00S00229.sxllr +++| OR (HLR$AUUD[0] LS HLR$VOLAU[0]) 00230 M00S00230.sxllr +++| OR (HLR$AUUD[0] GR (HLR$VOLAU[0] + HLR$VOLLN[0])) 00231 M00S00231.sxllr +++| OR (STRPCT GR HLR$VOLLN[0]) 00232 M00S00232.sxllr +++| THEN # HARDWARE ERROR # 00233 M00S00233.sxllr +++| BEGIN 00234 M00S00234.sxllr +++| LLR$DR[0] = RESPTYP4"M86$HDW$PR"; 00235 M00S00235.sxllr +++| LLR$DRFUL[0] = TRUE; # FORCE UNLOAD OF CARTRIDGE # 00236 M00S00236.sxllr +++| GOTO CONT; 00237 M00S00237.sxllr +++| END 00238 M00S00238.sxllr +++| 00239 M00S00239.sxllr +++| IF CCBTAPPAR 00240 M00S00240.sxllr +++| THEN 00241 M00S00241.sxllr +++| BEGIN # WRITE PARITY ERROR # 00242 M00S00242.sxllr +++| LLR$DR[0] = RESPTYP4"UN$WRT$ERR"; 00243 M00S00243.sxllr +++| HLR$HRDE[0] = HLR$HRDE[0] + 1; # SET WRITE ERROR # 00244 M00S00244.sxllr +++| GOTO CONT; 00245 M00S00245.sxllr +++| END 00246 M00S00246.sxllr +++| 00247 M00S00247.sxllr +++| HLR$PRU[0] = LLR$LOG$ST[0] * INPRUS + HLR$PRU[0]; 00248 M00S00248.sxllr +++| 00249 M00S00249.sxllr +++|CONT: 00250 M00S00250.sxllr +++| 00251 M00S00251.sxllr +++| HLR$RESP[0] = LLR$DR[0]; # RETURN RESPONSE # 00252 M00S00252.sxllr +++| ADD$LNK(LLR$UCPRA[0],LCHN"HL$READY",0);
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act
----------------------------+
00253 M01S00001.sxllr2 +++| LLR$MSFET[0] = 0;
00254 M01S00002.sxllr2 +++| LLR$DSKFET[0] = 0;
00255 M00S00253.sxllr +++| RLSBUF(LLRADR); # RELEASE BUFFER #
00256 M00S00254.sxllr +++| RETURN;
00257 M00S00255.sxllr +++| END # CPY$DS #
00258 M00S00256.sxllr +++|
00259 M00S00257.sxllr +++| TERM
00260 M00S00258.sxllr +++|PROC CPY$RS((LLRADR));
00261 M00S00259.sxllr +++|# TITLE CPY$RS - COPY RAW VOLUME. #
00262 M00S00260.sxllr +++|
00263 M00S00261.sxllr +++| BEGIN # CPY$RS #
00264 M00S00262.sxllr +++|
00265 M00S00263.sxllr +++|#
00266 M00S00264.sxllr +++|** CPY$RS - COPY RAW VOLUME.
00267 M00S00265.sxllr +++|*
00268 M00S00266.sxllr +++|* *CPY$RS* APPENDS A RAW VOLUME TO A FILE, STARTING WITH THE
00269 M00S00267.sxllr +++|* CURRENT POSITION ON THE VOLUME TO THE END OF VOLUME.
00270 M00S00268.sxllr +++|*
00271 M00S00269.sxllr +++|* PROC CPY$RS((LLRADR))
00272 M00S00270.sxllr +++|*
00273 M00S00271.sxllr +++|* ENTRY (LLRADR) - ADDRESS OF *LLRQ* ENTRY FOR THE COPY
00274 M00S00272.sxllr +++|* CONTAINING THE SMA-ID, THE VOLUME
00275 M00S00273.sxllr +++|* NUMBER, AND THE YZ COORDINATES.
00276 M00S00274.sxllr +++|*
00277 M00S00275.sxllr +++|* EXIT THE PROCESS STATE FIELD IN THE *LLRQ* ENTRY HAS BEEN
00278 M00S00276.sxllr +++|* ADVANCED TO INDICATE WHERE PROCESSING OF THIS REQUEST
00279 M00S00277.sxllr +++|* LEFT OFF AND THUS WHAT TO DO NEXT TO ADVANCE THE
00280 M00S00278.sxllr +++|* REQUEST. WHEN THE COPY IS COMPLETE AN ERROR RESPONSE
00281 M00S00279.sxllr +++|* CODE IS RETURNED VIA *LTC$RQR[LTCENTRY]*.
00282 M00S00280.sxllr +++|* (LTC$RQR[LTCENTRY]) - ERROR RESPONSE CODE.
00283 M00S00281.sxllr +++|* (VALUES DEFINED IN *COMBCPR*).
00284 M00S00282.sxllr +++|* = RESPTYP4"OK4".
00285 M00S00283.sxllr +++|* = RESPTYP4"M86$HDW$PR".
00286 M00S00284.sxllr +++|* = RESPTYP4"RMS$FL$ERR".
00287 M00S00285.sxllr +++|* = RESPTYP4"DISK$FULL".
00288 M00S00286.sxllr +++|*
00289 M00S00287.sxllr +++|* MESSAGES * EXEC ABNORMAL, CPY$RS.*.
00290 M00S00288.sxllr +++|*
00291 M00S00289.sxllr +++|* NOTES THIS MODULE IS A PSEUDO REENTRANT ROUTINE. A COPY RAW
00292 M00S00290.sxllr +++|* VOLUME REQUEST ONLY COMES FROM *ASDEBUG* AND IS USED
00293 M00S00291.sxllr +++|* TO SALVAGE INFORMATION FROM A VOLUME WITH READ ERRORS.
00294 M00S00292.sxllr +++|#
00295 M00S00293.sxllr +++|
00296 M00S00294.sxllr +++| ITEM LLRADR U; # *LLRQ* ENTRY ADDRESS #
00297 M00S00295.sxllr +++|
00298 M00S00296.sxllr +++|#
00299 M00S00297.sxllr +++|**** PROC CPY$RS - XREF LIST BEGIN.
00300 M00S00298.sxllr +++|#
00301 M00S00299.sxllr +++|
00302 M00S00300.sxllr +++| XREF
00303 M00S00301.sxllr +++| BEGIN
00304 M00S00302.sxllr +++| PROC ABORT; # ABORT #
00305 M00S00303.sxllr +++| PROC ADD$LNK; # ADD ENTRY TO CHAIN #
00306 M00S00304.sxllr +++| PROC DELAY; # TIMED DELAY #
00307 M00S00305.sxllr +++| PROC GETBUF; # GET LARGE BUFFERS #
00308 M00S00306.sxllr +++| PROC MESSAGE; # ISSUE MESSAGE #
00309 M00S00307.sxllr +++| PROC PFD; # PERMANENT FILE REQUEST DELAYS #
00310 M00S00308.sxllr +++| PROC RETERN; # RETURN FILE #
00311 M00S00309.sxllr +++| PROC RLSBUF; # RELEASE LARGE BUFFERS #
00312 M00S00310.sxllr +++| PROC SETFET; # INITIALIZE LARGE BUFFER #
00313 M00S00311.sxllr +++| PROC SETPFP; # SET PERMANENT FILE PARAMETERS #
00314 M00S00312.sxllr +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO #
00315 M00S00313.sxllr +++| PROC SKIPEI; # SKIP TO *EOI* #
00316 M00S00314.sxllr +++| PROC UCP$RESP; # UCP RESPONSE #
00317 M00S00315.sxllr +++| PROC WRITE; # WRITE DATA FROM *CIO* BUFFER #
00318 M00S00316.sxllr +++| PROC WRITER; # WRITE *EOR* #
00319 M00S00317.sxllr +++| END
00320 M00S00318.sxllr +++|
00321 M00S00319.sxllr +++|#
00322 M00S00320.sxllr +++|**** PROC CPY$RS - XREF LIST END.
00323 M00S00321.sxllr +++|#
00324 M00S00322.sxllr +++|
00325 M00S00323.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00326 M00S00324.sxllr +++|*CALL COMBFAS
00327 M00S00325.sxllr +++|*CALL COMBCHN
00328 M00S00326.sxllr +++|*CALL COMBCPR
00329 M00S00327.sxllr +++|*CALL COMBFET
00330 M00S00328.sxllr +++|*CALL COMBLBL
00331 M00S00329.sxllr +++|*CALL COMBLRQ
00332 M00S00330.sxllr +++|*CALL COMBPFP
00333 M00S00331.sxllr +++|*CALL COMBPFS
00334 M00S00332.sxllr +++|*CALL COMBRCD
00335 M00S00333.sxllr +++|*CALL COMBUCR
00336 M00S00334.sxllr +++|*CALL COMXBST
00337 M00S00335.sxllr +++|*CALL COMXIPR
00338 M00S00336.sxllr +++|*CALL COMXLTC
00339 M00S00337.sxllr +++|*CALL COMXMSC
00340 M00S00338.sxllr +++|*CALL COMSPFM
00341 M00S00339.sxllr +++|
00342 M00S00340.sxllr +++| ITEM FLAG B; # FLAG #
00343 M00S00341.sxllr +++|
00344 M00S00342.sxllr +++| SWITCH CRSENTR:PROCST # COPY RAW VOLUME ENTRIES #
00345 M00S00343.sxllr +++| CRSINIT:INITIAL, # INITIAL ENTRY #
00346 M00S00344.sxllr +++| CRS1:CONT1, # CONTINUATION 1 #
00347 M00S00345.sxllr +++| CRS2:CONT2, # CONTINUATION 2 #
00348 M00S00346.sxllr +++| CRS3:CONT3, # CONTINUATION 3 #
00349 M00S00347.sxllr +++| CRS4:CONT4; # CONTINUATION 4 #
00350 M00S00348.sxllr +++| CONTROL EJECT;
00351 M00S00349.sxllr +++|
00352 M00S00350.sxllr +++| P<LLRQ> = LLRADR;
00353 M00S00351.sxllr +++| LLR$DR[0] = RESPTYP4"OK4";
00354 M00S00352.sxllr +++| GOTO CRSENTR[LLR$PRCST[0]]; # PROCESS REQUEST #
00355 M00S00353.sxllr +++|
00356 M00S00354.sxllr +++|#
00357 M00S00355.sxllr +++|* "INITIAL" PROCESS STATE.
00358 M00S00356.sxllr +++|#
00359 M00S00357.sxllr +++|
00360 M00S00358.sxllr +++|CRSINIT:
00361 M00S00359.sxllr +++| GETBUF(LLRADR,HLRQIND,FLAG);
00362 M00S00360.sxllr +++| IF NOT FLAG
00363 M00S00361.sxllr +++| THEN # NO BUFFER AVAILABLE #
00364 M00S00362.sxllr +++| BEGIN
00365 M00S00363.sxllr +++| LLR$PRCST[0] = PROCST"CONT1"; #WAIT BUFFER ASSIGNMENT#
00366 M00S00364.sxllr +++| ADD$LNK(LLRADR,LCHN"LL$LGBUF",0);
00367 M00S00365.sxllr +++| RETURN;
00368 M00S00366.sxllr +++| END
00369 M00S00367.sxllr +++|
00370 M00S00368.sxllr +++|
00371 M00S00369.sxllr +++|CRS1:
00372 M00S00370.sxllr +++| SETFET(LLRADR);
00373 M00S00371.sxllr +++|
00374 M00S00372.sxllr +++|#
00375 M00S00373.sxllr +++|* "CONT1" PROCESS STATE.
00376 M00S00374.sxllr +++|*
00377 M00S00375.sxllr +++|* REREAD THE UCP REQUEST BLOCK TO GET THE FAMILY, USER INDEX,
00378 M00S00376.sxllr +++|* AND FILE NAME.
00379 M00S00377.sxllr +++|#
00380 M00S00378.sxllr +++|
00381 M00S00379.sxllr +++|CRS2:
00382 M00S00380.sxllr +++| IF LLR$UCPABT[0]
00383 M00S00381.sxllr +++| THEN
00384 M00S00382.sxllr +++| BEGIN
00385 M00S00383.sxllr +++| GOTO CRSCOMP;
00386 M00S00384.sxllr +++| END
00387 M00S00385.sxllr +++|
00388 M00S00386.sxllr +++| P<FETSET> = LLR$DSKFET[0];
00389 M00S00387.sxllr +++| LTCENTRY = LLR$LTCT[0];
00390 M00S00388.sxllr +++| LTC$SFUCPA[LTCENTRY] = LLR$UCPRA[0];
00391 M00S00389.sxllr +++| LTC$SFSCPA[LTCENTRY] = FET$IN[0];
00392 M00S00390.sxllr +++| LTC$SFFP[LTCENTRY] = TYP4$WC + 1;
00393 M00S00391.sxllr +++| LTC$SFFC[LTCENTRY] = SFREAD;
00394 M00S00392.sxllr +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
00395 M00S00393.sxllr +++| IF LTC$SFRC[LTCENTRY] NQ 0
00396 M00S00394.sxllr +++| THEN
00397 M00S00395.sxllr +++| BEGIN # PROCESS ERROR RESPONSE #
00398 M00S00396.sxllr +++| IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT
00399 M00S00397.sxllr +++| THEN
00400 M00S00398.sxllr +++| BEGIN # SWAP IN UCP #
00401 M00S00399.sxllr +++| LTC$SFUCPA[LTCENTRY] = 0;
00402 M00S00400.sxllr +++| LTC$SFSCPA[LTCENTRY] = 0;
00403 M00S00401.sxllr +++| LTC$SFFC[LTCENTRY] = SFSWPI;
00404 M00S00402.sxllr +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),NRCL);
00405 M00S00403.sxllr +++|
00406 M00S00404.sxllr +++|#
00407 M00S00405.sxllr +++|* "CONT3" PROCESS STATE.
00408 M00S00406.sxllr +++|#
00409 M00S00407.sxllr +++|
00410 M00S00408.sxllr +++|CRS3:
00411 M00S00409.sxllr +++| LTCENTRY = LLR$LTCT[0];
00412 M00S00410.sxllr +++| IF LTC$SFFCC[LTCENTRY]
00413 M00S00411.sxllr +++| THEN # RETRY *SFREAD* #
00414 M00S00412.sxllr +++| BEGIN
00415 M00S00413.sxllr +++| LLR$PRCST[0] = PROCST"CONT2";
00416 M00S00414.sxllr +++| END
00417 M00S00415.sxllr +++|
00418 M00S00416.sxllr +++| ELSE # DELAY FOR REQUEST COMPLETION #
00419 M00S00417.sxllr +++| BEGIN
00420 M00S00418.sxllr +++| LLR$PRCST[0] = PROCST"CONT3";
00421 M00S00419.sxllr +++| DELAY(UCP$INTV,LLRADR,LLRQIND);
00422 M00S00420.sxllr +++| END
00423 M00S00421.sxllr +++|
00424 M00S00422.sxllr +++| RETURN;
00425 M00S00423.sxllr +++| END # SWAP IN UCP #
00426 M00S00424.sxllr +++|
00427 M00S00425.sxllr +++| ELSE # FATAL ERROR #
00428 M00S00426.sxllr +++| BEGIN
00429 M00S00427.sxllr +++| GOTO CRSFERR;
00430 M00S00428.sxllr +++| END
00431 M00S00429.sxllr +++|
00432 M00S00430.sxllr +++| END # PROCESS ERROR RESPONSE #
00433 M00S00431.sxllr +++|
00434 M00S00432.sxllr +++| P<CPR> = FET$IN[0];
00435 M00S00433.sxllr +++| FET$LFN[0] = CPR$PFN[0];
00436 M00S00434.sxllr +++| PFP$WRD0[0] = 0; # SET FAMILY AND USER INDEX #
00437 M00S00435.sxllr +++| PFP$FAM[0] = CPR$FAM[0];
00438 M00S00436.sxllr +++| PFP$UI[0] = CPR$UI[0];
00439 M00S00437.sxllr +++| PFP$FG1[0] = TRUE;
00440 M00S00438.sxllr +++| PFP$FG4[0] = TRUE;
00441 M00S00439.sxllr +++| SETPFP(PFP);
00442 M00S00440.sxllr +++| IF PFP$STAT[0] NQ 0
00443 M00S00441.sxllr +++| THEN
00444 M00S00442.sxllr +++| BEGIN
00445 M00S00443.sxllr +++| GOTO CRSFERR;
00446 M00S00444.sxllr +++| END
00447 M00S00445.sxllr +++|
00448 M00S00446.sxllr +++| PFD("ATTACH",FET$LFN[0],0,"M","W","RC",PFSTAT,"NA",0,"UP",0,0);
00449 M00S00447.sxllr +++| PFP$FAM[0] = DEF$FAM; # RETURN TO DEFAULT FAMILY #
00450 M00S00448.sxllr +++| PFP$UI[0] = DEF$UI;
00451 M00S00449.sxllr +++| SETPFP(PFP);
00452 M00S00450.sxllr +++| IF PFP$STAT[0] NQ 0
00453 M00S00451.sxllr +++| THEN
00454 M00S00452.sxllr +++| BEGIN
00455 M00S00453.sxllr +++| GOTO CRSFERR;
00456 M00S00454.sxllr +++| END
00457 M00S00455.sxllr +++|
00458 M00S00456.sxllr +++| IF PFSTAT NQ 0
00459 M00S00457.sxllr +++| THEN # IF *ATTACH* ERROR #
00460 M00S00458.sxllr +++| BEGIN
00461 M00S00459.sxllr +++| LLR$DR[0] = RESPTYP4"ATTACH$ERR";
00462 M00S00460.sxllr +++| GOTO CRSCOMP;
00463 M00S00461.sxllr +++| END
00464 M00S00462.sxllr +++|
00465 M00S00463.sxllr +++| SKIPEI(FETSET[0],RCL);
00466 M00S00464.sxllr +++|
00467 M00S00465.sxllr +++|#
00468 M00S00466.sxllr +++|* SET READ ONE STRIPE AT A TIME.
00469 M00S00467.sxllr +++|#
00470 M00S00468.sxllr +++|
00471 M00S00469.sxllr +++| LLR$SAV$HI[0] = LLR$ST$HI[0]; # SAVE LAST STRIPE TO READ #
00472 M00S00470.sxllr +++| LLR$ST$HI[0] = LLR$ST$LW[0] + 1;
00473 M00S00471.sxllr +++|
00474 M00S00472.sxllr +++|#
00475 M00S00473.sxllr +++|* ISSUE A READ RAW STRIPE REQUEST TO THE DRIVER. WHEN IT IS
00476 M00S00474.sxllr +++|* COMPLETED, WRITE THE RAW STRIPE TO THE DISK FILE. THEN LOOP
00477 M00S00475.sxllr +++|* BACK TO READ THE NEXT RAW STRIPE. CONTINUE THIS LOOP UNTIL
00478 M00S00476.sxllr +++|* THE LAST STRIPE IS READ.
00479 M00S00477.sxllr +++|#
00480 M00S00478.sxllr +++|
00481 M00S00479.sxllr +++| LLR$RC[0] = REQCODE"SRDRAW$STP";
00482 M00S00480.sxllr +++| LLR$PRCST[0] = PROCST"CONT4";
00483 M00S00481.sxllr +++|
00484 M00S00482.sxllr +++|RDRAWSTP: # ISSUE READ RAW STRIPE REQUEST #
00485 M00S00483.sxllr +++| IF LLR$UCPABT[0]
00486 M00S00484.sxllr +++| THEN
00487 M00S00485.sxllr +++| BEGIN
00488 M00S00486.sxllr +++| GOTO CRSCOMP;
00489 M00S00487.sxllr +++| END
00490 M00S00488.sxllr +++|
00491 M00S00489.sxllr +++| LLR$DR[0] = 0;
00492 M00S00490.sxllr +++| LLR$RS[0] = PROCST"INITIAL";
00493 M00S00491.sxllr +++| ADD$LNK(LLRADR,LCHN"DRQUEUE",0);
00494 M00S00492.sxllr +++| RETURN;
00495 M00S00493.sxllr +++|
00496 M00S00494.sxllr +++|#
00497 M00S00495.sxllr +++|* "CONT4" PROCESS STATE.
00498 M00S00496.sxllr +++|#
00499 M00S00497.sxllr +++|
00500 M00S00498.sxllr +++|CRS4:
00501 M00S00499.sxllr +++| IF LLR$DR[0] NQ RESPTYP4"OK4" ##
00502 M00S00500.sxllr +++| THEN
00503 M00S00501.sxllr +++| BEGIN # PROCESS ERROR #
00504 M00S00502.sxllr +++| GOTO CRSCOMP;
00505 M00S00503.sxllr +++| END
00506 M00S00504.sxllr +++| P<FETFHB> = LLR$MSFET[0];
00507 M00S00505.sxllr +++| P<FETSET> = LLR$DSKFET[0];
00508 M00S00506.sxllr +++| FET$IN[0] = FHB$IN[0];
00509 M00S00507.sxllr +++|
00510 M00S00508.sxllr +++| WRITER(FETSET[0],RCL);
00511 M00S00509.sxllr +++|
00512 M00S00510.sxllr +++| IF FET$AT[0] NQ 0
00513 M00S00511.sxllr +++| THEN
00514 M00S00512.sxllr +++| BEGIN # WRITE ERROR #
00515 M00S00513.sxllr +++| IF FET$AT[0] EQ ATCODE AND FET$DEC[0] EQ DISKFULL
00516 M00S00514.sxllr +++| THEN # DISK FULL #
00517 M00S00515.sxllr +++| BEGIN
00518 M00S00516.sxllr +++| LLR$DR[0] = RESPTYP4"DISK$FULL";
00519 M00S00517.sxllr +++| END
00520 M00S00518.sxllr +++|
00521 M00S00519.sxllr +++| ELSE # FILE WRITE ERROR #
00522 M00S00520.sxllr +++| BEGIN
00523 M00S00521.sxllr +++| LLR$DR[0] = RESPTYP4"RMS$FL$ERR";
00524 M00S00522.sxllr +++| END
00525 M00S00523.sxllr +++|
00526 M00S00524.sxllr +++| GOTO CRSCOMP;
00527 M00S00525.sxllr +++| END # WRITE ERROR #
00528 M00S00526.sxllr +++|
00529 M00S00527.sxllr +++| LLR$ST$LW[0] = LLR$ST$LW[0] + 1;
00530 M00S00528.sxllr +++| LLR$ST$HI[0] = LLR$ST$LW[0] + 1;
00531 M00S00529.sxllr +++|
00532 M00S00530.sxllr +++| IF LLR$ST$LW[0] LQ LLR$SAV$HI[0]
00533 M00S00531.sxllr +++| THEN # IF NOT END OF VOLUME #
00534 M00S00532.sxllr +++| BEGIN
00535 M00S00533.sxllr +++| FHB$IN[0] = FET$FRST[0];
00536 M00S00534.sxllr +++| FHB$OUT[0] = FET$FRST[0];
00537 M00S00535.sxllr +++| FET$IN[0] = FET$FRST[0];
00538 M00S00536.sxllr +++| FET$OUT[0] = FET$FRST[0];
00539 M00S00537.sxllr +++| GOTO RDRAWSTP; # CONTINUE READING STRIPES #
00540 M00S00538.sxllr +++| END
00541 M00S00539.sxllr +++|
00542 M00S00540.sxllr +++| LLR$DR[0] = RESPTYP4"OK4";
00543 M00S00541.sxllr +++|
00544 M00S00542.sxllr +++|CRSCOMP:
00545 M00S00543.sxllr +++| P<FETSET> = LLR$DSKFET[0];
00546 M00S00544.sxllr +++| IF FET$LFN[0] NQ 0
00547 M00S00545.sxllr +++| THEN
00548 M00S00546.sxllr +++| BEGIN
00549 M00S00547.sxllr +++| RETERN(FETSET[0],RCL);
00550 M00S00548.sxllr +++| END
00551 M00S00549.sxllr +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 00552 M01S00003.sxllr2 +++| LLR$MSFET[0] = 0; 00553 M01S00004.sxllr2 +++| LLR$DSKFET[0] =0; 00554 M00S00550.sxllr +++| RLSBUF(LLRADR); # RELEASE BUFFERS # 00555 M00S00551.sxllr +++| P<LLRQ> = LLRADR; 00556 M00S00552.sxllr +++| IF NOT LLR$UCPABT[0] 00557 M00S00553.sxllr +++| THEN # ISSUE RESPONSE TO THE UCP # 00558 M00S00554.sxllr +++| BEGIN 00559 M00S00555.sxllr +++| LTCENTRY = LLR$LTCT[0]; 00560 M00S00556.sxllr +++| LTC$RQR[LTCENTRY] = LLR$DR[0]; 00561 M00S00557.sxllr +++| UCP$RESP; 00562 M00S00558.sxllr +++| END 00563 M00S00559.sxllr +++| ELSE 00564 M00S00560.sxllr +++| BEGIN # FORCE UNLOAD OF CARTRIDGE # 00565 M00S00561.sxllr +++| LLR$PRCNME[0] = REQTYP4"UNLD$CART"; 00566 M00S00562.sxllr +++| LLR$PRCST[0] = PROCST"INITIAL"; 00567 M00S00563.sxllr +++| LLR$RQI[0] = REQNAME"RQIAUCP"; 00568 M00S00564.sxllr +++| ADD$LNK(LLRADR,LCHN"LL$READY",0); 00569 M00S00565.sxllr +++| END # UNLOAD CARTRIDGE # 00570 M00S00566.sxllr +++| 00571 M00S00567.sxllr +++| RETURN; 00572 M00S00568.sxllr +++| 00573 M00S00569.sxllr +++|CRSFERR: # FATAL ERROR # 00574 M00S00570.sxllr +++| FE$RTN[0] = "CPY$RS."; 00575 M00S00571.sxllr +++| MESSAGE(FEMSG,UDFL1); 00576 M00S00572.sxllr +++| ABORT; 00577 M00S00573.sxllr +++| END # CPY$RS # 00578 M00S00574.sxllr +++| 00579 M00S00575.sxllr +++| TERM 00580 M00S00576.sxllr +++|PROC CPY$SD((LLRADR)); 00581 M00S00577.sxllr +++|# TITLE CPY$SD - COPY VOLUME TO DISK. # 00582 M00S00578.sxllr +++| 00583 M00S00579.sxllr +++| BEGIN # CPY$SD # 00584 M00S00580.sxllr +++| 00585 M00S00581.sxllr +++|# 00586 M00S00582.sxllr +++|** CPY$SD - COPY VOLUME TO DISK. 00587 M00S00583.sxllr +++|* 00588 M00S00584.sxllr +++|* *CPY$SD* COPIES A VOLUME TO A DISK FILE. 00589 M00S00585.sxllr +++|* 00590 M00S00586.sxllr +++|* PROC CPY$SD((LLRADR)) 00591 M00S00587.sxllr +++|* 00592 M00S00588.sxllr +++|* ENTRY (LLRADR) - ADDRESS OF *LLRQ* ENTRY FOR THE COPY 00593 M00S00589.sxllr +++|* CONTAINING THE SMA-ID, YZ COORDINATES, 00594 M00S00590.sxllr +++|* ADDRESS OF THE DISK AND M860 FET-S. THE 00595 M00S00591.sxllr +++|* FET-S MUST BE INITIALIZED. 00596 M00S00592.sxllr +++|* 00597 M00S00593.sxllr +++|* EXIT THE PROCESS STATE FIELD IN THE *LLRQ* ENTRY HAS BEEN 00598 M00S00594.sxllr +++|* ADVANCED TO INDICATE WHERE PROCESSING OF THIS REQUEST 00599 M00S00595.sxllr +++|* LEFT OFF AND THUS WHAT TO DO NEXT TO ADVANCE THE 00600 M00S00596.sxllr +++|* REQUEST. WHEN THE COPY IS COMPLETE AN ERROR RESPONSE 00601 M00S00597.sxllr +++|* CODE IS RETURNED IN THE *HLRQ* ENTRY WHICH GENERATED 00602 M00S00598.sxllr +++|* THE COPY REQUEST. 00603 M00S00599.sxllr +++|* (HLR$RESP[0]) - ERROR RESPONSE CODE. 00604 M00S00600.sxllr +++|* (VALUES DEFINED IN *COMBCPR*). 00605 M00S00601.sxllr +++|* = RESPTYP4"OK4". 00606 M00S00602.sxllr +++|* = RESPTYP4"UNR$RD$ERR". 00607 M00S00603.sxllr +++|* = RESPTYP4"M86SYS$ERR". 00608 M00S00604.sxllr +++|* = RESPTYP4"M86$HDW$PR". 00609 M00S00605.sxllr +++|* = RESPTYP4"RMS$FL$ERR". 00610 M00S00606.sxllr +++|* = RESPTYP4"DISK$FULL". 00611 M00S00607.sxllr +++|* 00612 M00S00608.sxllr +++|* NOTES THIS MODULE IS A PSEUDO REENTRANT ROUTINE, CALLED ONLY 00613 M00S00609.sxllr +++|* BY *STAGER* THRU THE *HLRQ* PROCESSOR. 00614 M00S00610.sxllr +++|# 00615 M00S00611.sxllr +++| 00616 M00S00612.sxllr +++| ITEM LLRADR U; # *LLRQ* ENTRY ADDRESS # 00617 M00S00613.sxllr +++| 00618 M00S00614.sxllr +++|# 00619 M00S00615.sxllr +++|**** PROC CPY$SD - XREF LIST BEGIN. 00620 M00S00616.sxllr +++|# 00621 M00S00617.sxllr +++| 00622 M00S00618.sxllr +++| XREF 00623 M00S00619.sxllr +++| BEGIN 00624 M00S00620.sxllr +++| PROC ADD$LNK; # ADD ENTRY TO CHAIN # 00625 M00S00621.sxllr +++| PROC GETBUF; # GET LARGE BUFFER # 00626 M00S00622.sxllr +++| PROC RLSBUF; # RELEASE LARGE BUFFER # 00627 M00S00623.sxllr +++| PROC SETFET; # INITIALIZE LARGE BUFFER # 00628 M00S00624.sxllr +++| END 00629 M00S00625.sxllr +++| 00630 M00S00626.sxllr +++|# 00631 M00S00627.sxllr +++|**** PROC CPY$SD - XREF LIST END. 00632 M00S00628.sxllr +++|# 00633 M00S00629.sxllr +++| 00634 M00S00630.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 00635 M00S00631.sxllr +++|*CALL COMBFAS 00636 M00S00632.sxllr +++|*CALL COMBCDD 00637 M00S00633.sxllr +++|*CALL COMBCHN 00638 M00S00634.sxllr +++|*CALL COMBCPR 00639 M00S00635.sxllr +++|*CALL COMBFET 00640 M00S00636.sxllr +++|*CALL COMBLRQ 00641 M00S00637.sxllr +++|*CALL COMBRCD 00642 M00S00638.sxllr +++|*CALL COMXCCB 00643 M00S00639.sxllr +++|*CALL COMXHLR 00644 M00S00640.sxllr +++|*CALL COMXMSC 00645 M00S00641.sxllr +++| 00646 M00S00642.sxllr +++| ITEM FLAG B; # FLAG # 00647 M00S00643.sxllr +++| 00648 M00S00644.sxllr +++| SWITCH CSDENTR:PROCST # COPY VOLUME TO DISK ENTRIES # 00649 M00S00645.sxllr +++| CSDINIT:INITIAL, # INITIAL ENTRY # 00650 M00S00646.sxllr +++| CSD1:CONT1, # WAIT LARGE BUFFER # 00651 M00S00647.sxllr +++| CSD2:CONT2, # DRIVER VOLUME RETURN # 00652 M00S00648.sxllr +++| CSD3:CONT3; # DRIVER RETURN *REWIND/UNLOAD* # 00653 M00S00649.sxllr +++| CONTROL EJECT; 00654 M00S00650.sxllr +++| 00655 M00S00651.sxllr +++| P<LLRQ> = LLRADR; 00656 M00S00652.sxllr +++| P<HLRQ> = LLR$UCPRA[0]; 00657 M00S00653.sxllr +++| GOTO CSDENTR[LLR$PRCST[0]]; 00658 M00S00654.sxllr +++| 00659 M00S00655.sxllr +++|# 00660 M00S00656.sxllr +++|* "INITIAL" PROCESS STATE. 00661 M00S00657.sxllr +++|# 00662 M00S00658.sxllr +++| 00663 M00S00659.sxllr +++|CSDINIT: # SET UP COPY CONTROL BLOCK # 00664 M00S00660.sxllr +++| GETBUF(LLRADR,HLRQIND,FLAG); 00665 M00S00661.sxllr +++| IF NOT FLAG 00666 M00S00662.sxllr +++| THEN # NO BUFFER AVAILABLE # 00667 M00S00663.sxllr +++| BEGIN 00668 M00S00664.sxllr +++| LLR$PRCST[0] = PROCST"CONT1"; # WAIT BUFFER ASSIGNMENT # 00669 M00S00665.sxllr +++| ADD$LNK(LLRADR,LCHN"LL$LGBUF",0); 00670 M00S00666.sxllr +++| RETURN; 00671 M00S00667.sxllr +++| END 00672 M00S00668.sxllr +++| 00673 M00S00669.sxllr +++| 00674 M00S00670.sxllr +++|# 00675 M00S00671.sxllr +++|* *CONT1* PROCESS STATE. 00676 M00S00672.sxllr +++|# 00677 M00S00673.sxllr +++| 00678 M00S00674.sxllr +++|CSD1: 00679 M00S00675.sxllr +++| SETFET(LLRADR); # INITIALIZE LARGE BUFFER # 00680 M00S00676.sxllr +++| P<LLRQ> = LLRADR; 00681 M00S00677.sxllr +++| P<CCB> = LLR$CCB[0]; 00682 M00S00678.sxllr +++| P<FETSET> = LLR$DSKFET[0]; 00683 M00S00679.sxllr +++| P<FETFHB> = LLR$MSFET[0]; 00684 M00S00680.sxllr +++| CCBOPCODE[0] = CPYC"AUDISK"; 00685 M00S00681.sxllr +++| FHB$CODE[0] = FCCWR; 00686 M00S00682.sxllr +++| LLR$RC[0] = REQCODE"SREAD$VOL"; # ISSUE READ VOLUME REQUEST # 00687 M00S00683.sxllr +++| LLR$RS[0] = PROCST"INITIAL"; 00688 M00S00684.sxllr +++| ADD$LNK(CCBLLRQ[0],LCHN"DRQUEUE",0); 00689 M00S00685.sxllr +++| LLR$PRCST[0] = PROCST"CONT2"; 00690 M00S00686.sxllr +++| RETURN; 00691 M00S00687.sxllr +++| 00692 M00S00688.sxllr +++|# 00693 M00S00689.sxllr +++|* *CONT2* PROCESS STATE. 00694 M00S00690.sxllr +++|* CPU DRIVER MOUNT VOLUME RETURN. 00695 M00S00691.sxllr +++|# 00696 M00S00692.sxllr +++| 00697 M00S00693.sxllr +++|CSD2: # PROCESS DRIVER RETURN # 00698 M00S00694.sxllr +++| IF LLR$DR[0] NQ RESPTYP4"OK4" 00699 M00S00695.sxllr +++| THEN 00700 M00S00696.sxllr +++| BEGIN # PROCESS DRIVER ERROR RETURN CODE # 00701 M00S00697.sxllr +++| GOTO CONT; 00702 M00S00698.sxllr +++| END 00703 M00S00699.sxllr +++| 00704 M00S00700.sxllr +++| ADD$LNK(LLR$CCB[0],LCHN"KC$GOING",0); 00705 M00S00701.sxllr +++| LLR$PRCST[0] = PROCST"CONT3"; 00706 M00S00702.sxllr +++| RETURN; 00707 M00S00703.sxllr +++| 00708 M00S00704.sxllr +++| 00709 M00S00705.sxllr +++|# 00710 M00S00706.sxllr +++|* *CONT3* PROCESS STATE. 00711 M00S00707.sxllr +++|* CPU DRIVER RETURN FROM REWIND/UNLOAD COMMAND. 00712 M00S00708.sxllr +++|# 00713 M00S00709.sxllr +++| 00714 M00S00710.sxllr +++| 00715 M00S00711.sxllr +++|CSD3: 00716 M00S00712.sxllr +++| P<CCB> = LLR$CCB[0]; 00717 M00S00713.sxllr +++| P<FETSET> = LLR$DSKFET[0]; 00718 M00S00714.sxllr +++| P<FETFHB> = LLR$MSFET[0]; 00719 M00S00715.sxllr +++| IF CCBDERR[0] 00720 M00S00716.sxllr +++| THEN # DISK ERROR # 00721 M00S00717.sxllr +++| BEGIN 00722 M00S00718.sxllr +++| LLR$DR[0] = RESPTYP4"RMS$FL$ERR"; 00723 M00S00719.sxllr +++| GOTO CONT; 00724 M00S00720.sxllr +++| END 00725 M00S00721.sxllr +++| 00726 M00S00722.sxllr +++| IF CCBDFULL[0] 00727 M00S00723.sxllr +++| THEN # DISK FULL ERROR # 00728 M00S00724.sxllr +++| BEGIN 00729 M00S00725.sxllr +++| LLR$DR[0] = RESPTYP4"DISK$FULL"; 00730 M00S00726.sxllr +++| GOTO CONT; 00731 M00S00727.sxllr +++| END 00732 M00S00728.sxllr +++| IF CCBHDWPM[0] OR LLR$DR[0] NQ RESPTYP4"OK4" 00733 M00S00729.sxllr +++| THEN # IF HARDWARE ERROR # 00734 M00S00730.sxllr +++| BEGIN 00735 M00S00731.sxllr +++| LLR$DR[0] = RESPTYP4"M86$HDW$PR"; 00736 M00S00732.sxllr +++| LLR$DRFUL[0] = TRUE; # FORCE UNLOAD OF CARTRIDGE # 00737 M00S00733.sxllr +++| GOTO CONT; 00738 M00S00734.sxllr +++| END 00739 M00S00735.sxllr +++| IF CCBTAPPAR 00740 M00S00736.sxllr +++| THEN 00741 M00S00737.sxllr +++| BEGIN # READ PARITY ERROR # 00742 M00S00738.sxllr +++| LLR$DR[0] = RESPTYP4"UN$RD$ERR"; 00743 M00S00739.sxllr +++| IF NOT HLR$RETRY[0] # FIRST PARITY ERROR # 00744 M00S00740.sxllr +++| THEN 00745 M00S00741.sxllr +++| BEGIN # FORCE UNLOAD AND DELINK OF CARTRIDGE # 00746 M00S00742.sxllr +++| LLR$DRFUL[0] = TRUE; 00747 M00S00743.sxllr +++| END 00748 M00S00744.sxllr +++| GOTO CONT; 00749 M00S00745.sxllr +++| END 00750 M00S00746.sxllr +++|
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 00751 M01S00005.sxllr2 +++| IF CCPPUDCK 00752 M01S00006.sxllr2 +++| THEN 00753 M01S00007.sxllr2 +++| BEGIN # PPU FOUND DATA TRANSFER ERROR # 00754 M01S00008.sxllr2 +++| LLR$DR[0]= RESPTYP4"PPU$D$PROB"; 00755 M01S00009.sxllr2 +++| IF NOT HLR$RETRY[0] # FIRST DATA ERROR # 00756 M01S00010.sxllr2 +++| THEN 00757 M01S00011.sxllr2 +++| BEGIN # FORCE UNLOAD AND DELINK OF CARTRIDGE # 00758 M01S00012.sxllr2 +++| LLR$DRFUL[0] = TRUE; 00759 M01S00013.sxllr2 +++| END 00760 M01S00014.sxllr2 +++| 00761 M01S00015.sxllr2 +++| GOTO CONT; 00762 M01S00016.sxllr2 +++| END 00763 M01S00017.sxllr2 +++| 00764 M00S00747.sxllr +++| IF FHB$PVLN[0] NQ HLR$VOLLNP[0] # PREVIOUS VOLUME LENGTH # 00765 M00S00748.sxllr +++| OR FHB$PVSN[0] NQ HLR$VOLAUP[0] # PREVIOUS VOLUME NUMBER # 00766 M00S00749.sxllr +++| OR FHB$CVSN[0] NQ HLR$VOLAU[0] # VOLUME NUMBER # 00767 M00S00750.sxllr +++| OR FHB$PCSN[0] NQ HLR$CSNTPS # CSN OR PREVIOUS VOLUME # 00768 M00S00751.sxllr +++| OR FHB$PFC$UI[0] NQ HLR$TDAMUI[0] # USER INDEX # 00769 M00S00752.sxllr +++| OR FHB$PFC$DT[0] NQ HLR$TDAMCD[0] # CREATION DATE / TIME # 00770 M00S00753.sxllr +++| THEN 00771 M00S00754.sxllr +++| BEGIN # SET VOLUME HEADER ERROR # 00772 M00S00755.sxllr +++| LLR$DR[0] = RESPTYP4"VOL$HD$ERR"; 00773 M00S00756.sxllr +++| GOTO CONT; 00774 M00S00757.sxllr +++| END 00775 M00S00758.sxllr +++| 00776 M00S00759.sxllr +++| 00777 M00S00760.sxllr +++| HLR$PRU[0] = FET$CRI[0] + HLR$PRU[0]; 00778 M00S00761.sxllr +++| 00779 M00S00762.sxllr +++| IF CCBTPMARK 00780 M00S00763.sxllr +++| THEN 00781 M00S00764.sxllr +++| BEGIN 00782 M00S00765.sxllr +++| HLR$EOI[0] = TRUE; 00783 M00S00766.sxllr +++| END 00784 M00S00767.sxllr +++| 00785 M00S00768.sxllr +++|CONT: 00786 M00S00769.sxllr +++| 00787 M00S00770.sxllr +++| 00788 M00S00771.sxllr +++| HLR$RESP[0] = LLR$DR[0]; # RETURN RESPONSE # 00789 M00S00772.sxllr +++| ADD$LNK(LLR$UCPRA[0],LCHN"HL$READY",0);
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 00790 M01S00018.sxllr2 +++| LLR$MSFET[0] = 0; 00791 M01S00019.sxllr2 +++| LLR$DSKFET[0] = 0; 00792 M00S00773.sxllr +++| RLSBUF(LLRADR); # RELEASE BUFFER # 00793 M00S00774.sxllr +++| RETURN; 00794 M00S00775.sxllr +++| END # CPY$SD # 00795 M00S00776.sxllr +++| 00796 M00S00777.sxllr +++| TERM 00797 M00S00778.sxllr +++|PROC INIT$HW((LLRADR)); 00798 M00S00779.sxllr +++|# TITLE INIT$HW - INITIALIZE M860 HARDWARE. # 00799 M00S00780.sxllr +++| 00800 M00S00781.sxllr +++| BEGIN # INIT$HW # 00801 M00S00782.sxllr +++| 00802 M00S00783.sxllr +++|# 00803 M00S00784.sxllr +++|** INIT$HW - INITIALIZE M860 HARDWARE. 00804 M00S00785.sxllr +++|* 00805 M00S00786.sxllr +++|* *INIT$HW* PASSES M860 HARDWARE INITIALIZATION 00806 M00S00787.sxllr +++|* REQUESTS TO THE MSAS DRIVER. IT CLEARS THE 00807 M00S00788.sxllr +++|* *INITIALIZE* FLAG TO INDICATE THAT FULL 00808 M00S00789.sxllr +++|* INITIALIZATION HAS COMPLETED WHEN IT FINDS THE 00809 M00S00790.sxllr +++|* *LLRQ* READY CHAIN AND *DRQUEUE* BOTH INACTIVE, WHILE 00810 M00S00791.sxllr +++|* PROCESSING A REQUEST JUST RETURNED FROM THE DRIVER. 00811 M00S00792.sxllr +++|* 00812 M00S00793.sxllr +++|* PROC INIT$HW((LLRADR)) 00813 M00S00794.sxllr +++|* 00814 M00S00795.sxllr +++|* ENTRY (LLRADR) - *LLRQ* ENTRY ADDRESS CONTAINING 00815 M00S00796.sxllr +++|* CONTROLLER ORDINAL FROM WHICH HARDWARE 00816 M00S00797.sxllr +++|* INITIALIZATION IS TO BE BASED. 00817 M00S00798.sxllr +++|* 00818 M00S00799.sxllr +++|* EXIT THE *LLRQ* ENTRY PROCESS STATE FIELD HAS BEEN 00819 M00S00800.sxllr +++|* ADVANCED TO INDICATE WHERE SUBSEQUENT PROCESSING OF 00820 M00S00801.sxllr +++|* THIS REQUEST IS TO CONTINUE. 00821 M00S00802.sxllr +++|* 00822 M00S00803.sxllr +++|* NOTES THIS MODULE IS A PSEUDO-REENTRANT ROUTINE. 00823 M00S00804.sxllr +++|# 00824 M00S00805.sxllr +++| 00825 M00S00806.sxllr +++| ITEM BYNR U; # OFF SET BIT ADDRESS # 00826 M00S00807.sxllr +++| ITEM LLRADR U; # *LLRQ* ENTRY ADDRESS # 00827 M00S00808.sxllr +++| ITEM STAT U; # STATUS BIT # 00828 M00S00809.sxllr +++| 00829 M00S00810.sxllr +++|# 00830 M00S00811.sxllr +++|**** PROC INIT$HW - XREF LIST BEGIN. 00831 M00S00812.sxllr +++|# 00832 M00S00813.sxllr +++| 00833 M00S00814.sxllr +++| XREF 00834 M00S00815.sxllr +++| BEGIN 00835 M00S00816.sxllr +++| PROC ABORT; # ABORT # 00836 M00S00817.sxllr +++| PROC ADD$LNK; # ADD ENTRY TO END OF CHAIN # 00837 M00S00818.sxllr +++| PROC MESSAGE; # ISSUE MESSAGE #
| Line S00819 Modification History | |
|---|---|
M01 (Removed by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 00838 M01S00819.sxllr2 ---| PROC MSG; # ISSUE MESSAGE # 00839 M00S00820.sxllr +++| PROC UCP$RES; # RETURN RESPONSE TO UCP # 00840 M00S00821.sxllr +++| END 00841 M00S00822.sxllr +++| 00842 M00S00823.sxllr +++|# 00843 M00S00824.sxllr +++|**** PROC INIT$HW - XREF LIST END. 00844 M00S00825.sxllr +++|# 00845 M00S00826.sxllr +++| 00846 M00S00827.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 00847 M00S00828.sxllr +++| 00848 M00S00829.sxllr +++|*CALL,COMBFAS 00849 M00S00830.sxllr +++|*CALL,COMBCHN 00850 M00S00831.sxllr +++|*CALL,COMBCPR 00851 M00S00832.sxllr +++|*CALL,COMBLRQ 00852 M00S00833.sxllr +++|*CALL,COMBRCD 00853 M00S00834.sxllr +++|*CALL,COMBUCR 00854 M00S00835.sxllr +++|*CALL COMBUDT 00855 M00S00836.sxllr +++|*CALL,COMXCTF 00856 M00S00837.sxllr +++|*CALL,COMXLTC 00857 M00S00838.sxllr +++|*CALL,COMXMSC 00858 M00S00839.sxllr +++| 00859 M00S00840.sxllr +++| BASED 00860 M00S00841.sxllr +++| ARRAY UDTBIT [0:0] P(1); # CHECK *UDT* AREA # 00861 M00S00842.sxllr +++| BEGIN 00862 M00S00843.sxllr +++| ITEM UDT$BIT U(00,00,60); 00863 M00S00844.sxllr +++| END 00864 M00S00845.sxllr +++|
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 00865 M01S00020.sxllr2 +++|# 00866 M01S00021.sxllr2 +++|* GENERAL MESSAGE BUFFER. 00867 M01S00022.sxllr2 +++|# 00868 M01S00023.sxllr2 +++| 00869 M01S00024.sxllr2 +++| ARRAY GMSB [0:0] S(5); 00870 M01S00025.sxllr2 +++| BEGIN # INIT MSGS # 00871 M01S00026.sxllr2 +++| ITEM MSG$LINE C(00,00,40); # MESSAGE LINE # 00872 M01S00027.sxllr2 +++| ITEM MSG$ZERO U(04,00,12) = [0]; # ZERO-BYTE TERMINATOR # 00873 M01S00028.sxllr2 +++| END # INIT MSGS # 00874 M01S00029.sxllr2 +++| 00875 M00S00846.sxllr +++| SWITCH INITIALS:PROCST # INITIALIZATION ENTRIES # 00876 M00S00847.sxllr +++| INIT1:INITIAL, # INITIAL ENTRY # 00877 M00S00848.sxllr +++| INIT2:CONT1; # FINAL ENTRY # 00878 M00S00849.sxllr +++| CONTROL EJECT; 00879 M00S00850.sxllr +++| 00880 M00S00851.sxllr +++| P<LLRQ> = LLRADR; 00881 M00S00852.sxllr +++| GOTO INITIALS[LLR$PRCST[0]]; 00882 M00S00853.sxllr +++| 00883 M00S00854.sxllr +++|# 00884 M00S00855.sxllr +++|* "INITIAL" PROCESS STATE. 00885 M00S00856.sxllr +++|# 00886 M00S00857.sxllr +++| 00887 M00S00858.sxllr +++|INIT1: 00888 M00S00859.sxllr +++| LLR$RC[0] = RESTART$CU; # ASSUME DRIVER RESTART REQUEST # 00889 M00S00860.sxllr +++| IF NOT INITIALIZE ## 00890 M00S00861.sxllr +++| THEN # NO CU RESTART REQUIRED # 00891 M00S00862.sxllr +++| BEGIN # RESET # 00892 M00S00863.sxllr +++| LLR$RC[0] = INIT$SM; 00893 M00S00864.sxllr +++| END # RESET # 00894 M00S00865.sxllr +++|
| Line S00866 Modification History | |
|---|---|
M01 (Removed by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 00895 M01S00866.sxllr2 ---| IF LLR$CHAN 00896 M01S00867.sxllr2 ---| THEN # CHANGE CHANNEL STATUS # 00897 M01S00868.sxllr2 ---| BEGIN # RESET # 00898 M01S00869.sxllr2 ---| LLR$RC[0] = CHNG$CHN; 00899 M01S00870.sxllr2 ---| END # RESET # 00900 M01S00871.sxllr2 ---| 00901 M00S00872.sxllr +++| LLR$PRCST[0] = PROCST"CONT1"; 00902 M00S00873.sxllr +++| ADD$LNK(LLRADR,LCHN"DRQUEUE",0); 00903 M00S00874.sxllr +++| RETURN; 00904 M00S00875.sxllr +++| 00905 M00S00876.sxllr +++|# 00906 M00S00877.sxllr +++|* "COMPLETE" PROCESS STATE. 00907 M00S00878.sxllr +++|# 00908 M00S00879.sxllr +++| 00909 M00S00880.sxllr +++|INIT2: 00910 M00S00881.sxllr +++| IF CHN$BOC[LCHN"LL$READY"] EQ 0 ## 00911 M00S00882.sxllr +++| AND CHN$BOC[LCHN"DRQUEUE"] EQ 0 ## 00912 M00S00883.sxllr +++| AND INITIALIZE 00913 M00S00884.sxllr +++| THEN # FULL INITIALIZATION COMPLETED # 00914 M00S00885.sxllr +++| BEGIN # INIT DONE #
| Line S00886 Modification History | |
|---|---|
M01 (Removed by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 00915 M01S00886.sxllr2 ---| INITIALIZE = FALSE;
| Line S00887 Modification History | |
|---|---|
M01 (Removed by) | mse1 |
M02 (Removed by) | sxllr2 |
Seq # *Modification Id* Act
----------------------------+
00916 M02S00887.sxllr2 ---| MSG(" M860 INITIALIZATION COMPLETE.",SYSUDF1);
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | mse1 |
M02 (Removed by) | sxllr2 |
Seq # *Modification Id* Act
----------------------------+
00917 M02S00001.sxllr2 ---| MSG(" INITIALIZATION COMPLETE.",SYSUDF1);
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 00918 M01S00030.sxllr2 +++| IF UDT$HWOFF[0] EQ 0 00919 M01S00031.sxllr2 +++| THEN # INITIALIZATION WAS SUCCESSFUL # 00920 M01S00032.sxllr2 +++| BEGIN # OK # 00921 M01S00033.sxllr2 +++| INITIALIZE = FALSE; 00922 M01S00034.sxllr2 +++| MSG$LINE[0] = " INITIALIZATION COMPLETE."; 00923 M01S00035.sxllr2 +++| MESSAGE(GMSB,SYSUDF1); 00924 M01S00036.sxllr2 +++| END # OK # 00925 M01S00037.sxllr2 +++| 00926 M01S00038.sxllr2 +++| ELSE # NO 7990 HARDWARE ACCESS # 00927 M01S00039.sxllr2 +++| BEGIN # EXIT # 00928 M01S00040.sxllr2 +++| MSG$LINE[0] = " INITIALIZATION HALTED."; 00929 M01S00041.sxllr2 +++| MESSAGE(GMSB,SYSUDF1); 00930 M01S00042.sxllr2 +++| MSG$LINE[0] = "$INITIALIZATION HALTED."; 00931 M01S00043.sxllr2 +++| MESSAGE(GMSB,LINE2); 00932 M01S00044.sxllr2 +++| END # EXIT # 00933 M01S00045.sxllr2 +++| 00934 M00S00888.sxllr +++| END # INIT DONE # 00935 M00S00889.sxllr +++| 00936 M00S00890.sxllr +++| IF LLR$RQI[0] EQ REQNAME"RQIALTER" # SSALTER WORKING # 00937 M00S00891.sxllr +++| AND NOT LLR$UCPABT[0] 00938 M00S00892.sxllr +++| THEN # REQUEST FROM UCP # 00939 M00S00893.sxllr +++| BEGIN # RETURN # 00940 M00S00894.sxllr +++| BYNR = LLR$BYNR[0]; 00941 M00S00895.sxllr +++| P<UDTBIT> = LLR$UDTQ[0]; 00942 M00S00896.sxllr +++| STAT = B<BYNR,1> UDT$BIT[0]; 00943 M00S00897.sxllr +++| LTCENTRY = LLR$LTCT[0]; 00944 M00S00898.sxllr +++| LTC$RQR[LTCENTRY] = RESPTYP5"OK5"; 00945 M00S00899.sxllr +++| IF STAT NQ LLR$PMMR[0] # STATUS UNCHANGED # 00946 M00S00900.sxllr +++| OR LLR$DR[0] EQ RESPTYP4"M86$HDW$PR" # HARDWARE PROBLEM # 00947 M00S00901.sxllr +++| THEN 00948 M00S00902.sxllr +++| BEGIN # STATUS REMAINED # 00949 M00S00903.sxllr +++| LTC$RQR[LTCENTRY] = RESPTYP5"SSA$ERROR"; 00950 M00S00904.sxllr +++| END # STATUS REMAINED # 00951 M00S00905.sxllr +++| 00952 M00S00906.sxllr +++| LTC$LLRQA[LTCENTRY] = 0; 00953 M00S00907.sxllr +++| UCP$RES; # RETURN RESPONSE TO UCP # 00954 M00S00908.sxllr +++| END # RETURN # 00955 M00S00909.sxllr +++| 00956 M00S00910.sxllr +++| LLR$PRCST[0] = PROCST"COMPLETE"; 00957 M00S00911.sxllr +++| RETURN; 00958 M00S00912.sxllr +++| 00959 M00S00913.sxllr +++| END # INIT$HW # 00960 M00S00914.sxllr +++| 00961 M00S00915.sxllr +++| TERM 00962 M00S00916.sxllr +++|PROC KCG; 00963 M00S00917.sxllr +++|# TITLE KCG - KEEP COPY GOING. # 00964 M00S00918.sxllr +++| 00965 M00S00919.sxllr +++| BEGIN # KCG # 00966 M00S00920.sxllr +++| 00967 M00S00921.sxllr +++|# 00968 M00S00922.sxllr +++|** KCG - KEEP COPY GOING. 00969 M00S00923.sxllr +++|* 00970 M00S00924.sxllr +++|* *KCG* MONITORS THE PROGRESS OF COPIES BETWEEN DISK AND A 00971 M00S00925.sxllr +++|* CARTRIDGE VOLUME, MOVES *IN* AND *OUT* POINTERS BETWEEN THE *CIO* 00972 M00S00926.sxllr +++|* AND *1SS* FET AND RESTARTS *CIO* OR *1SS* AS NECESSARY TO 00973 M00S00927.sxllr +++|* KEEP THE COPY PROCESS GOING. 00974 M00S00928.sxllr +++|* 00975 M00S00929.sxllr +++|* PROC KCG 00976 M00S00930.sxllr +++|* 00977 M00S00931.sxllr +++|* EXIT ALL COPY REQUESTS WHICH HAVE BEEN COMPLETED ARE 00978 M00S00932.sxllr +++|* DELETED FROM THE KEEP COPY GOING CHAIN AND ADDED BACK 00979 M00S00933.sxllr +++|* ON THE *LLRQ* READY CHAIN.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 00980 M01S00001.msea012 +++|* 00981 M01S00002.msea012 +++|* SENSE SWITCH 2 IS USED TO SET READ AND WRITE 1MS 00982 M01S00003.msea012 +++|* CALLS IN THE DAYFILE. THE NUMBER OF TIMES 1MS IS CALLED 00983 M01S00004.msea012 +++|* IN A VOLUME CAN BE TRACED BY SETTING SENSE SWITCHS 1 AND 2. 00984 M01S00005.msea012 +++|* 00985 M01S00006.msea012 +++|* THE STRIPES ARE READ OR WRITTEN IN 13 PRU BLOCKS. 00986 M01S00007.msea012 +++|* THE BUFFER HAS BEEN SET FOR 4 PLUS BLOCKS. 00987 M01S00008.msea012 +++|* THE BUFFER SIZE IS CHANGED BY *DATABL* IN COMXBST. 00988 M01S00009.msea012 +++|* 00989 M01S00010.msea012 +++|* 00990 M01S00011.msea012 +++|* THE CODE IS SET TO CALL 1MS WHEN A BUFFER IS 1/2 FULL. 00991 M01S00012.msea012 +++|* 00992 M01S00013.msea012 +++|* THE BUFFER SIZE CAN BE VARIED, BUT 1/3 OF A BUFFER MUST BE 00993 M01S00014.msea012 +++|* OVER 13 PRU-S OR A LOCK WILL HAPPEN BETWEEN 1SS AND 1MS. 00994 M01S00015.msea012 +++|* DATABL (BUFFER SIZE) HAS BEEN INCREASED FROM 3700 TO 00995 M01S00016.msea012 +++|* 6501. 00996 M01S00017.msea012 +++|* 00997 M01S00018.msea012 +++|* TO CHANGE FROM 1/2 TO 2/3 BUFFER FULL CALLS TO *1MS* - 00998 M01S00019.msea012 +++|* ((DATABL-1) / 2) TO ((DATABL-1) / 3) * 2 00999 M01S00020.msea012 +++|* 01000 M00S00934.sxllr +++|# 01001 M00S00935.sxllr +++|
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01002 M01S00021.msea012 +++| 01003 M01S00022.msea012 +++| DEF BUFSTART #((DATABL-1) / 2)#; # SETS HALF BUFFER START # 01004 M01S00023.msea012 +++| 01005 M00S00936.sxllr +++| DEF EOI$IWRD #O"2000 0000 0000 0000 0000"#; # *EOI* WORD # 01006 M00S00937.sxllr +++|# 01007 M00S00938.sxllr +++|**** PROC KCG - XREF LIST BEGIN. 01008 M00S00939.sxllr +++|# 01009 M00S00940.sxllr +++| 01010 M00S00941.sxllr +++| XREF 01011 M00S00942.sxllr +++| BEGIN 01012 M00S00943.sxllr +++| PROC ADD$LNK; # ADD ENTRY TO CHAIN # 01013 M00S00944.sxllr +++| PROC CALLPPU; # CALL PPU # 01014 M00S00945.sxllr +++| PROC DEL$LNK; # DELETE ENTRY FROM CHAIN # 01015 M00S00946.sxllr +++| PROC READCW; # READ WITH CONTROL WORDS # 01016 M00S00947.sxllr +++| PROC WRITECW; # WRITE WITH CONTROL WORDS # 01017 M00S00948.sxllr +++| PROC K8G; # KEEP M860 GOING #
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01018 M01S00024.msea012 +++| PROC MESSAGE; # ISSUE MESSAGE # 01019 M00S00949.sxllr +++| END 01020 M00S00950.sxllr +++| 01021 M00S00951.sxllr +++|# 01022 M00S00952.sxllr +++|**** PROC KCG - XREF LIST END. 01023 M00S00953.sxllr +++|# 01024 M00S00954.sxllr +++| 01025 M00S00955.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 01026 M00S00956.sxllr +++|*CALL COMBFAS 01027 M00S00957.sxllr +++|*CALL COMBCDD 01028 M00S00958.sxllr +++|*CALL COMBCHN 01029 M00S00959.sxllr +++|*CALL COMBFET 01030 M00S00960.sxllr +++|*CALL COMBLRQ
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01031 M01S00025.msea012 +++|*CALL COMXBST 01032 M00S00961.sxllr +++|*CALL COMXCCB 01033 M00S00962.sxllr +++|*CALL COMXCTF 01034 M00S00963.sxllr +++|*CALL COMXJCA 01035 M00S00964.sxllr +++|*CALL COMXMSC 01036 M00S00965.sxllr +++| 01037 M00S00966.sxllr +++| ITEM ENTADR U; # *CCB* ENTRY ADDRESS # 01038 M00S00967.sxllr +++| ITEM NEXTADDR U; # NEXT ENTRY ADDRESS # 01039 M00S00968.sxllr +++| ITEM TEMP U; # TEMPORARY STORAGE #
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01040 M01S00026.msea012 +++| ITEM RD$READY B; # READ BUFFER READY # 01041 M01S00027.msea012 +++| ITEM WRT$READY B; # WRITE BUFFER READY # 01042 M01S00028.msea012 +++| 01043 M01S00029.msea012 +++| 01044 M01S00030.msea012 +++| 01045 M01S00031.msea012 +++| ARRAY WRITEMG [0:0] S(2); 01046 M01S00032.msea012 +++| BEGIN 01047 M01S00033.msea012 +++| ITEM WRITEMSG C(00,00,12) = [" 1MS WRITE."]; 01048 M01S00034.msea012 +++| ITEM TERMA U(01,48,12) = [0]; # TERMINATOR # 01049 M01S00035.msea012 +++| END 01050 M01S00036.msea012 +++| 01051 M01S00037.msea012 +++| 01052 M01S00038.msea012 +++| ARRAY READMG [0:0] S(2) ; 01053 M01S00039.msea012 +++| BEGIN 01054 M01S00040.msea012 +++| ITEM READMSG C(00,00,12) = [" 1MS READ."]; 01055 M01S00041.msea012 +++| ITEM TERMB U(01,48,12) = [0]; # TERMINATOR # 01056 M01S00042.msea012 +++| END 01057 M01S00043.msea012 +++| 01058 M00S00969.sxllr +++| CONTROL EJECT; 01059 M00S00970.sxllr +++| 01060 M00S00971.sxllr +++| ENTADR = CHN$BOC[LCHN"KC$GOING"]; 01061 M00S00972.sxllr +++| REPEAT WHILE ENTADR NQ 0 01062 M00S00973.sxllr +++| DO 01063 M00S00974.sxllr +++| BEGIN # MONITOR ENTRIES ON KEEP COPY GOING CHAIN # 01064 M00S00975.sxllr +++| P<CCB> = ENTADR; 01065 M00S00976.sxllr +++| P<LLRQ> = CCBLLRQ[0]; 01066 M00S00977.sxllr +++| NEXTADDR = CCBLINK[0]; 01067 M00S00978.sxllr +++| P<FETSET> = CCBDKFET[0]; 01068 M00S00979.sxllr +++| P<FETFHB> = CCBM86FET[0]; 01069 M00S00980.sxllr +++| IF CCBOPCODE[0] EQ CPYC"DISKAU" 01070 M00S00981.sxllr +++| 01071 M00S00982.sxllr +++| THEN 01072 M00S00983.sxllr +++| BEGIN # COPY DISK TO M860 # 01073 M00S00984.sxllr +++| FHB$IN[0] = FET$IN[0]; 01074 M00S00985.sxllr +++| FET$OUT[0] = FHB$OUT[0]; 01075 M00S00986.sxllr +++| END 01076 M00S00987.sxllr +++| ELSE 01077 M00S00988.sxllr +++| BEGIN # COPY M860 TO DISK # 01078 M00S00989.sxllr +++| FET$IN[0] = FHB$IN[0]; 01079 M00S00990.sxllr +++| FHB$OUT[0] = FET$OUT[0]; 01080 M00S00991.sxllr +++| END 01081 M00S00992.sxllr +++| 01082 M00S00993.sxllr +++| IF FET$LOCK[0] ## 01083 M00S00994.sxllr +++| AND NOT (CCBDERR[0] OR CCBDFULL[0]) 01084 M00S00995.sxllr +++| THEN # IF MEDIA NOT EMPTY, NO DISK 01085 M00S00996.sxllr +++| ERRORS AND *CIO* NOT RUNNING # 01086 M00S00997.sxllr +++| BEGIN 01087 M00S00998.sxllr +++| IF FET$AT[0] NQ 0 01088 M00S00999.sxllr +++| THEN 01089 M00S01000.sxllr +++| BEGIN # SET DISK ERROR FLAG # 01090 M00S01001.sxllr +++| IF FET$AT[0] EQ 1 01091 M00S01002.sxllr +++| THEN 01092 M00S01003.sxllr +++| BEGIN # DISK FULL # 01093 M00S01004.sxllr +++| CCBDFULL[0] = TRUE; 01094 M00S01005.sxllr +++| END 01095 M00S01006.sxllr +++| 01096 M00S01007.sxllr +++| ELSE 01097 M00S01008.sxllr +++| BEGIN # DISK ERROR # 01098 M00S01009.sxllr +++| CCBDERR[0] = TRUE; 01099 M00S01010.sxllr +++| END 01100 M00S01011.sxllr +++| 01101 M00S01012.sxllr +++| END 01102 M00S01013.sxllr +++| 01103 M00S01014.sxllr +++| 01104 M00S01015.sxllr +++| ELSE 01105 M00S01016.sxllr +++| BEGIN # START COPY # 01106 M00S01017.sxllr +++| IF CCBOPCODE[0] EQ CPYC"DISKAU" 01107 M00S01018.sxllr +++| THEN 01108 M00S01019.sxllr +++| BEGIN # DISK INPUT # 01109 M00S01020.sxllr +++| IF FET$EOI[0] 01110 M00S01021.sxllr +++| THEN 01111 M00S01022.sxllr +++| BEGIN # WRITE *EOI* WORD # 01112 M00S01023.sxllr +++| RA$WORD[FET$IN[0]] = EOI$IWRD; 01113 M00S01024.sxllr +++| 01114 M00S01025.sxllr +++| IF FET$IN[0] EQ FET$LIM[0] - 1 01115 M00S01026.sxllr +++| THEN 01116 M00S01027.sxllr +++| BEGIN 01117 M00S01028.sxllr +++| FET$IN[0] = FET$FRST[0]; 01118 M00S01029.sxllr +++| END 01119 M00S01030.sxllr +++| 01120 M00S01031.sxllr +++| ELSE 01121 M00S01032.sxllr +++| BEGIN 01122 M00S01033.sxllr +++| FET$IN[0] = FET$IN[0] + 1; 01123 M00S01034.sxllr +++| END 01124 M00S01035.sxllr +++| 01125 M00S01036.sxllr +++| CCBDEOI[0] = TRUE; 01126 M00S01037.sxllr +++| END # END OF *EOI* WRITE #
| Line S01038 Modification History | |
|---|---|
M01 (Removed by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01127 M01S01038.msea012 ---| IF (FET$IN[0] NQ FET$OUT[0]) ##
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01128 M01S00044.msea012 +++| 01129 M01S00045.msea012 +++| RD$READY = ((FET$OUT[0] GR FET$IN[0]) ## 01130 M01S00046.msea012 +++| AND ((FET$OUT[0] - FET$IN[0]) GR BUFSTART)) ## 01131 M01S00047.msea012 +++| OR ((FET$OUT[0] LQ FET$IN[0]) ## 01132 M01S00048.msea012 +++| AND (((FET$OUT[0]-FET$FRST[0]) + (FET$LIM[0]-FET$IN[0])) 01133 M01S00049.msea012 +++| GR BUFSTART)); 01134 M01S00050.msea012 +++| 01135 M01S00051.msea012 +++| IF RD$READY ## 01136 M00S01039.sxllr +++| AND (CCBRWCT[0] EQ 0) ## 01137 M00S01040.sxllr +++| AND (NOT CCBDEOI[0]) 01138 M00S01041.sxllr +++| THEN 01139 M00S01042.sxllr +++| BEGIN 01140 M00S01043.sxllr +++| READCW(FETSET[0],0,NRCL);
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01141 M01S00052.msea012 +++| 01142 M01S00053.msea012 +++| IF RA$SW2 01143 M01S00054.msea012 +++| THEN 01144 M01S00055.msea012 +++| BEGIN 01145 M01S00056.msea012 +++| MESSAGE(READMSG,UDFL1); 01146 M01S00057.msea012 +++| END 01147 M01S00058.msea012 +++| 01148 M00S01044.sxllr +++| END 01149 M00S01045.sxllr +++| 01150 M00S01046.sxllr +++| END # END OF DISK INPUT # 01151 M00S01047.sxllr +++| 01152 M00S01048.sxllr +++| ELSE 01153 M00S01049.sxllr +++| BEGIN # WRITE DISK #
| Line S01050 Modification History | |
|---|---|
M01 (Removed by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01154 M01S01050.msea012 ---| IF FET$IN[0] NQ FET$OUT[0] ##
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01155 M01S00059.msea012 +++| WRT$READY = ((FET$IN[0] GR FET$OUT[0]) ## 01156 M01S00060.msea012 +++| AND ((FET$IN[0] - FET$OUT[0]) GR BUFSTART)) 01157 M01S00061.msea012 +++| OR ((FET$IN[0] LQ FET$OUT[0]) ## 01158 M01S00062.msea012 +++| AND ((FET$LIM[0] - FET$OUT[0]) ## 01159 M01S00063.msea012 +++| + (FET$IN[0] - FET$FRST[0]) GR BUFSTART)); 01160 M01S00064.msea012 +++| 01161 M01S00065.msea012 +++| IF (WRT$READY OR CCBRWDULD[0] OR (CCBRWCT[0] NQ 0)) ## 01162 M01S00066.msea012 +++| AND (NOT FET$IN[0] EQ FET$OUT[0]) 01163 M01S00067.msea012 +++| 01164 M01S00068.msea012 +++| 01165 M00S01051.sxllr +++| THEN 01166 M00S01052.sxllr +++| BEGIN 01167 M00S01053.sxllr +++| WRITECW(FETSET[0],NRCL);
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | msea012 |
Seq # *Modification Id* Act ----------------------------+ 01168 M01S00069.msea012 +++| 01169 M01S00070.msea012 +++| IF RA$SW2 01170 M01S00071.msea012 +++| THEN 01171 M01S00072.msea012 +++| BEGIN 01172 M01S00073.msea012 +++| MESSAGE(WRITEMSG,UDFL1); 01173 M01S00074.msea012 +++| END 01174 M01S00075.msea012 +++| 01175 M00S01054.sxllr +++| END 01176 M00S01055.sxllr +++| END # END OF WRITE DISK # 01177 M00S01056.sxllr +++| END # END OF COPY # 01178 M00S01057.sxllr +++| 01179 M00S01058.sxllr +++| IF CCBDERR[0] OR CCBDFULL[0] 01180 M00S01059.sxllr +++| THEN # STOP *1SS* # 01181 M00S01060.sxllr +++| BEGIN 01182 M00S01061.sxllr +++| FHB$ST$SS[0] = TRUE; 01183 M00S01062.sxllr +++| END 01184 M00S01063.sxllr +++| 01185 M00S01064.sxllr +++| END 01186 M00S01065.sxllr +++| 01187 M00S01066.sxllr +++| IF FHB$LOCK[0] AND NOT CCBRWDULD[0] 01188 M00S01067.sxllr +++| THEN # IF *1SS* RUNNING # 01189 M00S01068.sxllr +++| BEGIN 01190 M00S01069.sxllr +++| K8G(ENTADR); # M860 SIDE OF COPY # 01191 M00S01070.sxllr +++| P<CCB> = ENTADR; 01192 M00S01071.sxllr +++| P<FETFHB> = CCBM86FET[0]; 01193 M00S01072.sxllr +++| END 01194 M00S01073.sxllr +++| 01195 M00S01074.sxllr +++|# 01196 M00S01075.sxllr +++|* IF THE INPUT COULD NOT BE RESTARTED (BECAUSE THE BUFFER WAS 01197 M00S01076.sxllr +++|* FULL OR THE INPUT MEDIA WAS EMPTY OR THERE WAS AN UNRECOVERABLE 01198 M00S01077.sxllr +++|* READ ERROR), AND THE OUTPUT COULD NOT BE RESTARTED (BECAUSE THE 01199 M00S01078.sxllr +++|* BUFFER WAS EMPTY OR THE OUTPUT MEDIA WAS FULL OR THERE WAS AN 01200 M00S01079.sxllr +++|* UNRECOVERABLE WRITE ERROR), THEN THE COPY OPERATION IS COMPLETE. 01201 M00S01080.sxllr +++|# 01202 M00S01081.sxllr +++| 01203 M00S01082.sxllr +++| 01204 M00S01083.sxllr +++| IF FET$LOCK[0] ## 01205 M00S01084.sxllr +++| AND ((CCBOPCODE[0] EQ CPYC"DISKAU" AND CCBRWDULD[0]) ## 01206 M00S01085.sxllr +++| OR (CCBOPCODE[0] EQ CPYC"AUDISK" AND CCBRWDULD[0] ## 01207 M00S01086.sxllr +++| AND FET$IN[0] EQ FHB$IN[0] AND FET$IN[0] EQ FET$OUT[0]) ## 01208 M00S01087.sxllr +++| OR (CCBRWDULD[0] AND (CCBDERR[0] OR CCBDFULL[0]))) 01209 M00S01088.sxllr +++| THEN # INDICATE COPY COMPLETE # 01210 M00S01089.sxllr +++| BEGIN 01211 M00S01090.sxllr +++| DEL$LNK(ENTADR,LCHN"KC$GOING",0); 01212 M00S01091.sxllr +++| LLR$CCF[0] = TRUE; 01213 M00S01092.sxllr +++| LLR$RS[0] = PROCST"CONT3"; 01214 M00S01093.sxllr +++| DRVRRECALL = TRUE; # INSURE DRIVER ACTIVE # 01215 M00S01094.sxllr +++| ADD$LNK(CCBLLRQ[0],LCHN"DRQUEUE",0); 01216 M00S01095.sxllr +++| IF CCBHDWPM 01217 M00S01096.sxllr +++| THEN 01218 M00S01097.sxllr +++| BEGIN # DELINK 1SS, NO REWIND/UNLOAD MESSAGE # 01219 M00S01098.sxllr +++| LLR$DRFUL[0] = TRUE; # FORCE UNLOAD OF CARTRIDGE # 01220 M00S01099.sxllr +++| END # RETURN OF COPY # 01221 M00S01100.sxllr +++| END 01222 M00S01101.sxllr +++| 01223 M00S01102.sxllr +++| ENTADR = NEXTADDR; 01224 M00S01103.sxllr +++| END # MONITOR ENTRIES ON KEEP COPY GOING CHAIN # 01225 M00S01104.sxllr +++| 01226 M00S01105.sxllr +++| RETURN; 01227 M00S01106.sxllr +++| END # KCG # 01228 M00S01107.sxllr +++| 01229 M00S01108.sxllr +++| TERM 01230 M00S01109.sxllr +++|PROC K8G((CCBADR)); 01231 M00S01110.sxllr +++|# TITLE K8G - KEEP M860 COPY GOING. # 01232 M00S01111.sxllr +++| 01233 M00S01112.sxllr +++| BEGIN # K8G # 01234 M00S01113.sxllr +++| 01235 M00S01114.sxllr +++|# 01236 M00S01115.sxllr +++|** K8G - KEEP M860 COPY GOING. 01237 M00S01116.sxllr +++|* 01238 M00S01117.sxllr +++|* *K8G* KEEPS THE M860 COPY SIDE OF A VOLUME OPERATION GOING. 01239 M00S01118.sxllr +++|* FLAGS IN THE *CCB* ARE UPDATED TO INDICATE THE STATE OF THE COPY 01240 M00S01119.sxllr +++|* OPERATION AND A *1SS* CALL IS ISSUED IF NECESSARY. 01241 M00S01120.sxllr +++|* 01242 M00S01121.sxllr +++|* PROC K8G((CCBADR)) 01243 M00S01122.sxllr +++|* 01244 M00S01123.sxllr +++|* ENTRY (CCBADR) - ADDRESS OF THE COPY CONTROL BLOCK. 01245 M00S01124.sxllr +++|# 01246 M00S01125.sxllr +++| 01247 M00S01126.sxllr +++| ITEM CCBADR U; # COPY CONTROL BLOCK ADDRESS # 01248 M00S01127.sxllr +++| 01249 M00S01128.sxllr +++|# 01250 M00S01129.sxllr +++|**** PROC K8G - XREF LIST BEGIN. 01251 M00S01130.sxllr +++|# 01252 M00S01131.sxllr +++| 01253 M00S01132.sxllr +++| XREF 01254 M00S01133.sxllr +++| BEGIN 01255 M00S01134.sxllr +++| PROC ABORT; # ABORT # 01256 M00S01135.sxllr +++| PROC FSCLOG; # LOG FSC ERROR MESSAGE # 01257 M00S01136.sxllr +++| PROC MESSAGE; # ISSUE MESSAGE # 01258 M00S01137.sxllr +++| END 01259 M00S01138.sxllr +++| 01260 M00S01139.sxllr +++|# 01261 M00S01140.sxllr +++|**** PROC K8G - XREF LIST END. 01262 M00S01141.sxllr +++|# 01263 M00S01142.sxllr +++| 01264 M00S01143.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 01265 M00S01144.sxllr +++|*CALL COMBFAS 01266 M00S01145.sxllr +++|*CALL COMBCDD 01267 M00S01146.sxllr +++|*CALL COMBCHN 01268 M00S01147.sxllr +++|*CALL COMBFET 01269 M00S01148.sxllr +++|*CALL COMBRCD 01270 M00S01149.sxllr +++|*CALL COMXCCB 01271 M00S01150.sxllr +++|*CALL COMXCTF 01272 M00S01151.sxllr +++|*CALL COMXMSC 01273 M00S01152.sxllr +++| CONTROL EJECT; 01274 M00S01153.sxllr +++| 01275 M00S01154.sxllr +++|# 01276 M00S01155.sxllr +++|* SET FLAGS TO INDICATE WHY *1SS* HAS STOPPED. 01277 M00S01156.sxllr +++|# 01278 M00S01157.sxllr +++| 01279 M00S01158.sxllr +++| P<CCB> = CCBADR; 01280 M00S01159.sxllr +++| P<FETFHB> = CCBM86FET[0]; 01281 M00S01160.sxllr +++| IF CCBRWCT[0] NQ 0 01282 M00S01161.sxllr +++| THEN # FIRST REWIND/UNLOAD EXECUTED # 01283 M00S01162.sxllr +++| BEGIN 01284 M00S01163.sxllr +++| IF FHB$AT[0] EQ 0 01285 M00S01164.sxllr +++| THEN 01286 M00S01165.sxllr +++| BEGIN # REWIND/UNLOAD COMPLETED # 01287 M00S01166.sxllr +++| CCBRWDULD[0] = TRUE; 01288 M00S01167.sxllr +++| RETURN; 01289 M00S01168.sxllr +++| END 01290 M00S01169.sxllr +++| ELSE 01291 M00S01170.sxllr +++| BEGIN # SET FOR ANOTHER TRY # 01292 M00S01171.sxllr +++| IF CCBRWCT[0] LQ 5 01293 M00S01172.sxllr +++| THEN 01294 M00S01173.sxllr +++| BEGIN # TRY AN OTHER REWIND/UNLOAD # 01295 M00S01174.sxllr +++| GOTO RWDAUND; 01296 M00S01175.sxllr +++| END 01297 M00S01176.sxllr +++| ELSE 01298 M00S01177.sxllr +++| BEGIN # HARDWARE PROBLEM - REWIND/UNLOAD # 01299 M00S01178.sxllr +++| CCBHDWPM[0] = TRUE; 01300 M00S01179.sxllr +++| CCBRWDULD[0] = TRUE; # FORCE COMPLETE # 01301 M00S01180.sxllr +++| RETURN; 01302 M00S01181.sxllr +++| END 01303 M00S01182.sxllr +++| END # END OF REWIND/UNLOAD SET UP # 01304 M00S01183.sxllr +++| END # IF REWIND/UNLOAD COMPLETED # 01305 M00S01184.sxllr +++| IF FHB$EOI[0] 01306 M00S01185.sxllr +++| THEN 01307 M00S01186.sxllr +++| BEGIN # SET TAPE MARK # 01308 M00S01187.sxllr +++| CCBTPMARK[0] = TRUE; 01309 M00S01188.sxllr +++| END 01310 M00S01189.sxllr +++| 01311 M00S01190.sxllr +++| IF FHB$AT[0] EQ RCENDV # # 01312 M00S01191.sxllr +++| OR FHB$AT[0] EQ RCTBRT 01313 M00S01192.sxllr +++| THEN # *TAPE MARK* OR *END OF VOLUME* # 01314 M00S01193.sxllr +++| BEGIN 01315 M00S01194.sxllr +++| CCBENDVOL[0] = TRUE; 01316 M00S01195.sxllr +++| GOTO RWDAUND; 01317 M00S01196.sxllr +++| END 01318 M00S01197.sxllr +++| 01319 M00S01198.sxllr +++| IF FHB$AT[0] EQ 0 01320 M00S01199.sxllr +++| THEN 01321 M00S01200.sxllr +++| BEGIN # NO ERROR # 01322 M00S01201.sxllr +++| GOTO RWDAUND; 01323 M00S01202.sxllr +++| END 01324 M00S01203.sxllr +++| 01325 M00S01204.sxllr +++| IF FHB$AT[0] EQ RCTERF 01326 M00S01205.sxllr +++| THEN 01327 M00S01206.sxllr +++| BEGIN 01328 M00S01207.sxllr +++| FHB$ST$SS[0] = FALSE; 01329 M00S01208.sxllr +++| GOTO RWDAUND; 01330 M00S01209.sxllr +++| END 01331 M00S01210.sxllr +++| 01332 M00S01211.sxllr +++| IF FHB$AT[0] EQ RCBFTO 01333 M00S01212.sxllr +++| THEN 01334 M00S01213.sxllr +++| BEGIN 01335 M00S01214.sxllr +++| CCBHDWPM[0] = TRUE; 01336 M00S01215.sxllr +++| GOTO BMLRWUL; 01337 M00S01216.sxllr +++| END 01338 M00S01217.sxllr +++| 01339 M00S01218.sxllr +++| IF FHB$AT[0] EQ RCSTER # # 01340 M00S01219.sxllr +++| AND FHB$ERRCD[0] EQ 0 # # 01341 M00S01220.sxllr +++| AND FHB$PYERR[0] EQ 1 01342 M00S01221.sxllr +++| THEN 01343 M00S01222.sxllr +++| BEGIN # TAPE PARITY ERROR # 01344 M00S01223.sxllr +++| CCBTAPPAR[0] = TRUE; 01345 M00S01224.sxllr +++| GOTO BMLRWUL; 01346 M00S01225.sxllr +++| END 01347 M00S01226.sxllr +++| 01348 M00S01227.sxllr +++| 01349 M00S01228.sxllr +++| IF FHB$AT[0] EQ RCILLF
| Line S01229 Modification History | |
|---|---|
M01 (Removed by) | mse1 |
Seq # *Modification Id* Act ----------------------------+ 01350 M01S01229.mse1 ---| OR FHB$AT[0] EQ RCDLER 01351 M01S01230.mse1 ---| OR FHB$AT[0] EQ RCCWER 01352 M00S01231.sxllr +++| OR FHB$AT[0] EQ RCBARG 01353 M00S01232.sxllr +++| OR FHB$AT[0] EQ RCILLU 01354 M00S01233.sxllr +++| THEN # ABORT ON ERRORS # 01355 M00S01234.sxllr +++| BEGIN 01356 M00S01235.sxllr +++| FE$RTN[0] = "K8G."; 01357 M00S01236.sxllr +++| MESSAGE(FEMSG,UDFL1); 01358 M00S01237.sxllr +++| ABORT; 01359 M00S01238.sxllr +++| END 01360 M00S01239.sxllr +++|
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 01361 M01S00046.sxllr2 +++| IF (FHB$AT[0] EQ RCDLER) 01362 M01S00047.sxllr2 +++| OR (FHB$AT[0] EQ RCCWER) 01363 M01S00048.sxllr2 +++| OR (FHB$AT[0] EQ RCHDER) 01364 M01S00049.sxllr2 +++| THEN 01365 M01S00050.sxllr2 +++| BEGIN # PPU FOUND DATA TRANSFER ERROR # 01366 M01S00051.sxllr2 +++| CCPPUDCK[0] = TRUE; 01367 M01S00052.sxllr2 +++| GOTO BMLRWUL; 01368 M01S00053.sxllr2 +++| END 01369 M01S00054.sxllr2 +++| 01370 M00S01240.sxllr +++| FSCLOG(DFET); # ERROR LOG MESSAGE # 01371 M00S01241.sxllr +++| 01372 M00S01242.sxllr +++| CCBHDWPM[0] = TRUE; # REMAINING ERRORS # 01373 M00S01243.sxllr +++| CCBRWDULD[0] = TRUE; 01374 M00S01244.sxllr +++| RETURN; 01375 M00S01245.sxllr +++| 01376 M00S01246.sxllr +++| 01377 M00S01247.sxllr +++|# 01378 M00S01248.sxllr +++|* SEND A *BML* MESSAGE BEFORE REWIND/UNLOAD. 01379 M00S01249.sxllr +++|# 01380 M00S01250.sxllr +++| 01381 M00S01251.sxllr +++|BMLRWUL: 01382 M00S01252.sxllr +++| 01383 M00S01253.sxllr +++| FSCLOG(DFET); # ERROR LOG MESSAGE # 01384 M00S01254.sxllr +++| 01385 M00S01255.sxllr +++|# 01386 M00S01256.sxllr +++|* RELEASE THE HARDWARE WITH A REWIND/UNLOAD FUNCTION. 01387 M00S01257.sxllr +++|# 01388 M00S01258.sxllr +++| 01389 M00S01259.sxllr +++|RWDAUND: 01390 M00S01260.sxllr +++| 01391 M00S01261.sxllr +++| DRVRRECALL = TRUE; # INSURE CPUDRIVER ACTIVE # 01392 M00S01262.sxllr +++| FHB$CODE[0] = FCRUN; # SET REWIND/UNLOAD # 01393 M00S01263.sxllr +++| CCBRWCT[0] = CCBRWCT[0] + 1; 01394 M00S01264.sxllr +++| 01395 M00S01265.sxllr +++| RETURN; 01396 M00S01266.sxllr +++| END # KDG # 01397 M00S01267.sxllr +++| 01398 M00S01268.sxllr +++| TERM 01399 M00S01269.sxllr +++|PROC LD$CAR((LLRADR)); 01400 M00S01270.sxllr +++|# TITLE LD$CAR - LOAD CARTRIDGE. # 01401 M00S01271.sxllr +++| 01402 M00S01272.sxllr +++| BEGIN # LD$CAR # 01403 M00S01273.sxllr +++| 01404 M00S01274.sxllr +++|# 01405 M00S01275.sxllr +++|** LD$CAR - LOAD CARTRIDGE. 01406 M00S01276.sxllr +++|* 01407 M00S01277.sxllr +++|* LOAD CARTRIDGE GETS THE SPECIFIED CARTRIDGE LOADED ON A 01408 M00S01278.sxllr +++|* DRD AND THE LABEL VERIFIED BY *SSDRIVER*. 01409 M00S01279.sxllr +++|* 01410 M00S01280.sxllr +++|* PROC LD$CAR((LLRADR)) 01411 M00S01281.sxllr +++|* 01412 M00S01282.sxllr +++|* ENTRY (LLRADR) - ADDRESS OF *LLRQ* ENTRY FOR THE REQUEST 01413 M00S01283.sxllr +++|* CONTAINING THE SMA-ID AND THE YZ 01414 M00S01284.sxllr +++|* COORDINATES. 01415 M00S01285.sxllr +++|* 01416 M00S01286.sxllr +++|* EXIT THE PROCESS STATE FIELD IN THE *LLRQ* ENTRY HAS BEEN 01417 M00S01287.sxllr +++|* ADVANCED TO INDICATE WHERE PROCESSING OF THIS REQUEST 01418 M00S01288.sxllr +++|* LEFT OFF, AND THUS WHAT TO DO NEXT TO ADVANCE THE 01419 M00S01289.sxllr +++|* REQUEST. IF THE MOUNT IS COMPLETE AN ERROR RESPONSE 01420 M00S01290.sxllr +++|* CODE IS RETURNED VIA *HLR$RESP[0]* FOR INTERNAL 01421 M00S01291.sxllr +++|* REQUESTOR OR *LTC$RQR[LTCENTRY]* FOR EXTERNAL 01422 M00S01292.sxllr +++|* REQUESTORS. 01423 M00S01293.sxllr +++|* ERROR RESPONSE CODES (VALUES DEFINED IN *COMBCPR*). 01424 M00S01294.sxllr +++|* = RESPTYP4"OK4". 01425 M00S01295.sxllr +++|* = RESPTYP4"NO$CART". 01426 M00S01296.sxllr +++|* = RESPTYP4"M86$HDW$PR". 01427 M00S01297.sxllr +++|* 01428 M00S01298.sxllr +++|* NOTES THIS MODULE IS A PSEUDO REENTRANT ROUTINE. 01429 M00S01299.sxllr +++|* 01430 M00S01300.sxllr +++|# 01431 M00S01301.sxllr +++| 01432 M00S01302.sxllr +++| ITEM DRDCOUNT I; # *DRD-S* ACTIVE # 01433 M00S01303.sxllr +++| ITEM LLRADR U; # *LLRQ* ENTRY ADDRESS # 01434 M00S01304.sxllr +++| ITEM I U; # COUNTER # 01435 M00S01305.sxllr +++| ITEM MUCPRA U; # *UCP* OR *HLRQ* ADDRESS # 01436 M00S01306.sxllr +++| ITEM RQIID B; # INTERIAL REQUEST # 01437 M00S01307.sxllr +++| ITEM SMAO U; # REQUEST SM-ID # 01438 M00S01308.sxllr +++| ITEM YZO U; # Y AND Z COORDINATE # 01439 M00S01309.sxllr +++| 01440 M00S01310.sxllr +++|# 01441 M00S01311.sxllr +++|**** PROC LD$CAR - XREF LIST BEGIN. 01442 M00S01312.sxllr +++|# 01443 M00S01313.sxllr +++| 01444 M00S01314.sxllr +++| XREF 01445 M00S01315.sxllr +++| BEGIN 01446 M00S01316.sxllr +++| PROC ABORT; # INTERFACE TO *ABORT* MACRO # 01447 M00S01317.sxllr +++| PROC ADD$LNK; # ADD ENTRY TO END OF CHAIN # 01448 M00S01318.sxllr +++| PROC DELAY; # TIMED DELAY # 01449 M00S01319.sxllr +++| PROC KILL$UC; # ABORT A UCP # 01450 M00S01320.sxllr +++| PROC MESSAGE; # INTERFACE TO *MESSAGE* MACRO # 01451 M00S01321.sxllr +++| PROC SFCALL; # INTERFACE TO *SFCALL* MACRO # 01452 M00S01322.sxllr +++| PROC UCP$RES; # SEND RESPONSE TO UCP # 01453 M00S01323.sxllr +++| END 01454 M00S01324.sxllr +++| 01455 M00S01325.sxllr +++|# 01456 M00S01326.sxllr +++|**** PROC LD$CAR - XREF LIST END. 01457 M00S01327.sxllr +++|# 01458 M00S01328.sxllr +++| 01459 M00S01329.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 01460 M00S01330.sxllr +++|*CALL COMBFAS 01461 M00S01331.sxllr +++|*CALL COMBCHN 01462 M00S01332.sxllr +++|*CALL COMBCPR 01463 M00S01333.sxllr +++|*CALL COMBLRQ 01464 M00S01334.sxllr +++|*CALL COMBLBL 01465 M00S01335.sxllr +++|*CALL COMBMAT 01466 M00S01336.sxllr +++|*CALL COMBRCD 01467 M00S01337.sxllr +++|*CALL COMBUCR 01468 M00S01338.sxllr +++|*CALL COMXHLR 01469 M00S01339.sxllr +++|*CALL COMXCTF 01470 M00S01340.sxllr +++|*CALL COMBUDT 01471 M00S01341.sxllr +++|*CALL COMXIPR 01472 M00S01342.sxllr +++|*CALL COMXLTC 01473 M00S01343.sxllr +++|*CALL COMXMSC 01474 M00S01344.sxllr +++| 01475 M00S01345.sxllr +++| DEF SKELLAB #" E CSN=CCCCCCCC, SM=A, SF=X, FFFFFFF. "#; 01476 M00S01346.sxllr +++| 01477 M00S01347.sxllr +++| ARRAY MSGS [0:0] S(4); 01478 M00S01348.sxllr +++| BEGIN 01479 M00S01349.sxllr +++| ITEM MSGS$SKEL C(00,00,36); # TEXT # 01480 M00S01350.sxllr +++| ITEM MSGS$TYPE C(00,06,01); # TYPE # 01481 M00S01351.sxllr +++| ITEM MSGS$CSN C(00,42,08); # CCCCCCCC # 01482 M00S01352.sxllr +++| ITEM MSGS$SM C(02,00,01); # A # 01483 M00S01353.sxllr +++| ITEM MSGS$SF C(02,36,01); # SUB FAMILY # 01484 M00S01354.sxllr +++| ITEM MSGS$FAM C(02,54,07); # FAMILY # 01485 M00S01355.sxllr +++| ITEM MSGS$FI U(03,36,24); # ZERO FILL # 01486 M00S01356.sxllr +++| END 01487 M00S01357.sxllr +++| 01488 M00S01358.sxllr +++| BASED 01489 M00S01359.sxllr +++| ARRAY CLEAR [0:0] S(1); 01490 M00S01360.sxllr +++| BEGIN 01491 M00S01361.sxllr +++| ITEM CLN U(00,36,24); # CLEAR DRD ASSIGNMENT # 01492 M00S01362.sxllr +++| END 01493 M00S01363.sxllr +++| 01494 M00S01364.sxllr +++| SWITCH LDENTR:PROCST # LOAD CARTRIDGE ENTRIES # 01495 M00S01365.sxllr +++| LDINIT:INITIAL, # INITIAL ENTRY INTO PROCESS # 01496 M00S01366.sxllr +++| LDCONT:CONT1, # CONTINUE PROCESS # 01497 M00S01367.sxllr +++| LDWAIT1:CONT2; # AFTER A SWAPIN DELAY # 01498 M00S01368.sxllr +++| 01499 M00S01369.sxllr +++| CONTROL EJECT; 01500 M00S01370.sxllr +++| 01501 M00S01371.sxllr +++| P<LLRQ> = LLRADR; 01502 M00S01372.sxllr +++| GOTO LDENTR[LLR$PRCST[0]]; 01503 M00S01373.sxllr +++| 01504 M00S01374.sxllr +++|# 01505 M00S01375.sxllr +++|* "INITIAL" PROCESS STATE. 01506 M00S01376.sxllr +++|# 01507 M00S01377.sxllr +++| 01508 M00S01378.sxllr +++|LDINIT: # INITIAL ENTRY # 01509 M00S01379.sxllr +++|# 01510 M00S01380.sxllr +++|* SEARCH THE *LLRQ* FOR AN MATCHING *CSN*. IF AN INTERNAL 01511 M00S01381.sxllr +++|* REQUEST, LINK THE NEW REQUEST AT THE END OF THE DUPLICATE 01512 M00S01382.sxllr +++|* *CSN* REQUEST. IF THE REQUEST IS FROM A *UCP* RETURN AN 01513 M00S01383.sxllr +++|* *CSN$IN$USE* RESPONSE. 01514 M00S01384.sxllr +++|# 01515 M00S01385.sxllr +++| 01516 M00S01386.sxllr +++| 01517 M00S01387.sxllr +++| SMAO = LLR$SMA[0]; 01518 M00S01388.sxllr +++| YZO = LLR$YZ[0]; 01519 M00S01389.sxllr +++| RQIID = LLR$RQI[0] EQ REQNAME"RQIINT"; 01520 M00S01390.sxllr +++| P<LLRQ> = MAT$FWA[MAT$ENTRY"LLRQ"]; 01521 M00S01391.sxllr +++| SLOWFOR I=0 STEP LLRQENTL WHILE I LS MAT$SPACE[MAT$ENTRY"LLRQ"] 01522 M00S01392.sxllr +++| DO 01523 M00S01393.sxllr +++| BEGIN # CHECK IF CALL FROM *UCP* # 01524 M00S01394.sxllr +++| IF SMAO EQ LLR$SMA[0] ## 01525 M00S01395.sxllr +++| AND YZO EQ LLR$YZ[0] ## 01526 M00S01396.sxllr +++| AND (LLR$DRDL[0] OR LLR$UNLD[0]) 01527 M00S01397.sxllr +++| THEN 01528 M00S01398.sxllr +++| BEGIN # CHECK FOR *UCP* OR *INTERNAL* CALL # 01529 M00S01399.sxllr +++| 01530 M00S01400.sxllr +++| IF LLR$UNLD[0] 01531 M00S01401.sxllr +++| THEN # DUPLICATE CARTRIDGE IN UNLOAD STATE # 01532 M00S01402.sxllr +++| BEGIN 01533 M00S01403.sxllr +++| P<LLRQ> = LLRADR; 01534 M00S01404.sxllr +++| DELAY(UCP$INTV,LLRADR,LLRQIND); 01535 M00S01405.sxllr +++| RETURN; 01536 M00S01406.sxllr +++| END 01537 M00S01407.sxllr +++| 01538 M00S01408.sxllr +++| IF NOT RQIID 01539 M00S01409.sxllr +++| THEN 01540 M00S01410.sxllr +++| BEGIN # *UCP* DUPLICATE CARTRIDGE REQUEST # 01541 M00S01411.sxllr +++| P<LLRQ> = LLRADR; 01542 M00S01412.sxllr +++| LTCENTRY = LLR$LTCT[0]; 01543 M00S01413.sxllr +++| LTC$RQR[LTCENTRY] = RESPTYP4"CSN$IN$USE"; 01544 M00S01414.sxllr +++| UCP$RES; 01545 M00S01415.sxllr +++| END # END *UCP* DUPLICATE CARTRIDGE # 01546 M00S01416.sxllr +++| ELSE 01547 M00S01417.sxllr +++| BEGIN # *INTERNAL* DUPLICATE CARTRIDGE REQUEST # 01548 M00S01418.sxllr +++| P<LLRQ> = LLRADR; 01549 M00S01419.sxllr +++| P<HLRQ> = LLR$UCPRA[0]; 01550 M00S01420.sxllr +++| HLR$RESP[0] = RESPTYP4"CSN$IN$USE"; 01551 M00S01421.sxllr +++| P<CLEAR> = HLR$DRDRA[0]; 01552 M00S01422.sxllr +++| CLN = 0; 01553 M00S01423.sxllr +++| HLR$DRDRA[0] = 0; 01554 M00S01424.sxllr +++| HLR$LRQADR[0] = 0; 01555 M00S01425.sxllr +++| ADD$LNK(LLR$UCPRA[0],LCHN"HL$READY",0); 01556 M00S01426.sxllr +++| END 01557 M00S01427.sxllr +++| 01558 M00S01428.sxllr +++| LLR$PRCST[0] = PROCST"COMPLETE"; 01559 M00S01429.sxllr +++| RETURN; 01560 M00S01430.sxllr +++| END # END OF *DUPLICATE* CARTRIDGE FOUND # 01561 M00S01431.sxllr +++| 01562 M00S01432.sxllr +++| P<LLRQ> = P<LLRQ> + LLRQENTL; 01563 M00S01433.sxllr +++| END # END OF DUPLICATE CARTRIDGE SEARCH # 01564 M00S01434.sxllr +++| P<LLRQ> = LLRADR; 01565 M00S01435.sxllr +++| 01566 M00S01436.sxllr +++| IF NOT RQIID 01567 M00S01437.sxllr +++| THEN # ASSIGN *DRD* TO EXTERNAL REQUEST # 01568 M00S01438.sxllr +++| BEGIN 01569 M00S01439.sxllr +++| SLOWFOR I=1 STEP 1 UNTIL MAXSMUNIT 01570 M00S01440.sxllr +++| DO 01571 M00S01441.sxllr +++| BEGIN # UNTIL *SM* FOUND # 01572 M00S01442.sxllr +++| IF SMAO EQ SM$ID[I] 01573 M00S01443.sxllr +++| THEN 01574 M00S01444.sxllr +++| BEGIN # *SM* FOUND # 01575 M00S01445.sxllr +++| GOTO SMFOUND; 01576 M00S01446.sxllr +++| END 01577 M00S01447.sxllr +++| END 01578 M00S01448.sxllr +++| 01579 M00S01449.sxllr +++|SMFOUND: 01580 M00S01450.sxllr +++| DRDCOUNT = 0; 01581 M00S01451.sxllr +++| IF D0$ON[I] 01582 M00S01452.sxllr +++| THEN 01583 M00S01453.sxllr +++| BEGIN 01584 M00S01454.sxllr +++| DRDCOUNT = 1; 01585 M00S01455.sxllr +++| END 01586 M00S01456.sxllr +++| 01587 M00S01457.sxllr +++| IF D1$ON[I] 01588 M00S01458.sxllr +++| THEN 01589 M00S01459.sxllr +++| BEGIN 01590 M00S01460.sxllr +++| DRDCOUNT = DRDCOUNT + 1; 01591 M00S01461.sxllr +++| END 01592 M00S01462.sxllr +++| 01593 M00S01463.sxllr +++| IF SM$REQRES1[I] NQ 0 ## 01594 M00S01464.sxllr +++| AND SM$REQRES2[I] NQ 0 01595 M00S01465.sxllr +++| THEN # NO *DRD-S* AVAILABLE # 01596 M00S01466.sxllr +++| BEGIN 01597 M00S01467.sxllr +++| DELAY(UCP$INTV,LLRADR,LLRQIND); 01598 M00S01468.sxllr +++| RETURN; 01599 M00S01469.sxllr +++| END 01600 M00S01470.sxllr +++| 01601 M00S01471.sxllr +++| IF DRDCOUNT EQ 1 01602 M00S01472.sxllr +++| THEN # ONLY ONE *DRD* ACTIVE # 01603 M00S01473.sxllr +++| BEGIN 01604 M00S01474.sxllr +++| IF (SM$REQRES1[I] NQ 0) ## 01605 M00S01475.sxllr +++| OR (SM$REQRES2[I] NQ 0) 01606 M00S01476.sxllr +++| THEN # NO *DRD* AVAILABLE # 01607 M00S01477.sxllr +++| BEGIN 01608 M00S01478.sxllr +++| DELAY(UCP$INTV,LLRADR,LLRQIND); 01609 M00S01479.sxllr +++| RETURN; 01610 M00S01480.sxllr +++| END 01611 M00S01481.sxllr +++| 01612 M00S01482.sxllr +++| END # *DRD* = 1 # 01613 M00S01483.sxllr +++| 01614 M00S01484.sxllr +++| IF SM$REQRES1[I] EQ 0 01615 M00S01485.sxllr +++| THEN # RESERVE A *DRD* # 01616 M00S01486.sxllr +++| BEGIN 01617 M00S01487.sxllr +++| SM$REQRES1[I] = LLRADR; 01618 M00S01488.sxllr +++| SM$LLRQ1[I] = TRUE; 01619 M00S01489.sxllr +++| LLR$DRDRA[0] = LOC(SM$REQRES1[I]); 01620 M00S01490.sxllr +++| END 01621 M00S01491.sxllr +++| 01622 M00S01492.sxllr +++| ELSE 01623 M00S01493.sxllr +++| BEGIN 01624 M00S01494.sxllr +++| SM$REQRES2[I] = LLRADR; 01625 M00S01495.sxllr +++| SM$LLRQ2[I] = TRUE; 01626 M00S01496.sxllr +++| LLR$DRDRA[0] = LOC(SM$REQRES2[I]); 01627 M00S01497.sxllr +++| END 01628 M00S01498.sxllr +++| 01629 M00S01499.sxllr +++| END # EXTERNAL *DRD*ASSIGNMENT # 01630 M00S01500.sxllr +++| LLR$RC[0] = REQCODE"SMOUNT"; # ISSUE MOUNT REQUEST TO DRIVER # 01631 M00S01501.sxllr +++| LLR$DRDL[0] = TRUE; 01632 M00S01502.sxllr +++| ADD$LNK(LLRADR,LCHN"DRQUEUE",0); 01633 M00S01503.sxllr +++| LLR$PRCST[0] = PROCST"CONT1"; 01634 M00S01504.sxllr +++| RETURN; 01635 M00S01505.sxllr +++| 01636 M00S01506.sxllr +++|# 01637 M00S01507.sxllr +++|* "CONT1" PROCESS STATE. 01638 M00S01508.sxllr +++|* 01639 M00S01509.sxllr +++|* RETURN RESPONSE FROM *SSDRVR* TO THE REQUESTOR. 01640 M00S01510.sxllr +++|# 01641 M00S01511.sxllr +++| 01642 M00S01512.sxllr +++|LDCONT: # CONTINUE PROCESSING # 01643 M00S01513.sxllr +++| LTCENTRY = LLR$LTCT[0]; 01644 M00S01514.sxllr +++| IF LLR$RQI[0] LQ REQNAME"RQITEST" 01645 M00S01515.sxllr +++| THEN 01646 M00S01516.sxllr +++| BEGIN # REQUEST IS FROM A UCP # 01647 M00S01517.sxllr +++| IF LLR$UCPABT[0] 01648 M00S01518.sxllr +++| THEN 01649 M00S01519.sxllr +++| BEGIN # UCP HAS ABORTED # 01650 M00S01520.sxllr +++| IF LLR$DR[0] EQ RESPTYP4"OK4" 01651 M00S01521.sxllr +++| OR (LLR$DR[0] EQ RESPTYP4"M86$HDW$PR" AND NOT LLR$LDERR[0]) 01652 M00S01522.sxllr +++| THEN 01653 M00S01523.sxllr +++| BEGIN # MOUNT WAS OK SO DISMOUNT CARTRIDGE # 01654 M00S01524.sxllr +++| GOTO UNLCART; 01655 M00S01525.sxllr +++| END # MOUNT WAS OK SO DISMOUNT CARTRIDGE # 01656 M00S01526.sxllr +++| 01657 M00S01527.sxllr +++| ELSE 01658 M00S01528.sxllr +++| BEGIN # CLEAR LLRQ # 01659 M00S01529.sxllr +++| GOTO CL$EX$UDT; 01660 M00S01530.sxllr +++| END 01661 M00S01531.sxllr +++| 01662 M00S01532.sxllr +++| END # UCP HAS ABORTED # 01663 M00S01533.sxllr +++| 01664 M00S01534.sxllr +++| ELSE 01665 M00S01535.sxllr +++| BEGIN # UCP IS STILL RUNNING # 01666 M00S01536.sxllr +++| IF LLR$DR[0] EQ RESPTYP4"OK4" 01667 M00S01537.sxllr +++| OR LLR$DR[0] EQ RESPTYP4"CART$LB$ERR" # # 01668 M00S01538.sxllr +++| OR LLR$DR[0] EQ RESPTYP4"UNK$CART" 01669 M00S01539.sxllr +++| THEN 01670 M00S01540.sxllr +++| BEGIN # MOUNT OK, SET UP *LTC* # 01671 M00S01541.sxllr +++| LTC$CART[LTCENTRY] = TRUE; 01672 M00S01542.sxllr +++| LTC$DRD[LTCENTRY] = LLR$DRD[0]; 01673 M00S01543.sxllr +++| LTC$YP[LTCENTRY] = LLR$Y[0]; 01674 M00S01544.sxllr +++| LTC$ZP[LTCENTRY] = LLR$Z[0]; 01675 M00S01545.sxllr +++| 01676 M00S01546.sxllr +++|# 01677 M00S01547.sxllr +++|* RETURN THE LABEL TO THE UCP. IF THE UCP IS SWAPPED OUT, 01678 M00S01548.sxllr +++|* DELAY THE REQUEST AND TRY AGAIN LATER. 01679 M00S01549.sxllr +++|# 01680 M00S01550.sxllr +++| 01681 M00S01551.sxllr +++|WRTLOOP: 01682 M00S01552.sxllr +++| LTCENTRY = LLR$LTCT[0]; 01683 M00S01553.sxllr +++| LTC$SFUCPA[LTCENTRY] = LLR$ADDR2[0]; 01684 M00S01554.sxllr +++| LTC$SFSCPA[LTCENTRY] = MAT$FWA[MAT$ENTRY"LABBUF"]; 01685 M00S01555.sxllr +++| LTC$SFFP[LTCENTRY] = LABLEN; 01686 M00S01556.sxllr +++| LTC$SFFC[LTCENTRY] = SFWRIT; 01687 M00S01557.sxllr +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL); 01688 M00S01558.sxllr +++| IF LTC$SFRC[LTCENTRY] EQ SFRCUCPGON 01689 M00S01559.sxllr +++| THEN 01690 M00S01560.sxllr +++| BEGIN
| Line S01561 Modification History | |
|---|---|
M01 (Removed by) | sxllr1 |
Seq # *Modification Id* Act ----------------------------+ 01691 M01S01561.sxllr1 ---| GOTO COMPLREQ;
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sxllr1 |
Seq # *Modification Id* Act ----------------------------+ 01692 M01S00001.sxllr1 +++| GOTO UNLCART; 01693 M00S01562.sxllr +++| END 01694 M00S01563.sxllr +++| 01695 M00S01564.sxllr +++| IF LTC$SFRC[LTCENTRY] EQ SFRCBDUCPA 01696 M00S01565.sxllr +++| THEN 01697 M00S01566.sxllr +++| BEGIN 01698 M00S01567.sxllr +++| KILL$UC(KILLCODE"INVADDR");
| Line S01568 Modification History | |
|---|---|
M01 (Removed by) | sxllr1 |
Seq # *Modification Id* Act ----------------------------+ 01699 M01S01568.sxllr1 ---| GOTO COMPLREQ;
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | sxllr1 |
Seq # *Modification Id* Act ----------------------------+ 01700 M01S00002.sxllr1 +++| GOTO UNLCART; 01701 M00S01569.sxllr +++| END 01702 M00S01570.sxllr +++| 01703 M00S01571.sxllr +++| IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT 01704 M00S01572.sxllr +++| THEN 01705 M00S01573.sxllr +++| BEGIN 01706 M00S01574.sxllr +++| LTC$SFUCPA[LTCENTRY] = 0; 01707 M00S01575.sxllr +++| LTC$SFSCPA[LTCENTRY] = 0; 01708 M00S01576.sxllr +++| LTC$SFFC[LTCENTRY] = SFSWPI;
| Line S01577 Modification History | |
|---|---|
M01 (Removed by) | sxllr1 |
Seq # *Modification Id* Act ----------------------------+ 01709 M01S01577.sxllr1 ---| SFCALL(LOC(LTC$WORD0[LTCENTRY]),NRCL);
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | sxllr1 |
Seq # *Modification Id* Act ----------------------------+ 01710 M01S00003.sxllr1 +++| SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL); 01711 M00S01578.sxllr +++| 01712 M00S01579.sxllr +++|# 01713 M00S01580.sxllr +++|* "CONT2" PROCESS STATE. 01714 M00S01581.sxllr +++|# 01715 M00S01582.sxllr +++| 01716 M00S01583.sxllr +++| 01717 M00S01584.sxllr +++|LDWAIT1: 01718 M00S01585.sxllr +++| 01719 M00S01586.sxllr +++| LTCENTRY = LLR$LTCT[0]; 01720 M00S01587.sxllr +++| IF LTC$SFFCC[LTCENTRY] 01721 M00S01588.sxllr +++| THEN 01722 M00S01589.sxllr +++| BEGIN 01723 M00S01590.sxllr +++| GOTO WRTLOOP; 01724 M00S01591.sxllr +++| END 01725 M00S01592.sxllr +++| 01726 M00S01593.sxllr +++| LLR$PRCST[0] = PROCST"CONT2"; 01727 M00S01594.sxllr +++| DELAY(UCP$INTV,LLRADR,LLRQIND); 01728 M00S01595.sxllr +++| RETURN; 01729 M00S01596.sxllr +++| END 01730 M00S01597.sxllr +++| 01731 M00S01598.sxllr +++| LTC$RQR[LTCENTRY] = LLR$DR[0]; 01732 M00S01599.sxllr +++| LABELBUSY = FALSE; 01733 M00S01600.sxllr +++| UCP$RES; 01734 M00S01601.sxllr +++| RETURN; 01735 M00S01602.sxllr +++| END # MOUNT WAS OK SO BUILD UTC # 01736 M00S01603.sxllr +++| 01737 M00S01604.sxllr +++| 01738 M00S01605.sxllr +++|# 01739 M00S01606.sxllr +++|* ERROR - CLEAN UP *LTCT*. 01740 M00S01607.sxllr +++|# 01741 M00S01608.sxllr +++| 01742 M00S01609.sxllr +++| LLR$RQR[0] = LLR$DR[0]; 01743 M00S01610.sxllr +++| LTC$LLRQA[LTCENTRY] = 0; # CLEAR *LLRQ* ENTRY # 01744 M00S01611.sxllr +++| LTC$RQR[LTCENTRY] = LLR$DR[0]; 01745 M00S01612.sxllr +++| UCP$RES; 01746 M00S01613.sxllr +++| END # UCP IS STILL RUNNING #
| Line S01614 Modification History | |
|---|---|
M01 (Removed by) | sxllr1 |
Seq # *Modification Id* Act ----------------------------+ 01747 M01S01614.sxllr1 ---|COMPLREQ:
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | sxllr1 |
M02 (Removed by) | sxllr3 |
Seq # *Modification Id* Act ----------------------------+ 01748 M02S00004.sxllr3 ---| LTC$RQR[LTCENTRY] = LLR$DR[0]; 01749 M00S01615.sxllr +++| LABELBUSY = FALSE;
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | sxllr1 |
M02 (Removed by) | sxllr3 |
Seq # *Modification Id* Act ----------------------------+ 01750 M02S00005.sxllr3 ---| UCP$RES; 01751 M00S01616.sxllr +++|CL$EX$UDT: 01752 M00S01617.sxllr +++| P<CLEAR> = LLR$DRDRA[0]; # CLEAR *DRD* RESERVATION # 01753 M00S01618.sxllr +++| CLN = 0; 01754 M00S01619.sxllr +++| LLR$PRCST[0] = PROCST"COMPLETE"; 01755 M00S01620.sxllr +++| RETURN; 01756 M00S01621.sxllr +++| 01757 M00S01622.sxllr +++| END # REQUEST IS FROM A UCP # 01758 M00S01623.sxllr +++| 01759 M00S01624.sxllr +++| 01760 M00S01625.sxllr +++| IF LLR$RQI[0] EQ REQNAME"RQIINT" 01761 M00S01626.sxllr +++| THEN # IF REQUEST IS INTERNAL # 01762 M00S01627.sxllr +++| BEGIN 01763 M00S01628.sxllr +++| 01764 M00S01629.sxllr +++|# 01765 M00S01630.sxllr +++|* ADD REQUESTING *HLRQ* ENTRY TO THE READY CHAIN. 01766 M00S01631.sxllr +++|# 01767 M00S01632.sxllr +++| 01768 M00S01633.sxllr +++| P<HLRQ> = LLR$UCPRA[0]; 01769 M00S01634.sxllr +++| HLR$RESP[0] = LLR$DR[0]; 01770 M00S01635.sxllr +++| HLR$ADRD[0] = LLR$DRD[0]; 01771 M00S01636.sxllr +++| IF LLR$DR[0] NQ RESPTYP4"OK4" 01772 M00S01637.sxllr +++| THEN 01773 M00S01638.sxllr +++| BEGIN # RETURN THE *LLRQ* # 01774 M00S01639.sxllr +++| MSGS$SKEL[0] = SKELLAB; 01775 M00S01640.sxllr +++| MSGS$CSN[0] = HLR$CSND[0]; 01776 M00S01641.sxllr +++| MSGS$SM[0] = HLR$SM[0]; 01777 M00S01642.sxllr +++| MSGS$SF[0] = O"33" + HLR$SBF[0]; 01778 M00S01643.sxllr +++| MSGS$FAM[0] = HLR$FAM[0]; 01779 M00S01644.sxllr +++| MESSAGE(MSGS,SYSUDF1); 01780 M00S01645.sxllr +++| 01781 M00S01646.sxllr +++| IF (LLR$DR[0] NQ RESPTYP4"CELL$EMP") ## 01782 M00S01647.sxllr +++| AND (LLR$DR[0] NQ RESPTYP4"SMA$OFF") ## 01783 M00S01648.sxllr +++| AND (LLR$DR[0] NQ RESPTYP4"M86$HDW$PR") 01784 M00S01649.sxllr +++| THEN 01785 M00S01650.sxllr +++| BEGIN # OUTPUT DRIVER LABEL BUFFER # 01786 M00S01651.sxllr +++| MSGS$TYPE[0] = "R"; 01787 M00S01652.sxllr +++| MSGS$CSN[0] = LAB$CSND[0]; 01788 M00S01653.sxllr +++| MSGS$SM[0] = LAB$SMID; 01789 M00S01654.sxllr +++| MSGS$SF[0] = O"33" + LAB$SF; 01790 M00S01655.sxllr +++| MSGS$FAM[0] = LAB$FMLY; 01791 M00S01656.sxllr +++| MESSAGE(MSGS,SYSUDF1); 01792 M00S01657.sxllr +++| END # DRIVER LABEL BUFFER # 01793 M00S01658.sxllr +++| 01794 M00S01659.sxllr +++| IF LLR$DR[0] EQ RESPTYP4"M86$HDW$PR" AND NOT LLR$LDERR[0] 01795 M00S01660.sxllr +++| THEN 01796 M00S01661.sxllr +++| BEGIN # UNLOAD OF CARTRIDGE #
| Line S01662 Modification History | |
|---|---|
M01 (Removed by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 01797 M01S01662.sxllr2 ---| GOTO UNLCART;
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 01798 M01S00055.sxllr2 +++| GOTO INTIALUNL; # LET EXEC UNLOAD CARTRIDGE # 01799 M00S01663.sxllr +++| END 01800 M00S01664.sxllr +++| 01801 M00S01665.sxllr +++| 01802 M00S01666.sxllr +++|# 01803 M00S01667.sxllr +++|* DELINK LLRQ FROM HLRQ. 01804 M00S01668.sxllr +++|* RELEASE LLRQ. 01805 M00S01669.sxllr +++|# 01806 M00S01670.sxllr +++| 01807 M00S01671.sxllr +++| HLR$LRQADR[0] = 0; 01808 M00S01672.sxllr +++| LLR$PRCST[0] = PROCST"COMPLETE"; 01809 M00S01673.sxllr +++| P<CLEAR> = HLR$DRDRA[0]; # CLEAR *DRD* RESERVATION # 01810 M00S01674.sxllr +++| CLN = 0; 01811 M00S01675.sxllr +++| HLR$DRDRA[0] = 0; 01812 M00S01676.sxllr +++| IF LLR$DR[0] EQ RESPTYP4"CELL$EMP" ## 01813 M00S01677.sxllr +++| OR LLR$DR[0] EQ RESPTYP4"SMA$OFF" ## 01814 M00S01678.sxllr +++| OR LLR$DR[0] EQ RESPTYP4"M86$HDW$PR" 01815 M00S01679.sxllr +++| THEN 01816 M00S01680.sxllr +++| BEGIN # DO NOT RELEASE LABEL BUFFER # 01817 M00S01681.sxllr +++| GOTO NOLABREL; 01818 M00S01682.sxllr +++| END # RETURNED # 01819 M00S01683.sxllr +++| END
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 01820 M01S00056.sxllr2 +++| 01821 M01S00057.sxllr2 +++|INTIALUNL: 01822 M00S01684.sxllr +++| LABELBUSY = FALSE; 01823 M00S01685.sxllr +++| 01824 M00S01686.sxllr +++|NOLABREL: 01825 M00S01687.sxllr +++| 01826 M00S01688.sxllr +++| ADD$LNK(LLR$UCPRA[0],LCHN"HL$READY",0); 01827 M00S01689.sxllr +++| RETURN; 01828 M00S01690.sxllr +++| END 01829 M00S01691.sxllr +++| 01830 M00S01692.sxllr +++|# 01831 M00S01693.sxllr +++|* UNLOAD A CARTRIDGE. 01832 M00S01694.sxllr +++|# 01833 M00S01695.sxllr +++| 01834 M00S01696.sxllr +++|UNLCART: 01835 M00S01697.sxllr +++| LLR$PRCNME[0] = REQTYP4"UNLD$CART"; 01836 M00S01698.sxllr +++| LLR$PRCST[0] = PROCST"INITIAL"; 01837 M00S01699.sxllr +++| LABELBUSY = FALSE;
| Line S01700 Modification History | |
|---|---|
M01 (Removed by) | sxllr2 |
Seq # *Modification Id* Act ----------------------------+ 01838 M01S01700.sxllr2 ---| LLR$LCF[0] = TRUE; 01839 M00S01701.sxllr +++| ADD$LNK(LLRADR,LCHN"LL$READY",0); 01840 M00S01702.sxllr +++| RETURN; 01841 M00S01703.sxllr +++| END # LD$CAR # 01842 M00S01704.sxllr +++| 01843 M00S01705.sxllr +++| TERM 01844 M00S01706.sxllr +++|PROC LLRQENQ(ADDR); 01845 M00S01707.sxllr +++|# TITLE LLRQENQ - LOW LEVEL REQUEST QUEUE ENQUEUER. # 01846 M00S01708.sxllr +++| 01847 M00S01709.sxllr +++| BEGIN # LLRQENQ # 01848 M00S01710.sxllr +++| 01849 M00S01711.sxllr +++|# 01850 M00S01712.sxllr +++|** LLRQENQ - LOW LEVEL REQUEST QUEUE ENQUEUER. 01851 M00S01713.sxllr +++|* 01852 M00S01714.sxllr +++|* *LLRQENQ* DELETES AN ENTRY FROM THE FREE SPACE CHAIN AND 01853 M00S01715.sxllr +++|* LINKS IT INTO THE *LLRQ* READY CHAIN. 01854 M00S01716.sxllr +++|* *LLRQENQ* IS CALLED ONLY IF THE *LLRQ* IS NOT FULL. 01855 M00S01717.sxllr +++|* 01856 M00S01718.sxllr +++|* PROC LLRQENQ(ADDR) 01857 M00S01719.sxllr +++|* 01858 M00S01720.sxllr +++|* EXIT (ADDR) - ADDRESS OF ENTRY ADDED TO QUEUE. 01859 M00S01721.sxllr +++|* 01860 M00S01722.sxllr +++|* MESSAGES * EXEC ABNORMAL, LLRQENQ.* 01861 M00S01723.sxllr +++|# 01862 M00S01724.sxllr +++| 01863 M00S01725.sxllr +++| ITEM ADDR U; # ADDRESS OF *LLRQ* ENTRY # 01864 M00S01726.sxllr +++| 01865 M00S01727.sxllr +++|# 01866 M00S01728.sxllr +++|**** PROC LLRQENQ - XREF LIST BEGIN. 01867 M00S01729.sxllr +++|# 01868 M00S01730.sxllr +++| 01869 M00S01731.sxllr +++| XREF 01870 M00S01732.sxllr +++| BEGIN 01871 M00S01733.sxllr +++| PROC ABORT; # ABORT # 01872 M00S01734.sxllr +++| PROC ADD$LNK; # ADD ENTRY TO END OF CHAIN # 01873 M00S01735.sxllr +++| PROC DEL$LNK; # DELETE ENTRY FROM CHAIN # 01874 M00S01736.sxllr +++| PROC MESSAGE; # ISSUE MESSAGE # 01875 M00S01737.sxllr +++| END 01876 M00S01738.sxllr +++| 01877 M00S01739.sxllr +++|# 01878 M00S01740.sxllr +++|**** PROC LLRQENQ - XREF LIST END. 01879 M00S01741.sxllr +++|# 01880 M00S01742.sxllr +++| 01881 M00S01743.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 01882 M00S01744.sxllr +++|*CALL COMBFAS 01883 M00S01745.sxllr +++|*CALL COMBCHN 01884 M00S01746.sxllr +++|*CALL,COMBKDD 01885 M00S01747.sxllr +++|*CALL COMBLRQ 01886 M00S01748.sxllr +++|*CALL COMXMSC 01887 M00S01749.sxllr +++| 01888 M00S01750.sxllr +++| CONTROL EJECT; 01889 M00S01751.sxllr +++| 01890 M00S01752.sxllr +++|# 01891 M00S01753.sxllr +++|* CHECK FOR NO FREE SPACE. 01892 M00S01754.sxllr +++|# 01893 M00S01755.sxllr +++| 01894 M00S01756.sxllr +++| ADDR = CHN$BOC[LCHN"LL$FRSPC"]; 01895 M00S01757.sxllr +++| IF ADDR EQ 0 # IF NO FREE ENTRIES # 01896 M00S01758.sxllr +++| THEN 01897 M00S01759.sxllr +++| BEGIN 01898 M00S01760.sxllr +++| FE$RTN[0] = "LLRQENQ."; 01899 M00S01761.sxllr +++| MESSAGE(FEMSG,UDFL1); 01900 M00S01762.sxllr +++| ABORT; 01901 M00S01763.sxllr +++| END 01902 M00S01764.sxllr +++| 01903 M00S01765.sxllr +++| DEL$LNK(ADDR,LCHN"LL$FRSPC",0); # DELETE ENTRY FROM FREE SPACE 01904 M00S01766.sxllr +++| CHAIN # 01905 M00S01767.sxllr +++| P<LLRQ> = ADDR; 01906 M00S01768.sxllr +++| P<KWORD> = LOC(LLR$KWORDS[0]); # PRESET K-DISPLAY WORDS # 01907 M00S01769.sxllr +++| KW$COMP[0] = TRUE; 01908 M00S01770.sxllr +++| ADD$LNK(ADDR,LCHN"LL$READY",0); # ADD ENTRY TO READY CHAIN # 01909 M00S01771.sxllr +++| RETURN; 01910 M00S01772.sxllr +++| 01911 M00S01773.sxllr +++| END # LLRQENQ # 01912 M00S01774.sxllr +++| 01913 M00S01775.sxllr +++| TERM 01914 M00S01776.sxllr +++|PROC LLRQMTR; 01915 M00S01777.sxllr +++|# TITLE LLRQMTR - LOW LEVEL REQUEST QUEUE MONITOR. # 01916 M00S01778.sxllr +++| 01917 M00S01779.sxllr +++| BEGIN # LLRQMTR # 01918 M00S01780.sxllr +++| 01919 M00S01781.sxllr +++|# 01920 M00S01782.sxllr +++|** LLRQMTR - LOW LEVEL REQUEST QUEUE MONITOR. 01921 M00S01783.sxllr +++|* 01922 M00S01784.sxllr +++|* THE LOW LEVEL REQUEST QUEUE MONITOR CONTROLS THE ACTIVATION 01923 M00S01785.sxllr +++|* OF *LLRQ* PROCESSORS. EACH *LLRQ* ENTRY ON THE READY CHAIN IS 01924 M00S01786.sxllr +++|* ACTIVATED BY CALLING THE APPROPRIATE PROCESSOR. 01925 M00S01787.sxllr +++|* 01926 M00S01788.sxllr +++|* PROC LLRQMTR 01927 M00S01789.sxllr +++|* 01928 M00S01790.sxllr +++|* EXIT IF THE PROCESS STATE FIELD OF AN *LLRQ* ENTRY IS SET 01929 M00S01791.sxllr +++|* TO "COMPLETE" AFTER ITS PROCESSOR IS CALLED, THE ENTRY 01930 M00S01792.sxllr +++|* IS CLEARED AND LINKED INTO THE FREE SPACE CHAIN. 01931 M00S01793.sxllr +++|* OTHERWISE, THE PROCESSOR HAS SET UP SOME CONDITION 01932 M00S01794.sxllr +++|* THAT WILL EVENTUALLY CAUSE THE *LLRQ* ENTRY TO BE 01933 M00S01795.sxllr +++|* RELINKED INTO THE *LLRQ* READY CHAIN. 01934 M00S01796.sxllr +++|# 01935 M00S01797.sxllr +++| 01936 M00S01798.sxllr +++|# 01937 M00S01799.sxllr +++|**** PROC LLRQMTR - XREF LIST BEGIN. 01938 M00S01800.sxllr +++|# 01939 M00S01801.sxllr +++| 01940 M00S01802.sxllr +++| XREF 01941 M00S01803.sxllr +++| BEGIN 01942 M00S01804.sxllr +++| PROC ADD$LNK; # ADD ENTRY TO END OF CHAIN # 01943 M00S01805.sxllr +++| PROC CPY$DS; # COPY DISK TO VOLUME # 01944 M00S01806.sxllr +++| PROC CPY$RS; # COPY RAW VOLUME # 01945 M00S01807.sxllr +++| PROC CPY$SD; # COPY VOLUME TO DISK # 01946 M00S01808.sxllr +++| PROC DEL$LNK; # DELETE ENTRY FROM CHAIN # 01947 M00S01809.sxllr +++| PROC INIT$HW; # INITIALIZE M860 HARDWARE # 01948 M00S01810.sxllr +++| PROC LD$CAR; # LOAD CARTRIDGE # 01949 M00S01811.sxllr +++| PROC SSDRVR; # SS DRIVER # 01950 M00S01812.sxllr +++| PROC UNL$CAR; # UNLOAD CARTRIDGE # 01951 M00S01813.sxllr +++| PROC WT$LAB; # WRITE LABEL # 01952 M00S01814.sxllr +++| PROC ZFILL; # ZERO FILL BUFFER # 01953 M00S01815.sxllr +++| END 01954 M00S01816.sxllr +++| 01955 M00S01817.sxllr +++|# 01956 M00S01818.sxllr +++|**** PROC LLRQMTR - XREF LIST END. 01957 M00S01819.sxllr +++|# 01958 M00S01820.sxllr +++| 01959 M00S01821.sxllr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 01960 M00S01822.sxllr +++|*CALL COMBFAS 01961 M00S01823.sxllr +++|*CALL COMBCHN 01962 M00S01824.sxllr +++|*CALL COMBCPR 01963 M00S01825.sxllr +++|*CALL COMBLRQ 01964 M00S01826.sxllr +++|*CALL COMXMSC 01965 M00S01827.sxllr +++| 01966 M00S01828.sxllr +++| ITEM LLRENT U; # *LLRQ* ENTRY ADDRESS # 01967 M00S01829.sxllr +++| 01968 M00S01830.sxllr +++| SWITCH LLPROC:REQTYP4 # *LLRQ* PROCESSOR CALLS # 01969 M00S01831.sxllr +++| LL1:LOAD$CART, # # 01970 M00S01832.sxllr +++| LL2:UNLD$CART, # # 01971 M00S01833.sxllr +++| LL3:WRT$LAB, # # 01972 M00S01834.sxllr +++| LL4:CPY$AD, # # 01973 M00S01835.sxllr +++| LL5:CPY$DA, # # 01974 M00S01836.sxllr +++| LL6:CP$RAW$AU, # # 01975 M00S01837.sxllr +++| LL7:INITHW, # # 01976 M00S01838.sxllr +++| 01977 M00S01839.sxllr +++| ENDLLP:LSTREQTYP4; # END OF *LLRQ* PROCESSOR CALLS # 01978 M00S01840.sxllr +++| 01979 M00S01841.sxllr +++| CONTROL EJECT; 01980 M00S01842.sxllr +++| 01981 M00S01843.sxllr +++|# 01982 M00S01844.sxllr +++|* *LLRQMTR* IS CALLED WHEN THERE IS WORK FOR *SSDRVR* TO DO OR 01983 M00S01845.sxllr +++|* WHEN THERE ARE ENTRIES ON THE *LLRQ* READY CHAIN TO BE PROCESSED. 01984 M00S01846.sxllr +++|* PROCESSING OF ENTRIES ON THE *LLRQ* READY CHAIN CAN CREATE WORK 01985 M00S01847.sxllr +++|* FOR *SSDRVR*, AND EXECUTION OF *SSDRVR* CAN PUT ENTRIES BACK 01986 M00S01848.sxllr +++|* ON THE *LLRQ* READY CHAIN. 01987 M00S01849.sxllr +++|# 01988 M00S01850.sxllr +++| 01989 M00S01851.sxllr +++| IF CHN$BOC[LCHN"LL$READY"] EQ 0 01990 M00S01852.sxllr +++| THEN # IF READY CHAIN IS EMPTY # 01991 M00S01853.sxllr +++| BEGIN 01992 M00S01854.sxllr +++| SSDRVR; 01993 M00S01855.sxllr +++| END 01994 M00S01856.sxllr +++| 01995 M00S01857.sxllr +++|# 01996 M00S01858.sxllr +++|* TRAVERSE THE *LLRQ* READY CHAIN. 01997 M00S01859.sxllr +++|# 01998 M00S01860.sxllr +++| 01999 M00S01861.sxllr +++| REPEAT WHILE CHN$BOC[LCHN"LL$READY"] NQ 0 02000 M00S01862.sxllr +++| DO 02001 M00S01863.sxllr +++| BEGIN # PROCESS READY *LLRQ* ENTRIES # 02002 M00S01864.sxllr +++| LLRENT = CHN$BOC[LCHN"LL$READY"]; 02003 M00S01865.sxllr +++| DEL$LNK(LLRENT,LCHN"LL$READY",0); 02004 M00S01866.sxllr +++| P<LLRQ> = LLRENT; 02005 M00S01867.sxllr +++| 02006 M00S01868.sxllr +++|# 02007 M00S01869.sxllr +++|* SIMULATED CASE STATEMENT FOR *LLRQ* PROCESSOR CALLS. 02008 M00S01870.sxllr +++|# 02009 M00S01871.sxllr +++| 02010 M00S01872.sxllr +++| GOTO LLPROC[LLR$PRCNME[0]]; 02011 M00S01873.sxllr +++| 02012 M00S01874.sxllr +++|LL1: # LOAD CARTRIDGE # 02013 M00S01875.sxllr +++| LD$CAR(LLRENT); 02014 M00S01876.sxllr +++| GOTO ENDLLP; 02015 M00S01877.sxllr +++| 02016 M00S01878.sxllr +++|LL2: # UNLOAD CARTRIDGE # 02017 M00S01879.sxllr +++| UNL$CAR(LLRENT); 02018 M00S01880.sxllr +++| GOTO ENDLLP; 02019 M00S01881.sxllr +++| 02020 M00S01882.sxllr +++|LL3: # WRITE LABEL # 02021 M00S01883.sxllr +++| WT$LAB(LLRENT); 02022 M00S01884.sxllr +++| GOTO ENDLLP; 02023 M00S01885.sxllr +++| 02024 M00S01886.sxllr +++|LL4: # COPY VOLUME TO DISK # 02025 M00S01887.sxllr +++| CPY$SD(LLRENT); 02026 M00S01888.sxllr +++| GOTO ENDLLP; 02027 M00S01889.sxllr +++| 02028 M00S01890.sxllr +++|LL5: # COPY DISK TO VOLUME # 02029 M00S01891.sxllr +++| CPY$DS(LLRENT); 02030 M00S01892.sxllr +++| GOTO ENDLLP; 02031 M00S01893.sxllr +++| 02032 M00S01894.sxllr +++|LL6: # COPY RAW VOLUME # 02033 M00S01895.sxllr +++| CPY$RS(LLRENT); 02034 M00S01896.sxllr +++| GOTO ENDLLP; 02035 M00S01897.sxllr +++| 02036 M00S01898.sxllr +++|LL7: # INITIALIZE M860 HARDWARE # 02037 M00S01899.sxllr +++| INIT$HW(LLRENT); 02038 M00S01900.sxllr +++| GOTO ENDLLP; 02039 M00S01901.sxllr +++| 02040 M00S01902.sxllr +++| 02041 M00S01903.sxllr +++| 02042 M00S01904.sxllr +++|ENDLLP: # CONTINUE # 02043 M00S01905.sxllr +++| 02044 M00S01906.sxllr +++|# 02045 M00S01907.sxllr +++|* END SIMULATED CASE STATEMENT FOR *LLRQ* PROCESSOR CALLS. 02046 M00S01908.sxllr +++|# 02047 M00S01909.sxllr +++| 02048 M00S01910.sxllr +++|# 02049 M00S01911.sxllr +++|* IF A PROCESSOR CREATED WORK FOR THE DRIVER, CALL *SSDRVR*. 02050 M00S01912.sxllr +++|# 02051 M00S01913.sxllr +++| 02052 M00S01914.sxllr +++| IF CHN$BOC[LCHN"DRQUEUE"] NQ 0 02053 M00S01915.sxllr +++| THEN # IF DRIVER QUEUE NOT EMPTY # 02054 M00S01916.sxllr +++| BEGIN 02055 M00S01917.sxllr +++| SSDRVR; 02056 M00S01918.sxllr +++| END 02057 M00S01919.sxllr +++| 02058 M00S01920.sxllr +++|# 02059 M00S01921.sxllr +++|* ADD *LLRQ* ENTRY TO THE FREE SPACE CHAIN IF PROCESS IS COMPLETE. 02060 M00S01922.sxllr +++|# 02061 M00S01923.sxllr +++| 02062 M00S01924.sxllr +++| P<LLRQ> = LLRENT; 02063 M00S01925.sxllr +++| IF LLR$PRCST[0] EQ PROCST"COMPLETE" 02064 M00S01926.sxllr +++| THEN # IF PROCESS IS COMPLETE # 02065 M00S01927.sxllr +++| BEGIN 02066 M00S01928.sxllr +++| ZFILL(LLRQ,LLRQENTL); # CLEAR *LLRQ* ENTRY # 02067 M00S01929.sxllr +++| ADD$LNK(LLRENT,LCHN"LL$FRSPC",0); 02068 M00S01930.sxllr +++| END 02069 M00S01931.sxllr +++| 02070 M00S01932.sxllr +++| END # PROCESS READY *LLRQ* ENTRIES # 02071 M00S01933.sxllr +++| 02072 M00S01934.sxllr +++| RETURN; 02073 M00S01935.sxllr +++| END # LLRQMTR # 02074 M00S01936.sxllr +++| 02075 M00S01937.sxllr +++| TERM 02076 M00S01938.sxllr +++|PROC UNL$CAR((LLRENT)); 02077 M00S01939.sxllr +++|# TITLE UNL$CAR - RETURN CARTRIDGE TO MATRIX. # 02078 M00S01940.sxllr +++| 02079 M00S01941.sxllr +++| BEGIN # UNL$CAR # 02080 M00S01942.sxllr +++| 02081 M00S01943.sxllr +++|# 02082 M00S01944.sxllr +++|** UNL$CAR - RETURN CARTRIDGE TO MATRIX. 02083 M00S01945.sxllr +++|* 02084 M00S01946.sxllr +++|* *UNL$CAR* RETURNS THE CARTRIDGE FROM THE DRD TO THE 02085 M00S01947.sxllr +++|* DESIGNATED MATRIX POSITION. IF THE CARTRIDGE IS ASSIGNED TO THE 02086 M00S01948.sxllr +++|* INPUT TRAY ON ENTRY, THE ASSIGNMENT WILL BE CHANGED TO THE 02087 M00S01949.sxllr +++|* OUTPUT TRAY PRIOR TO DISMOUNTING THE CARTRIDGE. 02088 M00S01950.sxllr +++|* 02089 M00S01951.sxllr +++|* PROC UNL$CAR((LLRENT)) 02090 M00S01952.sxllr +++|* 02091 M00S01953.sxllr +++|* ENTRY (LLRENT) - ADDRESS OF *LLRQ* ENTRY FOR THE REQUEST 02092 M00S01954.sxllr +++|* CONTAINING THE SMA-ID AND THE YZ 02093 M00S01955.sxllr +++|* COORDINATES. 02094 M00S01956.sxllr +++|* 02095 M00S01957.sxllr +++|* EXIT THE PROCESS STATE FIELD IN THE *LLRQ* ENTRY HAS BEEN 02096 M00S01958.sxllr +++|* ADVANCED TO INDICATE WHERE PROCESSING OF THIS REQUEST 02097 M00S01959.sxllr +++|* LEFT OFF, AND THUS WHAT TO DO NEXT TO ADVANCE THE 02098 M00S01960.sxllr +++|* REQUEST. 02099 M00S01961.sxllr +++|* 02100 M00S01962.sxllr +++|* WHEN THE PROCESS IS COMPLETED AN ERROR RESPONSE CODE 02101 M00S01963.sxllr +++|* IS RETURNED VIA *LTC$RQR[LTCENTRY]* FOR EXTERNAL 02102 M00S01964.sxllr +++|* REQUESTORS OR *HLR$RESP[0]* FOR INTERNAL REQUESTORS. 02103 M00S01965.sxllr +++|* RESPONSE CODE (VALUES ARE DEFINED IN *COMBCPR*). 02104 M00S01966.sxllr +++|* = RESPTYP4"OK4". 02105 M00S01967.sxllr +++|* 02106 M00S01968.sxllr +++|* THE CARTRIDGE LOAD, PASS, AND ERROR COUNTS ARE
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/sxllr.txt · Last modified: by 127.0.0.1