TITLE 'IEAVPFTE: PFTE ENQ/DEQ *00001000 ' 00002000 IEAVPFTE CSECT 00003000 USING *,15 00004000 MODID BR=NO 00005000 ENTRY IEAVPFT2 00006000 IEAVPFT2 DS 0H 00007000 DROP R15 00008000 STM R0,R15,PVTWSA12(PVTPTR) SAVE INPUT REGS 00009000 BALR R12,R0 ESTABLISH ADDRESS 00010000 PSTART DS 0H 00011000 USING PSTART,R12 00012000 * RCAPTR=PVTPRCA; /* GET THE ADDRESS OF THE RSM RCA*/ 00013000 L RCAPTR,PVTPRCA(,PVTPTR) 0073 00014000 * RCAPFTE='1'B; /* SET MODULE-ENTERED FLAG IN THE 00015000 * RCA */ 00016000 OI RCAPFTE(RCAPTR),B'00001000' 0074 00017000 * 0075 00018000 */********************************************************************/ 00019000 */* THE FOLLOWING SECTION DOES THE DEQUEUE PROCESSING. A TEST IS MADE*/ 00020000 */* TO DETERMINE IF A DEQUEUE OPERATION IS REQUIRED. IF THE DEQUEUE */ 00021000 */* OPERATION IS NOT REQUIRED, CONTROL PASSES TO THE ENQUEUE */ 00022000 */* PROCESSOR. IF THE DEQUEUE OPERATION IS REQUIRED, IT IS DONE IN */ 00023000 */* THIS SECTION. IF THE PFTE WAS DEQUEUED FROM THE AFQ, THE AFC IS */ 00024000 */* DECREMENTED. IF THE AFC IS NOW BELOW ITS SAFE THRESHOLD, THE */ 00025000 */* PVTLSI IS CHECKED TO DETERMINE IF THE SRM HAS BEEN */ 00026000 */* NOTIFIED. IF NOT NOTIFIED, A SYSEVENT IS ISSUED TO WARN OF THE */ 00027000 */* LOW AFC. THE PVTLSI IS TURNED ON. IF THE PVTLSI IS ALREADY ON, */ 00028000 */* AND THE AFC IS ZERO, THE SYSEVENT WILL BE RE-ISSUED WITH A */ 00029000 */* DESPERATION CODE IN REG 1. IN ALL DEQUEUE OPERATIONS, THE PFTE IS*/ 00030000 */* LEFT IN THE LOGICALLY UNQUEUED STATE. CONTROL CONTINUES AT THE */ 00031000 */* ENQUEUE PROCESSOR. */ 00032000 */********************************************************************/ 00033000 * 0075 00034000 * RSVEXTRA='0'B; /* CLEAR FLAG INDICATING EXTRA 0075 00035000 * PFTE ON SQA RSV QUEUE IS TO BE 00036000 * REMOVED FROM THE SQA RESERVE 00037000 * QUEUE @ZA10767*/ 00038000 NI RSVEXTRA(PVTPTR),B'10111111' 0075 00039000 *SETUPDQT: 0076 00040000 * ; /* @ZA10767*/ 00041000 SETUPDQT DS 0H 0077 00042000 * RESPECIFY 0077 00043000 * (PFTERBN, 0077 00044000 * PFTEPTR) RESTRICTED; 0077 00045000 * PFTERBN=SAVERBN; /* GET RBN OF INPUT PFTE */ 00046000 SLR PFTERBN,PFTERBN 0078 00047000 ICM PFTERBN,3,SAVERBN(PVTPTR) 0078 00048000 * PFTEPTR=PVTPFTP+PFTERBN; /* GET ADDR OF THE INPUT PFTE */ 00049000 LR PFTEPTR,PFTERBN 0079 00050000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0079 00051000 * SAVEDQID=PFTQNDX; /* Q ID WHERE PFTE IS NOW 0080 00052000 * @Z40FPYL*/ 00053000 MVC SAVEDQID(1),PFTQNDX(PFTEPTR) 0080 00054000 *DEQTEST: 0081 00055000 * 0081 00056000 * /*****************************************************************/ 00057000 * /* */ 00058000 * /* PFTE IS TO BE DEQUEUED. DO THE DEQUEUE PROCESSING NEXT. */ 00059000 * /* */ 00060000 * /*****************************************************************/ 00061000 * 0081 00062000 * IF PFTQNDX=PFTNQN THEN /* SEE IF PFTE NEEDS TO BE DEQD */ 00063000 DEQTEST CLI PFTQNDX(PFTEPTR),X'FF' 0081 00064000 BNE @RF00081 0081 00065000 * DO; /* IT DOES NOT @Z40FPYL*/ 00066000 * IF SAVETQID=PFTCFQN THEN /* II'S GOING TO CFQ @Z40FPYL*/ 00067000 CLI SAVETQID(PVTPTR),8 0083 00068000 BNE @RF00083 0083 00069000 * PVTCFMCT=PVTCFMCT+1; /* INCREMENT PVTCFMCT @Z40FPYL*/ 00070000 LA @11,1 0084 00071000 AH @11,PVTCFMCT(,PVTPTR) 0084 00072000 STH @11,PVTCFMCT(,PVTPTR) 0084 00073000 * ELSE /* NOT GOING TO THE CFQ @Z40FPYL*/ 00074000 * IF SAVETQID=PFTLFQN|SAVETQID=PFTLSQAN THEN/* @Z40FPYL*/ 00075000 B @RC00083 0085 00076000 @RF00083 CLI SAVETQID(PVTPTR),128 0085 00077000 BE @RT00085 0085 00078000 CLI SAVETQID(PVTPTR),132 0085 00079000 BNE @RF00085 0085 00080000 @RT00085 DS 0H 0086 00081000 * DO; /* FOR LFQ OR FOR LSQA INCREMENT 00082000 * ASCBFMCT @Z40FPYL*/ 00083000 * RSMHDPTR=SAVEASCB->ASCBRSM;/* INPUT TO PGSECS @Z40FPYL*/ 00084000 L @11,SAVEASCB(,PVTPTR) 0087 00085000 L RSMHDPTR,ASCBRSM(,@11) 0087 00086000 * CALL PGSECS; /* FIRST CALCULATE PAGE-SECONDS 00087000 * @Z40FPYL*/ 00088000 BAL @14,PGSECS 0088 00089000 * SAVEASCB->ASCBFMCT=SAVEASCB->ASCBFMCT+1;/* @Z40FPYL*/ 00090000 L @11,SAVEASCB(,PVTPTR) 0089 00091000 LA @07,1 0089 00092000 AH @07,ASCBFMCT(,@11) 0089 00093000 STH @07,ASCBFMCT(,@11) 0089 00094000 * END; /* @Z40FPYL*/ 00095000 * ELSE 0091 00096000 * ; /* NOT GOING TO CFQ OR LFQ 0091 00097000 * @Z40FPYL*/ 00098000 @RF00085 DS 0H 0092 00099000 * GOTO ENQTEST; /* WHATEVER Q IT'S GOING TO, MUST*/ 00100000 B ENQTEST 0092 00101000 * END; /* TEST FOR ENQ @Z40FPYL*/ 00102000 * ELSE 0094 00103000 * ; /* PFTE DOES NEED TO BE DEQD 0094 00104000 * @Z40FPYL*/ 00105000 @RF00081 DS 0H 0095 00106000 * RESPECIFY 0095 00107000 * (QHEADEND) RESTRICTED; 0095 00108000 * IF PFTQNDXPFTBQPTR=PFTBQPTR;/* MAKE THE BACKWARD PTR OF THE 00152000 * NEXT PFTE POINT TO THE PFTE 0104 00153000 * PREVIOUS TO THE PFTE TO BE 0104 00154000 * DEQUEUED. */ 00155000 MVC PFTBQPTR(2,LASTPFTE),PFTBQPTR(PFTEPTR) 0104 00156000 * RESPECIFY 0105 00157000 * (LASTPFTE) UNRESTRICTED; 0105 00158000 * END; 0106 00159000 * IF PFTBQPTR=0 THEN /* TEST TO SEE IF THIS IS THE 0107 00160000 * FIRST PFTE IN THE QUEUE. */ 00161000 @RC00099 ICM @11,3,PFTBQPTR(PFTEPTR) 0107 00162000 BNZ @RF00107 0107 00163000 * HEADPTR=PFTFQPTR; /* IS THE FIRST PFTE IN THE 0108 00164000 * QUEUE. MAKE THE PFTE WHICH IS 00165000 * FOREWARD POINTED TO BY THIS 0108 00166000 * PFTE THE NEW FIRST ENTRY IN 0108 00167000 * THE QUEUE. */ 00168000 MVC HEADPTR(2,QHEADEND),PFTFQPTR(PFTEPTR) 0108 00169000 * ELSE /* IS NOT THE FIRST PFTE IN THE 00170000 * QUEUE. */ 00171000 * DO; /* PROCESS FOREWARD POINTERS OF 00172000 * PFTES */ 00173000 B @RC00107 0109 00174000 @RF00107 DS 0H 0110 00175000 * RESPECIFY 0110 00176000 * (FRSTPFTE) RESTRICTED; 0110 00177000 * FRSTPFTE=PVTPFTP+PFTBQPTR; /* GET THE ADDRESS OF THE 0111 00178000 * PREVIOUS PFTE */ 00179000 SLR FRSTPFTE,FRSTPFTE 0111 00180000 ICM FRSTPFTE,3,PFTBQPTR(PFTEPTR) 0111 00181000 AL FRSTPFTE,PVTPFTP(,PVTPTR) 0111 00182000 * FRSTPFTE->PFTFQPTR=PFTFQPTR;/* MAKE THE FOREWARD PTR OF THE 00183000 * PREVIOUS PFTE POINT TO THE 0112 00184000 * PFTE AFTER THE PFTE TO BE 0112 00185000 * DEQUEUED. */ 00186000 MVC PFTFQPTR(2,FRSTPFTE),PFTFQPTR(PFTEPTR) 0112 00187000 * END; 0113 00188000 * RESPECIFY 0114 00189000 * (QHEADEND, 0114 00190000 * FRSTPFTE) UNRESTRICTED; 0114 00191000 @RC00107 DS 0H 0115 00192000 * IF PFTQNDX=PFTAFQN THEN /* IF THE PFTE WAS ON THE AFQ, 0115 00193000 * SPECIAL PROCESSING MUST BE 0115 00194000 * DONE */ 00195000 CLI PFTQNDX(PFTEPTR),X'00' 0115 00196000 BNE @RF00115 0115 00197000 * DO; 0116 00198000 * IF SAVETQID=PFTCFQN THEN /* IT'S GOING TO CFQ @Z40FPYL*/ 00199000 CLI SAVETQID(PVTPTR),8 0117 00200000 BNE @RF00117 0117 00201000 * PVTCFMCT=PVTCFMCT+1; /* INCREMENT PVTCFMCT @Z40FPYL*/ 00202000 LA @11,1 0118 00203000 AH @11,PVTCFMCT(,PVTPTR) 0118 00204000 STH @11,PVTCFMCT(,PVTPTR) 0118 00205000 * ELSE /* @Z40FPYL*/ 00206000 * IF SAVETQID=PFTLFQN|SAVETQID=PFTLSQAN THEN/* @Z40FPYL*/ 00207000 B @RC00117 0119 00208000 @RF00117 CLI SAVETQID(PVTPTR),128 0119 00209000 BE @RT00119 0119 00210000 CLI SAVETQID(PVTPTR),132 0119 00211000 BNE @RF00119 0119 00212000 @RT00119 DS 0H 0120 00213000 * DO; /* INCREMENT ASCBFMCT @Z40FPYL*/ 00214000 * RSMHDPTR=SAVEASCB->ASCBRSM;/* INPUT TO PGSECS @Z40FPYL*/ 00215000 L @11,SAVEASCB(,PVTPTR) 0121 00216000 L RSMHDPTR,ASCBRSM(,@11) 0121 00217000 * CALL PGSECS; /* AFTER CALCULATING PAGE-SECONDS 00218000 * @Z40FPYL*/ 00219000 BAL @14,PGSECS 0122 00220000 * SAVEASCB->ASCBFMCT=SAVEASCB->ASCBFMCT+1;/* @Z40FPYL*/ 00221000 L @11,SAVEASCB(,PVTPTR) 0123 00222000 LA @07,1 0123 00223000 AH @07,ASCBFMCT(,@11) 0123 00224000 STH @07,ASCBFMCT(,@11) 0123 00225000 * END; /* @Z40FPYL*/ 00226000 * ELSE 0125 00227000 * ; /* NOT GOING TO CFQ, LFQ, OR LSQA 00228000 * @Z40FPYL*/ 00229000 @RF00119 DS 0H 0126 00230000 * PFTONAVQ='0'B; /* THE ON-AFQ FLAG IS TURNED OFF */ 00231000 @RC00117 NI PFTONAVQ(PFTEPTR),B'01111111' 0126 00232000 * PVTAFC=PVTAFC-1; /* THE AVAILABLE FRAME COUNT IS 00233000 * DECREMENTED */ 00234000 LH @11,PVTAFC(,PVTPTR) 0127 00235000 BCTR @11,0 0127 00236000 STH @11,PVTAFC(,PVTPTR) 0127 00237000 * IF PVTAFCASCBFMCT=RSMASCB->ASCBFMCT-1;/* @Z40FPYL*/ 00351000 L @11,RSMASCB(,RSMHDPTR) 0158 00352000 LH @07,ASCBFMCT(,@11) 0158 00353000 BCTR @07,0 0158 00354000 STH @07,ASCBFMCT(,@11) 0158 00355000 * END; /* @Z40FPYL*/ 00356000 * ELSE 0160 00357000 * ; /* NOT FROM CFQ OR LFQ @Z40FPYL*/ 00358000 @RF00155 DS 0H 0161 00359000 * GOTO EXITPFTE; /* NO MATTER WHERE IT CAME FROM */ 00360000 B EXITPFTE 0161 00361000 * END; /* MUST GO TO EXIT ROUTINE 0162 00362000 * @Z40FPYL*/ 00363000 * ELSE 0163 00364000 * ; /* PFTE DOES NEED TO BE ENQD 0163 00365000 * @Z40FPYL*/ 00366000 @RF00151 DS 0H 0164 00367000 * IF SAVETQID=PFTAFQN THEN /* TEST IF THE PFTE IS TO BE 0164 00368000 * ENQUEUED TO THE AFQ */ 00369000 CLI SAVETQID(PVTPTR),0 0164 00370000 BNE @RF00164 0164 00371000 * DO; /* @Z40FPYL*/ 00372000 * IF SAVEDQID=PFTCFQN THEN /* IT CAME FROM CFQ @Z40FPYL*/ 00373000 CLI SAVEDQID,8 0166 00374000 BNE @RF00166 0166 00375000 * PVTCFMCT=PVTCFMCT-1; /* DECREMENT PVTCFMCT @ZA0FPYL*/ 00376000 LH @11,PVTCFMCT(,PVTPTR) 0167 00377000 BCTR @11,0 0167 00378000 STH @11,PVTCFMCT(,PVTPTR) 0167 00379000 * ELSE 0168 00380000 * IF SAVEDQID=PFTLFQN|SAVEDQID=PFTLSQAN THEN/* @Z40FPYL*/ 00381000 B @RC00166 0168 00382000 @RF00166 CLI SAVEDQID,128 0168 00383000 BE @RT00168 0168 00384000 CLI SAVEDQID,132 0168 00385000 BNE @RF00168 0168 00386000 @RT00168 DS 0H 0169 00387000 * DO; /* FROM LFQ OR LSQA DECREMENT 0169 00388000 * ASCBFMCT AFTER @Z40FPYL*/ 00389000 * CALL PGSECS; /* CALCULATING PGSECS @Z40FPYL*/ 00390000 BAL @14,PGSECS 0170 00391000 * RSMASCB->ASCBFMCT=RSMASCB->ASCBFMCT-1;/* @Z40FPYL*/ 00392000 L @11,RSMASCB(,RSMHDPTR) 0171 00393000 LH @07,ASCBFMCT(,@11) 0171 00394000 BCTR @07,0 0171 00395000 STH @07,ASCBFMCT(,@11) 0171 00396000 * END; /* @Z40FPYL*/ 00397000 * ELSE 0173 00398000 * ; /* WHEREVER IT CAME FROM @Z40FPYL*/ 00399000 @RF00168 DS 0H 0174 00400000 * GOTO ENQAFQ; /* IT MUST GO TO AFQ ENQ @Z40FPYL*/ 00401000 B ENQAFQ 0174 00402000 * END; /* PROCESSOR @Z40FPYL*/ 00403000 * ELSE 0176 00404000 * ; /* TO BE ENQD BUT NOT TO AFQ 0176 00405000 * @Z40FPYL*/ 00406000 @RF00164 DS 0H 0177 00407000 * IF SAVETQID=PFTLFQN|SAVETQID=PFTLSQAN THEN/* @Z40FPYL*/ 00408000 CLI SAVETQID(PVTPTR),128 0177 00409000 BE @RT00177 0177 00410000 CLI SAVETQID(PVTPTR),132 0177 00411000 BNE @RF00177 0177 00412000 @RT00177 DS 0H 0178 00413000 * DO; /* IF FRAME GOES FROM THE CFQ TO 00414000 * EITHER THE @Z40FPYL*/ 00415000 * IF SAVEDQID=PFTCFQN THEN /* LFQ OR LSQA Q THE @Z40FPYL*/ 00416000 CLI SAVEDQID,8 0179 00417000 BNE @RF00179 0179 00418000 * DO; /* COUNTS IN THE PVT AND ASCB 0180 00419000 * HAVE TO @Z40FPYL*/ 00420000 * PVTCFMCT=PVTCFMCT-1; /* BE ADJUSTED @Z40FPYL*/ 00421000 LH @11,PVTCFMCT(,PVTPTR) 0181 00422000 BCTR @11,0 0181 00423000 STH @11,PVTCFMCT(,PVTPTR) 0181 00424000 * RSMHDPTR=SAVEASCB->ASCBRSM;/* @Z40FPYL*/ 00425000 L @11,SAVEASCB(,PVTPTR) 0182 00426000 L RSMHDPTR,ASCBRSM(,@11) 0182 00427000 * CALL PGSECS; /* @Z40FPYL*/ 00428000 BAL @14,PGSECS 0183 00429000 * SAVEASCB->ASCBFMCT=SAVEASCB->ASCBFMCT+1;/* @Z40FPYL*/ 00430000 L @11,SAVEASCB(,PVTPTR) 0184 00431000 LA @07,1 0184 00432000 AH @07,ASCBFMCT(,@11) 0184 00433000 STH @07,ASCBFMCT(,@11) 0184 00434000 * END; /* @Z40FPYL*/ 00435000 * ELSE /* @ZA16816*/ 00436000 * DO; /* IF FRAME FROM LFQ OR LSQAQ 0186 00437000 * @ZA16816*/ 00438000 B @RC00179 0186 00439000 @RF00179 DS 0H 0187 00440000 * IF SAVEDQID=PFTLFQN| /* AND GOING TO LFQ @ZA16816*/ 00441000 * SAVEDQID=PFTLSQAN THEN/* OR LSQA Q @ZA16816*/ 00442000 CLI SAVEDQID,128 0187 00443000 BE @RT00187 0187 00444000 CLI SAVEDQID,132 0187 00445000 BNE @RF00187 0187 00446000 @RT00187 DS 0H 0188 00447000 * DO; /* THEN @ZA16816*/ 00448000 * CALL PGSECS; /* CALC PAGE SECS @ZA16816*/ 00449000 BAL @14,PGSECS 0189 00450000 * RSMASCB->ASCBFMCT=RSMASCB->ASCBFMCT-1;/* DECR COUNT 00451000 * FOR LOCAL DEQ @ZA16816*/ 00452000 L @11,RSMASCB(,RSMHDPTR) 0190 00453000 LH @07,ASCBFMCT(,@11) 0190 00454000 BCTR @07,0 0190 00455000 STH @07,ASCBFMCT(,@11) 0190 00456000 * RSMHDPTR=SAVEASCB->ASCBRSM;/* @ZA16816*/ 00457000 L @11,SAVEASCB(,PVTPTR) 0191 00458000 L RSMHDPTR,ASCBRSM(,@11) 0191 00459000 * CALL PGSECS; /* CALC PAGE SECS @ZA16816*/ 00460000 BAL @14,PGSECS 0192 00461000 * SAVEASCB->ASCBFMCT=SAVEASCB->ASCBFMCT+1;/* BUMP COUNT 00462000 * FOR LOCAL ENQ @ZA16816*/ 00463000 L @11,SAVEASCB(,PVTPTR) 0193 00464000 LA @07,1 0193 00465000 AH @07,ASCBFMCT(,@11) 0193 00466000 STH @07,ASCBFMCT(,@11) 0193 00467000 * END; /* @ZA16816*/ 00468000 * ELSE /* @ZM45087*/ 00469000 * DO; /* @ZM45087*/ 00470000 B @RC00187 0195 00471000 @RF00187 DS 0H 0196 00472000 * IF SAVEDQID=PFTRSBQN THEN/* IF FRAME WAS STOLEN FROM 00473000 * THE RSB QUEUE FOR LSQA 0196 00474000 * ALLOCATION, THE COUNT IN THE 00475000 * ASCB MUST BE ADJUSTED @ZM45087*/ 00476000 CLI SAVEDQID,16 0196 00477000 BNE @RF00196 0196 00478000 * DO; /* @ZM45087*/ 00479000 * RSMHDPTR=SAVEASCB->ASCBRSM;/* @ZM45087*/ 00480000 L @11,SAVEASCB(,PVTPTR) 0198 00481000 L RSMHDPTR,ASCBRSM(,@11) 0198 00482000 * CALL PGSECS; /* @ZM45087*/ 00483000 BAL @14,PGSECS 0199 00484000 * SAVEASCB->ASCBFMCT=SAVEASCB->ASCBFMCT+1;/* 0200 00485000 * @ZM45087*/ 00486000 L @11,SAVEASCB(,PVTPTR) 0200 00487000 LA @07,1 0200 00488000 AH @07,ASCBFMCT(,@11) 0200 00489000 STH @07,ASCBFMCT(,@11) 0200 00490000 * END; /* @ZM45087*/ 00491000 * END; /* @ZA16816*/ 00492000 * END; /* @ZA16816*/ 00493000 * END; /* @Z40FPYL*/ 00494000 * ELSE 0205 00495000 * ; /* @Z40FPYL*/ 00496000 @RF00177 DS 0H 0206 00497000 * IF SAVETQID=PFTSQAN THEN /* IF FRAME WAS STOLEN @Z4OFPYL*/ 00498000 @RC00177 CLI SAVETQID(PVTPTR),12 0206 00499000 BNE @RF00206 0206 00500000 * DO; /* FROM LFQ OR CFQ FOR @Z40FPYL*/ 00501000 * IF SAVEDQID=PFTLFQN THEN /* SQA ALLOCATION FRAME @Z40FPYL*/ 00502000 CLI SAVEDQID,128 0208 00503000 BNE @RF00208 0208 00504000 * DO; /* COUNTS MUST BE @Z40FPYL*/ 00505000 * CALL PGSECS; /* DECREMENTED. @Z40FPYL*/ 00506000 BAL @14,PGSECS 0210 00507000 * RSMASCB->ASCBFMCT=RSMASCB->ASCBFMCT-1;/* @Z40FPYL*/ 00508000 L @11,RSMASCB(,RSMHDPTR) 0211 00509000 LH @07,ASCBFMCT(,@11) 0211 00510000 BCTR @07,0 0211 00511000 STH @07,ASCBFMCT(,@11) 0211 00512000 * END; /* @Z4OFPYL*/ 00513000 * ELSE /* @Z40FPYL*/ 00514000 * IF SAVEDQID=PFTCFQN THEN /* @Z40FPYL*/ 00515000 B @RC00208 0213 00516000 @RF00208 CLI SAVEDQID,8 0213 00517000 BNE @RF00213 0213 00518000 * PVTCFMCT=PVTCFMCT-1; /* @Z40FPYL*/ 00519000 LH @11,PVTCFMCT(,PVTPTR) 0214 00520000 BCTR @11,0 0214 00521000 STH @11,PVTCFMCT(,PVTPTR) 0214 00522000 * ELSE 0215 00523000 * ; /* @Z40FPYL*/ 00524000 @RF00213 DS 0H 0216 00525000 * END; /* @Z40FPYL*/ 00526000 * ELSE 0217 00527000 * ; /* @Z40FPYL*/ 00528000 @RF00206 DS 0H 0218 00529000 * IF SAVETQID=PFTCFQN THEN /* IF FRAME WAS STOLEN @Z40FPYL*/ 00530000 @RC00206 CLI SAVETQID(PVTPTR),8 0218 00531000 BNE @RF00218 0218 00532000 * DO; /* FROM LFQ FOR CFQ @Z40FPYL*/ 00533000 * IF SAVEDQID=PFTLFQN THEN /* THE COUNTS IN THE @Z40FPYL*/ 00534000 CLI SAVEDQID,128 0220 00535000 BNE @RF00220 0220 00536000 * DO; /* PVT AND ASCB HAVE TO @Z40FPYL*/ 00537000 * PVTCFMCT=PVTCFMCT+1; /* BE ADJUSTED @Z40FPYL*/ 00538000 LA @11,1 0222 00539000 AH @11,PVTCFMCT(,PVTPTR) 0222 00540000 STH @11,PVTCFMCT(,PVTPTR) 0222 00541000 * CALL PGSECS; /* @Z40FPYL*/ 00542000 BAL @14,PGSECS 0223 00543000 * RSMASCB->ASCBFMCT=RSMASCB->ASCBFMCT-1;/* @Z40FPYL*/ 00544000 L @11,RSMASCB(,RSMHDPTR) 0224 00545000 LH @07,ASCBFMCT(,@11) 0224 00546000 BCTR @07,0 0224 00547000 STH @07,ASCBFMCT(,@11) 0224 00548000 * END; /* @Z40FPYL*/ 00549000 * ELSE /* @Z40FPYL*/ 00550000 * DO; /* @ZM45087*/ 00551000 B @RC00220 0226 00552000 @RF00220 DS 0H 0227 00553000 * IF SAVEDQID=PFTRSBQN THEN/* @ZM45087*/ 00554000 CLI SAVEDQID,16 0227 00555000 BNE @RF00227 0227 00556000 * PVTCFMCT=PVTCFMCT+1; /* IF FRAME WAS STOLEN FROM THE 00557000 * RSBQ FOR CFQ, THE COUNT IN THE 00558000 * PVT HAS TO BE ADJUSTED 0228 00559000 * @ZM45087*/ 00560000 LA @11,1 0228 00561000 AH @11,PVTCFMCT(,PVTPTR) 0228 00562000 STH @11,PVTCFMCT(,PVTPTR) 0228 00563000 * END; /* @ZM45087*/ 00564000 * END; /* @Z40FPYL*/ 00565000 * ELSE 0231 00566000 * ; /* @Z40FPYL*/ 00567000 @RF00218 DS 0H 0232 00568000 * IF SAVETQID=PFTRSBQN THEN /* @ZM45087*/ 00569000 @RC00218 CLI SAVETQID(PVTPTR),16 0232 00570000 BNE @RF00232 0232 00571000 * PVTCFMCT=PVTCFMCT-1; /* IF FRAME IS GOING TO THE RSBQ, 00572000 * THEN THE PVT CFQ COUNT MUST BE 00573000 * DECREMENTED BECAUSE AN RSB 0233 00574000 * FRAME CAN ONLY BE STOLEN FROM 00575000 * CFQ. @ZM45087*/ 00576000 LH @11,PVTCFMCT(,PVTPTR) 0233 00577000 BCTR @11,0 0233 00578000 STH @11,PVTCFMCT(,PVTPTR) 0233 00579000 * PFTQNDX=SAVETQID; /* PFTE IS TO BE ENQUEUED. SET 0234 00580000 * THE QUEUE ID TO THE REQUESTED 00581000 * QUEUE ID */ 00582000 @RF00232 SLR @11,@11 0234 00583000 IC @11,SAVETQID(,PVTPTR) 0234 00584000 STC @11,PFTQNDX(,PFTEPTR) 0234 00585000 * RESPECIFY 0235 00586000 * (QHEADEND, 0235 00587000 * TQID) RESTRICTED; 0235 00588000 * TQID=SAVETQID; /* GET THE TQID IN A REGISTER */ 00589000 LR TQID,@11 0236 00590000 * IF TQIDASCBRSM->RSMQS)+TQID; 0241 00617000 L @11,SAVEASCB(,PVTPTR) 0241 00618000 L QHEADEND,ASCBRSM(,@11) 0241 00619000 LA QHEADEND,RSMQS(,QHEADEND) 0241 00620000 ALR QHEADEND,TQID 0241 00621000 * END; 0242 00622000 * GOTO PFTENQ; /* GO TO THE ENQUEUE PROCESSOR */ 00623000 B PFTENQ 0243 00624000 * RESPECIFY 0244 00625000 * (QHEADEND, 0244 00626000 * TQID) UNRESTRICTED; 0244 00627000 * 0245 00628000 */********************************************************************/ 00629000 */* THE FOLLOWING SECTION PROCESSES PFTES TO BE ENQUEUED TO THE AFQ. */ 00630000 */* IF THE PFTE HAS BEEN INTERCEPTED, THE INTERCEPT PROCESSOR WILL */ 00631000 */* PROCESS THE PFTE. IF THE PFTE HAS NOT BEEN INTERCEPTED, THE SQA */ 00632000 */* DEFICIT COUNT WILL BE TESTED TO DETERMINE IF THE SQA RESERVE */ 00633000 */* QUEUE NEEDS PFTE'S. IF THE SQA DEFICIT COUNT INDICATES A NEED OF */ 00634000 */* PFTE'S, THE SQA RESERVE PROCESSOR WILL BE CALLED TO ENQUEUE THE */ 00635000 */* PFTE TO THE SQA RESERVE QUEUE. IF THE COUNT DOES NOT INDICATE A */ 00636000 */* NEED, THE PFTE WILL BE ENQUEUED TO THE AFQ. IF THE PFTE IS TO BE */ 00637000 */* QUEUED TO THE HEAD OF THE AFQ, THE ENQUEUE PROCESS IS DONE IN */ 00638000 */* THIS SECTION. OTHERWISE, THE PFTE IS PASSED TO THE ENQUEUE */ 00639000 */* PROCESSOR TO BE ENQUEUED TO THE END OF THE AFQ. THE ENQUEUE */ 00640000 */* PROCESSOR THEN WILL RETURN CONTROL TO CHECK THE AFC. */ 00641000 */* THE FIRST SECTION PROCESSES PFTE'S SENT TO THE AFQ WHICH HAVE */ 00642000 */* BEEN INTERCEPTED BY OTHER RSM FUNCTIONS. PROCESSING IS DETERMINED*/ 00643000 */* BY THE OFFLINE AND V=R INTERCEPT FLAGS. IF EITHER FLAG IS ON, THE*/ 00644000 */* APPROPRIATE INTERCEPT ROUTINE WILL BE CALLED. IF THE PFTE IS NOT */ 00645000 */* RETURNED, CONTROL IS PASSED TO THE EXIT ROUTINE TO RETURN TO THE */ 00646000 */* CALLER. IF THE PFTE IS NOT INTERCEPTED, CONTROL PASSES TO CHECK */ 00647000 */* THE SQA RESERVE QUEUE. */ 00648000 */********************************************************************/ 00649000 * 0245 00650000 *ENQAFQ: 0245 00651000 * PFTFXCT=0; /* ZERO THE FIX COUNT @VS01962*/ 00652000 ENQAFQ SLR @11,@11 0245 00653000 STH @11,PFTFXCT(,PFTEPTR) 0245 00654000 * PFTUIC=0; /* ZERO THE UIC. @VS01962*/ 00655000 MVI PFTUIC(PFTEPTR),X'00' 0246 00656000 * IF PFTVRINT='1'B THEN /* TEST IF THE PFTE IS 0247 00657000 * INTERCEPTED FOR V=R ALLOCATION*/ 00658000 TM PFTVRINT(PFTEPTR),B'01000000' 0247 00659000 BNO @RF00247 0247 00660000 * DO; /* IS INTERCEPTED FOR V=R 0248 00661000 * ALLOCATION. PASS THE PFTE TO 00662000 * THE V=R INTERCEPT ROUTINE TO 00663000 * PROCESS. */ 00664000 * SAVECSID=RCACSECT; /* SAVE THE CALLER'S MODULE ID */ 00665000 MVC SAVECSID(1,PVTPTR),RCACSECT(RCAPTR) 0249 00666000 * RESPECIFY 0250 00667000 * (R1) RESTRICTED; 0250 00668000 * R1=PFTERBN; /* GET THE RBN OF THE PFTE */ 00669000 LR R1,PFTERBN 0251 00670000 * CALL IEAVEQRI; /* CALL V=R INTERCEPT */ 00671000 L @15,PVTPVRIN(,PVTPTR) 0252 00672000 BALR @14,@15 0252 00673000 * RCACSECT=SAVECSID; /* RESTORE THE CALLER'S MODULE ID*/ 00674000 MVC RCACSECT(1,RCAPTR),SAVECSID(PVTPTR) 0253 00675000 * IF R1=0 THEN /* TEST IF V=R PROCESSED THE PFTE*/ 00676000 LTR R1,R1 0254 00677000 BZ @RT00254 0254 00678000 * GOTO EXITPFTE; /* V=R PROCESSED THE PFTE. GO TO 00679000 * THE EXIT PROCESSOR. */ 00680000 * END; 0256 00681000 * IF PFTOFINT='1'B THEN /* TEST IF THE PFTE IS 0257 00682000 * INTERCEPTED FOR OFFLINE */ 00683000 @RF00247 TM PFTOFINT(PFTEPTR),B'00000001' 0257 00684000 BNO @RF00257 0257 00685000 * DO; /* IS INTERCEPTED FOR OFFLINE. 0258 00686000 * PASS THE PFTE TO THE OFFLINE 00687000 * INTERCEPTION ROUTINE */ 00688000 * SAVECSID=RCACSECT; /* SAVE THE CALLER'S MODULE ID */ 00689000 MVC SAVECSID(1,PVTPTR),RCACSECT(RCAPTR) 0259 00690000 * R1=PFTERBN; /* GET THE RBN OF THE PFTE */ 00691000 LR R1,PFTERBN 0260 00692000 * CALL IEAVRCFI; /* CALL RECONFIGURATION INTERCEPT*/ 00693000 L @15,PVTPRCFI(,PVTPTR) 0261 00694000 BALR @14,@15 0261 00695000 * RCACSECT=SAVECSID; /* RESTORE THE CALLER'S MODULE ID*/ 00696000 MVC RCACSECT(1,RCAPTR),SAVECSID(PVTPTR) 0262 00697000 * IF R1=0 THEN /* TEST IF RECONFIG. PROCESSED 0263 00698000 * THE PFTE. */ 00699000 LTR R1,R1 0263 00700000 BZ @RT00263 0263 00701000 * GOTO EXITPFTE; /* RECONFIG. PROCESSED THE PFTE. 00702000 * GO TO THE EXIT PROCESSOR. */ 00703000 * END; 0265 00704000 * RESPECIFY 0266 00705000 * (R1) UNRESTRICTED; 0266 00706000 @RF00257 DS 0H 0267 00707000 * PFTDFRLS='0'B; /* TURN OFF DEF RELS FLAG 0267 00708000 * @VS01962*/ 00709000 * PFTOFFLN='0'B; /* TURN OFF OFFLINE FLAG @VS01962*/ 00710000 * PFTSTEAL='0'B; /* TURN OFF STEAL FLAG */ 00711000 NI PFTDFRLS(PFTEPTR),B'00110111' 0269 00712000 * 0270 00713000 */********************************************************************/ 00714000 */* THE FOLLOWING SECTION DIVERTS A PFTE WHICH WAS TO BE ENQUEUED TO */ 00715000 */* THE AFQ AND PREPARES IT TO BE ENQUEUED TO THE SQA RESERVE QUEUE. */ 00716000 */********************************************************************/ 00717000 * 0270 00718000 * IF PVTSQDC^=0 THEN /* TEST IF THE SQA RESERVE QUEUE 00719000 * NEEDS PFTES */ 00720000 CLI PVTSQDC(PVTPTR),0 0270 00721000 BE @RF00270 0270 00722000 * DO; 0271 00723000 * 0271 00724000 * /*************************************************************/ 00725000 * /* */ 00726000 * /* SINCE PFTSQDC IS NOT ZERO, THE SQA RESERVE QUEUE NEEDS */ 00727000 * /* PREFERRED AREA FRAMES. IF PVTSQDC IS GREATER THAN PVTSQNPC*/ 00728000 * /* THE QUEUE IS SHORT OF FRAMES AND THE INPUT PFTE SHOULD BE */ 00729000 * /* ADDED TO THE QUEUE. IF PVTSQDC=PVTSQNPC THEN THE QUEUE IS */ 00730000 * /* NOT SHORT OF PFTES, BUT DOES NOT HAVE ALL PREFERRED AREA */ 00731000 * /* FRAMES AS DESIRED. IN THIS CASE, EXCHANGE THE INPUT FRAME */ 00732000 * /* WITH ONE ON THE QUEUE WHICH IS LESS DESIRABLE. @ZA16816*/ 00733000 * /* */ 00734000 * /*************************************************************/ 00735000 * 0272 00736000 * IF PVTSQDC=PVTSQNPC THEN /* IF COUNTS ARE EQUAL, @ZA16816*/ 00737000 CLC PVTSQDC(1,PVTPTR),PVTSQNPC(PVTPTR) 0272 00738000 BNE @RF00272 0272 00739000 * DO; /* EXCHANGE FRAMES. @ZA16816*/ 00740000 * IF PFTPREF='1'B THEN /* IF PREF - TAKE FRAME @ZA16816*/ 00741000 TM PFTPREF(PFTEPTR),B'00000100' 0274 00742000 BNO @RF00274 0274 00743000 * PVTSQDC=PVTSQDC-1; /* NO QUESTIONS ASKED. @ZA16816*/ 00744000 SLR @11,@11 0275 00745000 IC @11,PVTSQDC(,PVTPTR) 0275 00746000 BCTR @11,0 0275 00747000 STC @11,PVTSQDC(,PVTPTR) 0275 00748000 * ELSE /* IF NON-PREF - REFUSE @ZA16816*/ 00749000 * DO; /* @ZA16816*/ 00750000 B @RC00274 0276 00751000 @RF00274 DS 0H 0277 00752000 * IF PFTVR='1'B| /* FRAME UNLESS IT IS @ZA16816*/ 00753000 * PVTSQVRC=0 THEN /* BETTER THAN WHAT IS @ZA16816*/ 00754000 TM PFTVR(PFTEPTR),B'00100000' 0277 00755000 BO @RT00277 0277 00756000 CLI PVTSQVRC(PVTPTR),0 0277 00757000 BE @RT00277 0277 00758000 * GOTO AFQENQ; /* ALREADY ON SQA RSV Q. @ZA16816*/ 00759000 * ELSE /* @ZA16816*/ 00760000 * PVTSQNPC=PVTSQNPC+1;/* INC NONPREF COUNT @ZA16816*/ 00761000 LA @11,1 0279 00762000 SLR @07,@07 0279 00763000 IC @07,PVTSQNPC(,PVTPTR) 0279 00764000 ALR @11,@07 0279 00765000 STC @11,PVTSQNPC(,PVTPTR) 0279 00766000 * END; /* @ZA16816*/ 00767000 * RSVEXTRA='1'B; /* INDICATE EXTRA FRAME @ZA16816*/ 00768000 @RC00274 OI RSVEXTRA(PVTPTR),B'01000000' 0281 00769000 * END; /* END EXCHANGE MODE @ZA16816*/ 00770000 * ELSE /* IF COUNTS ARE NOT EQ @ZA16816*/ 00771000 * DO; /* ADD PFTE TO QUEUE @ZA16816*/ 00772000 B @RC00272 0283 00773000 @RF00272 DS 0H 0284 00774000 * IF PFTPREF='1'B THEN /* IF A PREF FRAME, @ZA16816*/ 00775000 TM PFTPREF(PFTEPTR),B'00000100' 0284 00776000 BNO @RF00284 0284 00777000 * PVTSQDC=PVTSQDC-1; /* DECR DEFICIT COUNT @ZA16816*/ 00778000 SLR @11,@11 0285 00779000 IC @11,PVTSQDC(,PVTPTR) 0285 00780000 BCTR @11,0 0285 00781000 STC @11,PVTSQDC(,PVTPTR) 0285 00782000 * ELSE /* IF A NON-PREF @ZA16816*/ 00783000 * DO; /* THEN @ZA16816*/ 00784000 B @RC00284 0286 00785000 @RF00284 DS 0H 0287 00786000 * PVTSQNPC=PVTSQNPC+1;/* INCR NON-PREF COUNT @ZA16816*/ 00787000 LA @11,1 0287 00788000 SLR @07,@07 0287 00789000 IC @07,PVTSQNPC(,PVTPTR) 0287 00790000 ALR @07,@11 0287 00791000 STC @07,PVTSQNPC(,PVTPTR) 0287 00792000 * IF PFTVR='1'B THEN /* AND IF V=R, @ZA16816*/ 00793000 TM PFTVR(PFTEPTR),B'00100000' 0288 00794000 BNO @RF00288 0288 00795000 * PVTSQVRC=PVTSQVRC+1;/* INCR V=R COUNT ALSO @ZA16816*/ 00796000 SLR @07,@07 0289 00797000 IC @07,PVTSQVRC(,PVTPTR) 0289 00798000 ALR @11,@07 0289 00799000 STC @11,PVTSQVRC(,PVTPTR) 0289 00800000 * END; /* @ZA16816*/ 00801000 @RF00288 DS 0H 0291 00802000 * PVTSQAFX=PVTSQAFX+1; /* PVTSQAFX AND PVTCNTFX @YA01572*/ 00803000 @RC00284 LA @11,1 0291 00804000 LH @07,PVTSQAFX(,PVTPTR) 0291 00805000 ALR @07,@11 0291 00806000 STH @07,PVTSQAFX(,PVTPTR) 0291 00807000 * PVTCNTFX=PVTCNTFX+1; /* ARE INCREMENTED @YA01572*/ 00808000 * 0292 00809000 AH @11,PVTCNTFX(,PVTPTR) 0292 00810000 STH @11,PVTCNTFX(,PVTPTR) 0292 00811000 * /*********************************************************/ 00812000 * /* */ 00813000 * /* NOTIFY SRM WHEN THE MAXIMUM NUMBER OF FRAMES HAS BEEN */ 00814000 * /* FIXED @YA01572*/ 00815000 * /* */ 00816000 * /*********************************************************/ 00817000 * 0293 00818000 * IF PVTCNTFX=PVTMAXFX THEN/* CHECK THRESHOLD @YA01572*/ 00819000 CH @11,PVTMAXFX(,PVTPTR) 0293 00820000 BNE @RF00293 0293 00821000 * DO; /* FOR SRM @YA01572*/ 00822000 * RESPECIFY 0295 00823000 * (R1, 0295 00824000 * R13) RESTRICTED; /* @YA01572*/ 00825000 * R13=ADDR(PVTSAVE); /* SRM SAVE AREA @YA01572*/ 00826000 LA R13,PVTSAVE(,PVTPTR) 0296 00827000 * R1=MAXSYS; /* CODE FOR THRESHOLD REACHED FOR 00828000 * MAX FIX-COUNT @YA0A572*/ 00829000 LA R1,4 0297 00830000 * GENERATE NODEFS REFS(CVTPTR,CVTOPTE,CVT) NOSETS NOFLOWS 00831000 * ; 0298 00832000 SYSEVENT AVQLOW,ENTRY=BRANCH 00833000 * RESPECIFY 0299 00834000 * (R1, 0299 00835000 * R13) UNRESTRICTED; 0299 00836000 * END; /* END OF SYSEVENT @YA01572*/ 00837000 * END; /* END ADD MODE @ZA16816*/ 00838000 @RF00293 DS 0H 0302 00839000 * PFTQNDX=PFTSRQN; /* SET ID= SQA RSV QUEUE @ZA16816*/ 00840000 @RC00272 MVI PFTQNDX(PFTEPTR),X'04' 0302 00841000 * PFTPGID=0; /* PREVENT RECLAIM @ZA16816*/ 00842000 SLR @11,@11 0303 00843000 ST @11,PFTPGID(,PFTEPTR) 0303 00844000 * PFTFLAG1='00'X; /* TURN OFF FLAGS @ZA16816*/ 00845000 MVI PFTFLAG1(PFTEPTR),X'00' 0304 00846000 * QHEADEND=ADDR(PVTRSRVF); /* INIT FOR SQA RSV QUEUE 0305 00847000 * @ZA16816*/ 00848000 LA QHEADEND,PVTRSRVF(,PVTPTR) 0305 00849000 * GOTO PFTENQ; /* GO PUT PFTE ON QUEUE @ZA16816*/ 00850000 B PFTENQ 0306 00851000 * END; /* END OF SQA RSV Q PROCESS 0307 00852000 * @ZA16816*/ 00853000 * 0308 00854000 */********************************************************************/ 00855000 */* THE FOLLOWING SECTION PERFORMS THE SPECIAL PROCESSING ASSOCIATED */ 00856000 */* WITH SENDING A PFTE TO THE AFQ. THE AFC IS INCREMENTED AND THE */ 00857000 */* STORAGE KEYS OF THE FRAME ARE ZEROED. IF THE REQUESTOR HAS */ 00858000 */* INDICATED THAT THE PFTE IS TO BE QUEUED TO THE HEAD OF THE AFQ, */ 00859000 */* THAT OPERATION IS PERFORMED IN THIS SECTION. CONTROL PASSES TO */ 00860000 */* THE AFC CHECK ROUTINE. IF THE PFTE IS NOT TO BE QUEUED TO THE */ 00861000 */* HEAD OF THE AFQ, THE PFTE IS PASSED TO THE ENQUEUE PROCESSOR, */ 00862000 */* WHICH WILL ENQUEUE THE PFTE TO THE AFQ. THE ENQUEUE PROCESSOR */ 00863000 */* WILL RETURN CONTROL TO THE AFC CHECK ROUTINE. */ 00864000 */********************************************************************/ 00865000 * 0308 00866000 *AFQENQ: 0308 00867000 * RESPECIFY 0308 00868000 * (KEYREG, 0308 00869000 * PFTERBN2, 0308 00870000 * PFTERBN) RSTD; /* @Z40WPYD*/ 00871000 @RF00270 DS 0H 0308 00872000 AFQENQ DS 0H 0309 00873000 * GENERATE NODEFS /* SET THE STORAGE KEYS OF THE 0309 00874000 * PAGE TO ZERO */ 00875000 * REFS(KEYREG,PFTERBN2,PFTERBN) SETS(KEYREG,PFTERBN2) NOFLOWS; 00876000 LR PFTERBN2,PFTERBN GET RBN @Z40WPYD 00877000 SLL PFTERBN2,8 MAKE RBN A 24-BIT ADDRESS @Z40WPYD 00878000 KEYFLAG EQU 8 CONSTANT USED TO SET A FREED FRAMES 00879000 * STORAGE KEY TO KEY ZERO, FETCH 00880000 * PROTECT 00881000 LA KEYREG,KEYFLAG GET THE NEW KEY AND FLAGS 00882000 SSK KEYREG,PFTERBN2 STORE NEW STORAGE KEY OF 2K BLOCK 00883000 * @Z40WPYD 00884000 LA PFTERBN2,2048(PFTERBN2) GET NEXT 2K BOUNDARY @Z40WPYD 00885000 SSK KEYREG,PFTERBN2 STORE NEW STORAGE KEY OF 2K BLOCK 00886000 * RESPECIFY 0310 00887000 * (KEYREG, 0310 00888000 * PFTERBN2) UNRSTD; /* @Z40WPYD*/ 00889000 * PFTQNDX=PFTAFQN; /* SET QID IN PFTE */ 00890000 MVI PFTQNDX(PFTEPTR),X'00' 0311 00891000 * PFTFLAG1='80'X; /* TURN OFF FLAGS AND SET FLAG: 00892000 * PFTE IS ON AFQ @VS01962*/ 00893000 MVI PFTFLAG1(PFTEPTR),X'80' 0312 00894000 * PVTAFC=PVTAFC+1; /* INCREMENT AVAIL. FRAME COUNT */ 00895000 LA @11,1 0313 00896000 AH @11,PVTAFC(,PVTPTR) 0313 00897000 STH @11,PVTAFC(,PVTPTR) 0313 00898000 * RESPECIFY 0314 00899000 * (QHEADEND) RESTRICTED; 0314 00900000 * QHEADEND=ADDR(PVTAFQF); /* AFQ POINTERS ARE IN THE PVT: 00901000 * GET ADDRESS OF THESE POINTERS */ 00902000 LA QHEADEND,PVTAFQF(,PVTPTR) 0315 00903000 * IF SAVEFLAG='0'B THEN /* TEST IF PFTE IS TO BE QUEUED 00904000 * TO THE HEAD OR END OF THE AFQ */ 00905000 TM SAVEFLAG(PVTPTR),B'10000000' 0316 00906000 BZ @RT00316 0316 00907000 * GOTO PFTENQ; /* IS TO BE ENQUEUED TO THE END 00908000 * OF THE AFQ. GO TO THE REGULAR 00909000 * ENQ PROCESSOR. */ 00910000 * IF ENDPTR=0 THEN /* TEST IF THE AFQ IS EMPTY */ 00911000 ICM @11,3,ENDPTR(QHEADEND) 0318 00912000 BZ @RT00318 0318 00913000 * GOTO PFTENQ; /* AFQ IS EMPTY. GO TO THE 0319 00914000 * REGULAR ENQ PROCESSOR. */ 00915000 * RESPECIFY 0320 00916000 * (FRSTPFTE) RESTRICTED; 0320 00917000 * FRSTPFTE=PVTPFTP+HEADPTR; /* GET THE ADDRESS OF THE FIRST 00918000 * PFTE ON THE AFQ */ 00919000 SLR FRSTPFTE,FRSTPFTE 0321 00920000 ICM FRSTPFTE,3,HEADPTR(QHEADEND) 0321 00921000 AL FRSTPFTE,PVTPFTP(,PVTPTR) 0321 00922000 * FRSTPFTE->PFTBQPTR=PFTERBN; /* MAKE THE FIRST PFTE POINT BACK 00923000 * TO THE INPUT PFTE */ 00924000 STH PFTERBN,PFTBQPTR(,FRSTPFTE) 0322 00925000 * PFTFQPTR=HEADPTR; /* MAKE THE INPUT PFTE POINT 0323 00926000 * FOREWARD TO THE FIRST PFTE */ 00927000 MVC PFTFQPTR(2,PFTEPTR),HEADPTR(QHEADEND) 0323 00928000 * HEADPTR=PFTERBN; /* MAKE THE INPUT PFTE THE NEW 0324 00929000 * FIRST PFTE ON THE AFQ */ 00930000 STH PFTERBN,HEADPTR(,QHEADEND) 0324 00931000 * RESPECIFY 0325 00932000 * (QHEADEND, 0325 00933000 * FRSTPFTE, 0325 00934000 * PFTERBN, 0325 00935000 * PFTEPTR) UNRESTRICTED; 0325 00936000 * 0326 00937000 */********************************************************************/ 00938000 */* THE FOLLOWING SECTION CHECKS THE AFC FOR SRM NOTIFICATION. */ 00939000 */* IF THE SRM WAS NOTIFIED THAT THE AFC WAS LOW AND NOW THE */ 00940000 */* AFC IS ABOVE THE SAFE THRESHOLD, THE SRM WILL BE NOTIFIED */ 00941000 */* THAT THE AFC IS NOW OK. THIS SECTION IS EXECUTED WHENEVER A PFTE */ 00942000 */* IS ENQUEUED TO THE AFQ. */ 00943000 */********************************************************************/ 00944000 * 0326 00945000 *CHECKAFC: 0326 00946000 * IF PVTLSI='1'B THEN /* TEST IF THE LOW AFQ SYSEVENT 00947000 * HAS BEEN ISSUED */ 00948000 CHECKAFC TM PVTLSI(PVTPTR),B'00000100' 0326 00949000 BNO @RF00326 0326 00950000 * DO; /* SYSEVENT HAS BEEN ISSUED. SEE 00951000 * IF AFC IS NOW ABOVE THRESHOLD.*/ 00952000 * IF PVTAFCASCBRSM->RSMGFAD='0'B THEN/* TEST IF GFA HAS BEEN 0342 01008000 * SCHEDULED FOR THIS ADDRESS 0342 01009000 * SPACE */ 01010000 L @11,PCBASCB(,PCBPTR) 0342 01011000 L @11,ASCBRSM(,@11) 0342 01012000 TM RSMGFAD(@11),B'00100000' 0342 01013000 BNZ @RF00342 0342 01014000 * DO; /* @YA01572*/ 01015000 * RESPECIFY 0344 01016000 * (R15) RESTRICTED; /* @YA01572*/ 01017000 * PTR1=PCBPTR; /* @YA01572*/ 01018000 LR PTR1,PCBPTR 0345 01019000 * DO WHILE PTR1^=0; /* @YA01572*/ 01020000 B @DE00346 0346 01021000 @DL00346 DS 0H 0347 01022000 * IF PTR1->PCBFXC^=0 THEN /* @YA01572*/ 01023000 CLI PCBFXC(PTR1),0 0347 01024000 BE @RF00347 0347 01025000 * DO; 0348 01026000 * IF PVTAFC>PVTDEFFX THEN/* WHEN AVAILABLE FRAME @YA01572*/ 01027000 LH @14,PVTAFC(,PVTPTR) 0349 01028000 CH @14,PVTDEFFX(,PVTPTR) 0349 01029000 BH @RT00349 0349 01030000 * GOTO SCHEDGFA; /* COUNT > THAN DEFER @YA01572*/ 01031000 * ELSE /* THRESHOLD, SCHEDULE @YA01572*/ 01032000 * GOTO GETPCB; /* GFA DEFER PROCESSOR @YA01572*/ 01033000 B GETPCB 0351 01034000 * END; /* @YA01572*/ 01035000 * ELSE /* CHECK RELATEDS FOR A FIX 0353 01036000 * @YA01572*/ 01037000 * PTR1=PTR1->PCBRLPA; /* REQUEST PCB. @YA01572*/ 01038000 @RF00347 SLR @14,@14 0353 01039000 ICM @14,7,PCBRLPA(PTR1) 0353 01040000 LR PTR1,@14 0353 01041000 * END; /* @YA01572*/ 01042000 @DE00346 LTR PTR1,PTR1 0354 01043000 BNZ @DL00346 0354 01044000 * GOTO SCHEDGFA; /* SCHEDULE GFA DEFER FOR 0355 01045000 * @YA01572*/ 01046000 B SCHEDGFA 0355 01047000 * END; /* A PAGE-FAULT PCB. @YA01572*/ 01048000 *GETPCB: 0357 01049000 * PCBPTR=PCBFQPA; /* ARE MORE PCB'S ON THE GFA 0357 01050000 * DEFER QUEUE. GET THE ADDRESS 01051000 * OF THE NEXT PCB. */ 01052000 @RF00342 DS 0H 0357 01053000 GETPCB SLR @14,@14 0357 01054000 ICM @14,7,PCBFQPA(PCBPTR) 0357 01055000 LR PCBPTR,@14 0357 01056000 * IF PCBPTR=0 THEN /* TEST IF THERE ARE ANY MORE 0358 01057000 * PCB'S ON THE GFA DEFER QUEUE */ 01058000 LTR PCBPTR,PCBPTR 0358 01059000 BZ @RT00358 0358 01060000 * GOTO EXITPFTE; /* ARE NO MORE PCB'S ON THE GFA 01061000 * DEFER QUEUE. GO TO THE EXIT 0359 01062000 * PROCESSOR WITHOUT SCHEDULING 01063000 * GFA DEFER. */ 01064000 * GOTO NEXTPCB; /* GO TEST IF GFA NEEDS TO BE 0360 01065000 * SCHEDULED FOR THE NEXT PCB. */ 01066000 B NEXTPCB 0360 01067000 * RESPECIFY 0361 01068000 * (SAVER3) RESTRICTED; 0361 01069000 *SCHEDGFA: 0362 01070000 * SAVER3=R3; /* SAVE REG 3 ACROSS INTERFACE */ 01071000 SCHEDGFA LR SAVER3,R3 0362 01072000 * RESPECIFY 0363 01073000 * (R0, 0363 01074000 * R1, 0363 01075000 * R15) RESTRICTED; 0363 01076000 * R0=PVTSRBID; /* GET THE CELL POOL ID FOR THE 01077000 * POOL OF RSM SRB'S */ 01078000 L R0,PVTSRBID(,PVTPTR) 0364 01079000 * GENERATE /* GET A SRB FROM THE CELL POOL 01080000 * TO SCHEDULE GFA */ 01081000 * NODEFS REFS(CVTPTR,CVTGETCL,CVTMAP) SETS(R3,R14,R15) NOFLOWS; 01082000 GETCELL CPID=(0),BRANCH=YES,SAVE=NO 01083000 * R3=SAVER3; /* RESTORE REG 3 */ 01084000 LR R3,SAVER3 0366 01085000 * RESPECIFY 0367 01086000 * (SAVER3, 0367 01087000 * R0) UNRESTRICTED; 0367 01088000 * IF R15^=0 THEN /* TEST IF THE SRB WAS OBTAINED */ 01089000 LTR R15,R15 0368 01090000 BNZ @RT00368 0368 01091000 * GOTO SCHEDRP1; 0369 01092000 * 0369 01093000 * /*****************************************************************/ 01094000 * /* */ 01095000 * /* SRB NOT OBTAINED; LEAVE THE PCB ON THE GFA DEFER QUEUE. */ 01096000 * /* PREPARE TO SCHEDULE IEAVREP1 (SRB REPLENISH) IN MASTER'S */ 01097000 * /* ADDRESS SPACE. @Z40WPYD*/ 01098000 * /* */ 01099000 * /*****************************************************************/ 01100000 * 0370 01101000 * RESPECIFY 0370 01102000 * (R15) UNRESTRICTED; 0370 01103000 * 0370 01104000 * /*****************************************************************/ 01105000 * /* */ 01106000 * /* SRB OBTAINED SUCCESSFULLY */ 01107000 * /* */ 01108000 * /*****************************************************************/ 01109000 * 0371 01110000 * SRB=SRB&&SRB; /* ZERO THE SRB */ 01111000 XC SRB(44,SRBPTR),SRB(SRBPTR) 0371 01112000 * SRBASCB=PCBASCB; /* GET ADDRESS OF ADDRESS SPACE 01113000 * IN WHICH GFA DEFER IS TO RUN */ 01114000 L @11,PCBASCB(,PCBPTR) 0372 01115000 ST @11,SRBASCB(,SRBPTR) 0372 01116000 * SRBEP=PVTPGFAD; /* GET GFA DEFER ENTRY POINT */ 01117000 MVC SRBEP(4,SRBPTR),PVTPGFAD(PVTPTR) 0373 01118000 * SRBID='SRB '; /* SET SRB IDENTIFIER */ 01119000 MVC SRBID(4,SRBPTR),@CC01799 0374 01120000 * SRBRMTR=PVTPSRBP; /* GET RMTR ENTRY POINT */ 01121000 MVC SRBRMTR(4,SRBPTR),PVTPSRBP(PVTPTR) 0375 01122000 * SRBPARM=PCBASCB; /* ASCB ADDRESS IS PARAMETER */ 01123000 ST @11,SRBPARM(,SRBPTR) 0376 01124000 * SRBPRIOR=NONQ; /* NON-QUIESCE PRIORITY */ 01125000 MVI SRBPRIOR(SRBPTR),X'04' 0377 01126000 * SRBPASID=PCBASCB->ASCBASID; /* GET ASID OF THE ADDRESS SPACE 01127000 * IN WHICH GFA IS TO RUN */ 01128000 MVC SRBPASID(2,SRBPTR),ASCBASID(@11) 0378 01129000 * PCBGFAD='1'B; /* FLAG THE PCB AS HAVING HAD GFA 01130000 * SCHEDULED FOR IT. */ 01131000 OI PCBGFAD(PCBPTR),B'01000000' 0379 01132000 * PCBASCB->ASCBRSM->RSMGFAD='1'B; /* FLAG THE RSMHD AS HAVING HAD 01133000 * GFA SCHEDULED FOR THIS ADDRESS 01134000 * SPACE. */ 01135000 L @11,ASCBRSM(,@11) 0380 01136000 OI RSMGFAD(@11),B'00100000' 0380 01137000 * GENERATE /* SCHEDULE GFA DEFER TO THE 0381 01138000 * ADDRESS SPACE OF THE PCB. */ 01139000 * NODEFS REFS(CVTMAP,CVTPTR,CVTLSMQ,SRBFLNK,SRBSECT) SETS(R0,R15) 01140000 * NOFLOWS; 0381 01141000 SCHEDULE SRB=(1),SCOPE=LOCAL 01142000 * GOTO EXITPFTE; /* GO TO THE EXIT PROCESSOR */ 01143000 B EXITPFTE 0382 01144000 * RESPECIFY 0383 01145000 * (PCBPTR, 0383 01146000 * R1) UNRESTRICTED; 0383 01147000 * 0384 01148000 */********************************************************************/ 01149000 */* THE FOLLOWING SECTION ENQUEUES A PFTE TO THE FRAME QUEUE SET UP */ 01150000 */* BY OTHER PROCESSORS. IF THE PFTE WAS ENQUEUED TO THE AFQ, CONTROL*/ 01151000 */* PASSES TO CHECK THE AFC. IF THE PFTE WAS ENQUEUED TO THE SQA */ 01152000 */* RESERVE QUEUE PUTTING THE NUMBER OF PFTES OVER THE AMOUNT NEEDED */ 01153000 */* (RSVEXTRA=1), THEN THE LEAST DESIRABLE PFTE ON THE SQA RESERVE */ 01154000 */* QUEUE IS SELECTED AND THE PFTE MANAGER IS STARTED OVER AGAIN AT */ 01155000 */* THE DEQUEUE PROCESS TO DEQUEUE THE SELECTED PFTE AND ENQUEUE IT */ 01156000 */* ONTO THE AFQ. OTHERWISE, CONTROL GOES TO THE EXIT PROCESSOR */ 01157000 */* TO RETURN CONTROL TO THE CALLER. @ZA16816*/ 01158000 */********************************************************************/ 01159000 * 0384 01160000 * RESPECIFY 0384 01161000 * (QHEADEND, 0384 01162000 * LASTPFTE, 0384 01163000 * PFTERBN, 0384 01164000 * PFTEPTR) RESTRICTED; 0384 01165000 *PFTENQ: 0385 01166000 * IF ENDPTR=0 THEN /* TEST IF THE QUEUE IS EMPTY */ 01167000 PFTENQ ICM @11,3,ENDPTR(QHEADEND) 0385 01168000 BNZ @RF00385 0385 01169000 * HEADPTR=PFTERBN; /* QUEUE IS EMPTY: MAKE PFTE 0386 01170000 * FIRST PFTE ON THE QUEUE. */ 01171000 STH PFTERBN,HEADPTR(,QHEADEND) 0386 01172000 * ELSE /* QUEUE IS NOT EMPTY */ 01173000 * DO; /* ENQUEUE THE PFTE TO THE QUEUE */ 01174000 B @RC00385 0387 01175000 @RF00385 DS 0H 0388 01176000 * LASTPFTE=PVTPFTP+ENDPTR; /* GET THE ADDRESS OF THE LAST 0388 01177000 * PFTE ON THE QUEUE. */ 01178000 SLR LASTPFTE,LASTPFTE 0388 01179000 ICM LASTPFTE,3,ENDPTR(QHEADEND) 0388 01180000 AL LASTPFTE,PVTPFTP(,PVTPTR) 0388 01181000 * LASTPFTE->PFTFQPTR=PFTERBN; /* SET THE FOREWARD POINTER IN 0389 01182000 * THE LAST PFTE TO POINT TO THE 01183000 * INPUT PFTE. */ 01184000 STH PFTERBN,PFTFQPTR(,LASTPFTE) 0389 01185000 * RESPECIFY 0390 01186000 * (LASTPFTE) UNRESTRICTED; 0390 01187000 * PFTBQPTR=ENDPTR; /* SET THE BACK POINTER IN THE 0391 01188000 * INPUT PFTE TO POINT TO THE 0391 01189000 * LAST PFTE. */ 01190000 MVC PFTBQPTR(2,PFTEPTR),ENDPTR(QHEADEND) 0391 01191000 * END; 0392 01192000 * ENDPTR=PFTERBN; /* MAKE THE INPUT PFTE THE NEW 0393 01193000 * LAST PFTE. */ 01194000 @RC00385 STH PFTERBN,ENDPTR(,QHEADEND) 0393 01195000 * RESPECIFY 0394 01196000 * (PFTERBN) UNRESTRICTED; 0394 01197000 * IF PFTQNDX=PFTAFQN THEN /* TEST IF THE PFTE WAS ENQUEUED 01198000 * TO THE AFQ */ 01199000 CLI PFTQNDX(PFTEPTR),X'00' 0395 01200000 BE @RT00395 0395 01201000 * GOTO CHECKAFC; /* PFTE WAS ENQUEUED TO THE AFQ: 01202000 * GO TEST IF THE AFC NEEDS 0396 01203000 * PROCESSING. */ 01204000 * ELSE /* @ZA16816*/ 01205000 * DO; /* @ZA16816*/ 01206000 * IF RSVEXTRA='0'B THEN /* IF NO EXTRA ON SQA RSV 0398 01207000 * @ZA16816*/ 01208000 TM RSVEXTRA(PVTPTR),B'01000000' 0398 01209000 BZ @RT00398 0398 01210000 * GOTO EXITPFTE; /* THEN RETURN TO CALLER @ZA16816*/ 01211000 * ELSE /* AN EXTRA IS ON SQA RSV 0400 01212000 * @ZA16816*/ 01213000 * DO; /* REMOVE LEAST DESIRABLE 0400 01214000 * @ZA16816*/ 01215000 * RSVEXTRA='0'B; /* RESET INDICATOR @ZA16816*/ 01216000 NI RSVEXTRA(PVTPTR),B'10111111' 0401 01217000 * SAVERBN=0; /* INITIALIZE FOR SEARCH @ZA16816*/ 01218000 SLR @11,@11 0402 01219000 STH @11,SAVERBN(,PVTPTR) 0402 01220000 * PFTEPTR=PVTPFTP+PVTRSRVF;/* GET 1ST RSV PFTE @ZA16816*/ 01221000 SLR PFTEPTR,PFTEPTR 0403 01222000 ICM PFTEPTR,3,PVTRSRVF(PVTPTR) 0403 01223000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0403 01224000 * DO WHILE PFTEPTR^=PVTPFTP;/* SCAN ENTIRE QUEUE @ZA16816*/ 01225000 B @DE00404 0404 01226000 @DL00404 DS 0H 0405 01227000 * IF PFTPREF='1'B THEN /* IF PREFERRED PFTE @ZA16816*/ 01228000 TM PFTPREF(PFTEPTR),B'00000100' 0405 01229000 BNO @RF00405 0405 01230000 * PFTEPTR=PVTPFTP+PFTFQPTR;/* SKIP IT- GET NEXT 0406 01231000 * @ZA16816*/ 01232000 SLR @11,@11 0406 01233000 ICM @11,3,PFTFQPTR(PFTEPTR) 0406 01234000 AL @11,PVTPFTP(,PVTPTR) 0406 01235000 LR PFTEPTR,@11 0406 01236000 * ELSE /* IF NOT PREFERRED @ZA16816*/ 01237000 * DO; /* CHECK FOR V=R @ZA16816*/ 01238000 B @RC00405 0407 01239000 @RF00405 DS 0H 0408 01240000 * SAVERBN=PFTEPTR-PVTPFTP;/* SAVE THE RBN @ZA16816*/ 01241000 L @11,PVTPFTP(,PVTPTR) 0408 01242000 LR @15,PFTEPTR 0408 01243000 SLR @15,@11 0408 01244000 STH @15,SAVERBN(,PVTPTR) 0408 01245000 * IF PFTVR='0'B THEN/* IF NOT V=R PFTE @ZA16816*/ 01246000 TM PFTVR(PFTEPTR),B'00100000' 0409 01247000 BNZ @RF00409 0409 01248000 * PFTEPTR=PVTPFTP+PFTFQPTR;/* CONTINUE SCAN 0410 01249000 * @ZA16816*/ 01250000 SLR @15,@15 0410 01251000 ICM @15,3,PFTFQPTR(PFTEPTR) 0410 01252000 ALR @11,@15 0410 01253000 LR PFTEPTR,@11 0410 01254000 * ELSE /* IF ITS V=R THEN @ZA16816*/ 01255000 * DO; /* DONE- FOUND PFTE @ZA16816*/ 01256000 B @RC00409 0411 01257000 @RF00409 DS 0H 0412 01258000 * PFTEPTR=PVTPFTP;/* STOP THE SCAN @ZA16816*/ 01259000 L PFTEPTR,PVTPFTP(,PVTPTR) 0412 01260000 * PVTSQVRC=PVTSQVRC-1;/* DECR V=R RSV CNT 0413 01261000 * @ZA16816*/ 01262000 SLR @11,@11 0413 01263000 IC @11,PVTSQVRC(,PVTPTR) 0413 01264000 BCTR @11,0 0413 01265000 STC @11,PVTSQVRC(,PVTPTR) 0413 01266000 * END; /* @ZA16816*/ 01267000 * END; /* @ZA16816*/ 01268000 @RC00409 DS 0H 0416 01269000 * END; /* END OF DO WHILE @ZA16816*/ 01270000 @RC00405 DS 0H 0416 01271000 @DE00404 C PFTEPTR,PVTPFTP(,PVTPTR) 0416 01272000 BNE @DL00404 0416 01273000 * IF SAVERBN=0 THEN /* SHOULD HAVE AN RBN. @ZA16816*/ 01274000 ICM @11,3,SAVERBN(PVTPTR) 0417 01275000 BNZ @RF00417 0417 01276000 * DO; /* ERROR IF ITS ZERO - @ZA16816*/ 01277000 * PVTSQDC=0; /* SHUT DOWN THE SQA @ZA16816*/ 01278000 MVI PVTSQDC(PVTPTR),X'00' 0419 01279000 * PVTRSRVF=0; /* RESERVE QUEUE AND @ZA16816*/ 01280000 SLR @11,@11 0420 01281000 STH @11,PVTRSRVF(,PVTPTR) 0420 01282000 * PVTRSRVL=0; /* ABEND C0D @ZA16816*/ 01283000 STH @11,PVTRSRVL(,PVTPTR) 0421 01284000 * RCARCRD='21'X; /* SET REASON CODE @ZA16816*/ 01285000 MVI RCARCRD(RCAPTR),X'21' 0422 01286000 * GENERATE(ABEND X'C0D',,,SYSTEM);/* @ZA16816*/ 01287000 ABEND X'C0D',,,SYSTEM 01288000 * GOTO EXITPFTE; /* EXIT @ZA16816*/ 01289000 B EXITPFTE 0424 01290000 * END; /* @ZA16816*/ 01291000 * PVTSQNPC=PVTSQNPC-1; /* DECR NON-PREF RSV CNT @ZA16816*/ 01292000 @RF00417 SLR @11,@11 0426 01293000 IC @11,PVTSQNPC(,PVTPTR) 0426 01294000 BCTR @11,0 0426 01295000 STC @11,PVTSQNPC(,PVTPTR) 0426 01296000 * SAVETQID=PFTAFQN; /* INIT FOR AFQ ENQUEUE @ZA16816*/ 01297000 MVI SAVETQID(PVTPTR),X'00' 0427 01298000 * GOTO SETUPDQT; /* GO DEQ/ENQ THE PFTE @ZA16816*/ 01299000 B SETUPDQT 0428 01300000 * END; /* @ZA16816*/ 01301000 * END; /* @ZA16816*/ 01302000 * RESPECIFY 0431 01303000 * (QHEADEND, 0431 01304000 * PFTEPTR) UNRESTRICTED; 0431 01305000 *SCHEDRP1: 0432 01306000 * RSMGFADD='1'B; /* INDICATE THAT IEAVGFAD MUST BE 01307000 * SCHEDULED FOR THIS MEMORY BY 01308000 * IEAVREP1 @Z40WPYD*/ 01309000 SCHEDRP1 OI RSMGFADD(RSMHDPTR),B'00000100' 0432 01310000 * IF PVTSRBIU='0'B THEN /* HAS SRB REPLENISH BEEN 0433 01311000 * SCHEDULED? @Z40WPYD*/ 01312000 TM PVTSRBIU(PVTPTR),B'00100000' 0433 01313000 BNZ @RF00433 0433 01314000 * DO; /* NO, SCHEDULE IEAVREP1 INTO 0434 01315000 * MASTER'S MEMORY. @Z40WPYD*/ 01316000 * PVTSRBIU='1'B; /* INDICATE IEAVREP1 HAS BEEN 0435 01317000 * SCHEDULED @Z40WPYD*/ 01318000 OI PVTSRBIU(PVTPTR),B'00100000' 0435 01319000 * SRBPTR=ADDR(PVTRSRB); /* GET ADDRESS OF RESERVED 0436 01320000 * SRB@Z40WPYD */ 01321000 LA SRBPTR,PVTRSRB(,PVTPTR) 0436 01322000 * SRB=SRB&&SRB; /* ZERO THE SRB @Z40WPYD*/ 01323000 XC SRB(44,SRBPTR),SRB(SRBPTR) 0437 01324000 * SRBASCB=CVTASVT->ASVTENTY(1);/* GET MASTER'S ASCB ADDRESS 0438 01325000 * @Z40WPYD*/ 01326000 L @11,CVTPTR 0438 01327000 L @11,CVTASVT(,@11) 0438 01328000 L @11,ASVTENTY(,@11) 0438 01329000 ST @11,SRBASCB(,SRBPTR) 0438 01330000 * SRBEP=ADDR(IEAVREP1); /* SET ENTRY POINT ADDRESS 0439 01331000 * @Z40WPYD*/ 01332000 L @00,@CV00094 0439 01333000 LR @15,@00 0439 01334000 ST @15,SRBEP(,SRBPTR) 0439 01335000 * SRBPASID=SRBASCB->ASCBASID; /* SET ASID @Z40WPYD*/ 01336000 MVC SRBPASID(2,SRBPTR),ASCBASID(@11) 0440 01337000 * SRBID='SRB '; /* SET SRB ID @Z40WPYD*/ 01338000 MVC SRBID(4,SRBPTR),@CC01799 0441 01339000 * SRBPRIOR=4; /* SET NON-QUIESCABLE PRIORITY 0442 01340000 * @Z40WPYD*/ 01341000 MVI SRBPRIOR(SRBPTR),X'04' 0442 01342000 * SRBRMTR=PVTPSRBP; /* GET SRB PURGE ROUTINE ENTRY 0443 01343000 * POINT. SRBPARM=0. @Z40WPYD*/ 01344000 MVC SRBRMTR(4,SRBPTR),PVTPSRBP(PVTPTR) 0443 01345000 * GENERATE NODEFS REFS(CVTMAP,CVTPTR,CVTLSMQ,SRBFLNK,SRBSECT) 01346000 * SETS(R0,R15) NOFLOWS; 0444 01347000 SCHEDULE SRB=(1),SCOPE=LOCAL 01348000 * END; 0445 01349000 *PGSECS: 0446 01350000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @YA01572*/ 01351000 B @PB00002 0446 01352000 PGSECS DS 0H 0447 01353000 */********************************************************************/ 01354000 */* */ 01355000 */* SUBROUTINE - PGSECS */ 01356000 */* */ 01357000 */* FUNCTION - CALCULATE PAGE-SECONDS */ 01358000 */* */ 01359000 */* INPUT - R2 RSMHEADER ADDRESS */ 01360000 */* R3 PVT ADDRESS */ 01361000 */* R0-R1 USED AS WORK REGISTERS */ 01362000 */* R4-R15 UNUSED; R14 HAS RETURN ADDRESS IN IT */ 01363000 */* */ 01364000 */* OUTPUT - OUCBPGS CONTAINS CURRENT PAGE-SECONDS */ 01365000 */* OUCBPST CONTAINS LAST TIME PAGE-SECONDS WAS */ 01366000 */* CALCULATED */ 01367000 */* */ 01368000 */* LINKAGE - BRANCHED TO BEFORE ASCBFMCT IS UPDATED IN IEAVPFTE */ 01369000 */* */ 01370000 */********************************************************************/ 01371000 * 0447 01372000 * RESPECIFY 0447 01373000 * (R0, 0447 01374000 * R14, 0447 01375000 * R1) RESTRICTED; /* @Z40FPYL*/ 01376000 * RESPECIFY 0448 01377000 * ASCB BASED(RSMASCB); /* @Z40FPYL*/ 01378000 * LM(REVEN,RODD,ASCBEJST); /* CPU TIME FOR JOB STEP @Z40FPYL*/ 01379000 L @15,RSMASCB(,RSMHDPTR) 0449 01380000 LM REVEN,RODD,ASCBEJST(@15) 0449 01381000 * SRDL(REVEN,SHIFT22); /* RESOLVE TO MILLISECONDS 0450 01382000 * @Z40FPYL*/ 01383000 SRDL REVEN,22 0450 01384000 * IF RODD>OUCBPST THEN /* COMPARE RESOLVED ASCBEJST 0451 01385000 * @Z40FPYL*/ 01386000 L @11,OUCBPTR(,@15) 0451 01387000 L @09,OUCBPST(,@11) 0451 01388000 CLR RODD,@09 0451 01389000 BNH @RF00451 0451 01390000 * DO; /* AGAINST OUCBPST. WHEN > 0452 01391000 * CALCULATE DURATION @Z40FPYL*/ 01392000 * REVEN=RODD-OUCBPST; /* AND MULTIPLY IT BY # @Z40FPYL*/ 01393000 LCR @09,@09 0453 01394000 ALR @09,RODD 0453 01395000 LR REVEN,@09 0453 01396000 * REVEN=REVEN*ASCBFMCT; /* OF FRAMES @Z40FPYL*/ 01397000 LR @09,REVEN 0454 01398000 MH @09,ASCBFMCT(,@15) 0454 01399000 LR REVEN,@09 0454 01400000 * OUCBPS2=OUCBPS2+REVEN; /* CURRENT TOTAL @Z40FPYL*/ 01401000 LR @15,REVEN 0455 01402000 AL @15,OUCBPS2(,@11) 0455 01403000 ST @15,OUCBPS2(,@11) 0455 01404000 * GENERATE; 0456 01405000 BC 4,NOCARRY 01406000 * OUCBPS1=OUCBPS1+1; /* CURRENT TOTAL WITH CARRY 0457 01407000 * @Z40FPYL*/ 01408000 L @15,RSMASCB(,RSMHDPTR) 0457 01409000 L @15,OUCBPTR(,@15) 0457 01410000 LA @11,1 0457 01411000 AL @11,OUCBPS1(,@15) 0457 01412000 ST @11,OUCBPS1(,@15) 0457 01413000 *NOCARRY: 0458 01414000 * OUCBPST=RODD; /* LAST TIME CALCULATED @Z40FPYL*/ 01415000 NOCARRY L @15,RSMASCB(,RSMHDPTR) 0458 01416000 L @15,OUCBPTR(,@15) 0458 01417000 ST RODD,OUCBPST(,@15) 0458 01418000 * END; /* @Z40FPYL*/ 01419000 * ELSE 0460 01420000 * ; /* @Z40FPYL*/ 01421000 @RF00451 DS 0H 0461 01422000 * RETURN; /* @Z40FPYL*/ 01423000 @EL00002 DS 0H 0461 01424000 @EF00002 DS 0H 0461 01425000 @ER00002 BR @14 0461 01426000 * RESPECIFY 0462 01427000 * ASCB BASED(ASCBPTR); /* @Z40FPYL*/ 01428000 * RESPECIFY 0463 01429000 * (R0, 0463 01430000 * R14, 0463 01431000 * R1) UNRESTRICTED; 0463 01432000 * END PGSECS; /* END OF SUBROUTINE @Z40FPYL*/ 01433000 @PB00002 DS 0H 0464 01434000 * 0465 01435000 */********************************************************************/ 01436000 */* THE FOLLOWING SECTION IS THE EXIT PROCESSOR. CONTROL IS RETURNED */ 01437000 */* TO THE CALLER. */ 01438000 */********************************************************************/ 01439000 * 0465 01440000 *EXITPFTE: 0465 01441000 * RCAPFTE='0'B; /* TURN OFF MODULE-ENTERED FLAG */ 01442000 EXITPFTE NI RCAPFTE(RCAPTR),B'11110111' 0465 01443000 * GENERATE NODEFS /* RESTORE CALLER'S REGISTERS 0466 01444000 * FROM THE PVT SAVE AREA. */ 01445000 * REFS(PVTWSA12,PVTPTR,R14) NOSETS NOFLOWS; 0466 01446000 LM R0,R15,PVTWSA12(PVTPTR) RESTORE INPUT REGS 01447000 BR R14 RETURN TO CALLER 01448000 * END IEAVPFTE /* RETURN TO THE CALLER. */ 01449000 * 0467 01450000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01451000 */*%INCLUDE SYSLIB (IRAOUCB ) */ 01452000 */*%INCLUDE SYSLIB (IHAASVT ) */ 01453000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01454000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01455000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01456000 */*%INCLUDE SYSLIB (IHARSMHD) */ 01457000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 01458000 */*%INCLUDE SYSLIB (IHAPCB ) */ 01459000 */*%INCLUDE SYSLIB (IHASRB ) */ 01460000 */*%INCLUDE SYSLIB (IHARCA ) */ 01461000 */*%INCLUDE SYSLIB (CVT ) */ 01462000 * 0467 01463000 * ; 0467 01464000 @DATA DS 0H 01465000 @CH00100 DC XL2'80' 01466000 DS 0F 01467000 DS 0F 01468000 @CV00094 DC V(IEAVREP1) 01469000 DS 0D 01470000 SAVEDQID DS AL1 01471000 @CC01799 DC C'SRB ' 01472000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01473000 @01 EQU 01 01474000 @02 EQU 02 01475000 @03 EQU 03 01476000 @04 EQU 04 01477000 @05 EQU 05 01478000 @06 EQU 06 01479000 @07 EQU 07 01480000 @08 EQU 08 01481000 @09 EQU 09 01482000 @10 EQU 10 01483000 @11 EQU 11 01484000 @12 EQU 12 01485000 @13 EQU 13 01486000 @14 EQU 14 01487000 @15 EQU 15 01488000 R0 EQU @00 01489000 R1 EQU @01 01490000 SRBPTR EQU @01 01491000 ASCBPTR EQU @01 01492000 RSMHDPTR EQU @02 01493000 R3 EQU @03 01494000 PVTPTR EQU @03 01495000 PFTERBN EQU @04 01496000 TQID EQU @05 01497000 PFTEPTR EQU @06 01498000 KEYREG EQU @07 01499000 QHEADEND EQU @07 01500000 PCBPTR EQU @08 01501000 LASTPFTE EQU @08 01502000 FRSTPFTE EQU @08 01503000 PFTERBN2 EQU @09 01504000 SAVER3 EQU @09 01505000 RCAPTR EQU @10 01506000 R12 EQU @12 01507000 R13 EQU @13 01508000 R14 EQU @14 01509000 R15 EQU @15 01510000 PTR1 EQU @15 01511000 REVEN EQU @00 01512000 RODD EQU @01 01513000 R10 EQU @10 01514000 R11 EQU @11 01515000 R2 EQU @02 01516000 R4 EQU @04 01517000 R5 EQU @05 01518000 R6 EQU @06 01519000 R7 EQU @07 01520000 R8 EQU @08 01521000 R9 EQU @09 01522000 SAVER2 EQU @06 01523000 PSA EQU 0 01524000 FLCRNPSW EQU PSA 01525000 FLCROPSW EQU PSA+8 01526000 FLCICCW2 EQU PSA+16 01527000 FLCCVT EQU FLCICCW2 01528000 PSAEEPSW EQU PSA+132 01529000 PSAESPSW EQU PSA+136 01530000 FLCSVILC EQU PSAESPSW+1 01531000 PSAEPPSW EQU PSA+140 01532000 FLCPIILC EQU PSAEPPSW+1 01533000 FLCPICOD EQU PSAEPPSW+2 01534000 PSAPICOD EQU FLCPICOD+1 01535000 FLCTEA EQU PSAEPPSW+4 01536000 FLCPER EQU PSA+152 01537000 FLCMCLA EQU PSA+168 01538000 FLCIOEL EQU FLCMCLA+4 01539000 FLCIOA EQU FLCMCLA+16 01540000 FLCFSA EQU FLCMCLA+80 01541000 PSASUPER EQU PSA+552 01542000 PSASUP1 EQU PSASUPER 01543000 PSASUP2 EQU PSASUPER+1 01544000 PSASUP3 EQU PSASUPER+2 01545000 PSASUP4 EQU PSASUPER+3 01546000 PSACLHT EQU PSA+640 01547000 PSALKSA EQU PSA+696 01548000 PSAHLHI EQU PSA+760 01549000 PSADSSFL EQU PSA+836 01550000 PSADSSF1 EQU PSADSSFL 01551000 PSADSSF3 EQU PSADSSFL+2 01552000 PSADSSF4 EQU PSADSSFL+3 01553000 PSARSVT EQU PSA+896 01554000 HEADEND EQU 0 01555000 HEADPTR EQU HEADEND 01556000 ENDPTR EQU HEADEND+2 01557000 IEAVEQRI EQU 0 01558000 IEAVRCFI EQU 0 01559000 ASVTPTR EQU 0 01560000 OUCB EQU 0 01561000 OUCBQFL EQU OUCB+16 01562000 OUCBSFL EQU OUCB+17 01563000 OUCBYFL EQU OUCB+18 01564000 OUCBAFL EQU OUCB+19 01565000 OUCBTFL EQU OUCB+20 01566000 OUCBEFL EQU OUCB+21 01567000 OUCBUFL EQU OUCB+23 01568000 OUCBCSW EQU OUCB+84 01569000 OUCBCFL EQU OUCBCSW+2 01570000 OUCBPSS EQU OUCB+112 01571000 OUCBPS1 EQU OUCBPSS 01572000 OUCBPS2 EQU OUCBPSS+4 01573000 OUCBPST EQU OUCB+120 01574000 ASVT EQU 0 01575000 ASVTFRST EQU ASVT+524 01576000 ASVTENTY EQU ASVT+528 01577000 PVT EQU 0 01578000 PVTFLAG1 EQU PVT 01579000 PVTSRBIU EQU PVTFLAG1 01580000 PVTLSI EQU PVTFLAG1 01581000 PVTFLAG2 EQU PVT+1 01582000 PVTAFC EQU PVT+2 01583000 PVTAFCLO EQU PVT+4 01584000 PVTAFCOK EQU PVT+6 01585000 PVTPFTP EQU PVT+12 01586000 PVTSQDC EQU PVT+28 01587000 PVTSQVRC EQU PVT+46 01588000 PVTSQNPC EQU PVT+47 01589000 PVTPRCA EQU PVT+52 01590000 PVTSRBID EQU PVT+68 01591000 PVTPGFAD EQU PVT+88 01592000 PVTPVRIN EQU PVT+140 01593000 PVTPRCFI EQU PVT+152 01594000 PVTPSRBP EQU PVT+188 01595000 PVTCFMCT EQU PVT+300 01596000 PVTQS EQU PVT+304 01597000 PVTAFQF EQU PVTQS 01598000 PVTRSRVF EQU PVTQS+4 01599000 PVTRSRVL EQU PVTQS+6 01600000 PVTWSAX EQU PVT+344 01601000 PVTWSA12 EQU PVTWSAX+824 01602000 PVTSAVE EQU PVTWSAX+1328 01603000 PVTRSRB EQU PVT+1776 01604000 PVTMAXFX EQU PVT+1822 01605000 PVTDEFFX EQU PVT+1828 01606000 PVTCNTFX EQU PVT+1830 01607000 PVTSQAFX EQU PVT+1832 01608000 PVTPCBQS EQU PVT+1852 01609000 PVTGFADF EQU PVTPCBQS+24 01610000 ASCB EQU 0 01611000 ASCBSUPC EQU ASCB+16 01612000 ASCBASID EQU ASCB+36 01613000 ASCBRSM EQU ASCB+52 01614000 ASCBRSMF EQU ASCBRSM 01615000 ASCBEJST EQU ASCB+64 01616000 ASCBFW1 EQU ASCB+100 01617000 ASCBRCTF EQU ASCBFW1+2 01618000 ASCBFLG1 EQU ASCBFW1+3 01619000 ASCBDSP1 EQU ASCB+114 01620000 ASCBFLG2 EQU ASCB+115 01621000 ASCBLKGP EQU ASCB+128 01622000 ASCBOUCB EQU ASCB+144 01623000 ASCBFMCT EQU ASCB+152 01624000 ASCBSRQ EQU ASCB+180 01625000 ASCBSRQ1 EQU ASCBSRQ 01626000 ASCBSRQ2 EQU ASCBSRQ+1 01627000 ASCBSRQ3 EQU ASCBSRQ+2 01628000 ASCBSRQ4 EQU ASCBSRQ+3 01629000 RSMHD EQU 0 01630000 RSMASCB EQU RSMHD+8 01631000 RSMFLG1 EQU RSMHD+12 01632000 RSMGFAD EQU RSMFLG1 01633000 RSMGFADD EQU RSMFLG1 01634000 RSMQS EQU RSMHD+20 01635000 RSMLFQ EQU RSMQS 01636000 RSMLSQA EQU RSMQS+4 01637000 RSMLIOQ EQU RSMQS+8 01638000 PFTE EQU 0 01639000 PFTPGID EQU PFTE 01640000 PFTQPTRS EQU PFTE+4 01641000 PFTFQPTR EQU PFTQPTRS 01642000 PFTBQPTR EQU PFTQPTRS+2 01643000 PFTFXCT EQU PFTE+8 01644000 PFTFLAGS EQU PFTE+12 01645000 PFTFLAG1 EQU PFTFLAGS 01646000 PFTONAVQ EQU PFTFLAG1 01647000 PFTVRINT EQU PFTFLAG1 01648000 PFTOFINT EQU PFTFLAG1 01649000 PFTFLAG2 EQU PFTFLAGS+1 01650000 PFTDFRLS EQU PFTFLAG2 01651000 PFTOFFLN EQU PFTFLAG2 01652000 PFTVR EQU PFTFLAG2 01653000 PFTSTEAL EQU PFTFLAG2 01654000 PFTPREF EQU PFTFLAG2 01655000 PFTQNDX EQU PFTE+14 01656000 PFTUIC EQU PFTE+15 01657000 PCB EQU 0 01658000 PCBFQP EQU PCB 01659000 PCBFQPA EQU PCBFQP+1 01660000 PCBBQP EQU PCB+4 01661000 PCBRTP EQU PCB+8 01662000 PCBFL1 EQU PCBRTP 01663000 PCBRLP EQU PCB+12 01664000 PCBFXC EQU PCBRLP 01665000 PCBRLPA EQU PCBRLP+1 01666000 PCBXPT EQU PCB+16 01667000 PCBFL2 EQU PCBXPT 01668000 PCBGFAD EQU PCBFL2 01669000 PCBPGT EQU PCB+20 01670000 PCBFL3 EQU PCBPGT 01671000 PCBBLOCK EQU PCB+28 01672000 PCBSRB EQU PCBBLOCK 01673000 PCBRB EQU PCBSRB 01674000 PCBASCB EQU PCB+32 01675000 SRBSECT EQU 0 01676000 SRB EQU SRBSECT 01677000 SRBID EQU SRB 01678000 SRBFLNK EQU SRB+4 01679000 SRBASCB EQU SRB+8 01680000 SRBFLC EQU SRB+12 01681000 SRBPASID EQU SRBFLC+2 01682000 SRBEP EQU SRB+20 01683000 SRBRMTR EQU SRB+24 01684000 SRBPARM EQU SRB+28 01685000 SRBPRIOR EQU SRB+37 01686000 RCA EQU 0 01687000 RCANAME7 EQU RCA+8 01688000 RCACSECT EQU RCA+9 01689000 RCAFLAGS EQU RCA+10 01690000 RCARCRD EQU RCA+11 01691000 RCANAMES EQU RCA+12 01692000 RCANAME1 EQU RCANAMES 01693000 RCANAME2 EQU RCANAMES+1 01694000 RCAPFTE EQU RCANAME2 01695000 RCANAME3 EQU RCANAMES+2 01696000 RCANAME4 EQU RCANAMES+3 01697000 RCANAME5 EQU RCANAMES+4 01698000 RCANAME6 EQU RCANAMES+5 01699000 CVTMAP EQU 0 01700000 CVT EQU CVTMAP 01701000 CVTDAR EQU CVTMAP+72 01702000 CVTFLGS1 EQU CVTDAR 01703000 CVTDCB EQU CVTMAP+116 01704000 CVTIOQET EQU CVTMAP+120 01705000 CVTIERLC EQU CVTMAP+144 01706000 CVTHEAD EQU CVTMAP+160 01707000 CVTSV76C EQU CVTHEAD 01708000 CVTOPTA EQU CVTMAP+182 01709000 CVTOPTB EQU CVTMAP+183 01710000 CVTGTF EQU CVTMAP+236 01711000 CVTGTFST EQU CVTGTF 01712000 CVTGTFS EQU CVTGTFST 01713000 CVTSTATE EQU CVTGTFST 01714000 CVTTMODE EQU CVTGTFST 01715000 CVTFORM EQU CVTGTFST 01716000 CVTAQAVT EQU CVTMAP+240 01717000 CVTTCMFG EQU CVTAQAVT 01718000 CVTVOLM2 EQU CVTMAP+244 01719000 CVTTATA EQU CVTVOLM2 01720000 CVTTSKS EQU CVTTATA 01721000 CVTVOLF2 EQU CVTTSKS 01722000 CVTTAT EQU CVTTATA+1 01723000 CVTATER EQU CVTMAP+248 01724000 CVTEXT1 EQU CVTMAP+252 01725000 CVTPURG EQU CVTMAP+260 01726000 CVTQMSG EQU CVTMAP+268 01727000 CVTDMSR EQU CVTMAP+272 01728000 CVTRSV37 EQU CVTDMSR 01729000 CVTDMSRF EQU CVTRSV37 01730000 CVTERPV EQU CVTMAP+316 01731000 CVTINTLA EQU CVTMAP+320 01732000 CVTAPF EQU CVTMAP+324 01733000 CVTEXT2 EQU CVTMAP+328 01734000 CVTHJES EQU CVTMAP+332 01735000 CVTPGSIA EQU CVTMAP+348 01736000 CVTA1F1 EQU CVTMAP+356 01737000 CVTSYSK EQU CVTMAP+357 01738000 CVTVOLM1 EQU CVTMAP+380 01739000 CVTVOLF1 EQU CVTVOLM1 01740000 CVTXTNT1 EQU 0 01741000 CVTXTNT2 EQU 0 01742000 CVTDSSV EQU CVTXTNT2 01743000 CVTFLGBT EQU CVTXTNT2+5 01744000 CVTQID EQU CVTXTNT2+24 01745000 CVTRV400 EQU CVTXTNT2+52 01746000 CVTRV409 EQU CVTXTNT2+53 01747000 CVTATCVT EQU CVTXTNT2+64 01748000 CVTRV429 EQU CVTXTNT2+84 01749000 CVTRV438 EQU CVTXTNT2+85 01750000 CVTRV457 EQU CVTXTNT2+112 01751000 CVTRV466 EQU CVTXTNT2+113 01752000 CVTFIX EQU 0 01753000 CVTRELNO EQU CVTFIX+252 01754000 OUCBPTR EQU ASCBOUCB 01755000 SAVEINFO EQU PVTWSA12 01756000 SAVEBYTE EQU SAVEINFO 01757000 SAVEFLAG EQU SAVEBYTE 01758000 RSVEXTRA EQU SAVEBYTE 01759000 SAVETQID EQU SAVEINFO+1 01760000 SAVERBN EQU SAVEINFO+2 01761000 SAVEASCB EQU SAVEINFO+4 01762000 SAVECSID EQU SAVEINFO+64 01763000 CVTPTR EQU FLCCVT 01764000 PSARSVTE EQU PSARSVT 01765000 CVTS01 EQU CVTPGSIA 01766000 CVTLPDIA EQU CVTS01+12 01767000 CVTDIRST EQU CVTLPDIA 01768000 CVTSLIDA EQU CVTS01+24 01769000 CVTCTLFG EQU CVTS01+50 01770000 CVTGETCL EQU CVTS01+144 01771000 CVTOPTE EQU CVTS01+188 01772000 CVTASVT EQU CVTS01+208 01773000 CVTLSMQ EQU CVTS01+268 01774000 CVTRV210 EQU CVTS01+424 01775000 CVTRV219 EQU CVTS01+425 01776000 CVTRV228 EQU CVTS01+426 01777000 CVTRV237 EQU CVTS01+427 01778000 CVTMFRTR EQU CVTS01+452 01779000 CVTRV262 EQU CVTS01+468 01780000 CVTRV271 EQU CVTS01+469 01781000 CVTRV280 EQU CVTS01+470 01782000 CVTRV289 EQU CVTS01+471 01783000 CVTGSDA EQU CVTS01+600 01784000 FLC EQU PSA 01785000 * START UNREFERENCED COMPONENTS 01786000 CVTRV628 EQU CVTS01+728 01787000 CVTRV627 EQU CVTS01+724 01788000 CVTRV626 EQU CVTS01+720 01789000 CVTRV625 EQU CVTS01+716 01790000 CVTRV624 EQU CVTS01+712 01791000 CVTRV623 EQU CVTS01+708 01792000 CVTRV622 EQU CVTS01+704 01793000 CVTRV621 EQU CVTS01+700 01794000 CVTIHASU EQU CVTS01+696 01795000 CVTSUSP EQU CVTS01+692 01796000 CVTT6SVC EQU CVTS01+688 01797000 CVTCDAL EQU CVTS01+684 01798000 CVTTCTL EQU CVTS01+680 01799000 CVTRSUME EQU CVTS01+676 01800000 CVTJTERM EQU CVTS01+672 01801000 CVTASMRM EQU CVTS01+668 01802000 CVTTCASP EQU CVTS01+664 01803000 CVT0PT03 EQU CVTS01+660 01804000 CVT0PT0E EQU CVTS01+656 01805000 CVTRV609 EQU CVTS01+652 01806000 CVTCGK EQU CVTS01+648 01807000 CVTRAC EQU CVTS01+644 01808000 CVTHSM EQU CVTS01+640 01809000 CVTRV605 EQU CVTS01+636 01810000 CVTRV604 EQU CVTS01+632 01811000 CVTEFF02 EQU CVTS01+628 01812000 CVTCBBR EQU CVTS01+624 01813000 CVTSSCR EQU CVTS01+620 01814000 CVTEVENT EQU CVTS01+616 01815000 CVTCRCA EQU CVTS01+612 01816000 CVTTPIO EQU CVTS01+608 01817000 CVTADV EQU CVTS01+604 01818000 CVTGSDAB EQU CVTGSDA 01819000 CVTQV3 EQU CVTS01+596 01820000 CVTQV2 EQU CVTS01+592 01821000 CVTQV1 EQU CVTS01+588 01822000 CVTRPT EQU CVTS01+584 01823000 CVTSSRB EQU CVTS01+580 01824000 CVTCSDRL EQU CVTS01+576 01825000 CVTEXP1 EQU CVTS01+572 01826000 CVTRMPMT EQU CVTS01+568 01827000 CVTRMPTT EQU CVTS01+564 01828000 CVTVPSA EQU CVTS01+560 01829000 CVTVSTOP EQU CVTS01+556 01830000 CVTGTFR8 EQU CVTS01+552 01831000 CVTQUIT EQU CVTS01+548 01832000 CVTVACR EQU CVTS01+544 01833000 CVTWTCB EQU CVTS01+540 01834000 CVTSTPRS EQU CVTS01+536 01835000 CVT0PT02 EQU CVTS01+532 01836000 CVTDARCM EQU CVTS01+528 01837000 CVTIRECM EQU CVTS01+524 01838000 CVTJRECM EQU CVTS01+520 01839000 CVTVEMS0 EQU CVTS01+516 01840000 CVTSPFRR EQU CVTS01+512 01841000 CVTRLSTG EQU CVTS01+508 01842000 CVT0TC0A EQU CVTS01+504 01843000 CVTGMBR EQU CVTS01+500 01844000 CVTLFRM EQU CVTS01+496 01845000 CVTRMBR EQU CVTS01+492 01846000 CVTVIOP EQU CVTS01+488 01847000 CVTRV307 EQU CVTS01+486 01848000 CVTRV306 EQU CVTS01+484 01849000 CVTRV305 EQU CVTS01+482 01850000 CVTRV304 EQU CVTS01+480 01851000 CVTRV303 EQU CVTS01+478 01852000 CVTRV302 EQU CVTS01+476 01853000 CVTTRCA EQU CVTS01+472 01854000 CVTRV297 EQU CVTRV289 01855000 CVTRV296 EQU CVTRV289 01856000 CVTRV295 EQU CVTRV289 01857000 CVTRV294 EQU CVTRV289 01858000 CVTRV293 EQU CVTRV289 01859000 CVTRV292 EQU CVTRV289 01860000 CVTRV291 EQU CVTRV289 01861000 CVTRV290 EQU CVTRV289 01862000 CVTRV288 EQU CVTRV280 01863000 CVTRV287 EQU CVTRV280 01864000 CVTRV286 EQU CVTRV280 01865000 CVTRV285 EQU CVTRV280 01866000 CVTRV284 EQU CVTRV280 01867000 CVTRV283 EQU CVTRV280 01868000 CVTRV282 EQU CVTRV280 01869000 CVTRV281 EQU CVTRV280 01870000 CVTRV279 EQU CVTRV271 01871000 CVTRV278 EQU CVTRV271 01872000 CVTRV277 EQU CVTRV271 01873000 CVTRV276 EQU CVTRV271 01874000 CVTRV275 EQU CVTRV271 01875000 CVTRV274 EQU CVTRV271 01876000 CVTRV273 EQU CVTRV271 01877000 CVTRV272 EQU CVTRV271 01878000 CVTRV270 EQU CVTRV262 01879000 CVTRV269 EQU CVTRV262 01880000 CVTRV268 EQU CVTRV262 01881000 CVTRV267 EQU CVTRV262 01882000 CVTRV266 EQU CVTRV262 01883000 CVTRV265 EQU CVTRV262 01884000 CVTRV264 EQU CVTRV262 01885000 CVTRV263 EQU CVTRV262 01886000 CVTVFP EQU CVTS01+464 01887000 CVTVSI EQU CVTS01+460 01888000 CVTVPSIB EQU CVTS01+456 01889000 CVTMFACT EQU CVTMFRTR 01890000 CVTMFCTL EQU CVTS01+448 01891000 CVTPVBP EQU CVTS01+444 01892000 CVTPWI EQU CVTS01+440 01893000 CVTRV254 EQU CVTS01+438 01894000 CVTRV253 EQU CVTS01+436 01895000 CVTRV252 EQU CVTS01+434 01896000 CVTRV251 EQU CVTS01+433 01897000 CVTRV250 EQU CVTS01+432 01898000 CVTRV249 EQU CVTS01+431 01899000 CVTRV248 EQU CVTS01+430 01900000 CVTRV247 EQU CVTS01+429 01901000 CVTRV246 EQU CVTS01+428 01902000 CVTRV245 EQU CVTRV237 01903000 CVTRV244 EQU CVTRV237 01904000 CVTRV243 EQU CVTRV237 01905000 CVTRV242 EQU CVTRV237 01906000 CVTRV241 EQU CVTRV237 01907000 CVTRV240 EQU CVTRV237 01908000 CVTRV239 EQU CVTRV237 01909000 CVTRV238 EQU CVTRV237 01910000 CVTRV236 EQU CVTRV228 01911000 CVTRV235 EQU CVTRV228 01912000 CVTRV234 EQU CVTRV228 01913000 CVTRV233 EQU CVTRV228 01914000 CVTRV232 EQU CVTRV228 01915000 CVTRV231 EQU CVTRV228 01916000 CVTRV230 EQU CVTRV228 01917000 CVTRV229 EQU CVTRV228 01918000 CVTRV227 EQU CVTRV219 01919000 CVTRV226 EQU CVTRV219 01920000 CVTRV225 EQU CVTRV219 01921000 CVTRV224 EQU CVTRV219 01922000 CVTRV223 EQU CVTRV219 01923000 CVTRV222 EQU CVTRV219 01924000 CVTRV221 EQU CVTRV219 01925000 CVTRV220 EQU CVTRV219 01926000 CVTRV218 EQU CVTRV210 01927000 CVTRV217 EQU CVTRV210 01928000 CVTRV216 EQU CVTRV210 01929000 CVTRV215 EQU CVTRV210 01930000 CVTRV214 EQU CVTRV210 01931000 CVTRV213 EQU CVTRV210 01932000 CVTRV212 EQU CVTRV210 01933000 CVTRV211 EQU CVTRV210 01934000 CVTLCCAT EQU CVTS01+420 01935000 CVTPCCAT EQU CVTS01+416 01936000 CVTIPCRP EQU CVTS01+412 01937000 CVTIPCRI EQU CVTS01+408 01938000 CVTIPCDS EQU CVTS01+404 01939000 CVTAIDVT EQU CVTS01+400 01940000 CVTSSAP EQU CVTS01+396 01941000 CVTEHCIR EQU CVTS01+392 01942000 CVTEHDEF EQU CVTS01+388 01943000 CVTDAIR EQU CVTS01+384 01944000 CVTPERFM EQU CVTS01+380 01945000 CVT044R2 EQU CVTS01+376 01946000 CVTFETCH EQU CVTS01+372 01947000 CVTRSTWD EQU CVTS01+368 01948000 CVTSPOST EQU CVTS01+364 01949000 CVTIOBP EQU CVTS01+360 01950000 CVTASMVT EQU CVTS01+356 01951000 CVTRECRQ EQU CVTS01+352 01952000 CVTWSAC EQU CVTS01+348 01953000 CVTRV149 EQU CVTS01+344 01954000 CVTWSAL EQU CVTS01+340 01955000 CVTSPSA EQU CVTS01+336 01956000 CVTGLMN EQU CVTS01+332 01957000 CVTVEAC0 EQU CVTS01+328 01958000 CVT062R1 EQU CVTS01+324 01959000 CVTRPOST EQU CVTS01+320 01960000 CVTDQIQE EQU CVTS01+316 01961000 CVTCSD EQU CVTS01+312 01962000 CVTLKRMA EQU CVTS01+308 01963000 CVTRSPIE EQU CVTS01+304 01964000 CVTRENQ EQU CVTS01+300 01965000 CVTLQCB EQU CVTS01+296 01966000 CVTFQCB EQU CVTS01+292 01967000 CVTQCS01 EQU CVTS01+288 01968000 CVTAPFT EQU CVTS01+284 01969000 CVTPARRL EQU CVTS01+280 01970000 CVTVWAIT EQU CVTS01+276 01971000 CVTGSPL EQU CVTS01+272 01972000 CVTGSMQ EQU CVTS01+264 01973000 CVTEXPRO EQU CVTS01+260 01974000 CVTOPCTP EQU CVTS01+256 01975000 CVTSIC EQU CVTS01+252 01976000 CVTTPIOS EQU CVTS01+248 01977000 CVTRTMS EQU CVTS01+244 01978000 CVTSDBF EQU CVTS01+240 01979000 CVTSCBP EQU CVTS01+236 01980000 CVTSDMP EQU CVTS01+232 01981000 CVTSV60 EQU CVTS01+228 01982000 CVTRTMCT EQU CVTS01+224 01983000 CVTASCBL EQU CVTS01+220 01984000 CVTASCBH EQU CVTS01+216 01985000 CVTGDA EQU CVTS01+212 01986000 CVTVVMDI EQU CVTS01+204 01987000 CVTAQTOP EQU CVTS01+200 01988000 CVTIOSCS EQU CVTS01+196 01989000 CVTSDRM EQU CVTS01+192 01990000 CVTSTXU EQU CVTS01+184 01991000 CVTQUIS EQU CVTS01+180 01992000 CVTPARS EQU CVTS01+176 01993000 CVTS1EE EQU CVTS01+172 01994000 CVTFRAS EQU CVTS01+168 01995000 CVTQSAS EQU CVTS01+164 01996000 CVTCRAS EQU CVTS01+160 01997000 CVTCRMN EQU CVTS01+156 01998000 CVTDELCP EQU CVTS01+152 01999000 CVTFRECL EQU CVTS01+148 02000000 CVTBLDCP EQU CVTS01+140 02001000 CVTAUTHL EQU CVTS01+136 02002000 CVTSCAN EQU CVTS01+132 02003000 CVTRV144 EQU CVTS01+130 02004000 CVTMAXMP EQU CVTS01+128 02005000 CVTSTCK EQU CVTS01+124 02006000 CVTRV139 EQU CVTS01+123 02007000 CVTDSSAC EQU CVTS01+122 02008000 CVTRV513 EQU CVTS01+121 02009000 CVTIOSPL EQU CVTS01+120 02010000 CVTPTGT EQU CVTS01+116 02011000 CVTCSPIE EQU CVTS01+112 02012000 CVTSMFEX EQU CVTS01+108 02013000 CVTOLT0A EQU CVTS01+104 02014000 CVTSRBRT EQU CVTS01+100 02015000 CVTPUTL EQU CVTS01+96 02016000 CVTASCRL EQU CVTS01+92 02017000 CVTASCRF EQU CVTS01+88 02018000 CVTRV326 EQU CVTS01+84 02019000 CVTRV325 EQU CVTS01+80 02020000 CVTRV324 EQU CVTS01+76 02021000 CVT0VL01 EQU CVTS01+72 02022000 CVTSHRVM EQU CVTS01+68 02023000 CVTRV332 EQU CVTS01+64 02024000 CVTTAS EQU CVTS01+60 02025000 CVTRSCN EQU CVTS01+56 02026000 CVTTRAC2 EQU CVTS01+54 02027000 CVTTRACE EQU CVTS01+52 02028000 CVTAPG EQU CVTS01+51 02029000 CVTSDTRC EQU CVTCTLFG 02030000 CVTGTRCE EQU CVTCTLFG 02031000 CVTNOMP EQU CVTCTLFG 02032000 CVTRSV79 EQU CVTCTLFG 02033000 CVTDSTAT EQU CVTCTLFG 02034000 CVTRSV78 EQU CVTCTLFG 02035000 CVTRV333 EQU CVTCTLFG 02036000 CVTRV323 EQU CVTCTLFG 02037000 CVTSPVLK EQU CVTS01+49 02038000 CVTRSV77 EQU CVTS01+48 02039000 CVTRV331 EQU CVTS01+44 02040000 CVTRV330 EQU CVTS01+40 02041000 CVTRV329 EQU CVTS01+36 02042000 CVTRV328 EQU CVTS01+32 02043000 CVTRV322 EQU CVTS01+28 02044000 CVTSLID EQU CVTSLIDA+1 02045000 CVTSYLK EQU CVTSLIDA 02046000 CVTRV321 EQU CVTS01+20 02047000 CVTRV320 EQU CVTS01+16 02048000 CVTLPDIR EQU CVTLPDIA+1 02049000 CVTRSV69 EQU CVTDIRST 02050000 CVTRSV68 EQU CVTDIRST 02051000 CVTRSV67 EQU CVTDIRST 02052000 CVTRSV66 EQU CVTDIRST 02053000 CVTRSV65 EQU CVTDIRST 02054000 CVTRSV64 EQU CVTDIRST 02055000 CVTRSV63 EQU CVTDIRST 02056000 CVTDICOM EQU CVTDIRST 02057000 CVTPVTP EQU CVTS01+8 02058000 CVTLPDSR EQU CVTS01+4 02059000 CVTGETL EQU CVTS01 02060000 PSARSAV EQU PSARSVTE+60 02061000 PSARSTK EQU PSARSVTE+56 02062000 PSAESAV3 EQU PSARSVTE+52 02063000 PSAESTK3 EQU PSARSVTE+48 02064000 PSAESAV2 EQU PSARSVTE+44 02065000 PSAESTK2 EQU PSARSVTE+40 02066000 PSAESAV1 EQU PSARSVTE+36 02067000 PSAESTK1 EQU PSARSVTE+32 02068000 PSAPSAV EQU PSARSVTE+28 02069000 PSAPSTK EQU PSARSVTE+24 02070000 PSAMSAV EQU PSARSVTE+20 02071000 PSAMSTK EQU PSARSVTE+16 02072000 PSASSAV EQU PSARSVTE+12 02073000 PSASSTK EQU PSARSVTE+8 02074000 PSANSTK EQU PSARSVTE+4 02075000 PSACSTK EQU PSARSVTE 02076000 @NM00007 EQU SAVEINFO+8 02077000 @NM00006 EQU SAVEBYTE 02078000 @NM00005 EQU SAVEBYTE 02079000 @NM00004 EQU SAVEBYTE 02080000 @NM00003 EQU SAVEBYTE 02081000 @NM00002 EQU SAVEBYTE 02082000 @NM00001 EQU SAVEBYTE 02083000 CVTLEVL EQU CVTRELNO+2 02084000 CVTNUMB EQU CVTRELNO 02085000 CVTMDL EQU CVTFIX+250 02086000 @NM00047 EQU CVTFIX+248 02087000 @NM00046 EQU CVTFIX 02088000 CVTRV482 EQU CVTXTNT2+128 02089000 CVTRV481 EQU CVTXTNT2+124 02090000 CVTRV480 EQU CVTXTNT2+120 02091000 CVTRV479 EQU CVTXTNT2+118 02092000 CVTRV478 EQU CVTXTNT2+117 02093000 CVTRV477 EQU CVTXTNT2+116 02094000 CVTRV476 EQU CVTXTNT2+115 02095000 CVTRV475 EQU CVTXTNT2+114 02096000 CVTRV474 EQU CVTRV466 02097000 CVTRV473 EQU CVTRV466 02098000 CVTRV472 EQU CVTRV466 02099000 CVTRV471 EQU CVTRV466 02100000 CVTRV470 EQU CVTRV466 02101000 CVTRV469 EQU CVTRV466 02102000 CVTRV468 EQU CVTRV466 02103000 CVTRV467 EQU CVTRV466 02104000 CVTRV465 EQU CVTRV457 02105000 CVTRV464 EQU CVTRV457 02106000 CVTRV463 EQU CVTRV457 02107000 CVTRV462 EQU CVTRV457 02108000 CVTRV461 EQU CVTRV457 02109000 CVTRV460 EQU CVTRV457 02110000 CVTRV459 EQU CVTRV457 02111000 CVTRV458 EQU CVTRV457 02112000 CVTRV456 EQU CVTXTNT2+108 02113000 CVTRV455 EQU CVTXTNT2+104 02114000 CVTRV454 EQU CVTXTNT2+100 02115000 CVTRV453 EQU CVTXTNT2+96 02116000 CVTRV452 EQU CVTXTNT2+94 02117000 CVTRV451 EQU CVTXTNT2+92 02118000 CVTRV450 EQU CVTXTNT2+90 02119000 CVTRV449 EQU CVTXTNT2+88 02120000 CVTRV448 EQU CVTXTNT2+87 02121000 CVTRV447 EQU CVTXTNT2+86 02122000 CVTRV446 EQU CVTRV438 02123000 CVTRV445 EQU CVTRV438 02124000 CVTRV444 EQU CVTRV438 02125000 CVTRV443 EQU CVTRV438 02126000 CVTRV442 EQU CVTRV438 02127000 CVTRV441 EQU CVTRV438 02128000 CVTRV440 EQU CVTRV438 02129000 CVTRV439 EQU CVTRV438 02130000 CVTRV437 EQU CVTRV429 02131000 CVTRV436 EQU CVTRV429 02132000 CVTRV435 EQU CVTRV429 02133000 CVTRV434 EQU CVTRV429 02134000 CVTRV433 EQU CVTRV429 02135000 CVTRV432 EQU CVTRV429 02136000 CVTRV431 EQU CVTRV429 02137000 CVTRV430 EQU CVTRV429 02138000 CVTRV428 EQU CVTXTNT2+80 02139000 CVTRV427 EQU CVTXTNT2+76 02140000 CVTRV426 EQU CVTXTNT2+72 02141000 CVTRV425 EQU CVTXTNT2+68 02142000 CVTATACT EQU CVTATCVT 02143000 CVTRV423 EQU CVTXTNT2+62 02144000 CVTRV422 EQU CVTXTNT2+60 02145000 CVTRV421 EQU CVTXTNT2+58 02146000 CVTRV420 EQU CVTXTNT2+56 02147000 CVTRV419 EQU CVTXTNT2+55 02148000 CVTRV418 EQU CVTXTNT2+54 02149000 CVTRV417 EQU CVTRV409 02150000 CVTRV416 EQU CVTRV409 02151000 CVTRV415 EQU CVTRV409 02152000 CVTRV414 EQU CVTRV409 02153000 CVTRV413 EQU CVTRV409 02154000 CVTRV412 EQU CVTRV409 02155000 CVTRV411 EQU CVTRV409 02156000 CVTRV410 EQU CVTRV409 02157000 CVTRV408 EQU CVTRV400 02158000 CVTRV407 EQU CVTRV400 02159000 CVTRV406 EQU CVTRV400 02160000 CVTRV405 EQU CVTRV400 02161000 CVTRV404 EQU CVTRV400 02162000 CVTRV403 EQU CVTRV400 02163000 CVTRV402 EQU CVTRV400 02164000 CVTRV401 EQU CVTRV400 02165000 CVTICB EQU CVTXTNT2+48 02166000 CVTSKTA EQU CVTXTNT2+44 02167000 CVTCCVT EQU CVTXTNT2+40 02168000 CVTRSV98 EQU CVTXTNT2+36 02169000 CVTRSV97 EQU CVTXTNT2+34 02170000 CVTRSV96 EQU CVTXTNT2+32 02171000 CVTOLTEP EQU CVTXTNT2+28 02172000 CVTQIDA EQU CVTQID+1 02173000 CVTRSV95 EQU CVTQID 02174000 CVTRSV94 EQU CVTXTNT2+20 02175000 CVTRSV93 EQU CVTXTNT2+16 02176000 CVTRSV92 EQU CVTXTNT2+12 02177000 CVTDEBVR EQU CVTXTNT2+8 02178000 CVTRSV91 EQU CVTXTNT2+6 02179000 CVTRSV9H EQU CVTFLGBT 02180000 CVTRSV9G EQU CVTFLGBT 02181000 CVTRSV9F EQU CVTFLGBT 02182000 CVTRSV9E EQU CVTFLGBT 02183000 CVTRSV9D EQU CVTFLGBT 02184000 CVTBAH EQU CVTFLGBT 02185000 CVTVME EQU CVTFLGBT 02186000 CVTNPE EQU CVTFLGBT 02187000 CVTNUCLS EQU CVTXTNT2+4 02188000 CVTDSSVA EQU CVTDSSV+1 02189000 CVTRSV89 EQU CVTDSSV 02190000 CVTRSV88 EQU CVTXTNT1+8 02191000 CVTRSV87 EQU CVTXTNT1+4 02192000 CVTFACHN EQU CVTXTNT1 02193000 CVTRV488 EQU CVTMAP+412 02194000 CVTRV487 EQU CVTMAP+408 02195000 CVTRV486 EQU CVTMAP+404 02196000 CVTRV485 EQU CVTMAP+400 02197000 CVTACTAP EQU CVTMAP+396 02198000 CVTAUTH EQU CVTMAP+392 02199000 CVTRV490 EQU CVTMAP+388 02200000 CVTSU EQU CVTMAP+384 02201000 CVTVOLT1 EQU CVTVOLM1+1 02202000 CVTVOLI1 EQU CVTVOLF1 02203000 CVTSTOA EQU CVTMAP+376 02204000 CVTRSV58 EQU CVTMAP+374 02205000 CVTRSV57 EQU CVTMAP+372 02206000 CVTDDCE EQU CVTMAP+368 02207000 CVTPNWFR EQU CVTMAP+364 02208000 CVTSMF EQU CVTMAP+360 02209000 CVTSULK EQU CVTMAP+358 02210000 CVTSLKO EQU CVTSYSK 02211000 CVTSLKP EQU CVTSYSK 02212000 CVTSLKQ EQU CVTSYSK 02213000 CVTSLKR EQU CVTSYSK 02214000 CVTRSV56 EQU CVTSYSK 02215000 CVTRSV55 EQU CVTSYSK 02216000 CVTRSV54 EQU CVTSYSK 02217000 CVTRSV53 EQU CVTSYSK 02218000 CVTRSV52 EQU CVTA1F1 02219000 CVTRSV51 EQU CVTA1F1 02220000 CVTRSV50 EQU CVTA1F1 02221000 CVTRSV49 EQU CVTA1F1 02222000 CVTRSV48 EQU CVTA1F1 02223000 CVTRSV47 EQU CVTA1F1 02224000 CVTSRSW EQU CVTA1F1 02225000 CVTPFSW EQU CVTA1F1 02226000 CVTPCVT EQU CVTMAP+352 02227000 CVTRSV46 EQU CVTMAP+344 02228000 CVTRSV45 EQU CVTMAP+340 02229000 CVTRSV44 EQU CVTMAP+338 02230000 CVTRSV43 EQU CVTMAP+336 02231000 CVTHJESA EQU CVTHJES+1 02232000 CVTRSV42 EQU CVTHJES 02233000 CVTEXT2A EQU CVTEXT2+1 02234000 CVTRSV41 EQU CVTEXT2 02235000 CVTAPFA EQU CVTAPF+1 02236000 CVTRSV40 EQU CVTAPF 02237000 CVTRV518 EQU CVTINTLA 02238000 CVTRV517 EQU CVTERPV 02239000 CVTEORM EQU CVTMAP+312 02240000 CVTMCHPR EQU CVTMAP+308 02241000 CVTTZ EQU CVTMAP+304 02242000 CVTJEPS EQU CVTMAP+300 02243000 CVTJESCT EQU CVTMAP+296 02244000 CVTMODE EQU CVTMAP+292 02245000 CVTPTRV EQU CVTMAP+288 02246000 CVTREAL EQU CVTMAP+284 02247000 CVTRSV39 EQU CVTMAP+280 02248000 CVTRSV38 EQU CVTMAP+276 02249000 CVTDMSRA EQU CVTDMSR+1 02250000 CVTRV634 EQU CVTDMSRF 02251000 CVTRV633 EQU CVTDMSRF 02252000 CVTRV632 EQU CVTDMSRF 02253000 CVTRV631 EQU CVTDMSRF 02254000 CVTRV630 EQU CVTDMSRF 02255000 CVTRV629 EQU CVTDMSRF 02256000 CVTUDUMP EQU CVTDMSRF 02257000 CVTSDUMP EQU CVTDMSRF 02258000 CVTQMSGA EQU CVTQMSG+1 02259000 CVTRSV36 EQU CVTQMSG 02260000 CVTAMFF EQU CVTMAP+264 02261000 CVTPURGA EQU CVTPURG+1 02262000 CVTRSV35 EQU CVTPURG 02263000 CVTCBSP EQU CVTMAP+256 02264000 CVTATERA EQU CVTATER+1 02265000 CVTSYST EQU CVTATER 02266000 CVTVOLT2 EQU CVTTAT 02267000 CVTVOLI2 EQU CVTVOLF2 02268000 CVTAQAVB EQU CVTAQAVT+1 02269000 CVTRSV34 EQU CVTTCMFG 02270000 CVTRSV33 EQU CVTTCMFG 02271000 CVTRSV32 EQU CVTTCMFG 02272000 CVTRSV31 EQU CVTTCMFG 02273000 CVTRSV30 EQU CVTTCMFG 02274000 CVTRSV29 EQU CVTTCMFG 02275000 CVTLDEV EQU CVTTCMFG 02276000 CVTTCRDY EQU CVTTCMFG 02277000 CVTGTFA EQU CVTGTF+1 02278000 CVTRSV27 EQU CVTGTFST 02279000 CVTRNIO EQU CVTGTFST 02280000 CVTUSR EQU CVTGTFST 02281000 CVTRV318 EQU CVTFORM 02282000 CVTRV317 EQU CVTTMODE 02283000 CVTRV316 EQU CVTSTATE 02284000 CVTRV315 EQU CVTGTFS 02285000 CVTGTFAV EQU CVTGTFS 02286000 CVT0SCR1 EQU CVTMAP+232 02287000 CVTRV515 EQU CVTMAP+228 02288000 CVTRMS EQU CVTMAP+224 02289000 CVTPATCH EQU CVTMAP+220 02290000 CVTTSCE EQU CVTMAP+216 02291000 CVTLNKSC EQU CVTMAP+214 02292000 CVTQABST EQU CVTMAP+212 02293000 CVTMDLDS EQU CVTMAP+208 02294000 CVTUSER EQU CVTMAP+204 02295000 CVTABEND EQU CVTMAP+200 02296000 CVTSMCA EQU CVTMAP+196 02297000 CVTRSV18 EQU CVTMAP+192 02298000 CVTQLPAQ EQU CVTMAP+188 02299000 CVTQCDSR EQU CVTMAP+184 02300000 CVTVS1B EQU CVTOPTB 02301000 CVTVS1A EQU CVTOPTB 02302000 CVTFP EQU CVTOPTB 02303000 CVTAPTHR EQU CVTOPTB 02304000 CVTNLOG EQU CVTOPTB 02305000 CVTTOD EQU CVTOPTB 02306000 CVTCTIMS EQU CVTOPTB 02307000 CVTPROT EQU CVTOPTB 02308000 CVTXPFP EQU CVTOPTA 02309000 CVTASCII EQU CVTOPTA 02310000 CVTRSV13 EQU CVTOPTA 02311000 CVTRSV12 EQU CVTOPTA 02312000 CVTNIP EQU CVTOPTA 02313000 CVTDDR EQU CVTOPTA 02314000 CVTAPR EQU CVTOPTA 02315000 CVTCCH EQU CVTOPTA 02316000 CVTSNCTR EQU CVTMAP+180 02317000 CVTQMWR EQU CVTMAP+176 02318000 CVTQOCR EQU CVTMAP+172 02319000 CVT1EF00 EQU CVTMAP+168 02320000 CVTMZ00 EQU CVTMAP+164 02321000 CVTSV76Q EQU CVTSV76C 02322000 CVTRSV11 EQU CVTMAP+156 02323000 CVT0PT01 EQU CVTMAP+152 02324000 CVTMSER EQU CVTMAP+148 02325000 CVTRV516 EQU CVTIERLC 02326000 CVTILCH EQU CVTMAP+140 02327000 CVT0DS EQU CVTMAP+136 02328000 CVTFBOSV EQU CVTMAP+132 02329000 CVTNUCB EQU CVTMAP+128 02330000 CVTIXAVL EQU CVTMAP+124 02331000 CVTSV76M EQU CVTIOQET 02332000 CVTDCBA EQU CVTMAP+117 02333000 CVTMVS2 EQU CVTDCB 02334000 CVT6DAT EQU CVTDCB 02335000 CVT4MPS EQU CVTDCB 02336000 CVTRSV09 EQU CVTDCB 02337000 CVT4MS1 EQU CVTDCB 02338000 CVT2SPS EQU CVTDCB 02339000 CVT1SSS EQU CVTDCB 02340000 CVTRSV08 EQU CVTDCB 02341000 CVTSTB EQU CVTMAP+112 02342000 CVTQTD00 EQU CVTMAP+108 02343000 CVTQTE00 EQU CVTMAP+104 02344000 CVTCUCB EQU CVTMAP+100 02345000 CVTSJQ EQU CVTMAP+96 02346000 CVTPBLDL EQU CVTMAP+92 02347000 CVTTPC EQU CVTMAP+88 02348000 CVTSVDCB EQU CVTMAP+84 02349000 CVTBRET EQU CVTMAP+82 02350000 CVTEXIT EQU CVTMAP+80 02351000 CVT0FN00 EQU CVTMAP+76 02352000 CVTDARA EQU CVTDAR+1 02353000 CVTRSV07 EQU CVTFLGS1 02354000 CVTRSV06 EQU CVTFLGS1 02355000 CVTRSV05 EQU CVTFLGS1 02356000 CVTRSV04 EQU CVTFLGS1 02357000 CVTRSV03 EQU CVTFLGS1 02358000 CVTRSV02 EQU CVTFLGS1 02359000 CVTRSV01 EQU CVTFLGS1 02360000 CVTDMPLK EQU CVTFLGS1 02361000 CVTXITP EQU CVTMAP+68 02362000 CVTZDTAB EQU CVTMAP+64 02363000 CVTMSLT EQU CVTMAP+60 02364000 CVTDATE EQU CVTMAP+56 02365000 CVTBTERM EQU CVTMAP+52 02366000 CVTSYSAD EQU CVTMAP+48 02367000 CVTXTLER EQU CVTMAP+44 02368000 CVTILK2 EQU CVTMAP+40 02369000 CVTILK1 EQU CVTMAP+36 02370000 CVTPRLTV EQU CVTMAP+32 02371000 CVTPCNVT EQU CVTMAP+28 02372000 CVT0VL00 EQU CVTMAP+24 02373000 CVTXAPG EQU CVTMAP+20 02374000 CVTBUF EQU CVTMAP+16 02375000 CVTJOB EQU CVTMAP+12 02376000 CVTLINK EQU CVTMAP+8 02377000 CVT0EF00 EQU CVTMAP+4 02378000 CVTTCBP EQU CVTMAP 02379000 RCARETAD EQU RCA+20 02380000 RCATASID EQU RCA+18 02381000 RCAREP1 EQU RCANAME6 02382000 RCAPSIF EQU RCANAME6 02383000 RCAPSIX EQU RCANAME6 02384000 RCAVEQRP EQU RCANAME6 02385000 RCARCFC EQU RCANAME6 02386000 RCACSGB EQU RCANAME6 02387000 RCAFXL EQU RCANAME6 02388000 RCAPS113 EQU RCANAME6 02389000 RCAFREE EQU RCANAME5 02390000 RCARFR2 EQU RCANAME5 02391000 RCACPBR EQU RCANAME5 02392000 RCAOPBR EQU RCANAME5 02393000 RCASORT EQU RCANAME5 02394000 RCASIRT EQU RCANAME5 02395000 RCARELV EQU RCANAME5 02396000 RCARELF EQU RCANAME5 02397000 RCAGFAD EQU RCANAME4 02398000 RCAVEQRI EQU RCANAME4 02399000 RCAVEQRF EQU RCANAME4 02400000 RCAVEQRC EQU RCANAME4 02401000 RCATERM EQU RCANAME4 02402000 RCASQA EQU RCANAME4 02403000 RCASWIN EQU RCANAME4 02404000 RCASOUT EQU RCANAME4 02405000 RCARFR EQU RCANAME3 02406000 RCARELS EQU RCANAME3 02407000 RCARCFI EQU RCANAME3 02408000 RCARCF EQU RCANAME3 02409000 RCAPSII EQU RCANAME3 02410000 RCAPSIB EQU RCANAME3 02411000 RCAPS112 EQU RCANAME3 02412000 RCAPIX EQU RCANAME3 02413000 RCAPIOP EQU RCANAME2 02414000 RCASWPC EQU RCANAME2 02415000 RCASWPP EQU RCANAME2 02416000 RCAPCB EQU RCANAME2 02417000 RCAOUT EQU RCANAME2 02418000 RCAITAS EQU RCANAME2 02419000 RCAIOCP EQU RCANAME2 02420000 RCAINV EQU RCANAME1 02421000 RCAGFA EQU RCANAME1 02422000 RCAFXLD EQU RCANAME1 02423000 RCAVEQR EQU RCANAME1 02424000 RCADSEG EQU RCANAME1 02425000 RCADLAS EQU RCANAME1 02426000 RCACSEG EQU RCANAME1 02427000 RCAVAMSI EQU RCANAME1 02428000 @NM00045 EQU RCAFLAGS 02429000 RCADISP EQU RCAFLAGS 02430000 @NM00044 EQU RCAFLAGS 02431000 RCAQS EQU RCAFLAGS 02432000 RCAPSIER EQU RCAFLAGS 02433000 RCAABEND EQU RCAFLAGS 02434000 RCALL EQU RCAFLAGS 02435000 RCASAL EQU RCAFLAGS 02436000 @NM00043 EQU RCANAME7 02437000 RCAPRSS EQU RCANAME7 02438000 RCAPRSR EQU RCANAME7 02439000 RCAPRSB EQU RCANAME7 02440000 RCAPSIY EQU RCANAME7 02441000 RCAPIOI EQU RCANAME7 02442000 RCAPARM1 EQU RCA+4 02443000 RCAPARM0 EQU RCA 02444000 @NM00042 EQU SRB+40 02445000 @NM00041 EQU SRB+38 02446000 SRBPKF EQU SRB+36 02447000 SRBSAVE EQU SRB+32 02448000 SRBPTCB EQU SRBFLC+4 02449000 SRBCPAFF EQU SRBFLC 02450000 PCBEND EQU PCB+64 02451000 PCBAIA EQU PCB+36 02452000 PCBSPCTE EQU PCBRB 02453000 PCBVBN EQU PCB+26 02454000 PCBRBN EQU PCB+24 02455000 PCBPGTA EQU PCBPGT+1 02456000 PCBSWPS2 EQU PCBFL3 02457000 @NM00040 EQU PCBFL3 02458000 PCBNOREC EQU PCBFL3 02459000 PCBDFRLS EQU PCBFL3 02460000 PCBSWPLS EQU PCBFL3 02461000 PCBSWPS1 EQU PCBFL3 02462000 PCBSWPIN EQU PCBFL3 02463000 PCBSWPOT EQU PCBFL3 02464000 PCBXPTA EQU PCBXPT+1 02465000 @NM00039 EQU PCBFL2 02466000 @NM00038 EQU PCBFL2 02467000 PCBVIO EQU PCBFL2 02468000 PCBSUPRS EQU PCBFL2 02469000 PCBRESET EQU PCBFL2 02470000 PCBIOERR EQU PCBFL2 02471000 PCBFREAL EQU PCBFL2 02472000 PCBRTPA EQU PCBRTP+1 02473000 PCBIOCMP EQU PCBFL1 02474000 PCBIOI EQU PCBFL1 02475000 PCBROOT EQU PCBFL1 02476000 PCBLFR EQU PCBFL1 02477000 PCBLLHLD EQU PCBFL1 02478000 PCBSRBMD EQU PCBFL1 02479000 PCBPEX EQU PCBFL1 02480000 @NM00037 EQU PCBFL1 02481000 PCBBQPA EQU PCBBQP 02482000 PCBCQN EQU PCBFQP 02483000 @NM00036 EQU PFTFLAG2 02484000 @NM00035 EQU PFTFLAG2 02485000 PFTIRRG EQU PFTFLAG2 02486000 PFTVRALC EQU PFTFLAG1 02487000 PFTBADPG EQU PFTFLAG1 02488000 PFTPCBSI EQU PFTFLAG1 02489000 PFTVRPLT EQU PFTFLAG1 02490000 PFTLSQA EQU PFTFLAG1 02491000 PFTRSV1 EQU PFTE+10 02492000 PFTVBN EQU PFTPGID+2 02493000 PFTASID EQU PFTPGID 02494000 RSMASMHD EQU RSMHD+40 02495000 RSMFOEQ EQU RSMHD+36 02496000 RSMLIOQL EQU RSMLIOQ+4 02497000 RSMLIOQF EQU RSMLIOQ 02498000 RSMLSQAL EQU RSMLSQA+2 02499000 RSMLSQAF EQU RSMLSQA 02500000 RSMLFQL EQU RSMLFQ+2 02501000 RSMLFQF EQU RSMLFQ 02502000 RSMRSV2 EQU RSMHD+16 02503000 RSMCNTFX EQU RSMHD+14 02504000 RSMRSV1 EQU RSMHD+13 02505000 @NM00034 EQU RSMFLG1 02506000 RSMFAIL EQU RSMFLG1 02507000 RSMCPNC EQU RSMFLG1 02508000 RSMCPNU EQU RSMFLG1 02509000 RSMIOCPC EQU RSMFLG1 02510000 RSMIOCPU EQU RSMFLG1 02511000 RSMSPCT EQU RSMHD+4 02512000 RSMVSTO EQU RSMHD 02513000 ASCBEND EQU ASCB+208 02514000 ASCBSRBT EQU ASCB+200 02515000 ASCBSWTL EQU ASCB+196 02516000 ASCBRS14 EQU ASCB+195 02517000 ASCBSMCT EQU ASCB+194 02518000 ASCBRS12 EQU ASCB+192 02519000 ASCBPCTT EQU ASCB+188 02520000 ASCBVGTT EQU ASCB+184 02521000 ASCBRV43 EQU ASCBSRQ4 02522000 ASCBRV42 EQU ASCBSRQ4 02523000 ASCBRV41 EQU ASCBSRQ4 02524000 ASCBRV40 EQU ASCBSRQ4 02525000 ASCBRV39 EQU ASCBSRQ4 02526000 ASCBRV38 EQU ASCBSRQ4 02527000 ASCBRV37 EQU ASCBSRQ4 02528000 ASCBRV36 EQU ASCBSRQ4 02529000 ASCBRV35 EQU ASCBSRQ3 02530000 ASCBRV34 EQU ASCBSRQ3 02531000 ASCBRV33 EQU ASCBSRQ3 02532000 ASCBRV32 EQU ASCBSRQ3 02533000 ASCBRV31 EQU ASCBSRQ3 02534000 ASCBRV30 EQU ASCBSRQ3 02535000 ASCBRV29 EQU ASCBSRQ3 02536000 ASCBRV28 EQU ASCBSRQ3 02537000 ASCBRV27 EQU ASCBSRQ2 02538000 ASCBRV26 EQU ASCBSRQ2 02539000 ASCBRV25 EQU ASCBSRQ2 02540000 ASCBRV24 EQU ASCBSRQ2 02541000 ASCBRV23 EQU ASCBSRQ2 02542000 ASCBRV22 EQU ASCBSRQ2 02543000 ASCBRV21 EQU ASCBSRQ2 02544000 ASCBRV20 EQU ASCBSRQ2 02545000 ASCBRV19 EQU ASCBSRQ1 02546000 ASCBRV18 EQU ASCBSRQ1 02547000 ASCBRV17 EQU ASCBSRQ1 02548000 ASCBRV16 EQU ASCBSRQ1 02549000 ASCBRV15 EQU ASCBSRQ1 02550000 ASCBRV14 EQU ASCBSRQ1 02551000 ASCBRV13 EQU ASCBSRQ1 02552000 ASCBSTA EQU ASCBSRQ1 02553000 ASCBJBNS EQU ASCB+176 02554000 ASCBJBNI EQU ASCB+172 02555000 ASCBMCC EQU ASCB+168 02556000 ASCBRTWA EQU ASCB+164 02557000 ASCBIQEA EQU ASCB+160 02558000 ASCBXMPQ EQU ASCB+156 02559000 ASCBRS01 EQU ASCB+154 02560000 ASCBOUXB EQU ASCB+148 02561000 ASCBMECB EQU ASCB+140 02562000 ASCBQECB EQU ASCB+136 02563000 ASCBLSQH EQU ASCBLKGP+4 02564000 ASCBLOCK EQU ASCBLKGP 02565000 ASCBTCBS EQU ASCB+124 02566000 ASCBNVSC EQU ASCB+122 02567000 ASCBVSC EQU ASCB+120 02568000 ASCBSRBS EQU ASCB+118 02569000 ASCBSSRB EQU ASCB+116 02570000 ASCBRV06 EQU ASCBFLG2 02571000 ASCBRV05 EQU ASCBFLG2 02572000 ASCBRV04 EQU ASCBFLG2 02573000 ASCBSNQS EQU ASCBFLG2 02574000 ASCBS2S EQU ASCBFLG2 02575000 ASCBCEXT EQU ASCBFLG2 02576000 ASCBPXMT EQU ASCBFLG2 02577000 ASCBXMPT EQU ASCBFLG2 02578000 ASCBRF07 EQU ASCBDSP1 02579000 ASCBRF06 EQU ASCBDSP1 02580000 ASCBRF05 EQU ASCBDSP1 02581000 ASCBRF04 EQU ASCBDSP1 02582000 ASCBRF03 EQU ASCBDSP1 02583000 ASCBRF02 EQU ASCBDSP1 02584000 ASCBFAIL EQU ASCBDSP1 02585000 ASCBNOQ EQU ASCBDSP1 02586000 ASCBSWCT EQU ASCB+112 02587000 ASCBASXB EQU ASCB+108 02588000 ASCBTMCH EQU ASCB+104 02589000 ASCBNSWP EQU ASCBFLG1 02590000 ASCBTYP1 EQU ASCBFLG1 02591000 ASCBSTND EQU ASCBFLG1 02592000 ASCBABNT EQU ASCBFLG1 02593000 ASCBTERM EQU ASCBFLG1 02594000 ASCBS3S EQU ASCBFLG1 02595000 ASCBCMSH EQU ASCBFLG1 02596000 ASCBTOFF EQU ASCBFLG1 02597000 ASCBRF01 EQU ASCBRCTF 02598000 ASCBTMLW EQU ASCBRCTF 02599000 ASCBOUT EQU ASCBRCTF 02600000 ASCBWAIT EQU ASCBRCTF 02601000 ASCBRV08 EQU ASCBRCTF 02602000 ASCBFQU EQU ASCBRCTF 02603000 ASCBFRS EQU ASCBRCTF 02604000 ASCBTMNO EQU ASCBRCTF 02605000 ASCBAFFN EQU ASCBFW1 02606000 ASCBDUMP EQU ASCB+96 02607000 ASCBRV44 EQU ASCB+92 02608000 ASCBUBET EQU ASCB+88 02609000 ASCBECB EQU ASCB+84 02610000 ASCBJSTL EQU ASCB+80 02611000 ASCBEWST EQU ASCB+72 02612000 ASCBTSB EQU ASCB+60 02613000 ASCBCSCB EQU ASCB+56 02614000 ASCBRSMA EQU ASCBRSM+1 02615000 ASCBRV54 EQU ASCBRSMF 02616000 ASCBRV53 EQU ASCBRSMF 02617000 ASCBRV52 EQU ASCBRSMF 02618000 ASCBRV51 EQU ASCBRSMF 02619000 ASCBVEQR EQU ASCBRSMF 02620000 ASCBN2LP EQU ASCBRSMF 02621000 ASCB1LPU EQU ASCBRSMF 02622000 ASCB2LPU EQU ASCBRSMF 02623000 ASCBLDA EQU ASCB+48 02624000 ASCBSTOR EQU ASCB+44 02625000 ASCBDP EQU ASCB+43 02626000 ASCBRV07 EQU ASCB+42 02627000 ASCBIOSM EQU ASCB+40 02628000 ASCBSEQN EQU ASCB+38 02629000 ASCBCPUS EQU ASCB+32 02630000 ASCBSPL EQU ASCB+28 02631000 ASCBIOSP EQU ASCB+24 02632000 ASCBSYNC EQU ASCBSUPC+4 02633000 ASCBSVRB EQU ASCBSUPC 02634000 ASCBCMSF EQU ASCB+12 02635000 ASCBBWDP EQU ASCB+8 02636000 ASCBFWDP EQU ASCB+4 02637000 ASCBASCB EQU ASCB 02638000 ASCBEGIN EQU ASCB 02639000 PVTEND EQU PVT+1944 02640000 PVTTASID EQU PVT+1942 02641000 PVTXXXXX EQU PVT+1940 02642000 PVTMVCLC EQU PVT+1936 02643000 PVTVCONS EQU PVT+1896 02644000 PVTPRSB EQU PVT+1892 02645000 PVTCIOQL EQU PVTPCBQS+36 02646000 PVTCIOQF EQU PVTPCBQS+32 02647000 PVTGFADL EQU PVTPCBQS+28 02648000 PVTFPCBL EQU PVTPCBQS+20 02649000 PVTFPCBF EQU PVTPCBQS+16 02650000 PVTPCBQR EQU PVTPCBQS 02651000 PVTLPAFX EQU PVT+1850 02652000 PVTLSQAF EQU PVT+1848 02653000 PVTLPAR EQU PVT+1844 02654000 PVTLPAI EQU PVT+1840 02655000 PVTLPAFC EQU PVT+1838 02656000 PVTCHUIC EQU PVT+1836 02657000 PVTCOMFX EQU PVT+1834 02658000 PVTFIXOK EQU PVT+1826 02659000 PVTPEROK EQU PVT+1824 02660000 PVTPERFX EQU PVT+1820 02661000 PVTRESV5 EQU PVT+1773 02662000 PVTSRBS EQU PVT+1772 02663000 PVTSSRB EQU PVT+1768 02664000 PVTACA EQU PVTWSAX+1400 02665000 PVTWSA18 EQU PVTWSAX+1256 02666000 PVTWSA17 EQU PVTWSAX+1184 02667000 PVTWSA16 EQU PVTWSAX+1112 02668000 PVTWSA15 EQU PVTWSAX+1040 02669000 PVTWSA14 EQU PVTWSAX+968 02670000 PVTWSA13 EQU PVTWSAX+896 02671000 PVTWSA11 EQU PVTWSAX+752 02672000 PVTWSA10 EQU PVTWSAX+672 02673000 PVTWSA9 EQU PVTWSAX+592 02674000 PVTWSA8 EQU PVTWSAX+504 02675000 PVTWSA7 EQU PVTWSAX+432 02676000 PVTWSA6 EQU PVTWSAX+360 02677000 PVTWSA5 EQU PVTWSAX+288 02678000 PVTWSA4 EQU PVTWSAX+216 02679000 PVTWSA3 EQU PVTWSAX+144 02680000 PVTWSA2 EQU PVTWSAX+72 02681000 PVTWSA1 EQU PVTWSAX 02682000 PVTPFTQR EQU PVTQS+20 02683000 PVTRSBQL EQU PVTQS+18 02684000 PVTRSBQF EQU PVTQS+16 02685000 PVTSQAQL EQU PVTQS+14 02686000 PVTSQAQF EQU PVTQS+12 02687000 PVTCFQL EQU PVTQS+10 02688000 PVTCFQF EQU PVTQS+8 02689000 PVTAFQL EQU PVTQS+2 02690000 PVTSPFR EQU PVT+302 02691000 PVTSPREC EQU PVT+296 02692000 PVTCAREC EQU PVT+292 02693000 PVTCAOUT EQU PVT+288 02694000 PVTCAIN EQU PVT+284 02695000 PVTNSWPS EQU PVT+280 02696000 PVTNPREC EQU PVT+276 02697000 PVTSPOUT EQU PVT+272 02698000 PVTSPIN EQU PVT+268 02699000 PVTVAMR EQU PVT+264 02700000 PVTVAMO EQU PVT+260 02701000 PVTVAMI EQU PVT+256 02702000 PVTNPOUT EQU PVT+252 02703000 PVTNPIN EQU PVT+248 02704000 PVTPRSET EQU PVT+244 02705000 PVTFRSLT EQU PVT+240 02706000 PVTPAGIO EQU PVT+236 02707000 PVTSWPIO EQU PVT+232 02708000 PVTPSWPP EQU PVT+228 02709000 PVTPPREF EQU PVT+224 02710000 PVTPOPBR EQU PVT+220 02711000 PVTPRELF EQU PVT+216 02712000 PVTPRELV EQU PVT+212 02713000 PVTPFREE EQU PVT+208 02714000 PVTPRELS EQU PVT+204 02715000 PVTPOUT EQU PVT+200 02716000 PVTPFXLD EQU PVT+196 02717000 PVTPITAS EQU PVT+192 02718000 PVTPDSEG EQU PVT+184 02719000 PVTPCSGB EQU PVT+180 02720000 PVTPCSEG EQU PVT+176 02721000 PVTPINV EQU PVT+172 02722000 PVTPSWPC EQU PVT+168 02723000 PVTPSOUT EQU PVT+164 02724000 PVTPSWIN EQU PVT+160 02725000 PVTPRCV EQU PVT+156 02726000 PVTPRCF EQU PVT+148 02727000 PVTPVRC EQU PVT+144 02728000 PVTPVRLS EQU PVT+136 02729000 PVTPVEQR EQU PVT+132 02730000 PVTPPIOI EQU PVT+128 02731000 PVTPVRPO EQU PVT+124 02732000 PVTPRFR EQU PVT+120 02733000 PVTPFP2 EQU PVT+116 02734000 PVTPFP EQU PVT+112 02735000 PVTPFTE EQU PVT+108 02736000 PVTPCB EQU PVT+104 02737000 PVTREP2 EQU PVT+100 02738000 PVTPIOCP EQU PVT+96 02739000 PVTPIOP EQU PVT+92 02740000 PVTPGFA EQU PVT+84 02741000 PVTPSQA EQU PVT+80 02742000 PVTPSINT EQU PVT+76 02743000 PVTPSIB EQU PVT+72 02744000 PVTPCIWA EQU PVT+64 02745000 PVTHQSA EQU PVT+62 02746000 PVTLQSA EQU PVT+60 02747000 PVTOROOT EQU PVT+56 02748000 PVTREUS EQU PVT+48 02749000 PVTRSUS EQU PVT+44 02750000 PVTVROOT EQU PVT+40 02751000 PVTPCBLO EQU PVT+38 02752000 PVTPCBCT EQU PVT+36 02753000 PVTDFRS EQU PVT+34 02754000 PVTRSQA EQU PVT+32 02755000 PVTPTLB EQU PVT+31 02756000 PVTPCBNO EQU PVT+30 02757000 PVTSRBNO EQU PVT+29 02758000 PVTLCSA EQU PVT+26 02759000 PVTLPRIV EQU PVT+24 02760000 PVTLVR EQU PVT+22 02761000 PVTFVR EQU PVT+20 02762000 PVTLPFN EQU PVT+18 02763000 PVTFPFN EQU PVT+16 02764000 PVTSSPIN EQU PVT+11 02765000 PVTPCBS EQU PVT+10 02766000 PVTPOOL EQU PVT+8 02767000 @NM00033 EQU PVTFLAG2 02768000 PVTRSMGM EQU PVTFLAG2 02769000 PVTDUMP EQU PVTFLAG1 02770000 PVTSIT EQU PVTFLAG1 02771000 PVTAPREF EQU PVTFLAG1 02772000 PVTPCBLT EQU PVTFLAG1 02773000 PVTBGMS EQU PVTFLAG1 02774000 PVTPMSG EQU PVTFLAG1 02775000 ASVTEND EQU ASVT+528 02776000 ASVTAVAL EQU ASVTENTY 02777000 ASVTAVAI EQU ASVTFRST 02778000 ASVTRS00 EQU ASVT+520 02779000 ASVTMAXU EQU ASVT+516 02780000 ASVTASVT EQU ASVT+512 02781000 ASVTBEGN EQU ASVT+512 02782000 @NM00008 EQU ASVT 02783000 OUCBEND EQU OUCB+136 02784000 OUCBNTSP EQU OUCB+134 02785000 OUCBNDS EQU OUCB+132 02786000 OUCBTIO EQU OUCB+128 02787000 OUCBTCP EQU OUCB+124 02788000 OUCBIOSM EQU OUCB+108 02789000 OUCBTMP EQU OUCB+104 02790000 OUCBR03 EQU OUCB+102 02791000 OUCBIOR EQU OUCB+100 02792000 OUCBCRV EQU OUCB+98 02793000 OUCBIRV EQU OUCB+96 02794000 OUCBWMR EQU OUCB+92 02795000 OUCBCMRV EQU OUCB+88 02796000 OUCBCF2 EQU OUCBCFL 02797000 OUCBRSM EQU OUCBCFL 02798000 OUCBRDY EQU OUCBCFL 02799000 OUCBACN EQU OUCBCSW 02800000 OUCBACT EQU OUCB+80 02801000 OUCBWSS EQU OUCB+78 02802000 OUCBPSO EQU OUCB+76 02803000 OUCBTMO EQU OUCB+72 02804000 OUCBTMS EQU OUCB+68 02805000 OUCBMSO EQU OUCB+64 02806000 OUCBIOC EQU OUCB+60 02807000 OUCBCPU EQU OUCB+56 02808000 OUCBWMS EQU OUCB+52 02809000 OUCBTMW EQU OUCB+48 02810000 OUCBIMCB EQU OUCB+44 02811000 OUCBASCB EQU OUCB+40 02812000 OUCBSWC EQU OUCB+38 02813000 OUCBSRC EQU OUCB+37 02814000 OUCBDMN EQU OUCB+36 02815000 OUCBDMO EQU OUCB+34 02816000 OUCBWMG EQU OUCB+32 02817000 OUCBPGP EQU OUCB+31 02818000 OUCBR40 EQU OUCB+30 02819000 OUCBR30 EQU OUCB+29 02820000 OUCBSPG EQU OUCB+28 02821000 OUCBRDP EQU OUCB+27 02822000 OUCBNDP EQU OUCB+26 02823000 OUCBRPG EQU OUCB+25 02824000 OUCBNPG EQU OUCB+24 02825000 OUCBUF7 EQU OUCBUFL 02826000 OUCBUF6 EQU OUCBUFL 02827000 OUCBUF5 EQU OUCBUFL 02828000 OUCBTSWC EQU OUCBUFL 02829000 OUCBTSWP EQU OUCBUFL 02830000 OUCBRSWP EQU OUCBUFL 02831000 OUCBJSAS EQU OUCBUFL 02832000 OUCBJSFS EQU OUCBUFL 02833000 OUCBNQC EQU OUCB+22 02834000 OUCBMWT EQU OUCBEFL 02835000 OUCBQSC EQU OUCBEFL 02836000 OUCBQSS EQU OUCBEFL 02837000 OUCBNQF EQU OUCBEFL 02838000 OUCBCIM EQU OUCBEFL 02839000 OUCBOWT EQU OUCBEFL 02840000 OUCBTRM EQU OUCBEFL 02841000 OUCBLWT EQU OUCBEFL 02842000 OUCBINC EQU OUCBTFL 02843000 OUCBINP EQU OUCBTFL 02844000 OUCBMAR EQU OUCBTFL 02845000 OUCBPCH EQU OUCBTFL 02846000 OUCBRTR EQU OUCBTFL 02847000 OUCBNTR EQU OUCBTFL 02848000 OUCBSTR EQU OUCBTFL 02849000 OUCBATR EQU OUCBTFL 02850000 OUCBASW EQU OUCBAFL 02851000 OUCBNWT EQU OUCBAFL 02852000 OUCBR02 EQU OUCBAFL 02853000 OUCBJSR EQU OUCBAFL 02854000 OUCBCPL EQU OUCBAFL 02855000 OUCBRMA EQU OUCBAFL 02856000 OUCBAPG EQU OUCBAFL 02857000 OUCBAF0 EQU OUCBAFL 02858000 OUCBFXS EQU OUCBYFL 02859000 OUCBDTA EQU OUCBYFL 02860000 OUCBAXS EQU OUCBYFL 02861000 OUCBPSTR EQU OUCBYFL 02862000 OUCBMNT EQU OUCBYFL 02863000 OUCBLOG EQU OUCBYFL 02864000 OUCBSTT EQU OUCBYFL 02865000 OUCBPSTE EQU OUCBYFL 02866000 OUCBSCN EQU OUCBSFL 02867000 OUCBENQ EQU OUCBSFL 02868000 OUCBPVL EQU OUCBSFL 02869000 OUCBNSWI EQU OUCBSFL 02870000 OUCBINV EQU OUCBSFL 02871000 OUCBBIB EQU OUCBSFL 02872000 OUCBCTI EQU OUCBSFL 02873000 OUCBNSW EQU OUCBSFL 02874000 OUCBQF7 EQU OUCBQFL 02875000 OUCBQF6 EQU OUCBQFL 02876000 OUCBOUT EQU OUCBQFL 02877000 OUCBOFF EQU OUCBQFL 02878000 OUCBQSFL EQU OUCBQFL 02879000 OUCBGOB EQU OUCBQFL 02880000 OUCBGOI EQU OUCBQFL 02881000 OUCBGOO EQU OUCBQFL 02882000 OUCBTMA EQU OUCB+12 02883000 OUCBBCK EQU OUCB+8 02884000 OUCBFWD EQU OUCB+4 02885000 OUCBNAME EQU OUCB 02886000 @NM00032 EQU PSA+3668 02887000 PSASTAK EQU PSA+3072 02888000 @NM00031 EQU PSA+1048 02889000 PSAUSEND EQU PSA+1048 02890000 PSARV062 EQU PSA+1044 02891000 PSACDAL EQU PSA+1040 02892000 PSAWTCOD EQU PSA+1036 02893000 PSAATCVT EQU PSA+1032 02894000 PSAPCPSW EQU PSA+1024 02895000 PSAPIR2 EQU PSA+1020 02896000 PSARV059 EQU PSA+1018 02897000 PSASVC13 EQU PSA+1016 02898000 PSALSFCC EQU PSA+1012 02899000 PSASFACC EQU PSA+1008 02900000 PSASTOP EQU PSA+992 02901000 PSASTART EQU PSA+976 02902000 PSARSPSW EQU PSA+968 02903000 PSASRPSW EQU PSA+960 02904000 PSARV045 EQU PSA+892 02905000 PSARV044 EQU PSA+888 02906000 PSARV043 EQU PSA+884 02907000 PSARV042 EQU PSA+880 02908000 PSARV041 EQU PSA+876 02909000 PSARV040 EQU PSA+872 02910000 PSARV025 EQU PSA+868 02911000 PSADSSED EQU PSA+868 02912000 PSADSSPR EQU PSA+864 02913000 PSADSSFW EQU PSA+860 02914000 PSADSS14 EQU PSA+856 02915000 PSADSSPP EQU PSA+848 02916000 PSADSSRP EQU PSA+840 02917000 PSADSS05 EQU PSADSSF4 02918000 PSADSS10 EQU PSADSSF4 02919000 PSADSSVE EQU PSADSSF4 02920000 PSADSSDE EQU PSADSSF4 02921000 PSADSSC0 EQU PSADSSF4 02922000 PSADSSIE EQU PSADSSF4 02923000 PSADSS12 EQU PSADSSF4 02924000 PSADSSRC EQU PSADSSF4 02925000 PSARV057 EQU PSADSSF3 02926000 PSARV056 EQU PSADSSF3 02927000 PSARV055 EQU PSADSSF3 02928000 PSADSSMC EQU PSADSSF3 02929000 PSADSSRW EQU PSADSSF3 02930000 PSADSSNM EQU PSADSSF3 02931000 PSADSSES EQU PSADSSF3 02932000 PSADSSGP EQU PSADSSF3 02933000 PSADSSF2 EQU PSADSSFL+1 02934000 PSADSSPI EQU PSADSSF1 02935000 PSADSSOI EQU PSADSSF1 02936000 PSADSSSP EQU PSADSSF1 02937000 PSADSSTP EQU PSADSSF1 02938000 PSADSSDW EQU PSADSSF1 02939000 PSADSSDD EQU PSADSSF1 02940000 PSADSSDM EQU PSADSSF1 02941000 PSADSSMV EQU PSADSSF1 02942000 PSADSSTS EQU PSA+816 02943000 PSADSSWK EQU PSA+812 02944000 PSADSSR3 EQU PSA+808 02945000 PSADSSR2 EQU PSA+804 02946000 PSADSSRS EQU PSA+800 02947000 PSASTOR EQU PSA+796 02948000 PSACPUSA EQU PSA+794 02949000 PSAVSTAP EQU PSA+792 02950000 PSAWKVAP EQU PSA+788 02951000 PSAWKRAP EQU PSA+784 02952000 PSAMCHIC EQU PSA+783 02953000 PSARV061 EQU PSA+782 02954000 PSASYMSK EQU PSA+781 02955000 PSAMCHFL EQU PSA+780 02956000 PSACR0 EQU PSA+776 02957000 PSAPSWSV EQU PSA+768 02958000 PSALITA EQU PSA+764 02959000 PSACLHS EQU PSAHLHI 02960000 PSALKR15 EQU PSALKSA+60 02961000 PSALKR14 EQU PSALKSA+56 02962000 PSALKR13 EQU PSALKSA+52 02963000 PSALKR12 EQU PSALKSA+48 02964000 PSALKR11 EQU PSALKSA+44 02965000 PSALKR10 EQU PSALKSA+40 02966000 PSALKR9 EQU PSALKSA+36 02967000 PSALKR8 EQU PSALKSA+32 02968000 PSALKR7 EQU PSALKSA+28 02969000 PSALKR6 EQU PSALKSA+24 02970000 PSALKR5 EQU PSALKSA+20 02971000 PSALKR4 EQU PSALKSA+16 02972000 PSALKR3 EQU PSALKSA+12 02973000 PSALKR2 EQU PSALKSA+8 02974000 PSALKR1 EQU PSALKSA+4 02975000 PSALKR0 EQU PSALKSA 02976000 PSARV023 EQU PSACLHT+52 02977000 PSALOCAL EQU PSACLHT+48 02978000 PSACMSL EQU PSACLHT+44 02979000 PSAOPTL EQU PSACLHT+40 02980000 PSATPACL EQU PSACLHT+36 02981000 PSATPDNL EQU PSACLHT+32 02982000 PSATPNCL EQU PSACLHT+28 02983000 PSAIOSLL EQU PSACLHT+24 02984000 PSAIOSUL EQU PSACLHT+20 02985000 PSAIOSCL EQU PSACLHT+16 02986000 PSAIOSSL EQU PSACLHT+12 02987000 PSASALCL EQU PSACLHT+8 02988000 PSAASML EQU PSACLHT+4 02989000 PSADISPL EQU PSACLHT 02990000 PSASRSA EQU PSA+636 02991000 PSARV050 EQU PSA+634 02992000 PSADSSGO EQU PSA+633 02993000 PSARECUR EQU PSA+632 02994000 PSAHLHIS EQU PSA+628 02995000 PSAIPCSA EQU PSA+624 02996000 @NM00030 EQU PSA+621 02997000 PSAIPCDM EQU PSA+620 02998000 PSAIPCD EQU PSA+616 02999000 @NM00029 EQU PSA+613 03000000 PSAIPCRM EQU PSA+612 03001000 PSAIPCR EQU PSA+608 03002000 PSAMCHEX EQU PSA+600 03003000 PSAMPSW EQU PSA+592 03004000 PSAEXPS2 EQU PSA+584 03005000 PSAEXPS1 EQU PSA+576 03006000 PSAPIREG EQU PSA+572 03007000 PSARSREG EQU PSA+568 03008000 PSAGPREG EQU PSA+556 03009000 PSARV022 EQU PSASUP4 03010000 PSARV021 EQU PSASUP4 03011000 PSARV020 EQU PSASUP4 03012000 PSARV019 EQU PSASUP4 03013000 PSARV018 EQU PSASUP4 03014000 PSARV017 EQU PSASUP4 03015000 PSARV016 EQU PSASUP4 03016000 PSARV015 EQU PSASUP4 03017000 PSARV014 EQU PSASUP3 03018000 PSAULCMS EQU PSASUP3 03019000 PSARV012 EQU PSASUP3 03020000 PSAESTA EQU PSASUP3 03021000 PSASPR EQU PSASUP3 03022000 PSAPSREG EQU PSASUP3 03023000 PSAPI2 EQU PSASUP3 03024000 PSAIOSUP EQU PSASUP3 03025000 PSALCR EQU PSASUP2 03026000 PSARTM EQU PSASUP2 03027000 PSAACR EQU PSASUP2 03028000 PSAIPCE2 EQU PSASUP2 03029000 PSAIPCES EQU PSASUP2 03030000 PSAIPCEC EQU PSASUP2 03031000 PSAGTF EQU PSASUP2 03032000 PSAIPCRI EQU PSASUP2 03033000 PSATYPE6 EQU PSASUP1 03034000 PSATCTL EQU PSASUP1 03035000 PSADISP EQU PSASUP1 03036000 PSALOCK EQU PSASUP1 03037000 PSAPI EQU PSASUP1 03038000 PSAEXT EQU PSASUP1 03039000 PSASVC EQU PSASUP1 03040000 PSAIO EQU PSASUP1 03041000 PSAAOLD EQU PSA+548 03042000 PSAANEW EQU PSA+544 03043000 PSATOLD EQU PSA+540 03044000 PSATNEW EQU PSA+536 03045000 PSALCCAR EQU PSA+532 03046000 PSALCCAV EQU PSA+528 03047000 PSAPCCAR EQU PSA+524 03048000 PSAPCCAV EQU PSA+520 03049000 PSACPULA EQU PSA+518 03050000 PSACPUPA EQU PSA+516 03051000 PSAPSA EQU PSA+512 03052000 FLCHDEND EQU PSA+512 03053000 FLCCRSAV EQU FLCMCLA+280 03054000 FLCGRSAV EQU FLCMCLA+216 03055000 FLCFPSAV EQU FLCMCLA+184 03056000 FLCFLA EQU FLCMCLA+88 03057000 FLCRGNCD EQU FLCMCLA+84 03058000 FLCFSAA EQU FLCFSA+1 03059000 @NM00028 EQU FLCFSA 03060000 @NM00027 EQU FLCMCLA+72 03061000 FLCMCIC EQU FLCMCLA+64 03062000 @NM00026 EQU FLCMCLA+20 03063000 FLCIOAA EQU FLCIOA+1 03064000 @NM00025 EQU FLCIOA 03065000 @NM00024 EQU FLCMCLA+15 03066000 @NM00023 EQU FLCMCLA+14 03067000 @NM00022 EQU FLCMCLA+12 03068000 FLCLCL EQU FLCMCLA+8 03069000 FLCIOELA EQU FLCIOEL+1 03070000 @NM00021 EQU FLCIOEL 03071000 FLCCHNID EQU FLCMCLA 03072000 @NM00020 EQU PSA+160 03073000 FLCMTRCD EQU PSA+157 03074000 @NM00019 EQU PSA+156 03075000 FLCPERA EQU FLCPER+1 03076000 @NM00018 EQU FLCPER 03077000 @NM00017 EQU PSA+151 03078000 FLCPERCD EQU PSA+150 03079000 FLCMCNUM EQU PSA+149 03080000 @NM00016 EQU PSA+148 03081000 FLCTEAA EQU FLCTEA+1 03082000 @NM00015 EQU FLCTEA 03083000 PSAPIPC EQU PSAPICOD 03084000 PSAPIMC EQU PSAPICOD 03085000 PSAPIPER EQU PSAPICOD 03086000 PSARV049 EQU FLCPICOD 03087000 FLCPILCB EQU FLCPIILC 03088000 @NM00014 EQU FLCPIILC 03089000 @NM00013 EQU PSAEPPSW 03090000 FLCSVCN EQU PSAESPSW+2 03091000 FLCSILCB EQU FLCSVILC 03092000 @NM00012 EQU FLCSVILC 03093000 @NM00011 EQU PSAESPSW 03094000 FLCEICOD EQU PSAEEPSW+2 03095000 PSASPAD EQU PSAEEPSW 03096000 @NM00010 EQU PSA+128 03097000 FLCINPSW EQU PSA+120 03098000 FLCMNPSW EQU PSA+112 03099000 FLCPNPSW EQU PSA+104 03100000 FLCSNPSW EQU PSA+96 03101000 FLCENPSW EQU PSA+88 03102000 FLCTRACE EQU PSA+84 03103000 FLCTIMER EQU PSA+80 03104000 FLCCVT2 EQU PSA+76 03105000 FLCCAW EQU PSA+72 03106000 FLCCSW EQU PSA+64 03107000 FLCIOPSW EQU PSA+56 03108000 FLCMOPSW EQU PSA+48 03109000 FLCPOPSW EQU PSA+40 03110000 FLCSOPSW EQU PSA+32 03111000 FLCEOPSW EQU PSA+24 03112000 @NM00009 EQU FLCICCW2+4 03113000 FLCICCW1 EQU FLCROPSW 03114000 FLCIPPSW EQU FLCRNPSW 03115000 * END UNREFERENCED COMPONENTS 03116000 @RC00083 EQU ENQTEST 03117000 @RC00153 EQU EXITPFTE 03118000 @RC00166 EQU ENQAFQ 03119000 @RC00179 EQU @RC00177 03120000 @RC00187 EQU @RC00177 03121000 @RF00196 EQU @RC00177 03122000 @RC00208 EQU @RC00206 03123000 @RC00220 EQU @RC00218 03124000 @RF00227 EQU @RC00218 03125000 @RC00237 EQU PFTENQ 03126000 @RT00254 EQU EXITPFTE 03127000 @RT00263 EQU EXITPFTE 03128000 @RT00277 EQU AFQENQ 03129000 @RT00316 EQU PFTENQ 03130000 @RT00318 EQU PFTENQ 03131000 @RT00328 EQU GFADEFER 03132000 @RT00338 EQU EXITPFTE 03133000 @RT00340 EQU GETPCB 03134000 @RT00349 EQU SCHEDGFA 03135000 @RF00349 EQU GETPCB 03136000 @RT00358 EQU EXITPFTE 03137000 @RT00368 EQU SCHEDRP1 03138000 @RT00395 EQU CHECKAFC 03139000 @RT00398 EQU EXITPFTE 03140000 @RF00433 EQU @PB00002 03141000 @ENDDATA EQU * 03142000 END IEAVPFTE,(C'PLS1451',0701,78164) 03143000