TITLE 'IEAVSQA - L/SQA ALLOCATION *00001000 ' 00002000 * /* DO HOUSE KEEPING @Z40WPYC*/ 00003000 IEAVSQA CSECT @Z40WPYC 00004000 MODID BR=NO @Z40WPYC 00005000 ENTRY IEAVSQA2 @Z40WPYC 00006000 IEAVSQA2 DS 0H @Z40WPYC 00007000 L @15,CVTPTR GET CVT ADDRESS 00008000 L @15,CVTPVTP(@15) GET PVT ADDRESS 00009000 STM @00,@14,PVTWSA1(@15) SAVE REGS IN WORK AREA 00010000 BALR @12,0 ESTABLISH ADDRESSABILITY 00011000 USING *,@12 00012000 * PVTPTR=REG15; /* GET PVT PTR FROM REG 15 */ 00013000 LR PVTPTR,REG15 0065 00014000 * ASCBPTR=PSAAOLD; /* GET CURRENT ASCB PTR @ZA16816*/ 00015000 L ASCBPTR,PSAAOLD 0066 00016000 * RSMHDPTR=ASCBRSM; /* FIND RSM HEADER OF CURRENT 0067 00017000 * A.S. ON THIS CPU */ 00018000 L RSMHDPTR,ASCBRSM(,ASCBPTR) 0067 00019000 * RESPECIFY 0068 00020000 * (FRR, 0068 00021000 * WORKA, 0068 00022000 * WORKB) RESTRICTED; 0068 00023000 * FRR=PVTPRCV; /* GET FRR ADDRESS */ 00024000 L FRR,PVTPRCV(,PVTPTR) 0069 00025000 * GENERATE REFS(FRR) SETS(FRR,WORKA,WORKB); 0070 00026000 SETFRR A,FRRAD=(FRR),PARMAD=(FRR),WRKREGS=(WORKA,WORKB) 00027000 * PVTPRCA=FRR; /* SAVE RCA PTR IN PVT */ 00028000 ST FRR,PVTPRCA(,PVTPTR) 0071 00029000 * FRR->RCACSECT=RCACSQA; /* SET MODULE ID IN RCA */ 00030000 MVI RCACSECT(FRR),X'04' 0072 00031000 * FRR->RCASQA='1'B; /* SET ENTRY POINT FLAG */ 00032000 OI RCASQA(FRR),B'00100000' 0073 00033000 * RESPECIFY 0074 00034000 * (FRR, 0074 00035000 * WORKA, 0074 00036000 * WORKB) UNRESTRICTED; 0074 00037000 * 0074 00038000 * /*****************************************************************/ 00039000 * /* */ 00040000 * /* CLEAR PFTE ADDRESS SAVE AREA BEFORE STARTING */ 00041000 * /* */ 00042000 * /*****************************************************************/ 00043000 * 0075 00044000 * NVRSAVE=0; 0075 00045000 SLR @14,@14 0075 00046000 ST @14,NVRSAVE(,PVTPTR) 0075 00047000 * RESPECIFY 0076 00048000 * (PFTEPTR, 0076 00049000 * VBN, 0076 00050000 * RBN) RSTD; 0076 00051000 * VBN=PARM/4096; /* CONVERT VSA TO PAGE NUMBER */ 00052000 LR VBN,PARM 0077 00053000 SRL VBN,12 0077 00054000 * VBN=VBN*16; /* CONVERT PAGE NUMBER TO VBN */ 00055000 SLL VBN,4 0078 00056000 * RESPECIFY 0079 00057000 * PARM UNRSTD; 0079 00058000 * 0079 00059000 * /*****************************************************************/ 00060000 * /* */ 00061000 * /* ATTEMPT TO OBTAIN A FRAME FROM THE AVAILABLE FRAME QUEUE. SQA */ 00062000 * /* AND FIRST LEVEL 1 PREFERRED USER LSQA ARE ALLOCATED PREFERRED */ 00063000 * /* FRAMES IF POSSIBLE. THE AVAILABLE FRAME QUEUE IS EXAMINED */ 00064000 * /* FIRST FOR A SUITABLE FRAME. IF NONE IS FOUND, IEAVPREF IS */ 00065000 * /* CALLED TO EXAMINE OTHER QUEUES IN SEARCH OF A FRAME. @ZA16816*/ 00066000 * /* */ 00067000 * /*****************************************************************/ 00068000 * 0080 00069000 * RBN=PVTAFQF; /* GET 1ST AFQ PFTE RBN @ZA16816*/ 00070000 LH RBN,PVTAFQF(,PVTPTR) 0080 00071000 N RBN,@CF01885 0080 00072000 * DO WHILE RBN^=0; /* SCAN AFQ TO THE END @ZA16816*/ 00073000 B @DE00081 0081 00074000 @DL00081 DS 0H 0082 00075000 * PFTEPTR=PVTPFTP+RBN; /* GET SUBJECT PFTE PTR @ZA16816*/ 00076000 LR PFTEPTR,RBN 0082 00077000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0082 00078000 * IF PFTPREF='1'B THEN /* IF PFTE IS A PREFERRED 0083 00079000 * @ZA16816*/ 00080000 TM PFTPREF(PFTEPTR),B'00000100' 0083 00081000 BO @RT00083 0083 00082000 * GOTO ASSIGN; /* ITS GOOD - GO USE IT. @ZA16816*/ 00083000 * IF VBN=PVTLCSA THEN/* IF VBN GT OR = PVTLCSA 0113 00193000 * @ZA16816*/ 00194000 LH @10,PVTLCSA(,PVTPTR) 0113 00195000 N @10,@CF01885 0113 00196000 CR VBN,@10 0113 00197000 BL @RF00113 0113 00198000 * DO; /* IT IS AN SQA REQUEST @ZA16816*/ 00199000 * 0114 00200000 * /*************************************************/ 00201000 * /* */ 00202000 * /* SEARCH THE SQA RESERVE QUEUE IF REQUEST IF FOR*/ 00203000 * /* SQA. FIRST TRY TO GET A PREFERRED. IF NONE, */ 00204000 * /* TRY TO GET A NON V=R. FAILING THAT, TAKE A */ 00205000 * /* V=R. @ZA16816*/ 00206000 * /* */ 00207000 * /*************************************************/ 00208000 * 0115 00209000 * RESPECIFY 0115 00210000 * (WORKB) RSTD; /* @ZA16816*/ 00211000 * WORKB=PVTRSRVF; /* GET FIRST SQA RQ RBN @ZA16816*/ 00212000 LH WORKB,PVTRSRVF(,PVTPTR) 0116 00213000 N WORKB,@CF01885 0116 00214000 * IF WORKB^=0 THEN/* IF SQA RSV Q NOT EMPTY 0117 00215000 * @ZA16816*/ 00216000 CR WORKB,@14 0117 00217000 BE @RF00117 0117 00218000 * DO; /* START THE SEARCH @ZA16816*/ 00219000 * PFTEPTR=0; /* INITIALIZE PREF PTR @ZA16816*/ 00220000 SLR PFTEPTR,PFTEPTR 0119 00221000 * REG6=0; /* INITIALIZE NON V=R PTR 0120 00222000 * @ZA16816*/ 00223000 SLR REG6,REG6 0120 00224000 * DO UNTIL WORKB=0;/* SCAN ENTIRE RSV QUEUE 0121 00225000 * @ZA16816*/ 00226000 @DL00121 DS 0H 0122 00227000 * WORKB=PVTPFTP+WORKB;/* GET PTR TO PFTE 0122 00228000 * @ZA16816*/ 00229000 AL WORKB,PVTPFTP(,PVTPTR) 0122 00230000 * IF WORKB->PFTPREF='1'B THEN/* IF PREF PFTE, 00231000 * @ZA16816*/ 00232000 TM PFTPREF(WORKB),B'00000100' 0123 00233000 BNO @RF00123 0123 00234000 * DO; /* THEN @ZA16816*/ 00235000 * PFTEPTR=WORKB;/* SAVE THE POINTER 0125 00236000 * @ZA16816*/ 00237000 LR PFTEPTR,WORKB 0125 00238000 * WORKB=0;/* AND KILL THE SCAN @ZA16816*/ 00239000 SLR WORKB,WORKB 0126 00240000 * END; /* @ZA16816*/ 00241000 * ELSE /* HERE IF NON-PREF @ZA16816*/ 00242000 * DO; /* @ZA16816*/ 00243000 B @RC00123 0128 00244000 @RF00123 DS 0H 0129 00245000 * IF WORKB->PFTVR='0'B THEN/* IS IT NON 00246000 * V=R @ZA16816*/ 00247000 TM PFTVR(WORKB),B'00100000' 0129 00248000 BNZ @RF00129 0129 00249000 * REG6=WORKB;/* YES, SAVE POINTER 0130 00250000 * @ZA16816*/ 00251000 LR REG6,WORKB 0130 00252000 * WORKB=WORKB->PFTFQPTR;/* GET NEXT RBN 00253000 * ON Q @ZA16816*/ 00254000 @RF00129 LH @14,PFTFQPTR(,WORKB) 0131 00255000 N @14,@CF01885 0131 00256000 LR WORKB,@14 0131 00257000 * END; /* @ZA16816*/ 00258000 * END; /* END OF SQA RSV Q SCAN @ZA16816*/ 00259000 @RC00123 DS 0H 0133 00260000 @DE00121 SLR @14,@14 0133 00261000 CR WORKB,@14 0133 00262000 BNE @DL00121 0133 00263000 * IF PFTEPTR=0 THEN/* IF DID NOT GET A PREF, 0134 00264000 * @ZA16816*/ 00265000 CR PFTEPTR,@14 0134 00266000 BNE @RF00134 0134 00267000 * DO; /* CHECK NON V=R PTR SAVE 0135 00268000 * @ZA16816*/ 00269000 * IF REG6=0 THEN/* IF DID NOT GET NON V=R 00270000 * @ZA16816*/ 00271000 CR REG6,@14 0136 00272000 BNE @RF00136 0136 00273000 * DO; /* TAKE A V=R OF QUEUE. @ZA16816*/ 00274000 * PFTEPTR=PVTPFTP+PVTRSRVF;/* GET 1ST 00275000 * ONE @ZA16816*/ 00276000 LH PFTEPTR,PVTRSRVF(,PVTPTR) 0138 00277000 N PFTEPTR,@CF01885 0138 00278000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0138 00279000 * PVTSQVRC=PVTSQVRC-1;/* DECR V=R CNT 00280000 * @ZA16816*/ 00281000 SLR @14,@14 0139 00282000 IC @14,PVTSQVRC(,PVTPTR) 0139 00283000 BCTR @14,0 0139 00284000 STC @14,PVTSQVRC(,PVTPTR) 0139 00285000 * END; /* @ZA16816*/ 00286000 * ELSE /* SEARCH GOT A NON V=R @ZA16816*/ 00287000 * PFTEPTR=REG6;/* TAKE THE NON V=R FRAME 00288000 * @ZA16816*/ 00289000 B @RC00136 0141 00290000 @RF00136 LR PFTEPTR,REG6 0141 00291000 * PVTSQNPC=PVTSQNPC-1;/* DECR NON-PREF CNT 00292000 * @ZA16816*/ 00293000 @RC00136 SLR @14,@14 0142 00294000 IC @14,PVTSQNPC(,PVTPTR) 0142 00295000 BCTR @14,0 0142 00296000 STC @14,PVTSQNPC(,PVTPTR) 0142 00297000 * END; /* @ZA16816*/ 00298000 * ELSE /* IF TAKING A PREF FRAME 0144 00299000 * @ZA16816*/ 00300000 * PVTSQDC=PVTSQDC+1;/* INCR SQA RSV Q DEF CT 00301000 * @ZA16816*/ 00302000 B @RC00134 0144 00303000 @RF00134 LA @14,1 0144 00304000 SLR @10,@10 0144 00305000 IC @10,PVTSQDC(,PVTPTR) 0144 00306000 ALR @14,@10 0144 00307000 STC @14,PVTSQDC(,PVTPTR) 0144 00308000 * PVTRSQA=PVTRSQA+1;/* INCR NO TIMES Q USED 0145 00309000 * @ZA16816*/ 00310000 * 0145 00311000 @RC00134 LA @14,1 0145 00312000 AH @14,PVTRSQA(,PVTPTR) 0145 00313000 STH @14,PVTRSQA(,PVTPTR) 0145 00314000 * /*********************************************/ 00315000 * /* */ 00316000 * /* SINCE THE SQA FRAME COUNT AND SYSTEM FIX */ 00317000 * /* COUNT ARE ALREADY ADJUSTED FOR AN SQA RSV */ 00318000 * /* Q FRAME, DECREMENT THEM HERE SO THAT WHEN */ 00319000 * /* THEY ARE INCREMENTED LATER THE COUNT WILL */ 00320000 * /* BE CORRECT. @ZA16816*/ 00321000 * /* */ 00322000 * /*********************************************/ 00323000 * 0146 00324000 * PVTSQAFX=PVTSQAFX-1;/* DECR NO SQA FRAMES 0146 00325000 * @ZA16816*/ 00326000 LH @14,PVTSQAFX(,PVTPTR) 0146 00327000 BCTR @14,0 0146 00328000 STH @14,PVTSQAFX(,PVTPTR) 0146 00329000 * PVTCNTFX=PVTCNTFX-1;/* DECR SYSTEM FIX COUNT 00330000 * @ZA16816*/ 00331000 LH @14,PVTCNTFX(,PVTPTR) 0147 00332000 BCTR @14,0 0147 00333000 STH @14,PVTCNTFX(,PVTPTR) 0147 00334000 * GOTO RBNCALC;/* @ZA16816*/ 00335000 B RBNCALC 0148 00336000 * END; /* @ZA16816*/ 00337000 * RESPECIFY 0150 00338000 * (WORKB) UNRSTD;/* @ZA16816*/ 00339000 @RF00117 DS 0H 0151 00340000 * END; /* END OF SQA RSV Q PROCESS 0151 00341000 * @ZA16816*/ 00342000 * 0151 00343000 * /*****************************************************/ 00344000 * /* */ 00345000 * /* THERE ARE NO NON-PREFERRED NON V=R FRAMES TO BE */ 00346000 * /* HAD. MUST NOW STOOP TO TAKING A V=R. FIRST COICE */ 00347000 * /* IS FROM THE AFQ. IF EMPTY, USE IEAVPREF TO FIND A */ 00348000 * /* V=R FRAME. @ZA16816*/ 00349000 * /* */ 00350000 * /*****************************************************/ 00351000 * 0152 00352000 * IF PVTAFQF=0 THEN /* IF AFQ IS EMPTY, THEN @ZA16816*/ 00353000 @RF00113 LH @14,PVTAFQF(,PVTPTR) 0152 00354000 N @14,@CF01885 0152 00355000 LTR @14,@14 0152 00356000 BNZ @RF00152 0152 00357000 * DO; /* GO TRY IEAVPREF @ZA16816*/ 00358000 * RESPECIFY 0154 00359000 * (PASS) RSTD; /* @ZA16816*/ 00360000 * PASS=3; /* CALL IEAVPREF FOR @ZA16816*/ 00361000 LA PASS,3 0155 00362000 * PARM=0; /* PASS=3 - TRY TO GET A @ZA16816*/ 00363000 SLR PARM,PARM 0156 00364000 * CALL IEAVPREF; /* V=R FRAME. @ZA16816*/ 00365000 L @15,PVTPPREF(,PVTPTR) 0157 00366000 BALR @14,@15 0157 00367000 * PFTEPTR=REG0; /* GET ADDRESS OF PFTE @ZA16816*/ 00368000 LR PFTEPTR,REG0 0158 00369000 * RESPECIFY 0159 00370000 * (PASS) UNRSTD; /* @ZA16816*/ 00371000 * IF REG15^=0 THEN/* IF IEAVPREF FOUND NONE 0160 00372000 * @ZA16816*/ 00373000 LTR REG15,REG15 0160 00374000 BZ @RF00160 0160 00375000 * DO; /* ITS TIME TO GIVE UP @ZA16816*/ 00376000 * RCODE=4; /* SET RETURN CODE @ZA16816*/ 00377000 MVI RCODE(PVTPTR),X'04' 0162 00378000 * GOTO EXIT; /* AND QUIT. @ZA16816*/ 00379000 B EXIT 0163 00380000 * END; /* @ZA16816*/ 00381000 * END; /* END AFQ EMPTY PROCESS @ZA16816*/ 00382000 * ELSE /* AFQ IS NOT EMPTY @ZA16816*/ 00383000 * IF VBNASCB1LPU='0'B THEN/* NON-POLLUTING 0166 00385000 * @ZA16816*/ 00386000 B @RC00152 0166 00387000 @RF00152 LH @14,PVTLCSA(,PVTPTR) 0166 00388000 N @14,@CF01885 0166 00389000 CR VBN,@14 0166 00390000 BNL @RF00166 0166 00391000 L @14,RSMASCB(,RSMHDPTR) 0166 00392000 TM ASCB1LPU(@14),B'01000000' 0166 00393000 BNZ @RF00166 0166 00394000 * PFTEPTR=PVTPFTP+PVTAFQF;/* TAKE TOP PFTE @ZA16816*/ 00395000 LH PFTEPTR,PVTAFQF(,PVTPTR) 0167 00396000 N PFTEPTR,@CF01885 0167 00397000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0167 00398000 * ELSE /* HERE IF POLLUTING TYPE 0168 00399000 * @ZA16816*/ 00400000 * 0168 00401000 * /*************************************************/ 00402000 * /* */ 00403000 * /* MUST USE A V=R FRAME FROM THE AVAILABLE FRAME */ 00404000 * /* QUEUE. BEGIN THE SPECIAL PROCESSING TO SELECT */ 00405000 * /* THE V=R PFTE ON THE AFQ WHICH CAUSES THE LEAST*/ 00406000 * /* POLLUTION IN THE V=R AREA OF REAL STORAGE (IE.*/ 00407000 * /* THE V=R FRAME THAT IS CLOSEST TO AN END OF THE*/ 00408000 * /* V=R AREA). @ZA16816*/ 00409000 * /* */ 00410000 * /*************************************************/ 00411000 * 0168 00412000 * DO; /* @ZA16816*/ 00413000 B @RC00166 0168 00414000 @RF00166 DS 0H 0169 00415000 * ADRDIFFS=MXVROFF;/* DEFAULT OFFSETS TO MAXIMUM 00416000 * @ZA31128*/ 00417000 MVC ADRDIFFS(4,PVTPTR),MXVROFF 0169 00418000 * PFTEPTR=PVTPFTP+PVTLVR;/* ADDR LAST V=R PFTE 0170 00419000 * @ZA31128*/ 00420000 L @14,PVTPFTP(,PVTPTR) 0170 00421000 LH PFTEPTR,PVTLVR(,PVTPTR) 0170 00422000 N PFTEPTR,@CF01885 0170 00423000 ALR PFTEPTR,@14 0170 00424000 * PTR1=PVTPFTP+PVTFVR;/* ADDR FIRST V=R PFTE 0171 00425000 * @ZA31128*/ 00426000 * 0171 00427000 LH PTR1,PVTFVR(,PVTPTR) 0171 00428000 N PTR1,@CF01885 0171 00429000 ALR @14,PTR1 0171 00430000 LR PTR1,@14 0171 00431000 * /***********************************************/ 00432000 * /* */ 00433000 * /* SCAN FROM HIGH END OF V=R AREA UNTIL THE */ 00434000 * /* LOWEST FRAME IN THE V=R AREA OR AN AVAILABLE*/ 00435000 * /* V=R FRAME IS FOUND. @ZA31128*/ 00436000 * /* */ 00437000 * /***********************************************/ 00438000 * 0172 00439000 * DO UNTIL(PFTEPTR=PTR1)|(LVRADDIF^=NOFRAME);/* 00440000 * @ZA31128*/ 00441000 @DL00172 DS 0H 0173 00442000 * IF PFTONAVQ='1'B THEN/* AVAILABLE ? @ZA31128*/ 00443000 * 0173 00444000 TM PFTONAVQ(PFTEPTR),B'10000000' 0173 00445000 BNO @RF00173 0173 00446000 * /*******************************************/ 00447000 * /* */ 00448000 * /* FRAME IS AVAILABLE. CALCULATE AND SAVE */ 00449000 * /* ITS OFFSET FROM THE HIGH END OF THE V=R */ 00450000 * /* AREA. @ZA31128*/ 00451000 * /* */ 00452000 * /*******************************************/ 00453000 * 0174 00454000 * LVRADDIF=(PVTPFTP+PVTLVR)-PFTEPTR;/* 0174 00455000 * @ZA31128*/ 00456000 LH @14,PVTLVR(,PVTPTR) 0174 00457000 N @14,@CF01885 0174 00458000 AL @14,PVTPFTP(,PVTPTR) 0174 00459000 SLR @14,PFTEPTR 0174 00460000 STH @14,LVRADDIF(,PVTPTR) 0174 00461000 * ELSE /* NOT AVAILABLE @ZA31128*/ 00462000 * PFTEPTR=PFTEPTR-LENGTH(PFTE);/* NEXT PFTE 00463000 * @ZA31128*/ 00464000 B @RC00173 0175 00465000 @RF00173 SL PFTEPTR,@CF00060 0175 00466000 * END; /* @ZA31128*/ 00467000 * 0176 00468000 @RC00173 DS 0H 0176 00469000 @DE00172 CR PFTEPTR,PTR1 0176 00470000 BE @DC00172 0176 00471000 CLC LVRADDIF(2,PVTPTR),NOFRAME 0176 00472000 BE @DL00172 0176 00473000 @DC00172 DS 0H 0177 00474000 * /***********************************************/ 00475000 * /* */ 00476000 * /* NOW SCAN FROM LOW END OF V=R AREA UNTIL THE */ 00477000 * /* FRAME FOUND DURING THE TOP DOWN SCAN IS */ 00478000 * /* REACHED, OR AN AVAILABLE V=R FRAME IS FOUND.*/ 00479000 * /* @ZA31128*/ 00480000 * /* */ 00481000 * /***********************************************/ 00482000 * 0177 00483000 * RFY 0177 00484000 * PFTE BASED(PTR1);/* @ZA31128*/ 00485000 * DO UNTIL(PTR1>PFTEPTR)|(FVRADDIF^=NOFRAME);/* 00486000 * @ZA31128*/ 00487000 @DL00178 DS 0H 0179 00488000 * IF PFTONAVQ='1'B THEN/* AVAILABLE ? @ZA31128*/ 00489000 * 0179 00490000 TM PFTONAVQ(PTR1),B'10000000' 0179 00491000 BNO @RF00179 0179 00492000 * /*******************************************/ 00493000 * /* */ 00494000 * /* FRAME IS AVAILABLE. CALCULATE AND SAVE */ 00495000 * /* ITS OFFSET FROM THE LOW END OF THE V=R */ 00496000 * /* AREA. @ZA31128*/ 00497000 * /* */ 00498000 * /*******************************************/ 00499000 * 0180 00500000 * FVRADDIF=PTR1-(PVTPFTP+PVTFVR);/* @ZA31128*/ 00501000 LH @14,PVTFVR(,PVTPTR) 0180 00502000 N @14,@CF01885 0180 00503000 AL @14,PVTPFTP(,PVTPTR) 0180 00504000 LCR @14,@14 0180 00505000 ALR @14,PTR1 0180 00506000 STH @14,FVRADDIF(,PVTPTR) 0180 00507000 * ELSE /* NOT AVAILABLE @ZA31128*/ 00508000 * PTR1=PTR1+LENGTH(PFTE);/* NEXT PFTE 0181 00509000 * @ZA31128*/ 00510000 B @RC00179 0181 00511000 @RF00179 AL PTR1,@CF00060 0181 00512000 * END; /* @ZA31128*/ 00513000 @RC00179 DS 0H 0182 00514000 @DE00178 CR PTR1,PFTEPTR 0182 00515000 BH @DC00178 0182 00516000 CLC FVRADDIF(2,PVTPTR),NOFRAME 0182 00517000 BE @DL00178 0182 00518000 @DC00178 DS 0H 0183 00519000 * RFY 0183 00520000 * PFTE BASED(PFTEPTR);/* @ZA31128*/ 00521000 * 0183 00522000 * /***********************************************/ 00523000 * /* */ 00524000 * /* SCAN IS COMPLETE. DETERMINE WHICH DIFFERENCE*/ 00525000 * /* IS LESS AND SET THE RBN AND PFTEPTR */ 00526000 * /* ACCORDINGLY. @ZA31128*/ 00527000 * /* */ 00528000 * /***********************************************/ 00529000 * 0184 00530000 * IF FVRADDIF=PVTLCSA|ASCB1LPU='1'B) THEN 00556000 * 0192 00557000 CONVERT TM PFTPREF(PFTEPTR),B'00100100' 0192 00558000 BNZ @RF00192 0192 00559000 LH @14,PVTLCSA(,PVTPTR) 0192 00560000 N @14,@CF01885 0192 00561000 CR VBN,@14 0192 00562000 BNL @RT00192 0192 00563000 TM ASCB1LPU(ASCBPTR),B'01000000' 0192 00564000 BNO @RF00192 0192 00565000 @RT00192 DS 0H 0193 00566000 * /***********************************************************/ 00567000 * /* */ 00568000 * /* IF FRAME IS OUTSIDE THE PREFERRED AREA FOR AN SQA OR */ 00569000 * /* LEVEL 1 PREFERRED USER LSQA REQUEST, THEN CONVERT THE */ 00570000 * /* STORAGE BOX FROM NON-PREFERRED TO PREFERRED STORAGE. */ 00571000 * /* @ZA16816*/ 00572000 * /* */ 00573000 * /***********************************************************/ 00574000 * 0193 00575000 * DO; /* CALL IEAVPREF TO CONVERT 0193 00576000 * @YD03005*/ 00577000 * PARM=RBN; /* GET RBN IN BOX TO BE 0194 00578000 * CONVERTED. @YD03005*/ 00579000 LR PARM,RBN 0194 00580000 * CALL IEAVPREF; /* DO THE CONVERSION. @YD03005*/ 00581000 L @15,PVTPPREF(,PVTPTR) 0195 00582000 BALR @14,@15 0195 00583000 * END; /* @YD03005*/ 00584000 * END; /* END- NON-PREF SEARCH @ZA16816*/ 00585000 * ELSE /* HAVE A CHANGED PREF @ZA16816*/ 00586000 * DO; /* @ZA16816*/ 00587000 * 0198 00588000 B @RC00100 0198 00589000 @RF00100 DS 0H 0199 00590000 * /*************************************************************/ 00591000 * /* */ 00592000 * /* NEED A PREFERRED FRAME AND BEST IEAVPREF COULD FIND WAS A */ 00593000 * /* CHANGED PREFERRED. IN THIS CASE (1) FIND A NON-PREFERRED */ 00594000 * /* FRAME, (2) MOVE THE CHANGED PAGE TO THIS FRAME, AND */ 00595000 * /* FINALLY, (3) USE THE VACATED PREFERRED FRAME TO SATISFY */ 00596000 * /* THE CURRENT REQUEST. @ZA16816*/ 00597000 * /* */ 00598000 * /*************************************************************/ 00599000 * 0199 00600000 * RESPECIFY 0199 00601000 * (REG15) UNRSTD; /* @ZA16816*/ 00602000 * ASCBPTR=PARM; /* GET CHANGED FR ASCB @ZA16816*/ 00603000 LR ASCBPTR,PARM 0200 00604000 * RESPECIFY 0201 00605000 * (PARM) UNRSTD; /* @ZA16816*/ 00606000 * REG6=NVRSAVE; /* TRY FOR FRAME ON AFQ @ZA16816*/ 00607000 L REG6,NVRSAVE(,PVTPTR) 0202 00608000 * IF REG6=0 THEN /* IF NO NON V=R ON AFQ @ZA16816*/ 00609000 LTR REG6,REG6 0203 00610000 BNZ @RF00203 0203 00611000 * DO; /* TRY FOR A V=R. @ZA16816*/ 00612000 * IF PVTAFQF^=0 THEN /* IF AFQ IS NOT EMPTY, @ZA16816*/ 00613000 LH @10,PVTAFQF(,PVTPTR) 0205 00614000 N @10,@CF01885 0205 00615000 LTR @10,@10 0205 00616000 BZ @RF00205 0205 00617000 * REG6=PVTPFTP+PVTAFQF; /* GET 1ST PFTE (A V=R) @ZA16816*/ 00618000 AL @10,PVTPFTP(,PVTPTR) 0206 00619000 LR REG6,@10 0206 00620000 * ELSE /* IF AFQ IS EMPTY, THEN @ZA16816*/ 00621000 * DO; /* USE IEAVPREF. @ZA16816*/ 00622000 B @RC00205 0207 00623000 @RF00205 DS 0H 0208 00624000 * RESPECIFY 0208 00625000 * (PASS, 0208 00626000 * PARM, 0208 00627000 * REG15) RSTD; /* @ZA16816*/ 00628000 * PASS=2; /* CALL IEAVPREF FOR @ZA16816*/ 00629000 LA PASS,2 0209 00630000 * PARM=0; /* PASS=2 - TRY TO @ZA16816*/ 00631000 SLR PARM,PARM 0210 00632000 * CALL IEAVPREF; /* GET A NON V=R FRAME. @ZA16816*/ 00633000 L @15,PVTPPREF(,PVTPTR) 0211 00634000 BALR @14,@15 0211 00635000 * IF REG15=0 THEN /* IF IEAVPREF SUCCESSFUL 0212 00636000 * @ZA16816*/ 00637000 LTR REG15,REG15 0212 00638000 BNZ @RF00212 0212 00639000 * REG6=REG0; /* USE THE RETURNED PFTE @ZA16816*/ 00640000 LR REG6,REG0 0213 00641000 * ELSE /* THERE ARE NO NON V=R @ZA16816*/ 00642000 * DO; /* @ZA16816*/ 00643000 B @RC00212 0214 00644000 @RF00212 DS 0H 0215 00645000 * IF VBN>=PVTLCSA&/* IF REQUEST IS FOR SQA @ZA16816*/ 00646000 * PVTRSRVF^=0 THEN/* AND SQA RSV Q NT EMPTY 0215 00647000 * @ZA16816*/ 00648000 LH @14,PVTLCSA(,PVTPTR) 0215 00649000 N @14,@CF01885 0215 00650000 CR VBN,@14 0215 00651000 BL @RF00215 0215 00652000 LH @14,PVTRSRVF(,PVTPTR) 0215 00653000 N @14,@CF01885 0215 00654000 LTR @14,@14 0215 00655000 BZ @RF00215 0215 00656000 * DO; /* TAKE TOP PFTE ON Q @ZA16816*/ 00657000 * REG6=PVTPFTP+PVTRSRVF;/* GET ADDR OF PFTE 0217 00658000 * @ZA16816*/ 00659000 AL @14,PVTPFTP(,PVTPTR) 0217 00660000 LR REG6,@14 0217 00661000 * IF REG6->PFTPREF='1'B THEN/* IF A PREF 0218 00662000 * @ZA16816*/ 00663000 TM PFTPREF(REG6),B'00000100' 0218 00664000 BNO @RF00218 0218 00665000 * PVTSQDC=PVTSQDC+1;/* INCR DEFICIT COUNT 0219 00666000 * @ZA16816*/ 00667000 LA @14,1 0219 00668000 SLR @10,@10 0219 00669000 IC @10,PVTSQDC(,PVTPTR) 0219 00670000 ALR @14,@10 0219 00671000 STC @14,PVTSQDC(,PVTPTR) 0219 00672000 * ELSE /* IF NOT PREF @ZA16816*/ 00673000 * DO; /* DECR OTHER CNTS @ZA16816*/ 00674000 B @RC00218 0220 00675000 @RF00218 DS 0H 0221 00676000 * PVTSQNPC=PVTSQNPC-1;/* DECR NON-PREF CNT 00677000 * @ZA16816*/ 00678000 SLR @14,@14 0221 00679000 IC @14,PVTSQNPC(,PVTPTR) 0221 00680000 BCTR @14,0 0221 00681000 STC @14,PVTSQNPC(,PVTPTR) 0221 00682000 * IF REG6->PFTVR='1'B THEN/* IF A V=R PFTE; 00683000 * @ZA16816*/ 00684000 TM PFTVR(REG6),B'00100000' 0222 00685000 BNO @RF00222 0222 00686000 * PVTSQVRC=PVTSQVRC-1;/* DECR V=R COUNT 00687000 * @ZA16816*/ 00688000 SLR @14,@14 0223 00689000 IC @14,PVTSQVRC(,PVTPTR) 0223 00690000 BCTR @14,0 0223 00691000 STC @14,PVTSQVRC(,PVTPTR) 0223 00692000 * END; /* @ZA16816*/ 00693000 * END; /* @ZA16816*/ 00694000 * ELSE /* NOT AN SQA RQST OR SQA RSV 0226 00695000 * QUEUE EMPTY @ZA16816*/ 00696000 * DO; /* @ZA16816*/ 00697000 B @RC00215 0226 00698000 @RF00215 DS 0H 0227 00699000 * PASS=3; /* CALL IEAVPREF FOR @ZA16816*/ 00700000 LA PASS,3 0227 00701000 * PARM=0; /* PASS 3 - TRY TO @ZA16816*/ 00702000 SLR PARM,PARM 0228 00703000 * CALL IEAVPREF;/* GET A V=R FRAME. @ZA16816*/ 00704000 L @15,PVTPPREF(,PVTPTR) 0229 00705000 BALR @14,@15 0229 00706000 * IF REG15^=0 THEN/* IF IEAVPREF FOUND NONE 0230 00707000 * @ZA16816*/ 00708000 LTR REG15,REG15 0230 00709000 BZ @RF00230 0230 00710000 * DO; /* IT IS TIME TO GIVE UP @ZA16816*/ 00711000 * RCODE=4;/* SET RETURN CODE @ZA16816*/ 00712000 MVI RCODE(PVTPTR),X'04' 0232 00713000 * GOTO EXIT;/* AND QUIT. @ZA16816*/ 00714000 B EXIT 0233 00715000 * END; /* @ZA16816*/ 00716000 * REG6=REG0; /* USE THE RETURNED PFTE @ZA16816*/ 00717000 @RF00230 LR REG6,REG0 0235 00718000 * END; /* @ZA16816*/ 00719000 * END; /* @ZA16816*/ 00720000 @RC00215 DS 0H 0238 00721000 * RESPECIFY 0238 00722000 * (PASS, 0238 00723000 * PARM, 0238 00724000 * REG15) UNRSTD; /* @ZA16816*/ 00725000 @RC00212 DS 0H 0239 00726000 * END; /* @ZA16816*/ 00727000 * END; /* @ZA16816*/ 00728000 * 0240 00729000 @RC00205 DS 0H 0241 00730000 * /*************************************************************/ 00731000 * /* */ 00732000 * /* AT THIS POINT, PFTEPTR HAS THE ADDRESS OF THE CHANGED */ 00733000 * /* PREFERRED FRAME, AND REG6 HAS THE ADDRESS OF THE */ 00734000 * /* NON-PREFERRED FRAME. MOVE THE CHANGED PAGE TO THE */ 00735000 * /* NON-PREFERRED FRAME. @ZA16816*/ 00736000 * /* */ 00737000 * /*************************************************************/ 00738000 * 0241 00739000 * RESPECIFY 0241 00740000 * (REG0, 0241 00741000 * REG1) RSTD; /* @ZA16816*/ 00742000 @RF00203 DS 0H 0242 00743000 * REG1=256*PFTVBN; /* GET VSA FOR FINDPAGE @ZA16816*/ 00744000 LH REG1,PFTVBN(,PFTEPTR) 0242 00745000 N REG1,@CF01885 0242 00746000 SLA REG1,8 0242 00747000 * IF ASCBPTR^=0 THEN /* IF NON-PREF FRAME FROM 0243 00748000 * @ZA16816*/ 00749000 LTR ASCBPTR,ASCBPTR 0243 00750000 BZ @RF00243 0243 00751000 * DO; /* FOREIGN LFQ, THEN TRAS 0244 00752000 * @ZA16816*/ 00753000 * PVTTASID=ASCBASID; /* GET TO ASID FOR RCV @ZA16816*/ 00754000 MVC PVTTASID(2,PVTPTR),ASCBASID(ASCBPTR) 0245 00755000 * LCCAASID=ASCBASID; /* GET TO ASID FOR RTM @ZA16816*/ 00756000 L @10,LCCAPTR 0246 00757000 XC LCCAASID+2(2,@10),LCCAASID+2(@10) 0246 00758000 MVC LCCAASID(2,@10),ASCBASID(ASCBPTR) 0246 00759000 * GENERATE CODE REFS(ASCBSTOR); 0247 00760000 LCTL 1,1,ASCBSTOR(ASCBPTR) ----- TRAS ----- 00761000 * RSMHDPTR=ASCBRSM; /* GET CORRECT RSMHD FOR F.P. 0248 00762000 * @ZA16816*/ 00763000 L RSMHDPTR,ASCBRSM(,ASCBPTR) 0248 00764000 * END; /* @ZA16816*/ 00765000 * CALL IEAVFP2; /* GET PGTE AND XPTE ADS @ZA16816*/ 00766000 @RF00243 L @15,PVTPFP2(,PVTPTR) 0250 00767000 BALR @14,@15 0250 00768000 * IF REG15^=0 THEN /* IF FINDPAGE FAILED, @ZA16816*/ 00769000 SLR @14,@14 0251 00770000 CR REG15,@14 0251 00771000 BE @RF00251 0251 00772000 * DO; /* C0D AND RESUME SEARCH @ZA16816*/ 00773000 * IF ASCBPTR^=0 THEN /* IF IN TRAS MODE, THEN @ZA16816*/ 00774000 CR ASCBPTR,@14 0253 00775000 BE @RF00253 0253 00776000 * DO; /* TRAS BACK FIRST @ZA16816*/ 00777000 * REG15=PSAAOLD; /* GET CURRENT ASCB ADDR @ZA16816*/ 00778000 L REG15,PSAAOLD 0255 00779000 * GENERATE CODE REFS(ASCBSTOR); 0256 00780000 LCTL 1,1,ASCBSTOR(REG15) ----- TRAS BACK ----- 00781000 * LCCAASID=0; /* CLEAR TRAS INDICATOR @ZA16816*/ 00782000 SLR @10,@10 0257 00783000 L @07,LCCAPTR 0257 00784000 ST @10,LCCAASID(,@07) 0257 00785000 * PVTTASID=0; /* CLEAR TRAS INDICATOR @ZA16816*/ 00786000 STH @10,PVTTASID(,PVTPTR) 0258 00787000 * ASCBPTR=PSAAOLD; /* RESTORE CUR ASCB PTR @ZA16816*/ 00788000 L ASCBPTR,PSAAOLD 0259 00789000 * RSMHDPTR=ASCBRSM; /* RESTORE CUR RSMHD @ZA16816*/ 00790000 L RSMHDPTR,ASCBRSM(,ASCBPTR) 0260 00791000 * END; /* @ZA16816*/ 00792000 * RCARCRD='01'X; /* SET REASON CODE @ZA16816*/ 00793000 @RF00253 L @10,RCAPTR(,PVTPTR) 0262 00794000 MVI RCARCRD(@10),X'01' 0262 00795000 * GEN NOFLOWS SETS(REG1)(ABEND X'C0D',,,SYSTEM);/* @ZA16816*/ 00796000 ABEND X'C0D',,,SYSTEM 00797000 * GOTO NVR; /* FORGET ABOUT A PREF @ZA16816*/ 00798000 B NVR 0264 00799000 * END; /* @ZA16816*/ 00800000 * PGTEADDR=REG0; /* SAVE ADDRESS OF PGTE @ZA16816*/ 00801000 @RF00251 ST REG0,PGTEADDR(,PVTPTR) 0266 00802000 * PROTKEY=REG1->XPTPROT; /* SAVE PROTECT KEY @ZA16816*/ 00803000 MVC PROTKEY(1,PVTPTR),XPTPROT(REG1) 0267 00804000 * REG1=REG0; /* GET PGTE ADDR FOR INV @ZA16816*/ 00805000 LR REG1,REG0 0268 00806000 * CALL IEAVINV; /* INVALIDATE THE PAGE @ZA16816*/ 00807000 L @15,PVTPINV(,PVTPTR) 0269 00808000 BALR @14,@15 0269 00809000 * RESPECIFY 0270 00810000 * (REG15) RSTD; /* @ZA16816*/ 00811000 * RESPECIFY 0271 00812000 * (WORKA, 0271 00813000 * WORKB) RSTD; /* @ZA16816*/ 00814000 * REG1=PROTKEY; /* GET PROT KEY FOR SSK @ZA16816*/ 00815000 SLR REG1,REG1 0272 00816000 IC REG1,PROTKEY(,PVTPTR) 0272 00817000 * REG15=256*(REG6-PVTPFTP); /* GET RBN FOR SSK @ZA16816*/ 00818000 LR REG15,REG6 0273 00819000 SL REG15,PVTPFTP(,PVTPTR) 0273 00820000 SLA REG15,8 0273 00821000 * WORKA=REG15; /* SAVE FOR MVCL LATER @ZA16816*/ 00822000 LR WORKA,REG15 0274 00823000 * GENERATE CODE NOFLOWS; 0275 00824000 SSK REG1,REG15 SET PROT KEY - 1ST 2K BLOCK 00825000 LA REG15,2048(REG15) GET NEXT 2K BLOCK 00826000 SSK REG1,REG15 SET PROT KEY - 2ND 2K BLOCK 00827000 * RESPECIFY 0276 00828000 * (REG15) UNRSTD; /* @ZA16816*/ 00829000 * REG1=4096; /* NO OF BYTES TO MOVE @ZA16816*/ 00830000 L @10,@CF01853 0277 00831000 LR REG1,@10 0277 00832000 * REG0=256*(PFTEPTR-PVTPFTP); /* FROM ADDRESS @ZA16816*/ 00833000 LR REG0,PFTEPTR 0278 00834000 SL REG0,PVTPFTP(,PVTPTR) 0278 00835000 SLA REG0,8 0278 00836000 * WORKB=4096; /* NO OF BYTES TO MOVE @ZA16816*/ 00837000 * 0279 00838000 LR WORKB,@10 0279 00839000 * /*************************************************************/ 00840000 * /* */ 00841000 * /* THE PAGE AT THE REAL ADDRESS IN REG 0 IS TO BE MOVED TO */ 00842000 * /* THE REAL ADDRESS IN WORKA. DAT IS TURNED OFF SINCE THE REG*/ 00843000 * /* 0 PAGE IS MARKED INVALID. NOTE THAT THE CHANGE BIT FOR THE*/ 00844000 * /* WORKA PAGE WILL BE TURNED ON, AS IT SHOULD BE, BY THE */ 00845000 * /* MVCL. @ZA16816*/ 00846000 * /* */ 00847000 * /*************************************************************/ 00848000 * 0280 00849000 * GENERATE CODE NOFLOWS REFS(TEMPSAVE); 0280 00850000 STNSM TEMPSAVE(PVTPTR),X'FB' TURN DAT OFF 00851000 MVCL WORKA,REG0 MOVE THE PAGE-TURN CHG BIT ON */ 00852000 STOSM TEMPSAVE(PVTPTR),X'04' TURN DAT BACK ON 00853000 * RESPECIFY 0281 00854000 * (WORKA, 0281 00855000 * WORKB) UNRSTD; /* @ZA16816*/ 00856000 * PVTMVCLC=PVTMVCLC+1; /* INCR MOVED PAGES COUNT 0282 00857000 * @ZA16816*/ 00858000 * 0282 00859000 LA @10,1 0282 00860000 AL @10,PVTMVCLC(,PVTPTR) 0282 00861000 ST @10,PVTMVCLC(,PVTPTR) 0282 00862000 * /*************************************************************/ 00863000 * /* */ 00864000 * /* THE NEW PFTE (VIA REG6) NOW HAS TO BE INITIALIZED AND */ 00865000 * /* ENQUEUED UPON THE PROPER FRAME QUEUE. @ZA16816*/ 00866000 * /* */ 00867000 * /*************************************************************/ 00868000 * 0283 00869000 * REG6->PFTPGID=PFTPGID; /* COPY THE ASID AND VBN @ZA16816*/ 00870000 L @10,PFTPGID(,PFTEPTR) 0283 00871000 ST @10,PFTPGID(,REG6) 0283 00872000 * REG6->PFTIRRG='0'B; /* ENSURE IRRG BIT IS OFF 0284 00873000 * @ZA16816*/ 00874000 NI PFTIRRG(REG6),B'11101111' 0284 00875000 * REG0=(65536*PFTQNDX)|(REG6-PVTPFTP);/* SET PARMS @ZA16816*/ 00876000 SLR REG0,REG0 0285 00877000 IC REG0,PFTQNDX(,PFTEPTR) 0285 00878000 SLA REG0,16 0285 00879000 LR @10,REG6 0285 00880000 SL @10,PVTPFTP(,PVTPTR) 0285 00881000 OR REG0,@10 0285 00882000 * IF ASCBPTR=0 THEN /* IF NOT IN TRAS MODE, @ZA16816*/ 00883000 LTR ASCBPTR,ASCBPTR 0286 00884000 BNZ @RF00286 0286 00885000 * REG1=PSAAOLD; /* TO ASCB=CURRENT ASCB, @ZA16816*/ 00886000 L REG1,PSAAOLD 0287 00887000 * ELSE /* ELSE @ZA16816*/ 00888000 * REG1=ASCBPTR; /* TO ASCB=NON-CURRENT @ZA16816*/ 00889000 B @RC00286 0288 00890000 @RF00286 LR REG1,ASCBPTR 0288 00891000 * RSMHDPTR=PSAAOLD->ASCBRSM; /* SET RSMHDPTR TO DEQ @ZA16816*/ 00892000 @RC00286 L @10,PSAAOLD 0289 00893000 L RSMHDPTR,ASCBRSM(,@10) 0289 00894000 * CALL IEAVPFTE; /* ENQUEUE THE NEW PFTE @ZA16816*/ 00895000 L @15,PVTPFTE(,PVTPTR) 0290 00896000 BALR @14,@15 0290 00897000 * PGTEADDR->PGTRSA=REG6-PVTPFTP;/* INIT PGTE VALID, @ZA16816*/ 00898000 L @10,PGTEADDR(,PVTPTR) 0291 00899000 L @07,PVTPFTP(,PVTPTR) 0291 00900000 LR @15,REG6 0291 00901000 SLR @15,@07 0291 00902000 STCM @15,3,PGTRSA(@10) 0291 00903000 * PGTEADDR->PGTPAM='1'B; /* GETMAIN ASSIGNED @ZA16816*/ 00904000 OI PGTPAM(@10),B'00000001' 0292 00905000 * RBN=PFTEPTR-PVTPFTP; /* GET RBN @ZA16816*/ 00906000 LCR @07,@07 0293 00907000 ALR @07,PFTEPTR 0293 00908000 LR RBN,@07 0293 00909000 * IF ASCBPTR^=0 THEN /* IF IN TRAS MODE, TRAS @ZA16816*/ 00910000 LTR ASCBPTR,ASCBPTR 0294 00911000 BZ @RF00294 0294 00912000 * DO; /* BACK AND DEQ OLD PFTE @ZA16816*/ 00913000 * REG1=PSAAOLD; /* GET CURRENT ASCB @ZA16816*/ 00914000 L REG1,PSAAOLD 0296 00915000 * GENERATE CODE REFS(ASCBSTOR); 0297 00916000 LCTL 1,1,ASCBSTOR(REG1) ----- TRAS BACK ----- 00917000 * LCCAASID=0; /* CLEAR TRAS INDICATOR @ZA16816*/ 00918000 SLR @10,@10 0298 00919000 L @07,LCCAPTR 0298 00920000 ST @10,LCCAASID(,@07) 0298 00921000 * PVTTASID=0; /* CLEAR TRAS INDICATOR @ZA16816*/ 00922000 STH @10,PVTTASID(,PVTPTR) 0299 00923000 * REG0=RBN; /* GET THE RBN @ZA16816*/ 00924000 LR REG0,RBN 0300 00925000 * REG0=REG0|(65536*PFTNQN);/* SET UP FOR DEQ ONLY @ZA16816*/ 00926000 O REG0,@CF01881 0301 00927000 * RSMHDPTR=ASCBPTR->ASCBRSM;/* SET RSMHDPTR FOR DEQ 0302 00928000 * @ZA16816*/ 00929000 L RSMHDPTR,ASCBRSM(,ASCBPTR) 0302 00930000 * CALL IEAVPFTE; /* DEQ THE STOLEN PFTE @ZA16816*/ 00931000 L @15,PVTPFTE(,PVTPTR) 0303 00932000 BALR @14,@15 0303 00933000 * RSMHDPTR=PSAAOLD->ASCBRSM;/* RESTORE RSMHD TO CUR 0304 00934000 * @ZA16816*/ 00935000 L @10,PSAAOLD 0304 00936000 L RSMHDPTR,ASCBRSM(,@10) 0304 00937000 * END; /* @ZA16816*/ 00938000 * ASCBPTR=PSAAOLD; /* RESTORE CURRENT ASCB PTR 0306 00939000 * @ZA16816*/ 00940000 @RF00294 L ASCBPTR,PSAAOLD 0306 00941000 * END; /* END CHANGED PREF PROCESS 0307 00942000 * @ZA16816*/ 00943000 *ASSIGN: 0308 00944000 * IF VBN=>PVTLCSA THEN /* IS REQUEST FOR SQA */ 00945000 @RC00100 DS 0H 0308 00946000 ASSIGN LH @10,PVTLCSA(,PVTPTR) 0308 00947000 N @10,@CF01885 0308 00948000 CR VBN,@10 0308 00949000 BL @RF00308 0308 00950000 * DO; 0309 00951000 * REG0=PFTSQAN; /* SET TQID FOR MOVE TO SQA QUEUE*/ 00952000 LA REG0,12 0310 00953000 * PFTASID=COMASID; /* INDICATE GLOBAL PAGE */ 00954000 MVC PFTASID(2,PFTEPTR),COMASID 0311 00955000 * PVTSQAFX=PVTSQAFX+1; /* INCREMENT SQA COUNT @YA01572*/ 00956000 LA @10,1 0312 00957000 LH @07,PVTSQAFX(,PVTPTR) 0312 00958000 ALR @07,@10 0312 00959000 STH @07,PVTSQAFX(,PVTPTR) 0312 00960000 * PVTCNTFX=PVTCNTFX+1; /* INCREMENT SYSTEM COUNT 0313 00961000 * @YA01572*/ 00962000 AH @10,PVTCNTFX(,PVTPTR) 0313 00963000 STH @10,PVTCNTFX(,PVTPTR) 0313 00964000 * END; 0314 00965000 * ELSE 0315 00966000 * IF VBN=0 THEN 0315 00967000 B @RC00308 0315 00968000 @RF00308 LTR VBN,VBN 0315 00969000 BNZ @RF00315 0315 00970000 * REG0=PFTNQN; /* IF NO INPUT PAGE ADDRESS WAS 00971000 * SPECIFIED SET TQID FOR A 0316 00972000 * DEQUEUE */ 00973000 LA REG0,255 0316 00974000 * ELSE 0317 00975000 * DO; /* INPUT ADDRESS IS IN PRIVATE 0317 00976000 * AREA */ 00977000 B @RC00315 0317 00978000 @RF00315 DS 0H 0318 00979000 * REG0=PFTLSQAN; /* SET TQID FOR MOVE TO LSQA 0318 00980000 * QUEUE */ 00981000 LA REG0,132 0318 00982000 * PFTASID=ASCBASID; /* INDICATE LOCAL PAGE @ZA16816*/ 00983000 LH @10,ASCBASID(,ASCBPTR) 0319 00984000 N @10,@CF01885 0319 00985000 STH @10,PFTASID(,PFTEPTR) 0319 00986000 * RSMCNTFX=RSMCNTFX+1; /* INCREMENT COUNT FOR THIS 0320 00987000 * ADDRESS SPACE @YA01572*/ 00988000 LA @10,1 0320 00989000 LH @07,RSMCNTFX(,RSMHDPTR) 0320 00990000 ALR @07,@10 0320 00991000 STH @07,RSMCNTFX(,RSMHDPTR) 0320 00992000 * PVTCNTFX=PVTCNTFX+1; /* INCREMENT SYSTEM COUNT 0321 00993000 * @YA01572*/ 00994000 AH @10,PVTCNTFX(,PVTPTR) 0321 00995000 STH @10,PVTCNTFX(,PVTPTR) 0321 00996000 * END; 0322 00997000 * IF PVTCNTFX=PVTMAXFX THEN /* HAS THE FIXED FRAME THRESHOLD 00998000 * BEEN REACHED */ 00999000 @RC00315 DS 0H 0323 01000000 @RC00308 CLC PVTCNTFX(2,PVTPTR),PVTMAXFX(PVTPTR) 0323 01001000 BNE @RF00323 0323 01002000 * DO; /* YES, NOTIFY THE SRM OF THE 0324 01003000 * SYSTEM'S STATE @YA01572*/ 01004000 * RFY 0325 01005000 * (REG13) RSTD; 0325 01006000 * TEMPSAVE=REG0; /* SAVE CONTENTS OF REGISTER ZERO 01007000 * @YA01572*/ 01008000 ST REG0,TEMPSAVE(,PVTPTR) 0326 01009000 * REG1=MAXFIXED; /* GET CODE FOR FIX THRESHOLD 0327 01010000 * REACHED @YA01572*/ 01011000 LA REG1,4 0327 01012000 * REG13=ADDR(PVTSAVE); /* GET SRM A SAVE AREA @YA01572*/ 01013000 LA REG13,PVTSAVE(,PVTPTR) 0328 01014000 * GENERATE REFS(CVT,CVTPTR,CVTOPTE); 0329 01015000 SYSEVENT AVQLOW,ENTRY=BRANCH 01016000 * RFY 0330 01017000 * (REG13) UNRSTD; /* @ZA16816*/ 01018000 * REG0=TEMPSAVE; /* RESTORE REGISTER ZERO @YA01572*/ 01019000 L REG0,TEMPSAVE(,PVTPTR) 0331 01020000 * END; 0332 01021000 * ELSE 0333 01022000 * ; 0333 01023000 @RF00323 DS 0H 0334 01024000 * 0334 01025000 * /*****************************************************************/ 01026000 * /* */ 01027000 * /* AT THIS POINT IT IS ASSUMED THAT REGISTER ZERO (REG0) HAS THE */ 01028000 * /* QUEUE INDEX VALUE OF THE PLACE THE PFTE IS TO RESIDE. THE */ 01029000 * /* VALUE IS ADJUSTED TO FORM INPUT TO THE PFTE QUEUE MANAGER. */ 01030000 * /* */ 01031000 * /*****************************************************************/ 01032000 * 0334 01033000 *MOVE: 0334 01034000 * GEN REFS(REG0) SETS(REG0)(SLL REG0,16); 0334 01035000 MOVE SLL REG0,16 01036000 * REG0=REG0|RBN; /* PUT RBN IN REG */ 01037000 OR REG0,RBN 0335 01038000 * PARM=ASCBPTR; /* ASCB PTR FOR IEAVPFTE @ZA16816*/ 01039000 LR PARM,ASCBPTR 0336 01040000 * CALL IEAVPFTE; /* HAVE PFTE MOVED */ 01041000 * 0337 01042000 L @15,PVTPFTE(,PVTPTR) 0337 01043000 BALR @14,@15 0337 01044000 * /*****************************************************************/ 01045000 * /* */ 01046000 * /* SET UP PFTE FLAG FIELDS. IT IS ASSUMED THAT PFTLNGFX, */ 01047000 * /* PFTPCBSI, PFTVRALC, AND PFTBADPG MUST BE ZERO TO REACH THIS */ 01048000 * /* POINT. PFTOFINT IS PRESERVED. PFTVRINT IS TURNED OFF SO THAT */ 01049000 * /* IF THE SQA PAGE IS FREEMAINED BETWEEN THE EXECUTION OF V=R */ 01050000 * /* COMPLETE AND V=R FREE, THE FRAME WILL NOT BE SENT TO V=R */ 01051000 * /* INTERCEPT WHERE AN ABENDC0D WOULD OCCUR BECAUSE THE ROOT IS */ 01052000 * /* GONE. V=R FREE MAKES A POSITIVE CHECK FOR FRAME OWNERSHIP SO */ 01053000 * /* THAT THE FRAME WILL REMAIN ON THE SQA FRAME QUEUE EVEN IF */ 01054000 * /* PFTVRINT IS OFF. @ZA10767*/ 01055000 * /* */ 01056000 * /*****************************************************************/ 01057000 * 0338 01058000 * PFTVRINT='0'B; /* @ZA10767*/ 01059000 NI PFTVRINT(PFTEPTR),B'10111111' 0338 01060000 * PFTIRRG='0'B; 0339 01061000 * PFTSTEAL='0'B; 0340 01062000 NI PFTIRRG(PFTEPTR),B'11100111' 0340 01063000 * PFTLSQA='1'B; 0341 01064000 OI PFTLSQA(PFTEPTR),B'00100000' 0341 01065000 * PFTUIC=0; 0342 01066000 * 0342 01067000 MVI PFTUIC(PFTEPTR),X'00' 0342 01068000 * /*****************************************************************/ 01069000 * /* */ 01070000 * /* IF A V=R FRAME IS BEING USED TO SATISFY A REQUEST THAT SHOULD */ 01071000 * /* BE BACKED BY A PREFERRED AREA FRAME, INDICATE THAT THE FRAME */ 01072000 * /* IS NOW POLLUTING THE V=R AREA. @ZA31128*/ 01073000 * /* */ 01074000 * /*****************************************************************/ 01075000 * 0343 01076000 * IF PFTVR='1'B&(PFTQNDX=PFTSQAN|RSMASCB->ASCB1LPU='1'B) THEN/* 0343 01077000 * @ZA31128*/ 01078000 TM PFTVR(PFTEPTR),B'00100000' 0343 01079000 BNO @RF00343 0343 01080000 CLI PFTQNDX(PFTEPTR),X'0C' 0343 01081000 BE @RT00343 0343 01082000 L @10,RSMASCB(,RSMHDPTR) 0343 01083000 TM ASCB1LPU(@10),B'01000000' 0343 01084000 BNO @RF00343 0343 01085000 @RT00343 DS 0H 0344 01086000 * PFTVRPLT='1'B; /* FRAME POLLUTING V=R @ZA31128*/ 01087000 * 0344 01088000 OI PFTVRPLT(PFTEPTR),B'00010000' 0344 01089000 * /*****************************************************************/ 01090000 * /* */ 01091000 * /* PLACE THE VBN INTO THE PFTE (IT MAY BE 0). */ 01092000 * /* */ 01093000 * /*****************************************************************/ 01094000 * 0345 01095000 * PFTVBN=VBN; /* INDICATE WHAT PAGE IS IN FRAME*/ 01096000 @RF00343 STH VBN,PFTVBN(,PFTEPTR) 0345 01097000 * RCODE=0; /* SET UP RETURN CODE */ 01098000 * 0346 01099000 MVI RCODE(PVTPTR),X'00' 0346 01100000 * /*****************************************************************/ 01101000 * /* */ 01102000 * /* IF THE FRAME IS TO BE ASSIGNED TO A PAGE, I.E., THE INPUT VSA */ 01103000 * /* WAS NOT ZERO, THE PAGE TABLE ENTRY FOR THE PAGE IS VALIDATED */ 01104000 * /* AND IT 'GETMAINED' FLAG SET TO ONE. THE PAGE IS ZEROED AND */ 01105000 * /* BOTH STORAGE KEYS SET TO 0 AND NO FETCH PROTECTION. */ 01106000 * /* */ 01107000 * /*****************************************************************/ 01108000 * 0347 01109000 * IF VBN^=0 THEN 0347 01110000 LTR VBN,VBN 0347 01111000 BZ @RF00347 0347 01112000 * DO; 0348 01113000 * RFY 0349 01114000 * (REG15) RSTD; 0349 01115000 * PARM=VSA; /* GET INPUT PARAMETER */ 01116000 L PARM,VSA(,PVTPTR) 0350 01117000 * CALL IEAVFP2; 0351 01118000 L @15,PVTPFP2(,PVTPTR) 0351 01119000 BALR @14,@15 0351 01120000 * IF REG15^=0 THEN 0352 01121000 LTR REG15,REG15 0352 01122000 BZ @RF00352 0352 01123000 * DO; 0353 01124000 * 0353 01125000 * /*********************************************************/ 01126000 * /* */ 01127000 * /* BAD INPUT PARAMETER. CLEAN UP AND EXIT BY ABENDING */ 01128000 * /* CALLER */ 01129000 * /* */ 01130000 * /*********************************************************/ 01131000 * 0354 01132000 * IF VBN>=PVTLCSA THEN /* IS THE FRAME IN THE COMMON 0354 01133000 * AREA */ 01134000 LH @14,PVTLCSA(,PVTPTR) 0354 01135000 N @14,@CF01885 0354 01136000 CR VBN,@14 0354 01137000 BL @RF00354 0354 01138000 * PVTSQAFX=PVTSQAFX-1; /* YES DECREMENT SQA COUNT 0355 01139000 * @YA01572*/ 01140000 LH @14,PVTSQAFX(,PVTPTR) 0355 01141000 BCTR @14,0 0355 01142000 STH @14,PVTSQAFX(,PVTPTR) 0355 01143000 * ELSE /* NOT COMMON AREA */ 01144000 * RSMCNTFX=RSMCNTFX-1; /* DECREMENT ADDRESS SPACE COUNT 01145000 * @YA01572*/ 01146000 B @RC00354 0356 01147000 @RF00354 LH @14,RSMCNTFX(,RSMHDPTR) 0356 01148000 BCTR @14,0 0356 01149000 STH @14,RSMCNTFX(,RSMHDPTR) 0356 01150000 * PVTCNTFX=PVTCNTFX-1; /* DECREMENT SYSTEM COUNT 0357 01151000 * @YA01572*/ 01152000 @RC00354 LH @14,PVTCNTFX(,PVTPTR) 0357 01153000 BCTR @14,0 0357 01154000 STH @14,PVTCNTFX(,PVTPTR) 0357 01155000 * REG0=PFTAFQN; /* SET UP TO MOVE TO AFQ */ 01156000 SLR REG0,REG0 0358 01157000 * GEN REFS(REG0) SETS(REG0)(SLL REG0,16);/* MOVE QNDX TO 01158000 * BYTE 2 */ 01159000 SLL REG0,16 01160000 * REG0=REG0|RBN; /* PUT RBN IN PARM REG */ 01161000 OR REG0,RBN 0360 01162000 * PARM=ASCBPTR; /* ASCB PTR FOR IEAVPFTE @ZA16816*/ 01163000 LR PARM,ASCBPTR 0361 01164000 * CALL IEAVPFTE; /* SEND FRAME TO AFQ */ 01165000 L @15,PVTPFTE(,PVTPTR) 0362 01166000 BALR @14,@15 0362 01167000 * RCAABEND='1'B; /* TELL FRR TO PERCOLATE ABEND */ 01168000 * 0363 01169000 L @14,RCAPTR(,PVTPTR) 0363 01170000 OI RCAABEND(@14),B'00100000' 0363 01171000 * /*********************************************************/ 01172000 * /* */ 01173000 * /* THE ABEND CAUSES LINKAGE TO THE RSM FRR (IEAVRCV) */ 01174000 * /* WHICH WILL REQUEST PERCOLATION OF THE ABEND TO THE */ 01175000 * /* CALLER BECAUSE THE RCAABEND FLAG IS SET.THE FRR IS */ 01176000 * /* AUTOMATICLY DELETED WHEN IT EXITS WITHOUT RETRY. */ 01177000 * /* CONTROL IS NOT RETURNED TO THIS MODULE. */ 01178000 * /* */ 01179000 * /*********************************************************/ 01180000 * 0364 01181000 *ABEXIT: 0364 01182000 * GEN SETS(PARM)(ABEND X'081',DUMP,,SYSTEM);/* CALLER ERROR*/ 01183000 ABEXIT ABEND X'081',DUMP,,SYSTEM 01184000 * END; 0365 01185000 * REG15=REG0; /* CAN'T BASE ON REG 0 */ 01186000 @RF00352 LR REG15,REG0 0366 01187000 * RFY 0367 01188000 * PGTPTE BASED(REG15); 0367 01189000 * PGTRSA=RBN; /* PUT FRAME ADDRESS IN PGTE */ 01190000 STCM RBN,3,PGTRSA(REG15) 0368 01191000 * PGTPAM='1'B; /* SET GETMAINED FLAG */ 01192000 OI PGTPAM(REG15),B'00000001' 0369 01193000 * RFY 0370 01194000 * PGTPTE BASED; 0370 01195000 * IF VBNXPTPROT='00'X; /* PUT KEY IN XPTE */ 01202000 MVI XPTPROT(PARM),X'00' 0373 01203000 * PARM->XPTFLAGS='00'X; /* RESET ALL FLAGS */ 01204000 MVI XPTFLAGS(PARM),X'00' 0374 01205000 * PARM->XPTFLAG2='00'X; /* @Z40WPYD*/ 01206000 MVI XPTFLAG2(PARM),X'00' 0375 01207000 * END; 0376 01208000 * RFY 0377 01209000 * REG15 UNRSTD; 0377 01210000 @RF00371 DS 0H 0378 01211000 * RFY 0378 01212000 * (WORKA, 0378 01213000 * WORKB) RSTD; /* MUST BE EVEN-ODD PAIR */ 01214000 * 0378 01215000 * /*************************************************************/ 01216000 * /* */ 01217000 * /* SET UP TO CLEAR ENTIRE PAGE TO ZEROS WITH A MVCL */ 01218000 * /* INSTRUCTION USING A 0 LENGTH INPUT FIELD AND A PAD */ 01219000 * /* CHARACTER OF '00'X. */ 01220000 * /* */ 01221000 * /*************************************************************/ 01222000 * 0379 01223000 * PARM=PGSIZE; /* PAGE LENGTH RECEIVER */ 01224000 L PARM,@CF01853 0379 01225000 * REG0=VBN*256; /* INPUT PAGE LOW BOUND */ 01226000 LR REG0,VBN 0380 01227000 SLA REG0,8 0380 01228000 * WORKA=0; /* DUMMY ADDRESS FOR MVCL */ 01229000 SLR WORKA,WORKA 0381 01230000 * WORKB=0; /* SENDING LENGTH AND PADDING */ 01231000 SLR WORKB,WORKB 0382 01232000 * GEN SETS(REG0,PARM,WORKA,WORKB) REFS(REG0,PARM,WORKA,WORKB) 01233000 * (MVCL REG0,WORKA); 0383 01234000 MVCL REG0,WORKA 01235000 * RFY 0384 01236000 * (WORKA, 0384 01237000 * WORKB) UNRSTD; 0384 01238000 * 0384 01239000 * /*************************************************************/ 01240000 * /* */ 01241000 * /* SET THE STORAGE KEYS OF THE FRAME. */ 01242000 * /* */ 01243000 * /*************************************************************/ 01244000 * 0385 01245000 * REG0=0; /* KEY ZERO, NO FETCH PROTECT */ 01246000 SLR REG0,REG0 0385 01247000 * PARM=RBN; 0386 01248000 LR PARM,RBN 0386 01249000 * GEN SETS(PARM) REFS(PARM,REG0) NOFLOWS; 0387 01250000 SLL PARM,8 CONVERT RBN TO A 24 BIT PTR 01251000 * ON A 4K BOUNDARY 01252000 SSK REG0,PARM SET FIRST KEY 01253000 LA PARM,2048(PARM) POINT TO NEXT 2K BLOCK 01254000 SSK REG0,PARM SET SECOND KEY 01255000 * END; 0388 01256000 * PARM=RBN; /* PUT FRAMES RBN IN REG ONE */ 01257000 @RF00347 LR PARM,RBN 0389 01258000 * RFY 0390 01259000 * REG15 RSTD; 0390 01260000 * 0390 01261000 * /*****************************************************************/ 01262000 * /* */ 01263000 * /* THIS IS THE ONLY NORMAL EXIT FROM IEAVSQA. THE RETURN CODE IS */ 01264000 * /* PLACED IN REGISTER 15, THE FRR IS DELETED, AND THE REGISTERS */ 01265000 * /* RESTORED. */ 01266000 * /* */ 01267000 * /*****************************************************************/ 01268000 * 0391 01269000 *EXIT: 0391 01270000 * REG15=RCODE; /* GET RETURN CODE */ 01271000 EXIT SLR REG15,REG15 0391 01272000 IC REG15,RCODE(,PVTPTR) 0391 01273000 * GEN NOFLOWS; 0392 01274000 SETFRR D,WRKREGS=(WORKA,WORKB) DELETE RSM FRR 01275000 L @00,SAVE0(PVTPTR) RESTORE REG 0 01276000 LM @02,@14,SAVE214(PVTPTR) RESTORE 2-14 01277000 BR @14 RETURN TO CALLER 01278000 * RFY 0393 01279000 * (REG0, 0393 01280000 * PARM, 0393 01281000 * REG15, 0393 01282000 * WORKB) UNRSTD; 0393 01283000 * END IEAVSQA 0394 01284000 * 0394 01285000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01286000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01287000 */*%INCLUDE SYSLIB (IHARSMHD) */ 01288000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 01289000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 01290000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 01291000 */*%INCLUDE SYSLIB (IHARCA ) */ 01292000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 01293000 */*%INCLUDE SYSLIB (CVT ) */ 01294000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01295000 */*%INCLUDE SYSLIB (IHASRB ) */ 01296000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01297000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01298000 */*%INCLUDE SYSLIB (IHALCCA ) */ 01299000 * 0394 01300000 * ; 0394 01301000 @DATA DS 0H 01302000 DS 0F 01303000 DS 0F 01304000 @CF00085 DC F'4' 01305000 @CF00060 DC F'16' 01306000 @CF01853 DC F'4096' 01307000 @CF01881 DC F'16711680' 01308000 @CF01885 DC XL4'0000FFFF' 01309000 DS 0D 01310000 MXVROFF DC X'FFFFFFFF' 01311000 ORG MXVROFF 01312000 NOFRAME DS BL2 01313000 COMASID DS BL2 01314000 ORG MXVROFF+4 01315000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01316000 @01 EQU 01 01317000 @02 EQU 02 01318000 @03 EQU 03 01319000 @04 EQU 04 01320000 @05 EQU 05 01321000 @06 EQU 06 01322000 @07 EQU 07 01323000 @08 EQU 08 01324000 @09 EQU 09 01325000 @10 EQU 10 01326000 @11 EQU 11 01327000 @12 EQU 12 01328000 @13 EQU 13 01329000 @14 EQU 14 01330000 @15 EQU 15 01331000 PVTPTR EQU @03 01332000 RSMHDPTR EQU @02 01333000 PFTEPTR EQU @04 01334000 PCBRPTR EQU @08 01335000 ASCBPTR EQU @11 01336000 REG0 EQU @00 01337000 PASS EQU @00 01338000 REG1 EQU @01 01339000 PARM EQU @01 01340000 FRR EQU @04 01341000 VBN EQU @05 01342000 REG6 EQU @06 01343000 RBN EQU @06 01344000 WORKA EQU @08 01345000 WORKB EQU @09 01346000 REG13 EQU @13 01347000 REG15 EQU @15 01348000 PTR1 EQU @15 01349000 REG14 EQU @14 01350000 CVTPTR EQU 16 01351000 PSA EQU 0 01352000 FLCRNPSW EQU PSA 01353000 FLCROPSW EQU PSA+8 01354000 FLCICCW2 EQU PSA+16 01355000 PSAEEPSW EQU PSA+132 01356000 PSAESPSW EQU PSA+136 01357000 FLCSVILC EQU PSAESPSW+1 01358000 PSAEPPSW EQU PSA+140 01359000 FLCPIILC EQU PSAEPPSW+1 01360000 FLCPICOD EQU PSAEPPSW+2 01361000 PSAPICOD EQU FLCPICOD+1 01362000 FLCTEA EQU PSAEPPSW+4 01363000 FLCPER EQU PSA+152 01364000 FLCMCLA EQU PSA+168 01365000 FLCIOEL EQU FLCMCLA+4 01366000 FLCIOA EQU FLCMCLA+16 01367000 FLCFSA EQU FLCMCLA+80 01368000 PSALCCAV EQU PSA+528 01369000 PSAAOLD EQU PSA+548 01370000 PSASUPER EQU PSA+552 01371000 PSASUP1 EQU PSASUPER 01372000 PSASUP2 EQU PSASUPER+1 01373000 PSASUP3 EQU PSASUPER+2 01374000 PSASUP4 EQU PSASUPER+3 01375000 PSACLHT EQU PSA+640 01376000 PSALKSA EQU PSA+696 01377000 PSAHLHI EQU PSA+760 01378000 PSADSSFL EQU PSA+836 01379000 PSADSSF1 EQU PSADSSFL 01380000 PSADSSF3 EQU PSADSSFL+2 01381000 PSADSSF4 EQU PSADSSFL+3 01382000 PSARSVT EQU PSA+896 01383000 PVT EQU 0 01384000 PVTFLAG1 EQU PVT 01385000 PVTFLAG2 EQU PVT+1 01386000 PVTPFTP EQU PVT+12 01387000 PVTFVR EQU PVT+20 01388000 PVTLVR EQU PVT+22 01389000 PVTLCSA EQU PVT+26 01390000 PVTSQDC EQU PVT+28 01391000 PVTRSQA EQU PVT+32 01392000 PVTSQVRC EQU PVT+46 01393000 PVTSQNPC EQU PVT+47 01394000 PVTPRCA EQU PVT+52 01395000 PVTPFTE EQU PVT+108 01396000 PVTPFP2 EQU PVT+116 01397000 PVTPVRIN EQU PVT+140 01398000 PVTPRCV EQU PVT+156 01399000 PVTPINV EQU PVT+172 01400000 PVTPPREF EQU PVT+224 01401000 PVTQS EQU PVT+304 01402000 PVTAFQF EQU PVTQS 01403000 PVTRSRVF EQU PVTQS+4 01404000 PVTWSAX EQU PVT+344 01405000 PVTWSA1 EQU PVTWSAX 01406000 PVTSAVE EQU PVTWSAX+1328 01407000 PVTMAXFX EQU PVT+1822 01408000 PVTCNTFX EQU PVT+1830 01409000 PVTSQAFX EQU PVT+1832 01410000 PVTPCBQS EQU PVT+1852 01411000 PVTMVCLC EQU PVT+1936 01412000 PVTTASID EQU PVT+1942 01413000 RSMHD EQU 0 01414000 RSMASCB EQU RSMHD+8 01415000 RSMFLG1 EQU RSMHD+12 01416000 RSMCNTFX EQU RSMHD+14 01417000 RSMQS EQU RSMHD+20 01418000 RSMLFQ EQU RSMQS 01419000 RSMLSQA EQU RSMQS+4 01420000 RSMLIOQ EQU RSMQS+8 01421000 PFTE EQU 0 01422000 PFTPGID EQU PFTE 01423000 PFTASID EQU PFTPGID 01424000 PFTVBN EQU PFTPGID+2 01425000 PFTQPTRS EQU PFTE+4 01426000 PFTFQPTR EQU PFTQPTRS 01427000 PFTFLAGS EQU PFTE+12 01428000 PFTFLAG1 EQU PFTFLAGS 01429000 PFTONAVQ EQU PFTFLAG1 01430000 PFTVRINT EQU PFTFLAG1 01431000 PFTLSQA EQU PFTFLAG1 01432000 PFTVRPLT EQU PFTFLAG1 01433000 PFTFLAG2 EQU PFTFLAGS+1 01434000 PFTVR EQU PFTFLAG2 01435000 PFTIRRG EQU PFTFLAG2 01436000 PFTSTEAL EQU PFTFLAG2 01437000 PFTPREF EQU PFTFLAG2 01438000 PFTQNDX EQU PFTE+14 01439000 PFTUIC EQU PFTE+15 01440000 PCBR EQU 0 01441000 PCBRTCB EQU PCBR 01442000 PCBRFLAG EQU PCBRTCB 01443000 PCBRINT EQU PCBRFLAG 01444000 PGTPTE EQU 0 01445000 PGTRSA EQU PGTPTE 01446000 PGTBITS EQU PGTRSA+1 01447000 PGTPVM EQU PGTBITS 01448000 PGTPAM EQU PGTBITS 01449000 PTEPTR EQU 0 01450000 RCA EQU 0 01451000 RCANAME7 EQU RCA+8 01452000 RCACSECT EQU RCA+9 01453000 RCAFLAGS EQU RCA+10 01454000 RCAABEND EQU RCAFLAGS 01455000 RCARCRD EQU RCA+11 01456000 RCANAMES EQU RCA+12 01457000 RCANAME1 EQU RCANAMES 01458000 RCANAME2 EQU RCANAMES+1 01459000 RCANAME3 EQU RCANAMES+2 01460000 RCANAME4 EQU RCANAMES+3 01461000 RCASQA EQU RCANAME4 01462000 RCANAME5 EQU RCANAMES+4 01463000 RCANAME6 EQU RCANAMES+5 01464000 XPTE EQU 0 01465000 XPTPROT EQU XPTE 01466000 XPTFLAGS EQU XPTE+2 01467000 XPTFLAG2 EQU XPTE+3 01468000 XPTLPID EQU XPTE+4 01469000 XPTLGN EQU XPTLPID 01470000 XPTLPN EQU XPTLPID+4 01471000 XPTEPTR EQU 0 01472000 CVTMAP EQU 0 01473000 CVT EQU CVTMAP 01474000 CVTDAR EQU CVTMAP+72 01475000 CVTFLGS1 EQU CVTDAR 01476000 CVTDCB EQU CVTMAP+116 01477000 CVTIOQET EQU CVTMAP+120 01478000 CVTIERLC EQU CVTMAP+144 01479000 CVTHEAD EQU CVTMAP+160 01480000 CVTSV76C EQU CVTHEAD 01481000 CVTOPTA EQU CVTMAP+182 01482000 CVTOPTB EQU CVTMAP+183 01483000 CVTGTF EQU CVTMAP+236 01484000 CVTGTFST EQU CVTGTF 01485000 CVTGTFS EQU CVTGTFST 01486000 CVTSTATE EQU CVTGTFST 01487000 CVTTMODE EQU CVTGTFST 01488000 CVTFORM EQU CVTGTFST 01489000 CVTAQAVT EQU CVTMAP+240 01490000 CVTTCMFG EQU CVTAQAVT 01491000 CVTVOLM2 EQU CVTMAP+244 01492000 CVTTATA EQU CVTVOLM2 01493000 CVTTSKS EQU CVTTATA 01494000 CVTVOLF2 EQU CVTTSKS 01495000 CVTTAT EQU CVTTATA+1 01496000 CVTATER EQU CVTMAP+248 01497000 CVTEXT1 EQU CVTMAP+252 01498000 CVTPURG EQU CVTMAP+260 01499000 CVTQMSG EQU CVTMAP+268 01500000 CVTDMSR EQU CVTMAP+272 01501000 CVTRSV37 EQU CVTDMSR 01502000 CVTDMSRF EQU CVTRSV37 01503000 CVTERPV EQU CVTMAP+316 01504000 CVTINTLA EQU CVTMAP+320 01505000 CVTAPF EQU CVTMAP+324 01506000 CVTEXT2 EQU CVTMAP+328 01507000 CVTHJES EQU CVTMAP+332 01508000 CVTPGSIA EQU CVTMAP+348 01509000 CVTA1F1 EQU CVTMAP+356 01510000 CVTSYSK EQU CVTMAP+357 01511000 CVTVOLM1 EQU CVTMAP+380 01512000 CVTVOLF1 EQU CVTVOLM1 01513000 CVTXTNT1 EQU 0 01514000 CVTXTNT2 EQU 0 01515000 CVTDSSV EQU CVTXTNT2 01516000 CVTFLGBT EQU CVTXTNT2+5 01517000 CVTQID EQU CVTXTNT2+24 01518000 CVTRV400 EQU CVTXTNT2+52 01519000 CVTRV409 EQU CVTXTNT2+53 01520000 CVTATCVT EQU CVTXTNT2+64 01521000 CVTRV429 EQU CVTXTNT2+84 01522000 CVTRV438 EQU CVTXTNT2+85 01523000 CVTRV457 EQU CVTXTNT2+112 01524000 CVTRV466 EQU CVTXTNT2+113 01525000 CVTFIX EQU 0 01526000 CVTRELNO EQU CVTFIX+252 01527000 ASCB EQU 0 01528000 ASCBSUPC EQU ASCB+16 01529000 ASCBASID EQU ASCB+36 01530000 ASCBSTOR EQU ASCB+44 01531000 ASCBRSM EQU ASCB+52 01532000 ASCBRSMF EQU ASCBRSM 01533000 ASCB1LPU EQU ASCBRSMF 01534000 ASCBFW1 EQU ASCB+100 01535000 ASCBRCTF EQU ASCBFW1+2 01536000 ASCBFLG1 EQU ASCBFW1+3 01537000 ASCBDSP1 EQU ASCB+114 01538000 ASCBFLG2 EQU ASCB+115 01539000 ASCBLKGP EQU ASCB+128 01540000 ASCBSRQ EQU ASCB+180 01541000 ASCBSRQ1 EQU ASCBSRQ 01542000 ASCBSRQ2 EQU ASCBSRQ+1 01543000 ASCBSRQ3 EQU ASCBSRQ+2 01544000 ASCBSRQ4 EQU ASCBSRQ+3 01545000 SRBSECT EQU 0 01546000 SRB EQU SRBSECT 01547000 SRBFLC EQU SRB+12 01548000 SRBPTR EQU 0 01549000 FRRS EQU 0 01550000 FRRSHEAD EQU FRRS 01551000 FRRSCURR EQU FRRSHEAD+12 01552000 FRRSENTR EQU 0 01553000 FRRSFLGS EQU FRRSENTR+4 01554000 FRRSFLG1 EQU FRRSFLGS 01555000 LCCA EQU 0 01556000 LCCAIHRC EQU LCCA+520 01557000 LCCAIHR1 EQU LCCAIHRC 01558000 LCCAIHR2 EQU LCCAIHRC+1 01559000 LCCAIHR3 EQU LCCAIHRC+2 01560000 LCCAIHR4 EQU LCCAIHRC+3 01561000 LCCASPIN EQU LCCA+524 01562000 LCCASPN1 EQU LCCASPIN 01563000 LCCASPN2 EQU LCCASPIN+1 01564000 LCCASPN3 EQU LCCASPIN+2 01565000 LCCASPN4 EQU LCCASPIN+3 01566000 LCCADSF1 EQU LCCA+540 01567000 LCCADSF2 EQU LCCA+541 01568000 LCCASPSA EQU LCCA+544 01569000 LCCACRFL EQU LCCA+692 01570000 LCCACREX EQU LCCA+693 01571000 LCCALKFG EQU LCCA+694 01572000 LCCASRBF EQU LCCA+720 01573000 LCCAASID EQU LCCA+732 01574000 IEAVPFTE EQU 0 01575000 IEAVFP2 EQU 0 01576000 IEAVINV EQU 0 01577000 IEAVPREF EQU 0 01578000 IEAVEQRI EQU 0 01579000 PGTEND EQU 0 01580000 RCAPTR EQU PVTPRCA 01581000 CVTS01 EQU CVTPGSIA 01582000 CVTLPDIA EQU CVTS01+12 01583000 CVTDIRST EQU CVTLPDIA 01584000 CVTSLIDA EQU CVTS01+24 01585000 CVTCTLFG EQU CVTS01+50 01586000 CVTOPTE EQU CVTS01+188 01587000 CVTRV210 EQU CVTS01+424 01588000 CVTRV219 EQU CVTS01+425 01589000 CVTRV228 EQU CVTS01+426 01590000 CVTRV237 EQU CVTS01+427 01591000 CVTMFRTR EQU CVTS01+452 01592000 CVTRV262 EQU CVTS01+468 01593000 CVTRV271 EQU CVTS01+469 01594000 CVTRV280 EQU CVTS01+470 01595000 CVTRV289 EQU CVTS01+471 01596000 CVTGSDA EQU CVTS01+600 01597000 PSARSVTE EQU PSARSVT 01598000 PSACSTK EQU PSARSVTE 01599000 FRRSPTR EQU PSACSTK 01600000 FRREPTR EQU FRRSCURR 01601000 LCCAPTR EQU PSALCCAV 01602000 WORKAREA EQU PVTWSA1 01603000 REGSAVE EQU WORKAREA 01604000 VSA EQU REGSAVE+4 01605000 PGTEADDR EQU WORKAREA+60 01606000 NVRSAVE EQU PGTEADDR 01607000 MISC EQU WORKAREA+64 01608000 RCODE EQU MISC 01609000 PROTKEY EQU MISC+1 01610000 ADRDIFFS EQU WORKAREA+68 01611000 TEMPSAVE EQU ADRDIFFS 01612000 LVRADDIF EQU TEMPSAVE 01613000 FVRADDIF EQU TEMPSAVE+2 01614000 FLC EQU PSA 01615000 * START UNREFERENCED COMPONENTS 01616000 @NM00046 EQU MISC+2 01617000 SAVE214 EQU REGSAVE+8 01618000 SAVE0 EQU REGSAVE 01619000 PSARSAV EQU PSARSVTE+60 01620000 PSARSTK EQU PSARSVTE+56 01621000 PSAESAV3 EQU PSARSVTE+52 01622000 PSAESTK3 EQU PSARSVTE+48 01623000 PSAESAV2 EQU PSARSVTE+44 01624000 PSAESTK2 EQU PSARSVTE+40 01625000 PSAESAV1 EQU PSARSVTE+36 01626000 PSAESTK1 EQU PSARSVTE+32 01627000 PSAPSAV EQU PSARSVTE+28 01628000 PSAPSTK EQU PSARSVTE+24 01629000 PSAMSAV EQU PSARSVTE+20 01630000 PSAMSTK EQU PSARSVTE+16 01631000 PSASSAV EQU PSARSVTE+12 01632000 PSASSTK EQU PSARSVTE+8 01633000 PSANSTK EQU PSARSVTE+4 01634000 CVTRV628 EQU CVTS01+728 01635000 CVTRV627 EQU CVTS01+724 01636000 CVTRV626 EQU CVTS01+720 01637000 CVTRV625 EQU CVTS01+716 01638000 CVTRV624 EQU CVTS01+712 01639000 CVTRV623 EQU CVTS01+708 01640000 CVTRV622 EQU CVTS01+704 01641000 CVTRV621 EQU CVTS01+700 01642000 CVTIHASU EQU CVTS01+696 01643000 CVTSUSP EQU CVTS01+692 01644000 CVTT6SVC EQU CVTS01+688 01645000 CVTCDAL EQU CVTS01+684 01646000 CVTTCTL EQU CVTS01+680 01647000 CVTRSUME EQU CVTS01+676 01648000 CVTJTERM EQU CVTS01+672 01649000 CVTASMRM EQU CVTS01+668 01650000 CVTTCASP EQU CVTS01+664 01651000 CVT0PT03 EQU CVTS01+660 01652000 CVT0PT0E EQU CVTS01+656 01653000 CVTRV609 EQU CVTS01+652 01654000 CVTCGK EQU CVTS01+648 01655000 CVTRAC EQU CVTS01+644 01656000 CVTHSM EQU CVTS01+640 01657000 CVTRV605 EQU CVTS01+636 01658000 CVTRV604 EQU CVTS01+632 01659000 CVTEFF02 EQU CVTS01+628 01660000 CVTCBBR EQU CVTS01+624 01661000 CVTSSCR EQU CVTS01+620 01662000 CVTEVENT EQU CVTS01+616 01663000 CVTCRCA EQU CVTS01+612 01664000 CVTTPIO EQU CVTS01+608 01665000 CVTADV EQU CVTS01+604 01666000 CVTGSDAB EQU CVTGSDA 01667000 CVTQV3 EQU CVTS01+596 01668000 CVTQV2 EQU CVTS01+592 01669000 CVTQV1 EQU CVTS01+588 01670000 CVTRPT EQU CVTS01+584 01671000 CVTSSRB EQU CVTS01+580 01672000 CVTCSDRL EQU CVTS01+576 01673000 CVTEXP1 EQU CVTS01+572 01674000 CVTRMPMT EQU CVTS01+568 01675000 CVTRMPTT EQU CVTS01+564 01676000 CVTVPSA EQU CVTS01+560 01677000 CVTVSTOP EQU CVTS01+556 01678000 CVTGTFR8 EQU CVTS01+552 01679000 CVTQUIT EQU CVTS01+548 01680000 CVTVACR EQU CVTS01+544 01681000 CVTWTCB EQU CVTS01+540 01682000 CVTSTPRS EQU CVTS01+536 01683000 CVT0PT02 EQU CVTS01+532 01684000 CVTDARCM EQU CVTS01+528 01685000 CVTIRECM EQU CVTS01+524 01686000 CVTJRECM EQU CVTS01+520 01687000 CVTVEMS0 EQU CVTS01+516 01688000 CVTSPFRR EQU CVTS01+512 01689000 CVTRLSTG EQU CVTS01+508 01690000 CVT0TC0A EQU CVTS01+504 01691000 CVTGMBR EQU CVTS01+500 01692000 CVTLFRM EQU CVTS01+496 01693000 CVTRMBR EQU CVTS01+492 01694000 CVTVIOP EQU CVTS01+488 01695000 CVTRV307 EQU CVTS01+486 01696000 CVTRV306 EQU CVTS01+484 01697000 CVTRV305 EQU CVTS01+482 01698000 CVTRV304 EQU CVTS01+480 01699000 CVTRV303 EQU CVTS01+478 01700000 CVTRV302 EQU CVTS01+476 01701000 CVTTRCA EQU CVTS01+472 01702000 CVTRV297 EQU CVTRV289 01703000 CVTRV296 EQU CVTRV289 01704000 CVTRV295 EQU CVTRV289 01705000 CVTRV294 EQU CVTRV289 01706000 CVTRV293 EQU CVTRV289 01707000 CVTRV292 EQU CVTRV289 01708000 CVTRV291 EQU CVTRV289 01709000 CVTRV290 EQU CVTRV289 01710000 CVTRV288 EQU CVTRV280 01711000 CVTRV287 EQU CVTRV280 01712000 CVTRV286 EQU CVTRV280 01713000 CVTRV285 EQU CVTRV280 01714000 CVTRV284 EQU CVTRV280 01715000 CVTRV283 EQU CVTRV280 01716000 CVTRV282 EQU CVTRV280 01717000 CVTRV281 EQU CVTRV280 01718000 CVTRV279 EQU CVTRV271 01719000 CVTRV278 EQU CVTRV271 01720000 CVTRV277 EQU CVTRV271 01721000 CVTRV276 EQU CVTRV271 01722000 CVTRV275 EQU CVTRV271 01723000 CVTRV274 EQU CVTRV271 01724000 CVTRV273 EQU CVTRV271 01725000 CVTRV272 EQU CVTRV271 01726000 CVTRV270 EQU CVTRV262 01727000 CVTRV269 EQU CVTRV262 01728000 CVTRV268 EQU CVTRV262 01729000 CVTRV267 EQU CVTRV262 01730000 CVTRV266 EQU CVTRV262 01731000 CVTRV265 EQU CVTRV262 01732000 CVTRV264 EQU CVTRV262 01733000 CVTRV263 EQU CVTRV262 01734000 CVTVFP EQU CVTS01+464 01735000 CVTVSI EQU CVTS01+460 01736000 CVTVPSIB EQU CVTS01+456 01737000 CVTMFACT EQU CVTMFRTR 01738000 CVTMFCTL EQU CVTS01+448 01739000 CVTPVBP EQU CVTS01+444 01740000 CVTPWI EQU CVTS01+440 01741000 CVTRV254 EQU CVTS01+438 01742000 CVTRV253 EQU CVTS01+436 01743000 CVTRV252 EQU CVTS01+434 01744000 CVTRV251 EQU CVTS01+433 01745000 CVTRV250 EQU CVTS01+432 01746000 CVTRV249 EQU CVTS01+431 01747000 CVTRV248 EQU CVTS01+430 01748000 CVTRV247 EQU CVTS01+429 01749000 CVTRV246 EQU CVTS01+428 01750000 CVTRV245 EQU CVTRV237 01751000 CVTRV244 EQU CVTRV237 01752000 CVTRV243 EQU CVTRV237 01753000 CVTRV242 EQU CVTRV237 01754000 CVTRV241 EQU CVTRV237 01755000 CVTRV240 EQU CVTRV237 01756000 CVTRV239 EQU CVTRV237 01757000 CVTRV238 EQU CVTRV237 01758000 CVTRV236 EQU CVTRV228 01759000 CVTRV235 EQU CVTRV228 01760000 CVTRV234 EQU CVTRV228 01761000 CVTRV233 EQU CVTRV228 01762000 CVTRV232 EQU CVTRV228 01763000 CVTRV231 EQU CVTRV228 01764000 CVTRV230 EQU CVTRV228 01765000 CVTRV229 EQU CVTRV228 01766000 CVTRV227 EQU CVTRV219 01767000 CVTRV226 EQU CVTRV219 01768000 CVTRV225 EQU CVTRV219 01769000 CVTRV224 EQU CVTRV219 01770000 CVTRV223 EQU CVTRV219 01771000 CVTRV222 EQU CVTRV219 01772000 CVTRV221 EQU CVTRV219 01773000 CVTRV220 EQU CVTRV219 01774000 CVTRV218 EQU CVTRV210 01775000 CVTRV217 EQU CVTRV210 01776000 CVTRV216 EQU CVTRV210 01777000 CVTRV215 EQU CVTRV210 01778000 CVTRV214 EQU CVTRV210 01779000 CVTRV213 EQU CVTRV210 01780000 CVTRV212 EQU CVTRV210 01781000 CVTRV211 EQU CVTRV210 01782000 CVTLCCAT EQU CVTS01+420 01783000 CVTPCCAT EQU CVTS01+416 01784000 CVTIPCRP EQU CVTS01+412 01785000 CVTIPCRI EQU CVTS01+408 01786000 CVTIPCDS EQU CVTS01+404 01787000 CVTAIDVT EQU CVTS01+400 01788000 CVTSSAP EQU CVTS01+396 01789000 CVTEHCIR EQU CVTS01+392 01790000 CVTEHDEF EQU CVTS01+388 01791000 CVTDAIR EQU CVTS01+384 01792000 CVTPERFM EQU CVTS01+380 01793000 CVT044R2 EQU CVTS01+376 01794000 CVTFETCH EQU CVTS01+372 01795000 CVTRSTWD EQU CVTS01+368 01796000 CVTSPOST EQU CVTS01+364 01797000 CVTIOBP EQU CVTS01+360 01798000 CVTASMVT EQU CVTS01+356 01799000 CVTRECRQ EQU CVTS01+352 01800000 CVTWSAC EQU CVTS01+348 01801000 CVTRV149 EQU CVTS01+344 01802000 CVTWSAL EQU CVTS01+340 01803000 CVTSPSA EQU CVTS01+336 01804000 CVTGLMN EQU CVTS01+332 01805000 CVTVEAC0 EQU CVTS01+328 01806000 CVT062R1 EQU CVTS01+324 01807000 CVTRPOST EQU CVTS01+320 01808000 CVTDQIQE EQU CVTS01+316 01809000 CVTCSD EQU CVTS01+312 01810000 CVTLKRMA EQU CVTS01+308 01811000 CVTRSPIE EQU CVTS01+304 01812000 CVTRENQ EQU CVTS01+300 01813000 CVTLQCB EQU CVTS01+296 01814000 CVTFQCB EQU CVTS01+292 01815000 CVTQCS01 EQU CVTS01+288 01816000 CVTAPFT EQU CVTS01+284 01817000 CVTPARRL EQU CVTS01+280 01818000 CVTVWAIT EQU CVTS01+276 01819000 CVTGSPL EQU CVTS01+272 01820000 CVTLSMQ EQU CVTS01+268 01821000 CVTGSMQ EQU CVTS01+264 01822000 CVTEXPRO EQU CVTS01+260 01823000 CVTOPCTP EQU CVTS01+256 01824000 CVTSIC EQU CVTS01+252 01825000 CVTTPIOS EQU CVTS01+248 01826000 CVTRTMS EQU CVTS01+244 01827000 CVTSDBF EQU CVTS01+240 01828000 CVTSCBP EQU CVTS01+236 01829000 CVTSDMP EQU CVTS01+232 01830000 CVTSV60 EQU CVTS01+228 01831000 CVTRTMCT EQU CVTS01+224 01832000 CVTASCBL EQU CVTS01+220 01833000 CVTASCBH EQU CVTS01+216 01834000 CVTGDA EQU CVTS01+212 01835000 CVTASVT EQU CVTS01+208 01836000 CVTVVMDI EQU CVTS01+204 01837000 CVTAQTOP EQU CVTS01+200 01838000 CVTIOSCS EQU CVTS01+196 01839000 CVTSDRM EQU CVTS01+192 01840000 CVTSTXU EQU CVTS01+184 01841000 CVTQUIS EQU CVTS01+180 01842000 CVTPARS EQU CVTS01+176 01843000 CVTS1EE EQU CVTS01+172 01844000 CVTFRAS EQU CVTS01+168 01845000 CVTQSAS EQU CVTS01+164 01846000 CVTCRAS EQU CVTS01+160 01847000 CVTCRMN EQU CVTS01+156 01848000 CVTDELCP EQU CVTS01+152 01849000 CVTFRECL EQU CVTS01+148 01850000 CVTGETCL EQU CVTS01+144 01851000 CVTBLDCP EQU CVTS01+140 01852000 CVTAUTHL EQU CVTS01+136 01853000 CVTSCAN EQU CVTS01+132 01854000 CVTRV144 EQU CVTS01+130 01855000 CVTMAXMP EQU CVTS01+128 01856000 CVTSTCK EQU CVTS01+124 01857000 CVTRV139 EQU CVTS01+123 01858000 CVTDSSAC EQU CVTS01+122 01859000 CVTRV513 EQU CVTS01+121 01860000 CVTIOSPL EQU CVTS01+120 01861000 CVTPTGT EQU CVTS01+116 01862000 CVTCSPIE EQU CVTS01+112 01863000 CVTSMFEX EQU CVTS01+108 01864000 CVTOLT0A EQU CVTS01+104 01865000 CVTSRBRT EQU CVTS01+100 01866000 CVTPUTL EQU CVTS01+96 01867000 CVTASCRL EQU CVTS01+92 01868000 CVTASCRF EQU CVTS01+88 01869000 CVTRV326 EQU CVTS01+84 01870000 CVTRV325 EQU CVTS01+80 01871000 CVTRV324 EQU CVTS01+76 01872000 CVT0VL01 EQU CVTS01+72 01873000 CVTSHRVM EQU CVTS01+68 01874000 CVTRV332 EQU CVTS01+64 01875000 CVTTAS EQU CVTS01+60 01876000 CVTRSCN EQU CVTS01+56 01877000 CVTTRAC2 EQU CVTS01+54 01878000 CVTTRACE EQU CVTS01+52 01879000 CVTAPG EQU CVTS01+51 01880000 CVTSDTRC EQU CVTCTLFG 01881000 CVTGTRCE EQU CVTCTLFG 01882000 CVTNOMP EQU CVTCTLFG 01883000 CVTRSV79 EQU CVTCTLFG 01884000 CVTDSTAT EQU CVTCTLFG 01885000 CVTRSV78 EQU CVTCTLFG 01886000 CVTRV333 EQU CVTCTLFG 01887000 CVTRV323 EQU CVTCTLFG 01888000 CVTSPVLK EQU CVTS01+49 01889000 CVTRSV77 EQU CVTS01+48 01890000 CVTRV331 EQU CVTS01+44 01891000 CVTRV330 EQU CVTS01+40 01892000 CVTRV329 EQU CVTS01+36 01893000 CVTRV328 EQU CVTS01+32 01894000 CVTRV322 EQU CVTS01+28 01895000 CVTSLID EQU CVTSLIDA+1 01896000 CVTSYLK EQU CVTSLIDA 01897000 CVTRV321 EQU CVTS01+20 01898000 CVTRV320 EQU CVTS01+16 01899000 CVTLPDIR EQU CVTLPDIA+1 01900000 CVTRSV69 EQU CVTDIRST 01901000 CVTRSV68 EQU CVTDIRST 01902000 CVTRSV67 EQU CVTDIRST 01903000 CVTRSV66 EQU CVTDIRST 01904000 CVTRSV65 EQU CVTDIRST 01905000 CVTRSV64 EQU CVTDIRST 01906000 CVTRSV63 EQU CVTDIRST 01907000 CVTDICOM EQU CVTDIRST 01908000 CVTPVTP EQU CVTS01+8 01909000 CVTLPDSR EQU CVTS01+4 01910000 CVTGETL EQU CVTS01 01911000 LCCAR125 EQU LCCA+964 01912000 LCCAR124 EQU LCCA+960 01913000 LCCASGPR EQU LCCA+896 01914000 LCCADRT2 EQU LCCA+888 01915000 LCCADRT1 EQU LCCA+880 01916000 LCCAR103 EQU LCCA+876 01917000 LCCAESS2 EQU LCCA+872 01918000 LCCASPLJ EQU LCCA+868 01919000 LCCASMQJ EQU LCCA+864 01920000 LCCAIRT EQU LCCA+736 01921000 LCCARV89 EQU LCCA+728 01922000 LCCAPGTA EQU LCCASRBF+2 01923000 LCCASAFN EQU LCCASRBF 01924000 LCCAECSA EQU LCCA+716 01925000 LCCAICR0 EQU LCCA+712 01926000 LCCALWTM EQU LCCA+704 01927000 LCCARV78 EQU LCCA+700 01928000 LCCAPINV EQU LCCA+696 01929000 LCCARV88 EQU LCCA+695 01930000 LCCARV87 EQU LCCALKFG 01931000 LCCARV86 EQU LCCALKFG 01932000 LCCARV85 EQU LCCALKFG 01933000 LCCARV84 EQU LCCALKFG 01934000 LCCALKRD EQU LCCALKFG 01935000 LCCALKAQ EQU LCCALKFG 01936000 LCCALKSA EQU LCCALKFG 01937000 LCCALKDP EQU LCCALKFG 01938000 LCCACRST EQU LCCACREX 01939000 LCCACRDP EQU LCCACREX 01940000 LCCACRLM EQU LCCACREX 01941000 LCCACRIN EQU LCCACREX 01942000 LCCACRRT EQU LCCACREX 01943000 LCCACRLE EQU LCCACREX 01944000 LCCACRRM EQU LCCACREX 01945000 LCCACREF EQU LCCACREX 01946000 LCCAVARY EQU LCCACRFL 01947000 LCCARV73 EQU LCCACRFL 01948000 LCCARV72 EQU LCCACRFL 01949000 LCCARV71 EQU LCCACRFL 01950000 LCCARV70 EQU LCCACRFL 01951000 LCCARV69 EQU LCCACRFL 01952000 LCCACLMS EQU LCCACRFL 01953000 LCCACRTM EQU LCCACRFL 01954000 LCCALCR0 EQU LCCA+688 01955000 LCCACRLC EQU LCCA+684 01956000 LCCARCPU EQU LCCA+680 01957000 LCCADCPU EQU LCCA+676 01958000 LCCASRBJ EQU LCCA+672 01959000 LCCADSSR EQU LCCA+668 01960000 LCCADSSC EQU LCCA+660 01961000 LCCADSS3 EQU LCCA+648 01962000 LCCADSS2 EQU LCCA+636 01963000 LCCADSS1 EQU LCCA+624 01964000 LCCAWTIM EQU LCCA+616 01965000 LCCAITOD EQU LCCA+608 01966000 LCCADTOD EQU LCCA+600 01967000 LCCASTOD EQU LCCA+592 01968000 LCCARIR5 EQU LCCASPSA+44 01969000 LCCARIR4 EQU LCCASPSA+40 01970000 LCCARIR3 EQU LCCASPSA+36 01971000 LCCARIR2 EQU LCCASPSA+32 01972000 LCCARPR5 EQU LCCASPSA+28 01973000 LCCARPR4 EQU LCCASPSA+24 01974000 LCCARPR3 EQU LCCASPSA+20 01975000 LCCARPR2 EQU LCCASPSA+16 01976000 LCCADSR5 EQU LCCASPSA+12 01977000 LCCADSR4 EQU LCCASPSA+8 01978000 LCCADSR3 EQU LCCASPSA+4 01979000 LCCADSR2 EQU LCCASPSA 01980000 LCCARV68 EQU LCCA+543 01981000 LCCAPSMK EQU LCCA+542 01982000 LCCARV67 EQU LCCADSF2 01983000 LCCARV66 EQU LCCADSF2 01984000 LCCARV65 EQU LCCADSF2 01985000 LCCARV64 EQU LCCADSF2 01986000 LCCADSRW EQU LCCADSF2 01987000 LCCADSPL EQU LCCADSF2 01988000 LCCAGSRB EQU LCCADSF2 01989000 LCCASRBM EQU LCCADSF2 01990000 LCCARV61 EQU LCCADSF1 01991000 LCCARV60 EQU LCCADSF1 01992000 LCCARV59 EQU LCCADSF1 01993000 LCCARV58 EQU LCCADSF1 01994000 LCCATIMR EQU LCCADSF1 01995000 LCCADSS EQU LCCADSF1 01996000 LCCAVCPU EQU LCCADSF1 01997000 LCCAACR EQU LCCADSF1 01998000 LCCACPUS EQU LCCA+536 01999000 LCCAASCP EQU LCCA+532 02000000 LCCAESSA EQU LCCA+528 02001000 LCCARV55 EQU LCCASPN4 02002000 LCCARV54 EQU LCCASPN4 02003000 LCCARV53 EQU LCCASPN4 02004000 LCCARV52 EQU LCCASPN4 02005000 LCCARV51 EQU LCCASPN4 02006000 LCCARV50 EQU LCCASPN4 02007000 LCCARV49 EQU LCCASPN4 02008000 LCCARV48 EQU LCCASPN4 02009000 LCCARV47 EQU LCCASPN3 02010000 LCCARV46 EQU LCCASPN3 02011000 LCCARV45 EQU LCCASPN3 02012000 LCCARV44 EQU LCCASPN3 02013000 LCCARV43 EQU LCCASPN3 02014000 LCCARV42 EQU LCCASPN3 02015000 LCCARV41 EQU LCCASPN3 02016000 LCCARV40 EQU LCCASPN3 02017000 LCCARV39 EQU LCCASPN2 02018000 LCCARV38 EQU LCCASPN2 02019000 LCCARV37 EQU LCCASPN2 02020000 LCCARV36 EQU LCCASPN2 02021000 LCCARV35 EQU LCCASPN2 02022000 LCCARV34 EQU LCCASPN2 02023000 LCCARV33 EQU LCCASPN2 02024000 LCCARV32 EQU LCCASPN2 02025000 LCCARV31 EQU LCCASPN1 02026000 LCCARV30 EQU LCCASPN1 02027000 LCCAMFIO EQU LCCASPN1 02028000 LCCARSTR EQU LCCASPN1 02029000 LCCATSPN EQU LCCASPN1 02030000 LCCALOCK EQU LCCASPN1 02031000 LCCASIGP EQU LCCASPN1 02032000 LCCAPTLB EQU LCCASPN1 02033000 LCCARV27 EQU LCCAIHR4 02034000 LCCARV26 EQU LCCAIHR4 02035000 LCCARV25 EQU LCCAIHR4 02036000 LCCARV24 EQU LCCAIHR4 02037000 LCCARV23 EQU LCCAIHR4 02038000 LCCARV22 EQU LCCAIHR4 02039000 LCCARV21 EQU LCCAIHR4 02040000 LCCARV20 EQU LCCAIHR4 02041000 LCCARV19 EQU LCCAIHR3 02042000 LCCARV18 EQU LCCAIHR3 02043000 LCCARV17 EQU LCCAIHR3 02044000 LCCARV16 EQU LCCAIHR3 02045000 LCCARV15 EQU LCCAIHR3 02046000 LCCARV14 EQU LCCAIHR3 02047000 LCCARV13 EQU LCCAIHR3 02048000 LCCARV12 EQU LCCAIHR3 02049000 LCCARV11 EQU LCCAIHR2 02050000 LCCARV10 EQU LCCAIHR2 02051000 LCCARV09 EQU LCCAIHR2 02052000 LCCARV08 EQU LCCAIHR2 02053000 LCCARV07 EQU LCCAIHR2 02054000 LCCARV06 EQU LCCAIHR2 02055000 LCCARV05 EQU LCCAIHR2 02056000 LCCARV04 EQU LCCAIHR2 02057000 LCCARV03 EQU LCCAIHR1 02058000 LCCARV02 EQU LCCAIHR1 02059000 LCCARV01 EQU LCCAIHR1 02060000 LCCAPPIE EQU LCCAIHR1 02061000 LCCAPSG1 EQU LCCAIHR1 02062000 LCCAPDAT EQU LCCAIHR1 02063000 LCCAXRC2 EQU LCCAIHR1 02064000 LCCAXRC1 EQU LCCAIHR1 02065000 LCCAIOPS EQU LCCA+512 02066000 LCCAGPGR EQU LCCA+448 02067000 LCCAR133 EQU LCCA+444 02068000 LCCAR132 EQU LCCA+440 02069000 LCCAR131 EQU LCCA+436 02070000 LCCAR130 EQU LCCA+432 02071000 LCCAR129 EQU LCCA+428 02072000 LCCAR128 EQU LCCA+424 02073000 LCCAR127 EQU LCCA+420 02074000 LCCAR126 EQU LCCA+416 02075000 LCCARSGR EQU LCCA+352 02076000 LCCAXGR3 EQU LCCA+288 02077000 LCCAXGR2 EQU LCCA+224 02078000 LCCAXGR1 EQU LCCA+160 02079000 LCCACR0 EQU LCCA+156 02080000 LCCAMCR1 EQU LCCA+152 02081000 LCCAPVAD EQU LCCA+148 02082000 LCCAPINT EQU LCCA+144 02083000 LCCAPPSW EQU LCCA+136 02084000 LCCAPGR2 EQU LCCA+72 02085000 LCCAPGR1 EQU LCCA+8 02086000 LCCARV77 EQU LCCA+6 02087000 LCCACPUA EQU LCCA+4 02088000 LCCALCCA EQU LCCA 02089000 FRRSPARM EQU FRRSENTR+8 02090000 @NM00021 EQU FRRSFLGS+1 02091000 @NM00020 EQU FRRSFLG1 02092000 FRRSNEST EQU FRRSFLG1 02093000 FRRSRCUR EQU FRRSFLG1 02094000 FRRSFRRA EQU FRRSENTR 02095000 FRRSENTS EQU FRRS+84 02096000 FRRSRTMW EQU FRRS+16 02097000 FRRSELEN EQU FRRSHEAD+8 02098000 FRRSLAST EQU FRRSHEAD+4 02099000 FRRSEMP EQU FRRSHEAD 02100000 @NM00019 EQU SRB+40 02101000 @NM00018 EQU SRB+38 02102000 SRBPRIOR EQU SRB+37 02103000 SRBPKF EQU SRB+36 02104000 SRBSAVE EQU SRB+32 02105000 SRBPARM EQU SRB+28 02106000 SRBRMTR EQU SRB+24 02107000 SRBEP EQU SRB+20 02108000 SRBPTCB EQU SRBFLC+4 02109000 SRBPASID EQU SRBFLC+2 02110000 SRBCPAFF EQU SRBFLC 02111000 SRBASCB EQU SRB+8 02112000 SRBFLNK EQU SRB+4 02113000 SRBID EQU SRB 02114000 ASCBEND EQU ASCB+208 02115000 ASCBSRBT EQU ASCB+200 02116000 ASCBSWTL EQU ASCB+196 02117000 ASCBRS14 EQU ASCB+195 02118000 ASCBSMCT EQU ASCB+194 02119000 ASCBRS12 EQU ASCB+192 02120000 ASCBPCTT EQU ASCB+188 02121000 ASCBVGTT EQU ASCB+184 02122000 ASCBRV43 EQU ASCBSRQ4 02123000 ASCBRV42 EQU ASCBSRQ4 02124000 ASCBRV41 EQU ASCBSRQ4 02125000 ASCBRV40 EQU ASCBSRQ4 02126000 ASCBRV39 EQU ASCBSRQ4 02127000 ASCBRV38 EQU ASCBSRQ4 02128000 ASCBRV37 EQU ASCBSRQ4 02129000 ASCBRV36 EQU ASCBSRQ4 02130000 ASCBRV35 EQU ASCBSRQ3 02131000 ASCBRV34 EQU ASCBSRQ3 02132000 ASCBRV33 EQU ASCBSRQ3 02133000 ASCBRV32 EQU ASCBSRQ3 02134000 ASCBRV31 EQU ASCBSRQ3 02135000 ASCBRV30 EQU ASCBSRQ3 02136000 ASCBRV29 EQU ASCBSRQ3 02137000 ASCBRV28 EQU ASCBSRQ3 02138000 ASCBRV27 EQU ASCBSRQ2 02139000 ASCBRV26 EQU ASCBSRQ2 02140000 ASCBRV25 EQU ASCBSRQ2 02141000 ASCBRV24 EQU ASCBSRQ2 02142000 ASCBRV23 EQU ASCBSRQ2 02143000 ASCBRV22 EQU ASCBSRQ2 02144000 ASCBRV21 EQU ASCBSRQ2 02145000 ASCBRV20 EQU ASCBSRQ2 02146000 ASCBRV19 EQU ASCBSRQ1 02147000 ASCBRV18 EQU ASCBSRQ1 02148000 ASCBRV17 EQU ASCBSRQ1 02149000 ASCBRV16 EQU ASCBSRQ1 02150000 ASCBRV15 EQU ASCBSRQ1 02151000 ASCBRV14 EQU ASCBSRQ1 02152000 ASCBRV13 EQU ASCBSRQ1 02153000 ASCBSTA EQU ASCBSRQ1 02154000 ASCBJBNS EQU ASCB+176 02155000 ASCBJBNI EQU ASCB+172 02156000 ASCBMCC EQU ASCB+168 02157000 ASCBRTWA EQU ASCB+164 02158000 ASCBIQEA EQU ASCB+160 02159000 ASCBXMPQ EQU ASCB+156 02160000 ASCBRS01 EQU ASCB+154 02161000 ASCBFMCT EQU ASCB+152 02162000 ASCBOUXB EQU ASCB+148 02163000 ASCBOUCB EQU ASCB+144 02164000 ASCBMECB EQU ASCB+140 02165000 ASCBQECB EQU ASCB+136 02166000 ASCBLSQH EQU ASCBLKGP+4 02167000 ASCBLOCK EQU ASCBLKGP 02168000 ASCBTCBS EQU ASCB+124 02169000 ASCBNVSC EQU ASCB+122 02170000 ASCBVSC EQU ASCB+120 02171000 ASCBSRBS EQU ASCB+118 02172000 ASCBSSRB EQU ASCB+116 02173000 ASCBRV06 EQU ASCBFLG2 02174000 ASCBRV05 EQU ASCBFLG2 02175000 ASCBRV04 EQU ASCBFLG2 02176000 ASCBSNQS EQU ASCBFLG2 02177000 ASCBS2S EQU ASCBFLG2 02178000 ASCBCEXT EQU ASCBFLG2 02179000 ASCBPXMT EQU ASCBFLG2 02180000 ASCBXMPT EQU ASCBFLG2 02181000 ASCBRF07 EQU ASCBDSP1 02182000 ASCBRF06 EQU ASCBDSP1 02183000 ASCBRF05 EQU ASCBDSP1 02184000 ASCBRF04 EQU ASCBDSP1 02185000 ASCBRF03 EQU ASCBDSP1 02186000 ASCBRF02 EQU ASCBDSP1 02187000 ASCBFAIL EQU ASCBDSP1 02188000 ASCBNOQ EQU ASCBDSP1 02189000 ASCBSWCT EQU ASCB+112 02190000 ASCBASXB EQU ASCB+108 02191000 ASCBTMCH EQU ASCB+104 02192000 ASCBNSWP EQU ASCBFLG1 02193000 ASCBTYP1 EQU ASCBFLG1 02194000 ASCBSTND EQU ASCBFLG1 02195000 ASCBABNT EQU ASCBFLG1 02196000 ASCBTERM EQU ASCBFLG1 02197000 ASCBS3S EQU ASCBFLG1 02198000 ASCBCMSH EQU ASCBFLG1 02199000 ASCBTOFF EQU ASCBFLG1 02200000 ASCBRF01 EQU ASCBRCTF 02201000 ASCBTMLW EQU ASCBRCTF 02202000 ASCBOUT EQU ASCBRCTF 02203000 ASCBWAIT EQU ASCBRCTF 02204000 ASCBRV08 EQU ASCBRCTF 02205000 ASCBFQU EQU ASCBRCTF 02206000 ASCBFRS EQU ASCBRCTF 02207000 ASCBTMNO EQU ASCBRCTF 02208000 ASCBAFFN EQU ASCBFW1 02209000 ASCBDUMP EQU ASCB+96 02210000 ASCBRV44 EQU ASCB+92 02211000 ASCBUBET EQU ASCB+88 02212000 ASCBECB EQU ASCB+84 02213000 ASCBJSTL EQU ASCB+80 02214000 ASCBEWST EQU ASCB+72 02215000 ASCBEJST EQU ASCB+64 02216000 ASCBTSB EQU ASCB+60 02217000 ASCBCSCB EQU ASCB+56 02218000 ASCBRSMA EQU ASCBRSM+1 02219000 ASCBRV54 EQU ASCBRSMF 02220000 ASCBRV53 EQU ASCBRSMF 02221000 ASCBRV52 EQU ASCBRSMF 02222000 ASCBRV51 EQU ASCBRSMF 02223000 ASCBVEQR EQU ASCBRSMF 02224000 ASCBN2LP EQU ASCBRSMF 02225000 ASCB2LPU EQU ASCBRSMF 02226000 ASCBLDA EQU ASCB+48 02227000 ASCBDP EQU ASCB+43 02228000 ASCBRV07 EQU ASCB+42 02229000 ASCBIOSM EQU ASCB+40 02230000 ASCBSEQN EQU ASCB+38 02231000 ASCBCPUS EQU ASCB+32 02232000 ASCBSPL EQU ASCB+28 02233000 ASCBIOSP EQU ASCB+24 02234000 ASCBSYNC EQU ASCBSUPC+4 02235000 ASCBSVRB EQU ASCBSUPC 02236000 ASCBCMSF EQU ASCB+12 02237000 ASCBBWDP EQU ASCB+8 02238000 ASCBFWDP EQU ASCB+4 02239000 ASCBASCB EQU ASCB 02240000 ASCBEGIN EQU ASCB 02241000 CVTLEVL EQU CVTRELNO+2 02242000 CVTNUMB EQU CVTRELNO 02243000 CVTMDL EQU CVTFIX+250 02244000 @NM00017 EQU CVTFIX+248 02245000 @NM00016 EQU CVTFIX 02246000 CVTRV482 EQU CVTXTNT2+128 02247000 CVTRV481 EQU CVTXTNT2+124 02248000 CVTRV480 EQU CVTXTNT2+120 02249000 CVTRV479 EQU CVTXTNT2+118 02250000 CVTRV478 EQU CVTXTNT2+117 02251000 CVTRV477 EQU CVTXTNT2+116 02252000 CVTRV476 EQU CVTXTNT2+115 02253000 CVTRV475 EQU CVTXTNT2+114 02254000 CVTRV474 EQU CVTRV466 02255000 CVTRV473 EQU CVTRV466 02256000 CVTRV472 EQU CVTRV466 02257000 CVTRV471 EQU CVTRV466 02258000 CVTRV470 EQU CVTRV466 02259000 CVTRV469 EQU CVTRV466 02260000 CVTRV468 EQU CVTRV466 02261000 CVTRV467 EQU CVTRV466 02262000 CVTRV465 EQU CVTRV457 02263000 CVTRV464 EQU CVTRV457 02264000 CVTRV463 EQU CVTRV457 02265000 CVTRV462 EQU CVTRV457 02266000 CVTRV461 EQU CVTRV457 02267000 CVTRV460 EQU CVTRV457 02268000 CVTRV459 EQU CVTRV457 02269000 CVTRV458 EQU CVTRV457 02270000 CVTRV456 EQU CVTXTNT2+108 02271000 CVTRV455 EQU CVTXTNT2+104 02272000 CVTRV454 EQU CVTXTNT2+100 02273000 CVTRV453 EQU CVTXTNT2+96 02274000 CVTRV452 EQU CVTXTNT2+94 02275000 CVTRV451 EQU CVTXTNT2+92 02276000 CVTRV450 EQU CVTXTNT2+90 02277000 CVTRV449 EQU CVTXTNT2+88 02278000 CVTRV448 EQU CVTXTNT2+87 02279000 CVTRV447 EQU CVTXTNT2+86 02280000 CVTRV446 EQU CVTRV438 02281000 CVTRV445 EQU CVTRV438 02282000 CVTRV444 EQU CVTRV438 02283000 CVTRV443 EQU CVTRV438 02284000 CVTRV442 EQU CVTRV438 02285000 CVTRV441 EQU CVTRV438 02286000 CVTRV440 EQU CVTRV438 02287000 CVTRV439 EQU CVTRV438 02288000 CVTRV437 EQU CVTRV429 02289000 CVTRV436 EQU CVTRV429 02290000 CVTRV435 EQU CVTRV429 02291000 CVTRV434 EQU CVTRV429 02292000 CVTRV433 EQU CVTRV429 02293000 CVTRV432 EQU CVTRV429 02294000 CVTRV431 EQU CVTRV429 02295000 CVTRV430 EQU CVTRV429 02296000 CVTRV428 EQU CVTXTNT2+80 02297000 CVTRV427 EQU CVTXTNT2+76 02298000 CVTRV426 EQU CVTXTNT2+72 02299000 CVTRV425 EQU CVTXTNT2+68 02300000 CVTATACT EQU CVTATCVT 02301000 CVTRV423 EQU CVTXTNT2+62 02302000 CVTRV422 EQU CVTXTNT2+60 02303000 CVTRV421 EQU CVTXTNT2+58 02304000 CVTRV420 EQU CVTXTNT2+56 02305000 CVTRV419 EQU CVTXTNT2+55 02306000 CVTRV418 EQU CVTXTNT2+54 02307000 CVTRV417 EQU CVTRV409 02308000 CVTRV416 EQU CVTRV409 02309000 CVTRV415 EQU CVTRV409 02310000 CVTRV414 EQU CVTRV409 02311000 CVTRV413 EQU CVTRV409 02312000 CVTRV412 EQU CVTRV409 02313000 CVTRV411 EQU CVTRV409 02314000 CVTRV410 EQU CVTRV409 02315000 CVTRV408 EQU CVTRV400 02316000 CVTRV407 EQU CVTRV400 02317000 CVTRV406 EQU CVTRV400 02318000 CVTRV405 EQU CVTRV400 02319000 CVTRV404 EQU CVTRV400 02320000 CVTRV403 EQU CVTRV400 02321000 CVTRV402 EQU CVTRV400 02322000 CVTRV401 EQU CVTRV400 02323000 CVTICB EQU CVTXTNT2+48 02324000 CVTSKTA EQU CVTXTNT2+44 02325000 CVTCCVT EQU CVTXTNT2+40 02326000 CVTRSV98 EQU CVTXTNT2+36 02327000 CVTRSV97 EQU CVTXTNT2+34 02328000 CVTRSV96 EQU CVTXTNT2+32 02329000 CVTOLTEP EQU CVTXTNT2+28 02330000 CVTQIDA EQU CVTQID+1 02331000 CVTRSV95 EQU CVTQID 02332000 CVTRSV94 EQU CVTXTNT2+20 02333000 CVTRSV93 EQU CVTXTNT2+16 02334000 CVTRSV92 EQU CVTXTNT2+12 02335000 CVTDEBVR EQU CVTXTNT2+8 02336000 CVTRSV91 EQU CVTXTNT2+6 02337000 CVTRSV9H EQU CVTFLGBT 02338000 CVTRSV9G EQU CVTFLGBT 02339000 CVTRSV9F EQU CVTFLGBT 02340000 CVTRSV9E EQU CVTFLGBT 02341000 CVTRSV9D EQU CVTFLGBT 02342000 CVTBAH EQU CVTFLGBT 02343000 CVTVME EQU CVTFLGBT 02344000 CVTNPE EQU CVTFLGBT 02345000 CVTNUCLS EQU CVTXTNT2+4 02346000 CVTDSSVA EQU CVTDSSV+1 02347000 CVTRSV89 EQU CVTDSSV 02348000 CVTRSV88 EQU CVTXTNT1+8 02349000 CVTRSV87 EQU CVTXTNT1+4 02350000 CVTFACHN EQU CVTXTNT1 02351000 CVTRV488 EQU CVTMAP+412 02352000 CVTRV487 EQU CVTMAP+408 02353000 CVTRV486 EQU CVTMAP+404 02354000 CVTRV485 EQU CVTMAP+400 02355000 CVTACTAP EQU CVTMAP+396 02356000 CVTAUTH EQU CVTMAP+392 02357000 CVTRV490 EQU CVTMAP+388 02358000 CVTSU EQU CVTMAP+384 02359000 CVTVOLT1 EQU CVTVOLM1+1 02360000 CVTVOLI1 EQU CVTVOLF1 02361000 CVTSTOA EQU CVTMAP+376 02362000 CVTRSV58 EQU CVTMAP+374 02363000 CVTRSV57 EQU CVTMAP+372 02364000 CVTDDCE EQU CVTMAP+368 02365000 CVTPNWFR EQU CVTMAP+364 02366000 CVTSMF EQU CVTMAP+360 02367000 CVTSULK EQU CVTMAP+358 02368000 CVTSLKO EQU CVTSYSK 02369000 CVTSLKP EQU CVTSYSK 02370000 CVTSLKQ EQU CVTSYSK 02371000 CVTSLKR EQU CVTSYSK 02372000 CVTRSV56 EQU CVTSYSK 02373000 CVTRSV55 EQU CVTSYSK 02374000 CVTRSV54 EQU CVTSYSK 02375000 CVTRSV53 EQU CVTSYSK 02376000 CVTRSV52 EQU CVTA1F1 02377000 CVTRSV51 EQU CVTA1F1 02378000 CVTRSV50 EQU CVTA1F1 02379000 CVTRSV49 EQU CVTA1F1 02380000 CVTRSV48 EQU CVTA1F1 02381000 CVTRSV47 EQU CVTA1F1 02382000 CVTSRSW EQU CVTA1F1 02383000 CVTPFSW EQU CVTA1F1 02384000 CVTPCVT EQU CVTMAP+352 02385000 CVTRSV46 EQU CVTMAP+344 02386000 CVTRSV45 EQU CVTMAP+340 02387000 CVTRSV44 EQU CVTMAP+338 02388000 CVTRSV43 EQU CVTMAP+336 02389000 CVTHJESA EQU CVTHJES+1 02390000 CVTRSV42 EQU CVTHJES 02391000 CVTEXT2A EQU CVTEXT2+1 02392000 CVTRSV41 EQU CVTEXT2 02393000 CVTAPFA EQU CVTAPF+1 02394000 CVTRSV40 EQU CVTAPF 02395000 CVTRV518 EQU CVTINTLA 02396000 CVTRV517 EQU CVTERPV 02397000 CVTEORM EQU CVTMAP+312 02398000 CVTMCHPR EQU CVTMAP+308 02399000 CVTTZ EQU CVTMAP+304 02400000 CVTJEPS EQU CVTMAP+300 02401000 CVTJESCT EQU CVTMAP+296 02402000 CVTMODE EQU CVTMAP+292 02403000 CVTPTRV EQU CVTMAP+288 02404000 CVTREAL EQU CVTMAP+284 02405000 CVTRSV39 EQU CVTMAP+280 02406000 CVTRSV38 EQU CVTMAP+276 02407000 CVTDMSRA EQU CVTDMSR+1 02408000 CVTRV634 EQU CVTDMSRF 02409000 CVTRV633 EQU CVTDMSRF 02410000 CVTRV632 EQU CVTDMSRF 02411000 CVTRV631 EQU CVTDMSRF 02412000 CVTRV630 EQU CVTDMSRF 02413000 CVTRV629 EQU CVTDMSRF 02414000 CVTUDUMP EQU CVTDMSRF 02415000 CVTSDUMP EQU CVTDMSRF 02416000 CVTQMSGA EQU CVTQMSG+1 02417000 CVTRSV36 EQU CVTQMSG 02418000 CVTAMFF EQU CVTMAP+264 02419000 CVTPURGA EQU CVTPURG+1 02420000 CVTRSV35 EQU CVTPURG 02421000 CVTCBSP EQU CVTMAP+256 02422000 CVTATERA EQU CVTATER+1 02423000 CVTSYST EQU CVTATER 02424000 CVTVOLT2 EQU CVTTAT 02425000 CVTVOLI2 EQU CVTVOLF2 02426000 CVTAQAVB EQU CVTAQAVT+1 02427000 CVTRSV34 EQU CVTTCMFG 02428000 CVTRSV33 EQU CVTTCMFG 02429000 CVTRSV32 EQU CVTTCMFG 02430000 CVTRSV31 EQU CVTTCMFG 02431000 CVTRSV30 EQU CVTTCMFG 02432000 CVTRSV29 EQU CVTTCMFG 02433000 CVTLDEV EQU CVTTCMFG 02434000 CVTTCRDY EQU CVTTCMFG 02435000 CVTGTFA EQU CVTGTF+1 02436000 CVTRSV27 EQU CVTGTFST 02437000 CVTRNIO EQU CVTGTFST 02438000 CVTUSR EQU CVTGTFST 02439000 CVTRV318 EQU CVTFORM 02440000 CVTRV317 EQU CVTTMODE 02441000 CVTRV316 EQU CVTSTATE 02442000 CVTRV315 EQU CVTGTFS 02443000 CVTGTFAV EQU CVTGTFS 02444000 CVT0SCR1 EQU CVTMAP+232 02445000 CVTRV515 EQU CVTMAP+228 02446000 CVTRMS EQU CVTMAP+224 02447000 CVTPATCH EQU CVTMAP+220 02448000 CVTTSCE EQU CVTMAP+216 02449000 CVTLNKSC EQU CVTMAP+214 02450000 CVTQABST EQU CVTMAP+212 02451000 CVTMDLDS EQU CVTMAP+208 02452000 CVTUSER EQU CVTMAP+204 02453000 CVTABEND EQU CVTMAP+200 02454000 CVTSMCA EQU CVTMAP+196 02455000 CVTRSV18 EQU CVTMAP+192 02456000 CVTQLPAQ EQU CVTMAP+188 02457000 CVTQCDSR EQU CVTMAP+184 02458000 CVTVS1B EQU CVTOPTB 02459000 CVTVS1A EQU CVTOPTB 02460000 CVTFP EQU CVTOPTB 02461000 CVTAPTHR EQU CVTOPTB 02462000 CVTNLOG EQU CVTOPTB 02463000 CVTTOD EQU CVTOPTB 02464000 CVTCTIMS EQU CVTOPTB 02465000 CVTPROT EQU CVTOPTB 02466000 CVTXPFP EQU CVTOPTA 02467000 CVTASCII EQU CVTOPTA 02468000 CVTRSV13 EQU CVTOPTA 02469000 CVTRSV12 EQU CVTOPTA 02470000 CVTNIP EQU CVTOPTA 02471000 CVTDDR EQU CVTOPTA 02472000 CVTAPR EQU CVTOPTA 02473000 CVTCCH EQU CVTOPTA 02474000 CVTSNCTR EQU CVTMAP+180 02475000 CVTQMWR EQU CVTMAP+176 02476000 CVTQOCR EQU CVTMAP+172 02477000 CVT1EF00 EQU CVTMAP+168 02478000 CVTMZ00 EQU CVTMAP+164 02479000 CVTSV76Q EQU CVTSV76C 02480000 CVTRSV11 EQU CVTMAP+156 02481000 CVT0PT01 EQU CVTMAP+152 02482000 CVTMSER EQU CVTMAP+148 02483000 CVTRV516 EQU CVTIERLC 02484000 CVTILCH EQU CVTMAP+140 02485000 CVT0DS EQU CVTMAP+136 02486000 CVTFBOSV EQU CVTMAP+132 02487000 CVTNUCB EQU CVTMAP+128 02488000 CVTIXAVL EQU CVTMAP+124 02489000 CVTSV76M EQU CVTIOQET 02490000 CVTDCBA EQU CVTMAP+117 02491000 CVTMVS2 EQU CVTDCB 02492000 CVT6DAT EQU CVTDCB 02493000 CVT4MPS EQU CVTDCB 02494000 CVTRSV09 EQU CVTDCB 02495000 CVT4MS1 EQU CVTDCB 02496000 CVT2SPS EQU CVTDCB 02497000 CVT1SSS EQU CVTDCB 02498000 CVTRSV08 EQU CVTDCB 02499000 CVTSTB EQU CVTMAP+112 02500000 CVTQTD00 EQU CVTMAP+108 02501000 CVTQTE00 EQU CVTMAP+104 02502000 CVTCUCB EQU CVTMAP+100 02503000 CVTSJQ EQU CVTMAP+96 02504000 CVTPBLDL EQU CVTMAP+92 02505000 CVTTPC EQU CVTMAP+88 02506000 CVTSVDCB EQU CVTMAP+84 02507000 CVTBRET EQU CVTMAP+82 02508000 CVTEXIT EQU CVTMAP+80 02509000 CVT0FN00 EQU CVTMAP+76 02510000 CVTDARA EQU CVTDAR+1 02511000 CVTRSV07 EQU CVTFLGS1 02512000 CVTRSV06 EQU CVTFLGS1 02513000 CVTRSV05 EQU CVTFLGS1 02514000 CVTRSV04 EQU CVTFLGS1 02515000 CVTRSV03 EQU CVTFLGS1 02516000 CVTRSV02 EQU CVTFLGS1 02517000 CVTRSV01 EQU CVTFLGS1 02518000 CVTDMPLK EQU CVTFLGS1 02519000 CVTXITP EQU CVTMAP+68 02520000 CVTZDTAB EQU CVTMAP+64 02521000 CVTMSLT EQU CVTMAP+60 02522000 CVTDATE EQU CVTMAP+56 02523000 CVTBTERM EQU CVTMAP+52 02524000 CVTSYSAD EQU CVTMAP+48 02525000 CVTXTLER EQU CVTMAP+44 02526000 CVTILK2 EQU CVTMAP+40 02527000 CVTILK1 EQU CVTMAP+36 02528000 CVTPRLTV EQU CVTMAP+32 02529000 CVTPCNVT EQU CVTMAP+28 02530000 CVT0VL00 EQU CVTMAP+24 02531000 CVTXAPG EQU CVTMAP+20 02532000 CVTBUF EQU CVTMAP+16 02533000 CVTJOB EQU CVTMAP+12 02534000 CVTLINK EQU CVTMAP+8 02535000 CVT0EF00 EQU CVTMAP+4 02536000 CVTTCBP EQU CVTMAP 02537000 XPTLSID2 EQU XPTLPN 02538000 XPTLSID EQU XPTLGN 02539000 @NM00015 EQU XPTFLAG2 02540000 XPTIOERR EQU XPTFLAG2 02541000 XPTPOINP EQU XPTFLAG2 02542000 XPTRES1 EQU XPTFLAG2 02543000 XPTVALID EQU XPTFLAG2 02544000 XPTRSV4 EQU XPTFLAGS 02545000 XPTDEFER EQU XPTFLAGS 02546000 XPTRES2 EQU XPTFLAGS 02547000 XPTVIO EQU XPTFLAGS 02548000 @NM00014 EQU XPTFLAGS 02549000 XPTCKF EQU XPTFLAGS 02550000 XPTXAV EQU XPTFLAGS 02551000 XPTVIOLP EQU XPTFLAGS 02552000 XPTRSV1 EQU XPTE+1 02553000 RCARETAD EQU RCA+20 02554000 RCATASID EQU RCA+18 02555000 RCAREP1 EQU RCANAME6 02556000 RCAPSIF EQU RCANAME6 02557000 RCAPSIX EQU RCANAME6 02558000 RCAVEQRP EQU RCANAME6 02559000 RCARCFC EQU RCANAME6 02560000 RCACSGB EQU RCANAME6 02561000 RCAFXL EQU RCANAME6 02562000 RCAPS113 EQU RCANAME6 02563000 RCAFREE EQU RCANAME5 02564000 RCARFR2 EQU RCANAME5 02565000 RCACPBR EQU RCANAME5 02566000 RCAOPBR EQU RCANAME5 02567000 RCASORT EQU RCANAME5 02568000 RCASIRT EQU RCANAME5 02569000 RCARELV EQU RCANAME5 02570000 RCARELF EQU RCANAME5 02571000 RCAGFAD EQU RCANAME4 02572000 RCAVEQRI EQU RCANAME4 02573000 RCAVEQRF EQU RCANAME4 02574000 RCAVEQRC EQU RCANAME4 02575000 RCATERM EQU RCANAME4 02576000 RCASWIN EQU RCANAME4 02577000 RCASOUT EQU RCANAME4 02578000 RCARFR EQU RCANAME3 02579000 RCARELS EQU RCANAME3 02580000 RCARCFI EQU RCANAME3 02581000 RCARCF EQU RCANAME3 02582000 RCAPSII EQU RCANAME3 02583000 RCAPSIB EQU RCANAME3 02584000 RCAPS112 EQU RCANAME3 02585000 RCAPIX EQU RCANAME3 02586000 RCAPIOP EQU RCANAME2 02587000 RCASWPC EQU RCANAME2 02588000 RCASWPP EQU RCANAME2 02589000 RCAPFTE EQU RCANAME2 02590000 RCAPCB EQU RCANAME2 02591000 RCAOUT EQU RCANAME2 02592000 RCAITAS EQU RCANAME2 02593000 RCAIOCP EQU RCANAME2 02594000 RCAINV EQU RCANAME1 02595000 RCAGFA EQU RCANAME1 02596000 RCAFXLD EQU RCANAME1 02597000 RCAVEQR EQU RCANAME1 02598000 RCADSEG EQU RCANAME1 02599000 RCADLAS EQU RCANAME1 02600000 RCACSEG EQU RCANAME1 02601000 RCAVAMSI EQU RCANAME1 02602000 @NM00013 EQU RCAFLAGS 02603000 RCADISP EQU RCAFLAGS 02604000 @NM00012 EQU RCAFLAGS 02605000 RCAQS EQU RCAFLAGS 02606000 RCAPSIER EQU RCAFLAGS 02607000 RCALL EQU RCAFLAGS 02608000 RCASAL EQU RCAFLAGS 02609000 @NM00011 EQU RCANAME7 02610000 RCAPRSS EQU RCANAME7 02611000 RCAPRSR EQU RCANAME7 02612000 RCAPRSB EQU RCANAME7 02613000 RCAPSIY EQU RCANAME7 02614000 RCAPIOI EQU RCANAME7 02615000 RCAPARM1 EQU RCA+4 02616000 RCAPARM0 EQU RCA 02617000 @NM00010 EQU PGTBITS 02618000 @NM00009 EQU PGTBITS 02619000 @NM00008 EQU PGTBITS 02620000 @NM00007 EQU PGTBITS 02621000 @NM00006 EQU PGTBITS 02622000 @NM00005 EQU PGTBITS 02623000 PGTREAL EQU PGTRSA 02624000 PCBRWRKB EQU PCBR+60 02625000 PCBRWRKA EQU PCBR+56 02626000 PCBRWRK9 EQU PCBR+52 02627000 PCBRWRK8 EQU PCBR+48 02628000 PCBRWRK7 EQU PCBR+44 02629000 PCBRWRK6 EQU PCBR+40 02630000 PCBRWRK5 EQU PCBR+36 02631000 PCBRWRK4 EQU PCBR+32 02632000 PCBRWRK3 EQU PCBR+28 02633000 PCBRWRK2 EQU PCBR+24 02634000 PCBRWRK1 EQU PCBR+20 02635000 PCBRRSV1 EQU PCBR+18 02636000 PCBRCNT EQU PCBR+16 02637000 PCBRASCB EQU PCBR+12 02638000 PCBRECB EQU PCBR+8 02639000 PCBRGOTO EQU PCBR+4 02640000 PCBRTCBA EQU PCBRTCB+1 02641000 PCBRPOF EQU PCBRFLAG 02642000 PCBRFECB EQU PCBRFLAG 02643000 PCBRLOAD EQU PCBRFLAG 02644000 PCBRFAIL EQU PCBRFLAG 02645000 PCBRFPCB EQU PCBRFLAG 02646000 PCBRPB EQU PCBRFLAG 02647000 PCBRETRY EQU PCBRFLAG 02648000 @NM00004 EQU PFTFLAG2 02649000 @NM00003 EQU PFTFLAG2 02650000 PFTOFFLN EQU PFTFLAG2 02651000 PFTDFRLS EQU PFTFLAG2 02652000 PFTOFINT EQU PFTFLAG1 02653000 PFTVRALC EQU PFTFLAG1 02654000 PFTBADPG EQU PFTFLAG1 02655000 PFTPCBSI EQU PFTFLAG1 02656000 PFTRSV1 EQU PFTE+10 02657000 PFTFXCT EQU PFTE+8 02658000 PFTBQPTR EQU PFTQPTRS+2 02659000 RSMASMHD EQU RSMHD+40 02660000 RSMFOEQ EQU RSMHD+36 02661000 RSMLIOQL EQU RSMLIOQ+4 02662000 RSMLIOQF EQU RSMLIOQ 02663000 RSMLSQAL EQU RSMLSQA+2 02664000 RSMLSQAF EQU RSMLSQA 02665000 RSMLFQL EQU RSMLFQ+2 02666000 RSMLFQF EQU RSMLFQ 02667000 RSMRSV2 EQU RSMHD+16 02668000 RSMRSV1 EQU RSMHD+13 02669000 @NM00002 EQU RSMFLG1 02670000 RSMFAIL EQU RSMFLG1 02671000 RSMGFADD EQU RSMFLG1 02672000 RSMCPNC EQU RSMFLG1 02673000 RSMCPNU EQU RSMFLG1 02674000 RSMGFAD EQU RSMFLG1 02675000 RSMIOCPC EQU RSMFLG1 02676000 RSMIOCPU EQU RSMFLG1 02677000 RSMSPCT EQU RSMHD+4 02678000 RSMVSTO EQU RSMHD 02679000 PVTEND EQU PVT+1944 02680000 PVTXXXXX EQU PVT+1940 02681000 PVTVCONS EQU PVT+1896 02682000 PVTPRSB EQU PVT+1892 02683000 PVTCIOQL EQU PVTPCBQS+36 02684000 PVTCIOQF EQU PVTPCBQS+32 02685000 PVTGFADL EQU PVTPCBQS+28 02686000 PVTGFADF EQU PVTPCBQS+24 02687000 PVTFPCBL EQU PVTPCBQS+20 02688000 PVTFPCBF EQU PVTPCBQS+16 02689000 PVTPCBQR EQU PVTPCBQS 02690000 PVTLPAFX EQU PVT+1850 02691000 PVTLSQAF EQU PVT+1848 02692000 PVTLPAR EQU PVT+1844 02693000 PVTLPAI EQU PVT+1840 02694000 PVTLPAFC EQU PVT+1838 02695000 PVTCHUIC EQU PVT+1836 02696000 PVTCOMFX EQU PVT+1834 02697000 PVTDEFFX EQU PVT+1828 02698000 PVTFIXOK EQU PVT+1826 02699000 PVTPEROK EQU PVT+1824 02700000 PVTPERFX EQU PVT+1820 02701000 PVTRSRB EQU PVT+1776 02702000 PVTRESV5 EQU PVT+1773 02703000 PVTSRBS EQU PVT+1772 02704000 PVTSSRB EQU PVT+1768 02705000 PVTACA EQU PVTWSAX+1400 02706000 PVTWSA18 EQU PVTWSAX+1256 02707000 PVTWSA17 EQU PVTWSAX+1184 02708000 PVTWSA16 EQU PVTWSAX+1112 02709000 PVTWSA15 EQU PVTWSAX+1040 02710000 PVTWSA14 EQU PVTWSAX+968 02711000 PVTWSA13 EQU PVTWSAX+896 02712000 PVTWSA12 EQU PVTWSAX+824 02713000 PVTWSA11 EQU PVTWSAX+752 02714000 PVTWSA10 EQU PVTWSAX+672 02715000 PVTWSA9 EQU PVTWSAX+592 02716000 PVTWSA8 EQU PVTWSAX+504 02717000 PVTWSA7 EQU PVTWSAX+432 02718000 PVTWSA6 EQU PVTWSAX+360 02719000 PVTWSA5 EQU PVTWSAX+288 02720000 PVTWSA4 EQU PVTWSAX+216 02721000 PVTWSA3 EQU PVTWSAX+144 02722000 PVTWSA2 EQU PVTWSAX+72 02723000 PVTPFTQR EQU PVTQS+20 02724000 PVTRSBQL EQU PVTQS+18 02725000 PVTRSBQF EQU PVTQS+16 02726000 PVTSQAQL EQU PVTQS+14 02727000 PVTSQAQF EQU PVTQS+12 02728000 PVTCFQL EQU PVTQS+10 02729000 PVTCFQF EQU PVTQS+8 02730000 PVTRSRVL EQU PVTQS+6 02731000 PVTAFQL EQU PVTQS+2 02732000 PVTSPFR EQU PVT+302 02733000 PVTCFMCT EQU PVT+300 02734000 PVTSPREC EQU PVT+296 02735000 PVTCAREC EQU PVT+292 02736000 PVTCAOUT EQU PVT+288 02737000 PVTCAIN EQU PVT+284 02738000 PVTNSWPS EQU PVT+280 02739000 PVTNPREC EQU PVT+276 02740000 PVTSPOUT EQU PVT+272 02741000 PVTSPIN EQU PVT+268 02742000 PVTVAMR EQU PVT+264 02743000 PVTVAMO EQU PVT+260 02744000 PVTVAMI EQU PVT+256 02745000 PVTNPOUT EQU PVT+252 02746000 PVTNPIN EQU PVT+248 02747000 PVTPRSET EQU PVT+244 02748000 PVTFRSLT EQU PVT+240 02749000 PVTPAGIO EQU PVT+236 02750000 PVTSWPIO EQU PVT+232 02751000 PVTPSWPP EQU PVT+228 02752000 PVTPOPBR EQU PVT+220 02753000 PVTPRELF EQU PVT+216 02754000 PVTPRELV EQU PVT+212 02755000 PVTPFREE EQU PVT+208 02756000 PVTPRELS EQU PVT+204 02757000 PVTPOUT EQU PVT+200 02758000 PVTPFXLD EQU PVT+196 02759000 PVTPITAS EQU PVT+192 02760000 PVTPSRBP EQU PVT+188 02761000 PVTPDSEG EQU PVT+184 02762000 PVTPCSGB EQU PVT+180 02763000 PVTPCSEG EQU PVT+176 02764000 PVTPSWPC EQU PVT+168 02765000 PVTPSOUT EQU PVT+164 02766000 PVTPSWIN EQU PVT+160 02767000 PVTPRCFI EQU PVT+152 02768000 PVTPRCF EQU PVT+148 02769000 PVTPVRC EQU PVT+144 02770000 PVTPVRLS EQU PVT+136 02771000 PVTPVEQR EQU PVT+132 02772000 PVTPPIOI EQU PVT+128 02773000 PVTPVRPO EQU PVT+124 02774000 PVTPRFR EQU PVT+120 02775000 PVTPFP EQU PVT+112 02776000 PVTPCB EQU PVT+104 02777000 PVTREP2 EQU PVT+100 02778000 PVTPIOCP EQU PVT+96 02779000 PVTPIOP EQU PVT+92 02780000 PVTPGFAD EQU PVT+88 02781000 PVTPGFA EQU PVT+84 02782000 PVTPSQA EQU PVT+80 02783000 PVTPSINT EQU PVT+76 02784000 PVTPSIB EQU PVT+72 02785000 PVTSRBID EQU PVT+68 02786000 PVTPCIWA EQU PVT+64 02787000 PVTHQSA EQU PVT+62 02788000 PVTLQSA EQU PVT+60 02789000 PVTOROOT EQU PVT+56 02790000 PVTREUS EQU PVT+48 02791000 PVTRSUS EQU PVT+44 02792000 PVTVROOT EQU PVT+40 02793000 PVTPCBLO EQU PVT+38 02794000 PVTPCBCT EQU PVT+36 02795000 PVTDFRS EQU PVT+34 02796000 PVTPTLB EQU PVT+31 02797000 PVTPCBNO EQU PVT+30 02798000 PVTSRBNO EQU PVT+29 02799000 PVTLPRIV EQU PVT+24 02800000 PVTLPFN EQU PVT+18 02801000 PVTFPFN EQU PVT+16 02802000 PVTSSPIN EQU PVT+11 02803000 PVTPCBS EQU PVT+10 02804000 PVTPOOL EQU PVT+8 02805000 PVTAFCOK EQU PVT+6 02806000 PVTAFCLO EQU PVT+4 02807000 PVTAFC EQU PVT+2 02808000 @NM00001 EQU PVTFLAG2 02809000 PVTRSMGM EQU PVTFLAG2 02810000 PVTDUMP EQU PVTFLAG1 02811000 PVTSIT EQU PVTFLAG1 02812000 PVTLSI EQU PVTFLAG1 02813000 PVTAPREF EQU PVTFLAG1 02814000 PVTPCBLT EQU PVTFLAG1 02815000 PVTSRBIU EQU PVTFLAG1 02816000 PVTBGMS EQU PVTFLAG1 02817000 PVTPMSG EQU PVTFLAG1 02818000 @NM00045 EQU PSA+3668 02819000 PSASTAK EQU PSA+3072 02820000 @NM00044 EQU PSA+1048 02821000 PSAUSEND EQU PSA+1048 02822000 PSARV062 EQU PSA+1044 02823000 PSACDAL EQU PSA+1040 02824000 PSAWTCOD EQU PSA+1036 02825000 PSAATCVT EQU PSA+1032 02826000 PSAPCPSW EQU PSA+1024 02827000 PSAPIR2 EQU PSA+1020 02828000 PSARV059 EQU PSA+1018 02829000 PSASVC13 EQU PSA+1016 02830000 PSALSFCC EQU PSA+1012 02831000 PSASFACC EQU PSA+1008 02832000 PSASTOP EQU PSA+992 02833000 PSASTART EQU PSA+976 02834000 PSARSPSW EQU PSA+968 02835000 PSASRPSW EQU PSA+960 02836000 PSARV045 EQU PSA+892 02837000 PSARV044 EQU PSA+888 02838000 PSARV043 EQU PSA+884 02839000 PSARV042 EQU PSA+880 02840000 PSARV041 EQU PSA+876 02841000 PSARV040 EQU PSA+872 02842000 PSARV025 EQU PSA+868 02843000 PSADSSED EQU PSA+868 02844000 PSADSSPR EQU PSA+864 02845000 PSADSSFW EQU PSA+860 02846000 PSADSS14 EQU PSA+856 02847000 PSADSSPP EQU PSA+848 02848000 PSADSSRP EQU PSA+840 02849000 PSADSS05 EQU PSADSSF4 02850000 PSADSS10 EQU PSADSSF4 02851000 PSADSSVE EQU PSADSSF4 02852000 PSADSSDE EQU PSADSSF4 02853000 PSADSSC0 EQU PSADSSF4 02854000 PSADSSIE EQU PSADSSF4 02855000 PSADSS12 EQU PSADSSF4 02856000 PSADSSRC EQU PSADSSF4 02857000 PSARV057 EQU PSADSSF3 02858000 PSARV056 EQU PSADSSF3 02859000 PSARV055 EQU PSADSSF3 02860000 PSADSSMC EQU PSADSSF3 02861000 PSADSSRW EQU PSADSSF3 02862000 PSADSSNM EQU PSADSSF3 02863000 PSADSSES EQU PSADSSF3 02864000 PSADSSGP EQU PSADSSF3 02865000 PSADSSF2 EQU PSADSSFL+1 02866000 PSADSSPI EQU PSADSSF1 02867000 PSADSSOI EQU PSADSSF1 02868000 PSADSSSP EQU PSADSSF1 02869000 PSADSSTP EQU PSADSSF1 02870000 PSADSSDW EQU PSADSSF1 02871000 PSADSSDD EQU PSADSSF1 02872000 PSADSSDM EQU PSADSSF1 02873000 PSADSSMV EQU PSADSSF1 02874000 PSADSSTS EQU PSA+816 02875000 PSADSSWK EQU PSA+812 02876000 PSADSSR3 EQU PSA+808 02877000 PSADSSR2 EQU PSA+804 02878000 PSADSSRS EQU PSA+800 02879000 PSASTOR EQU PSA+796 02880000 PSACPUSA EQU PSA+794 02881000 PSAVSTAP EQU PSA+792 02882000 PSAWKVAP EQU PSA+788 02883000 PSAWKRAP EQU PSA+784 02884000 PSAMCHIC EQU PSA+783 02885000 PSARV061 EQU PSA+782 02886000 PSASYMSK EQU PSA+781 02887000 PSAMCHFL EQU PSA+780 02888000 PSACR0 EQU PSA+776 02889000 PSAPSWSV EQU PSA+768 02890000 PSALITA EQU PSA+764 02891000 PSACLHS EQU PSAHLHI 02892000 PSALKR15 EQU PSALKSA+60 02893000 PSALKR14 EQU PSALKSA+56 02894000 PSALKR13 EQU PSALKSA+52 02895000 PSALKR12 EQU PSALKSA+48 02896000 PSALKR11 EQU PSALKSA+44 02897000 PSALKR10 EQU PSALKSA+40 02898000 PSALKR9 EQU PSALKSA+36 02899000 PSALKR8 EQU PSALKSA+32 02900000 PSALKR7 EQU PSALKSA+28 02901000 PSALKR6 EQU PSALKSA+24 02902000 PSALKR5 EQU PSALKSA+20 02903000 PSALKR4 EQU PSALKSA+16 02904000 PSALKR3 EQU PSALKSA+12 02905000 PSALKR2 EQU PSALKSA+8 02906000 PSALKR1 EQU PSALKSA+4 02907000 PSALKR0 EQU PSALKSA 02908000 PSARV023 EQU PSACLHT+52 02909000 PSALOCAL EQU PSACLHT+48 02910000 PSACMSL EQU PSACLHT+44 02911000 PSAOPTL EQU PSACLHT+40 02912000 PSATPACL EQU PSACLHT+36 02913000 PSATPDNL EQU PSACLHT+32 02914000 PSATPNCL EQU PSACLHT+28 02915000 PSAIOSLL EQU PSACLHT+24 02916000 PSAIOSUL EQU PSACLHT+20 02917000 PSAIOSCL EQU PSACLHT+16 02918000 PSAIOSSL EQU PSACLHT+12 02919000 PSASALCL EQU PSACLHT+8 02920000 PSAASML EQU PSACLHT+4 02921000 PSADISPL EQU PSACLHT 02922000 PSASRSA EQU PSA+636 02923000 PSARV050 EQU PSA+634 02924000 PSADSSGO EQU PSA+633 02925000 PSARECUR EQU PSA+632 02926000 PSAHLHIS EQU PSA+628 02927000 PSAIPCSA EQU PSA+624 02928000 @NM00043 EQU PSA+621 02929000 PSAIPCDM EQU PSA+620 02930000 PSAIPCD EQU PSA+616 02931000 @NM00042 EQU PSA+613 02932000 PSAIPCRM EQU PSA+612 02933000 PSAIPCR EQU PSA+608 02934000 PSAMCHEX EQU PSA+600 02935000 PSAMPSW EQU PSA+592 02936000 PSAEXPS2 EQU PSA+584 02937000 PSAEXPS1 EQU PSA+576 02938000 PSAPIREG EQU PSA+572 02939000 PSARSREG EQU PSA+568 02940000 PSAGPREG EQU PSA+556 02941000 PSARV022 EQU PSASUP4 02942000 PSARV021 EQU PSASUP4 02943000 PSARV020 EQU PSASUP4 02944000 PSARV019 EQU PSASUP4 02945000 PSARV018 EQU PSASUP4 02946000 PSARV017 EQU PSASUP4 02947000 PSARV016 EQU PSASUP4 02948000 PSARV015 EQU PSASUP4 02949000 PSARV014 EQU PSASUP3 02950000 PSAULCMS EQU PSASUP3 02951000 PSARV012 EQU PSASUP3 02952000 PSAESTA EQU PSASUP3 02953000 PSASPR EQU PSASUP3 02954000 PSAPSREG EQU PSASUP3 02955000 PSAPI2 EQU PSASUP3 02956000 PSAIOSUP EQU PSASUP3 02957000 PSALCR EQU PSASUP2 02958000 PSARTM EQU PSASUP2 02959000 PSAACR EQU PSASUP2 02960000 PSAIPCE2 EQU PSASUP2 02961000 PSAIPCES EQU PSASUP2 02962000 PSAIPCEC EQU PSASUP2 02963000 PSAGTF EQU PSASUP2 02964000 PSAIPCRI EQU PSASUP2 02965000 PSATYPE6 EQU PSASUP1 02966000 PSATCTL EQU PSASUP1 02967000 PSADISP EQU PSASUP1 02968000 PSALOCK EQU PSASUP1 02969000 PSAPI EQU PSASUP1 02970000 PSAEXT EQU PSASUP1 02971000 PSASVC EQU PSASUP1 02972000 PSAIO EQU PSASUP1 02973000 PSAANEW EQU PSA+544 02974000 PSATOLD EQU PSA+540 02975000 PSATNEW EQU PSA+536 02976000 PSALCCAR EQU PSA+532 02977000 PSAPCCAR EQU PSA+524 02978000 PSAPCCAV EQU PSA+520 02979000 PSACPULA EQU PSA+518 02980000 PSACPUPA EQU PSA+516 02981000 PSAPSA EQU PSA+512 02982000 FLCHDEND EQU PSA+512 02983000 FLCCRSAV EQU FLCMCLA+280 02984000 FLCGRSAV EQU FLCMCLA+216 02985000 FLCFPSAV EQU FLCMCLA+184 02986000 FLCFLA EQU FLCMCLA+88 02987000 FLCRGNCD EQU FLCMCLA+84 02988000 FLCFSAA EQU FLCFSA+1 02989000 @NM00041 EQU FLCFSA 02990000 @NM00040 EQU FLCMCLA+72 02991000 FLCMCIC EQU FLCMCLA+64 02992000 @NM00039 EQU FLCMCLA+20 02993000 FLCIOAA EQU FLCIOA+1 02994000 @NM00038 EQU FLCIOA 02995000 @NM00037 EQU FLCMCLA+15 02996000 @NM00036 EQU FLCMCLA+14 02997000 @NM00035 EQU FLCMCLA+12 02998000 FLCLCL EQU FLCMCLA+8 02999000 FLCIOELA EQU FLCIOEL+1 03000000 @NM00034 EQU FLCIOEL 03001000 FLCCHNID EQU FLCMCLA 03002000 @NM00033 EQU PSA+160 03003000 FLCMTRCD EQU PSA+157 03004000 @NM00032 EQU PSA+156 03005000 FLCPERA EQU FLCPER+1 03006000 @NM00031 EQU FLCPER 03007000 @NM00030 EQU PSA+151 03008000 FLCPERCD EQU PSA+150 03009000 FLCMCNUM EQU PSA+149 03010000 @NM00029 EQU PSA+148 03011000 FLCTEAA EQU FLCTEA+1 03012000 @NM00028 EQU FLCTEA 03013000 PSAPIPC EQU PSAPICOD 03014000 PSAPIMC EQU PSAPICOD 03015000 PSAPIPER EQU PSAPICOD 03016000 PSARV049 EQU FLCPICOD 03017000 FLCPILCB EQU FLCPIILC 03018000 @NM00027 EQU FLCPIILC 03019000 @NM00026 EQU PSAEPPSW 03020000 FLCSVCN EQU PSAESPSW+2 03021000 FLCSILCB EQU FLCSVILC 03022000 @NM00025 EQU FLCSVILC 03023000 @NM00024 EQU PSAESPSW 03024000 FLCEICOD EQU PSAEEPSW+2 03025000 PSASPAD EQU PSAEEPSW 03026000 @NM00023 EQU PSA+128 03027000 FLCINPSW EQU PSA+120 03028000 FLCMNPSW EQU PSA+112 03029000 FLCPNPSW EQU PSA+104 03030000 FLCSNPSW EQU PSA+96 03031000 FLCENPSW EQU PSA+88 03032000 FLCTRACE EQU PSA+84 03033000 FLCTIMER EQU PSA+80 03034000 FLCCVT2 EQU PSA+76 03035000 FLCCAW EQU PSA+72 03036000 FLCCSW EQU PSA+64 03037000 FLCIOPSW EQU PSA+56 03038000 FLCMOPSW EQU PSA+48 03039000 FLCPOPSW EQU PSA+40 03040000 FLCSOPSW EQU PSA+32 03041000 FLCEOPSW EQU PSA+24 03042000 @NM00022 EQU FLCICCW2+4 03043000 FLCCVT EQU FLCICCW2 03044000 FLCICCW1 EQU FLCROPSW 03045000 FLCIPPSW EQU FLCRNPSW 03046000 * END UNREFERENCED COMPONENTS 03047000 @RT00083 EQU ASSIGN 03048000 @RT00085 EQU ASSIGN 03049000 @RT00098 EQU ASSIGN 03050000 @RF00160 EQU @RC00152 03051000 @RF00192 EQU @RC00100 03052000 @RC00218 EQU @RC00215 03053000 @RF00222 EQU @RC00215 03054000 @ENDDATA EQU * 03055000 END IEAVSQA,(C'PLS0845',0701,78167) 03056000