TITLE 'IEAVITAS: INITIALIZE ADDRESS SPACE' 00001000 IEAVITAS CSECT 00002000 USING *,R15 00003000 MODID 00004000 IEAVITA2 DS 0H 00005000 ENTRY IEAVITA2 00006000 ST R14,12(R13) 00007000 STM R0,R12,20(R13) 00008000 BALR R9,0 00009000 DS 0H 00010000 USING *,R9 00011000 * ASCBPTR=ASCBIN; /* INPUT ASCB ADDR */ 00012000 L ASCBPTR,ASCBIN-1(,R13) 0048 00013000 LA ASCBPTR,0(,ASCBPTR) 0048 00014000 * PVTPTR=CVTPVTP; /* ESTABLISH PVT PTR */ 00015000 * 0049 00016000 L @14,CVTPTR 0049 00017000 L PVTPTR,CVTPVTP(,@14) 0049 00018000 * /*****************************************************************/ 00019000 * /* */ 00020000 * /* ESTABLISH A RECOVERY ENVIRONMENT SERIALIZED BY THE LOCAL LOCK */ 00021000 * /* HELD BY THE CALLER. OBTAIN THE SALLOC LOCK. */ 00022000 * /* */ 00023000 * /*****************************************************************/ 00024000 * 0050 00025000 * RFY 0050 00026000 * (R14) RSTD; /* USE R14 FOR FRR ADDR */ 00027000 * R14=PVTPRCV; /* GET FRR ADDRESS */ 00028000 L R14,PVTPRCV(,PVTPTR) 0051 00029000 * GENERATE SETS(R11,R12,R15) 0052 00030000 * (SETFRR A,FRRAD=(R14),PARMAD=(R15),WRKREGS=(R11,R12)) ; 0052 00031000 SETFRR A,FRRAD=(R14),PARMAD=(R15),WRKREGS=(R11,R12) 00032000 * RFY 0053 00033000 * (R14) UNRSTD; /* RELEASE REG14 */ 00034000 * R15->RCACSECT=RCACINIT; /* SET MODULE ID */ 00035000 MVI RCACSECT(R15),X'08' 0054 00036000 * R15->RCAITAS='1'B; /* SET ENTRY FLAG */ 00037000 OI RCAITAS(R15),B'01000000' 0055 00038000 * R1=R13; /* SAVE 13 ACROSS LOCK */ 00039000 LR R1,R13 0056 00040000 * GENERATE SETS(R11,R12,R13,R14) 0057 00041000 * (SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND,RELATED=(IEAVITAS)); 00042000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND,RELATED=(IEAVITAS) 00043000 * /* GET SALLOC LOCK */ 00044000 * IF R13^=0 THEN /* SALLOC ACQUIRED? */ 00045000 LTR R13,R13 0058 00046000 BZ @RF00058 0058 00047000 * DO; /* NO */ 00048000 * R13=R1; /* RESTORE SAVE REG */ 00049000 LR R13,R1 0060 00050000 * R15=4; /* SET ERROR RETURN CODE */ 00051000 LA R15,4 0061 00052000 * GOTO DELETFRR; /* GO TO BACKOUT @ZA00867*/ 00053000 B DELETFRR 0062 00054000 * END; 0063 00055000 * PVTPRCA=R15; /* YES, SET RCA PTR IN PVT */ 00056000 @RF00058 ST R15,PVTPRCA(,PVTPTR) 0064 00057000 * R13=R1; /* RESTORE SAVE REG */ 00058000 LR R13,R1 0065 00059000 * R15->RCASAL='1'B; /* SET SALLOC LOCK FLAG */ 00060000 OI RCASAL(R15),B'10000000' 0066 00061000 * 0067 00062000 * /*****************************************************************/ 00063000 * /* */ 00064000 * /* OBTAIN STORAGE IN SQA FOR RSMHDR/ASMHDR AND SPCT @Z40WPYD*/ 00065000 * /* */ 00066000 * /*****************************************************************/ 00067000 * 0067 00068000 * R0=(8*((LENGTH(RSMHD)+7)/8))+(8*((LENGTH(SPCT)+7)/8))+(16*LENGTH( 00069000 * SPCTSEGE)); /* GET TOTAL LENGTH */ 00070000 LA R0,240 0067 00071000 * GENERATE(GETMAIN RC,LV=(0),SP=245,BRANCH=(YES,GLOBAL)); 0068 00072000 GETMAIN RC,LV=(0),SP=245,BRANCH=(YES,GLOBAL) 00073000 * PVTPTR=CVTPVTP; /* RESTORE PVT PTR */ 00074000 L @14,CVTPTR 0069 00075000 L PVTPTR,CVTPVTP(,@14) 0069 00076000 * IF R15^=0 THEN /* GETMAIN SUCCESSFUL? */ 00077000 LTR R15,R15 0070 00078000 BNZ @RT00070 0070 00079000 * GOTO GMFAIL; /* NO, GO TO BACKOUT */ 00080000 * 0071 00081000 * /*****************************************************************/ 00082000 * /* */ 00083000 * /* INITIALIZE RSM HEADER AND CLEAR ASMHD AND SPCT. (NOTE THAT THE*/ 00084000 * /* ASMHD IS CLEARED AT THE SAME TIME THE RSMHD IS CLEARED. THE */ 00085000 * /* ASMHD IS CONTAINED IN THE RSMHD.) @Z40WPYD*/ 00086000 * /* */ 00087000 * /*****************************************************************/ 00088000 * 0072 00089000 * MASTRVSA=VSAIN; /* INPUT MASTER ADDR */ 00090000 L MASTRVSA,VSAIN(,R13) 0072 00091000 * ASCBRSM=R1; /* SET RSMHDR ADDR */ 00092000 ST R1,ASCBRSM(,ASCBPTR) 0073 00093000 * RSMHDPTR=R1; /* GET RSMHDR ADDR */ 00094000 LR RSMHDPTR,R1 0074 00095000 * RSMHD=RSMHD&&RSMHD; /* CLEAR RSM HDR */ 00096000 XC RSMHD(72,RSMHDPTR),RSMHD(RSMHDPTR) 0075 00097000 * RSMSPCT=RSMHDPTR+(8*((LENGTH(RSMHD)+7)/8));/* SET SPCT ADDR */ 00098000 LA @14,72 0076 00099000 ALR @14,RSMHDPTR 0076 00100000 ST @14,RSMSPCT(,RSMHDPTR) 0076 00101000 * SPCT=SPCT&&SPCT; /* CLEAR SPCT HDR */ 00102000 L @14,SPCTPTR(,RSMHDPTR) 0077 00103000 XC SPCT(72,@14),SPCT(@14) 0077 00104000 * RSMASCB=ASCBPTR; /* SET ASCB ADDR */ 00105000 ST ASCBPTR,RSMASCB(,RSMHDPTR) 0078 00106000 * RSMVSTO=(PVTLCSA*256)-256*LENGTH(SGTSTE);/* SET VSA OF STO */ 00107000 * 0079 00108000 LH @14,PVTLCSA(,PVTPTR) 0079 00109000 N @14,@CF01739 0079 00110000 SLA @14,8 0079 00111000 SL @14,@CF01697 0079 00112000 ST @14,RSMVSTO(,RSMHDPTR) 0079 00113000 * /*****************************************************************/ 00114000 * /* */ 00115000 * /* THE SLOT RESERVE FUNCTION OF ASM IS CALLED TO ALLOW ASM TO */ 00116000 * /* ASSIGN RESERVED SLOTS TO THE MEMORY BEING CREATED @Z40WPYD*/ 00117000 * /* */ 00118000 * /*****************************************************************/ 00119000 * 0080 00120000 * R1=R13; /* SAVE REGISTER 13 ACROSS CALL 00121000 * TO ILRSLTRV @Z40WPYD*/ 00122000 LR R1,R13 0080 00123000 * R13=ADDR(PVTSAVE); /* SET UP SAVE AREA POINTER FOR 00124000 * SLOT RESERVE @Z40WPYD*/ 00125000 LA R13,PVTSAVE(,PVTPTR) 0081 00126000 * CALL ILRSLTRV; /* CALL THE ASM SLOT RESERVE 0082 00127000 * ROUTINE @Z40WPYD*/ 00128000 L @15,@CV01711 0082 00129000 BALR @14,@15 0082 00130000 * R13=R1; /* RESTORE REGISTER 13 @Z40WPYD*/ 00131000 LR R13,R1 0083 00132000 * IF R15^=0 THEN /* DOES ASM HAVE ENOUGH RESERVED 00133000 * SLOTS? @Z40WPYD*/ 00134000 LTR R15,R15 0084 00135000 BNZ @RT00084 0084 00136000 * GOTO FRAMFAIL; /* NO, BACK OUT @Z40WPYD*/ 00137000 * ELSE 0086 00138000 * ; 0086 00139000 * 0087 00140000 * /*****************************************************************/ 00141000 * /* */ 00142000 * /* THIS PORTION OBTAINS A REAL FRAME AND MAKES IS ADDRESSABLE IN */ 00143000 * /* THE CURRENT ADDRESS SPACE. IT THEN CONSTRUCTS AND INITIALIZES */ 00144000 * /* THE SEGMENT, PAGE AND EXTERNAL PAGE TABLES FOR THE NEW ADDRESS*/ 00145000 * /* SPACE. */ 00146000 * /* */ 00147000 * /*****************************************************************/ 00148000 * 0087 00149000 * R0=PVTPRCA; /* SAVE FRR STACK ENTRY ADDR 0087 00150000 * @ZA16816*/ 00151000 L R0,PVTPRCA(,PVTPTR) 0087 00152000 * R1=0; 0088 00153000 SLR R1,R1 0088 00154000 * CALL IEAVSQA; /* GET REAL FRAME */ 00155000 L @15,PVTPSQA(,PVTPTR) 0089 00156000 BALR @14,@15 0089 00157000 * PVTPRCA=R0; /* RESTORE FRR STACK ENTRY ADDR 00158000 * @ZA16816*/ 00159000 ST R0,PVTPRCA(,PVTPTR) 0090 00160000 * IF R15^=0 THEN /* FRAME OBTAINED? */ 00161000 LTR R15,R15 0091 00162000 BNZ @RT00091 0091 00163000 * GOTO FRAMFAIL; /* NO, GO TO BACKOUT @ZA00867*/ 00164000 * RFY 0093 00165000 * (SEGSPTR, 0093 00166000 * R11, 0093 00167000 * PFTEPTR, 0093 00168000 * STEPTR, 0093 00169000 * XPTEPTR, 0093 00170000 * PTEPTR, 0093 00171000 * SEGTABPT) RSTD; /* NOTE R11,XPTEPTR, AND STEPTR 00172000 * ARE ALL THE SAME REG */ 00173000 * R11=R1; /* SAVE RBN OF NEW PAGE */ 00174000 LR R11,R1 0094 00175000 * RSMHDPTR=PSAAOLD->ASCBRSM; /* GET CURRENT RSM HEADER FOR 0095 00176000 * FINDPAGE */ 00177000 L @14,PSAAOLD 0095 00178000 L RSMHDPTR,ASCBRSM(,@14) 0095 00179000 * R1=MASTRVSA; /* FINDPAGE INPUT */ 00180000 LR R1,MASTRVSA 0096 00181000 * CALL IEAVFP2; /* GET PGTE ADDR IN MAS */ 00182000 L @15,PVTPFP2(,PVTPTR) 0097 00183000 BALR @14,@15 0097 00184000 * RSMHDPTR=ASCBRSM; /* RESTORE NEW RSM HEADER ADDR */ 00185000 L RSMHDPTR,ASCBRSM(,ASCBPTR) 0098 00186000 * IF R15^=0 THEN /* FIND PAGE O.K.? */ 00187000 LTR R15,R15 0099 00188000 BNZ @RT00099 0099 00189000 * GOTO FPFAIL; /* NO, GO TO BACKOUT */ 00190000 * PTEPTR=R0; /* ADDR OF PGTE */ 00191000 LR PTEPTR,R0 0101 00192000 * PGTRSA=R11; /* VALIDATE IN MASTER */ 00193000 STCM R11,3,PGTRSA(PTEPTR) 0102 00194000 * PGTPAM='1'B; /* SET GETMAINED FLAG */ 00195000 OI PGTPAM(PTEPTR),B'00000001' 0103 00196000 * ASCBSTOR=((R11*256)|SEGTLEN)+(4096-256*(LENGTH(SGTSTE)));/* USE 00197000 * RBN TO SET THE REAL STO IN 0104 00198000 * ASCB NEW */ 00199000 LR @14,R11 0104 00200000 SLA @14,8 0104 00201000 O @14,@CF01639 0104 00202000 AL @14,@CF01720 0104 00203000 ST @14,ASCBSTOR(,ASCBPTR) 0104 00204000 * IF PVTAPREF='1'B THEN /* IF PVTAPREF IS ON @ZA16816*/ 00205000 TM PVTAPREF(PVTPTR),B'00001000' 0105 00206000 BNO @RF00105 0105 00207000 * DO; /* ALL FIXES GO TO PREFERRED 0106 00208000 * @ZA16816*/ 00209000 * ASCB1LPU='1'B; /* PUT FIRST LEVEL USER BIT ON 0107 00210000 * @ZA16816*/ 00211000 * ASCB2LPU='1'B; /* PUT SECOND LEVEL USER BIT ON 00212000 * @ZA16816*/ 00213000 L @14,ASCB1LPU(,ASCBPTR) 0108 00214000 @GL00001 LR @08,@14 0108 00215000 O @08,@CF01741 0108 00216000 CS @14,@08,ASCB1LPU(ASCBPTR) 0108 00217000 BNE @GL00001 0108 00218000 * END; /* @ZA16816*/ 00219000 * 0109 00220000 * /*****************************************************************/ 00221000 * /* */ 00222000 * /* INITIALIZE THE PFTE FOR THE NEW ADDRESS SPACE */ 00223000 * /* */ 00224000 * /*****************************************************************/ 00225000 * 0110 00226000 * PFTEPTR=PVTPFTP+R11; /* GET PFTE PTR */ 00227000 @RF00105 LR PFTEPTR,R11 0110 00228000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0110 00229000 * PFTASID=ASCBASID; /* SET ASID */ 00230000 LH @14,ASCBASID(,ASCBPTR) 0111 00231000 N @14,@CF01739 0111 00232000 STH @14,PFTASID(,PFTEPTR) 0111 00233000 * PFTVBN=PVTLCSA-XTEN; /* LOW COMMON VBN MINUS ONE PAGE */ 00234000 LH @14,PVTLCSA(,PVTPTR) 0112 00235000 N @14,@CF01739 0112 00236000 SL @14,@CF01645 0112 00237000 STH @14,PFTVBN(,PFTEPTR) 0112 00238000 * R0=R11|PFTECONS; /* SET UP R0 AND R1 FOR CALL TO 00239000 * PFTE ENQ/DEQ */ 00240000 LR R0,R11 0113 00241000 O R0,@CF01637 0113 00242000 * R1=ASCBPTR; 0114 00243000 LR R1,ASCBPTR 0114 00244000 * CALL IEAVPFTE; /* CALL PFTE ENQ/DEQ */ 00245000 L @15,PVTPFTE(,PVTPTR) 0115 00246000 BALR @14,@15 0115 00247000 * 0116 00248000 * /*****************************************************************/ 00249000 * /* */ 00250000 * /* CLEAR NEW PAGE , SET UP NEW SEGMENT TABLE AND VALIDATE THE */ 00251000 * /* HIGEST SEGMENT IN THE PRIVATE AREA */ 00252000 * /* */ 00253000 * /*****************************************************************/ 00254000 * 0116 00255000 * RFY 0116 00256000 * (R14) RSTD; 0116 00257000 * R0=0; /* SET UP TO CLEAR PAGE */ 00258000 SLR R0,R0 0117 00259000 * R1=0; 0118 00260000 SLR R1,R1 0118 00261000 * R14=MASTRVSA; /* GET ADDRESS OF PAGE */ 00262000 LR R14,MASTRVSA 0119 00263000 * R15=3072; /* FIRST 3K OF PAGE */ 00264000 LA R15,3072 0120 00265000 * GENERATE SETS(R0,R1,R14,R15,NEWCB) NOFLOWS( MVCL R14,R0); 0121 00266000 * 0121 00267000 MVCL R14,R0 00268000 * /*****************************************************************/ 00269000 * /* */ 00270000 * /* COPY CURRENT SEGMENT TABLE TO NEW TABLE */ 00271000 * /* */ 00272000 * /*****************************************************************/ 00273000 * 0122 00274000 * R0=PSAAOLD->ASCBRSM->RSMVSTO; /* LOCATE MASTERS SEG TABLE */ 00275000 L @08,PSAAOLD 0122 00276000 L @08,ASCBRSM(,@08) 0122 00277000 L R0,RSMVSTO(,@08) 0122 00278000 * R1=256*LENGTH(SGTSTE); /* LENGTH OF SEG TABLE */ 00279000 LA @08,1024 0123 00280000 LR R1,@08 0123 00281000 * R15=256*LENGTH(SGTSTE); /* LENGTH OF SEG TABLE */ 00282000 LR R15,@08 0124 00283000 * R14=MASTRVSA+3072; /* LOCATION OF NEW SGT */ 00284000 LA R14,3072 0125 00285000 ALR R14,MASTRVSA 0125 00286000 * GENERATE SETS(CBSEG,R0,R1,R14,R15) NOFLOWS( MVCL R14,R0);/* COPY */ 00287000 * 0126 00288000 MVCL R14,R0 00289000 * /*****************************************************************/ 00290000 * /* */ 00291000 * /* SET STORAGE KEY AND NO FETCH PROTECT FOR NEW PAGE */ 00292000 * /* */ 00293000 * /*****************************************************************/ 00294000 * 0127 00295000 * GENERATE REFS(R0,R1); 0127 00296000 LRA R1,0(MASTRVSA) GET REAL ADDR OF PAGE 00297000 SR R0,R0 00298000 SSK R0,R1 SET STORAGE KEY 00299000 LA R1,2048(R1) 00300000 SSK R0,R1 00301000 * RFY 0128 00302000 * (R14) UNRSTD; 0128 00303000 * 0128 00304000 * /*****************************************************************/ 00305000 * /* */ 00306000 * /* VALIDATE PAGE IN THE NEW ADDRESS PGTE AND SET REST TO ZERO, */ 00307000 * /* NOT GETMAIN ASSIGNED. */ 00308000 * /* */ 00309000 * /*****************************************************************/ 00310000 * 0129 00311000 * CBPGT(1:30)=NEWPGT; /* INITIALIZE UNUSED PGTES */ 00312000 MVC CBPGT(30,MASTRVSA),NEWPGT 0129 00313000 * PTEPTR=ADDR(CBPGT)+15*LENGTH(PGTPTE);/* PTR TO NEW PGTE */ 00314000 LA PTEPTR,CBPGT(,MASTRVSA) 0130 00315000 AL PTEPTR,@CF01721 0130 00316000 * PGTRSA=R11; /* VALIDATE IN NEW PGTE */ 00317000 STCM R11,3,PGTRSA(PTEPTR) 0131 00318000 * PGTPAM='1'B; /* SET GETMAINED FLAG */ 00319000 * 0132 00320000 OI PGTPAM(PTEPTR),B'00000001' 0132 00321000 * /*****************************************************************/ 00322000 * /* */ 00323000 * /* SET UP HIGHEST PRIVATE AREA SEGMENTS SGTE */ 00324000 * /* */ 00325000 * /*****************************************************************/ 00326000 * 0133 00327000 * STEPTR=ADDR(CBSEG)+4*(LCSASEG-1);/* POINT TO HI PRIV */ 00328000 LA @14,CBSEG(,MASTRVSA) 0133 00329000 SLR @08,@08 0133 00330000 IC @08,LCSASEG(,PVTPTR) 0133 00331000 BCTR @08,0 0133 00332000 LR STEPTR,@08 0133 00333000 SLA STEPTR,2 0133 00334000 ALR STEPTR,@14 0133 00335000 * SGTPTO=ASCBSTOR-(16*LENGTH(XPTE)+16*LENGTH(PGTPTE));/* VALIDATE 00336000 * AND SET RSA */ 00337000 L @06,ASCBSTOR(,ASCBPTR) 0134 00338000 SL @06,@CF01734 0134 00339000 STCM @06,7,SGTPTO(STEPTR) 0134 00340000 * SGTLK=SEGLEN; /* FOR HIGH PRIVATE SEG */ 00341000 * 0135 00342000 MVI SGTLK(STEPTR),X'F0' 0135 00343000 * /*****************************************************************/ 00344000 * /* */ 00345000 * /* INVALIDATE AND CLEAR THE REMAINING PRIVATE AREA SEGS */ 00346000 * /* */ 00347000 * /*****************************************************************/ 00348000 * 0136 00349000 * RFY 0136 00350000 * (I) RSTD; 0136 00351000 * R0=SEGCON; /* MODEL INVALID ENTRY */ 00352000 LA R0,1 0137 00353000 * STEPTR=ADDR(CBSEG)+LPRIVSEG*LENGTH(SGTSTE);/* GET ADDRESS OF 0138 00354000 * FIRST PRIVATE AREA SGTE */ 00355000 SLR @06,@06 0138 00356000 IC @06,LPRIVSEG(,PVTPTR) 0138 00357000 LR STEPTR,@06 0138 00358000 SLA STEPTR,2 0138 00359000 ALR @14,STEPTR 0138 00360000 LR STEPTR,@14 0138 00361000 * DO I=((LCSASEG-1)-LPRIVSEG) TO 1 BY-1;/* LOOP THROUGH REMAINING 00362000 * SGTES */ 00363000 SLR @14,@14 0139 00364000 IC @14,LCSASEG(,PVTPTR) 0139 00365000 BCTR @14,0 0139 00366000 SLR @14,@06 0139 00367000 LR I,@14 0139 00368000 B @DE00139 0139 00369000 @DL00139 DS 0H 0140 00370000 * SGTSTE=R0; /* INIT SGTE */ 00371000 STCM R0,15,SGTSTE(STEPTR) 0140 00372000 * STEPTR=STEPTR+LENGTH(SGTSTE); /* NEXT SGTE */ 00373000 AL STEPTR,@CF00044 0141 00374000 * END; 0142 00375000 BCTR I,0 0142 00376000 @DE00139 LTR I,I 0142 00377000 BP @DL00139 0142 00378000 * RFY 0143 00379000 * (I) UNRSTD; 0143 00380000 * 0143 00381000 * /*****************************************************************/ 00382000 * /* */ 00383000 * /* INITIALIZE THE SWAP CONTROL TABLE(SPCT) FOR THE NEW ADDR SPACE*/ 00384000 * /* */ 00385000 * /*****************************************************************/ 00386000 * 0144 00387000 * SPCTIDEN=ACHARS; /* IDENTIFY THE SPCT @Z40WPYD*/ 00388000 L @14,SPCTPTR(,RSMHDPTR) 0144 00389000 MVI SPCTIDEN(@14),X'E2' 0144 00390000 * SPCTNSEG=SIXTEEN; /* SET MAX SEG CNT TO 16 */ 00391000 MVI SPCTNSEG(@14),X'10' 0145 00392000 * SPCTSSEG=1; /* SET ACTIVE CNT TO 1 */ 00393000 MVI SPCTSSEG(@14),X'01' 0146 00394000 * SPCTSIZE=8*((LENGTH(SPCT)+7)/8)+16*LENGTH(SPCTSEGE);/* SET SPCT */ 00395000 MVC SPCTSIZE(2,@14),@CH01735 0147 00396000 * SEGSPTR=ADDR(SPCTSEGS); /* POINT TO SEG ENTRY */ 00397000 LA SEGSPTR,SPCTSEGS(,@14) 0148 00398000 * SPCTSEGX=LCSASEG-1; /* SET LSQA SEG INDEX */ 00399000 SLR @14,@14 0149 00400000 IC @14,LCSASEG(,PVTPTR) 0149 00401000 BCTR @14,0 0149 00402000 STC @14,SPCTSEGX(,SEGSPTR) 0149 00403000 * SPCTPGT=RSMVSTO-(16*LENGTH(XPTE)+16*LENGTH(PGTPTE));/* SET VSA OF 00404000 * NEW PGT */ 00405000 L @14,RSMVSTO(,RSMHDPTR) 0150 00406000 SL @14,@CF01734 0150 00407000 STCM @14,7,SPCTPGT(SEGSPTR) 0150 00408000 * RFY 0151 00409000 * (SEGSPTR, 0151 00410000 * PFTEPTR, 0151 00411000 * STEPTR, 0151 00412000 * XPTEPTR, 0151 00413000 * PTEPTR, 0151 00414000 * SEGTABPT) UNRSTD; 0151 00415000 * VSAIN=ADDR(CBPGT); /* SET UP OUTPUT ADDR OF UNUSED 00416000 * LIMIT */ 00417000 LA @14,CBPGT(,MASTRVSA) 0152 00418000 ST @14,VSAIN(,R13) 0152 00419000 * RSMCNTFX=1; /* INITIALIZE FIXED FRAME COUNT 00420000 * FOR THIS ADDRESS SPACE 0153 00421000 * @YA01572*/ 00422000 LA @14,1 0153 00423000 STH @14,RSMCNTFX(,RSMHDPTR) 0153 00424000 * PVTCNTFX=PVTCNTFX+1; /* INCREMENT SYSTEM COUNT 0154 00425000 * @YA01572*/ 00426000 AH @14,PVTCNTFX(,PVTPTR) 0154 00427000 STH @14,PVTCNTFX(,PVTPTR) 0154 00428000 * IF PVTCNTFX=PVTMAXFX THEN /* HAS THE FIX COUNT THRESHOLD 0155 00429000 * BEEN REACHED */ 00430000 CH @14,PVTMAXFX(,PVTPTR) 0155 00431000 BNE @RF00155 0155 00432000 * DO; /* YES, NOTIFY SRM @YA01572*/ 00433000 * R1=MAXFIXED; /* GET CODE FOR FIX THRESHOLD 0157 00434000 * REACHED @YA01572*/ 00435000 LA R1,4 0157 00436000 * RFY 0158 00437000 * R12 RSTD; 0158 00438000 * R12=R13; /* SAVE R13 ACROSS SYSEVENT 0159 00439000 * @YA01572*/ 00440000 LR R12,R13 0159 00441000 * R13=ADDR(PVTSAVE); /* GET SRM A SAVE AREA @YA01572*/ 00442000 LA R13,PVTSAVE(,PVTPTR) 0160 00443000 * GENERATE REFS(CVT,CVTPTR,CVTOPTE); 0161 00444000 * */ 00445000 SYSEVENT AVQLOW,ENTRY=BRANCH */ 00446000 * R13=R12; /* RESTORE REGISTER 13 @YA01572*/ 00447000 LR R13,R12 0162 00448000 * RFY 0163 00449000 * R12 UNRSTD; 0163 00450000 * END; 0164 00451000 * ELSE 0165 00452000 * ; 0165 00453000 @RF00155 DS 0H 0166 00454000 * R15=0; /* SET RETURN CODE TO ZERO */ 00455000 SLR R15,R15 0166 00456000 * GOTO FREESALL; /* INIT. ADDRESS SPACE FUNCTIONS 00457000 * GO TO NORMAL EXIT */ 00458000 B FREESALL 0167 00459000 * 0168 00460000 * /*****************************************************************/ 00461000 * /* */ 00462000 * /* THE VARIOUS LABELS BELOW ARE REACHED WHENEVER AN ERROR OCCURS */ 00463000 * /* THAT PREVENTS COMPLETION OF THE INIT. ADDRESS SPACE FUNCTION. */ 00464000 * /* BACKOUT PROCESSING IS PERFORMED ACCORDING TO THE PLACE WHERE */ 00465000 * /* NORMAL PROCESSING FAILED. IF A BAD RETURN CODE FROM FINDPAGE */ 00466000 * /* OCCURRED, COMPLETE BACKOUT PROCESSING IS PERFORMED. THIS IS */ 00467000 * /* THE FIRST LABEL. */ 00468000 * /* */ 00469000 * /*****************************************************************/ 00470000 * 0168 00471000 *FPFAIL: 0168 00472000 * R0=R11; /* FREE OBTAINED FRAME */ 00473000 FPFAIL LR R0,R11 0168 00474000 * CALL IEAVPFTE; /* INVOKE PFTE DEQ/ENQ */ 00475000 L @15,PVTPFTE(,PVTPTR) 0169 00476000 BALR @14,@15 0169 00477000 * RFY 0170 00478000 * R11 UNRSTD; 0170 00479000 * 0170 00480000 * /*****************************************************************/ 00481000 * /* */ 00482000 * /* ASM COULD NOT BACK UP THIS MEMORY WITH SUFFICIENT RESERVED */ 00483000 * /* SLOTS OR A REAL FRAME COULD NOT BE OBTAINED. THE RSM HEADER */ 00484000 * /* AND SPCT STORAGE IS FREEMAINED AND BACKOUT PROCESSING */ 00485000 * /* CONTINUED @Z40WPYD*/ 00486000 * /* */ 00487000 * /*****************************************************************/ 00488000 * 0171 00489000 *FRAMFAIL: 0171 00490000 * R0=8*((LENGTH(RSMHD)+7)/8)+16*LENGTH(SPCTSEGE)+(8*((LENGTH(SPCT)+7) 00491000 * /8)); /* GET HDR & SPCT LEN @ZA00867*/ 00492000 FRAMFAIL LA R0,240 0171 00493000 * R1=ASCBRSM; /* GET PTR TO STORAGE */ 00494000 L R1,ASCBRSM(,ASCBPTR) 0172 00495000 * ASCBRSM=0; /* ZERO PTR TO STORAGE */ 00496000 SLR @14,@14 0173 00497000 ST @14,ASCBRSM(,ASCBPTR) 0173 00498000 * GENERATE(FREEMAIN RU,LV=(0),A=(1),SP=245,BRANCH=(YES,GLOBAL)) ; 00499000 FREEMAIN RU,LV=(0),A=(1),SP=245,BRANCH=(YES,GLOBAL) 00500000 * PVTPTR=CVTPVTP; /* RESTORE PVT BASE REG */ 00501000 * 0175 00502000 L @14,CVTPTR 0175 00503000 L PVTPTR,CVTPVTP(,@14) 0175 00504000 * /*****************************************************************/ 00505000 * /* */ 00506000 * /* THE GETMAIN FOR THE RSM HEADER AND SPCT FAILED. ALL BACKOUT */ 00507000 * /* PROCESSING WILL EVENTUALLY REACH THIS POINT EXCEPT FOR A */ 00508000 * /* FAILURE ATTEMPTING TO GET SALLOC. THE ERROR RETURN CODE IS SET*/ 00509000 * /* IN REGISTER 15 AND PROCESSING CONTINUED WITH COMMON EXIT */ 00510000 * /* PROCESSING. */ 00511000 * /* */ 00512000 * /*****************************************************************/ 00513000 * 0176 00514000 *GMFAIL: 0176 00515000 * R15=4; /* SET ERROR RETURN CODE */ 00516000 GMFAIL LA R15,4 0176 00517000 * 0177 00518000 * /*****************************************************************/ 00519000 * /* */ 00520000 * /* COMMON EXIT PROCESSING BEGINS HERE. THE SALLOC LOCK IS FREED */ 00521000 * /* AND THE RECOVERY ENVIRONMENT IS CANCELED. NOTE THAT ALL */ 00522000 * /* NECESSARY OUTPUT HAS BEEN SET UP AT THIS POINT REGARDLESS OF */ 00523000 * /* NORMAL OR ERROR PROCESSING THAT HAS OCCURRED. NOTE ALSO, IF */ 00524000 * /* THE SALLOC LOCK OBTAIN FAILED, PROCESSING GOES DIRECTLY TO THE*/ 00525000 * /* DELETFRR LABEL. */ 00526000 * /* */ 00527000 * /*****************************************************************/ 00528000 * 0177 00529000 *FREESALL: 0177 00530000 * R1=R13; /* SAVE SAVE REG */ 00531000 FREESALL LR R1,R13 0177 00532000 * GENERATE SETS(R11,R12,R13,R14) 0178 00533000 * (SETLOCK RELEASE,TYPE=SALLOC,RELATED=(IEAVITAS)); 0178 00534000 SETLOCK RELEASE,TYPE=SALLOC,RELATED=(IEAVITAS) 00535000 * R13=R1; /* RESTORE SAVE REG */ 00536000 * 0179 00537000 LR R13,R1 0179 00538000 * /*****************************************************************/ 00539000 * /* */ 00540000 * /* THE SALLOC LOCK COULD NOT BE OBTAINED. THE FRR IS DELETED, AND*/ 00541000 * /* THE LGN ASSIGNED IS RELEASED. */ 00542000 * /* */ 00543000 * /*****************************************************************/ 00544000 * 0180 00545000 *DELETFRR: 0180 00546000 * GENERATE SETS(R11,R12)(SETFRR D,WRKREGS=(R11,R12)) ;/* DELETE RSM 00547000 * FRR */ 00548000 DELETFRR SETFRR D,WRKREGS=(R11,R12) 00549000 * IF R15^=0 THEN /* BACKING OUT @ZA00867*/ 00550000 LTR R15,R15 0181 00551000 BZ @RF00181 0181 00552000 * DO; /* YES, SET BAD RETURN CODE 0182 00553000 * @Z40WPYD*/ 00554000 * R15=4; /* SET ERROR RETURN CODE @ZA00867*/ 00555000 LA R15,4 0183 00556000 * END; 0184 00557000 * RETURN CODE(R15); /* RETURN TO THE CALLER */ 00558000 @RF00181 DS 0H 0185 00559000 @EL00001 DS 0H 0185 00560000 @EF00001 DS 0H 0185 00561000 @ER00001 L @14,12(,@13) 0185 00562000 LM @00,@12,20(@13) 0185 00563000 BR @14 0185 00564000 * END IEAVITAS 0186 00565000 * 0186 00566000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00567000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00568000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00569000 */*%INCLUDE SYSLIB (IHAPVT ) */ 00570000 */*%INCLUDE SYSLIB (IHARSMHD) */ 00571000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 00572000 */*%INCLUDE SYSLIB (IHARCA ) */ 00573000 */*%INCLUDE SYSLIB (IHASPCT ) */ 00574000 */*%INCLUDE SYSLIB (CVT ) */ 00575000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00576000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 00577000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 00578000 */*%INCLUDE SYSLIB (IHASGTE ) */ 00579000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 00580000 */*%INCLUDE SYSLIB (ILRACA ) */ 00581000 * 0186 00582000 * ; 0186 00583000 @DATA DS 0H 00584000 @CH01735 DC H'168' 00585000 @DATD DSECT 00586000 DS 0F 00587000 IEAVITAS CSECT 00588000 DS 0F 00589000 @CF00044 DC F'4' 00590000 @CF01721 DC F'30' 00591000 @CF01734 DC F'224' 00592000 @CF01697 DC F'1024' 00593000 @CF01720 DC F'3072' 00594000 @CF01637 DC XL4'00840000' 00595000 @CF01639 DC XL4'0F000000' 00596000 @CF01739 DC XL4'0000FFFF' 00597000 @CF01645 DC XL4'0010' 00598000 @CF01741 DC BL4'11000000000000000000000000000000' 00599000 @DATD DSECT 00600000 DS 0D 00601000 @ENDDATD EQU * 00602000 IEAVITAS CSECT 00603000 NOPR ((@ENDDATD-@DATD)*16) 00604000 DS 0F 00605000 @SIZDATD DC AL1(0) 00606000 DC AL3(@ENDDATD-@DATD) 00607000 @CV01711 DC V(ILRSLTRV) 00608000 DS 0D 00609000 NEWPGT DS CL30 00610000 ORG NEWPGT 00611000 PGTES DC 15X'0008' 00612000 ORG NEWPGT+30 00613000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00614000 @01 EQU 01 00615000 @02 EQU 02 00616000 @03 EQU 03 00617000 @04 EQU 04 00618000 @05 EQU 05 00619000 @06 EQU 06 00620000 @07 EQU 07 00621000 @08 EQU 08 00622000 @09 EQU 09 00623000 @10 EQU 10 00624000 @11 EQU 11 00625000 @12 EQU 12 00626000 @13 EQU 13 00627000 @14 EQU 14 00628000 @15 EQU 15 00629000 ASCBPTR EQU @05 00630000 PVTPTR EQU @03 00631000 RSMHDPTR EQU @02 00632000 PFTEPTR EQU @10 00633000 SEGSPTR EQU @12 00634000 SWAPPTR EQU @01 00635000 PTEPTR EQU @12 00636000 STEPTR EQU @11 00637000 XPTEPTR EQU @11 00638000 R0 EQU @00 00639000 R1 EQU @01 00640000 MASTRVSA EQU @04 00641000 I EQU @08 00642000 R9 EQU @09 00643000 R11 EQU @11 00644000 R12 EQU @12 00645000 SEGTABPT EQU @12 00646000 R13 EQU @13 00647000 R14 EQU @14 00648000 R15 EQU @15 00649000 PSA EQU 0 00650000 FLCRNPSW EQU PSA 00651000 FLCROPSW EQU PSA+8 00652000 FLCICCW2 EQU PSA+16 00653000 FLCCVT EQU FLCICCW2 00654000 PSAEEPSW EQU PSA+132 00655000 PSAESPSW EQU PSA+136 00656000 FLCSVILC EQU PSAESPSW+1 00657000 PSAEPPSW EQU PSA+140 00658000 FLCPIILC EQU PSAEPPSW+1 00659000 FLCPICOD EQU PSAEPPSW+2 00660000 PSAPICOD EQU FLCPICOD+1 00661000 FLCTEA EQU PSAEPPSW+4 00662000 FLCPER EQU PSA+152 00663000 FLCMCLA EQU PSA+168 00664000 FLCIOEL EQU FLCMCLA+4 00665000 FLCIOA EQU FLCMCLA+16 00666000 FLCFSA EQU FLCMCLA+80 00667000 PSAAOLD EQU PSA+548 00668000 PSASUPER EQU PSA+552 00669000 PSASUP1 EQU PSASUPER 00670000 PSASUP2 EQU PSASUPER+1 00671000 PSASUP3 EQU PSASUPER+2 00672000 PSASUP4 EQU PSASUPER+3 00673000 PSACLHT EQU PSA+640 00674000 PSALKSA EQU PSA+696 00675000 PSAHLHI EQU PSA+760 00676000 PSADSSFL EQU PSA+836 00677000 PSADSSF1 EQU PSADSSFL 00678000 PSADSSF3 EQU PSADSSFL+2 00679000 PSADSSF4 EQU PSADSSFL+3 00680000 PSARSVT EQU PSA+896 00681000 ASCB EQU 0 00682000 ASCBSUPC EQU ASCB+16 00683000 ASCBASID EQU ASCB+36 00684000 ASCBSTOR EQU ASCB+44 00685000 ASCBRSM EQU ASCB+52 00686000 ASCBRSMF EQU ASCBRSM 00687000 ASCB2LPU EQU ASCBRSMF 00688000 ASCB1LPU EQU ASCBRSMF 00689000 ASCBFW1 EQU ASCB+100 00690000 ASCBRCTF EQU ASCBFW1+2 00691000 ASCBFLG1 EQU ASCBFW1+3 00692000 ASCBDSP1 EQU ASCB+114 00693000 ASCBFLG2 EQU ASCB+115 00694000 ASCBLKGP EQU ASCB+128 00695000 ASCBSRQ EQU ASCB+180 00696000 ASCBSRQ1 EQU ASCBSRQ 00697000 ASCBSRQ2 EQU ASCBSRQ+1 00698000 ASCBSRQ3 EQU ASCBSRQ+2 00699000 ASCBSRQ4 EQU ASCBSRQ+3 00700000 PVT EQU 0 00701000 PVTFLAG1 EQU PVT 00702000 PVTAPREF EQU PVTFLAG1 00703000 PVTFLAG2 EQU PVT+1 00704000 PVTPFTP EQU PVT+12 00705000 PVTLPRIV EQU PVT+24 00706000 PVTLCSA EQU PVT+26 00707000 PVTPRCA EQU PVT+52 00708000 PVTPSQA EQU PVT+80 00709000 PVTPFTE EQU PVT+108 00710000 PVTPFP2 EQU PVT+116 00711000 PVTPRCV EQU PVT+156 00712000 PVTPINV EQU PVT+172 00713000 PVTQS EQU PVT+304 00714000 PVTWSAX EQU PVT+344 00715000 PVTSAVE EQU PVTWSAX+1328 00716000 PVTMAXFX EQU PVT+1822 00717000 PVTCNTFX EQU PVT+1830 00718000 RSMHD EQU 0 00719000 RSMVSTO EQU RSMHD 00720000 RSMSPCT EQU RSMHD+4 00721000 RSMASCB EQU RSMHD+8 00722000 RSMFLG1 EQU RSMHD+12 00723000 RSMCNTFX EQU RSMHD+14 00724000 RSMQS EQU RSMHD+20 00725000 RSMLFQ EQU RSMQS 00726000 RSMLSQA EQU RSMQS+4 00727000 RSMLIOQ EQU RSMQS+8 00728000 PFTE EQU 0 00729000 PFTPGID EQU PFTE 00730000 PFTASID EQU PFTPGID 00731000 PFTVBN EQU PFTPGID+2 00732000 PFTQPTRS EQU PFTE+4 00733000 PFTFLAG1 EQU PFTE+12 00734000 PFTFLAG2 EQU PFTE+13 00735000 RCA EQU 0 00736000 RCACSECT EQU RCA+9 00737000 RCAFLAGS EQU RCA+10 00738000 RCASAL EQU RCAFLAGS 00739000 RCANAMES EQU RCA+12 00740000 RCANAME1 EQU RCANAMES 00741000 RCANAME2 EQU RCANAMES+1 00742000 RCAITAS EQU RCANAME2 00743000 RCANAME3 EQU RCANAMES+2 00744000 RCANAME4 EQU RCANAMES+3 00745000 RCANAME5 EQU RCANAMES+4 00746000 RCANAME6 EQU RCANAMES+5 00747000 SPCT EQU 0 00748000 SPCTNSEG EQU SPCT+8 00749000 SPCTSSEG EQU SPCT+9 00750000 SPCTFLG1 EQU SPCT+10 00751000 SPCTIDEN EQU SPCT+11 00752000 SPCTSIZE EQU SPCT+14 00753000 SPCTSEGS EQU SPCT+72 00754000 SPCTSEGE EQU 0 00755000 SPCTSEGX EQU SPCTSEGE 00756000 SPCTPGT EQU SPCTSEGE+1 00757000 SPCTSWPE EQU 0 00758000 SPCTLS EQU SPCTSWPE 00759000 SPCTFLAG EQU SPCTLS 00760000 SPCTEXTM EQU 0 00761000 SPCTENT EQU SPCTEXTM+8 00762000 CVTMAP EQU 0 00763000 CVT EQU CVTMAP 00764000 CVTDAR EQU CVTMAP+72 00765000 CVTFLGS1 EQU CVTDAR 00766000 CVTDCB EQU CVTMAP+116 00767000 CVTIOQET EQU CVTMAP+120 00768000 CVTIERLC EQU CVTMAP+144 00769000 CVTHEAD EQU CVTMAP+160 00770000 CVTSV76C EQU CVTHEAD 00771000 CVTOPTA EQU CVTMAP+182 00772000 CVTOPTB EQU CVTMAP+183 00773000 CVTGTF EQU CVTMAP+236 00774000 CVTGTFST EQU CVTGTF 00775000 CVTGTFS EQU CVTGTFST 00776000 CVTSTATE EQU CVTGTFST 00777000 CVTTMODE EQU CVTGTFST 00778000 CVTFORM EQU CVTGTFST 00779000 CVTAQAVT EQU CVTMAP+240 00780000 CVTTCMFG EQU CVTAQAVT 00781000 CVTVOLM2 EQU CVTMAP+244 00782000 CVTTATA EQU CVTVOLM2 00783000 CVTTSKS EQU CVTTATA 00784000 CVTVOLF2 EQU CVTTSKS 00785000 CVTTAT EQU CVTTATA+1 00786000 CVTATER EQU CVTMAP+248 00787000 CVTEXT1 EQU CVTMAP+252 00788000 CVTPURG EQU CVTMAP+260 00789000 CVTQMSG EQU CVTMAP+268 00790000 CVTDMSR EQU CVTMAP+272 00791000 CVTRSV37 EQU CVTDMSR 00792000 CVTDMSRF EQU CVTRSV37 00793000 CVTERPV EQU CVTMAP+316 00794000 CVTINTLA EQU CVTMAP+320 00795000 CVTAPF EQU CVTMAP+324 00796000 CVTEXT2 EQU CVTMAP+328 00797000 CVTHJES EQU CVTMAP+332 00798000 CVTPGSIA EQU CVTMAP+348 00799000 CVTA1F1 EQU CVTMAP+356 00800000 CVTSYSK EQU CVTMAP+357 00801000 CVTVOLM1 EQU CVTMAP+380 00802000 CVTVOLF1 EQU CVTVOLM1 00803000 CVTATMCT EQU CVTMAP+388 00804000 CVTXTNT1 EQU 0 00805000 CVTXTNT2 EQU 0 00806000 CVTDSSV EQU CVTXTNT2 00807000 CVTFLGBT EQU CVTXTNT2+5 00808000 CVTQID EQU CVTXTNT2+24 00809000 CVTRV400 EQU CVTXTNT2+52 00810000 CVTRV409 EQU CVTXTNT2+53 00811000 CVTATCVT EQU CVTXTNT2+64 00812000 CVTRV429 EQU CVTXTNT2+84 00813000 CVTRV438 EQU CVTXTNT2+85 00814000 CVTRV457 EQU CVTXTNT2+112 00815000 CVTRV466 EQU CVTXTNT2+113 00816000 CVTFIX EQU 0 00817000 CVTRELNO EQU CVTFIX+252 00818000 FRRS EQU 0 00819000 FRRSHEAD EQU FRRS 00820000 FRRSCURR EQU FRRSHEAD+12 00821000 FRRSENTR EQU 0 00822000 FRRSFLGS EQU FRRSENTR+4 00823000 FRRSFLG1 EQU FRRSFLGS 00824000 WSAG EQU 0 00825000 PGTPTE EQU 0 00826000 PGTRSA EQU PGTPTE 00827000 PGTBITS EQU PGTRSA+1 00828000 PGTPAM EQU PGTBITS 00829000 SGTSTE EQU 0 00830000 SGTLK EQU SGTSTE 00831000 SGTPTO EQU SGTSTE+1 00832000 SGTBYTE EQU SGTPTO+2 00833000 XPTE EQU 0 00834000 XPTFLAGS EQU XPTE+2 00835000 XPTFLAG2 EQU XPTE+3 00836000 XPTLPID EQU XPTE+4 00837000 XPTLGN EQU XPTLPID 00838000 XPTLPN EQU XPTLPID+4 00839000 PARMS EQU 0 00840000 ASCBINP EQU PARMS+20 00841000 ASCBIN EQU ASCBINP+1 00842000 VSAIN EQU PARMS+24 00843000 ASMACA EQU 0 00844000 ACA EQU ASMACA 00845000 ACAFLG1 EQU ACA+1 00846000 ACALGN EQU ACA+8 00847000 ACALPID EQU ACALGN 00848000 ACALGID EQU ACALPID 00849000 ACARPN EQU ACALPID+4 00850000 ACASYM EQU ACA+16 00851000 ACATOLP EQU ACASYM 00852000 ACATOLGI EQU ACATOLP 00853000 SAVEWORK EQU 0 00854000 NEWCB EQU 0 00855000 CBPGT EQU NEWCB+2848 00856000 CBSEG EQU NEWCB+3072 00857000 IEAVSQA EQU 0 00858000 IEAVFP2 EQU 0 00859000 IEAVPFTE EQU 0 00860000 IEAVINV EQU 0 00861000 PCPTR EQU 0 00862000 PGTEND EQU 0 00863000 SGTEND EQU 0 00864000 PSARSVTE EQU PSARSVT 00865000 PSACSTK EQU PSARSVTE 00866000 RCAPTR EQU PVTPRCA 00867000 SPCTPTR EQU RSMSPCT 00868000 CVTPTR EQU FLCCVT 00869000 CVTS01 EQU CVTPGSIA 00870000 CVTPVTP EQU CVTS01+8 00871000 CVTLPDIA EQU CVTS01+12 00872000 CVTDIRST EQU CVTLPDIA 00873000 CVTSLIDA EQU CVTS01+24 00874000 CVTCTLFG EQU CVTS01+50 00875000 CVTOPTE EQU CVTS01+188 00876000 CVTSPSA EQU CVTS01+336 00877000 CVTRV210 EQU CVTS01+424 00878000 CVTRV219 EQU CVTS01+425 00879000 CVTRV228 EQU CVTS01+426 00880000 CVTRV237 EQU CVTS01+427 00881000 CVTMFRTR EQU CVTS01+452 00882000 CVTRV262 EQU CVTS01+468 00883000 CVTRV271 EQU CVTS01+469 00884000 CVTRV280 EQU CVTS01+470 00885000 CVTRV289 EQU CVTS01+471 00886000 CVTGSDA EQU CVTS01+600 00887000 FRRSPTR EQU PSACSTK 00888000 FRREPTR EQU FRRSCURR 00889000 LCSA EQU PVTLCSA 00890000 LCSASEG EQU LCSA 00891000 LPRIV EQU PVTLPRIV 00892000 LPRIVSEG EQU LPRIV 00893000 FLC EQU PSA 00894000 * START UNREFERENCED COMPONENTS 00895000 @NM00054 EQU LPRIV+1 00896000 @NM00053 EQU LCSA+1 00897000 CVTRV628 EQU CVTS01+728 00898000 CVTRV627 EQU CVTS01+724 00899000 CVTRV626 EQU CVTS01+720 00900000 CVTRV625 EQU CVTS01+716 00901000 CVTRV624 EQU CVTS01+712 00902000 CVTRV623 EQU CVTS01+708 00903000 CVTRV622 EQU CVTS01+704 00904000 CVTRV621 EQU CVTS01+700 00905000 CVTIHASU EQU CVTS01+696 00906000 CVTSUSP EQU CVTS01+692 00907000 CVTT6SVC EQU CVTS01+688 00908000 CVTCDAL EQU CVTS01+684 00909000 CVTTCTL EQU CVTS01+680 00910000 CVTRSUME EQU CVTS01+676 00911000 CVTJTERM EQU CVTS01+672 00912000 CVTASMRM EQU CVTS01+668 00913000 CVTTCASP EQU CVTS01+664 00914000 CVT0PT03 EQU CVTS01+660 00915000 CVT0PT0E EQU CVTS01+656 00916000 CVTRV609 EQU CVTS01+652 00917000 CVTCGK EQU CVTS01+648 00918000 CVTRAC EQU CVTS01+644 00919000 CVTHSM EQU CVTS01+640 00920000 CVTRV605 EQU CVTS01+636 00921000 CVTRV604 EQU CVTS01+632 00922000 CVTEFF02 EQU CVTS01+628 00923000 CVTCBBR EQU CVTS01+624 00924000 CVTSSCR EQU CVTS01+620 00925000 CVTEVENT EQU CVTS01+616 00926000 CVTCRCA EQU CVTS01+612 00927000 CVTTPIO EQU CVTS01+608 00928000 CVTADV EQU CVTS01+604 00929000 CVTGSDAB EQU CVTGSDA 00930000 CVTQV3 EQU CVTS01+596 00931000 CVTQV2 EQU CVTS01+592 00932000 CVTQV1 EQU CVTS01+588 00933000 CVTRPT EQU CVTS01+584 00934000 CVTSSRB EQU CVTS01+580 00935000 CVTCSDRL EQU CVTS01+576 00936000 CVTEXP1 EQU CVTS01+572 00937000 CVTRMPMT EQU CVTS01+568 00938000 CVTRMPTT EQU CVTS01+564 00939000 CVTVPSA EQU CVTS01+560 00940000 CVTVSTOP EQU CVTS01+556 00941000 CVTGTFR8 EQU CVTS01+552 00942000 CVTQUIT EQU CVTS01+548 00943000 CVTVACR EQU CVTS01+544 00944000 CVTWTCB EQU CVTS01+540 00945000 CVTSTPRS EQU CVTS01+536 00946000 CVT0PT02 EQU CVTS01+532 00947000 CVTDARCM EQU CVTS01+528 00948000 CVTIRECM EQU CVTS01+524 00949000 CVTJRECM EQU CVTS01+520 00950000 CVTVEMS0 EQU CVTS01+516 00951000 CVTSPFRR EQU CVTS01+512 00952000 CVTRLSTG EQU CVTS01+508 00953000 CVT0TC0A EQU CVTS01+504 00954000 CVTGMBR EQU CVTS01+500 00955000 CVTLFRM EQU CVTS01+496 00956000 CVTRMBR EQU CVTS01+492 00957000 CVTVIOP EQU CVTS01+488 00958000 CVTRV307 EQU CVTS01+486 00959000 CVTRV306 EQU CVTS01+484 00960000 CVTRV305 EQU CVTS01+482 00961000 CVTRV304 EQU CVTS01+480 00962000 CVTRV303 EQU CVTS01+478 00963000 CVTRV302 EQU CVTS01+476 00964000 CVTTRCA EQU CVTS01+472 00965000 CVTRV297 EQU CVTRV289 00966000 CVTRV296 EQU CVTRV289 00967000 CVTRV295 EQU CVTRV289 00968000 CVTRV294 EQU CVTRV289 00969000 CVTRV293 EQU CVTRV289 00970000 CVTRV292 EQU CVTRV289 00971000 CVTRV291 EQU CVTRV289 00972000 CVTRV290 EQU CVTRV289 00973000 CVTRV288 EQU CVTRV280 00974000 CVTRV287 EQU CVTRV280 00975000 CVTRV286 EQU CVTRV280 00976000 CVTRV285 EQU CVTRV280 00977000 CVTRV284 EQU CVTRV280 00978000 CVTRV283 EQU CVTRV280 00979000 CVTRV282 EQU CVTRV280 00980000 CVTRV281 EQU CVTRV280 00981000 CVTRV279 EQU CVTRV271 00982000 CVTRV278 EQU CVTRV271 00983000 CVTRV277 EQU CVTRV271 00984000 CVTRV276 EQU CVTRV271 00985000 CVTRV275 EQU CVTRV271 00986000 CVTRV274 EQU CVTRV271 00987000 CVTRV273 EQU CVTRV271 00988000 CVTRV272 EQU CVTRV271 00989000 CVTRV270 EQU CVTRV262 00990000 CVTRV269 EQU CVTRV262 00991000 CVTRV268 EQU CVTRV262 00992000 CVTRV267 EQU CVTRV262 00993000 CVTRV266 EQU CVTRV262 00994000 CVTRV265 EQU CVTRV262 00995000 CVTRV264 EQU CVTRV262 00996000 CVTRV263 EQU CVTRV262 00997000 CVTVFP EQU CVTS01+464 00998000 CVTVSI EQU CVTS01+460 00999000 CVTVPSIB EQU CVTS01+456 01000000 CVTMFACT EQU CVTMFRTR 01001000 CVTMFCTL EQU CVTS01+448 01002000 CVTPVBP EQU CVTS01+444 01003000 CVTPWI EQU CVTS01+440 01004000 CVTRV254 EQU CVTS01+438 01005000 CVTRV253 EQU CVTS01+436 01006000 CVTRV252 EQU CVTS01+434 01007000 CVTRV251 EQU CVTS01+433 01008000 CVTRV250 EQU CVTS01+432 01009000 CVTRV249 EQU CVTS01+431 01010000 CVTRV248 EQU CVTS01+430 01011000 CVTRV247 EQU CVTS01+429 01012000 CVTRV246 EQU CVTS01+428 01013000 CVTRV245 EQU CVTRV237 01014000 CVTRV244 EQU CVTRV237 01015000 CVTRV243 EQU CVTRV237 01016000 CVTRV242 EQU CVTRV237 01017000 CVTRV241 EQU CVTRV237 01018000 CVTRV240 EQU CVTRV237 01019000 CVTRV239 EQU CVTRV237 01020000 CVTRV238 EQU CVTRV237 01021000 CVTRV236 EQU CVTRV228 01022000 CVTRV235 EQU CVTRV228 01023000 CVTRV234 EQU CVTRV228 01024000 CVTRV233 EQU CVTRV228 01025000 CVTRV232 EQU CVTRV228 01026000 CVTRV231 EQU CVTRV228 01027000 CVTRV230 EQU CVTRV228 01028000 CVTRV229 EQU CVTRV228 01029000 CVTRV227 EQU CVTRV219 01030000 CVTRV226 EQU CVTRV219 01031000 CVTRV225 EQU CVTRV219 01032000 CVTRV224 EQU CVTRV219 01033000 CVTRV223 EQU CVTRV219 01034000 CVTRV222 EQU CVTRV219 01035000 CVTRV221 EQU CVTRV219 01036000 CVTRV220 EQU CVTRV219 01037000 CVTRV218 EQU CVTRV210 01038000 CVTRV217 EQU CVTRV210 01039000 CVTRV216 EQU CVTRV210 01040000 CVTRV215 EQU CVTRV210 01041000 CVTRV214 EQU CVTRV210 01042000 CVTRV213 EQU CVTRV210 01043000 CVTRV212 EQU CVTRV210 01044000 CVTRV211 EQU CVTRV210 01045000 CVTLCCAT EQU CVTS01+420 01046000 CVTPCCAT EQU CVTS01+416 01047000 CVTIPCRP EQU CVTS01+412 01048000 CVTIPCRI EQU CVTS01+408 01049000 CVTIPCDS EQU CVTS01+404 01050000 CVTAIDVT EQU CVTS01+400 01051000 CVTSSAP EQU CVTS01+396 01052000 CVTEHCIR EQU CVTS01+392 01053000 CVTEHDEF EQU CVTS01+388 01054000 CVTDAIR EQU CVTS01+384 01055000 CVTPERFM EQU CVTS01+380 01056000 CVT044R2 EQU CVTS01+376 01057000 CVTFETCH EQU CVTS01+372 01058000 CVTRSTWD EQU CVTS01+368 01059000 CVTSPOST EQU CVTS01+364 01060000 CVTIOBP EQU CVTS01+360 01061000 CVTASMVT EQU CVTS01+356 01062000 CVTRECRQ EQU CVTS01+352 01063000 CVTWSAC EQU CVTS01+348 01064000 CVTRV149 EQU CVTS01+344 01065000 CVTWSAL EQU CVTS01+340 01066000 CVTGLMN EQU CVTS01+332 01067000 CVTVEAC0 EQU CVTS01+328 01068000 CVT062R1 EQU CVTS01+324 01069000 CVTRPOST EQU CVTS01+320 01070000 CVTDQIQE EQU CVTS01+316 01071000 CVTCSD EQU CVTS01+312 01072000 CVTLKRMA EQU CVTS01+308 01073000 CVTRSPIE EQU CVTS01+304 01074000 CVTRENQ EQU CVTS01+300 01075000 CVTLQCB EQU CVTS01+296 01076000 CVTFQCB EQU CVTS01+292 01077000 CVTQCS01 EQU CVTS01+288 01078000 CVTAPFT EQU CVTS01+284 01079000 CVTPARRL EQU CVTS01+280 01080000 CVTVWAIT EQU CVTS01+276 01081000 CVTGSPL EQU CVTS01+272 01082000 CVTLSMQ EQU CVTS01+268 01083000 CVTGSMQ EQU CVTS01+264 01084000 CVTEXPRO EQU CVTS01+260 01085000 CVTOPCTP EQU CVTS01+256 01086000 CVTSIC EQU CVTS01+252 01087000 CVTTPIOS EQU CVTS01+248 01088000 CVTRTMS EQU CVTS01+244 01089000 CVTSDBF EQU CVTS01+240 01090000 CVTSCBP EQU CVTS01+236 01091000 CVTSDMP EQU CVTS01+232 01092000 CVTSV60 EQU CVTS01+228 01093000 CVTRTMCT EQU CVTS01+224 01094000 CVTASCBL EQU CVTS01+220 01095000 CVTASCBH EQU CVTS01+216 01096000 CVTGDA EQU CVTS01+212 01097000 CVTASVT EQU CVTS01+208 01098000 CVTVVMDI EQU CVTS01+204 01099000 CVTAQTOP EQU CVTS01+200 01100000 CVTIOSCS EQU CVTS01+196 01101000 CVTSDRM EQU CVTS01+192 01102000 CVTSTXU EQU CVTS01+184 01103000 CVTQUIS EQU CVTS01+180 01104000 CVTPARS EQU CVTS01+176 01105000 CVTS1EE EQU CVTS01+172 01106000 CVTFRAS EQU CVTS01+168 01107000 CVTQSAS EQU CVTS01+164 01108000 CVTCRAS EQU CVTS01+160 01109000 CVTCRMN EQU CVTS01+156 01110000 CVTDELCP EQU CVTS01+152 01111000 CVTFRECL EQU CVTS01+148 01112000 CVTGETCL EQU CVTS01+144 01113000 CVTBLDCP EQU CVTS01+140 01114000 CVTAUTHL EQU CVTS01+136 01115000 CVTSCAN EQU CVTS01+132 01116000 CVTRV144 EQU CVTS01+130 01117000 CVTMAXMP EQU CVTS01+128 01118000 CVTSTCK EQU CVTS01+124 01119000 CVTRV139 EQU CVTS01+123 01120000 CVTDSSAC EQU CVTS01+122 01121000 CVTRV513 EQU CVTS01+121 01122000 CVTIOSPL EQU CVTS01+120 01123000 CVTPTGT EQU CVTS01+116 01124000 CVTCSPIE EQU CVTS01+112 01125000 CVTSMFEX EQU CVTS01+108 01126000 CVTOLT0A EQU CVTS01+104 01127000 CVTSRBRT EQU CVTS01+100 01128000 CVTPUTL EQU CVTS01+96 01129000 CVTASCRL EQU CVTS01+92 01130000 CVTASCRF EQU CVTS01+88 01131000 CVTRV326 EQU CVTS01+84 01132000 CVTRV325 EQU CVTS01+80 01133000 CVTRV324 EQU CVTS01+76 01134000 CVT0VL01 EQU CVTS01+72 01135000 CVTSHRVM EQU CVTS01+68 01136000 CVTRV332 EQU CVTS01+64 01137000 CVTTAS EQU CVTS01+60 01138000 CVTRSCN EQU CVTS01+56 01139000 CVTTRAC2 EQU CVTS01+54 01140000 CVTTRACE EQU CVTS01+52 01141000 CVTAPG EQU CVTS01+51 01142000 CVTSDTRC EQU CVTCTLFG 01143000 CVTGTRCE EQU CVTCTLFG 01144000 CVTNOMP EQU CVTCTLFG 01145000 CVTRSV79 EQU CVTCTLFG 01146000 CVTDSTAT EQU CVTCTLFG 01147000 CVTRSV78 EQU CVTCTLFG 01148000 CVTRV333 EQU CVTCTLFG 01149000 CVTRV323 EQU CVTCTLFG 01150000 CVTSPVLK EQU CVTS01+49 01151000 CVTRSV77 EQU CVTS01+48 01152000 CVTRV331 EQU CVTS01+44 01153000 CVTRV330 EQU CVTS01+40 01154000 CVTRV329 EQU CVTS01+36 01155000 CVTRV328 EQU CVTS01+32 01156000 CVTRV322 EQU CVTS01+28 01157000 CVTSLID EQU CVTSLIDA+1 01158000 CVTSYLK EQU CVTSLIDA 01159000 CVTRV321 EQU CVTS01+20 01160000 CVTRV320 EQU CVTS01+16 01161000 CVTLPDIR EQU CVTLPDIA+1 01162000 CVTRSV69 EQU CVTDIRST 01163000 CVTRSV68 EQU CVTDIRST 01164000 CVTRSV67 EQU CVTDIRST 01165000 CVTRSV66 EQU CVTDIRST 01166000 CVTRSV65 EQU CVTDIRST 01167000 CVTRSV64 EQU CVTDIRST 01168000 CVTRSV63 EQU CVTDIRST 01169000 CVTDICOM EQU CVTDIRST 01170000 CVTLPDSR EQU CVTS01+4 01171000 CVTGETL EQU CVTS01 01172000 PSARSAV EQU PSARSVTE+60 01173000 PSARSTK EQU PSARSVTE+56 01174000 PSAESAV3 EQU PSARSVTE+52 01175000 PSAESTK3 EQU PSARSVTE+48 01176000 PSAESAV2 EQU PSARSVTE+44 01177000 PSAESTK2 EQU PSARSVTE+40 01178000 PSAESAV1 EQU PSARSVTE+36 01179000 PSAESTK1 EQU PSARSVTE+32 01180000 PSAPSAV EQU PSARSVTE+28 01181000 PSAPSTK EQU PSARSVTE+24 01182000 PSAMSAV EQU PSARSVTE+20 01183000 PSAMSTK EQU PSARSVTE+16 01184000 PSASSAV EQU PSARSVTE+12 01185000 PSASSTK EQU PSARSVTE+8 01186000 PSANSTK EQU PSARSVTE+4 01187000 CBXPT EQU NEWCB+2880 01188000 CBRESV1 EQU NEWCB+4 01189000 CBFIRST EQU NEWCB 01190000 MYACA EQU SAVEWORK+144 01191000 SVAREA2 EQU SAVEWORK+72 01192000 SVAREA1 EQU SAVEWORK 01193000 ACATORPN EQU ACATOLP+4 01194000 ACAMAXPN EQU ACATOLGI 01195000 ACAAIAP EQU ACARPN 01196000 ACAFLSID EQU ACALGID 01197000 ACARSV4 EQU ACA+4 01198000 ACAASID EQU ACA+2 01199000 ACARSV3 EQU ACAFLG1 01200000 ACARSV2 EQU ACAFLG1 01201000 ACARSV1 EQU ACAFLG1 01202000 ACAFSYM EQU ACAFLG1 01203000 ACAFSPL EQU ACAFLG1 01204000 ACAFFIX EQU ACAFLG1 01205000 ACARSV5 EQU ACAFLG1 01206000 ACAFMEM EQU ACAFLG1 01207000 ACAOP EQU ACA 01208000 @NM00052 EQU ASCBINP 01209000 RESERV2 EQU PARMS+12 01210000 FOREWARD EQU PARMS+8 01211000 RESERV1 EQU PARMS+4 01212000 INTERR EQU PARMS 01213000 XPTLSID2 EQU XPTLPN 01214000 XPTLSID EQU XPTLGN 01215000 @NM00051 EQU XPTFLAG2 01216000 XPTIOERR EQU XPTFLAG2 01217000 XPTPOINP EQU XPTFLAG2 01218000 XPTRES1 EQU XPTFLAG2 01219000 XPTVALID EQU XPTFLAG2 01220000 XPTRSV4 EQU XPTFLAGS 01221000 XPTDEFER EQU XPTFLAGS 01222000 XPTRES2 EQU XPTFLAGS 01223000 XPTVIO EQU XPTFLAGS 01224000 @NM00050 EQU XPTFLAGS 01225000 XPTCKF EQU XPTFLAGS 01226000 XPTXAV EQU XPTFLAGS 01227000 XPTVIOLP EQU XPTFLAGS 01228000 XPTRSV1 EQU XPTE+1 01229000 XPTPROT EQU XPTE 01230000 SGTPAM EQU SGTBYTE 01231000 SGTEAC EQU SGTBYTE 01232000 @NM00049 EQU SGTBYTE 01233000 @NM00048 EQU SGTBYTE 01234000 @NM00047 EQU SGTBYTE 01235000 @NM00046 EQU SGTBYTE 01236000 @NM00045 EQU SGTBYTE 01237000 SGTORG EQU SGTPTO 01238000 SGTKEY EQU SGTLK 01239000 SGTPTL EQU SGTLK 01240000 @NM00044 EQU PGTBITS 01241000 @NM00043 EQU PGTBITS 01242000 PGTPVM EQU PGTBITS 01243000 @NM00042 EQU PGTBITS 01244000 @NM00041 EQU PGTBITS 01245000 @NM00040 EQU PGTBITS 01246000 @NM00039 EQU PGTBITS 01247000 PGTREAL EQU PGTRSA 01248000 WSAGSCHE EQU WSAG+40 01249000 WSAGREST EQU WSAG+36 01250000 WSAGNQDQ EQU WSAG+32 01251000 WSAGMEMT EQU WSAG+28 01252000 WSAGOPTM EQU WSAG+24 01253000 WSAGSTAT EQU WSAG+20 01254000 WSAGEMS0 EQU WSAG+16 01255000 WSAGSSRS EQU WSAG+12 01256000 WSAGRSM EQU WSAG+8 01257000 WSAGGMFM EQU WSAG+4 01258000 WSAGPGIO EQU WSAG 01259000 FRRSPARM EQU FRRSENTR+8 01260000 @NM00038 EQU FRRSFLGS+1 01261000 @NM00037 EQU FRRSFLG1 01262000 FRRSNEST EQU FRRSFLG1 01263000 FRRSRCUR EQU FRRSFLG1 01264000 FRRSFRRA EQU FRRSENTR 01265000 FRRSENTS EQU FRRS+84 01266000 FRRSRTMW EQU FRRS+16 01267000 FRRSELEN EQU FRRSHEAD+8 01268000 FRRSLAST EQU FRRSHEAD+4 01269000 FRRSEMP EQU FRRSHEAD 01270000 CVTLEVL EQU CVTRELNO+2 01271000 CVTNUMB EQU CVTRELNO 01272000 CVTMDL EQU CVTFIX+250 01273000 @NM00036 EQU CVTFIX+248 01274000 @NM00035 EQU CVTFIX 01275000 CVTRV482 EQU CVTXTNT2+128 01276000 CVTRV481 EQU CVTXTNT2+124 01277000 CVTRV480 EQU CVTXTNT2+120 01278000 CVTRV479 EQU CVTXTNT2+118 01279000 CVTRV478 EQU CVTXTNT2+117 01280000 CVTRV477 EQU CVTXTNT2+116 01281000 CVTRV476 EQU CVTXTNT2+115 01282000 CVTRV475 EQU CVTXTNT2+114 01283000 CVTRV474 EQU CVTRV466 01284000 CVTRV473 EQU CVTRV466 01285000 CVTRV472 EQU CVTRV466 01286000 CVTRV471 EQU CVTRV466 01287000 CVTRV470 EQU CVTRV466 01288000 CVTRV469 EQU CVTRV466 01289000 CVTRV468 EQU CVTRV466 01290000 CVTRV467 EQU CVTRV466 01291000 CVTRV465 EQU CVTRV457 01292000 CVTRV464 EQU CVTRV457 01293000 CVTRV463 EQU CVTRV457 01294000 CVTRV462 EQU CVTRV457 01295000 CVTRV461 EQU CVTRV457 01296000 CVTRV460 EQU CVTRV457 01297000 CVTRV459 EQU CVTRV457 01298000 CVTRV458 EQU CVTRV457 01299000 CVTRV456 EQU CVTXTNT2+108 01300000 CVTRV455 EQU CVTXTNT2+104 01301000 CVTRV454 EQU CVTXTNT2+100 01302000 CVTRV453 EQU CVTXTNT2+96 01303000 CVTRV452 EQU CVTXTNT2+94 01304000 CVTRV451 EQU CVTXTNT2+92 01305000 CVTRV450 EQU CVTXTNT2+90 01306000 CVTRV449 EQU CVTXTNT2+88 01307000 CVTRV448 EQU CVTXTNT2+87 01308000 CVTRV447 EQU CVTXTNT2+86 01309000 CVTRV446 EQU CVTRV438 01310000 CVTRV445 EQU CVTRV438 01311000 CVTRV444 EQU CVTRV438 01312000 CVTRV443 EQU CVTRV438 01313000 CVTRV442 EQU CVTRV438 01314000 CVTRV441 EQU CVTRV438 01315000 CVTRV440 EQU CVTRV438 01316000 CVTRV439 EQU CVTRV438 01317000 CVTRV437 EQU CVTRV429 01318000 CVTRV436 EQU CVTRV429 01319000 CVTRV435 EQU CVTRV429 01320000 CVTRV434 EQU CVTRV429 01321000 CVTRV433 EQU CVTRV429 01322000 CVTRV432 EQU CVTRV429 01323000 CVTRV431 EQU CVTRV429 01324000 CVTRV430 EQU CVTRV429 01325000 CVTRV428 EQU CVTXTNT2+80 01326000 CVTRV427 EQU CVTXTNT2+76 01327000 CVTRV426 EQU CVTXTNT2+72 01328000 CVTRV425 EQU CVTXTNT2+68 01329000 CVTATACT EQU CVTATCVT 01330000 CVTRV423 EQU CVTXTNT2+62 01331000 CVTRV422 EQU CVTXTNT2+60 01332000 CVTRV421 EQU CVTXTNT2+58 01333000 CVTRV420 EQU CVTXTNT2+56 01334000 CVTRV419 EQU CVTXTNT2+55 01335000 CVTRV418 EQU CVTXTNT2+54 01336000 CVTRV417 EQU CVTRV409 01337000 CVTRV416 EQU CVTRV409 01338000 CVTRV415 EQU CVTRV409 01339000 CVTRV414 EQU CVTRV409 01340000 CVTRV413 EQU CVTRV409 01341000 CVTRV412 EQU CVTRV409 01342000 CVTRV411 EQU CVTRV409 01343000 CVTRV410 EQU CVTRV409 01344000 CVTRV408 EQU CVTRV400 01345000 CVTRV407 EQU CVTRV400 01346000 CVTRV406 EQU CVTRV400 01347000 CVTRV405 EQU CVTRV400 01348000 CVTRV404 EQU CVTRV400 01349000 CVTRV403 EQU CVTRV400 01350000 CVTRV402 EQU CVTRV400 01351000 CVTRV401 EQU CVTRV400 01352000 CVTICB EQU CVTXTNT2+48 01353000 CVTSKTA EQU CVTXTNT2+44 01354000 CVTCCVT EQU CVTXTNT2+40 01355000 CVTRSV98 EQU CVTXTNT2+36 01356000 CVTRSV97 EQU CVTXTNT2+34 01357000 CVTRSV96 EQU CVTXTNT2+32 01358000 CVTOLTEP EQU CVTXTNT2+28 01359000 CVTQIDA EQU CVTQID+1 01360000 CVTRSV95 EQU CVTQID 01361000 CVTRSV94 EQU CVTXTNT2+20 01362000 CVTRSV93 EQU CVTXTNT2+16 01363000 CVTRSV92 EQU CVTXTNT2+12 01364000 CVTDEBVR EQU CVTXTNT2+8 01365000 CVTRSV91 EQU CVTXTNT2+6 01366000 CVTRSV9H EQU CVTFLGBT 01367000 CVTRSV9G EQU CVTFLGBT 01368000 CVTRSV9F EQU CVTFLGBT 01369000 CVTRSV9E EQU CVTFLGBT 01370000 CVTRSV9D EQU CVTFLGBT 01371000 CVTRSV9C EQU CVTFLGBT 01372000 CVTVME EQU CVTFLGBT 01373000 CVTNPE EQU CVTFLGBT 01374000 CVTNUCLS EQU CVTXTNT2+4 01375000 CVTDSSVA EQU CVTDSSV+1 01376000 CVTRSV89 EQU CVTDSSV 01377000 CVTRSV88 EQU CVTXTNT1+8 01378000 CVTRSV87 EQU CVTXTNT1+4 01379000 CVTFACHN EQU CVTXTNT1 01380000 CVTRV488 EQU CVTMAP+412 01381000 CVTRV487 EQU CVTMAP+408 01382000 CVTRV486 EQU CVTMAP+404 01383000 CVTRV485 EQU CVTMAP+400 01384000 CVTACTAP EQU CVTMAP+396 01385000 CVTAUTH EQU CVTMAP+392 01386000 CVTATMCA EQU CVTATMCT+1 01387000 CVTATMST EQU CVTATMCT 01388000 CVTRSV61 EQU CVTMAP+384 01389000 CVTVOLT1 EQU CVTVOLM1+1 01390000 CVTVOLI1 EQU CVTVOLF1 01391000 CVTSTOA EQU CVTMAP+376 01392000 CVTRSV58 EQU CVTMAP+374 01393000 CVTRSV57 EQU CVTMAP+372 01394000 CVTDDCE EQU CVTMAP+368 01395000 CVTPNWFR EQU CVTMAP+364 01396000 CVTSMF EQU CVTMAP+360 01397000 CVTSULK EQU CVTMAP+358 01398000 CVTSLKO EQU CVTSYSK 01399000 CVTSLKP EQU CVTSYSK 01400000 CVTSLKQ EQU CVTSYSK 01401000 CVTSLKR EQU CVTSYSK 01402000 CVTRSV56 EQU CVTSYSK 01403000 CVTRSV55 EQU CVTSYSK 01404000 CVTRSV54 EQU CVTSYSK 01405000 CVTRSV53 EQU CVTSYSK 01406000 CVTRSV52 EQU CVTA1F1 01407000 CVTRSV51 EQU CVTA1F1 01408000 CVTRSV50 EQU CVTA1F1 01409000 CVTRSV49 EQU CVTA1F1 01410000 CVTRSV48 EQU CVTA1F1 01411000 CVTRSV47 EQU CVTA1F1 01412000 CVTSRSW EQU CVTA1F1 01413000 CVTPFSW EQU CVTA1F1 01414000 CVTPCVT EQU CVTMAP+352 01415000 CVTRSV46 EQU CVTMAP+344 01416000 CVTRSV45 EQU CVTMAP+340 01417000 CVTRSV44 EQU CVTMAP+338 01418000 CVTRSV43 EQU CVTMAP+336 01419000 CVTHJESA EQU CVTHJES+1 01420000 CVTRSV42 EQU CVTHJES 01421000 CVTEXT2A EQU CVTEXT2+1 01422000 CVTRSV41 EQU CVTEXT2 01423000 CVTAPFA EQU CVTAPF+1 01424000 CVTRSV40 EQU CVTAPF 01425000 CVTRV518 EQU CVTINTLA 01426000 CVTRV517 EQU CVTERPV 01427000 CVTEORM EQU CVTMAP+312 01428000 CVTMCHPR EQU CVTMAP+308 01429000 CVTTZ EQU CVTMAP+304 01430000 CVTJEPS EQU CVTMAP+300 01431000 CVTJESCT EQU CVTMAP+296 01432000 CVTMODE EQU CVTMAP+292 01433000 CVTPTRV EQU CVTMAP+288 01434000 CVTREAL EQU CVTMAP+284 01435000 CVTRSV39 EQU CVTMAP+280 01436000 CVTRSV38 EQU CVTMAP+276 01437000 CVTDMSRA EQU CVTDMSR+1 01438000 CVTRV634 EQU CVTDMSRF 01439000 CVTRV633 EQU CVTDMSRF 01440000 CVTRV632 EQU CVTDMSRF 01441000 CVTRV631 EQU CVTDMSRF 01442000 CVTRV630 EQU CVTDMSRF 01443000 CVTRV629 EQU CVTDMSRF 01444000 CVTUDUMP EQU CVTDMSRF 01445000 CVTSDUMP EQU CVTDMSRF 01446000 CVTQMSGA EQU CVTQMSG+1 01447000 CVTRSV36 EQU CVTQMSG 01448000 CVTAMFF EQU CVTMAP+264 01449000 CVTPURGA EQU CVTPURG+1 01450000 CVTRSV35 EQU CVTPURG 01451000 CVTCBSP EQU CVTMAP+256 01452000 CVTATERA EQU CVTATER+1 01453000 CVTSYST EQU CVTATER 01454000 CVTVOLT2 EQU CVTTAT 01455000 CVTVOLI2 EQU CVTVOLF2 01456000 CVTAQAVB EQU CVTAQAVT+1 01457000 CVTRSV34 EQU CVTTCMFG 01458000 CVTRSV33 EQU CVTTCMFG 01459000 CVTRSV32 EQU CVTTCMFG 01460000 CVTRSV31 EQU CVTTCMFG 01461000 CVTRSV30 EQU CVTTCMFG 01462000 CVTRSV29 EQU CVTTCMFG 01463000 CVTLDEV EQU CVTTCMFG 01464000 CVTTCRDY EQU CVTTCMFG 01465000 CVTGTFA EQU CVTGTF+1 01466000 CVTRSV27 EQU CVTGTFST 01467000 CVTRNIO EQU CVTGTFST 01468000 CVTUSR EQU CVTGTFST 01469000 CVTRV318 EQU CVTFORM 01470000 CVTRV317 EQU CVTTMODE 01471000 CVTRV316 EQU CVTSTATE 01472000 CVTRV315 EQU CVTGTFS 01473000 CVTGTFAV EQU CVTGTFS 01474000 CVT0SCR1 EQU CVTMAP+232 01475000 CVTRV515 EQU CVTMAP+228 01476000 CVTRMS EQU CVTMAP+224 01477000 CVTPATCH EQU CVTMAP+220 01478000 CVTTSCE EQU CVTMAP+216 01479000 CVTLNKSC EQU CVTMAP+214 01480000 CVTQABST EQU CVTMAP+212 01481000 CVTMDLDS EQU CVTMAP+208 01482000 CVTUSER EQU CVTMAP+204 01483000 CVTABEND EQU CVTMAP+200 01484000 CVTSMCA EQU CVTMAP+196 01485000 CVTRSV18 EQU CVTMAP+192 01486000 CVTQLPAQ EQU CVTMAP+188 01487000 CVTQCDSR EQU CVTMAP+184 01488000 CVTRSV17 EQU CVTOPTB 01489000 CVTRSV16 EQU CVTOPTB 01490000 CVTFP EQU CVTOPTB 01491000 CVTAPTHR EQU CVTOPTB 01492000 CVTNLOG EQU CVTOPTB 01493000 CVTTOD EQU CVTOPTB 01494000 CVTCTIMS EQU CVTOPTB 01495000 CVTPROT EQU CVTOPTB 01496000 CVTXPFP EQU CVTOPTA 01497000 CVTASCII EQU CVTOPTA 01498000 CVTRSV13 EQU CVTOPTA 01499000 CVTRSV12 EQU CVTOPTA 01500000 CVTNIP EQU CVTOPTA 01501000 CVTDDR EQU CVTOPTA 01502000 CVTAPR EQU CVTOPTA 01503000 CVTCCH EQU CVTOPTA 01504000 CVTSNCTR EQU CVTMAP+180 01505000 CVTQMWR EQU CVTMAP+176 01506000 CVTQOCR EQU CVTMAP+172 01507000 CVT1EF00 EQU CVTMAP+168 01508000 CVTMZ00 EQU CVTMAP+164 01509000 CVTSV76Q EQU CVTSV76C 01510000 CVTRSV11 EQU CVTMAP+156 01511000 CVT0PT01 EQU CVTMAP+152 01512000 CVTMSER EQU CVTMAP+148 01513000 CVTRV516 EQU CVTIERLC 01514000 CVTILCH EQU CVTMAP+140 01515000 CVT0DS EQU CVTMAP+136 01516000 CVTFBOSV EQU CVTMAP+132 01517000 CVTNUCB EQU CVTMAP+128 01518000 CVTIXAVL EQU CVTMAP+124 01519000 CVTSV76M EQU CVTIOQET 01520000 CVTDCBA EQU CVTMAP+117 01521000 CVTMVS2 EQU CVTDCB 01522000 CVT6DAT EQU CVTDCB 01523000 CVT4MPS EQU CVTDCB 01524000 CVTRSV09 EQU CVTDCB 01525000 CVT4MS1 EQU CVTDCB 01526000 CVT2SPS EQU CVTDCB 01527000 CVT1SSS EQU CVTDCB 01528000 CVTRSV08 EQU CVTDCB 01529000 CVTSTB EQU CVTMAP+112 01530000 CVTQTD00 EQU CVTMAP+108 01531000 CVTQTE00 EQU CVTMAP+104 01532000 CVTCUCB EQU CVTMAP+100 01533000 CVTSJQ EQU CVTMAP+96 01534000 CVTPBLDL EQU CVTMAP+92 01535000 CVTTPC EQU CVTMAP+88 01536000 CVTSVDCB EQU CVTMAP+84 01537000 CVTBRET EQU CVTMAP+82 01538000 CVTEXIT EQU CVTMAP+80 01539000 CVT0FN00 EQU CVTMAP+76 01540000 CVTDARA EQU CVTDAR+1 01541000 CVTRSV07 EQU CVTFLGS1 01542000 CVTRSV06 EQU CVTFLGS1 01543000 CVTRSV05 EQU CVTFLGS1 01544000 CVTRSV04 EQU CVTFLGS1 01545000 CVTRSV03 EQU CVTFLGS1 01546000 CVTRSV02 EQU CVTFLGS1 01547000 CVTRSV01 EQU CVTFLGS1 01548000 CVTDMPLK EQU CVTFLGS1 01549000 CVTXITP EQU CVTMAP+68 01550000 CVTZDTAB EQU CVTMAP+64 01551000 CVTMSLT EQU CVTMAP+60 01552000 CVTDATE EQU CVTMAP+56 01553000 CVTBTERM EQU CVTMAP+52 01554000 CVTSYSAD EQU CVTMAP+48 01555000 CVTXTLER EQU CVTMAP+44 01556000 CVTILK2 EQU CVTMAP+40 01557000 CVTILK1 EQU CVTMAP+36 01558000 CVTPRLTV EQU CVTMAP+32 01559000 CVTPCNVT EQU CVTMAP+28 01560000 CVT0VL00 EQU CVTMAP+24 01561000 CVTXAPG EQU CVTMAP+20 01562000 CVTBUF EQU CVTMAP+16 01563000 CVTJOB EQU CVTMAP+12 01564000 CVTLINK EQU CVTMAP+8 01565000 CVT0EF00 EQU CVTMAP+4 01566000 CVTTCBP EQU CVTMAP 01567000 SPCTXEND EQU SPCTENT+48 01568000 SPCTENTS EQU SPCTENT 01569000 @NM00034 EQU SPCTEXTM+4 01570000 SPCTEXT EQU SPCTEXTM 01571000 SPCTFIXC EQU SPCTSWPE+6 01572000 SPCTVBN EQU SPCTLS+4 01573000 SPCTSSID EQU SPCTLS+1 01574000 @NM00033 EQU SPCTFLAG 01575000 SPCTDEFR EQU SPCTFLAG 01576000 SPCTCOMM EQU SPCTFLAG 01577000 SPCTLSQ EQU SPCTFLAG 01578000 SPCTLVAL EQU SPCTFLAG 01579000 SPCTBITM EQU SPCTSEGE+4 01580000 SPCTSWAP EQU SPCT+16 01581000 SPCTWSSZ EQU SPCT+12 01582000 @NM00032 EQU SPCTFLG1 01583000 SPCTVROT EQU SPCTFLG1 01584000 SPCTPSET EQU SPCTFLG1 01585000 SPCTBIG EQU SPCTFLG1 01586000 SPCTPURG EQU SPCTFLG1 01587000 SPCTOUT EQU SPCTFLG1 01588000 SPCTSWIN EQU SPCTFLG1 01589000 SPCTLSQA EQU SPCT+6 01590000 SPCTFIX EQU SPCT+4 01591000 SPCTSWRT EQU SPCT 01592000 RCARETAD EQU RCA+20 01593000 RCARES9 EQU RCA+19 01594000 @NM00031 EQU RCA+18 01595000 RCAPIOI EQU RCA+18 01596000 RCANAME7 EQU RCANAMES+6 01597000 RCAREP1 EQU RCANAME6 01598000 RCAPSIF EQU RCANAME6 01599000 RCAPSIX EQU RCANAME6 01600000 RCAVEQRP EQU RCANAME6 01601000 RCARCFC EQU RCANAME6 01602000 RCACSGB EQU RCANAME6 01603000 RCAFXL EQU RCANAME6 01604000 RCAPS113 EQU RCANAME6 01605000 RCAFREE EQU RCANAME5 01606000 RCARFR2 EQU RCANAME5 01607000 RCACPBR EQU RCANAME5 01608000 RCAOPBR EQU RCANAME5 01609000 RCASORT EQU RCANAME5 01610000 RCASIRT EQU RCANAME5 01611000 RCARELV EQU RCANAME5 01612000 RCARELF EQU RCANAME5 01613000 RCAGFAD EQU RCANAME4 01614000 RCAVEQRI EQU RCANAME4 01615000 RCAVEQRF EQU RCANAME4 01616000 RCAVEQRC EQU RCANAME4 01617000 RCATERM EQU RCANAME4 01618000 RCASQA EQU RCANAME4 01619000 RCASWIN EQU RCANAME4 01620000 RCASOUT EQU RCANAME4 01621000 RCARFR EQU RCANAME3 01622000 RCARELS EQU RCANAME3 01623000 RCARCFI EQU RCANAME3 01624000 RCARCF EQU RCANAME3 01625000 RCAPSII EQU RCANAME3 01626000 RCAPSIB EQU RCANAME3 01627000 RCAPS112 EQU RCANAME3 01628000 RCAPIX EQU RCANAME3 01629000 RCAPIOP EQU RCANAME2 01630000 RCASWPC EQU RCANAME2 01631000 RCASWPP EQU RCANAME2 01632000 RCAPFTE EQU RCANAME2 01633000 RCAPCB EQU RCANAME2 01634000 RCAOUT EQU RCANAME2 01635000 RCAIOCP EQU RCANAME2 01636000 RCAINV EQU RCANAME1 01637000 RCAGFA EQU RCANAME1 01638000 RCAFXLD EQU RCANAME1 01639000 RCAVEQR EQU RCANAME1 01640000 RCADSEG EQU RCANAME1 01641000 RCADLAS EQU RCANAME1 01642000 RCACSEG EQU RCANAME1 01643000 RCAVAMSI EQU RCANAME1 01644000 RCARCRD EQU RCA+11 01645000 @NM00030 EQU RCAFLAGS 01646000 RCADISP EQU RCAFLAGS 01647000 @NM00029 EQU RCAFLAGS 01648000 RCAQS EQU RCAFLAGS 01649000 RCAPSIER EQU RCAFLAGS 01650000 RCAABEND EQU RCAFLAGS 01651000 RCALL EQU RCAFLAGS 01652000 RCARES7 EQU RCA+8 01653000 RCAPARM1 EQU RCA+4 01654000 RCAPARM0 EQU RCA 01655000 PFTUIC EQU PFTE+15 01656000 PFTQNDX EQU PFTE+14 01657000 @NM00028 EQU PFTFLAG2 01658000 @NM00027 EQU PFTFLAG2 01659000 PFTPREF EQU PFTFLAG2 01660000 PFTSTEAL EQU PFTFLAG2 01661000 PFTIRRG EQU PFTFLAG2 01662000 PFTVR EQU PFTFLAG2 01663000 PFTOFFLN EQU PFTFLAG2 01664000 PFTDFRLS EQU PFTFLAG2 01665000 PFTOFINT EQU PFTFLAG1 01666000 PFTVRALC EQU PFTFLAG1 01667000 PFTBADPG EQU PFTFLAG1 01668000 PFTPCBSI EQU PFTFLAG1 01669000 PFTVRPLT EQU PFTFLAG1 01670000 PFTLSQA EQU PFTFLAG1 01671000 PFTVRINT EQU PFTFLAG1 01672000 PFTONAVQ EQU PFTFLAG1 01673000 PFTRSV1 EQU PFTE+10 01674000 PFTFXCT EQU PFTE+8 01675000 PFTBQPTR EQU PFTQPTRS+2 01676000 PFTFQPTR EQU PFTQPTRS 01677000 RSMASMHD EQU RSMHD+40 01678000 RSMFOEQ EQU RSMHD+36 01679000 RSMLIOQL EQU RSMLIOQ+4 01680000 RSMLIOQF EQU RSMLIOQ 01681000 RSMLSQAL EQU RSMLSQA+2 01682000 RSMLSQAF EQU RSMLSQA 01683000 RSMLFQL EQU RSMLFQ+2 01684000 RSMLFQF EQU RSMLFQ 01685000 RSMRSV2 EQU RSMHD+16 01686000 RSMRSV1 EQU RSMHD+13 01687000 @NM00026 EQU RSMFLG1 01688000 RSMFAIL EQU RSMFLG1 01689000 RSMGFADD EQU RSMFLG1 01690000 RSMCPNC EQU RSMFLG1 01691000 RSMCPNU EQU RSMFLG1 01692000 RSMGFAD EQU RSMFLG1 01693000 RSMIOCPC EQU RSMFLG1 01694000 RSMIOCPU EQU RSMFLG1 01695000 PVTEND EQU PVT+1848 01696000 PVTTASID EQU PVT+1846 01697000 PVTXXXXX EQU PVT+1844 01698000 PVTMVCLC EQU PVT+1840 01699000 PVTSPARE EQU PVT+1838 01700000 PVTCHUIC EQU PVT+1836 01701000 PVTCOMFX EQU PVT+1834 01702000 PVTSQAFX EQU PVT+1832 01703000 PVTDEFFX EQU PVT+1828 01704000 PVTFIXOK EQU PVT+1826 01705000 PVTPEROK EQU PVT+1824 01706000 PVTPERFX EQU PVT+1820 01707000 PVTRSRB EQU PVT+1776 01708000 PVTRESV5 EQU PVT+1773 01709000 PVTSRBS EQU PVT+1772 01710000 PVTSSRB EQU PVT+1768 01711000 PVTACA EQU PVTWSAX+1400 01712000 PVTWSA18 EQU PVTWSAX+1256 01713000 PVTWSA17 EQU PVTWSAX+1184 01714000 PVTWSA16 EQU PVTWSAX+1112 01715000 PVTWSA15 EQU PVTWSAX+1040 01716000 PVTWSA14 EQU PVTWSAX+968 01717000 PVTWSA13 EQU PVTWSAX+896 01718000 PVTWSA12 EQU PVTWSAX+824 01719000 PVTWSA11 EQU PVTWSAX+752 01720000 PVTWSA10 EQU PVTWSAX+672 01721000 PVTWSA9 EQU PVTWSAX+592 01722000 PVTWSA8 EQU PVTWSAX+504 01723000 PVTWSA7 EQU PVTWSAX+432 01724000 PVTWSA6 EQU PVTWSAX+360 01725000 PVTWSA5 EQU PVTWSAX+288 01726000 PVTWSA4 EQU PVTWSAX+216 01727000 PVTWSA3 EQU PVTWSAX+144 01728000 PVTWSA2 EQU PVTWSAX+72 01729000 PVTWSA1 EQU PVTWSAX 01730000 PVTCIOQL EQU PVTQS+36 01731000 PVTCIOQF EQU PVTQS+32 01732000 PVTGFADL EQU PVTQS+28 01733000 PVTGFADF EQU PVTQS+24 01734000 PVTFPCBL EQU PVTQS+20 01735000 PVTFPCBF EQU PVTQS+16 01736000 PVTSQAQL EQU PVTQS+14 01737000 PVTSQAQF EQU PVTQS+12 01738000 PVTCFQL EQU PVTQS+10 01739000 PVTCFQF EQU PVTQS+8 01740000 PVTRSRVL EQU PVTQS+6 01741000 PVTRSRVF EQU PVTQS+4 01742000 PVTAFQL EQU PVTQS+2 01743000 PVTAFQF EQU PVTQS 01744000 PVTSPFR EQU PVT+302 01745000 PVTCFMCT EQU PVT+300 01746000 PVTSPREC EQU PVT+296 01747000 PVTCAREC EQU PVT+292 01748000 PVTCAOUT EQU PVT+288 01749000 PVTCAIN EQU PVT+284 01750000 PVTNSWPS EQU PVT+280 01751000 PVTNPREC EQU PVT+276 01752000 PVTSPOUT EQU PVT+272 01753000 PVTSPIN EQU PVT+268 01754000 PVTVAMR EQU PVT+264 01755000 PVTVAMO EQU PVT+260 01756000 PVTVAMI EQU PVT+256 01757000 PVTNPOUT EQU PVT+252 01758000 PVTNPIN EQU PVT+248 01759000 PVTPRSET EQU PVT+244 01760000 PVTFRSLT EQU PVT+240 01761000 PVTPAGIO EQU PVT+236 01762000 PVTSWPIO EQU PVT+232 01763000 PVTPSWPP EQU PVT+228 01764000 PVTPPREF EQU PVT+224 01765000 PVTPOPBR EQU PVT+220 01766000 PVTPRELF EQU PVT+216 01767000 PVTPRELV EQU PVT+212 01768000 PVTPFREE EQU PVT+208 01769000 PVTPRELS EQU PVT+204 01770000 PVTPOUT EQU PVT+200 01771000 PVTPFXLD EQU PVT+196 01772000 PVTPITAS EQU PVT+192 01773000 PVTPSRBP EQU PVT+188 01774000 PVTPDSEG EQU PVT+184 01775000 PVTPCSGB EQU PVT+180 01776000 PVTPCSEG EQU PVT+176 01777000 PVTPSWPC EQU PVT+168 01778000 PVTPSOUT EQU PVT+164 01779000 PVTPSWIN EQU PVT+160 01780000 PVTPRCFI EQU PVT+152 01781000 PVTPRCF EQU PVT+148 01782000 PVTPVRC EQU PVT+144 01783000 PVTPVRIN EQU PVT+140 01784000 PVTPVRLS EQU PVT+136 01785000 PVTPVEQR EQU PVT+132 01786000 PVTPPIOI EQU PVT+128 01787000 PVTPVRPO EQU PVT+124 01788000 PVTPRFR EQU PVT+120 01789000 PVTPFP EQU PVT+112 01790000 PVTPCB EQU PVT+104 01791000 PVTREP2 EQU PVT+100 01792000 PVTPIOCP EQU PVT+96 01793000 PVTPIOP EQU PVT+92 01794000 PVTPGFAD EQU PVT+88 01795000 PVTPGFA EQU PVT+84 01796000 PVTPSINT EQU PVT+76 01797000 PVTPSIB EQU PVT+72 01798000 PVTSRBID EQU PVT+68 01799000 PVTPCIWA EQU PVT+64 01800000 PVTHQSA EQU PVT+62 01801000 PVTLQSA EQU PVT+60 01802000 PVTOROOT EQU PVT+56 01803000 PVTREUS EQU PVT+48 01804000 PVTSQNPC EQU PVT+47 01805000 PVTSQVRC EQU PVT+46 01806000 PVTRSUS EQU PVT+44 01807000 PVTVROOT EQU PVT+40 01808000 PVTPCBLO EQU PVT+38 01809000 PVTPCBCT EQU PVT+36 01810000 PVTDFRS EQU PVT+34 01811000 PVTRSQA EQU PVT+32 01812000 PVTPTLB EQU PVT+31 01813000 PVTPCBNO EQU PVT+30 01814000 PVTSRBNO EQU PVT+29 01815000 PVTSQDC EQU PVT+28 01816000 PVTLVR EQU PVT+22 01817000 PVTFVR EQU PVT+20 01818000 PVTLPFN EQU PVT+18 01819000 PVTFPFN EQU PVT+16 01820000 PVTSSPIN EQU PVT+11 01821000 PVTPCBS EQU PVT+10 01822000 PVTPOOL EQU PVT+8 01823000 PVTAFCOK EQU PVT+6 01824000 PVTAFCLO EQU PVT+4 01825000 PVTAFC EQU PVT+2 01826000 @NM00025 EQU PVTFLAG2 01827000 PVTRSMGM EQU PVTFLAG2 01828000 PVTDUMP EQU PVTFLAG1 01829000 PVTSIT EQU PVTFLAG1 01830000 PVTLSI EQU PVTFLAG1 01831000 PVTPCBLT EQU PVTFLAG1 01832000 PVTSRBIU EQU PVTFLAG1 01833000 PVTBGMS EQU PVTFLAG1 01834000 PVTPMSG EQU PVTFLAG1 01835000 ASCBEND EQU ASCB+208 01836000 ASCBSRBT EQU ASCB+200 01837000 ASCBSWTL EQU ASCB+196 01838000 ASCBRS14 EQU ASCB+195 01839000 ASCBSMCT EQU ASCB+194 01840000 ASCBRS12 EQU ASCB+192 01841000 ASCBPCTT EQU ASCB+188 01842000 ASCBVGTT EQU ASCB+184 01843000 ASCBRV43 EQU ASCBSRQ4 01844000 ASCBRV42 EQU ASCBSRQ4 01845000 ASCBRV41 EQU ASCBSRQ4 01846000 ASCBRV40 EQU ASCBSRQ4 01847000 ASCBRV39 EQU ASCBSRQ4 01848000 ASCBRV38 EQU ASCBSRQ4 01849000 ASCBRV37 EQU ASCBSRQ4 01850000 ASCBRV36 EQU ASCBSRQ4 01851000 ASCBRV35 EQU ASCBSRQ3 01852000 ASCBRV34 EQU ASCBSRQ3 01853000 ASCBRV33 EQU ASCBSRQ3 01854000 ASCBRV32 EQU ASCBSRQ3 01855000 ASCBRV31 EQU ASCBSRQ3 01856000 ASCBRV30 EQU ASCBSRQ3 01857000 ASCBRV29 EQU ASCBSRQ3 01858000 ASCBRV28 EQU ASCBSRQ3 01859000 ASCBRV27 EQU ASCBSRQ2 01860000 ASCBRV26 EQU ASCBSRQ2 01861000 ASCBRV25 EQU ASCBSRQ2 01862000 ASCBRV24 EQU ASCBSRQ2 01863000 ASCBRV23 EQU ASCBSRQ2 01864000 ASCBRV22 EQU ASCBSRQ2 01865000 ASCBRV21 EQU ASCBSRQ2 01866000 ASCBRV20 EQU ASCBSRQ2 01867000 ASCBRV19 EQU ASCBSRQ1 01868000 ASCBRV18 EQU ASCBSRQ1 01869000 ASCBRV17 EQU ASCBSRQ1 01870000 ASCBRV16 EQU ASCBSRQ1 01871000 ASCBRV15 EQU ASCBSRQ1 01872000 ASCBRV14 EQU ASCBSRQ1 01873000 ASCBRV13 EQU ASCBSRQ1 01874000 ASCBSTA EQU ASCBSRQ1 01875000 ASCBJBNS EQU ASCB+176 01876000 ASCBJBNI EQU ASCB+172 01877000 ASCBMCC EQU ASCB+168 01878000 ASCBRTWA EQU ASCB+164 01879000 ASCBIQEA EQU ASCB+160 01880000 ASCBXMPQ EQU ASCB+156 01881000 ASCBRS01 EQU ASCB+154 01882000 ASCBFMCT EQU ASCB+152 01883000 ASCBOUXB EQU ASCB+148 01884000 ASCBOUCB EQU ASCB+144 01885000 ASCBMECB EQU ASCB+140 01886000 ASCBQECB EQU ASCB+136 01887000 ASCBLSQH EQU ASCBLKGP+4 01888000 ASCBLOCK EQU ASCBLKGP 01889000 ASCBTCBS EQU ASCB+124 01890000 ASCBNVSC EQU ASCB+122 01891000 ASCBVSC EQU ASCB+120 01892000 ASCBSRBS EQU ASCB+118 01893000 ASCBSSRB EQU ASCB+116 01894000 ASCBRV06 EQU ASCBFLG2 01895000 ASCBRV05 EQU ASCBFLG2 01896000 ASCBRV04 EQU ASCBFLG2 01897000 ASCBSNQS EQU ASCBFLG2 01898000 ASCBS2S EQU ASCBFLG2 01899000 ASCBCEXT EQU ASCBFLG2 01900000 ASCBPXMT EQU ASCBFLG2 01901000 ASCBXMPT EQU ASCBFLG2 01902000 ASCBRF07 EQU ASCBDSP1 01903000 ASCBRF06 EQU ASCBDSP1 01904000 ASCBRF05 EQU ASCBDSP1 01905000 ASCBRF04 EQU ASCBDSP1 01906000 ASCBRF03 EQU ASCBDSP1 01907000 ASCBRF02 EQU ASCBDSP1 01908000 ASCBFAIL EQU ASCBDSP1 01909000 ASCBNOQ EQU ASCBDSP1 01910000 ASCBSWCT EQU ASCB+112 01911000 ASCBASXB EQU ASCB+108 01912000 ASCBTMCH EQU ASCB+104 01913000 ASCBNSWP EQU ASCBFLG1 01914000 ASCBTYP1 EQU ASCBFLG1 01915000 ASCBSTND EQU ASCBFLG1 01916000 ASCBABNT EQU ASCBFLG1 01917000 ASCBTERM EQU ASCBFLG1 01918000 ASCBS3S EQU ASCBFLG1 01919000 ASCBCMSH EQU ASCBFLG1 01920000 ASCBTOFF EQU ASCBFLG1 01921000 ASCBRF01 EQU ASCBRCTF 01922000 ASCBTMLW EQU ASCBRCTF 01923000 ASCBOUT EQU ASCBRCTF 01924000 ASCBWAIT EQU ASCBRCTF 01925000 ASCBRV08 EQU ASCBRCTF 01926000 ASCBFQU EQU ASCBRCTF 01927000 ASCBFRS EQU ASCBRCTF 01928000 ASCBTMNO EQU ASCBRCTF 01929000 ASCBAFFN EQU ASCBFW1 01930000 ASCBDUMP EQU ASCB+96 01931000 ASCBRV44 EQU ASCB+92 01932000 ASCBUBET EQU ASCB+88 01933000 ASCBECB EQU ASCB+84 01934000 ASCBJSTL EQU ASCB+80 01935000 ASCBEWST EQU ASCB+72 01936000 ASCBEJST EQU ASCB+64 01937000 ASCBTSB EQU ASCB+60 01938000 ASCBCSCB EQU ASCB+56 01939000 ASCBRSMA EQU ASCBRSM+1 01940000 ASCBRV54 EQU ASCBRSMF 01941000 ASCBRV53 EQU ASCBRSMF 01942000 ASCBRV52 EQU ASCBRSMF 01943000 ASCBRV51 EQU ASCBRSMF 01944000 ASCBVEQR EQU ASCBRSMF 01945000 ASCBN2LP EQU ASCBRSMF 01946000 ASCBLDA EQU ASCB+48 01947000 ASCBDP EQU ASCB+43 01948000 ASCBRV07 EQU ASCB+42 01949000 ASCBIOSM EQU ASCB+40 01950000 ASCBSEQN EQU ASCB+38 01951000 ASCBCPUS EQU ASCB+32 01952000 ASCBSPL EQU ASCB+28 01953000 ASCBIOSP EQU ASCB+24 01954000 ASCBSYNC EQU ASCBSUPC+4 01955000 ASCBSVRB EQU ASCBSUPC 01956000 ASCBCMSF EQU ASCB+12 01957000 ASCBBWDP EQU ASCB+8 01958000 ASCBFWDP EQU ASCB+4 01959000 ASCBASCB EQU ASCB 01960000 ASCBEGIN EQU ASCB 01961000 @NM00024 EQU PSA+3668 01962000 PSASTAK EQU PSA+3072 01963000 @NM00023 EQU PSA+1048 01964000 PSAUSEND EQU PSA+1048 01965000 PSARV062 EQU PSA+1044 01966000 PSACDAL EQU PSA+1040 01967000 PSAWTCOD EQU PSA+1036 01968000 PSAATCVT EQU PSA+1032 01969000 PSAPCPSW EQU PSA+1024 01970000 PSAPIR2 EQU PSA+1020 01971000 PSARV059 EQU PSA+1018 01972000 PSASVC13 EQU PSA+1016 01973000 PSALSFCC EQU PSA+1012 01974000 PSASFACC EQU PSA+1008 01975000 PSASTOP EQU PSA+992 01976000 PSASTART EQU PSA+976 01977000 PSARSPSW EQU PSA+968 01978000 PSASRPSW EQU PSA+960 01979000 PSARV045 EQU PSA+892 01980000 PSARV044 EQU PSA+888 01981000 PSARV043 EQU PSA+884 01982000 PSARV042 EQU PSA+880 01983000 PSARV041 EQU PSA+876 01984000 PSARV040 EQU PSA+872 01985000 PSARV025 EQU PSA+868 01986000 PSADSSED EQU PSA+868 01987000 PSADSSPR EQU PSA+864 01988000 PSADSSFW EQU PSA+860 01989000 PSADSS14 EQU PSA+856 01990000 PSADSSPP EQU PSA+848 01991000 PSADSSRP EQU PSA+840 01992000 PSADSS05 EQU PSADSSF4 01993000 PSADSS10 EQU PSADSSF4 01994000 PSADSSVE EQU PSADSSF4 01995000 PSADSSDE EQU PSADSSF4 01996000 PSADSSC0 EQU PSADSSF4 01997000 PSADSSIE EQU PSADSSF4 01998000 PSADSS12 EQU PSADSSF4 01999000 PSADSSRC EQU PSADSSF4 02000000 PSARV057 EQU PSADSSF3 02001000 PSARV056 EQU PSADSSF3 02002000 PSARV055 EQU PSADSSF3 02003000 PSADSSMC EQU PSADSSF3 02004000 PSADSSRW EQU PSADSSF3 02005000 PSADSSNM EQU PSADSSF3 02006000 PSADSSES EQU PSADSSF3 02007000 PSADSSGP EQU PSADSSF3 02008000 PSADSSF2 EQU PSADSSFL+1 02009000 PSADSSPI EQU PSADSSF1 02010000 PSADSSOI EQU PSADSSF1 02011000 PSADSSSP EQU PSADSSF1 02012000 PSADSSTP EQU PSADSSF1 02013000 PSADSSDW EQU PSADSSF1 02014000 PSADSSDD EQU PSADSSF1 02015000 PSADSSDM EQU PSADSSF1 02016000 PSADSSMV EQU PSADSSF1 02017000 PSADSSTS EQU PSA+816 02018000 PSADSSWK EQU PSA+812 02019000 PSADSSR3 EQU PSA+808 02020000 PSADSSR2 EQU PSA+804 02021000 PSADSSRS EQU PSA+800 02022000 PSASTOR EQU PSA+796 02023000 PSACPUSA EQU PSA+794 02024000 PSAVSTAP EQU PSA+792 02025000 PSAWKVAP EQU PSA+788 02026000 PSAWKRAP EQU PSA+784 02027000 PSAMCHIC EQU PSA+783 02028000 PSARV061 EQU PSA+782 02029000 PSASYMSK EQU PSA+781 02030000 PSAMCHFL EQU PSA+780 02031000 PSACR0 EQU PSA+776 02032000 PSAPSWSV EQU PSA+768 02033000 PSALITA EQU PSA+764 02034000 PSACLHS EQU PSAHLHI 02035000 PSALKR15 EQU PSALKSA+60 02036000 PSALKR14 EQU PSALKSA+56 02037000 PSALKR13 EQU PSALKSA+52 02038000 PSALKR12 EQU PSALKSA+48 02039000 PSALKR11 EQU PSALKSA+44 02040000 PSALKR10 EQU PSALKSA+40 02041000 PSALKR9 EQU PSALKSA+36 02042000 PSALKR8 EQU PSALKSA+32 02043000 PSALKR7 EQU PSALKSA+28 02044000 PSALKR6 EQU PSALKSA+24 02045000 PSALKR5 EQU PSALKSA+20 02046000 PSALKR4 EQU PSALKSA+16 02047000 PSALKR3 EQU PSALKSA+12 02048000 PSALKR2 EQU PSALKSA+8 02049000 PSALKR1 EQU PSALKSA+4 02050000 PSALKR0 EQU PSALKSA 02051000 PSARV023 EQU PSACLHT+52 02052000 PSALOCAL EQU PSACLHT+48 02053000 PSACMSL EQU PSACLHT+44 02054000 PSAOPTL EQU PSACLHT+40 02055000 PSATPACL EQU PSACLHT+36 02056000 PSATPDNL EQU PSACLHT+32 02057000 PSATPNCL EQU PSACLHT+28 02058000 PSAIOSLL EQU PSACLHT+24 02059000 PSAIOSUL EQU PSACLHT+20 02060000 PSAIOSCL EQU PSACLHT+16 02061000 PSAIOSSL EQU PSACLHT+12 02062000 PSASALCL EQU PSACLHT+8 02063000 PSAASML EQU PSACLHT+4 02064000 PSADISPL EQU PSACLHT 02065000 PSASRSA EQU PSA+636 02066000 PSARV050 EQU PSA+634 02067000 PSADSSGO EQU PSA+633 02068000 PSARECUR EQU PSA+632 02069000 PSAHLHIS EQU PSA+628 02070000 PSAIPCSA EQU PSA+624 02071000 @NM00022 EQU PSA+621 02072000 PSAIPCDM EQU PSA+620 02073000 PSAIPCD EQU PSA+616 02074000 @NM00021 EQU PSA+613 02075000 PSAIPCRM EQU PSA+612 02076000 PSAIPCR EQU PSA+608 02077000 PSAMCHEX EQU PSA+600 02078000 PSAMPSW EQU PSA+592 02079000 PSAEXPS2 EQU PSA+584 02080000 PSAEXPS1 EQU PSA+576 02081000 PSAPIREG EQU PSA+572 02082000 PSARSREG EQU PSA+568 02083000 PSAGPREG EQU PSA+556 02084000 PSARV022 EQU PSASUP4 02085000 PSARV021 EQU PSASUP4 02086000 PSARV020 EQU PSASUP4 02087000 PSARV019 EQU PSASUP4 02088000 PSARV018 EQU PSASUP4 02089000 PSARV017 EQU PSASUP4 02090000 PSARV016 EQU PSASUP4 02091000 PSARV015 EQU PSASUP4 02092000 PSARV014 EQU PSASUP3 02093000 PSAULCMS EQU PSASUP3 02094000 PSARV012 EQU PSASUP3 02095000 PSAESTA EQU PSASUP3 02096000 PSASPR EQU PSASUP3 02097000 PSAPSREG EQU PSASUP3 02098000 PSAPI2 EQU PSASUP3 02099000 PSAIOSUP EQU PSASUP3 02100000 PSALCR EQU PSASUP2 02101000 PSARTM EQU PSASUP2 02102000 PSAACR EQU PSASUP2 02103000 PSAIPCE2 EQU PSASUP2 02104000 PSAIPCES EQU PSASUP2 02105000 PSAIPCEC EQU PSASUP2 02106000 PSAGTF EQU PSASUP2 02107000 PSAIPCRI EQU PSASUP2 02108000 PSATYPE6 EQU PSASUP1 02109000 PSATCTL EQU PSASUP1 02110000 PSADISP EQU PSASUP1 02111000 PSALOCK EQU PSASUP1 02112000 PSAPI EQU PSASUP1 02113000 PSAEXT EQU PSASUP1 02114000 PSASVC EQU PSASUP1 02115000 PSAIO EQU PSASUP1 02116000 PSAANEW EQU PSA+544 02117000 PSATOLD EQU PSA+540 02118000 PSATNEW EQU PSA+536 02119000 PSALCCAR EQU PSA+532 02120000 PSALCCAV EQU PSA+528 02121000 PSAPCCAR EQU PSA+524 02122000 PSAPCCAV EQU PSA+520 02123000 PSACPULA EQU PSA+518 02124000 PSACPUPA EQU PSA+516 02125000 PSAPSA EQU PSA+512 02126000 FLCHDEND EQU PSA+512 02127000 FLCCRSAV EQU FLCMCLA+280 02128000 FLCGRSAV EQU FLCMCLA+216 02129000 FLCFPSAV EQU FLCMCLA+184 02130000 FLCFLA EQU FLCMCLA+88 02131000 FLCRGNCD EQU FLCMCLA+84 02132000 FLCFSAA EQU FLCFSA+1 02133000 @NM00020 EQU FLCFSA 02134000 @NM00019 EQU FLCMCLA+72 02135000 FLCMCIC EQU FLCMCLA+64 02136000 @NM00018 EQU FLCMCLA+20 02137000 FLCIOAA EQU FLCIOA+1 02138000 @NM00017 EQU FLCIOA 02139000 @NM00016 EQU FLCMCLA+15 02140000 @NM00015 EQU FLCMCLA+14 02141000 @NM00014 EQU FLCMCLA+12 02142000 FLCLCL EQU FLCMCLA+8 02143000 FLCIOELA EQU FLCIOEL+1 02144000 @NM00013 EQU FLCIOEL 02145000 FLCCHNID EQU FLCMCLA 02146000 @NM00012 EQU PSA+160 02147000 FLCMTRCD EQU PSA+157 02148000 @NM00011 EQU PSA+156 02149000 FLCPERA EQU FLCPER+1 02150000 @NM00010 EQU FLCPER 02151000 @NM00009 EQU PSA+151 02152000 FLCPERCD EQU PSA+150 02153000 FLCMCNUM EQU PSA+149 02154000 @NM00008 EQU PSA+148 02155000 FLCTEAA EQU FLCTEA+1 02156000 @NM00007 EQU FLCTEA 02157000 PSAPIPC EQU PSAPICOD 02158000 PSAPIMC EQU PSAPICOD 02159000 PSAPIPER EQU PSAPICOD 02160000 PSARV049 EQU FLCPICOD 02161000 FLCPILCB EQU FLCPIILC 02162000 @NM00006 EQU FLCPIILC 02163000 @NM00005 EQU PSAEPPSW 02164000 FLCSVCN EQU PSAESPSW+2 02165000 FLCSILCB EQU FLCSVILC 02166000 @NM00004 EQU FLCSVILC 02167000 @NM00003 EQU PSAESPSW 02168000 FLCEICOD EQU PSAEEPSW+2 02169000 PSASPAD EQU PSAEEPSW 02170000 @NM00002 EQU PSA+128 02171000 FLCINPSW EQU PSA+120 02172000 FLCMNPSW EQU PSA+112 02173000 FLCPNPSW EQU PSA+104 02174000 FLCSNPSW EQU PSA+96 02175000 FLCENPSW EQU PSA+88 02176000 FLCTRACE EQU PSA+84 02177000 FLCTIMER EQU PSA+80 02178000 FLCCVT2 EQU PSA+76 02179000 FLCCAW EQU PSA+72 02180000 FLCCSW EQU PSA+64 02181000 FLCIOPSW EQU PSA+56 02182000 FLCMOPSW EQU PSA+48 02183000 FLCPOPSW EQU PSA+40 02184000 FLCSOPSW EQU PSA+32 02185000 FLCEOPSW EQU PSA+24 02186000 @NM00001 EQU FLCICCW2+4 02187000 FLCICCW1 EQU FLCROPSW 02188000 FLCIPPSW EQU FLCRNPSW 02189000 * END UNREFERENCED COMPONENTS 02190000 @RT00070 EQU GMFAIL 02191000 @RT00084 EQU FRAMFAIL 02192000 @RT00091 EQU FRAMFAIL 02193000 @RT00099 EQU FPFAIL 02194000 @ENDDATA EQU * 02195000 END IEAVITAS,(C'PLS2132',0801,78221) 02196000