TITLE 'IEAVAMSI -- VIO SERVICES INTERFACE (ASSIGN/MOVE-OUT) *00001000 ' 00002000 IEAVAMSI CSECT 00003000 USING *,15 00004000 MODID 00005000 L R15,PSAAOLD(,R0) ADDRESS OF ASCB 00006000 L R15,ASCBASXB(,R15) ADDRESS OF ASXB 00007000 L R15,ASXBSPSA(,R15) ADDRESS OF WSAVT 00008000 L R15,WSALRSM(,R15) ADDRESS OF SAVE AREA 00009000 STM R0,R14,0(R15) STORE CALLERS REGS 00010000 BALR R9,R0 ESTABLISH ADDRESSABILITY 00011000 USING *,R9 00012000 * PVTPTR=CVTPVTP; /* LOAD THE PVT ADDRESS */ 00013000 L @14,CVTPTR 0112 00014000 L PVTPTR,CVTPVTP(,@14) 0112 00015000 * R4=R15; /* HOLD SAVEAREA POINTER ACROSS 00016000 * MACROS */ 00017000 * 0113 00018000 LR R4,R15 0113 00019000 * /*****************************************************************/ 00020000 * /* */ 00021000 * /* LOAD FRR STACK */ 00022000 * /* */ 00023000 * /*****************************************************************/ 00024000 * 0114 00025000 * FADDR=PVTPRCV; /* LOAD THE RECOVERY ADDRESS */ 00026000 L FADDR,PVTPRCV(,PVTPTR) 0114 00027000 * GENERATE REFS(FADDR) SETS(FADDR,WRK1R,WRK2R); 0115 00028000 SETSTK SETFRR A,FRRAD=(FADDR),PARMAD=(FADDR),WRKREGS=(WRK1R,WRK2R), **00029000 RELATED=(RSM,IEAVAMSI(RELSTK)) 00030000 * FADDR->RCAVAMSI='1'B; /* SET ENTRY POINT FLAG */ 00031000 OI RCAVAMSI(FADDR),B'10000000' 0116 00032000 * FADDR->RCACSECT=RCACVAM; /* SET MODULE ID */ 00033000 * 0117 00034000 MVI RCACSECT(FADDR),X'18' 0117 00035000 * /*****************************************************************/ 00036000 * /* */ 00037000 * /* OBTAIN SALLOC */ 00038000 * /* */ 00039000 * /*****************************************************************/ 00040000 * 0118 00041000 * GENERATE SETS(R11,R12,LOCKRCR,R14); 0118 00042000 SETSLK SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00043000 RELATED=(RSM,IEAVAMSI(RELSLK)) 00044000 * FADDR->RCASAL='1'B; /* SET THE LOCK HELD FLAG */ 00045000 OI RCASAL(FADDR),B'10000000' 0119 00046000 * PVTPRCA=FADDR; /* STORE THE RSMRCA POINTER */ 00047000 ST FADDR,PVTPRCA(,PVTPTR) 0120 00048000 * RSTADDWD=R4; /* SET UP AS SAVE AREA POINTER */ 00049000 ST R4,RSTADDWD(,PVTPTR) 0121 00050000 * RFY 0122 00051000 * REGSAVER BASED(RSTADDWD); 0122 00052000 * REG15WD=0; /* INITIALIZE REG15 SAVE AREA */ 00053000 SLR @14,@14 0123 00054000 L @11,RSTADDWD(,PVTPTR) 0123 00055000 ST @14,REG15WD(,@11) 0123 00056000 * VAMAIAQ=0; /* INITIALIZE AIA QUEUE HEADER */ 00057000 ST @14,VAMAIAQ(,PVTPTR) 0124 00058000 * VCBPTR=INVCBR; /* LOAD THE VCB POINTER */ 00059000 LR VCBPTR,INVCBR 0125 00060000 * RSMHDPTR=ASCBRSM; /* LOAD THE RSM HEADER PTR FOR 0126 00061000 * PROCESSING */ 00062000 L @14,ASCBPTR 0126 00063000 L RSMHDPTR,ASCBRSM(,@14) 0126 00064000 * RFY 0127 00065000 * (FADDR, 0127 00066000 * WRK1R, 0127 00067000 * WRK2R, 0127 00068000 * INVCBR) UNRSTD; 0127 00069000 * 0128 00070000 * /*****************************************************************/ 00071000 * /* */ 00072000 * /* LOOPVCB -- THIS IS THE VIO PROCESSOR LOOP AND SUB-ROUTINE */ 00073000 * /* CONTROL CODE. THE LOOP WILL BE BROKEN AS SOON AS THE LAST VCB */ 00074000 * /* HAS BEEN PROCESSED, OR AN ERROR IS ENCOUNTERED. TESTS ARE MADE*/ 00075000 * /* TO INSURE THAT THE ENTIRE VCB IS IN REAL STORAGE. THE ASSIGN */ 00076000 * /* OR MOVEOUT ROUTINES ARE CALLED AS APPLICABLE, AND IF NEITHER */ 00077000 * /* ASSIGN NOR MOVEOUT WAS REQUESTED, AN ERROR IS DETECTED. ALSO, */ 00078000 * /* IF EITHER OF THE SUB-ROUTINES RETURNS A CODE OF NON-ZERO, AN */ 00079000 * /* ERROR IS SIGNALED. A CALL IS MADE TO THE I/O REQUEST (IOREQ) */ 00080000 * /* SUB-ROUTINE PRIOR TO PROCESSING A VCB WITH THE ASSIGN FLAG SET*/ 00081000 * /* IF THERE ARE AIA'S QUEUED FOR PAGE-OUTS, AND AFTER ALL VCB'S */ 00082000 * /* ARE PROCESSED IF THERE ARE AIA'S QUEUED FOR PAGE-OUTS. */ 00083000 * /* */ 00084000 * /*****************************************************************/ 00085000 * 0128 00086000 *LOOPVCB: 0128 00087000 * DO WHILE VCBPTR^=0; /* LOOP HERE TO PROCESS ALL VCBS */ 00088000 * 0128 00089000 LOOPVCB B @DE00128 0128 00090000 @DL00128 DS 0H 0129 00091000 * /***************************************************************/ 00092000 * /* */ 00093000 * /* INSURE THAT VCB IS IN STORAGE */ 00094000 * /* */ 00095000 * /***************************************************************/ 00096000 * 0129 00097000 * RFY 0129 00098000 * (TESTPTR) RSTD; 0129 00099000 * GENERATE REFS(VCBPTR) SETS(TESTPTR); 0130 00100000 LRA TESTPTR,0(VCBPTR) CHECK VALIDITY OF VCB 00101000 * BC(7,ERRSET); /* TRANSLATION NOT AVAILABLE, OR 00102000 * INVALID */ 00103000 BC 7,ERRSET 0131 00104000 * GENERATE REFS(VCBPTR) SETS(TESTPTR); 0132 00105000 LRA TESTPTR,VCBDSPID+3-VCB(VCBPTR) CHECK LAST BYTE OF VCB 00106000 * BC(8,NOERR); /* TRANSLATION OK */ 00107000 BC 8,NOERR 0133 00108000 * RFY 0134 00109000 * (TESTPTR) UNRSTD; 0134 00110000 *ERRSET: 0135 00111000 * REG15WD=8; /* VCB IS NOT VALID IN STORAGE */ 00112000 ERRSET L @14,RSTADDWD(,PVTPTR) 0135 00113000 MVC REG15WD(4,@14),@CF00059 0135 00114000 * REG2WD=VCBPTR; /* LOAD PARM FOR RETURN */ 00115000 ST VCBPTR,REG2WD(,@14) 0136 00116000 * GOTO ASMCK; /* TO SEE IF ANY AIA'S ARE QUEUED*/ 00117000 B ASMCK 0137 00118000 * 0138 00119000 * /***************************************************************/ 00120000 * /* */ 00121000 * /* CHECK FOR ASSIGN FLAG IN VCB */ 00122000 * /* */ 00123000 * /***************************************************************/ 00124000 * 0138 00125000 *NOERR: 0138 00126000 * CURVSNR=CURVSN; /* LOAD CURRENT VSN INTO A REG */ 00127000 NOERR SLR CURVSNR,CURVSNR 0138 00128000 ICM CURVSNR,3,CURVSN(VCBPTR) 0138 00129000 * IF VCBASIGN='1'B THEN /* IF THIS IS AN ASSIGN REQUEST */ 00130000 TM VCBASIGN(VCBPTR),B'00100000' 0139 00131000 BNO @RF00139 0139 00132000 * DO; 0140 00133000 * IF VAMAIAQ^=0 THEN /* IF THERE ARE AIA'S TO PROCESS */ 00134000 * 0141 00135000 L @14,VAMAIAQ(,PVTPTR) 0141 00136000 LTR @14,@14 0141 00137000 BZ @RF00141 0141 00138000 * /*********************************************************/ 00139000 * /* */ 00140000 * /* CALL FOR PAGEOUT OF VCB GROUP */ 00141000 * /* */ 00142000 * /*********************************************************/ 00143000 * 0142 00144000 * DO; 0142 00145000 * CALL IOREQ; /* CALL I/O SUB-PROC */ 00146000 BAL @14,IOREQ 0143 00147000 * IF REG15WD^=0 THEN /* IF ANY I/O FAILED */ 00148000 L @14,RSTADDWD(,PVTPTR) 0144 00149000 L @14,REG15WD(,@14) 0144 00150000 LTR @14,@14 0144 00151000 BNZ @RT00144 0144 00152000 * GOTO EXIT; /* CAN'T CONTINUE */ 00153000 * END; 0146 00154000 * CALL ASSIGN; /* CALL ASSIGN SUB-PROC */ 00155000 @RF00141 BAL @14,ASSIGN 0147 00156000 * END; 0148 00157000 * ELSE /* IF ASSIGN FLAG NOT SET */ 00158000 * 0149 00159000 * /*************************************************************/ 00160000 * /* */ 00161000 * /* CHECK FOR MOVEOUT FLAG IN VCB */ 00162000 * /* */ 00163000 * /*************************************************************/ 00164000 * 0149 00165000 * IF VCBMVOUT='1'B THEN /* IF THIS IS A MOVE REQUEST */ 00166000 B @RC00139 0149 00167000 @RF00139 TM VCBMVOUT(VCBPTR),B'10000000' 0149 00168000 BNO @RF00149 0149 00169000 * CALL MOVEOUT; /* CALL MOVEOUT SUB-PROC */ 00170000 BAL @14,MOVEOUT 0150 00171000 * ELSE /* IF NEITHER ASSIGN NOR MOVEOUT 00172000 * FLAGS SET */ 00173000 * 0151 00174000 * /***********************************************************/ 00175000 * /* */ 00176000 * /* ERROR -- NO VALID REQUEST IN VCB */ 00177000 * /* */ 00178000 * /***********************************************************/ 00179000 * 0151 00180000 * DO; 0151 00181000 B @RC00149 0151 00182000 @RF00149 DS 0H 0152 00183000 * REG15WD=12; /* NO VALID REQUEST IN VCB */ 00184000 L @14,RSTADDWD(,PVTPTR) 0152 00185000 MVC REG15WD(4,@14),@CF02086 0152 00186000 * REG2WD=VCBPTR; /* LOAD PARM FOR RETURN */ 00187000 ST VCBPTR,REG2WD(,@14) 0153 00188000 * GOTO ASMCK; /* CAN'T CONTINUE */ 00189000 B ASMCK 0154 00190000 * END; 0155 00191000 * 0156 00192000 * /***************************************************************/ 00193000 * /* */ 00194000 * /* CHECK RETURN CODE FROM ASSIGN, MOVEOUT, AND OUTOFSTG */ 00195000 * /* SUB-ROUTINES */ 00196000 * /* */ 00197000 * /***************************************************************/ 00198000 * 0156 00199000 * IF RETCODR^=0 THEN /* IF THE RETURN CODE IS BAD */ 00200000 @RC00149 DS 0H 0156 00201000 @RC00139 LTR RETCODR,RETCODR 0156 00202000 BZ @RF00156 0156 00203000 * DO; 0157 00204000 * REG15WD=RETCODR; /* LOAD RETURN CODE AS SET BY 0158 00205000 * SUB-PROC */ 00206000 L @14,RSTADDWD(,PVTPTR) 0158 00207000 ST RETCODR,REG15WD(,@14) 0158 00208000 * REG2WD=VCBPTR; /* LOAD THE ERROR PARAMETER */ 00209000 * 0159 00210000 ST VCBPTR,REG2WD(,@14) 0159 00211000 * /***********************************************************/ 00212000 * /* */ 00213000 * /* CHECK FOR ABEND SITUATION */ 00214000 * /* */ 00215000 * /***********************************************************/ 00216000 * 0160 00217000 * IF RETCODR=16 THEN /* IF THIS IS AN ABEND SITUATION */ 00218000 C RETCODR,@CF00713 0160 00219000 BNE @RF00160 0160 00220000 * DO; 0161 00221000 * RFY 0162 00222000 * (R0, 0162 00223000 * R1, 0162 00224000 * PCBPTR, 0162 00225000 * PFTEPTR) RSTD; 0162 00226000 * 0162 00227000 * /*******************************************************/ 00228000 * /* */ 00229000 * /* THE IOREQ SUBROUTINE WILL RETURN TO THIS POINT IF IT*/ 00230000 * /* CANNOT LOCATE THE PROPER VCB FOR BACKOUT AFTER AN */ 00231000 * /* ASM ERROR. */ 00232000 * /* */ 00233000 * /*******************************************************/ 00234000 * 0163 00235000 *RC16ADJ: 0163 00236000 * DO WHILE VAMAIAQ^=0; /* PROCESS EACH AIA ON QUEUE */ 00237000 RC16ADJ B @DE00163 0163 00238000 @DL00163 DS 0H 0164 00239000 * PCBPTR=VAMAIAQ-LENGTH(PCB)+LENGTH(PCBAIA);/* LOAD THE 00240000 * PCB POINTER WITH ADJUSTED 0164 00241000 * VALUE */ 00242000 L PCBPTR,@CF02275 0164 00243000 AL PCBPTR,VAMAIAQ(,PVTPTR) 0164 00244000 * PVTVAMO=PVTVAMO-1; /* DECREMENT THE VIO OUT COUNT */ 00245000 L @14,PVTVAMO(,PVTPTR) 0165 00246000 BCTR @14,0 0165 00247000 ST @14,PVTVAMO(,PVTPTR) 0165 00248000 * OUXBVAMO=OUXBVAMO-1;/* DECREMENT THE LOCAL COUNT */ 00249000 L @14,ASCBPTR 0166 00250000 L @14,OUXBPTR(,@14) 0166 00251000 L @12,OUXBVAMO(,@14) 0166 00252000 BCTR @12,0 0166 00253000 ST @12,OUXBVAMO(,@14) 0166 00254000 * PFTEPTR=PVTPFTP+PCBRBN;/* LOAD THE PFTE POINTER */ 00255000 LH PFTEPTR,PCBRBN(,PCBPTR) 0167 00256000 N PFTEPTR,@CF02294 0167 00257000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0167 00258000 * PFTPCBSI='0'B; /* RESET THE PCB DEFINED FLAG */ 00259000 NI PFTPCBSI(PFTEPTR),B'11110111' 0168 00260000 * VAMAIAQ=AIANXAIA; /* GET NEXT AIA ON CHAIN */ 00261000 L @14,AIANXAIA(,PCBPTR) 0169 00262000 ST @14,VAMAIAQ(,PVTPTR) 0169 00263000 * R0=PCBFREQN; /* SEND PCB TO FREE QUEUE */ 00264000 LA R0,16 0170 00265000 * R1=PCBPTR; /* PARM FOR PCB MANAGER */ 00266000 LR R1,PCBPTR 0171 00267000 * CALL IEAVPCB; /* CALL PCB MANAGER TO MOVE PCB */ 00268000 L @15,PVTPCB(,PVTPTR) 0172 00269000 BALR @14,@15 0172 00270000 * END; 0173 00271000 @DE00163 L @14,VAMAIAQ(,PVTPTR) 0173 00272000 LTR @14,@14 0173 00273000 BNZ @DL00163 0173 00274000 * GOTO EXIT; /* CAN'T CONTINUE, WILL ABEND */ 00275000 B EXIT 0174 00276000 * RFY 0175 00277000 * (R0, 0175 00278000 * R1, 0175 00279000 * PCBPTR, 0175 00280000 * PFTEPTR) UNRSTD; 0175 00281000 * END; 0176 00282000 * GOTO ASMCK; /* CAN'T CONTINUE, WILL RETURN */ 00283000 B ASMCK 0177 00284000 * END; 0178 00285000 * LASTVCB=VCBPTR; /* SAVE POINTER IN CASE IOREQ 0179 00286000 * DETECTS AN ERROR */ 00287000 @RF00156 ST VCBPTR,LASTVCB(,PVTPTR) 0179 00288000 * VCBPTR=VCBLINK; /* PICK UP NEXT VCB ADDRESS */ 00289000 L VCBPTR,VCBLINK(,VCBPTR) 0180 00290000 * END; /* LOOP TO PROCESS NEXT VCB */ 00291000 @DE00128 LTR VCBPTR,VCBPTR 0181 00292000 BNZ @DL00128 0181 00293000 * 0182 00294000 * /*****************************************************************/ 00295000 * /* */ 00296000 * /* CALL FOR PAGEOUT AFTER ALL VCB'S HAVE PROCESSED, OR IF AN */ 00297000 * /* ERROR WAS ENCOUNTERED */ 00298000 * /* */ 00299000 * /*****************************************************************/ 00300000 * 0182 00301000 *ASMCK: 0182 00302000 * IF VAMAIAQ^=0 THEN /* IF THERE ANY AIA'S TO PROCESS */ 00303000 ASMCK L @14,VAMAIAQ(,PVTPTR) 0182 00304000 LTR @14,@14 0182 00305000 BZ @RF00182 0182 00306000 * CALL IOREQ; /* CALL THE I/O SUB-PROC */ 00307000 BAL @14,IOREQ 0183 00308000 * 0184 00309000 * /*****************************************************************/ 00310000 * /* */ 00311000 * /* EXIT -- THIS IS THE EXIT CODE FOR IEAVAMSI. BOTH NORMAL AND */ 00312000 * /* ERROR EXIT ARE THROUGH THIS CODE. THE RETURN CODE IS SET PRIOR*/ 00313000 * /* TO GETTING TO THIS POINT. HERE, THE GLOBAL LOCK IS RELEASED, */ 00314000 * /* THE FRR STACK IS UNLOADED, AND THE ENTRY POINT FLAG IS RESET. */ 00315000 * /* IF MOVEOUT PASSED BACK A RETURN CODE OF 16, AN ABEND OCCURS */ 00316000 * /* PRIOR TO REGISTER RESTORATION; OTHERWISE REGISTER 15 CONTAINS */ 00317000 * /* THE RETURN CODE, AND FOR RETURN CODE ZERO ALL OTHER REGS ARE */ 00318000 * /* RESTORED. FOR NON-ZERO RETURN CODES, REG 2 WILL CONTAIN THE */ 00319000 * /* ADDRESS OF THE LAST VCB PROCESSED. */ 00320000 * /* */ 00321000 * /*****************************************************************/ 00322000 * 0184 00323000 * RFY 0184 00324000 * (RESTPTR, 0184 00325000 * LOCKRCR, 0184 00326000 * WRK1R, 0184 00327000 * WRK2R) RSTD; 0184 00328000 @RF00182 DS 0H 0185 00329000 *EXIT: /* IF NO ERRORS WERE ENCOUNTERED, 00330000 * THE SUB-ROUTINES HAVE SET THE 00331000 * R.C. TO 0 */ 00332000 * RESTPTR=RSTADDWD; /* LOAD ADDRESS OF SAVE AREA */ 00333000 * 0185 00334000 EXIT L RESTPTR,RSTADDWD(,PVTPTR) 0185 00335000 * /*****************************************************************/ 00336000 * /* */ 00337000 * /* RELEASE SALLOC */ 00338000 * /* */ 00339000 * /*****************************************************************/ 00340000 * 0186 00341000 * GENERATE SETS(R11,R12,LOCKRCR,R14); 0186 00342000 RELSLK SETLOCK RELEASE,TYPE=SALLOC,RELATED=(RSM,IEAVAMSI(SETSLK)) 00343000 * IF LOCKRCR^=0 THEN /* IF SETLOCK FAILED TO RELEASE */ 00344000 LTR LOCKRCR,LOCKRCR 0187 00345000 BZ @RF00187 0187 00346000 * DO; 0188 00347000 * RCARCRD='06'X; /* SET RECOVERY CODE */ 00348000 L @14,RCAPTR(,PVTPTR) 0189 00349000 MVI RCARCRD(@14),X'06' 0189 00350000 * GENERATE SETS(R1); 0190 00351000 ABEND X'C0D',,,SYSTEM RECORD THE ERROR 00352000 * END; 0191 00353000 * RFY 0192 00354000 * (LOCKRCR) UNRSTD; 0192 00355000 * 0192 00356000 @RF00187 DS 0H 0193 00357000 * /*****************************************************************/ 00358000 * /* */ 00359000 * /* UNLOAD FRR STACK */ 00360000 * /* */ 00361000 * /*****************************************************************/ 00362000 * 0193 00363000 * GENERATE SETS(WRK1R,WRK2R); 0193 00364000 RELSTK SETFRR D,WRKREGS=(WRK1R,WRK2R) RELEASE THE FRR 00365000 * 0194 00366000 * /*****************************************************************/ 00367000 * /* */ 00368000 * /* CHECK FOR ABEND SITUATION */ 00369000 * /* */ 00370000 * /*****************************************************************/ 00371000 * 0194 00372000 *VAMEXIT: 0194 00373000 * IF RESTPTR->REG15WD=16 THEN /* IF AN ABEND CONDITION @YA00053*/ 00374000 VAMEXIT CLC REG15WD(4,RESTPTR),@CF00713 0194 00375000 BNE @RF00194 0194 00376000 * DO; 0195 00377000 * GENERATE SETS(R1); 0196 00378000 ABEND X'028',DUMP,,SYSTEM ABEND FORM OF EXIT FROM THIS POINT 00379000 * END; 0197 00380000 * GENERATE; 0198 00381000 @RF00194 DS 0H 0198 00382000 LM R0,R15,0(RESTPTR) RESTORE REGISTERS 00383000 * RFY 0199 00384000 * (RESTPTR, 0199 00385000 * WRK1R, 0199 00386000 * WRK2R) UNRSTD; 0199 00387000 * GENERATE NOFLOWS NOSEQFLOW EXIT; 0200 00388000 BR R14 NO ABEND, RETURNING TO CALLER 00389000 * 0201 00390000 * /*****************************************************************/ 00391000 * /* */ 00392000 * /* ASSIGN -- THIS IS THE ASSIGN SUB-ROUTINE OF VAMSI. FINDPAGE IS*/ 00393000 * /* CALLED TO GET THE PTEPTR AND XPTEPTR. IF AN ERROR IS SIGNALED */ 00394000 * /* BY FINDPAGE, AN ERROR CODE IS RETURNED. TESTS ARE THEN MADE */ 00395000 * /* FOR GETMAIN ASSIGNMENT, EXISTANCE OF A RSN, THE DEFER FLAG */ 00396000 * /* BEING ON, AND AUXILIARY STORAGE ASSIGNMENT. IF ANY PROBLEMS */ 00397000 * /* ARE ENCOUNTERED, AN ERROR CODE IS RETURNED. ALL ERRORS CAUSE A*/ 00398000 * /* RETURN CODE OF 4 TO BE SET. IF A NULL ASSIGN REQUEST WAS MADE,*/ 00399000 * /* THE VIO WINDOW FLAG AND SAVE AUX FLAG ARE SET AND ASSIGN */ 00400000 * /* PROCESSING IS COMPLETE AT THIS POINT; OTHERWISE, IF NO REAL */ 00401000 * /* STORAGE IS ASSIGNED, OR IF THE PAGE I D IS NOT EQUAL TO THE */ 00402000 * /* VIO RECLAIM I D, CONTROL TRANSFERS TO THE REGULAR ASSIGN */ 00403000 * /* (REGASIGN) ROUTINE FOR PAGE ASSIGNMENT. THE VCB ADDRESS AND */ 00404000 * /* CURRENT VSN ARE PASSED TO THIS ROUTINE BY THE CALLER IN THE */ 00405000 * /* VCBPTR AND CURVSNR REGISTERS. */ 00406000 * /* */ 00407000 * /*****************************************************************/ 00408000 * 0201 00409000 *ASSIGN: 0201 00410000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0201 00411000 ASSIGN DS 0H 0202 00412000 * RFY 0202 00413000 * (R0, 0202 00414000 * R1, 0202 00415000 * TESTPTR, 0202 00416000 * XPTEPTR, 0202 00417000 * PTEPTR, 0202 00418000 * R14) RSTD; 0202 00419000 * SUBRETWD=R14; /* SAVE THE RETURN ADDRESS */ 00420000 * 0203 00421000 ST R14,SUBRETWD(,PVTPTR) 0203 00422000 * /*****************************************************************/ 00423000 * /* */ 00424000 * /* GET PGTE AND XPTE ADDRESSES */ 00425000 * /* */ 00426000 * /*****************************************************************/ 00427000 * 0204 00428000 *FPAGE: 0204 00429000 * R1=VCBVSA; /* LOAD THE PARAMETER FOR 0204 00430000 * FINDPAGE */ 00431000 FPAGE L R1,VCBVSA(,VCBPTR) 0204 00432000 * CALL IEAVFP2; /* CALL FINDPAGE TO GET PTEPTR 0205 00433000 * AND XPTEPTR */ 00434000 L @15,PVTPFP2(,PVTPTR) 0205 00435000 BALR @14,@15 0205 00436000 * IF RETCODR^=0 THEN /* IF FINDPAGE FAILED */ 00437000 LTR RETCODR,RETCODR 0206 00438000 BZ @RF00206 0206 00439000 * DO; 0207 00440000 * IF RETCODR=8 THEN /* IF AN INTERNAL RSM ERROR */ 00441000 C RETCODR,@CF00059 0208 00442000 BNE @RF00208 0208 00443000 * DO; 0209 00444000 * RCARCRD='01'X; /* SET RECOVERY CODE */ 00445000 L @08,RCAPTR(,PVTPTR) 0210 00446000 MVI RCARCRD(@08),X'01' 0210 00447000 * GENERATE SETS(R1); 0211 00448000 ABEND X'C0D',,,SYSTEM RECORD THE ERROR 00449000 * END; 0212 00450000 * VCBINVSA='1'B; /* MARK THE VCB INVALID */ 00451000 @RF00208 OI VCBINVSA(VCBPTR),B'01000000' 0213 00452000 * RETCODR=4; /* SET THE RETURN CODE */ 00453000 LA RETCODR,4 0214 00454000 * GOTO ERRRTN; /* HANDLE THE ERROR */ 00455000 B ERRRTN 0215 00456000 * END; 0216 00457000 * PTEPTR=R0; /* LOAD PAGE TABLE POINTER 0217 00458000 * RETURNED BY FINDPAGE */ 00459000 @RF00206 LR PTEPTR,R0 0217 00460000 * XPTEPTR=R1; /* LOAD THE EXTERNAL PAGE TABLE 00461000 * POINTER RETURNED BY FINDPAGE */ 00462000 LR XPTEPTR,R1 0218 00463000 * RFY 0219 00464000 * (R0, 0219 00465000 * R1) UNRSTD; 0219 00466000 * 0219 00467000 * /*****************************************************************/ 00468000 * /* */ 00469000 * /* INSURE THAT PAGE IS GETMAIN ASSIGNED AND EMPTY */ 00470000 * /* */ 00471000 * /*****************************************************************/ 00472000 * 0220 00473000 * IF PGTRSA^=CLRPG THEN /* IF PAGE TABLE ENTRY IS NOT 0220 00474000 * CLEAR */ 00475000 CLC PGTRSA(2,PTEPTR),@CB02048 0220 00476000 BE @RF00220 0220 00477000 * DO; 0221 00478000 * IF PGTPAM='0'B THEN /* IF THE PAGE IS NOT GETMAIN 0222 00479000 * ASSIGNED */ 00480000 TM PGTPAM(PTEPTR),B'00000001' 0222 00481000 BNZ @RF00222 0222 00482000 * VCBINVSA='1'B; /* NOT ASSIGNED, MARK VCB INVALID*/ 00483000 OI VCBINVSA(VCBPTR),B'01000000' 0223 00484000 * ELSE /* IF THE PAGE IS GETMAIN 0224 00485000 * ASSIGNED */ 00486000 * VCBNOVAC='1'B; /* PAGE VALID, MARK VCB NOT 0224 00487000 * VACANT */ 00488000 B @RC00222 0224 00489000 @RF00222 OI VCBNOVAC(VCBPTR),B'10000000' 0224 00490000 * RETCODR=4; /* SET THE RETURN CODE */ 00491000 @RC00222 LA RETCODR,4 0225 00492000 * GOTO ERRRTN; /* HANDLE THE ERROR */ 00493000 B ERRRTN 0226 00494000 * END; 0227 00495000 * 0227 00496000 * /*****************************************************************/ 00497000 * /* */ 00498000 * /* CHECK FOR DEFER, OR AUX ASSIGNMENT FLAGS */ 00499000 * /* */ 00500000 * /*****************************************************************/ 00501000 * 0228 00502000 * IF XPTDEFER='1'B|XPTXAV='1'B THEN/* IF THE DEFER FLAGE IS ON, OR 00503000 * IF AUX STOR IS ASSIGNED 0228 00504000 * @Z40WPYC*/ 00505000 @RF00220 TM XPTDEFER(XPTEPTR),B'01000010' 0228 00506000 BZ @RF00228 0228 00507000 * DO; 0229 00508000 * VCBNOVAC='1'B; /* SET THE NOT VACANT FLAG */ 00509000 OI VCBNOVAC(VCBPTR),B'10000000' 0230 00510000 * RETCODR=4; /* SET THE FAILURE RETURN CODE */ 00511000 LA RETCODR,4 0231 00512000 * GOTO ERRRTN; /* RETURN TO CALLER */ 00513000 B ERRRTN 0232 00514000 * END; 0233 00515000 * 0234 00516000 * /*****************************************************************/ 00517000 * /* */ 00518000 * /* THE ACTUAL CODE FOR ASSIGNMENT STARTS HERE. PRIOR TO THIS */ 00519000 * /* POINT THE VSA WAS CHECKED FOR VALIDITY, ABILITY TO BE ASSIGNED*/ 00520000 * /* ETC. CHECKS ARE MADE FOR NULL ASSIGNMENT AND POSSIBLE RECLAIM.*/ 00521000 * /* */ 00522000 * /*****************************************************************/ 00523000 * 0234 00524000 * IF MYVCBLGN=0&MYVCBLPN=0 THEN /* IF NO LPID WAS PASSED - A NULL 00525000 * ASSIGN WAS REQUESTED */ 00526000 @RF00228 SLR @08,@08 0234 00527000 CL @08,MYVCBLGN(,VCBPTR) 0234 00528000 BNE @RF00234 0234 00529000 CL @08,MYVCBLPN(,VCBPTR) 0234 00530000 BNE @RF00234 0234 00531000 * DO; 0235 00532000 * IF CURVSNRPCBRLPA=0; /* CLEAR THE RELATED FIELD */ 02350000 SLR @14,@14 0706 02351000 STCM @14,7,PCBRLPA(R1) 0706 02352000 * CALL IEAVPCB; /* CALL MANAGER TO MOVE PCB */ 02353000 L @15,PVTPCB(,PVTPTR) 0707 02354000 BALR @14,@15 0707 02355000 * RFY 0708 02356000 * (R0, 0708 02357000 * R1) UNRSTD; 0708 02358000 * IF PCBPTR^=0 THEN /* IF THERE IS A RELATED */ 02359000 SLR @14,@14 0709 02360000 CR PCBPTR,@14 0709 02361000 BE @RF00709 0709 02362000 * DO; 0710 02363000 * PCBFQPA=0; /* MAKE THE RELATED PCB A REGULAR 02364000 * PCB */ 02365000 STCM @14,7,PCBFQPA(PCBPTR) 0711 02366000 * PCBBQP=0; /* CLEAR THE BACK POINTER */ 02367000 ST @14,PCBBQP(,PCBPTR) 0712 02368000 * GOTO RELTEST; /* LOOP TO HANDLE THE RELATED PCB*/ 02369000 B RELTEST 0713 02370000 * END; 0714 02371000 * GOTO AUXTEST; /* IF NO MORE PCBS, GOING TO AUX 02372000 * TEST ROUTINE */ 02373000 B AUXTEST 0715 02374000 * 0716 02375000 * /*****************************************************************/ 02376000 * /* */ 02377000 * /* OUTRTN -- THIS IS THE RETURN POINT FOR THE OUTOFSTG */ 02378000 * /* SUB-ROUTINE. BOTH NORMAL AND ERROR RETURNS TO VAMSI ARE MADE */ 02379000 * /* FROM THIS POINT. */ 02380000 * /* */ 02381000 * /*****************************************************************/ 02382000 * 0716 02383000 *OUTRTN: 0716 02384000 * RETCODR=0; /* SET THE NORMAL RETURN CODE */ 02385000 OUTRTN SLR RETCODR,RETCODR 0716 02386000 * RFY 0717 02387000 * (R14) RSTD; 0717 02388000 *OUTERRTN: 0718 02389000 * R14=SUBRETWD; /* LOAD THE RETURN ADDRESS */ 02390000 OUTERRTN L R14,SUBRETWD(,PVTPTR) 0718 02391000 * RFY 0719 02392000 * (PCBPTR, 0719 02393000 * PTEPTR, 0719 02394000 * XPTEPTR, 0719 02395000 * R14) UNRSTD; 0719 02396000 * END OUTOFSTG; 0720 02397000 @EL00004 DS 0H 0720 02398000 @EF00004 DS 0H 0720 02399000 @ER00004 BR @14 0720 02400000 * 0721 02401000 * /*****************************************************************/ 02402000 * /* */ 02403000 * /* RELEASEP -- THIS IS THE RELEASE AUX SUB-ROUTINE OF VAMSI. IT */ 02404000 * /* IS CALLED BY THE MOVEOUT AND OUTOFSTG SUB-ROUTINES TO RELEASE */ 02405000 * /* AUX VIA A CALL TO ASM FREE SLOT ROUTINE. THE XPTEPTR MUST BE */ 02406000 * /* VALID WHEN THE CALL IS MADE. */ 02407000 * /* */ 02408000 * /*****************************************************************/ 02409000 * 0721 02410000 *RELEASEP: 0721 02411000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0721 02412000 RELEASEP DS 0H 0722 02413000 * RFY 0722 02414000 * (PTEPTR, 0722 02415000 * PFTEPTR, 0722 02416000 * XPTEPTR, 0722 02417000 * PCBPTR, 0722 02418000 * R13, 0722 02419000 * R14) RSTD; 0722 02420000 * SUBSUBWD=R14; /* SAVE THE RETURN REG */ 02421000 * 0723 02422000 ST R14,SUBSUBWD(,PVTPTR) 0723 02423000 * /*****************************************************************/ 02424000 * /* */ 02425000 * /* ESTABLISH INTERFACE TO ILRFRSLT @Z40WPYC*/ 02426000 * /* */ 02427000 * /*****************************************************************/ 02428000 * 0724 02429000 * R13=ADDR(PVTWSA4); /* GIVE MACRO A SAVE AREA */ 02430000 LA R13,PVTWSA4(,PVTPTR) 0724 02431000 * R0=4; /* INDICATE PRIVATE AREA PAGE 0725 02432000 * @Z40WPYC*/ 02433000 LA R0,4 0725 02434000 * R1=XPTEPTR; /* SET PTR TO XPTE - NOTE THAT R2 02435000 * (RSMHDPTR), ALSO INPUT TO FREE 02436000 * SLOT HAS PREVIOUSLY BEEN 0726 02437000 * ESTABLISHED. @Z40WPYC*/ 02438000 LR R1,XPTEPTR 0726 02439000 * CALL ILRFRSLT; /* CALL FREE SLOT @Z40WPYC*/ 02440000 L @15,PVTFRSLT(,PVTPTR) 0727 02441000 BALR @14,@15 0727 02442000 * R14=SUBSUBWD; /* RESTORE THE RETURN REG */ 02443000 L R14,SUBSUBWD(,PVTPTR) 0728 02444000 * RFY 0729 02445000 * (PTEPTR, 0729 02446000 * PFTEPTR, 0729 02447000 * XPTEPTR, 0729 02448000 * PCBPTR, 0729 02449000 * R13, 0729 02450000 * R14) UNRSTD; 0729 02451000 * END RELEASEP; /* END OF SUB-PROC */ 02452000 @EL00005 DS 0H 0730 02453000 @EF00005 DS 0H 0730 02454000 @ER00005 BR @14 0730 02455000 * 0731 02456000 * /*****************************************************************/ 02457000 * /* */ 02458000 * /* XFERP -- THIS IS THE TRANSFER AUX SUB-ROUTINE OF VAMSI. IT IS */ 02459000 * /* CALLED BY THE MOVEOUT AND OUTOFSTG SUB-ROUTINES TO TRANSFER */ 02460000 * /* AUX VIA THE ILRCALL TRPAGE MACRO. THE XPTEPTR MUST BE VALID */ 02461000 * /* WHEN THE CALL IS MADE. */ 02462000 * /* */ 02463000 * /*****************************************************************/ 02464000 * 0731 02465000 *XFERP: 0731 02466000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0731 02467000 XFERP DS 0H 0732 02468000 * RFY 0732 02469000 * (PTEPTR, 0732 02470000 * PFTEPTR, 0732 02471000 * XPTEPTR, 0732 02472000 * PCBPTR, 0732 02473000 * R13, 0732 02474000 * R14) RSTD; 0732 02475000 * SUBSUBWD=R14; /* SAVE THE RETURN REG */ 02476000 ST R14,SUBSUBWD(,PVTPTR) 0733 02477000 * R13=ADDR(PVTWSA4); /* GIVE ASM A SAVEAREA. NOTE THAT 02478000 * IT IS POSSIBLE GETMAIN COULD 02479000 * BE CALLED THRU THIS INTERFACE 02480000 * SO SAVEAREA MUST NOT BE ONE 0734 02481000 * THAT RSM WOULD USE ON THIS 0734 02482000 * CPU. @Z40WPYC*/ 02483000 LA R13,PVTWSA4(,PVTPTR) 0734 02484000 * ACAOP=0; /* ZERO OPERATION FIELD @Z40WPYC*/ 02485000 MVI ACAOP(PVTPTR),X'00' 0735 02486000 * ACAFLG1=0; /* ZERO FLAG BYTE @Z40WPYC*/ 02487000 MVI ACAFLG1(PVTPTR),X'00' 0736 02488000 * IF POINPROC='1'B THEN /* IF PAGEOUT IN PROCESS @Z40WPYC*/ 02489000 TM POINPROC(PVTPTR),B'00000010' 0737 02490000 BNO @RF00737 0737 02491000 * DO; /* SET AIA ADDR, NOT LSID IN ACA 02492000 * @Z40WPYC*/ 02493000 * ACAAIAP=IOSVAIA; /* SET AIA IN ACA @Z40WPYC*/ 02494000 L @12,IOSVAIA-1(,PVTPTR) 0739 02495000 LA @12,0(,@12) 0739 02496000 ST @12,ACAAIAP(,PVTPTR) 0739 02497000 * ACAFLSID=0; /* ZERO FROM LSID FIELD AS I/O IS 02498000 * NOT COMPLETE AND LSID HAS NOT 02499000 * YET BEEN ASSIGNED @Z40WPYC*/ 02500000 SLR @12,@12 0740 02501000 ST @12,ACAFLSID(,PVTPTR) 0740 02502000 * END; /* END PAGEOUT-IN-PROCESS 0741 02503000 * PROCESSNG @Z40WPYC*/ 02504000 * ELSE /* NOT PAGEOUT I/O IN PROCESS 0742 02505000 * @Z40WPYC*/ 02506000 * DO; /* SETUP FOR NO I/O @Z40WPYC*/ 02507000 B @RC00737 0742 02508000 @RF00737 DS 0H 0743 02509000 * ACAAIAP=0; /* INDICATE NOT PAGEOUT IN 0743 02510000 * PROCESS @Z40WPYC*/ 02511000 SLR @12,@12 0743 02512000 ST @12,ACAAIAP(,PVTPTR) 0743 02513000 * ACAFLSID=XPTLSID; /* SET FROM LSID @Z40WPYC*/ 02514000 L @12,XPTLSID(,XPTEPTR) 0744 02515000 ST @12,ACAFLSID(,PVTPTR) 0744 02516000 * END; /* END NO PAGEOUT PROCESSING 0745 02517000 * @Z40WPYC*/ 02518000 * ACAASID=RSMASCB->ASCBASID; /* SET ASID OF REQUESTING A.S. 0746 02519000 * @Z40WPYC*/ 02520000 @RC00737 L @12,RSMASCB(,RSMHDPTR) 0746 02521000 LH @12,ASCBASID(,@12) 0746 02522000 N @12,@CF02294 0746 02523000 STH @12,ACAASID(,PVTPTR) 0746 02524000 * ACATOLP=VCBLPID; /* SET LPID TO TRANSFER LSID TO 02525000 * @Z40WPYC*/ 02526000 MVC ACATOLP(8,PVTPTR),VCBLPID(VCBPTR) 0747 02527000 * DO; /* ILRCALL 0748 02528000 * ACA(ADDR(PVTACA))OP(TRPAGE) */ 02529000 * RESPECIFY 0749 02530000 * R1 RSTD; 0749 02531000 * DECLARE /* ILRGOS ENTRY POINT @Z40WPWG*/ 02532000 * ILRGOS ENTRY BASED(ASMGOS) VALRG(0); 0750 02533000 * DECLARE /* ILRTRPAG ENTRY POINT @Z40WPWG*/ 02534000 * ILRTRPAG ENTRY BASED(ASMTRPAG) VALRG(0); 0751 02535000 * DCL 0752 02536000 * ILRACAOP FIXED(8) BASED(R1); 0752 02537000 * R1=ADDR(PVTACA); /* SET OPCODE @Z40WPWG*/ 02538000 LA R1,PVTACA(,PVTPTR) 0753 02539000 * ILRACAOP=4; 0754 02540000 MVI ILRACAOP(R1),X'04' 0754 02541000 * CALL ILRTRPAG; /* @Z40WPWG*/ 02542000 L @12,CVTPTR 0755 02543000 L @12,ASMVTPTR(,@12) 0755 02544000 L @15,ASMTRPAG(,@12) 0755 02545000 BALR @14,@15 0755 02546000 * RESPECIFY 0756 02547000 * R1 UNRSTD; 0756 02548000 * END; /* ILRCALL 0757 02549000 * ACA(ADDR(PVTACA))OP(TRPAGE) 0757 02550000 * TRANS PAGE @Z40WPYC*/ 02551000 * R14=SUBSUBWD; /* RESTORE THE RETURN REG */ 02552000 L R14,SUBSUBWD(,PVTPTR) 0758 02553000 * RFY 0759 02554000 * (PTEPTR, 0759 02555000 * PFTEPTR, 0759 02556000 * XPTEPTR, 0759 02557000 * PCBPTR, 0759 02558000 * R13, 0759 02559000 * R14) UNRSTD; 0759 02560000 * END XFERP; /* END OF SUB-PROC */ 02561000 @EL00006 DS 0H 0760 02562000 @EF00006 DS 0H 0760 02563000 @ER00006 BR @14 0760 02564000 * 0761 02565000 * /*****************************************************************/ 02566000 * /* */ 02567000 * /* IOREQ - THIS IS THE I/O REQUEST SUB-ROUTINE OF VAMSI. PAGES */ 02568000 * /* THAT REQUIRE PAGEOUTS (AS EVIDENCED BY HAVING AN AIA ON THE */ 02569000 * /* INTERNAL QUEUE) ARE PROCESSED HERE. ILRPAGIO IS INVOKED TO */ 02570000 * /* INITIATE THE ACTUAL PAGEOUT. IF THE RETURN CODE FROM ASM IS */ 02571000 * /* ZERO, RETURN IS MADE TO VAMSI. FOR NON-ZERO RETURN CODES, THE */ 02572000 * /* FAILING PAGE'S VCB IS LOCATED AND MARKED AS BEING IN ERROR. */ 02573000 * /* THE PFTE AND PGTE ARE REBUILT AND THE PCB RETURNED TO THE FREE*/ 02574000 * /* QUEUE. ANY AIA'S REMAINING ON THE QUEUE ARE THEN PROCESSED AS */ 02575000 * /* ABOVE, BUT REG15 SAVE AREA WILL BE LOADED IF THERE WERE NO */ 02576000 * /* PREVIOUS ERRORS. IF THE PROPER VCB CANNOT BE FOUND FOR */ 02577000 * /* BACKOUT, THE RETURN CODE WILL BE SET TO 16 TO FORCE AN ABEND, */ 02578000 * /* AND RETURN IS MADE TO THE MAINLINE. */ 02579000 * /* */ 02580000 * /*****************************************************************/ 02581000 * 0761 02582000 *IOREQ: 0761 02583000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0761 02584000 IOREQ DS 0H 0762 02585000 * RFY 0762 02586000 * (R13, 0762 02587000 * R14) RSTD; 0762 02588000 * SUBSUBWD=R14; /* SAVE RETURN ADDRESS */ 02589000 ST R14,SUBSUBWD(,PVTPTR) 0763 02590000 *CALLIO: 0764 02591000 * RFY 0764 02592000 * (R1) RSTD; 0764 02593000 * 0764 02594000 CALLIO DS 0H 0765 02595000 * /*****************************************************************/ 02596000 * /* */ 02597000 * /* CALL ASM FOR PAGEOUT */ 02598000 * /* */ 02599000 * /*****************************************************************/ 02600000 * 0765 02601000 * R1=VAMAIAQ; /* SET PTR TO FIRST PAGEOUT AIA 02602000 * @Z40WPYC*/ 02603000 L R1,VAMAIAQ(,PVTPTR) 0765 02604000 * CALL ILRPAGIO; /* CALL ASM TO INITIATE PAGEOUT 02605000 * @Z40WPYC*/ 02606000 L @15,PVTPAGIO(,PVTPTR) 0766 02607000 BALR @14,@15 0766 02608000 * RFY 0767 02609000 * (R13, 0767 02610000 * R14) UNRSTD; 0767 02611000 * 0767 02612000 * /*****************************************************************/ 02613000 * /* */ 02614000 * /* CHECK RETURN CODE FROM ASM */ 02615000 * /* */ 02616000 * /*****************************************************************/ 02617000 * 0768 02618000 * IF RETCODR=0 THEN /* IF THE I/O WAS SUCCESSFUL */ 02619000 SLR @14,@14 0768 02620000 CR RETCODR,@14 0768 02621000 BNE @RF00768 0768 02622000 * VAMAIAQ=0; /* RESET THE AIA QUEUE FOR NEXT 02623000 * GROUP */ 02624000 ST @14,VAMAIAQ(,PVTPTR) 0769 02625000 * ELSE /* IF THE I/O WAS UNSUCCESSFUL */ 02626000 * DO; 0770 02627000 B @RC00768 0770 02628000 @RF00768 DS 0H 0771 02629000 * VCBPTR=REG1WD; /* LOAD VCB POINTER TO SEARCH FOR 02630000 * FAILING VCB */ 02631000 * 0771 02632000 L @14,RSTADDWD(,PVTPTR) 0771 02633000 L VCBPTR,REG1WD(,@14) 0771 02634000 * /*************************************************************/ 02635000 * /* */ 02636000 * /* LOCATE PROPER VCB */ 02637000 * /* */ 02638000 * /*************************************************************/ 02639000 * 0772 02640000 * RFY 0772 02641000 * (PCBPTR) RSTD; 0772 02642000 * PCBPTR=R1-LENGTH(PCB)+LENGTH(PCBAIA);/* LOAD THE PCB POINTER */ 02643000 LR PCBPTR,R1 0773 02644000 AL PCBPTR,@CF02275 0773 02645000 *VCBCK: 0774 02646000 * IF VCBMVOUT='0'B|MYVCBLGN^=AIALGID|MYVCBLPN^=AIARPN THEN/* IF 02647000 * NOT THE CORRECT VCB */ 02648000 VCBCK TM VCBMVOUT(VCBPTR),B'10000000' 0774 02649000 BZ @RT00774 0774 02650000 CLC MYVCBLGN(4,VCBPTR),AIALGID(PCBPTR) 0774 02651000 BNE @RT00774 0774 02652000 CLC MYVCBLPN(4,VCBPTR),AIARPN(PCBPTR) 0774 02653000 BE @RF00774 0774 02654000 @RT00774 DS 0H 0775 02655000 * DO; 0775 02656000 * VCBPTR=VCBLINK; /* UPDATE THE VCB POINTER */ 02657000 L VCBPTR,VCBLINK(,VCBPTR) 0776 02658000 * IF VCBPTR^=0 THEN /* IF THERE IS ANOTHER VCB */ 02659000 LTR VCBPTR,VCBPTR 0777 02660000 BNZ @RT00777 0777 02661000 * GOTO VCBCK; /* SEE IF THIS IS THE CORRECT VCB*/ 02662000 * REG15WD=16; /* SET RETURN CODE TO CAUSE ABEND*/ 02663000 L @14,RSTADDWD(,PVTPTR) 0779 02664000 MVC REG15WD(4,@14),@CF00713 0779 02665000 * VAMAIAQ=R1; /* STORE ADDRESS OF FAILING AIA 02666000 * IN QUEUE */ 02667000 ST R1,VAMAIAQ(,PVTPTR) 0780 02668000 * RETURN TO RC16ADJ; /* RETURN TO MAINLINE FOR ABEND */ 02669000 LA @14,RC16ADJ 0781 02670000 @EL00007 DS 0H 0781 02671000 @EF00007 DS 0H 0781 02672000 @ER00007 BR @14 0781 02673000 * END; 0782 02674000 * RFY 0783 02675000 * (R1) UNRSTD; 0783 02676000 @RF00774 DS 0H 0784 02677000 * VCBELPID='1'B; /* SET THE ERROR LPID FLAG */ 02678000 OI VCBELPID(VCBPTR),B'00100000' 0784 02679000 * PVTVAMO=PVTVAMO-1; /* DECREMENT THE VIO OUT COUNT */ 02680000 L @14,PVTVAMO(,PVTPTR) 0785 02681000 BCTR @14,0 0785 02682000 ST @14,PVTVAMO(,PVTPTR) 0785 02683000 * OUXBVAMO=OUXBVAMO-1; /* DECREMENT THE LOCAL COUNT */ 02684000 L @14,ASCBPTR 0786 02685000 L @14,OUXBPTR(,@14) 0786 02686000 L @12,OUXBVAMO(,@14) 0786 02687000 BCTR @12,0 0786 02688000 ST @12,OUXBVAMO(,@14) 0786 02689000 * IF VCBNDISC='1'B THEN /* IF THE NON-DISCONNECT OPTION 02690000 * WAS SPECIFIED */ 02691000 TM VCBNDISC(VCBPTR),B'00001000' 0787 02692000 BNO @RF00787 0787 02693000 * DO; 0788 02694000 * PCBXPTA->XPTXAV='0'B; /* RESET THE AUX ASSIGNED FLAG */ 02695000 * PCBXPTA->XPTVIOLP='0'B; /* RESET THE SAVE AUX FLAG 0790 02696000 * @Z40WPYC*/ 02697000 L @14,PCBXPTA-1(,PCBPTR) 0790 02698000 LA @14,0(,@14) 0790 02699000 NI XPTXAV(@14),B'00111111' 0790 02700000 * PCBXPTA->XPTPOINP='0'B; /* CLEAR PAGEOUT IN PROC @Z40WPYC*/ 02701000 * PCBXPTA->XPTIOERR='0'B; /* CLEAR I/O ERROR FLAG @Z40WPYC*/ 02702000 * PCBXPTA->XPTVALID='0'B; /* CLEAR LSID VALID FLAG @Z40WPYC*/ 02703000 NI XPTPOINP(@14),B'01001111' 0793 02704000 * PCBXPTA->XPTLPID=''B; /* CLEAR THE LPID @Z40WPYC*/ 02705000 XC XPTLPID(8,@14),XPTLPID(@14) 0794 02706000 * END; 0795 02707000 * 0795 02708000 * /*************************************************************/ 02709000 * /* */ 02710000 * /* RE-ADJUST PGTE AND PFTE */ 02711000 * /* */ 02712000 * /*************************************************************/ 02713000 * 0796 02714000 *ADJPGTE: 0796 02715000 * PCBPGTA->PGTRSA=PCBRBN; /* LOAD THE PAGE TABLE */ 02716000 @RF00787 DS 0H 0796 02717000 ADJPGTE L @14,PCBPGTA-1(,PCBPTR) 0796 02718000 LA @14,0(,@14) 0796 02719000 MVC PGTRSA(2,@14),PCBRBN(PCBPTR) 0796 02720000 * PCBPGTA->PGTPAM='1'B; /* SET THE GETMAINED BIT IN PGTE */ 02721000 OI PGTPAM(@14),B'00000001' 0797 02722000 * RFY 0798 02723000 * (PFTEPTR) RSTD; 0798 02724000 * PFTEPTR=PVTPFTP+PCBRBN; /* LOAD THE PFTE POINTER */ 02725000 LH PFTEPTR,PCBRBN(,PCBPTR) 0799 02726000 N PFTEPTR,@CF02294 0799 02727000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0799 02728000 * PFTIRRG='0'B; /* RESET THE IRREGULAR BIT */ 02729000 NI PFTIRRG(PFTEPTR),B'11101111' 0800 02730000 * PFTPCBSI='0'B; /* RESET THE PCB DEFINED FLAG */ 02731000 NI PFTPCBSI(PFTEPTR),B'11110111' 0801 02732000 * PFTASID=ASCBASID; /* LOAD THE ASID */ 02733000 L @14,ASCBPTR 0802 02734000 LH @14,ASCBASID(,@14) 0802 02735000 N @14,@CF02294 0802 02736000 STH @14,PFTASID(,PFTEPTR) 0802 02737000 * PFTVBN=CURVSN; /* LOAD THE PROPER VSN */ 02738000 MVC PFTVBN(2,PFTEPTR),CURVSN(VCBPTR) 0803 02739000 * RFY 0804 02740000 * (PFTEPTR) UNRSTD; 0804 02741000 * RFY 0805 02742000 * (R0, 0805 02743000 * R1, 0805 02744000 * TESTPTR) RSTD; 0805 02745000 * 0805 02746000 * /*************************************************************/ 02747000 * /* */ 02748000 * /* FORCE THE CHANGE BIT ON FOR PAGE RECOVERY. IF THE COMPARE */ 02749000 * /* AND SWAP IS SUCESSFUL THE CHANGE BIT WILL BE SET ON. IF IT*/ 02750000 * /* IS NOT (CC NOT ZERO) SOMEONE ELSE HAS FORCED CHANGE BIT ON*/ 02751000 * /* AND THE OBJECTIVE IS STILL MET */ 02752000 * /* */ 02753000 * /*************************************************************/ 02754000 * 0806 02755000 * TESTPTR=VCBVSA; /* LOAD ADDRESS OF WORD IN STG */ 02756000 L TESTPTR,VCBVSA(,VCBPTR) 0806 02757000 * GENERATE REFS(TESTPTR) SETS(R1); 0807 02758000 L R1,0(TESTPTR) LOAD FIRST WORD 02759000 CS R1,R1,0(TESTPTR) COMPARE AND SWAP TO SET CHANGE BIT 02760000 * VAMAIAQ=AIANXAIA; /* LOAD HEADER TO POINT TO NEXT 02761000 * AIA */ 02762000 * 0808 02763000 L @14,AIANXAIA(,PCBPTR) 0808 02764000 ST @14,VAMAIAQ(,PVTPTR) 0808 02765000 * /*************************************************************/ 02766000 * /* */ 02767000 * /* SEND PCB TO FREE QUEUE */ 02768000 * /* */ 02769000 * /*************************************************************/ 02770000 * 0809 02771000 * R0=PCBFREQN; /* SEND PCB TO FREE QUEUE */ 02772000 LA R0,16 0809 02773000 * R1=PCBPTR; /* LOAD PARM FOR PCB MANAGER */ 02774000 LR R1,PCBPTR 0810 02775000 * CALL IEAVPCB; /* CALL PCB MANAGER */ 02776000 L @15,PVTPCB(,PVTPTR) 0811 02777000 BALR @14,@15 0811 02778000 * RFY 0812 02779000 * (R0, 0812 02780000 * R1, 0812 02781000 * TESTPTR, 0812 02782000 * PCBPTR) UNRSTD; 0812 02783000 * IF REG15WD=0 THEN /* IF THIS IS THE FIRST ERROR 0813 02784000 * ENCOUNTERED */ 02785000 L @14,RSTADDWD(,PVTPTR) 0813 02786000 L @12,REG15WD(,@14) 0813 02787000 LTR @12,@12 0813 02788000 BNZ @RF00813 0813 02789000 * DO; 0814 02790000 * REG15WD=4; /* LOAD A RETURN CODE */ 02791000 MVC REG15WD(4,@14),@CF00053 0815 02792000 * REG2WD=LASTVCB; /* LOAD ADDRESS OF LAST VCB 0816 02793000 * PROCESSED */ 02794000 L @12,LASTVCB(,PVTPTR) 0816 02795000 ST @12,REG2WD(,@14) 0816 02796000 * END; 0817 02797000 * 0817 02798000 * /*************************************************************/ 02799000 * /* */ 02800000 * /* CHECK FOR MORE AIA'S ON QUEUE */ 02801000 * /* */ 02802000 * /*************************************************************/ 02803000 * 0818 02804000 * IF VAMAIAQ^=0 THEN /* IF THERE ARE MORE AIA'S */ 02805000 @RF00813 L @14,VAMAIAQ(,PVTPTR) 0818 02806000 LTR @14,@14 0818 02807000 BNZ @RT00818 0818 02808000 * GOTO CALLIO; /* PROCESS REST OF AIA GROUP */ 02809000 * END; 0820 02810000 * RFY 0821 02811000 * (R14) RSTD; 0821 02812000 @RC00768 DS 0H 0822 02813000 * R14=SUBSUBWD; /* RESTORE RETURN ADDRESS */ 02814000 L R14,SUBSUBWD(,PVTPTR) 0822 02815000 * RFY 0823 02816000 * (R14) UNRSTD; 0823 02817000 * END IOREQ; /* END OF SUB-PROC, RETURNING TO 02818000 * CALLER */ 02819000 B @EL00007 0824 02820000 * END IEAVAMSI /* END OF IEAVAMSI */ 02821000 * 0825 02822000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02823000 */*%INCLUDE SYSLIB (CVT ) */ 02824000 */*%INCLUDE SYSLIB (IHAPVT ) */ 02825000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02826000 */*%INCLUDE SYSLIB (IHAASCB ) */ 02827000 */*%INCLUDE SYSLIB (IHAASXB ) */ 02828000 */*%INCLUDE SYSLIB (IHAOUXB ) */ 02829000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 02830000 */*%INCLUDE SYSLIB (IHAVCB ) */ 02831000 */*%INCLUDE SYSLIB (IHARSMHD) */ 02832000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 02833000 */*%INCLUDE SYSLIB (IHAPCB ) */ 02834000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 02835000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 02836000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 02837000 */*%INCLUDE SYSLIB (IHARCA ) */ 02838000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 02839000 */*%INCLUDE SYSLIB (ILRASMVT) */ 02840000 */*%INCLUDE SYSLIB (ILRACA ) */ 02841000 */*%INCLUDE SYSLIB (ILRAIA ) */ 02842000 * 0825 02843000 * ; 0825 02844000 @DATA DS 0H 02845000 DS 0F 02846000 DS 0F 02847000 @CF00053 DC F'4' 02848000 @CF00059 DC F'8' 02849000 @CF02086 DC F'12' 02850000 @CF00713 DC F'16' 02851000 @CF02276 DC F'36' 02852000 @CF02045 DC F'4096' 02853000 @CF02275 DC F'-36' 02854000 @CF02294 DC XL4'0000FFFF' 02855000 @CF02042 DC XL4'FFF0' 02856000 @CF01765 DC XL4'01' 02857000 DS 0D 02858000 VAMSIMO DC XL4'00001000' 02859000 @CB02042 DC X'FFF0' 02860000 @CB02048 DC X'0009' 02861000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02862000 @01 EQU 01 02863000 @02 EQU 02 02864000 @03 EQU 03 02865000 @04 EQU 04 02866000 @05 EQU 05 02867000 @06 EQU 06 02868000 @07 EQU 07 02869000 @08 EQU 08 02870000 @09 EQU 09 02871000 @10 EQU 10 02872000 @11 EQU 11 02873000 @12 EQU 12 02874000 @13 EQU 13 02875000 @14 EQU 14 02876000 @15 EQU 15 02877000 PVTPTR EQU @03 02878000 VCBPTR EQU @04 02879000 RSMHDPTR EQU @02 02880000 PFTEPTR EQU @08 02881000 PCBPTR EQU @10 02882000 XPTEPTR EQU @07 02883000 PTEPTR EQU @06 02884000 R0 EQU @00 02885000 R1 EQU @01 02886000 INVCBR EQU @01 02887000 R2 EQU @02 02888000 R3 EQU @03 02889000 R4 EQU @04 02890000 R5 EQU @05 02891000 CURVSNR EQU @05 02892000 R6 EQU @06 02893000 RESTPTR EQU @08 02894000 R9 EQU @09 02895000 FADDR EQU @10 02896000 R11 EQU @11 02897000 R12 EQU @12 02898000 WRK1R EQU @12 02899000 TESTPTR EQU @12 02900000 R13 EQU @13 02901000 WRK2R EQU @13 02902000 GFASW EQU @13 02903000 LOCKRCR EQU @13 02904000 R14 EQU @14 02905000 R15 EQU @15 02906000 RETCODR EQU @15 02907000 R10 EQU @10 02908000 R7 EQU @07 02909000 R8 EQU @08 02910000 PSA EQU 0 02911000 FLCRNPSW EQU PSA 02912000 FLCROPSW EQU PSA+8 02913000 FLCICCW2 EQU PSA+16 02914000 FLCCVT EQU FLCICCW2 02915000 PSAEEPSW EQU PSA+132 02916000 PSAESPSW EQU PSA+136 02917000 FLCSVILC EQU PSAESPSW+1 02918000 PSAEPPSW EQU PSA+140 02919000 FLCPIILC EQU PSAEPPSW+1 02920000 FLCPICOD EQU PSAEPPSW+2 02921000 PSAPICOD EQU FLCPICOD+1 02922000 FLCTEA EQU PSAEPPSW+4 02923000 FLCPER EQU PSA+152 02924000 FLCMCLA EQU PSA+168 02925000 FLCIOEL EQU FLCMCLA+4 02926000 FLCIOA EQU FLCMCLA+16 02927000 FLCFSA EQU FLCMCLA+80 02928000 PSAAOLD EQU PSA+548 02929000 PSASUPER EQU PSA+552 02930000 PSASUP1 EQU PSASUPER 02931000 PSASUP2 EQU PSASUPER+1 02932000 PSASUP3 EQU PSASUPER+2 02933000 PSASUP4 EQU PSASUPER+3 02934000 PSACLHT EQU PSA+640 02935000 PSALKSA EQU PSA+696 02936000 PSAHLHI EQU PSA+760 02937000 PSADSSFL EQU PSA+836 02938000 PSADSSF1 EQU PSADSSFL 02939000 PSADSSF3 EQU PSADSSFL+2 02940000 PSADSSF4 EQU PSADSSFL+3 02941000 PSARSVT EQU PSA+896 02942000 CVTMAP EQU 0 02943000 CVTDAR EQU CVTMAP+72 02944000 CVTFLGS1 EQU CVTDAR 02945000 CVTDCB EQU CVTMAP+116 02946000 CVTIOQET EQU CVTMAP+120 02947000 CVTIERLC EQU CVTMAP+144 02948000 CVTHEAD EQU CVTMAP+160 02949000 CVTSV76C EQU CVTHEAD 02950000 CVTOPTA EQU CVTMAP+182 02951000 CVTOPTB EQU CVTMAP+183 02952000 CVTGTF EQU CVTMAP+236 02953000 CVTGTFST EQU CVTGTF 02954000 CVTGTFS EQU CVTGTFST 02955000 CVTSTATE EQU CVTGTFST 02956000 CVTTMODE EQU CVTGTFST 02957000 CVTFORM EQU CVTGTFST 02958000 CVTAQAVT EQU CVTMAP+240 02959000 CVTTCMFG EQU CVTAQAVT 02960000 CVTVOLM2 EQU CVTMAP+244 02961000 CVTTATA EQU CVTVOLM2 02962000 CVTTSKS EQU CVTTATA 02963000 CVTVOLF2 EQU CVTTSKS 02964000 CVTTAT EQU CVTTATA+1 02965000 CVTATER EQU CVTMAP+248 02966000 CVTEXT1 EQU CVTMAP+252 02967000 CVTPURG EQU CVTMAP+260 02968000 CVTQMSG EQU CVTMAP+268 02969000 CVTDMSR EQU CVTMAP+272 02970000 CVTRSV37 EQU CVTDMSR 02971000 CVTDMSRF EQU CVTRSV37 02972000 CVTERPV EQU CVTMAP+316 02973000 CVTINTLA EQU CVTMAP+320 02974000 CVTAPF EQU CVTMAP+324 02975000 CVTEXT2 EQU CVTMAP+328 02976000 CVTHJES EQU CVTMAP+332 02977000 CVTPGSIA EQU CVTMAP+348 02978000 CVTA1F1 EQU CVTMAP+356 02979000 CVTSYSK EQU CVTMAP+357 02980000 CVTVOLM1 EQU CVTMAP+380 02981000 CVTVOLF1 EQU CVTVOLM1 02982000 CVTXTNT1 EQU 0 02983000 CVTXTNT2 EQU 0 02984000 CVTDSSV EQU CVTXTNT2 02985000 CVTFLGBT EQU CVTXTNT2+5 02986000 CVTQID EQU CVTXTNT2+24 02987000 CVTRV400 EQU CVTXTNT2+52 02988000 CVTRV409 EQU CVTXTNT2+53 02989000 CVTATCVT EQU CVTXTNT2+64 02990000 CVTRV429 EQU CVTXTNT2+84 02991000 CVTRV438 EQU CVTXTNT2+85 02992000 CVTRV457 EQU CVTXTNT2+112 02993000 CVTRV466 EQU CVTXTNT2+113 02994000 CVTFIX EQU 0 02995000 CVTRELNO EQU CVTFIX+252 02996000 PVT EQU 0 02997000 PVTFLAG1 EQU PVT 02998000 PVTFLAG2 EQU PVT+1 02999000 PVTPFTP EQU PVT+12 03000000 PVTLPRIV EQU PVT+24 03001000 PVTLCSA EQU PVT+26 03002000 PVTPRCA EQU PVT+52 03003000 PVTPSINT EQU PVT+76 03004000 PVTPCB EQU PVT+104 03005000 PVTPFTE EQU PVT+108 03006000 PVTPFP2 EQU PVT+116 03007000 PVTPRCV EQU PVT+156 03008000 PVTPINV EQU PVT+172 03009000 PVTPOPBR EQU PVT+220 03010000 PVTPAGIO EQU PVT+236 03011000 PVTFRSLT EQU PVT+240 03012000 PVTPRSET EQU PVT+244 03013000 PVTVAMO EQU PVT+260 03014000 PVTVAMR EQU PVT+264 03015000 PVTQS EQU PVT+304 03016000 PVTWSAX EQU PVT+344 03017000 PVTWSA4 EQU PVTWSAX+216 03018000 PVTWSA15 EQU PVTWSAX+1040 03019000 PVTSAVE EQU PVTWSAX+1328 03020000 PVTACA EQU PVTWSAX+1400 03021000 PVTPCBQS EQU PVT+1852 03022000 PVTGFADF EQU PVTPCBQS+24 03023000 ASCB EQU 0 03024000 ASCBSUPC EQU ASCB+16 03025000 ASCBASID EQU ASCB+36 03026000 ASCBRSM EQU ASCB+52 03027000 ASCBRSMF EQU ASCBRSM 03028000 ASCBFW1 EQU ASCB+100 03029000 ASCBRCTF EQU ASCBFW1+2 03030000 ASCBFLG1 EQU ASCBFW1+3 03031000 ASCBASXB EQU ASCB+108 03032000 ASCBDSP1 EQU ASCB+114 03033000 ASCBFLG2 EQU ASCB+115 03034000 ASCBLKGP EQU ASCB+128 03035000 ASCBOUXB EQU ASCB+148 03036000 ASCBSRQ EQU ASCB+180 03037000 ASCBSRQ1 EQU ASCBSRQ 03038000 ASCBSRQ2 EQU ASCBSRQ+1 03039000 ASCBSRQ3 EQU ASCBSRQ+2 03040000 ASCBSRQ4 EQU ASCBSRQ+3 03041000 ASXB EQU 0 03042000 ASXBSPSA EQU ASXB+112 03043000 ASXBAEQ EQU ASXB+168 03044000 ASXBSECR EQU ASXB+199 03045000 ASCBSFLG EQU ASXBSECR 03046000 ASXBCASW EQU ASXB+216 03047000 ASXBCRB1 EQU ASXBCASW 03048000 OUXB EQU 0 03049000 OUXBVAMO EQU OUXB+32 03050000 OUXBVAMR EQU OUXB+36 03051000 WSAL EQU 0 03052000 WSALRSM EQU WSAL+52 03053000 WSAG EQU 0 03054000 WSAC EQU 0 03055000 LCCACPUS EQU 0 03056000 VCB EQU 0 03057000 VCBLINK EQU VCB 03058000 VCBVSA EQU VCB+4 03059000 VCBLPID EQU VCB+8 03060000 VCBOPFLG EQU VCB+16 03061000 VCBMVOUT EQU VCBOPFLG 03062000 VCBASIGN EQU VCBOPFLG 03063000 VCBINSTG EQU VCBOPFLG 03064000 VCBNDISC EQU VCBOPFLG 03065000 VCBLOAD EQU VCBOPFLG 03066000 VCBCPFLG EQU VCB+17 03067000 VCBNOVAC EQU VCBCPFLG 03068000 VCBINVSA EQU VCBCPFLG 03069000 VCBELPID EQU VCBCPFLG 03070000 VCBNOAUX EQU VCBCPFLG 03071000 VCBEFIX EQU VCBCPFLG 03072000 VCBRSN EQU VCB+18 03073000 VCBDSPID EQU VCB+20 03074000 RSMHD EQU 0 03075000 RSMASCB EQU RSMHD+8 03076000 RSMFLG1 EQU RSMHD+12 03077000 RSMQS EQU RSMHD+20 03078000 RSMLFQ EQU RSMQS 03079000 RSMLSQA EQU RSMQS+4 03080000 RSMLIOQ EQU RSMQS+8 03081000 RSMLIOQF EQU RSMLIOQ 03082000 PFTE EQU 0 03083000 PFTPGID EQU PFTE 03084000 PFTASID EQU PFTPGID 03085000 PFTVBN EQU PFTPGID+2 03086000 PFTQPTRS EQU PFTE+4 03087000 PFTFLAGS EQU PFTE+12 03088000 PFTFLAG1 EQU PFTFLAGS 03089000 PFTVRINT EQU PFTFLAG1 03090000 PFTLSQA EQU PFTFLAG1 03091000 PFTPCBSI EQU PFTFLAG1 03092000 PFTBADPG EQU PFTFLAG1 03093000 PFTOFINT EQU PFTFLAG1 03094000 PFTFLAG2 EQU PFTFLAGS+1 03095000 PFTIRRG EQU PFTFLAG2 03096000 PFTQNDX EQU PFTE+14 03097000 PFTUIC EQU PFTE+15 03098000 PCB EQU 0 03099000 PCBFQP EQU PCB 03100000 PCBFQPA EQU PCBFQP+1 03101000 PCBBQP EQU PCB+4 03102000 PCBRTP EQU PCB+8 03103000 PCBFL1 EQU PCBRTP 03104000 PCBSRBMD EQU PCBFL1 03105000 PCBROOT EQU PCBFL1 03106000 PCBIOI EQU PCBFL1 03107000 PCBIOCMP EQU PCBFL1 03108000 PCBRTPA EQU PCBRTP+1 03109000 PCBRLP EQU PCB+12 03110000 PCBRLPA EQU PCBRLP+1 03111000 PCBXPT EQU PCB+16 03112000 PCBFL2 EQU PCBXPT 03113000 PCBFREAL EQU PCBFL2 03114000 PCBRESET EQU PCBFL2 03115000 PCBVIO EQU PCBFL2 03116000 PCBXPTA EQU PCBXPT+1 03117000 PCBPGT EQU PCB+20 03118000 PCBFL3 EQU PCBPGT 03119000 PCBNOREC EQU PCBFL3 03120000 PCBPGTA EQU PCBPGT+1 03121000 PCBRBN EQU PCB+24 03122000 PCBVBN EQU PCB+26 03123000 PCBBLOCK EQU PCB+28 03124000 PCBSRB EQU PCBBLOCK 03125000 PCBRB EQU PCBSRB 03126000 PCBASCB EQU PCB+32 03127000 PCBAIA EQU PCB+36 03128000 PCBR EQU 0 03129000 PCBRTCB EQU PCBR 03130000 PCBRFLAG EQU PCBRTCB 03131000 PCBRGOTO EQU PCBR+4 03132000 PCBRCNT EQU PCBR+16 03133000 XPTE EQU 0 03134000 XPTPROT EQU XPTE 03135000 XPTFLAGS EQU XPTE+2 03136000 XPTVIOLP EQU XPTFLAGS 03137000 XPTXAV EQU XPTFLAGS 03138000 XPTVIO EQU XPTFLAGS 03139000 XPTDEFER EQU XPTFLAGS 03140000 XPTFLAG2 EQU XPTE+3 03141000 XPTVALID EQU XPTFLAG2 03142000 XPTPOINP EQU XPTFLAG2 03143000 XPTIOERR EQU XPTFLAG2 03144000 XPTLPID EQU XPTE+4 03145000 XPTLGN EQU XPTLPID 03146000 XPTLSID EQU XPTLGN 03147000 XPTLPN EQU XPTLPID+4 03148000 PGTPTE EQU 0 03149000 PGTRSA EQU PGTPTE 03150000 PGTBITS EQU PGTRSA+1 03151000 PGTPVM EQU PGTBITS 03152000 PGTPAM EQU PGTBITS 03153000 RCA EQU 0 03154000 RCANAME7 EQU RCA+8 03155000 RCACSECT EQU RCA+9 03156000 RCAFLAGS EQU RCA+10 03157000 RCASAL EQU RCAFLAGS 03158000 RCARCRD EQU RCA+11 03159000 RCANAMES EQU RCA+12 03160000 RCANAME1 EQU RCANAMES 03161000 RCAVAMSI EQU RCANAME1 03162000 RCANAME2 EQU RCANAMES+1 03163000 RCANAME3 EQU RCANAMES+2 03164000 RCANAME4 EQU RCANAMES+3 03165000 RCANAME5 EQU RCANAMES+4 03166000 RCANAME6 EQU RCANAMES+5 03167000 FRRS EQU 0 03168000 FRRSHEAD EQU FRRS 03169000 FRRSENTR EQU 0 03170000 FRRSFLGS EQU FRRSENTR+4 03171000 FRRSFLG1 EQU FRRSFLGS 03172000 FRREPTR EQU 0 03173000 ASMVT EQU 0 03174000 ASMFLAG1 EQU ASMVT 03175000 ASMFLAG2 EQU ASMVT+1 03176000 ASMGOS EQU ASMVT+12 03177000 ASMTRPAG EQU ASMVT+16 03178000 ASMSTAGQ EQU ASMVT+32 03179000 ASMPCCWQ EQU ASMVT+64 03180000 ASMLSAI EQU ASMVT+144 03181000 ASMGOSQS EQU ASMVT+152 03182000 ASMWKSA1 EQU ASMVT+368 03183000 ASMWKSA2 EQU ASMVT+448 03184000 ASMWKSA3 EQU ASMVT+528 03185000 ASMWKSA4 EQU ASMVT+608 03186000 ASMWKSA5 EQU ASMVT+688 03187000 ASMPOOLS EQU 0 03188000 ASMCPAVQ EQU ASMPOOLS+8 03189000 ASMCPRSQ EQU ASMPOOLS+16 03190000 REGSAVER EQU 0 03191000 REG0WD EQU REGSAVER 03192000 REG1WD EQU REGSAVER+4 03193000 REG2WD EQU REGSAVER+8 03194000 REG15WD EQU REGSAVER+60 03195000 IEAVFP2 EQU 0 03196000 IEAVPCB EQU 0 03197000 IEAVPSII EQU 0 03198000 IEAVPFTE EQU 0 03199000 IEAVINV EQU 0 03200000 IEAVRSET EQU 0 03201000 ROOTEXIT EQU 0 03202000 ILRFRSLT EQU 0 03203000 ILRPAGIO EQU 0 03204000 ILRTRPAG EQU 0 03205000 ILRACAOP EQU 0 03206000 IEAVOPBR EQU 0 03207000 ILRGOS EQU 0 03208000 PGTEND EQU 0 03209000 CVTPTR EQU FLCCVT 03210000 CVTS01 EQU CVTPGSIA 03211000 CVTPVTP EQU CVTS01+8 03212000 CVTLPDIA EQU CVTS01+12 03213000 CVTDIRST EQU CVTLPDIA 03214000 CVTSLIDA EQU CVTS01+24 03215000 CVTCTLFG EQU CVTS01+50 03216000 CVTSPSA EQU CVTS01+336 03217000 CVTASMVT EQU CVTS01+356 03218000 CVTRV210 EQU CVTS01+424 03219000 CVTRV219 EQU CVTS01+425 03220000 CVTRV228 EQU CVTS01+426 03221000 CVTRV237 EQU CVTS01+427 03222000 CVTMFRTR EQU CVTS01+452 03223000 CVTRV262 EQU CVTS01+468 03224000 CVTRV271 EQU CVTS01+469 03225000 CVTRV280 EQU CVTS01+470 03226000 CVTRV289 EQU CVTS01+471 03227000 CVTGSDA EQU CVTS01+600 03228000 PSARSVTE EQU PSARSVT 03229000 PSACSTK EQU PSARSVTE 03230000 ASCBPTR EQU PSAAOLD 03231000 ASXBPTR EQU ASCBASXB 03232000 OUXBPTR EQU ASCBOUXB 03233000 PCBRPTR EQU PCBRTPA 03234000 RCAPTR EQU PVTPRCA 03235000 FRRSPTR EQU PSACSTK 03236000 ASMVTPTR EQU CVTASMVT 03237000 ASM1WKSV EQU ASMWKSA1 03238000 ASM1RGSV EQU ASM1WKSV 03239000 ASM1WRKA EQU ASM1WKSV+60 03240000 ASM2WKSV EQU ASMWKSA2 03241000 ASM2WRKA EQU ASM2WKSV+52 03242000 ASM2FLGS EQU ASM2WRKA+12 03243000 ASM3WKSV EQU ASMWKSA3 03244000 ASM4WKSV EQU ASMWKSA4 03245000 ASM4RGSV EQU ASM4WKSV 03246000 ASM5WKSV EQU ASMWKSA5 03247000 ASM5RGSV EQU ASM5WKSV 03248000 THEACA EQU PVTACA 03249000 ACA EQU THEACA 03250000 ACAOP EQU ACA 03251000 ACAFLG1 EQU ACA+1 03252000 ACAASID EQU ACA+2 03253000 ACALGN EQU ACA+8 03254000 ACALPID EQU ACALGN 03255000 ACALGID EQU ACALPID 03256000 ACAFLSID EQU ACALGID 03257000 ACARPN EQU ACALPID+4 03258000 ACAAIAP EQU ACARPN 03259000 ACASYM EQU ACA+16 03260000 ACATOLP EQU ACASYM 03261000 ACATOLGI EQU ACATOLP 03262000 MYLPID EQU VCBLPID 03263000 MYVCBLGN EQU MYLPID 03264000 MYVCBLPN EQU MYLPID+4 03265000 @NM00055 EQU VCBVSA 03266000 CURVSN EQU @NM00055+1 03267000 @NM00058 EQU PVTWSA15 03268000 RSTADDWD EQU @NM00058 03269000 SUBRETWD EQU @NM00058+4 03270000 SUBSUBWD EQU @NM00058+8 03271000 PARMBLD EQU @NM00058+12 03272000 QHEADFLG EQU PARMBLD 03273000 QINDEX EQU PARMBLD+1 03274000 QRBN EQU PARMBLD+2 03275000 PARMBLD2 EQU @NM00058+16 03276000 PARMFLGS EQU PARMBLD2 03277000 RSETWDS EQU @NM00058+20 03278000 RSETSV4 EQU RSETWDS 03279000 RSETSV5 EQU RSETWDS+4 03280000 RSETSV6 EQU RSETWDS+8 03281000 VAMAIAQ EQU @NM00058+32 03282000 LASTVCB EQU @NM00058+36 03283000 LIOQPCB EQU @NM00058+40 03284000 @NM00059 EQU LIOQPCB 03285000 POINPROC EQU @NM00059 03286000 PIINPROC EQU @NM00059 03287000 IOSVAIA EQU LIOQPCB+1 03288000 RSMAIA EQU PCBAIA 03289000 AIA EQU RSMAIA 03290000 AIAFLG1 EQU AIA+9 03291000 AIAWRITE EQU AIAFLG1 03292000 AIAPRIV EQU AIAFLG1 03293000 AIAVIO EQU AIAFLG1 03294000 AIAFLG2 EQU AIA+10 03295000 AIAFRAUX EQU AIAFLG2 03296000 AIAFLG3 EQU AIA+11 03297000 AIANXAIA EQU AIA+12 03298000 AIAID EQU AIA+16 03299000 AIALPID EQU AIAID 03300000 AIALGID EQU AIALPID 03301000 AIALSID EQU AIALGID 03302000 AIASSID EQU AIALSID+1 03303000 AIARPN EQU AIALPID+4 03304000 AIALSID2 EQU AIARPN 03305000 AIALPMEP EQU AIALSID2 03306000 AIAGRPSZ EQU AIA+24 03307000 AIALGE EQU AIAGRPSZ 03308000 FLC EQU PSA 03309000 * START UNREFERENCED COMPONENTS 03310000 AIADPXCT EQU AIALGE 03311000 AIACEPTR EQU AIALPMEP 03312000 AIASLOT EQU AIASSID+1 03313000 @NM00062 EQU AIASSID 03314000 @NM00061 EQU AIALSID 03315000 AIARCSN EQU AIANXAIA+2 03316000 AIACYL EQU AIANXAIA 03317000 AIARSV9 EQU AIAFLG3 03318000 AIARSV8 EQU AIAFLG3 03319000 AIARSV7 EQU AIAFLG3 03320000 AIALPMEC EQU AIAFLG3 03321000 AIARSV6 EQU AIAFLG3 03322000 AIATRPSP EQU AIAFLG3 03323000 AIAPRINO EQU AIAFLG3 03324000 AIARSV5 EQU AIAFLG3 03325000 AIABADID EQU AIAFLG2 03326000 AIAERROR EQU AIAFLG2 03327000 AIASECER EQU AIAFLG2 03328000 AIAPRIER EQU AIAFLG2 03329000 AIARSV4 EQU AIAFLG2 03330000 AIAIORTY EQU AIAFLG2 03331000 AIATERMR EQU AIAFLG2 03332000 AIARSV1 EQU AIAFLG1 03333000 AIASWPFX EQU AIAFLG1 03334000 AIAPAGDS EQU AIAFLG1 03335000 AIALSQA EQU AIAFLG1 03336000 AIADUPLX EQU AIAFLG1 03337000 AIAOP EQU AIA+8 03338000 AIABQPA EQU AIA+4 03339000 AIAFQPA EQU AIA 03340000 @NM00060 EQU @NM00059 03341000 PARMVSA EQU PARMBLD2+1 03342000 @NM00057 EQU @NM00055+3 03343000 @NM00056 EQU @NM00055 03344000 ACATORPN EQU ACATOLP+4 03345000 ACAMAXPN EQU ACATOLGI 03346000 ACARSV4 EQU ACA+4 03347000 ACARSV3 EQU ACAFLG1 03348000 ACARSV2 EQU ACAFLG1 03349000 ACARSV1 EQU ACAFLG1 03350000 ACAFSYM EQU ACAFLG1 03351000 ACAFSPL EQU ACAFLG1 03352000 ACAFFIX EQU ACAFLG1 03353000 ACARSV5 EQU ACAFLG1 03354000 ACAFMEM EQU ACAFLG1 03355000 ASM5FLGS EQU ASM5WKSV+64 03356000 ASM5AIA EQU ASM5WKSV+60 03357000 ASM5GCTR EQU ASM5WKSV+56 03358000 ASM5SR14 EQU ASM5WKSV+52 03359000 @NM00054 EQU ASM5RGSV+4 03360000 ASM5RG2 EQU ASM5RGSV 03361000 @NM00053 EQU ASM4RGSV+4 03362000 ASM4RG2 EQU ASM4RGSV 03363000 ASM3SR13 EQU ASM3WKSV+28 03364000 ASM3R14B EQU ASM3WKSV+24 03365000 ASM3R14A EQU ASM3WKSV+20 03366000 ASM3GRPA EQU ASM3WKSV+16 03367000 ASM3TMPA EQU ASM3WKSV+12 03368000 ASM3PIOP EQU ASM3WKSV+8 03369000 ASM3GENQ EQU ASM3WKSV+4 03370000 ASM3SWPQ EQU ASM3WKSV 03371000 ASM2SR14 EQU ASM2WRKA+16 03372000 @NM00052 EQU ASM2WRKA+13 03373000 ASM2WFLG EQU ASM2FLGS 03374000 ASM2RFLG EQU ASM2FLGS 03375000 ASM2DUPQ EQU ASM2WRKA+8 03376000 ASM2CAQ EQU ASM2WRKA+4 03377000 ASM2PAQ EQU ASM2WRKA 03378000 ASM2RGSV EQU ASM2WKSV 03379000 ASM1NXTA EQU ASM1WRKA+4 03380000 ASM1ASCB EQU ASM1WRKA 03381000 ASM1RG15 EQU ASM1RGSV+56 03382000 @NM00051 EQU ASM1RGSV+4 03383000 ASM1RG1 EQU ASM1RGSV 03384000 PSARSAV EQU PSARSVTE+60 03385000 PSARSTK EQU PSARSVTE+56 03386000 PSAESAV3 EQU PSARSVTE+52 03387000 PSAESTK3 EQU PSARSVTE+48 03388000 PSAESAV2 EQU PSARSVTE+44 03389000 PSAESTK2 EQU PSARSVTE+40 03390000 PSAESAV1 EQU PSARSVTE+36 03391000 PSAESTK1 EQU PSARSVTE+32 03392000 PSAPSAV EQU PSARSVTE+28 03393000 PSAPSTK EQU PSARSVTE+24 03394000 PSAMSAV EQU PSARSVTE+20 03395000 PSAMSTK EQU PSARSVTE+16 03396000 PSASSAV EQU PSARSVTE+12 03397000 PSASSTK EQU PSARSVTE+8 03398000 PSANSTK EQU PSARSVTE+4 03399000 CVTRV628 EQU CVTS01+728 03400000 CVTRV627 EQU CVTS01+724 03401000 CVTRV626 EQU CVTS01+720 03402000 CVTRV625 EQU CVTS01+716 03403000 CVTRV624 EQU CVTS01+712 03404000 CVTRV623 EQU CVTS01+708 03405000 CVTRV622 EQU CVTS01+704 03406000 CVTRV621 EQU CVTS01+700 03407000 CVTIHASU EQU CVTS01+696 03408000 CVTSUSP EQU CVTS01+692 03409000 CVTT6SVC EQU CVTS01+688 03410000 CVTCDAL EQU CVTS01+684 03411000 CVTTCTL EQU CVTS01+680 03412000 CVTRSUME EQU CVTS01+676 03413000 CVTJTERM EQU CVTS01+672 03414000 CVTASMRM EQU CVTS01+668 03415000 CVTTCASP EQU CVTS01+664 03416000 CVT0PT03 EQU CVTS01+660 03417000 CVT0PT0E EQU CVTS01+656 03418000 CVTRV609 EQU CVTS01+652 03419000 CVTCGK EQU CVTS01+648 03420000 CVTRAC EQU CVTS01+644 03421000 CVTHSM EQU CVTS01+640 03422000 CVTRV605 EQU CVTS01+636 03423000 CVTRV604 EQU CVTS01+632 03424000 CVTEFF02 EQU CVTS01+628 03425000 CVTCBBR EQU CVTS01+624 03426000 CVTSSCR EQU CVTS01+620 03427000 CVTEVENT EQU CVTS01+616 03428000 CVTCRCA EQU CVTS01+612 03429000 CVTTPIO EQU CVTS01+608 03430000 CVTADV EQU CVTS01+604 03431000 CVTGSDAB EQU CVTGSDA 03432000 CVTQV3 EQU CVTS01+596 03433000 CVTQV2 EQU CVTS01+592 03434000 CVTQV1 EQU CVTS01+588 03435000 CVTRPT EQU CVTS01+584 03436000 CVTSSRB EQU CVTS01+580 03437000 CVTCSDRL EQU CVTS01+576 03438000 CVTEXP1 EQU CVTS01+572 03439000 CVTRMPMT EQU CVTS01+568 03440000 CVTRMPTT EQU CVTS01+564 03441000 CVTVPSA EQU CVTS01+560 03442000 CVTVSTOP EQU CVTS01+556 03443000 CVTGTFR8 EQU CVTS01+552 03444000 CVTQUIT EQU CVTS01+548 03445000 CVTVACR EQU CVTS01+544 03446000 CVTWTCB EQU CVTS01+540 03447000 CVTSTPRS EQU CVTS01+536 03448000 CVT0PT02 EQU CVTS01+532 03449000 CVTDARCM EQU CVTS01+528 03450000 CVTIRECM EQU CVTS01+524 03451000 CVTJRECM EQU CVTS01+520 03452000 CVTVEMS0 EQU CVTS01+516 03453000 CVTSPFRR EQU CVTS01+512 03454000 CVTRLSTG EQU CVTS01+508 03455000 CVT0TC0A EQU CVTS01+504 03456000 CVTGMBR EQU CVTS01+500 03457000 CVTLFRM EQU CVTS01+496 03458000 CVTRMBR EQU CVTS01+492 03459000 CVTVIOP EQU CVTS01+488 03460000 CVTRV307 EQU CVTS01+486 03461000 CVTRV306 EQU CVTS01+484 03462000 CVTRV305 EQU CVTS01+482 03463000 CVTRV304 EQU CVTS01+480 03464000 CVTRV303 EQU CVTS01+478 03465000 CVTRV302 EQU CVTS01+476 03466000 CVTTRCA EQU CVTS01+472 03467000 CVTRV297 EQU CVTRV289 03468000 CVTRV296 EQU CVTRV289 03469000 CVTRV295 EQU CVTRV289 03470000 CVTRV294 EQU CVTRV289 03471000 CVTRV293 EQU CVTRV289 03472000 CVTRV292 EQU CVTRV289 03473000 CVTRV291 EQU CVTRV289 03474000 CVTRV290 EQU CVTRV289 03475000 CVTRV288 EQU CVTRV280 03476000 CVTRV287 EQU CVTRV280 03477000 CVTRV286 EQU CVTRV280 03478000 CVTRV285 EQU CVTRV280 03479000 CVTRV284 EQU CVTRV280 03480000 CVTRV283 EQU CVTRV280 03481000 CVTRV282 EQU CVTRV280 03482000 CVTRV281 EQU CVTRV280 03483000 CVTRV279 EQU CVTRV271 03484000 CVTRV278 EQU CVTRV271 03485000 CVTRV277 EQU CVTRV271 03486000 CVTRV276 EQU CVTRV271 03487000 CVTRV275 EQU CVTRV271 03488000 CVTRV274 EQU CVTRV271 03489000 CVTRV273 EQU CVTRV271 03490000 CVTRV272 EQU CVTRV271 03491000 CVTRV270 EQU CVTRV262 03492000 CVTRV269 EQU CVTRV262 03493000 CVTRV268 EQU CVTRV262 03494000 CVTRV267 EQU CVTRV262 03495000 CVTRV266 EQU CVTRV262 03496000 CVTRV265 EQU CVTRV262 03497000 CVTRV264 EQU CVTRV262 03498000 CVTRV263 EQU CVTRV262 03499000 CVTVFP EQU CVTS01+464 03500000 CVTVSI EQU CVTS01+460 03501000 CVTVPSIB EQU CVTS01+456 03502000 CVTMFACT EQU CVTMFRTR 03503000 CVTMFCTL EQU CVTS01+448 03504000 CVTPVBP EQU CVTS01+444 03505000 CVTPWI EQU CVTS01+440 03506000 CVTRV254 EQU CVTS01+438 03507000 CVTRV253 EQU CVTS01+436 03508000 CVTRV252 EQU CVTS01+434 03509000 CVTRV251 EQU CVTS01+433 03510000 CVTRV250 EQU CVTS01+432 03511000 CVTRV249 EQU CVTS01+431 03512000 CVTRV248 EQU CVTS01+430 03513000 CVTRV247 EQU CVTS01+429 03514000 CVTRV246 EQU CVTS01+428 03515000 CVTRV245 EQU CVTRV237 03516000 CVTRV244 EQU CVTRV237 03517000 CVTRV243 EQU CVTRV237 03518000 CVTRV242 EQU CVTRV237 03519000 CVTRV241 EQU CVTRV237 03520000 CVTRV240 EQU CVTRV237 03521000 CVTRV239 EQU CVTRV237 03522000 CVTRV238 EQU CVTRV237 03523000 CVTRV236 EQU CVTRV228 03524000 CVTRV235 EQU CVTRV228 03525000 CVTRV234 EQU CVTRV228 03526000 CVTRV233 EQU CVTRV228 03527000 CVTRV232 EQU CVTRV228 03528000 CVTRV231 EQU CVTRV228 03529000 CVTRV230 EQU CVTRV228 03530000 CVTRV229 EQU CVTRV228 03531000 CVTRV227 EQU CVTRV219 03532000 CVTRV226 EQU CVTRV219 03533000 CVTRV225 EQU CVTRV219 03534000 CVTRV224 EQU CVTRV219 03535000 CVTRV223 EQU CVTRV219 03536000 CVTRV222 EQU CVTRV219 03537000 CVTRV221 EQU CVTRV219 03538000 CVTRV220 EQU CVTRV219 03539000 CVTRV218 EQU CVTRV210 03540000 CVTRV217 EQU CVTRV210 03541000 CVTRV216 EQU CVTRV210 03542000 CVTRV215 EQU CVTRV210 03543000 CVTRV214 EQU CVTRV210 03544000 CVTRV213 EQU CVTRV210 03545000 CVTRV212 EQU CVTRV210 03546000 CVTRV211 EQU CVTRV210 03547000 CVTLCCAT EQU CVTS01+420 03548000 CVTPCCAT EQU CVTS01+416 03549000 CVTIPCRP EQU CVTS01+412 03550000 CVTIPCRI EQU CVTS01+408 03551000 CVTIPCDS EQU CVTS01+404 03552000 CVTAIDVT EQU CVTS01+400 03553000 CVTSSAP EQU CVTS01+396 03554000 CVTEHCIR EQU CVTS01+392 03555000 CVTEHDEF EQU CVTS01+388 03556000 CVTDAIR EQU CVTS01+384 03557000 CVTPERFM EQU CVTS01+380 03558000 CVT044R2 EQU CVTS01+376 03559000 CVTFETCH EQU CVTS01+372 03560000 CVTRSTWD EQU CVTS01+368 03561000 CVTSPOST EQU CVTS01+364 03562000 CVTIOBP EQU CVTS01+360 03563000 CVTRECRQ EQU CVTS01+352 03564000 CVTWSAC EQU CVTS01+348 03565000 CVTRV149 EQU CVTS01+344 03566000 CVTWSAL EQU CVTS01+340 03567000 CVTGLMN EQU CVTS01+332 03568000 CVTVEAC0 EQU CVTS01+328 03569000 CVT062R1 EQU CVTS01+324 03570000 CVTRPOST EQU CVTS01+320 03571000 CVTDQIQE EQU CVTS01+316 03572000 CVTCSD EQU CVTS01+312 03573000 CVTLKRMA EQU CVTS01+308 03574000 CVTRSPIE EQU CVTS01+304 03575000 CVTRENQ EQU CVTS01+300 03576000 CVTLQCB EQU CVTS01+296 03577000 CVTFQCB EQU CVTS01+292 03578000 CVTQCS01 EQU CVTS01+288 03579000 CVTAPFT EQU CVTS01+284 03580000 CVTPARRL EQU CVTS01+280 03581000 CVTVWAIT EQU CVTS01+276 03582000 CVTGSPL EQU CVTS01+272 03583000 CVTLSMQ EQU CVTS01+268 03584000 CVTGSMQ EQU CVTS01+264 03585000 CVTEXPRO EQU CVTS01+260 03586000 CVTOPCTP EQU CVTS01+256 03587000 CVTSIC EQU CVTS01+252 03588000 CVTTPIOS EQU CVTS01+248 03589000 CVTRTMS EQU CVTS01+244 03590000 CVTSDBF EQU CVTS01+240 03591000 CVTSCBP EQU CVTS01+236 03592000 CVTSDMP EQU CVTS01+232 03593000 CVTSV60 EQU CVTS01+228 03594000 CVTRTMCT EQU CVTS01+224 03595000 CVTASCBL EQU CVTS01+220 03596000 CVTASCBH EQU CVTS01+216 03597000 CVTGDA EQU CVTS01+212 03598000 CVTASVT EQU CVTS01+208 03599000 CVTVVMDI EQU CVTS01+204 03600000 CVTAQTOP EQU CVTS01+200 03601000 CVTIOSCS EQU CVTS01+196 03602000 CVTSDRM EQU CVTS01+192 03603000 CVTOPTE EQU CVTS01+188 03604000 CVTSTXU EQU CVTS01+184 03605000 CVTQUIS EQU CVTS01+180 03606000 CVTPARS EQU CVTS01+176 03607000 CVTS1EE EQU CVTS01+172 03608000 CVTFRAS EQU CVTS01+168 03609000 CVTQSAS EQU CVTS01+164 03610000 CVTCRAS EQU CVTS01+160 03611000 CVTCRMN EQU CVTS01+156 03612000 CVTDELCP EQU CVTS01+152 03613000 CVTFRECL EQU CVTS01+148 03614000 CVTGETCL EQU CVTS01+144 03615000 CVTBLDCP EQU CVTS01+140 03616000 CVTAUTHL EQU CVTS01+136 03617000 CVTSCAN EQU CVTS01+132 03618000 CVTRV144 EQU CVTS01+130 03619000 CVTMAXMP EQU CVTS01+128 03620000 CVTSTCK EQU CVTS01+124 03621000 CVTRV139 EQU CVTS01+123 03622000 CVTDSSAC EQU CVTS01+122 03623000 CVTRV513 EQU CVTS01+121 03624000 CVTIOSPL EQU CVTS01+120 03625000 CVTPTGT EQU CVTS01+116 03626000 CVTCSPIE EQU CVTS01+112 03627000 CVTSMFEX EQU CVTS01+108 03628000 CVTOLT0A EQU CVTS01+104 03629000 CVTSRBRT EQU CVTS01+100 03630000 CVTPUTL EQU CVTS01+96 03631000 CVTASCRL EQU CVTS01+92 03632000 CVTASCRF EQU CVTS01+88 03633000 CVTRV326 EQU CVTS01+84 03634000 CVTRV325 EQU CVTS01+80 03635000 CVTRV324 EQU CVTS01+76 03636000 CVT0VL01 EQU CVTS01+72 03637000 CVTSHRVM EQU CVTS01+68 03638000 CVTRV332 EQU CVTS01+64 03639000 CVTTAS EQU CVTS01+60 03640000 CVTRSCN EQU CVTS01+56 03641000 CVTTRAC2 EQU CVTS01+54 03642000 CVTTRACE EQU CVTS01+52 03643000 CVTAPG EQU CVTS01+51 03644000 CVTSDTRC EQU CVTCTLFG 03645000 CVTGTRCE EQU CVTCTLFG 03646000 CVTNOMP EQU CVTCTLFG 03647000 CVTRSV79 EQU CVTCTLFG 03648000 CVTDSTAT EQU CVTCTLFG 03649000 CVTRSV78 EQU CVTCTLFG 03650000 CVTRV333 EQU CVTCTLFG 03651000 CVTRV323 EQU CVTCTLFG 03652000 CVTSPVLK EQU CVTS01+49 03653000 CVTRSV77 EQU CVTS01+48 03654000 CVTRV331 EQU CVTS01+44 03655000 CVTRV330 EQU CVTS01+40 03656000 CVTRV329 EQU CVTS01+36 03657000 CVTRV328 EQU CVTS01+32 03658000 CVTRV322 EQU CVTS01+28 03659000 CVTSLID EQU CVTSLIDA+1 03660000 CVTSYLK EQU CVTSLIDA 03661000 CVTRV321 EQU CVTS01+20 03662000 CVTRV320 EQU CVTS01+16 03663000 CVTLPDIR EQU CVTLPDIA+1 03664000 CVTRSV69 EQU CVTDIRST 03665000 CVTRSV68 EQU CVTDIRST 03666000 CVTRSV67 EQU CVTDIRST 03667000 CVTRSV66 EQU CVTDIRST 03668000 CVTRSV65 EQU CVTDIRST 03669000 CVTRSV64 EQU CVTDIRST 03670000 CVTRSV63 EQU CVTDIRST 03671000 CVTDICOM EQU CVTDIRST 03672000 CVTLPDSR EQU CVTS01+4 03673000 CVTGETL EQU CVTS01 03674000 REG14WD EQU REGSAVER+56 03675000 REG13WD EQU REGSAVER+52 03676000 REG12WD EQU REGSAVER+48 03677000 REG11WD EQU REGSAVER+44 03678000 REG10WD EQU REGSAVER+40 03679000 REG9WD EQU REGSAVER+36 03680000 REG8WD EQU REGSAVER+32 03681000 REG7WD EQU REGSAVER+28 03682000 REG6WD EQU REGSAVER+24 03683000 REG5WD EQU REGSAVER+20 03684000 REG4WD EQU REGSAVER+16 03685000 REG3WD EQU REGSAVER+12 03686000 ASMCPRES EQU ASMCPRSQ+4 03687000 ASMCPTAK EQU ASMCPRSQ 03688000 ASMCPCNT EQU ASMCPAVQ+4 03689000 ASMCPAVL EQU ASMCPAVQ 03690000 ASMCPEXT EQU ASMPOOLS+6 03691000 ASMCPSIZ EQU ASMPOOLS+4 03692000 ASMCPID EQU ASMPOOLS 03693000 ASMRSV12 EQU ASMVT+1000 03694000 ASMSAVE EQU ASMVT+928 03695000 ASMWKSA7 EQU ASMVT+848 03696000 ASMWKSA6 EQU ASMVT+768 03697000 ASMACEPC EQU ASMVT+344 03698000 ASMSWKPC EQU ASMVT+328 03699000 ASMBWKPC EQU ASMVT+312 03700000 ASMIOEPC EQU ASMVT+296 03701000 ASMRSV10 EQU ASMVT+280 03702000 ASMPVACE EQU ASMVT+276 03703000 ASMPIOFR EQU ASMVT+272 03704000 ASMPVACQ EQU ASMVT+268 03705000 ASMPMSGS EQU ASMVT+264 03706000 ASMPMSG0 EQU ASMVT+260 03707000 ASMPFRLG EQU ASMVT+256 03708000 ASMPRLG EQU ASMVT+252 03709000 ASMPACT EQU ASMVT+248 03710000 ASMPSAV EQU ASMVT+244 03711000 ASMPCMP EQU ASMVT+240 03712000 ASMPCMPA EQU ASMVT+236 03713000 ASMPCMPN EQU ASMVT+232 03714000 ASMPCMPD EQU ASMVT+228 03715000 ASMPEX EQU ASMVT+224 03716000 ASMVRMTR EQU ASMVT+220 03717000 ASMPSRBC EQU ASMVT+216 03718000 ASMPSRMT EQU ASMVT+212 03719000 ASMPSWPD EQU ASMVT+208 03720000 ASMPTM EQU ASMVT+204 03721000 ASMPFRSW EQU ASMVT+200 03722000 ASMPFRSL EQU ASMVT+196 03723000 ASMPQIOE EQU ASMVT+192 03724000 ASMRSV8 EQU ASMVT+188 03725000 ASMVSAMW EQU ASMVT+184 03726000 ASMTASCB EQU ASMVT+180 03727000 ASMRLGWQ EQU ASMVT+176 03728000 ASMRLGRQ EQU ASMVT+172 03729000 ASMTMECB EQU ASMVT+168 03730000 ASMTCBPT EQU ASMVT+164 03731000 ASMREQCT EQU ASMVT+160 03732000 ASMGOSWK EQU ASMGOSQS+4 03733000 ASMGOSWT EQU ASMGOSQS 03734000 ASMLSAIH EQU ASMLSAI+4 03735000 ASMLSAIL EQU ASMLSAI 03736000 ASMCINV EQU ASMVT+140 03737000 ASMSTGXA EQU ASMVT+136 03738000 ASMLGVT EQU ASMVT+132 03739000 ASMSLOTV EQU ASMVT+128 03740000 ASMERRS EQU ASMVT+124 03741000 ASMNVSC EQU ASMVT+120 03742000 ASMVSC EQU ASMVT+116 03743000 ASMSLOTS EQU ASMVT+112 03744000 ASMBKSLT EQU ASMVT+108 03745000 ASMRSV7 EQU ASMVT+92 03746000 ASMPSRB EQU ASMVT+88 03747000 ASMSRBCT EQU ASMVT+84 03748000 ASMIOCNT EQU ASMVT+80 03749000 ASMBURST EQU ASMVT+76 03750000 ASMPCCWN EQU ASMVT+72 03751000 ASMPCCWC EQU ASMPCCWQ+4 03752000 ASMPCCWA EQU ASMPCCWQ 03753000 ASMRSV6 EQU ASMVT+48 03754000 ASMIORQC EQU ASMVT+44 03755000 ASMIORQR EQU ASMVT+40 03756000 ASMSTAGL EQU ASMSTAGQ+4 03757000 ASMSTAGF EQU ASMSTAGQ 03758000 ASMRSV5 EQU ASMVT+28 03759000 ASMMSGBF EQU ASMVT+24 03760000 ASMEREC EQU ASMVT+20 03761000 ASMPART EQU ASMVT+8 03762000 ASMSART EQU ASMVT+4 03763000 ASMDSSFS EQU ASMVT+2 03764000 ASMWARM EQU ASMFLAG2 03765000 ASMQUICK EQU ASMFLAG2 03766000 ASMNOTPT EQU ASMFLAG2 03767000 ASMNOTMR EQU ASMFLAG2 03768000 ASMNOSAV EQU ASMFLAG2 03769000 ASMCALLQ EQU ASMFLAG2 03770000 ASMPLPAS EQU ASMFLAG1 03771000 ASMCOMMF EQU ASMFLAG1 03772000 ASMPLPAF EQU ASMFLAG1 03773000 ASMNODPX EQU ASMFLAG1 03774000 ASMRSV1 EQU ASMFLAG1 03775000 ASMNOLCL EQU ASMFLAG1 03776000 ASMNOCWQ EQU ASMFLAG1 03777000 ASMDUPLX EQU ASMFLAG1 03778000 FRRSPARM EQU FRRSENTR+8 03779000 @NM00050 EQU FRRSFLGS+1 03780000 @NM00049 EQU FRRSFLG1 03781000 FRRSNEST EQU FRRSFLG1 03782000 FRRSRCUR EQU FRRSFLG1 03783000 FRRSFRRA EQU FRRSENTR 03784000 FRRSENTS EQU FRRS+84 03785000 FRRSRTMW EQU FRRS+16 03786000 FRRSCURR EQU FRRSHEAD+12 03787000 FRRSELEN EQU FRRSHEAD+8 03788000 FRRSLAST EQU FRRSHEAD+4 03789000 FRRSEMP EQU FRRSHEAD 03790000 RCARETAD EQU RCA+20 03791000 RCATASID EQU RCA+18 03792000 RCAREP1 EQU RCANAME6 03793000 RCAPSIF EQU RCANAME6 03794000 RCAPSIX EQU RCANAME6 03795000 RCAVEQRP EQU RCANAME6 03796000 RCARCFC EQU RCANAME6 03797000 RCACSGB EQU RCANAME6 03798000 RCAFXL EQU RCANAME6 03799000 RCAPS113 EQU RCANAME6 03800000 RCAFREE EQU RCANAME5 03801000 RCARFR2 EQU RCANAME5 03802000 RCACPBR EQU RCANAME5 03803000 RCAOPBR EQU RCANAME5 03804000 RCASORT EQU RCANAME5 03805000 RCASIRT EQU RCANAME5 03806000 RCARELV EQU RCANAME5 03807000 RCARELF EQU RCANAME5 03808000 RCAGFAD EQU RCANAME4 03809000 RCAVEQRI EQU RCANAME4 03810000 RCAVEQRF EQU RCANAME4 03811000 RCAVEQRC EQU RCANAME4 03812000 RCATERM EQU RCANAME4 03813000 RCASQA EQU RCANAME4 03814000 RCASWIN EQU RCANAME4 03815000 RCASOUT EQU RCANAME4 03816000 RCARFR EQU RCANAME3 03817000 RCARELS EQU RCANAME3 03818000 RCARCFI EQU RCANAME3 03819000 RCARCF EQU RCANAME3 03820000 RCAPSII EQU RCANAME3 03821000 RCAPSIB EQU RCANAME3 03822000 RCAPS112 EQU RCANAME3 03823000 RCAPIX EQU RCANAME3 03824000 RCAPIOP EQU RCANAME2 03825000 RCASWPC EQU RCANAME2 03826000 RCASWPP EQU RCANAME2 03827000 RCAPFTE EQU RCANAME2 03828000 RCAPCB EQU RCANAME2 03829000 RCAOUT EQU RCANAME2 03830000 RCAITAS EQU RCANAME2 03831000 RCAIOCP EQU RCANAME2 03832000 RCAINV EQU RCANAME1 03833000 RCAGFA EQU RCANAME1 03834000 RCAFXLD EQU RCANAME1 03835000 RCAVEQR EQU RCANAME1 03836000 RCADSEG EQU RCANAME1 03837000 RCADLAS EQU RCANAME1 03838000 RCACSEG EQU RCANAME1 03839000 @NM00048 EQU RCAFLAGS 03840000 RCADISP EQU RCAFLAGS 03841000 @NM00047 EQU RCAFLAGS 03842000 RCAQS EQU RCAFLAGS 03843000 RCAPSIER EQU RCAFLAGS 03844000 RCAABEND EQU RCAFLAGS 03845000 RCALL EQU RCAFLAGS 03846000 @NM00046 EQU RCANAME7 03847000 RCAPRSS EQU RCANAME7 03848000 RCAPRSR EQU RCANAME7 03849000 RCAPRSB EQU RCANAME7 03850000 RCAPSIY EQU RCANAME7 03851000 RCAPIOI EQU RCANAME7 03852000 RCAPARM1 EQU RCA+4 03853000 RCAPARM0 EQU RCA 03854000 @NM00045 EQU PGTBITS 03855000 @NM00044 EQU PGTBITS 03856000 @NM00043 EQU PGTBITS 03857000 @NM00042 EQU PGTBITS 03858000 @NM00041 EQU PGTBITS 03859000 @NM00040 EQU PGTBITS 03860000 PGTREAL EQU PGTRSA 03861000 XPTLSID2 EQU XPTLPN 03862000 @NM00039 EQU XPTFLAG2 03863000 XPTRES1 EQU XPTFLAG2 03864000 XPTRSV4 EQU XPTFLAGS 03865000 XPTRES2 EQU XPTFLAGS 03866000 @NM00038 EQU XPTFLAGS 03867000 XPTCKF EQU XPTFLAGS 03868000 XPTRSV1 EQU XPTE+1 03869000 PCBRWRKB EQU PCBR+60 03870000 PCBRWRKA EQU PCBR+56 03871000 PCBRWRK9 EQU PCBR+52 03872000 PCBRWRK8 EQU PCBR+48 03873000 PCBRWRK7 EQU PCBR+44 03874000 PCBRWRK6 EQU PCBR+40 03875000 PCBRWRK5 EQU PCBR+36 03876000 PCBRWRK4 EQU PCBR+32 03877000 PCBRWRK3 EQU PCBR+28 03878000 PCBRWRK2 EQU PCBR+24 03879000 PCBRWRK1 EQU PCBR+20 03880000 PCBRRSV1 EQU PCBR+18 03881000 PCBRASCB EQU PCBR+12 03882000 PCBRECB EQU PCBR+8 03883000 PCBRTCBA EQU PCBRTCB+1 03884000 PCBRPOF EQU PCBRFLAG 03885000 PCBRFECB EQU PCBRFLAG 03886000 PCBRLOAD EQU PCBRFLAG 03887000 PCBRFAIL EQU PCBRFLAG 03888000 PCBRFPCB EQU PCBRFLAG 03889000 PCBRPB EQU PCBRFLAG 03890000 PCBRETRY EQU PCBRFLAG 03891000 PCBRINT EQU PCBRFLAG 03892000 PCBEND EQU PCB+64 03893000 PCBSPCTE EQU PCBRB 03894000 PCBSWPS2 EQU PCBFL3 03895000 @NM00037 EQU PCBFL3 03896000 PCBDFRLS EQU PCBFL3 03897000 PCBSWPLS EQU PCBFL3 03898000 PCBSWPS1 EQU PCBFL3 03899000 PCBSWPIN EQU PCBFL3 03900000 PCBSWPOT EQU PCBFL3 03901000 @NM00036 EQU PCBFL2 03902000 @NM00035 EQU PCBFL2 03903000 PCBSUPRS EQU PCBFL2 03904000 PCBIOERR EQU PCBFL2 03905000 PCBGFAD EQU PCBFL2 03906000 PCBFXC EQU PCBRLP 03907000 PCBLFR EQU PCBFL1 03908000 PCBLLHLD EQU PCBFL1 03909000 PCBPEX EQU PCBFL1 03910000 @NM00034 EQU PCBFL1 03911000 PCBBQPA EQU PCBBQP 03912000 PCBCQN EQU PCBFQP 03913000 @NM00033 EQU PFTFLAG2 03914000 @NM00032 EQU PFTFLAG2 03915000 PFTPREF EQU PFTFLAG2 03916000 PFTSTEAL EQU PFTFLAG2 03917000 PFTVR EQU PFTFLAG2 03918000 PFTOFFLN EQU PFTFLAG2 03919000 PFTDFRLS EQU PFTFLAG2 03920000 PFTVRALC EQU PFTFLAG1 03921000 PFTVRPLT EQU PFTFLAG1 03922000 PFTONAVQ EQU PFTFLAG1 03923000 PFTRSV1 EQU PFTE+10 03924000 PFTFXCT EQU PFTE+8 03925000 PFTBQPTR EQU PFTQPTRS+2 03926000 PFTFQPTR EQU PFTQPTRS 03927000 RSMASMHD EQU RSMHD+40 03928000 RSMFOEQ EQU RSMHD+36 03929000 RSMLIOQL EQU RSMLIOQ+4 03930000 RSMLSQAL EQU RSMLSQA+2 03931000 RSMLSQAF EQU RSMLSQA 03932000 RSMLFQL EQU RSMLFQ+2 03933000 RSMLFQF EQU RSMLFQ 03934000 RSMRSV2 EQU RSMHD+16 03935000 RSMCNTFX EQU RSMHD+14 03936000 RSMRSV1 EQU RSMHD+13 03937000 @NM00031 EQU RSMFLG1 03938000 RSMFAIL EQU RSMFLG1 03939000 RSMGFADD EQU RSMFLG1 03940000 RSMCPNC EQU RSMFLG1 03941000 RSMCPNU EQU RSMFLG1 03942000 RSMGFAD EQU RSMFLG1 03943000 RSMIOCPC EQU RSMFLG1 03944000 RSMIOCPU EQU RSMFLG1 03945000 RSMSPCT EQU RSMHD+4 03946000 RSMVSTO EQU RSMHD 03947000 @NM00030 EQU VCBCPFLG 03948000 @NM00029 EQU VCBCPFLG 03949000 @NM00028 EQU VCBCPFLG 03950000 VCBRSV3 EQU VCBOPFLG 03951000 VCBRSV2 EQU VCBOPFLG 03952000 VCBRSV1 EQU VCBOPFLG 03953000 WSACASMS EQU WSAC+60 03954000 WSACASMD EQU WSAC+56 03955000 WSACCCH EQU WSAC+52 03956000 WSACRRSA EQU WSAC+48 03957000 WSACREST EQU WSAC+44 03958000 WSACRSTI EQU WSAC+40 03959000 WSACABTM EQU WSAC+36 03960000 WSACMF1 EQU WSAC+32 03961000 WSACEDS0 EQU WSAC+28 03962000 WSACIOS EQU WSAC+24 03963000 WSACRTMK EQU WSAC+20 03964000 WSACACR EQU WSAC+16 03965000 WSACTIME EQU WSAC+12 03966000 WSACOPTM EQU WSAC+8 03967000 WSACGTF EQU WSAC+4 03968000 WSACCWSA EQU WSAC 03969000 WSAGSCHE EQU WSAG+40 03970000 WSAGREST EQU WSAG+36 03971000 WSAGNQDQ EQU WSAG+32 03972000 WSAGMEMT EQU WSAG+28 03973000 WSAGOPTM EQU WSAG+24 03974000 WSAGSTAT EQU WSAG+20 03975000 WSAGEMS0 EQU WSAG+16 03976000 WSAGSSRS EQU WSAG+12 03977000 WSAGRSM EQU WSAG+8 03978000 WSAGGMFM EQU WSAG+4 03979000 WSAGPGIO EQU WSAG 03980000 WSALACHP EQU WSAL+56 03981000 WSALEVNT EQU WSAL+48 03982000 WSALSTAE EQU WSAL+44 03983000 WSALSTAT EQU WSAL+40 03984000 WSALWAIT EQU WSAL+36 03985000 WSALPOST EQU WSAL+32 03986000 WSALEXIT EQU WSAL+28 03987000 WSALS2EE EQU WSAL+24 03988000 WSALCIRB EQU WSAL+20 03989000 WSALABTM EQU WSAL+16 03990000 WSALSDMP EQU WSAL+12 03991000 WSALRTM2 EQU WSAL+8 03992000 WSALVALC EQU WSAL+4 03993000 WSALCWSA EQU WSAL 03994000 OUXBEND EQU OUXB+144 03995000 OUXBTSW EQU OUXB+140 03996000 OUXBFIXC EQU OUXB+138 03997000 OUXBNVC EQU OUXB+136 03998000 OUXBUIC EQU OUXB+134 03999000 OUXBVSC EQU OUXB+132 04000000 OUXBILS EQU OUXB+128 04001000 OUXBRSV1 EQU OUXB+126 04002000 OUXBWCT EQU OUXB+124 04003000 OUXBPRS EQU OUXB+120 04004000 OUXBSTD EQU OUXB+116 04005000 OUXBITD EQU OUXB+112 04006000 OUXBMSS EQU OUXB+104 04007000 OUXBCPS EQU OUXB+96 04008000 OUXBAET EQU OUXB+92 04009000 OUXBTRR EQU OUXB+88 04010000 OUXBJBR EQU OUXB+84 04011000 OUXBTRT EQU OUXB+80 04012000 OUXBTRS EQU OUXB+76 04013000 OUXBJBT EQU OUXB+72 04014000 OUXBJBS EQU OUXB+68 04015000 OUXBTRC EQU OUXB+64 04016000 OUXBNQT EQU OUXB+60 04017000 OUXBIOSM EQU OUXB+56 04018000 OUXBSTC EQU OUXB+54 04019000 OUXBIOS EQU OUXB+52 04020000 OUXBSTCT EQU OUXB+48 04021000 OUXBCAPR EQU OUXB+44 04022000 OUXBCAPI EQU OUXB+40 04023000 OUXBVAMI EQU OUXB+28 04024000 OUXBPREC EQU OUXB+24 04025000 OUXBPOUT EQU OUXB+20 04026000 OUXBPIN EQU OUXB+16 04027000 OUXBRSW EQU OUXB+12 04028000 OUXBMET EQU OUXB+8 04029000 OUXBPET EQU OUXB+4 04030000 OUXBNAME EQU OUXB 04031000 ASXBEND EQU ASXB+232 04032000 ASXBRV25 EQU ASXB+228 04033000 ASXBRV24 EQU ASXB+224 04034000 ASXBPT0E EQU ASXB+220 04035000 ASXBCRB4 EQU ASXBCASW+3 04036000 ASXBCRB3 EQU ASXBCASW+2 04037000 ASXBCRB2 EQU ASXBCASW+1 04038000 ASXBCR06 EQU ASXBCRB1 04039000 ASXBCR05 EQU ASXBCRB1 04040000 ASXBCR04 EQU ASXBCRB1 04041000 ASXBCR03 EQU ASXBCRB1 04042000 ASXBCR02 EQU ASXBCRB1 04043000 ASXBCR01 EQU ASXBCRB1 04044000 ASXBTFD EQU ASXBCRB1 04045000 ASXBPIP EQU ASXBCRB1 04046000 ASXBCTDC EQU ASXB+212 04047000 ASXBTDCB EQU ASXB+208 04048000 ASXBRV19 EQU ASXB+204 04049000 ASXBSENV EQU ASXBSECR+1 04050000 ASXBRV34 EQU ASCBSFLG 04051000 ASXBRV33 EQU ASCBSFLG 04052000 ASXBRV32 EQU ASCBSFLG 04053000 ASXBRV31 EQU ASCBSFLG 04054000 ASXBRV30 EQU ASCBSFLG 04055000 ASXBRV29 EQU ASCBSFLG 04056000 ASXBRV28 EQU ASCBSFLG 04057000 ASXBRV27 EQU ASCBSFLG 04058000 ASXBUSER EQU ASXB+192 04059000 ASXBLSRB EQU ASXBAEQ+20 04060000 ASXBFSRB EQU ASXBAEQ+16 04061000 ASXBLRQE EQU ASXBAEQ+12 04062000 ASXBFRQE EQU ASXBAEQ+8 04063000 ASXBLIQE EQU ASXBAEQ+4 04064000 ASXBFIQE EQU ASXBAEQ 04065000 ASXBETSK EQU ASXB+164 04066000 ASXBSIRB EQU ASXB+160 04067000 ASXBPSWD EQU ASXB+152 04068000 ASXBPRG EQU ASXB+136 04069000 ASXBRV26 EQU ASXB+132 04070000 ASXBOUSB EQU ASXB+128 04071000 ASXBDDR EQU ASXB+124 04072000 ASXBRCTD EQU ASXB+120 04073000 ASXBRSMD EQU ASXB+116 04074000 ASXBFRWA EQU ASXB+108 04075000 ASXBFLSA EQU ASXB+36 04076000 ASXBIHSA EQU ASXB+32 04077000 ASXBRV15 EQU ASXB+28 04078000 ASXBRV14 EQU ASXB+24 04079000 ASXBLWA EQU ASXB+20 04080000 ASXBMPST EQU ASXB+16 04081000 ASXBRS00 EQU ASXB+14 04082000 ASXBTCBS EQU ASXB+12 04083000 ASXBLTCB EQU ASXB+8 04084000 ASXBFTCB EQU ASXB+4 04085000 ASXBASXB EQU ASXB 04086000 ASXBEGIN EQU ASXB 04087000 ASCBEND EQU ASCB+208 04088000 ASCBSRBT EQU ASCB+200 04089000 ASCBSWTL EQU ASCB+196 04090000 ASCBRS14 EQU ASCB+195 04091000 ASCBSMCT EQU ASCB+194 04092000 ASCBRS12 EQU ASCB+192 04093000 ASCBPCTT EQU ASCB+188 04094000 ASCBVGTT EQU ASCB+184 04095000 ASCBRV43 EQU ASCBSRQ4 04096000 ASCBRV42 EQU ASCBSRQ4 04097000 ASCBRV41 EQU ASCBSRQ4 04098000 ASCBRV40 EQU ASCBSRQ4 04099000 ASCBRV39 EQU ASCBSRQ4 04100000 ASCBRV38 EQU ASCBSRQ4 04101000 ASCBRV37 EQU ASCBSRQ4 04102000 ASCBRV36 EQU ASCBSRQ4 04103000 ASCBRV35 EQU ASCBSRQ3 04104000 ASCBRV34 EQU ASCBSRQ3 04105000 ASCBRV33 EQU ASCBSRQ3 04106000 ASCBRV32 EQU ASCBSRQ3 04107000 ASCBRV31 EQU ASCBSRQ3 04108000 ASCBRV30 EQU ASCBSRQ3 04109000 ASCBRV29 EQU ASCBSRQ3 04110000 ASCBRV28 EQU ASCBSRQ3 04111000 ASCBRV27 EQU ASCBSRQ2 04112000 ASCBRV26 EQU ASCBSRQ2 04113000 ASCBRV25 EQU ASCBSRQ2 04114000 ASCBRV24 EQU ASCBSRQ2 04115000 ASCBRV23 EQU ASCBSRQ2 04116000 ASCBRV22 EQU ASCBSRQ2 04117000 ASCBRV21 EQU ASCBSRQ2 04118000 ASCBRV20 EQU ASCBSRQ2 04119000 ASCBRV19 EQU ASCBSRQ1 04120000 ASCBRV18 EQU ASCBSRQ1 04121000 ASCBRV17 EQU ASCBSRQ1 04122000 ASCBRV16 EQU ASCBSRQ1 04123000 ASCBRV15 EQU ASCBSRQ1 04124000 ASCBRV14 EQU ASCBSRQ1 04125000 ASCBRV13 EQU ASCBSRQ1 04126000 ASCBSTA EQU ASCBSRQ1 04127000 ASCBJBNS EQU ASCB+176 04128000 ASCBJBNI EQU ASCB+172 04129000 ASCBMCC EQU ASCB+168 04130000 ASCBRTWA EQU ASCB+164 04131000 ASCBIQEA EQU ASCB+160 04132000 ASCBXMPQ EQU ASCB+156 04133000 ASCBRS01 EQU ASCB+154 04134000 ASCBFMCT EQU ASCB+152 04135000 ASCBOUCB EQU ASCB+144 04136000 ASCBMECB EQU ASCB+140 04137000 ASCBQECB EQU ASCB+136 04138000 ASCBLSQH EQU ASCBLKGP+4 04139000 ASCBLOCK EQU ASCBLKGP 04140000 ASCBTCBS EQU ASCB+124 04141000 ASCBNVSC EQU ASCB+122 04142000 ASCBVSC EQU ASCB+120 04143000 ASCBSRBS EQU ASCB+118 04144000 ASCBSSRB EQU ASCB+116 04145000 ASCBRV06 EQU ASCBFLG2 04146000 ASCBRV05 EQU ASCBFLG2 04147000 ASCBRV04 EQU ASCBFLG2 04148000 ASCBSNQS EQU ASCBFLG2 04149000 ASCBS2S EQU ASCBFLG2 04150000 ASCBCEXT EQU ASCBFLG2 04151000 ASCBPXMT EQU ASCBFLG2 04152000 ASCBXMPT EQU ASCBFLG2 04153000 ASCBRF07 EQU ASCBDSP1 04154000 ASCBRF06 EQU ASCBDSP1 04155000 ASCBRF05 EQU ASCBDSP1 04156000 ASCBRF04 EQU ASCBDSP1 04157000 ASCBRF03 EQU ASCBDSP1 04158000 ASCBRF02 EQU ASCBDSP1 04159000 ASCBFAIL EQU ASCBDSP1 04160000 ASCBNOQ EQU ASCBDSP1 04161000 ASCBSWCT EQU ASCB+112 04162000 ASCBTMCH EQU ASCB+104 04163000 ASCBNSWP EQU ASCBFLG1 04164000 ASCBTYP1 EQU ASCBFLG1 04165000 ASCBSTND EQU ASCBFLG1 04166000 ASCBABNT EQU ASCBFLG1 04167000 ASCBTERM EQU ASCBFLG1 04168000 ASCBS3S EQU ASCBFLG1 04169000 ASCBCMSH EQU ASCBFLG1 04170000 ASCBTOFF EQU ASCBFLG1 04171000 ASCBRF01 EQU ASCBRCTF 04172000 ASCBTMLW EQU ASCBRCTF 04173000 ASCBOUT EQU ASCBRCTF 04174000 ASCBWAIT EQU ASCBRCTF 04175000 ASCBRV08 EQU ASCBRCTF 04176000 ASCBFQU EQU ASCBRCTF 04177000 ASCBFRS EQU ASCBRCTF 04178000 ASCBTMNO EQU ASCBRCTF 04179000 ASCBAFFN EQU ASCBFW1 04180000 ASCBDUMP EQU ASCB+96 04181000 ASCBRV44 EQU ASCB+92 04182000 ASCBUBET EQU ASCB+88 04183000 ASCBECB EQU ASCB+84 04184000 ASCBJSTL EQU ASCB+80 04185000 ASCBEWST EQU ASCB+72 04186000 ASCBEJST EQU ASCB+64 04187000 ASCBTSB EQU ASCB+60 04188000 ASCBCSCB EQU ASCB+56 04189000 ASCBRSMA EQU ASCBRSM+1 04190000 ASCBRV54 EQU ASCBRSMF 04191000 ASCBRV53 EQU ASCBRSMF 04192000 ASCBRV52 EQU ASCBRSMF 04193000 ASCBRV51 EQU ASCBRSMF 04194000 ASCBVEQR EQU ASCBRSMF 04195000 ASCBN2LP EQU ASCBRSMF 04196000 ASCB1LPU EQU ASCBRSMF 04197000 ASCB2LPU EQU ASCBRSMF 04198000 ASCBLDA EQU ASCB+48 04199000 ASCBSTOR EQU ASCB+44 04200000 ASCBDP EQU ASCB+43 04201000 ASCBRV07 EQU ASCB+42 04202000 ASCBIOSM EQU ASCB+40 04203000 ASCBSEQN EQU ASCB+38 04204000 ASCBCPUS EQU ASCB+32 04205000 ASCBSPL EQU ASCB+28 04206000 ASCBIOSP EQU ASCB+24 04207000 ASCBSYNC EQU ASCBSUPC+4 04208000 ASCBSVRB EQU ASCBSUPC 04209000 ASCBCMSF EQU ASCB+12 04210000 ASCBBWDP EQU ASCB+8 04211000 ASCBFWDP EQU ASCB+4 04212000 ASCBASCB EQU ASCB 04213000 ASCBEGIN EQU ASCB 04214000 PVTEND EQU PVT+1944 04215000 PVTTASID EQU PVT+1942 04216000 PVTXXXXX EQU PVT+1940 04217000 PVTMVCLC EQU PVT+1936 04218000 PVTVCONS EQU PVT+1896 04219000 PVTPRSB EQU PVT+1892 04220000 PVTCIOQL EQU PVTPCBQS+36 04221000 PVTCIOQF EQU PVTPCBQS+32 04222000 PVTGFADL EQU PVTPCBQS+28 04223000 PVTFPCBL EQU PVTPCBQS+20 04224000 PVTFPCBF EQU PVTPCBQS+16 04225000 PVTPCBQR EQU PVTPCBQS 04226000 PVTLPAFX EQU PVT+1850 04227000 PVTLSQAF EQU PVT+1848 04228000 PVTLPAR EQU PVT+1844 04229000 PVTLPAI EQU PVT+1840 04230000 PVTLPAFC EQU PVT+1838 04231000 PVTCHUIC EQU PVT+1836 04232000 PVTCOMFX EQU PVT+1834 04233000 PVTSQAFX EQU PVT+1832 04234000 PVTCNTFX EQU PVT+1830 04235000 PVTDEFFX EQU PVT+1828 04236000 PVTFIXOK EQU PVT+1826 04237000 PVTPEROK EQU PVT+1824 04238000 PVTMAXFX EQU PVT+1822 04239000 PVTPERFX EQU PVT+1820 04240000 PVTRSRB EQU PVT+1776 04241000 PVTRESV5 EQU PVT+1773 04242000 PVTSRBS EQU PVT+1772 04243000 PVTSSRB EQU PVT+1768 04244000 PVTWSA18 EQU PVTWSAX+1256 04245000 PVTWSA17 EQU PVTWSAX+1184 04246000 PVTWSA16 EQU PVTWSAX+1112 04247000 PVTWSA14 EQU PVTWSAX+968 04248000 PVTWSA13 EQU PVTWSAX+896 04249000 PVTWSA12 EQU PVTWSAX+824 04250000 PVTWSA11 EQU PVTWSAX+752 04251000 PVTWSA10 EQU PVTWSAX+672 04252000 PVTWSA9 EQU PVTWSAX+592 04253000 PVTWSA8 EQU PVTWSAX+504 04254000 PVTWSA7 EQU PVTWSAX+432 04255000 PVTWSA6 EQU PVTWSAX+360 04256000 PVTWSA5 EQU PVTWSAX+288 04257000 PVTWSA3 EQU PVTWSAX+144 04258000 PVTWSA2 EQU PVTWSAX+72 04259000 PVTWSA1 EQU PVTWSAX 04260000 PVTPFTQR EQU PVTQS+20 04261000 PVTRSBQL EQU PVTQS+18 04262000 PVTRSBQF EQU PVTQS+16 04263000 PVTSQAQL EQU PVTQS+14 04264000 PVTSQAQF EQU PVTQS+12 04265000 PVTCFQL EQU PVTQS+10 04266000 PVTCFQF EQU PVTQS+8 04267000 PVTRSRVL EQU PVTQS+6 04268000 PVTRSRVF EQU PVTQS+4 04269000 PVTAFQL EQU PVTQS+2 04270000 PVTAFQF EQU PVTQS 04271000 PVTSPFR EQU PVT+302 04272000 PVTCFMCT EQU PVT+300 04273000 PVTSPREC EQU PVT+296 04274000 PVTCAREC EQU PVT+292 04275000 PVTCAOUT EQU PVT+288 04276000 PVTCAIN EQU PVT+284 04277000 PVTNSWPS EQU PVT+280 04278000 PVTNPREC EQU PVT+276 04279000 PVTSPOUT EQU PVT+272 04280000 PVTSPIN EQU PVT+268 04281000 PVTVAMI EQU PVT+256 04282000 PVTNPOUT EQU PVT+252 04283000 PVTNPIN EQU PVT+248 04284000 PVTSWPIO EQU PVT+232 04285000 PVTPSWPP EQU PVT+228 04286000 PVTPPREF EQU PVT+224 04287000 PVTPRELF EQU PVT+216 04288000 PVTPRELV EQU PVT+212 04289000 PVTPFREE EQU PVT+208 04290000 PVTPRELS EQU PVT+204 04291000 PVTPOUT EQU PVT+200 04292000 PVTPFXLD EQU PVT+196 04293000 PVTPITAS EQU PVT+192 04294000 PVTPSRBP EQU PVT+188 04295000 PVTPDSEG EQU PVT+184 04296000 PVTPCSGB EQU PVT+180 04297000 PVTPCSEG EQU PVT+176 04298000 PVTPSWPC EQU PVT+168 04299000 PVTPSOUT EQU PVT+164 04300000 PVTPSWIN EQU PVT+160 04301000 PVTPRCFI EQU PVT+152 04302000 PVTPRCF EQU PVT+148 04303000 PVTPVRC EQU PVT+144 04304000 PVTPVRIN EQU PVT+140 04305000 PVTPVRLS EQU PVT+136 04306000 PVTPVEQR EQU PVT+132 04307000 PVTPPIOI EQU PVT+128 04308000 PVTPVRPO EQU PVT+124 04309000 PVTPRFR EQU PVT+120 04310000 PVTPFP EQU PVT+112 04311000 PVTREP2 EQU PVT+100 04312000 PVTPIOCP EQU PVT+96 04313000 PVTPIOP EQU PVT+92 04314000 PVTPGFAD EQU PVT+88 04315000 PVTPGFA EQU PVT+84 04316000 PVTPSQA EQU PVT+80 04317000 PVTPSIB EQU PVT+72 04318000 PVTSRBID EQU PVT+68 04319000 PVTPCIWA EQU PVT+64 04320000 PVTHQSA EQU PVT+62 04321000 PVTLQSA EQU PVT+60 04322000 PVTOROOT EQU PVT+56 04323000 PVTREUS EQU PVT+48 04324000 PVTSQNPC EQU PVT+47 04325000 PVTSQVRC EQU PVT+46 04326000 PVTRSUS EQU PVT+44 04327000 PVTVROOT EQU PVT+40 04328000 PVTPCBLO EQU PVT+38 04329000 PVTPCBCT EQU PVT+36 04330000 PVTDFRS EQU PVT+34 04331000 PVTRSQA EQU PVT+32 04332000 PVTPTLB EQU PVT+31 04333000 PVTPCBNO EQU PVT+30 04334000 PVTSRBNO EQU PVT+29 04335000 PVTSQDC EQU PVT+28 04336000 PVTLVR EQU PVT+22 04337000 PVTFVR EQU PVT+20 04338000 PVTLPFN EQU PVT+18 04339000 PVTFPFN EQU PVT+16 04340000 PVTSSPIN EQU PVT+11 04341000 PVTPCBS EQU PVT+10 04342000 PVTPOOL EQU PVT+8 04343000 PVTAFCOK EQU PVT+6 04344000 PVTAFCLO EQU PVT+4 04345000 PVTAFC EQU PVT+2 04346000 @NM00003 EQU PVTFLAG2 04347000 PVTRSMGM EQU PVTFLAG2 04348000 PVTDUMP EQU PVTFLAG1 04349000 PVTSIT EQU PVTFLAG1 04350000 PVTLSI EQU PVTFLAG1 04351000 PVTAPREF EQU PVTFLAG1 04352000 PVTPCBLT EQU PVTFLAG1 04353000 PVTSRBIU EQU PVTFLAG1 04354000 PVTBGMS EQU PVTFLAG1 04355000 PVTPMSG EQU PVTFLAG1 04356000 CVTLEVL EQU CVTRELNO+2 04357000 CVTNUMB EQU CVTRELNO 04358000 CVTMDL EQU CVTFIX+250 04359000 @NM00002 EQU CVTFIX+248 04360000 @NM00001 EQU CVTFIX 04361000 CVTRV482 EQU CVTXTNT2+128 04362000 CVTRV481 EQU CVTXTNT2+124 04363000 CVTRV480 EQU CVTXTNT2+120 04364000 CVTRV479 EQU CVTXTNT2+118 04365000 CVTRV478 EQU CVTXTNT2+117 04366000 CVTRV477 EQU CVTXTNT2+116 04367000 CVTRV476 EQU CVTXTNT2+115 04368000 CVTRV475 EQU CVTXTNT2+114 04369000 CVTRV474 EQU CVTRV466 04370000 CVTRV473 EQU CVTRV466 04371000 CVTRV472 EQU CVTRV466 04372000 CVTRV471 EQU CVTRV466 04373000 CVTRV470 EQU CVTRV466 04374000 CVTRV469 EQU CVTRV466 04375000 CVTRV468 EQU CVTRV466 04376000 CVTRV467 EQU CVTRV466 04377000 CVTRV465 EQU CVTRV457 04378000 CVTRV464 EQU CVTRV457 04379000 CVTRV463 EQU CVTRV457 04380000 CVTRV462 EQU CVTRV457 04381000 CVTRV461 EQU CVTRV457 04382000 CVTRV460 EQU CVTRV457 04383000 CVTRV459 EQU CVTRV457 04384000 CVTRV458 EQU CVTRV457 04385000 CVTRV456 EQU CVTXTNT2+108 04386000 CVTRV455 EQU CVTXTNT2+104 04387000 CVTRV454 EQU CVTXTNT2+100 04388000 CVTRV453 EQU CVTXTNT2+96 04389000 CVTRV452 EQU CVTXTNT2+94 04390000 CVTRV451 EQU CVTXTNT2+92 04391000 CVTRV450 EQU CVTXTNT2+90 04392000 CVTRV449 EQU CVTXTNT2+88 04393000 CVTRV448 EQU CVTXTNT2+87 04394000 CVTRV447 EQU CVTXTNT2+86 04395000 CVTRV446 EQU CVTRV438 04396000 CVTRV445 EQU CVTRV438 04397000 CVTRV444 EQU CVTRV438 04398000 CVTRV443 EQU CVTRV438 04399000 CVTRV442 EQU CVTRV438 04400000 CVTRV441 EQU CVTRV438 04401000 CVTRV440 EQU CVTRV438 04402000 CVTRV439 EQU CVTRV438 04403000 CVTRV437 EQU CVTRV429 04404000 CVTRV436 EQU CVTRV429 04405000 CVTRV435 EQU CVTRV429 04406000 CVTRV434 EQU CVTRV429 04407000 CVTRV433 EQU CVTRV429 04408000 CVTRV432 EQU CVTRV429 04409000 CVTRV431 EQU CVTRV429 04410000 CVTRV430 EQU CVTRV429 04411000 CVTRV428 EQU CVTXTNT2+80 04412000 CVTRV427 EQU CVTXTNT2+76 04413000 CVTRV426 EQU CVTXTNT2+72 04414000 CVTRV425 EQU CVTXTNT2+68 04415000 CVTATACT EQU CVTATCVT 04416000 CVTRV423 EQU CVTXTNT2+62 04417000 CVTRV422 EQU CVTXTNT2+60 04418000 CVTRV421 EQU CVTXTNT2+58 04419000 CVTRV420 EQU CVTXTNT2+56 04420000 CVTRV419 EQU CVTXTNT2+55 04421000 CVTRV418 EQU CVTXTNT2+54 04422000 CVTRV417 EQU CVTRV409 04423000 CVTRV416 EQU CVTRV409 04424000 CVTRV415 EQU CVTRV409 04425000 CVTRV414 EQU CVTRV409 04426000 CVTRV413 EQU CVTRV409 04427000 CVTRV412 EQU CVTRV409 04428000 CVTRV411 EQU CVTRV409 04429000 CVTRV410 EQU CVTRV409 04430000 CVTRV408 EQU CVTRV400 04431000 CVTRV407 EQU CVTRV400 04432000 CVTRV406 EQU CVTRV400 04433000 CVTRV405 EQU CVTRV400 04434000 CVTRV404 EQU CVTRV400 04435000 CVTRV403 EQU CVTRV400 04436000 CVTRV402 EQU CVTRV400 04437000 CVTRV401 EQU CVTRV400 04438000 CVTICB EQU CVTXTNT2+48 04439000 CVTSKTA EQU CVTXTNT2+44 04440000 CVTCCVT EQU CVTXTNT2+40 04441000 CVTRSV98 EQU CVTXTNT2+36 04442000 CVTRSV97 EQU CVTXTNT2+34 04443000 CVTRSV96 EQU CVTXTNT2+32 04444000 CVTOLTEP EQU CVTXTNT2+28 04445000 CVTQIDA EQU CVTQID+1 04446000 CVTRSV95 EQU CVTQID 04447000 CVTRSV94 EQU CVTXTNT2+20 04448000 CVTRSV93 EQU CVTXTNT2+16 04449000 CVTRSV92 EQU CVTXTNT2+12 04450000 CVTDEBVR EQU CVTXTNT2+8 04451000 CVTRSV91 EQU CVTXTNT2+6 04452000 CVTRSV9H EQU CVTFLGBT 04453000 CVTRSV9G EQU CVTFLGBT 04454000 CVTRSV9F EQU CVTFLGBT 04455000 CVTRSV9E EQU CVTFLGBT 04456000 CVTRSV9D EQU CVTFLGBT 04457000 CVTBAH EQU CVTFLGBT 04458000 CVTVME EQU CVTFLGBT 04459000 CVTNPE EQU CVTFLGBT 04460000 CVTNUCLS EQU CVTXTNT2+4 04461000 CVTDSSVA EQU CVTDSSV+1 04462000 CVTRSV89 EQU CVTDSSV 04463000 CVTRSV88 EQU CVTXTNT1+8 04464000 CVTRSV87 EQU CVTXTNT1+4 04465000 CVTFACHN EQU CVTXTNT1 04466000 CVTRV488 EQU CVTMAP+412 04467000 CVTRV487 EQU CVTMAP+408 04468000 CVTRV486 EQU CVTMAP+404 04469000 CVTRV485 EQU CVTMAP+400 04470000 CVTACTAP EQU CVTMAP+396 04471000 CVTAUTH EQU CVTMAP+392 04472000 CVTRV490 EQU CVTMAP+388 04473000 CVTSU EQU CVTMAP+384 04474000 CVTVOLT1 EQU CVTVOLM1+1 04475000 CVTVOLI1 EQU CVTVOLF1 04476000 CVTSTOA EQU CVTMAP+376 04477000 CVTRSV58 EQU CVTMAP+374 04478000 CVTRSV57 EQU CVTMAP+372 04479000 CVTDDCE EQU CVTMAP+368 04480000 CVTPNWFR EQU CVTMAP+364 04481000 CVTSMF EQU CVTMAP+360 04482000 CVTSULK EQU CVTMAP+358 04483000 CVTSLKO EQU CVTSYSK 04484000 CVTSLKP EQU CVTSYSK 04485000 CVTSLKQ EQU CVTSYSK 04486000 CVTSLKR EQU CVTSYSK 04487000 CVTRSV56 EQU CVTSYSK 04488000 CVTRSV55 EQU CVTSYSK 04489000 CVTRSV54 EQU CVTSYSK 04490000 CVTRSV53 EQU CVTSYSK 04491000 CVTRSV52 EQU CVTA1F1 04492000 CVTRSV51 EQU CVTA1F1 04493000 CVTRSV50 EQU CVTA1F1 04494000 CVTRSV49 EQU CVTA1F1 04495000 CVTRSV48 EQU CVTA1F1 04496000 CVTRSV47 EQU CVTA1F1 04497000 CVTSRSW EQU CVTA1F1 04498000 CVTPFSW EQU CVTA1F1 04499000 CVTPCVT EQU CVTMAP+352 04500000 CVTRSV46 EQU CVTMAP+344 04501000 CVTRSV45 EQU CVTMAP+340 04502000 CVTRSV44 EQU CVTMAP+338 04503000 CVTRSV43 EQU CVTMAP+336 04504000 CVTHJESA EQU CVTHJES+1 04505000 CVTRSV42 EQU CVTHJES 04506000 CVTEXT2A EQU CVTEXT2+1 04507000 CVTRSV41 EQU CVTEXT2 04508000 CVTAPFA EQU CVTAPF+1 04509000 CVTRSV40 EQU CVTAPF 04510000 CVTRV518 EQU CVTINTLA 04511000 CVTRV517 EQU CVTERPV 04512000 CVTEORM EQU CVTMAP+312 04513000 CVTMCHPR EQU CVTMAP+308 04514000 CVTTZ EQU CVTMAP+304 04515000 CVTJEPS EQU CVTMAP+300 04516000 CVTJESCT EQU CVTMAP+296 04517000 CVTMODE EQU CVTMAP+292 04518000 CVTPTRV EQU CVTMAP+288 04519000 CVTREAL EQU CVTMAP+284 04520000 CVTRSV39 EQU CVTMAP+280 04521000 CVTRSV38 EQU CVTMAP+276 04522000 CVTDMSRA EQU CVTDMSR+1 04523000 CVTRV634 EQU CVTDMSRF 04524000 CVTRV633 EQU CVTDMSRF 04525000 CVTRV632 EQU CVTDMSRF 04526000 CVTRV631 EQU CVTDMSRF 04527000 CVTRV630 EQU CVTDMSRF 04528000 CVTRV629 EQU CVTDMSRF 04529000 CVTUDUMP EQU CVTDMSRF 04530000 CVTSDUMP EQU CVTDMSRF 04531000 CVTQMSGA EQU CVTQMSG+1 04532000 CVTRSV36 EQU CVTQMSG 04533000 CVTAMFF EQU CVTMAP+264 04534000 CVTPURGA EQU CVTPURG+1 04535000 CVTRSV35 EQU CVTPURG 04536000 CVTCBSP EQU CVTMAP+256 04537000 CVTATERA EQU CVTATER+1 04538000 CVTSYST EQU CVTATER 04539000 CVTVOLT2 EQU CVTTAT 04540000 CVTVOLI2 EQU CVTVOLF2 04541000 CVTAQAVB EQU CVTAQAVT+1 04542000 CVTRSV34 EQU CVTTCMFG 04543000 CVTRSV33 EQU CVTTCMFG 04544000 CVTRSV32 EQU CVTTCMFG 04545000 CVTRSV31 EQU CVTTCMFG 04546000 CVTRSV30 EQU CVTTCMFG 04547000 CVTRSV29 EQU CVTTCMFG 04548000 CVTLDEV EQU CVTTCMFG 04549000 CVTTCRDY EQU CVTTCMFG 04550000 CVTGTFA EQU CVTGTF+1 04551000 CVTRSV27 EQU CVTGTFST 04552000 CVTRNIO EQU CVTGTFST 04553000 CVTUSR EQU CVTGTFST 04554000 CVTRV318 EQU CVTFORM 04555000 CVTRV317 EQU CVTTMODE 04556000 CVTRV316 EQU CVTSTATE 04557000 CVTRV315 EQU CVTGTFS 04558000 CVTGTFAV EQU CVTGTFS 04559000 CVT0SCR1 EQU CVTMAP+232 04560000 CVTRV515 EQU CVTMAP+228 04561000 CVTRMS EQU CVTMAP+224 04562000 CVTPATCH EQU CVTMAP+220 04563000 CVTTSCE EQU CVTMAP+216 04564000 CVTLNKSC EQU CVTMAP+214 04565000 CVTQABST EQU CVTMAP+212 04566000 CVTMDLDS EQU CVTMAP+208 04567000 CVTUSER EQU CVTMAP+204 04568000 CVTABEND EQU CVTMAP+200 04569000 CVTSMCA EQU CVTMAP+196 04570000 CVTRSV18 EQU CVTMAP+192 04571000 CVTQLPAQ EQU CVTMAP+188 04572000 CVTQCDSR EQU CVTMAP+184 04573000 CVTVS1B EQU CVTOPTB 04574000 CVTVS1A EQU CVTOPTB 04575000 CVTFP EQU CVTOPTB 04576000 CVTAPTHR EQU CVTOPTB 04577000 CVTNLOG EQU CVTOPTB 04578000 CVTTOD EQU CVTOPTB 04579000 CVTCTIMS EQU CVTOPTB 04580000 CVTPROT EQU CVTOPTB 04581000 CVTXPFP EQU CVTOPTA 04582000 CVTASCII EQU CVTOPTA 04583000 CVTRSV13 EQU CVTOPTA 04584000 CVTRSV12 EQU CVTOPTA 04585000 CVTNIP EQU CVTOPTA 04586000 CVTDDR EQU CVTOPTA 04587000 CVTAPR EQU CVTOPTA 04588000 CVTCCH EQU CVTOPTA 04589000 CVTSNCTR EQU CVTMAP+180 04590000 CVTQMWR EQU CVTMAP+176 04591000 CVTQOCR EQU CVTMAP+172 04592000 CVT1EF00 EQU CVTMAP+168 04593000 CVTMZ00 EQU CVTMAP+164 04594000 CVTSV76Q EQU CVTSV76C 04595000 CVTRSV11 EQU CVTMAP+156 04596000 CVT0PT01 EQU CVTMAP+152 04597000 CVTMSER EQU CVTMAP+148 04598000 CVTRV516 EQU CVTIERLC 04599000 CVTILCH EQU CVTMAP+140 04600000 CVT0DS EQU CVTMAP+136 04601000 CVTFBOSV EQU CVTMAP+132 04602000 CVTNUCB EQU CVTMAP+128 04603000 CVTIXAVL EQU CVTMAP+124 04604000 CVTSV76M EQU CVTIOQET 04605000 CVTDCBA EQU CVTMAP+117 04606000 CVTMVS2 EQU CVTDCB 04607000 CVT6DAT EQU CVTDCB 04608000 CVT4MPS EQU CVTDCB 04609000 CVTRSV09 EQU CVTDCB 04610000 CVT4MS1 EQU CVTDCB 04611000 CVT2SPS EQU CVTDCB 04612000 CVT1SSS EQU CVTDCB 04613000 CVTRSV08 EQU CVTDCB 04614000 CVTSTB EQU CVTMAP+112 04615000 CVTQTD00 EQU CVTMAP+108 04616000 CVTQTE00 EQU CVTMAP+104 04617000 CVTCUCB EQU CVTMAP+100 04618000 CVTSJQ EQU CVTMAP+96 04619000 CVTPBLDL EQU CVTMAP+92 04620000 CVTTPC EQU CVTMAP+88 04621000 CVTSVDCB EQU CVTMAP+84 04622000 CVTBRET EQU CVTMAP+82 04623000 CVTEXIT EQU CVTMAP+80 04624000 CVT0FN00 EQU CVTMAP+76 04625000 CVTDARA EQU CVTDAR+1 04626000 CVTRSV07 EQU CVTFLGS1 04627000 CVTRSV06 EQU CVTFLGS1 04628000 CVTRSV05 EQU CVTFLGS1 04629000 CVTRSV04 EQU CVTFLGS1 04630000 CVTRSV03 EQU CVTFLGS1 04631000 CVTRSV02 EQU CVTFLGS1 04632000 CVTRSV01 EQU CVTFLGS1 04633000 CVTDMPLK EQU CVTFLGS1 04634000 CVTXITP EQU CVTMAP+68 04635000 CVTZDTAB EQU CVTMAP+64 04636000 CVTMSLT EQU CVTMAP+60 04637000 CVTDATE EQU CVTMAP+56 04638000 CVTBTERM EQU CVTMAP+52 04639000 CVTSYSAD EQU CVTMAP+48 04640000 CVTXTLER EQU CVTMAP+44 04641000 CVTILK2 EQU CVTMAP+40 04642000 CVTILK1 EQU CVTMAP+36 04643000 CVTPRLTV EQU CVTMAP+32 04644000 CVTPCNVT EQU CVTMAP+28 04645000 CVT0VL00 EQU CVTMAP+24 04646000 CVTXAPG EQU CVTMAP+20 04647000 CVTBUF EQU CVTMAP+16 04648000 CVTJOB EQU CVTMAP+12 04649000 CVTLINK EQU CVTMAP+8 04650000 CVT0EF00 EQU CVTMAP+4 04651000 CVTTCBP EQU CVTMAP 04652000 CVT EQU CVTMAP 04653000 @NM00027 EQU PSA+3668 04654000 PSASTAK EQU PSA+3072 04655000 @NM00026 EQU PSA+1048 04656000 PSAUSEND EQU PSA+1048 04657000 PSARV062 EQU PSA+1044 04658000 PSACDAL EQU PSA+1040 04659000 PSAWTCOD EQU PSA+1036 04660000 PSAATCVT EQU PSA+1032 04661000 PSAPCPSW EQU PSA+1024 04662000 PSAPIR2 EQU PSA+1020 04663000 PSARV059 EQU PSA+1018 04664000 PSASVC13 EQU PSA+1016 04665000 PSALSFCC EQU PSA+1012 04666000 PSASFACC EQU PSA+1008 04667000 PSASTOP EQU PSA+992 04668000 PSASTART EQU PSA+976 04669000 PSARSPSW EQU PSA+968 04670000 PSASRPSW EQU PSA+960 04671000 PSARV045 EQU PSA+892 04672000 PSARV044 EQU PSA+888 04673000 PSARV043 EQU PSA+884 04674000 PSARV042 EQU PSA+880 04675000 PSARV041 EQU PSA+876 04676000 PSARV040 EQU PSA+872 04677000 PSARV025 EQU PSA+868 04678000 PSADSSED EQU PSA+868 04679000 PSADSSPR EQU PSA+864 04680000 PSADSSFW EQU PSA+860 04681000 PSADSS14 EQU PSA+856 04682000 PSADSSPP EQU PSA+848 04683000 PSADSSRP EQU PSA+840 04684000 PSADSS05 EQU PSADSSF4 04685000 PSADSS10 EQU PSADSSF4 04686000 PSADSSVE EQU PSADSSF4 04687000 PSADSSDE EQU PSADSSF4 04688000 PSADSSC0 EQU PSADSSF4 04689000 PSADSSIE EQU PSADSSF4 04690000 PSADSS12 EQU PSADSSF4 04691000 PSADSSRC EQU PSADSSF4 04692000 PSARV057 EQU PSADSSF3 04693000 PSARV056 EQU PSADSSF3 04694000 PSARV055 EQU PSADSSF3 04695000 PSADSSMC EQU PSADSSF3 04696000 PSADSSRW EQU PSADSSF3 04697000 PSADSSNM EQU PSADSSF3 04698000 PSADSSES EQU PSADSSF3 04699000 PSADSSGP EQU PSADSSF3 04700000 PSADSSF2 EQU PSADSSFL+1 04701000 PSADSSPI EQU PSADSSF1 04702000 PSADSSOI EQU PSADSSF1 04703000 PSADSSSP EQU PSADSSF1 04704000 PSADSSTP EQU PSADSSF1 04705000 PSADSSDW EQU PSADSSF1 04706000 PSADSSDD EQU PSADSSF1 04707000 PSADSSDM EQU PSADSSF1 04708000 PSADSSMV EQU PSADSSF1 04709000 PSADSSTS EQU PSA+816 04710000 PSADSSWK EQU PSA+812 04711000 PSADSSR3 EQU PSA+808 04712000 PSADSSR2 EQU PSA+804 04713000 PSADSSRS EQU PSA+800 04714000 PSASTOR EQU PSA+796 04715000 PSACPUSA EQU PSA+794 04716000 PSAVSTAP EQU PSA+792 04717000 PSAWKVAP EQU PSA+788 04718000 PSAWKRAP EQU PSA+784 04719000 PSAMCHIC EQU PSA+783 04720000 PSARV061 EQU PSA+782 04721000 PSASYMSK EQU PSA+781 04722000 PSAMCHFL EQU PSA+780 04723000 PSACR0 EQU PSA+776 04724000 PSAPSWSV EQU PSA+768 04725000 PSALITA EQU PSA+764 04726000 PSACLHS EQU PSAHLHI 04727000 PSALKR15 EQU PSALKSA+60 04728000 PSALKR14 EQU PSALKSA+56 04729000 PSALKR13 EQU PSALKSA+52 04730000 PSALKR12 EQU PSALKSA+48 04731000 PSALKR11 EQU PSALKSA+44 04732000 PSALKR10 EQU PSALKSA+40 04733000 PSALKR9 EQU PSALKSA+36 04734000 PSALKR8 EQU PSALKSA+32 04735000 PSALKR7 EQU PSALKSA+28 04736000 PSALKR6 EQU PSALKSA+24 04737000 PSALKR5 EQU PSALKSA+20 04738000 PSALKR4 EQU PSALKSA+16 04739000 PSALKR3 EQU PSALKSA+12 04740000 PSALKR2 EQU PSALKSA+8 04741000 PSALKR1 EQU PSALKSA+4 04742000 PSALKR0 EQU PSALKSA 04743000 PSARV023 EQU PSACLHT+52 04744000 PSALOCAL EQU PSACLHT+48 04745000 PSACMSL EQU PSACLHT+44 04746000 PSAOPTL EQU PSACLHT+40 04747000 PSATPACL EQU PSACLHT+36 04748000 PSATPDNL EQU PSACLHT+32 04749000 PSATPNCL EQU PSACLHT+28 04750000 PSAIOSLL EQU PSACLHT+24 04751000 PSAIOSUL EQU PSACLHT+20 04752000 PSAIOSCL EQU PSACLHT+16 04753000 PSAIOSSL EQU PSACLHT+12 04754000 PSASALCL EQU PSACLHT+8 04755000 PSAASML EQU PSACLHT+4 04756000 PSADISPL EQU PSACLHT 04757000 PSASRSA EQU PSA+636 04758000 PSARV050 EQU PSA+634 04759000 PSADSSGO EQU PSA+633 04760000 PSARECUR EQU PSA+632 04761000 PSAHLHIS EQU PSA+628 04762000 PSAIPCSA EQU PSA+624 04763000 @NM00025 EQU PSA+621 04764000 PSAIPCDM EQU PSA+620 04765000 PSAIPCD EQU PSA+616 04766000 @NM00024 EQU PSA+613 04767000 PSAIPCRM EQU PSA+612 04768000 PSAIPCR EQU PSA+608 04769000 PSAMCHEX EQU PSA+600 04770000 PSAMPSW EQU PSA+592 04771000 PSAEXPS2 EQU PSA+584 04772000 PSAEXPS1 EQU PSA+576 04773000 PSAPIREG EQU PSA+572 04774000 PSARSREG EQU PSA+568 04775000 PSAGPREG EQU PSA+556 04776000 PSARV022 EQU PSASUP4 04777000 PSARV021 EQU PSASUP4 04778000 PSARV020 EQU PSASUP4 04779000 PSARV019 EQU PSASUP4 04780000 PSARV018 EQU PSASUP4 04781000 PSARV017 EQU PSASUP4 04782000 PSARV016 EQU PSASUP4 04783000 PSARV015 EQU PSASUP4 04784000 PSARV014 EQU PSASUP3 04785000 PSAULCMS EQU PSASUP3 04786000 PSARV012 EQU PSASUP3 04787000 PSAESTA EQU PSASUP3 04788000 PSASPR EQU PSASUP3 04789000 PSAPSREG EQU PSASUP3 04790000 PSAPI2 EQU PSASUP3 04791000 PSAIOSUP EQU PSASUP3 04792000 PSALCR EQU PSASUP2 04793000 PSARTM EQU PSASUP2 04794000 PSAACR EQU PSASUP2 04795000 PSAIPCE2 EQU PSASUP2 04796000 PSAIPCES EQU PSASUP2 04797000 PSAIPCEC EQU PSASUP2 04798000 PSAGTF EQU PSASUP2 04799000 PSAIPCRI EQU PSASUP2 04800000 PSATYPE6 EQU PSASUP1 04801000 PSATCTL EQU PSASUP1 04802000 PSADISP EQU PSASUP1 04803000 PSALOCK EQU PSASUP1 04804000 PSAPI EQU PSASUP1 04805000 PSAEXT EQU PSASUP1 04806000 PSASVC EQU PSASUP1 04807000 PSAIO EQU PSASUP1 04808000 PSAANEW EQU PSA+544 04809000 PSATOLD EQU PSA+540 04810000 PSATNEW EQU PSA+536 04811000 PSALCCAR EQU PSA+532 04812000 PSALCCAV EQU PSA+528 04813000 PSAPCCAR EQU PSA+524 04814000 PSAPCCAV EQU PSA+520 04815000 PSACPULA EQU PSA+518 04816000 PSACPUPA EQU PSA+516 04817000 PSAPSA EQU PSA+512 04818000 FLCHDEND EQU PSA+512 04819000 FLCCRSAV EQU FLCMCLA+280 04820000 FLCGRSAV EQU FLCMCLA+216 04821000 FLCFPSAV EQU FLCMCLA+184 04822000 FLCFLA EQU FLCMCLA+88 04823000 FLCRGNCD EQU FLCMCLA+84 04824000 FLCFSAA EQU FLCFSA+1 04825000 @NM00023 EQU FLCFSA 04826000 @NM00022 EQU FLCMCLA+72 04827000 FLCMCIC EQU FLCMCLA+64 04828000 @NM00021 EQU FLCMCLA+20 04829000 FLCIOAA EQU FLCIOA+1 04830000 @NM00020 EQU FLCIOA 04831000 @NM00019 EQU FLCMCLA+15 04832000 @NM00018 EQU FLCMCLA+14 04833000 @NM00017 EQU FLCMCLA+12 04834000 FLCLCL EQU FLCMCLA+8 04835000 FLCIOELA EQU FLCIOEL+1 04836000 @NM00016 EQU FLCIOEL 04837000 FLCCHNID EQU FLCMCLA 04838000 @NM00015 EQU PSA+160 04839000 FLCMTRCD EQU PSA+157 04840000 @NM00014 EQU PSA+156 04841000 FLCPERA EQU FLCPER+1 04842000 @NM00013 EQU FLCPER 04843000 @NM00012 EQU PSA+151 04844000 FLCPERCD EQU PSA+150 04845000 FLCMCNUM EQU PSA+149 04846000 @NM00011 EQU PSA+148 04847000 FLCTEAA EQU FLCTEA+1 04848000 @NM00010 EQU FLCTEA 04849000 PSAPIPC EQU PSAPICOD 04850000 PSAPIMC EQU PSAPICOD 04851000 PSAPIPER EQU PSAPICOD 04852000 PSARV049 EQU FLCPICOD 04853000 FLCPILCB EQU FLCPIILC 04854000 @NM00009 EQU FLCPIILC 04855000 @NM00008 EQU PSAEPPSW 04856000 FLCSVCN EQU PSAESPSW+2 04857000 FLCSILCB EQU FLCSVILC 04858000 @NM00007 EQU FLCSVILC 04859000 @NM00006 EQU PSAESPSW 04860000 FLCEICOD EQU PSAEEPSW+2 04861000 PSASPAD EQU PSAEEPSW 04862000 @NM00005 EQU PSA+128 04863000 FLCINPSW EQU PSA+120 04864000 FLCMNPSW EQU PSA+112 04865000 FLCPNPSW EQU PSA+104 04866000 FLCSNPSW EQU PSA+96 04867000 FLCENPSW EQU PSA+88 04868000 FLCTRACE EQU PSA+84 04869000 FLCTIMER EQU PSA+80 04870000 FLCCVT2 EQU PSA+76 04871000 FLCCAW EQU PSA+72 04872000 FLCCSW EQU PSA+64 04873000 FLCIOPSW EQU PSA+56 04874000 FLCMOPSW EQU PSA+48 04875000 FLCPOPSW EQU PSA+40 04876000 FLCSOPSW EQU PSA+32 04877000 FLCEOPSW EQU PSA+24 04878000 @NM00004 EQU FLCICCW2+4 04879000 FLCICCW1 EQU FLCROPSW 04880000 FLCIPPSW EQU FLCRNPSW 04881000 * END UNREFERENCED COMPONENTS 04882000 @RT00144 EQU EXIT 04883000 @RF00160 EQU ASMCK 04884000 @RT00248 EQU REGASIGN 04885000 @RT00409 EQU EFIX 04886000 @RT00411 EQU NULLMOVE 04887000 @RT00413 EQU TCHGBIT 04888000 @RC00463 EQU CLRPGTE 04889000 @RF00478 EQU PAGEOUT 04890000 @RT00508 EQU CONNECT 04891000 @RT00514 EQU RECLAIM 04892000 @RC00481 EQU NORECLM 04893000 @RF00524 EQU NORECLM 04894000 @RT00540 EQU CLRPGTE 04895000 @RT00579 EQU IDERROR 04896000 @RF00587 EQU @RC00574 04897000 @RC00576 EQU @RC00574 04898000 @RT00609 EQU IOQSRCH 04899000 @RF00609 EQU AUXTEST 04900000 @RT00617 EQU GFADEFR 04901000 @RF00621 EQU SRCHRLTE 04902000 @RF00638 EQU @RC00636 04903000 @RC00640 EQU @RC00636 04904000 @RT00651 EQU IDERROR 04905000 @RT00654 EQU IDERROR 04906000 @RF00669 EQU @RC00667 04907000 @RF00672 EQU @RC00667 04908000 @RF00709 EQU AUXTEST 04909000 @RT00777 EQU VCBCK 04910000 @RT00818 EQU CALLIO 04911000 @ENDDATA EQU * 04912000 END IEAVAMSI,(C'PLS1146',0701,78164) 04913000