RACR TITLE 'BLSRRACR--DESCRIBE SYSTEM/370 REAL ADDRESS SPACE *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPRW */ 00004000 */* THIS MODULE HAS BEEN CHANGED BY APAR OZ33007-ILG @ZA33007*/ 00005000 */*------------------------------------------------------------------*/ 00006000 BLSRRACR CSECT , 01S0002 00007000 @MAINENT DS 0H 01S0002 00008000 USING *,@15 01S0002 00009000 B @PROLOG 01S0002 00010000 DC AL1(16) 01S0002 00011000 DC C'BLSRRACR 78.172' 01S0002 00012000 DROP @15 00013000 @PROLOG STM @14,@12,12(@13) 01S0002 00014000 BALR @12,0 01S0002 00015000 @PSTART DS 0H 01S0002 00016000 USING @PSTART,@12 01S0002 00017000 L @00,@SIZDATD 01S0002 00018000 BLSUALLS R,LV=(0) 00019000 LR @11,@01 01S0002 00020000 LA @10,4095(,@11) 01S0002 00021000 USING @DATD,@11 01S0002 00022000 USING @DATD+4095,@10 01S0002 00023000 ST @13,@SA00001+4 01S0002 00024000 LM @00,@01,20(@13) 01S0002 00025000 ST @11,8(,@13) 01S0002 00026000 LR @13,@11 01S0002 00027000 MVC @PC00001(8),0(@01) 01S0002 00028000 * IF ZZ6DFDU=ZZZ0|ZZ6DFAB=ZZZ0|ZZ6DFST=ZZZ0 THEN/* NOT SUPPORTED */ 00029000 * 01S0141 00030000 L @14,ZZ2AZZ6P(,R9) 01S0141 00031000 TM ZZ6DFDU(@14),B'01011000' 01S0141 00032000 BO @RF00141 01S0141 00033000 * /***************************************************************/ 00034000 * /* */ 00035000 * /* REAL STORAGE NOT SUPPORTED */ 00036000 * /* */ 00037000 * /***************************************************************/ 00038000 * 01S0142 00039000 * DO; /* REAL STORAGE NOT SUPPORTED */ 00040000 * RETC=ZZZFLAGS; /* RETURN CODE */ 00041000 LA RETC,12 01S0143 00042000 * GO TO EXIT; /* COMMON EXIT PATH */ 00043000 B EXIT 01S0144 00044000 * END; /* REAL STORAGE NOT SUPORTED */ 00045000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00046000 @RF00141 SLR RETC,RETC 01S0146 00047000 SPACE 1 00048000 * 01S0147 00049000 */*------------------------------------------------------------------*/ 00050000 */* LOCATE THE PREFIXED STORAGE AREA FOR THE DESIGNATED CPU */ 00051000 */*------------------------------------------------------------------*/ 00052000 * 01S0147 00053000 * ESAUSYM='PSA'; /* SYMBOL */ 00054000 MVI ESAUSYM+3,C' ' 01S0147 00055000 MVC ESAUSYM+4(27),ESAUSYM+3 01S0147 00056000 MVC ESAUSYM(3),@CC00982 01S0147 00057000 * RABAPTR=ADDR(RAPA); /* ->RABA (ALIAS FOR RAPA) */ 00058000 * 01S0148 00059000 L RABAPTR,@PC00001+4 01S0148 00060000 * DO;/*BLRCNVUC(RABAAS1) FROM(UNSIGNED BINARY)TO(CHARACTER)SET(SYMB) 00061000 *EMARK(CPU ADDRESS)*/ 01S0149 00062000 * /*CPU ADDRESS*/ 01S0150 00063000 * CVD(RABAAS1,PACKED);/*BINARY=>PACKED DECIMAL*/ 01S0150 00064000 L @14,RABAAS1(,RABAPTR) 01S0150 00065000 CVD @14,PACKED 01S0150 00066000 * UNPK(SYMB,PACKED);/*PACKED DECIMAL=>ZONED DECIMAL*/ 01S0151 00067000 UNPK SYMB(2),PACKED(8) 01S0151 00068000 * SYMB(LENGTH(SYMB):LENGTH(SYMB))=SYMB(LENGTH(SYMB):LENGTH(SYMB))| 00069000 *0';/*ZONED DECIMAL=>EBCDIC*/ 01S0152 00070000 OI SYMB+1,C'0' 01S0152 00071000 * END;/*BLRCNVUC(RABAAS1) FROM(UNSIGNED BINARY)TO(CHARACTER)SET(SYMB 00072000 *REMARK(CPU ADDRESS)*/ 01S0153 00073000 * ESAUDT=DTPSA; /* DATA TYPE */ 00074000 MVC ESAUDT(34),DTPSA 01S0154 00075000 * CALL BLSRESGU(ZZ2,ESAU); /* LOCATE THE PSA FOR THE CPU */ 00076000 ST R9,@AL00001 01S0155 00077000 LA @14,ESAU 01S0155 00078000 ST @14,@AL00001+4 01S0155 00079000 L @08,ZZ2RVTP(,R9) 01S0155 00080000 L @15,RVTESGUP(,@08) 01S0155 00081000 LA @01,@AL00001 01S0155 00082000 BALR @14,@15 01S0155 00083000 * IF RF>ZZZFLAGE THEN /* BLSRESGU DETECTED AN ERROR */ 00084000 * 01S0156 00085000 CH RF,@CH00055 01S0156 00086000 BNH @RF00156 01S0156 00087000 * /***************************************************************/ 00088000 * /* */ 00089000 * /* BLSRESGU DETECTED AN ERROR */ 00090000 * /* */ 00091000 * /***************************************************************/ 00092000 * 01S0157 00093000 * DO; /* BLSRESGU DETECTED AN ERROR */ 00094000 * RETC=RF; /* RETURN CODE */ 00095000 LR RETC,RF 01S0158 00096000 * GO TO EXIT; /* COMMON EXIT PATH */ 00097000 B EXIT 01S0159 00098000 * END; /* BLSRESGU DETECTED AN ERROR */ 00099000 * PSAPTR=ESAULAD; /* ->PSA FOR THE SPECIFIED CPU */ 00100000 @RF00156 L PSAPTR,ESAULAD 01S0161 00101000 SPACE 1 00102000 * 01S0162 00103000 */*------------------------------------------------------------------*/ 00104000 */* MAP REAL STORAGE SECTION 1--THE REAL PSA */ 00105000 */*------------------------------------------------------------------*/ 00106000 * 01S0162 00107000 * RAAUAS=DATSA; /* ABSOLUTE ADDRESS SPACE */ 00108000 MVC RAAUAS(16),DATSA 01S0162 00109000 * RAAUFAD=PSAPTR; /* ->REAL PSA (ABSOLUTE STORAGE) */ 00110000 ST PSAPTR,RAAUFAD 01S0163 00111000 * CALL BLSRRAGE(ZZ2,RAAU); /* LOCATE REAL PSA */ 00112000 ST R9,@AL00001 01S0164 00113000 LA @14,RAAU 01S0164 00114000 ST @14,@AL00001+4 01S0164 00115000 L @08,ZZ2RVTP(,R9) 01S0164 00116000 L @15,RVTRAGEP(,@08) 01S0164 00117000 LA @01,@AL00001 01S0164 00118000 BALR @14,@15 01S0164 00119000 * IF RF^=ZZZFLAGI THEN /* BLSRRAGE DETECTED AN ERROR */ 00120000 * 01S0165 00121000 LTR RF,RF 01S0165 00122000 BZ @RF00165 01S0165 00123000 * /***************************************************************/ 00124000 * /* */ 00125000 * /* BLSRRAGE DETECTED AN ERROR */ 00126000 * /* */ 00127000 * /***************************************************************/ 00128000 * 01S0166 00129000 * DO; /* BLSRRAGE DETECTED AN ERROR */ 00130000 * RETC=RF; /* RETURN CODE */ 00131000 LR RETC,RF 01S0167 00132000 * GO TO EXIT; /* COMMON EXIT PATH */ 00133000 B EXIT 01S0168 00134000 * END; /* BLSRRAGE DETECTED AN ERROR */ 00135000 * RAAUAS=RABAAS; /* REAL ADDRESS SPACE */ 00136000 @RF00165 MVC RAAUAS(16),RABAAS(RABAPTR) 01S0170 00137000 * RAAUFAD=ZZZLENP4-1; /* ->FINAL BYTE DESCRIBED */ 00138000 MVC RAAUFAD(4),@CF01163 01S0171 00139000 * RAAUUSE=1; /* ONE ENTRY IN USE */ 00140000 LA @14,1 01S0172 00141000 STH @14,RAAUUSE 01S0172 00142000 * RAAURIA(1)=ZZZZNULL; /* ->FIRST BYTE DESCRIBED */ 00143000 SLR @08,@08 01S0173 00144000 ST @08,RAAURIA 01S0173 00145000 * RAAURNM(1)=1; /* ONE RECORD */ 00146000 STH @14,RAAURNM 01S0174 00147000 * RAAURFP(1)=ZZZ1; /* PREFIXED */ 00148000 OI RAAURFP,B'01000000' 01S0175 00149000 * CALL BLSRRAAR(ZZ2,RAAU); /* DESCRIBE REAL PSA */ 00150000 ST R9,@AL00001 01S0176 00151000 LA @14,RAAU 01S0176 00152000 ST @14,@AL00001+4 01S0176 00153000 L @08,ZZ2RVTP(,R9) 01S0176 00154000 L @15,RVTRAARP(,@08) 01S0176 00155000 LA @01,@AL00001 01S0176 00156000 BALR @14,@15 01S0176 00157000 * IF RF^=ZZZFLAGI THEN /* BLSRRAAR DETECTED AN ERROR */ 00158000 * 01S0177 00159000 LTR RF,RF 01S0177 00160000 BZ @RF00177 01S0177 00161000 * /***************************************************************/ 00162000 * /* */ 00163000 * /* BLSRRAAR DETECTED AN ERROR */ 00164000 * /* */ 00165000 * /***************************************************************/ 00166000 * 01S0178 00167000 * DO; /* BLSRRAAR DETECTED AN ERROR */ 00168000 * RETC=RF; /* RETURN CODE */ 00169000 LR RETC,RF 01S0179 00170000 * GO TO EXIT; /* COMMON EXIT PATH */ 00171000 B EXIT 01S0180 00172000 * END; /* BLSRRAAR DETECTED AN ERROR */ 00173000 SPACE 1 00174000 * 01S0182 00175000 */*------------------------------------------------------------------*/ 00176000 */* MAP REAL STORAGE SECTION 2--REAL PSA TO ABSOLUTE PSA WHERE */ 00177000 */* ABSOLUTE AND REAL STORAGE MAPPINGS ARE IDENTICAL */ 00178000 */*------------------------------------------------------------------*/ 00179000 * 01S0182 00180000 * RAAUFAD=ZZZLENP4; /* ->BYTE OF INTEREST */ 00181000 @RF00177 MVC RAAUFAD(4),@CF00095 01S0182 00182000 * DO WHILE(RAAUFAD=PSAPTR);/* EDIT EXCESS ENTRIES */ 00222000 B @DE00192 01S0192 00223000 @DL00192 DS 0H 01S0193 00224000 * RAAUUSE=RAAUUSE-1; /* ELIMINATE UNDESIRED ENTRY */ 00225000 LH @14,RAAUUSE 01S0193 00226000 BCTR @14,0 01S0193 00227000 STH @14,RAAUUSE 01S0193 00228000 * END; /* EDIT EXCESS ENTRIES */ 00229000 @DE00192 LH @14,RAAUUSE 01S0194 00230000 SLA @14,5 01S0194 00231000 L @08,RAAURIA-32(@14) 01S0194 00232000 CLR @08,PSAPTR 01S0194 00233000 BNL @DL00192 01S0194 00234000 * P1=RAAURIA(RAAUUSE)+RAAURNM(RAAUUSE)*ZZZLENP4;/* ->FIRST BYTE 00235000 * NOT DESCRIBED BY THIS RECORD */ 00236000 LH P1,RAAURNM-32(@14) 01S0195 00237000 SLA P1,12 01S0195 00238000 ALR P1,@08 01S0195 00239000 * IF P1>PSAPTR THEN /* EDIT FINAL RECORD ENTRY */ 00240000 * 01S0196 00241000 CR P1,PSAPTR 01S0196 00242000 BNH @RF00196 01S0196 00243000 * /*************************************************************/ 00244000 * /* */ 00245000 * /* EDIT FINAL ENTRY TO DESCRIBE ONLY SECTION 2 PAGES */ 00246000 * /* */ 00247000 * /*************************************************************/ 00248000 * 01S0197 00249000 * DO; /* EDIT FINAL RECORD ENTRY */ 00250000 * RAAURNM(RAAUUSE)=(PSAPTR-RAAURIA(RAAUUSE))/ZZZLENP4; 01S0198 00251000 LR @00,@08 01S0198 00252000 LCR @00,@00 01S0198 00253000 ALR @00,PSAPTR 01S0198 00254000 SRL @00,12 01S0198 00255000 STH @00,RAAURNM-32(@14) 01S0198 00256000 * P1=PSAPTR; /* ->PREFIXED PAGE */ 00257000 LR P1,PSAPTR 01S0199 00258000 * END; /* EDIT FINAL RECORD ENTRY */ 00259000 * RAAUFAD=P1-1; /* ->FINAL BYTE DESCRIBED */ 00260000 @RF00196 LR @14,P1 01S0201 00261000 BCTR @14,0 01S0201 00262000 ST @14,RAAUFAD 01S0201 00263000 * CALL BLSRRAAR(ZZ2,RAAU); /* DESCRIBE SECTION 2 STORAGE */ 00264000 ST R9,@AL00001 01S0202 00265000 LA @14,RAAU 01S0202 00266000 ST @14,@AL00001+4 01S0202 00267000 L @08,ZZ2RVTP(,R9) 01S0202 00268000 L @15,RVTRAARP(,@08) 01S0202 00269000 LA @01,@AL00001 01S0202 00270000 BALR @14,@15 01S0202 00271000 * IF RF^=ZZZFLAGI THEN /* BLSRRAAR DETECTED AN ERROR */ 00272000 * 01S0203 00273000 LTR RF,RF 01S0203 00274000 BZ @RF00203 01S0203 00275000 * /*************************************************************/ 00276000 * /* */ 00277000 * /* BLSRRAAR DETECTED AN ERROR */ 00278000 * /* */ 00279000 * /*************************************************************/ 00280000 * 01S0204 00281000 * DO; /* BLSRRAAR DETECTED AN ERROR */ 00282000 * RETC=RF; /* RETURN CODE */ 00283000 LR RETC,RF 01S0205 00284000 * GO TO EXIT; /* COMMON EXIT PATH */ 00285000 B EXIT 01S0206 00286000 * END; /* BLSRRAAR DETECTED AN ERROR */ 00287000 * RAAUFAD=P1; /* ->NEXT STORAGE OF INTEREST */ 00288000 @RF00203 ST P1,RAAUFAD 01S0208 00289000 * END; /* PROCESS SECTION 2 */ 00290000 @DE00183 CL PSAPTR,RAAUFAD 01S0209 00291000 BH @DL00183 01S0209 00292000 SPACE 1 00293000 * 01S0210 00294000 */*------------------------------------------------------------------*/ 00295000 */* MAP REAL STORAGE SECTION 3--THE ABSOLUTE PSA */ 00296000 */*------------------------------------------------------------------*/ 00297000 * 01S0210 00298000 * RAAUAS=DATSA; /* ABSOLUTE STORAGE */ 00299000 MVC RAAUAS(16),DATSA 01S0210 00300000 * RAAUFAD=ZZZZNULL; /* ->ABSOLUTE PSA */ 00301000 SLR @14,@14 01S0211 00302000 ST @14,RAAUFAD 01S0211 00303000 * CALL BLSRRAGE(ZZ2,RAAU); /* LOCATE ABSOLUTE PSA */ 00304000 ST R9,@AL00001 01S0212 00305000 LA @14,RAAU 01S0212 00306000 ST @14,@AL00001+4 01S0212 00307000 L @08,ZZ2RVTP(,R9) 01S0212 00308000 L @15,RVTRAGEP(,@08) 01S0212 00309000 LA @01,@AL00001 01S0212 00310000 BALR @14,@15 01S0212 00311000 * IF RF^=ZZZFLAGI THEN /* BLSRRAGE DETECTED AN ERROR */ 00312000 * 01S0213 00313000 LTR RF,RF 01S0213 00314000 BZ @RF00213 01S0213 00315000 * /***************************************************************/ 00316000 * /* */ 00317000 * /* BLSRRAGE DETECTED AN ERROR */ 00318000 * /* */ 00319000 * /***************************************************************/ 00320000 * 01S0214 00321000 * DO; /* BLSRRAGE DETECTED AN ERROR */ 00322000 * RETC=RF; /* RETURN CODE */ 00323000 LR RETC,RF 01S0215 00324000 * GO TO EXIT; /* COMMON EXIT PATH */ 00325000 B EXIT 01S0216 00326000 * END; /* BLSRRAGE DETECTED AN ERROR */ 00327000 * RAAUAS=RABAAS; /* REAL STORAGE */ 00328000 @RF00213 MVC RAAUAS(16),RABAAS(RABAPTR) 01S0218 00329000 * RAAUFAD=PSAPTR+ZZZLENP4-1; /* ->FINAL BYTE DESCRIBED */ 00330000 LR @14,PSAPTR 01S0219 00331000 SH @14,@CH01164 01S0219 00332000 ST @14,RAAUFAD 01S0219 00333000 * RAAURIA(1)=PSAPTR; /* ->FIRST BYTE DESCRIBED */ 00334000 ST PSAPTR,RAAURIA 01S0220 00335000 * RAAURNM(1)=1; /* ONE RECORD */ 00336000 LA @14,1 01S0221 00337000 STH @14,RAAURNM 01S0221 00338000 * RAAURFP(1)=ZZZ1; /* PREFIXED */ 00339000 OI RAAURFP,B'01000000' 01S0222 00340000 * RAAUUSE=1; /*ONE ENTRY OF DUMP RECDS @ZA33007*/ 00341000 STH @14,RAAUUSE 01S0223 00342000 * CALL BLSRRAAR(ZZ2,RAAU); /* DESCRIBE ABSOLUTE PSA */ 00343000 ST R9,@AL00001 01S0224 00344000 LA @14,RAAU 01S0224 00345000 ST @14,@AL00001+4 01S0224 00346000 L @08,ZZ2RVTP(,R9) 01S0224 00347000 L @15,RVTRAARP(,@08) 01S0224 00348000 LA @01,@AL00001 01S0224 00349000 BALR @14,@15 01S0224 00350000 * IF RF^=ZZZFLAGI THEN /* BLSRRAAR DETECTED AN ERROR */ 00351000 * 01S0225 00352000 LTR RF,RF 01S0225 00353000 BZ @RF00225 01S0225 00354000 * /***************************************************************/ 00355000 * /* */ 00356000 * /* BLSRRAAR DETECTED AN ERROR */ 00357000 * /* */ 00358000 * /***************************************************************/ 00359000 * 01S0226 00360000 * DO; /* BLSRRAAR DETECTED AN ERROR */ 00361000 * RETC=RF; /* RETURN CODE */ 00362000 LR RETC,RF 01S0227 00363000 * GO TO EXIT; /* COMMON EXIT PATH */ 00364000 B EXIT 01S0228 00365000 * END; /* BLSRRAAR DETECTED AN ERROR */ 00366000 SPACE 1 00367000 * 01S0230 00368000 */*------------------------------------------------------------------*/ 00369000 */* MAP REAL STORAGE SECTION 4--AFTER THE ABSOLUTE PSA THE ABSOLUTE */ 00370000 */* AND REAL STORAGE MAPPINGS ARE IDENTICAL */ 00371000 */*------------------------------------------------------------------*/ 00372000 * 01S0230 00373000 * RAAUFAD=PSAPTR+ZZZLENP4; /* ->BYTE OF INTEREST */ 00374000 @RF00225 LR @14,PSAPTR 01S0230 00375000 AL @14,@CF00095 01S0230 00376000 ST @14,RAAUFAD 01S0230 00377000 * DO WHILE(RAAUFADNEXT BYTE OF INTEREST */ 00433000 @RF00241 LA @14,1 01S0246 00434000 AL @14,RAAUFAD 01S0246 00435000 ST @14,RAAUFAD 01S0246 00436000 * END; /* DESCRIBE SECTION 4 STORAGE */ 00437000 @DE00231 CLC RAAUFAD(4),@CF00127 01S0247 00438000 BL @DL00231 01S0247 00439000 SPACE 1 00440000 * 01S0248 00441000 */*------------------------------------------------------------------*/ 00442000 */* PROVIDE INFORMATION REGARDING THE REAL PAGE OF INTEREST TO THE */ 00443000 */* CALLER */ 00444000 */*------------------------------------------------------------------*/ 00445000 * 01S0248 00446000 * RABAAS=DATSA; /* CONVERT TO ABSOLUTE REQUEST */ 00447000 MVC RABAAS(16,RABAPTR),DATSA 01S0248 00448000 * PAGEP=RABAFAD&ZZZP4M31; /* ->PAGE */ 00449000 L PAGEP,RABAFAD(,RABAPTR) 01S0249 00450000 N PAGEP,@CF00121 01S0249 00451000 * IF PAGEP=ZZZZNULL THEN /* REAL PSA */ 00452000 LTR PAGEP,PAGEP 01S0250 00453000 BNZ @RF00250 01S0250 00454000 * RABAFAD=PSAPTR; /* ->BYTE OF INTEREST */ 00455000 ST PSAPTR,RABAFAD(,RABAPTR) 01S0251 00456000 * ELSE /* NOT THE REAL PSA */ 00457000 * IF PAGEP=PSAPTR THEN /* ABSOLUTE PSA */ 00458000 B @RC00250 01S0252 00459000 @RF00250 CR PAGEP,PSAPTR 01S0252 00460000 BNE @RF00252 01S0252 00461000 * RABAFAD=ZZZZNULL; /* ->BYTE OF INTEREST */ 00462000 SLR @14,@14 01S0253 00463000 ST @14,RABAFAD(,RABAPTR) 01S0253 00464000 * ELSE /* PAGE NOT PREFIXED */ 00465000 * RABAFAD=PAGEP; /* ->PAGE OF INTEREST */ 00466000 B @RC00252 01S0254 00467000 @RF00252 ST PAGEP,RABAFAD(,RABAPTR) 01S0254 00468000 * CALL BLSRRAGE(ZZ2,RABA); /* LOCATE PAGE */ 00469000 @RC00252 DS 0H 01S0255 00470000 @RC00250 ST R9,@AL00001 01S0255 00471000 ST RABAPTR,@AL00001+4 01S0255 00472000 L @08,ZZ2RVTP(,R9) 01S0255 00473000 L @15,RVTRAGEP(,@08) 01S0255 00474000 LA @01,@AL00001 01S0255 00475000 BALR @14,@15 01S0255 00476000 * RABAAS=RAAUAS; /* RESTORE ADDRESS SPACE */ 00477000 MVC RABAAS(16,RABAPTR),RAAUAS 01S0256 00478000 * RETC=RF; /* RETURN CODE */ 00479000 LR RETC,RF 01S0257 00480000 * IF RETC^=ZZZFLAGI THEN /* BLSRRAGE DETECTED AN ERROR */ 00481000 SLR @14,@14 01S0258 00482000 CR RETC,@14 01S0258 00483000 BNE @RT00258 01S0258 00484000 * GO TO EXIT; /* COMMON EXIT PATH */ 00485000 * RABAUSE=1; /* ONE ENTRY */ 00486000 LA @08,1 01S0260 00487000 STH @08,RABAUSE(,RABAPTR) 01S0260 00488000 * RABARNM(1)=1; /* ONE RECORD DESCRIBED */ 00489000 STH @08,RABARNM(,RABAPTR) 01S0261 00490000 * IF PAGEP=ZZZZNULL THEN /* REAL PSA */ 00491000 * 01S0262 00492000 CR PAGEP,@14 01S0262 00493000 BNE @RF00262 01S0262 00494000 * /***************************************************************/ 00495000 * /* */ 00496000 * /* REAL PREFIXED STORAGE AREA */ 00497000 * /* */ 00498000 * /***************************************************************/ 00499000 * 01S0263 00500000 * DO; /* REAL PSA */ 00501000 * RABARIA(1)=ZZZZNULL; /* ->FIRST BYTE DESCRIBED */ 00502000 ST @14,RABARIA(,RABAPTR) 01S0264 00503000 * IF RABARFU(1)=ZZZ0 THEN /* REAL PSA LOCATED */ 00504000 TM RABARFU(RABAPTR),B'10000000' 01S0265 00505000 BNZ @RF00265 01S0265 00506000 * RABARFP(1)=ZZZ1; /* PREFIXED PAGE */ 00507000 OI RABARFP(RABAPTR),B'01000000' 01S0266 00508000 * END; /* REAL PSA */ 00509000 * ELSE /* NOT THE REAL PSA */ 00510000 * IF PAGEP=PSAPTR THEN /* ABSOLUTE PSA */ 00511000 * 01S0268 00512000 B @RC00262 01S0268 00513000 @RF00262 CR PAGEP,PSAPTR 01S0268 00514000 BNE @RF00268 01S0268 00515000 * /*************************************************************/ 00516000 * /* */ 00517000 * /* ABSOLUTE PREFIXED STORAGE AREA */ 00518000 * /* */ 00519000 * /*************************************************************/ 00520000 * 01S0269 00521000 * DO; /* ABSOLUTE PSA */ 00522000 * RABARIA(1)=PSAPTR; /* ->BYTE OF INTEREST */ 00523000 ST PSAPTR,RABARIA(,RABAPTR) 01S0270 00524000 * IF RABARFU(1)=ZZZ0 THEN /* ABSOLUTE PSA LOCATED */ 00525000 TM RABARFU(RABAPTR),B'10000000' 01S0271 00526000 BNZ @RF00271 01S0271 00527000 * RABARFP(1)=ZZZ1; /* PREFIXED PAGE */ 00528000 OI RABARFP(RABAPTR),B'01000000' 01S0272 00529000 * END; /* ABSOLUTE PSA */ 00530000 @RF00271 DS 0H 01S0274 00531000 * RABARLE(1)=ZZZLENP4; /* LENGTH OF DATA DESCRIBED */ 00532000 @RF00268 DS 0H 01S0274 00533000 @RC00262 MVC RABARLE(4,RABAPTR),@CF00095 01S0274 00534000 * RABAFAD=RABARIA(1)+ZZZLENP4-1; /* ->FINAL BYTE DESCRIBED */ 00535000 L @14,RABARIA(,RABAPTR) 01S0275 00536000 SL @14,@CF01164 01S0275 00537000 ST @14,RABAFAD(,RABAPTR) 01S0275 00538000 *EXIT: /* COMMON EXIT PATH */ 00539000 * RETURN CODE(RETC); 01S0276 00540000 * 01S0276 00541000 EXIT L @13,4(,@13) 01S0276 00542000 L @00,@SIZDATD 01S0276 00543000 LR @01,@11 01S0276 00544000 BLSUFRES R,LV=(0),A=(1) 00545000 LR @15,@04 01S0276 00546000 L @14,12(,@13) 01S0276 00547000 LM @00,@12,20(@13) 01S0276 00548000 BR @14 01S0276 00549000 */*BLSRPEND--DEBUGGING MODULE*/ 01S0277 00550000 * 01S0277 00551000 */*BLSUPEND--MVS IPCS MODULE*/ 01S0277 00552000 * 01S0277 00553000 * DECLARE/*DATA FOR AHB MACROS*/ 01S0277 00554000 * PACKED BIT(64) BOUNDARY(DWORD);/*DATA CONVERSION WORK AREA*/ 00555000 * 01S0277 00556000 * 01S0277 00557000 * DECLARE /* COMMON VARIABLES */ 01S0278 00558000 * I256C CHAR(256) BASED, 01S0278 00559000 * I031F FIXED(31) BASED, 01S0278 00560000 * I031P PTR(31) BASED, 01S0278 00561000 * I015F FIXED(15) BASED, 01S0278 00562000 * I015P PTR(15) BASED, 01S0278 00563000 * I008P PTR(8) BASED, 01S0278 00564000 * I001C CHAR(1) BASED; 01S0278 00565000 * GENERATE NODEFS NOREFS DATA; 01S0279 00566000 * END BLSRRACR /*BLRPEND(BLSRRACR) */ 01S0280 00567000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00568000 */*%INCLUDE SYSLIB (BLSRZZZ ) * 00569000 */*%INCLUDE SYSLIB (BLSUZZZ ) * 00570000 */*%INCLUDE SYSLIB (BLRFULL ) * 00571000 */*%INCLUDE SYSLIB (IKJCPPL ) * 00572000 */*%INCLUDE SYSLIB (IKJPSCB ) * 00573000 */*%INCLUDE SYSLIB (IKJECT ) * 00574000 */*%INCLUDE SYSLIB (IKJUPT ) * 00575000 */*%INCLUDE SYSLIB (BLSUSERV) * 00576000 */*%INCLUDE SYSLIB (BLRSERV ) * 00577000 */*%INCLUDE SYSLIB (BLRSERVD) * 00578000 */*%INCLUDE SYSLIB (BLSRSERV) * 00579000 *; 01S0280 00580000 @EL00001 L @13,4(,@13) 01S0280 00581000 @EF00001 L @00,@SIZDATD 01S0280 00582000 LR @01,@11 01S0280 00583000 BLSUFRES R,LV=(0),A=(1) 00584000 @ER00001 LM @14,@12,12(@13) 01S0280 00585000 BR @14 01S0280 00586000 @DATA DS 0H 00587000 @CH00055 DC H'8' 00588000 @DATD DSECT 00589000 DS 0F 00590000 @SA00001 DS 18F 00591000 @PC00001 DS 2F 00592000 @AL00001 DS 2A 00593000 BLSRRACR CSECT 00594000 DS 0F 00595000 @CF01163 DC F'4095' 00596000 @CF00095 DC F'4096' 00597000 @CF00127 DC F'2147483647' 00598000 @CF01164 DC F'-4095' 00599000 @CH01164 EQU @CF01164+2 00600000 @CF00121 DC XL4'7FFFF000' 00601000 @DATD DSECT 00602000 DS 0D 00603000 ESAU DS CL694 00604000 ORG ESAU 00605000 ESAURID DS CL2 00606000 @NM00090 DS BL6 00607000 @NM00091 DS CL8 00608000 @NM00092 DS BL8 00609000 ESAURDX DS FL4 00610000 ESAUSYM DS CL31 00611000 ESAUELK DS 0C 00612000 ESAURV1 DS CL1 00613000 ESAUAS DS CL16 00614000 ORG ESAUAS 00615000 ESAUAS0 DS 0C 00616000 ESAUAST DS CL2 00617000 @NM00093 DS BL2 00618000 ESAUAS1 DS FL4 00619000 ESAUAS2 DS FL4 00620000 @NM00094 DS BL4 00621000 ESAUAS9 DS 0C 00622000 ORG ESAU+76 00623000 ESAULAD DS AL4 00624000 ESAUD DS CL60 00625000 ORG ESAUD 00626000 ESAUD00 DS 0C 00627000 ESAUDOF DS FL4 00628000 ESAUDLE DS FL4 00629000 ESAUDOB DS FL1 00630000 ESAUDLB DS FL1 00631000 ESAUDT DS CL34 00632000 ORG ESAUDT 00633000 ESAUDT0 DS 0C 00634000 ESAUDTY DS CL1 00635000 @NM00095 DS BL1 00636000 ESAUDTD DS CL31 00637000 ESAUDTE DS CL1 00638000 ESAUDT9 DS 0C 00639000 ORG ESAUD+44 00640000 ESAUDIM DS FL4 00641000 ESAUDIL DS FL4 00642000 ESAUDF DS BL4 00643000 ORG ESAUDF 00644000 ESAUDFA DS BL1 00645000 @NM00096 EQU ESAUDF+0 00646000 ORG ESAUD+56 00647000 @NM00097 DS BL4 00648000 ESAUD99 DS 0C 00649000 ORG ESAU+140 00650000 ESAUMAD DS AL4 00651000 @NM00098 DS BL16 00652000 ESAUKEY DS BL1 00653000 ESAUF DS BL3 00654000 ORG ESAUF 00655000 ESAUFS DS BL1 00656000 ORG ESAUFS 00657000 ESAUFSC DS BL1 00658000 ESAUFS2 EQU ESAUFS+0 00659000 ESAUFSM EQU ESAUFS+0 00660000 ESAUFSA EQU ESAUFS+0 00661000 ESAUFSP EQU ESAUFS+0 00662000 ESAUFSR EQU ESAUFS+0 00663000 ESAUFSX EQU ESAUFS+0 00664000 ESAUFSS EQU ESAUFS+0 00665000 ORG ESAUF+1 00666000 ESAUFC DS BL1 00667000 ORG ESAUFC 00668000 ESAUFCD DS BL1 00669000 @NM00099 EQU ESAUFC+0 00670000 ORG ESAUF+2 00671000 @NM00100 DS BL1 00672000 ORG ESAU+164 00673000 ESAUABS DS FL4 00674000 @NM00101 DS BL12 00675000 ESAUR DS CL514 00676000 ORG ESAUR 00677000 ESAURL DS FL2 00678000 ESAURT DS CL512 00679000 ORG ESAURT 00680000 ESAURT1 DS CL512 00681000 ORG ESAU+694 00682000 ESAU999 DS 0C 00683000 ORG ESAU+694 00684000 DS CL2 00685000 RAAU DS CL148 00686000 ORG RAAU 00687000 RAAURID DS CL2 00688000 @NM00102 DS BL6 00689000 RAAURDX DS FL4 00690000 RAAUAS DS CL16 00691000 ORG RAAUAS 00692000 RAAUAS0 DS 0C 00693000 RAAUAST DS CL2 00694000 @NM00103 DS BL2 00695000 RAAUAS1 DS FL4 00696000 RAAUAS2 DS FL4 00697000 @NM00104 DS BL4 00698000 RAAUAS9 DS 0C 00699000 ORG RAAU+28 00700000 RAAUFAD DS AL4 00701000 RAAUELK DS 0C 00702000 @NM00105 DS BL16 00703000 RAAUDIM DS FL2 00704000 RAAUUSE DS FL2 00705000 RAAUR DS CL32 00706000 ORG RAAUR+0 00707000 RAAURIA DS AL4 00708000 RAAURLE DS FL4 00709000 RAAURNM DS FL2 00710000 RAAURF DS BL2 00711000 ORG RAAURF+0 00712000 RAAURFU DS BL1 00713000 RAAURFP EQU RAAURF+0 00714000 RAAURFR EQU RAAURF+0 00715000 @NM00106 EQU RAAURF+0 00716000 ORG RAAUR+12 00717000 RAAURDA DS FL4 00718000 RAAUROF DS FL4 00719000 @NM00107 DS BL12 00720000 ORG RAAU+148 00721000 RAAU999 DS 0C 00722000 ORG RAAU+148 00723000 DS CL4 00724000 PACKED DS BL8 00725000 BLSRRACR CSECT 00726000 DS 0F 00727000 @SIZDATD DC AL1(0) 00728000 DC AL3(@ENDDATD-@DATD) 00729000 DS 0D 00730000 @CC00982 DC C'PSA' 00731000 DS CL1 00732000 DATSA DS CL16 00733000 ORG DATSA 00734000 DATSA0 DS 0C 00735000 DATSAT DC CL2'A ' 00736000 @NM00087 DC X'0000' 00737000 DATSA1 DC A(0) 00738000 DATSA2 DC A(0) 00739000 @NM00088 DC X'00' 00740000 DC XL3'0' 00741000 DATSA9 DS 0C 00742000 ORG DATSA+16 00743000 DTPSA DS CL34 00744000 ORG DTPSA 00745000 DTPSA0 DS 0C 00746000 DTPSAY DC CL1'M' 00747000 @NM00089 DC X'00' 00748000 DTPSAD DC CL31'PSA' 00749000 DTPSAE DC CL1' ' 00750000 DTPSA9 DS 0C 00751000 ORG DTPSA+34 00752000 @DATD DSECT 00753000 SPACE 2 00754000 *********************************************************************** 00755000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00756000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00757000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00758000 *********************************************************************** 00759000 SPACE 00760000 BLSRRACR CSECT 00761000 ORG 00762000 DS 0D 00763000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRRACR+19)/20+7)/8)CL8'BLSRRACR' 00764000 @DATD DSECT 00765000 DS 0H 00766000 @DATD DSECT 00767000 SPACE 2 00768000 *********************************************************************** 00769000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00770000 *********************************************************************** 00771000 SPACE 00772000 DS 0D 00773000 @DATD DSECT 00774000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00775000 @ENDDATD EQU * 00776000 BLSRRACR CSECT 00777000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00778000 @01 EQU 01 00779000 @02 EQU 02 00780000 @03 EQU 03 00781000 @04 EQU 04 00782000 @05 EQU 05 00783000 @06 EQU 06 00784000 @07 EQU 07 00785000 @08 EQU 08 00786000 @09 EQU 09 00787000 @10 EQU 10 00788000 @11 EQU 11 00789000 @12 EQU 12 00790000 @13 EQU 13 00791000 @14 EQU 14 00792000 @15 EQU 15 00793000 RETC EQU @04 00794000 P1 EQU @04 00795000 PSAPTR EQU @05 00796000 PAGEP EQU @06 00797000 RABAPTR EQU @03 00798000 R9 EQU @09 00799000 R0 EQU @00 00800000 R1 EQU @01 00801000 R2 EQU @02 00802000 R3 EQU @03 00803000 R4 EQU @04 00804000 R5 EQU @05 00805000 RB EQU @11 00806000 RD EQU @13 00807000 RE EQU @14 00808000 RF EQU @15 00809000 RA EQU @10 00810000 RC EQU @12 00811000 R6 EQU @06 00812000 R7 EQU @07 00813000 R8 EQU @08 00814000 ZZ1 EQU 0 00815000 ZZ1ATTN EQU ZZ1+360 00816000 ZZ1EVE EQU ZZ1ATTN+4 00817000 ZZ1F EQU ZZ1+368 00818000 ZZ1N EQU ZZ1+1116 00819000 ZZ2 EQU 0 00820000 ZZ2AMD EQU ZZ2 00821000 @NM00021 EQU ZZ2AMD+7 00822000 ZZ2PRT EQU ZZ2+138 00823000 ZZ2PRTT EQU ZZ2PRT+4 00824000 ZZ2PRTT1 EQU ZZ2PRTT+1 00825000 ZZ2A EQU ZZ2+272 00826000 ZZ2AF EQU ZZ2A+16 00827000 ZZ2APID EQU ZZ2A+64 00828000 ZZ2AD EQU ZZ2A+74 00829000 ZZ2ADD EQU ZZ2AD 00830000 ZZ2ADDT EQU ZZ2ADD+2 00831000 ZZ2ADM EQU ZZ2AD+46 00832000 ZZ2ADMT EQU ZZ2ADM+2 00833000 ZZ2ADP EQU ZZ2AD+56 00834000 ZZ2ADPT EQU ZZ2ADP+2 00835000 ZZ2AZZ6P EQU ZZ2A+140 00836000 ZZ2AQAS EQU ZZ2A+144 00837000 ZZ2AQD EQU ZZ2A+160 00838000 ZZ2AQDT EQU ZZ2AQD+10 00839000 ZZ2AQDF EQU ZZ2AQD+52 00840000 ZZ2STG EQU ZZ2+960 00841000 ZZ2ALLOP EQU ZZ2+992 00842000 ZZ2FREEP EQU ZZ2+996 00843000 ZZ2FF19P EQU ZZ2+1000 00844000 ZZ2FRE1P EQU ZZ2+1004 00845000 ZZ2FF18P EQU ZZ2+1008 00846000 ZZ2DYNAP EQU ZZ2+1012 00847000 ZZ2ZZ2CP EQU ZZ2+1016 00848000 ZZ2ZZ2DP EQU ZZ2+1020 00849000 ZZ2STAIP EQU ZZ2+1024 00850000 ZZ2FF02P EQU ZZ2+1028 00851000 ZZ2GETLP EQU ZZ2+1032 00852000 ZZ2PARSP EQU ZZ2+1036 00853000 ZZ2PTGTP EQU ZZ2+1040 00854000 ZZ2PUTLP EQU ZZ2+1044 00855000 ZZ2SCANP EQU ZZ2+1048 00856000 ZZ2STCKP EQU ZZ2+1052 00857000 ZZ2TRMOP EQU ZZ2+1064 00858000 ZZ2TRMVP EQU ZZ2+1068 00859000 ZZ2PUTNP EQU ZZ2+1084 00860000 ZZ2TRMNP EQU ZZ2+1088 00861000 ZZ2ZZ1P EQU ZZ2+1264 00862000 ZZ2BVTP EQU ZZ2+1280 00863000 ZZ2RVTP EQU ZZ2+1284 00864000 ZZ2CPPL EQU ZZ2+1292 00865000 ZZ2CPPLC EQU ZZ2CPPL 00866000 ZZ2F EQU ZZ2+2824 00867000 ZZ2ITR EQU ZZ2+2840 00868000 ZZ2ITRE EQU ZZ2ITR+16 00869000 ZZ2ITSE EQU ZZ2+2864 00870000 ZZ2ES EQU ZZ2+2872 00871000 ZZ2AMDX EQU ZZ2+7160 00872000 ZZ2AXO EQU ZZ2+7934 00873000 ZZ2AXOT EQU ZZ2AXO+2 00874000 CMD EQU 0 00875000 CMDT EQU CMD+4 00876000 PSCB EQU 0 00877000 PSCBATR1 EQU PSCB+16 00878000 ECT EQU 0 00879000 ECTSWS EQU ECT+28 00880000 ECTSWS2 EQU ECT+40 00881000 ECTSWS21 EQU ECTSWS2 00882000 UPT EQU 0 00883000 UPTSWS EQU UPT+12 00884000 SA EQU 0 00885000 SA1 EQU SA 00886000 SAR EQU SA+12 00887000 SAR1 EQU SAR+12 00888000 BVT EQU 0 00889000 BVTPUTLP EQU BVT+4 00890000 BVTPUTOP EQU BVT+12 00891000 BVTPUTTP EQU BVT+16 00892000 BVTPUTVP EQU BVT+20 00893000 BVTPUTAP EQU BVT+24 00894000 BVTPRTTP EQU BVT+28 00895000 BVTPRTAP EQU BVT+32 00896000 BVTPUTDP EQU BVT+36 00897000 BVTMONP EQU BVT+40 00898000 BVTMON2P EQU BVT+44 00899000 BVTVSARP EQU BVT+48 00900000 BVTVSENP EQU BVT+64 00901000 BVTVSERP EQU BVT+68 00902000 BVTVSGEP EQU BVT+72 00903000 BVTVSGUP EQU BVT+76 00904000 BVTVSPOP EQU BVT+80 00905000 BVTVSPUP EQU BVT+84 00906000 BVTMPKNP EQU BVT+104 00907000 BVTMONLP EQU BVT+108 00908000 BVTPUTCP EQU BVT+132 00909000 BVTMPK1P EQU BVT+136 00910000 BVTZZ2RP EQU BVT+140 00911000 BVTPGMRP EQU BVT+144 00912000 BVTMONAP EQU BVT+148 00913000 BVTBLDDP EQU BVT+152 00914000 BVTBLDLP EQU BVT+156 00915000 BVTPGMCP EQU BVT+160 00916000 BVTPGMDP EQU BVT+164 00917000 BVTPGMLP EQU BVT+168 00918000 BVTMONCP EQU BVT+180 00919000 BVTMONDP EQU BVT+184 00920000 BVTMONTP EQU BVT+188 00921000 BVTPARIP EQU BVT+192 00922000 BVTPARUP EQU BVT+196 00923000 BVTPRTNP EQU BVT+204 00924000 BVTVSCRP EQU BVT+208 00925000 BVTVSMRP EQU BVT+212 00926000 BVTMONXP EQU BVT+216 00927000 BVTTRMAP EQU BVT+228 00928000 ZZ6 EQU 0 00929000 ZZ6D EQU ZZ6+128 00930000 ZZ6DD EQU ZZ6D+8 00931000 ZZ6DDT EQU ZZ6DD+4 00932000 ZZ6DQA EQU ZZ6D+68 00933000 ZZ6DF EQU ZZ6D+92 00934000 ZZ6DFDU EQU ZZ6DF 00935000 ZZ6DFAB EQU ZZ6DF 00936000 ZZ6DFST EQU ZZ6DF 00937000 ZZ6F EQU ZZ6+504 00938000 ZZ6B EQU ZZ6+768 00939000 BLSRESGU EQU 0 00940000 BLSRRAAR EQU 0 00941000 BLSRRAGE EQU 0 00942000 RVT EQU 0 00943000 RVTADDRP EQU RVT 00944000 RVTT01P EQU RVT+4 00945000 RVTTAP EQU RVT+8 00946000 RVTTBP EQU RVT+12 00947000 RVTTCP EQU RVT+16 00948000 RVTTFP EQU RVT+24 00949000 RVTTYP EQU RVT+40 00950000 RVTT02P EQU RVT+48 00951000 RVTT03P EQU RVT+52 00952000 RVTT04P EQU RVT+56 00953000 RVTACCLP EQU RVT+60 00954000 RVTRACCP EQU RVT+64 00955000 RVTTLP EQU RVT+68 00956000 RVTTMP EQU RVT+72 00957000 RVTTUP EQU RVT+80 00958000 RVTESGEP EQU RVT+84 00959000 RVTESGUP EQU RVT+88 00960000 RVTESARP EQU RVT+92 00961000 RVTRAARP EQU RVT+96 00962000 RVTRAGEP EQU RVT+100 00963000 RVTADDPP EQU RVT+104 00964000 RVTACCQP EQU RVT+108 00965000 RVTSAGUP EQU RVT+124 00966000 RVTSAGEP EQU RVT+128 00967000 RVTESCKP EQU RVT+132 00968000 RVTMSGAP EQU RVT+136 00969000 RVTMSGDP EQU RVT+140 00970000 RVTADDTP EQU RVT+160 00971000 RVTADDUP EQU RVT+164 00972000 RVTADD1P EQU RVT+176 00973000 RVTADD2P EQU RVT+180 00974000 RVTRSAGP EQU RVT+184 00975000 RVTMSGBP EQU RVT+188 00976000 RVTADDSP EQU RVT+192 00977000 RVTADD3P EQU RVT+196 00978000 RVTT05P EQU RVT+200 00979000 RVTPADSP EQU RVT+204 00980000 RVTTRP EQU RVT+228 00981000 RVTADD4P EQU RVT+232 00982000 RVTSAPCP EQU RVT+236 00983000 RVTSAARP EQU RVT+240 00984000 RVTSAGNP EQU RVT+244 00985000 RVTT06P EQU RVT+248 00986000 RVTSAGCP EQU RVT+252 00987000 RVTSAGQP EQU RVT+256 00988000 RVTESGCP EQU RVT+260 00989000 RVTESGQP EQU RVT+264 00990000 RVTDUCKP EQU RVT+276 00991000 RVTDUCCP EQU RVT+280 00992000 RABA EQU 0 00993000 RABAAS EQU RABA+12 00994000 RABAAS1 EQU RABAAS+4 00995000 RABAFAD EQU RABA+28 00996000 RABAUSE EQU RABA+50 00997000 RABAR EQU RABA+52 00998000 RABARIA EQU RABAR 00999000 RABARLE EQU RABAR+4 01000000 RABARNM EQU RABAR+8 01001000 RABARF EQU RABAR+10 01002000 RABARFU EQU RABARF 01003000 RABARFP EQU RABARF 01004000 BLSRACC EQU 0 01005000 BLSRACCL EQU 0 01006000 BLSRACCQ EQU 0 01007000 BLSRADDP EQU 0 01008000 BLSRADDR EQU 0 01009000 BLSRADDS EQU 0 01010000 BLSRADDT EQU 0 01011000 BLSRADDU EQU 0 01012000 BLSRADD1 EQU 0 01013000 BLSRADD2 EQU 0 01014000 BLSRADD3 EQU 0 01015000 BLSRADD4 EQU 0 01016000 BLSRDUCC EQU 0 01017000 BLSRDUCK EQU 0 01018000 BLSRESAR EQU 0 01019000 BLSRESCK EQU 0 01020000 BLSRESGC EQU 0 01021000 BLSRESGE EQU 0 01022000 BLSRESGQ EQU 0 01023000 BLSRMSGA EQU 0 01024000 BLSRMSGB EQU 0 01025000 BLSRMSGD EQU 0 01026000 BLSRPADS EQU 0 01027000 BLSRSAAR EQU 0 01028000 BLSRSAG EQU 0 01029000 BLSRSAGC EQU 0 01030000 BLSRSAGE EQU 0 01031000 BLSRSAGN EQU 0 01032000 BLSRSAGQ EQU 0 01033000 BLSRSAGU EQU 0 01034000 BLSRSAPC EQU 0 01035000 BLSTA EQU 0 01036000 BLSTB EQU 0 01037000 BLSTC EQU 0 01038000 BLSTF EQU 0 01039000 BLSTL EQU 0 01040000 BLSTM EQU 0 01041000 BLSTR EQU 0 01042000 BLSTU EQU 0 01043000 BLSTY EQU 0 01044000 BLST01 EQU 0 01045000 BLST02 EQU 0 01046000 BLST03 EQU 0 01047000 BLST04 EQU 0 01048000 BLST05 EQU 0 01049000 BLST06 EQU 0 01050000 BLSUALLO EQU 0 01051000 BLSUBLDD EQU 0 01052000 BLSUBLDL EQU 0 01053000 BLSUDYNA EQU 0 01054000 BLSUFREE EQU 0 01055000 BLSUFRE1 EQU 0 01056000 BLSUMON EQU 0 01057000 BLSUMONA EQU 0 01058000 BLSUMONC EQU 0 01059000 BLSUMOND EQU 0 01060000 BLSUMONL EQU 0 01061000 BLSUMONT EQU 0 01062000 BLSUMONX EQU 0 01063000 BLSUMON2 EQU 0 01064000 BLSUMPKN EQU 0 01065000 BLSUMPK1 EQU 0 01066000 BLSUPARI EQU 0 01067000 BLSUPARU EQU 0 01068000 BLSUPGMC EQU 0 01069000 BLSUPGMD EQU 0 01070000 BLSUPGML EQU 0 01071000 BLSUPGMR EQU 0 01072000 BLSUPRTA EQU 0 01073000 BLSUPRTN EQU 0 01074000 BLSUPRTT EQU 0 01075000 BLSUPUTA EQU 0 01076000 BLSUPUTC EQU 0 01077000 BLSUPUTD EQU 0 01078000 BLSUPUTL EQU 0 01079000 BLSUPUTN EQU 0 01080000 BLSUPUTO EQU 0 01081000 BLSUPUTT EQU 0 01082000 BLSUPUTV EQU 0 01083000 BLSUSTAI EQU 0 01084000 BLSUTRMA EQU 0 01085000 BLSUTRMN EQU 0 01086000 BLSUTRMO EQU 0 01087000 BLSUTRMV EQU 0 01088000 BLSUVSAR EQU 0 01089000 BLSUVSCR EQU 0 01090000 BLSUVSEN EQU 0 01091000 BLSUVSER EQU 0 01092000 BLSUVSGE EQU 0 01093000 BLSUVSGU EQU 0 01094000 BLSUVSMR EQU 0 01095000 BLSUVSPO EQU 0 01096000 BLSUVSPU EQU 0 01097000 BLSUZZ2C EQU 0 01098000 BLSUZZ2D EQU 0 01099000 BLSUZZ2R EQU 0 01100000 IKJEFF02 EQU 0 01101000 IKJEFF18 EQU 0 01102000 IKJEFF19 EQU 0 01103000 IKJGETL EQU 0 01104000 IKJPARS EQU 0 01105000 IKJPTGT EQU 0 01106000 IKJPUTL EQU 0 01107000 IKJSCAN EQU 0 01108000 IKJSTCK EQU 0 01109000 I001C EQU 0 01110000 I008P EQU 0 01111000 I015F EQU 0 01112000 I015P EQU 0 01113000 I031F EQU 0 01114000 I031P EQU 0 01115000 I256C EQU 0 01116000 PZ2 EQU 0 01117000 RAPA EQU 0 01118000 RAPAAS EQU RAPA+12 01119000 RAPAR EQU RAPA+52 01120000 RAPARF EQU RAPAR+10 01121000 CPPL EQU ZZ2CPPL 01122000 CPPLUPT EQU CPPL+4 01123000 CPPLPSCB EQU CPPL+8 01124000 CPPLECT EQU CPPL+12 01125000 SYM EQU ESAUSYM 01126000 SYMB EQU SYM+3 01127000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01128000 SYMA EQU SYM 01129000 CPPLCBUF EQU CPPL 01130000 RAPA999 EQU RAPA+3060 01131000 @NM00006 EQU RAPAR+20 01132000 RAPAROF EQU RAPAR+16 01133000 RAPARDA EQU RAPAR+12 01134000 @NM00005 EQU RAPARF 01135000 RAPARFR EQU RAPARF 01136000 RAPARFP EQU RAPARF 01137000 RAPARFU EQU RAPARF 01138000 RAPARNM EQU RAPAR+8 01139000 RAPARLE EQU RAPAR+4 01140000 RAPARIA EQU RAPAR 01141000 RAPAUSE EQU RAPA+50 01142000 RAPADIM EQU RAPA+48 01143000 @NM00004 EQU RAPA+32 01144000 RAPAELK EQU RAPA+32 01145000 RAPAFAD EQU RAPA+28 01146000 RAPAAS9 EQU RAPAAS+16 01147000 @NM00003 EQU RAPAAS+12 01148000 RAPAAS2 EQU RAPAAS+8 01149000 RAPAAS1 EQU RAPAAS+4 01150000 @NM00002 EQU RAPAAS+2 01151000 RAPAAST EQU RAPAAS 01152000 RAPAAS0 EQU RAPAAS 01153000 RAPARDX EQU RAPA+8 01154000 @NM00001 EQU RAPA+2 01155000 RAPARID EQU RAPA 01156000 RABA999 EQU RABA+148 01157000 @NM00113 EQU RABAR+20 01158000 RABAROF EQU RABAR+16 01159000 RABARDA EQU RABAR+12 01160000 @NM00112 EQU RABARF 01161000 RABARFR EQU RABARF 01162000 RABADIM EQU RABA+48 01163000 @NM00111 EQU RABA+32 01164000 RABAELK EQU RABA+32 01165000 RABAAS9 EQU RABAAS+16 01166000 @NM00110 EQU RABAAS+12 01167000 RABAAS2 EQU RABAAS+8 01168000 @NM00109 EQU RABAAS+2 01169000 RABAAST EQU RABAAS 01170000 RABAAS0 EQU RABAAS 01171000 RABARDX EQU RABA+8 01172000 @NM00108 EQU RABA+2 01173000 RABARID EQU RABA 01174000 RVT99999 EQU RVT+384 01175000 RVT0096P EQU RVT+380 01176000 RVT0095P EQU RVT+376 01177000 RVT0094P EQU RVT+372 01178000 RVT0093P EQU RVT+368 01179000 RVT0092P EQU RVT+364 01180000 RVT0091P EQU RVT+360 01181000 RVT0090P EQU RVT+356 01182000 RVT0089P EQU RVT+352 01183000 RVT0088P EQU RVT+348 01184000 RVT0087P EQU RVT+344 01185000 RVT0086P EQU RVT+340 01186000 RVT0085P EQU RVT+336 01187000 RVT0084P EQU RVT+332 01188000 RVT0083P EQU RVT+328 01189000 RVT0082P EQU RVT+324 01190000 RVT0081P EQU RVT+320 01191000 RVT0080P EQU RVT+316 01192000 RVT0079P EQU RVT+312 01193000 RVT0078P EQU RVT+308 01194000 RVT0077P EQU RVT+304 01195000 RVT0076P EQU RVT+300 01196000 RVT0075P EQU RVT+296 01197000 RVT0074P EQU RVT+292 01198000 RVT0073P EQU RVT+288 01199000 RVT0072P EQU RVT+284 01200000 RVTDTUTP EQU RVT+272 01201000 RVTDTMTP EQU RVT+268 01202000 RVT0057P EQU RVT+224 01203000 RVT0056P EQU RVT+220 01204000 RVT0055P EQU RVT+216 01205000 RVT0054P EQU RVT+212 01206000 RVT0053P EQU RVT+208 01207000 RVT0044P EQU RVT+172 01208000 RVT0043P EQU RVT+168 01209000 RVT0040P EQU RVT+156 01210000 RVT0039P EQU RVT+152 01211000 RVT0038P EQU RVT+148 01212000 RVT0037P EQU RVT+144 01213000 RVT0031P EQU RVT+120 01214000 RVT0030P EQU RVT+116 01215000 RVT0029P EQU RVT+112 01216000 RVT0020P EQU RVT+76 01217000 RVT0012P EQU RVT+44 01218000 RVT0010P EQU RVT+36 01219000 RVT0009P EQU RVT+32 01220000 RVT0008P EQU RVT+28 01221000 RVT0006P EQU RVT+20 01222000 ZZ69999 EQU ZZ6+1792 01223000 ZZ6BRB EQU ZZ6B+12 01224000 ZZ6BRC EQU ZZ6B+8 01225000 @NM00086 EQU ZZ6B+6 01226000 ZZ6BFL EQU ZZ6B+4 01227000 ZZ6BDA EQU ZZ6B 01228000 @NM00085 EQU ZZ6+540 01229000 ZZ6BUFI EQU ZZ6+536 01230000 ZZ6BUFP EQU ZZ6+532 01231000 ZZ6FILE EQU ZZ6+524 01232000 ZZ6BUFB EQU ZZ6+520 01233000 ZZ6BUFL EQU ZZ6+518 01234000 ZZ6BUFN EQU ZZ6+516 01235000 ZZ6ZZ6P EQU ZZ6+512 01236000 @NM00084 EQU ZZ6F 01237000 ZZ6FINIT EQU ZZ6F 01238000 ZZ6FDUOP EQU ZZ6F 01239000 @NM00083 EQU ZZ6+256 01240000 ZZ6D999 EQU ZZ6D+128 01241000 @NM00082 EQU ZZ6D+116 01242000 ZZ6DCAP EQU ZZ6D+112 01243000 ZZ6DPRP EQU ZZ6D+108 01244000 ZZ6DDA2 EQU ZZ6D+104 01245000 ZZ6DDA1 EQU ZZ6D+100 01246000 @NM00081 EQU ZZ6DF 01247000 ZZ6DFSU EQU ZZ6DF 01248000 ZZ6DFMP EQU ZZ6DF 01249000 ZZ6DFBS EQU ZZ6DF 01250000 ZZ6DQ2 EQU ZZ6D+88 01251000 ZZ6DQ1 EQU ZZ6D+84 01252000 ZZ6DQA9 EQU ZZ6DQA+16 01253000 @NM00080 EQU ZZ6DQA+12 01254000 ZZ6DQA2 EQU ZZ6DQA+8 01255000 ZZ6DQA1 EQU ZZ6DQA+4 01256000 @NM00079 EQU ZZ6DQA+2 01257000 ZZ6DQAT EQU ZZ6DQA 01258000 ZZ6DQA0 EQU ZZ6DQA 01259000 ZZ6DRDX EQU ZZ6D+64 01260000 ZZ6DELK EQU ZZ6D+64 01261000 ZZ6DMEM EQU ZZ6D+56 01262000 ZZ6DDT1 EQU ZZ6DDT 01263000 ZZ6DDO EQU ZZ6DD+2 01264000 ZZ6DDL EQU ZZ6DD 01265000 @NM00078 EQU ZZ6D+2 01266000 ZZ6DRID EQU ZZ6D 01267000 ZZ6RDCB EQU ZZ6 01268000 ZZ60000 EQU ZZ6 01269000 BVT99999 EQU BVT+256 01270000 BVT0064P EQU BVT+252 01271000 BVT0063P EQU BVT+248 01272000 BVT0062P EQU BVT+244 01273000 BVT0061P EQU BVT+240 01274000 BVT0060P EQU BVT+236 01275000 BVT0059P EQU BVT+232 01276000 BVT0057P EQU BVT+224 01277000 BVT0056P EQU BVT+220 01278000 BVTSTBLP EQU BVT+200 01279000 BVT0045P EQU BVT+176 01280000 BVT0044P EQU BVT+172 01281000 BVT0033P EQU BVT+128 01282000 BVT0032P EQU BVT+124 01283000 BVT0031P EQU BVT+120 01284000 BVT0030P EQU BVT+116 01285000 BVT0029P EQU BVT+112 01286000 BVT0026P EQU BVT+100 01287000 BVT0025P EQU BVT+96 01288000 BVT0024P EQU BVT+92 01289000 BVT0023P EQU BVT+88 01290000 BVT0016P EQU BVT+60 01291000 BVT0015P EQU BVT+56 01292000 BVT0014P EQU BVT+52 01293000 BVT0003P EQU BVT+8 01294000 BVT0001P EQU BVT 01295000 SA99 EQU SA+72 01296000 SARC EQU SAR+56 01297000 SARB EQU SAR+52 01298000 SARA EQU SAR+48 01299000 SAR9 EQU SAR+44 01300000 SAR8 EQU SAR+40 01301000 SAR7 EQU SAR+36 01302000 SAR6 EQU SAR+32 01303000 SAR5 EQU SAR+28 01304000 SAR4 EQU SAR+24 01305000 SAR3 EQU SAR+20 01306000 SAR2 EQU SAR+16 01307000 SAR0 EQU SAR+8 01308000 SARF EQU SAR+4 01309000 SARE EQU SAR 01310000 SAFWD EQU SA+8 01311000 SABAK EQU SA+4 01312000 SA1L EQU SA1+1 01313000 SA1P EQU SA1 01314000 UPTPREFL EQU UPT+23 01315000 UPTPREFX EQU UPT+16 01316000 @NM00077 EQU UPT+15 01317000 UPTLDEL EQU UPT+14 01318000 UPTCDEL EQU UPT+13 01319000 UPTWTP EQU UPTSWS 01320000 UPTMODE EQU UPTSWS 01321000 UPTALD EQU UPTSWS 01322000 UPTPAUS EQU UPTSWS 01323000 UPTNCOM EQU UPTSWS 01324000 UPTMID EQU UPTSWS 01325000 UPTNPRM EQU UPTSWS 01326000 UPTRCVR EQU UPTSWS 01327000 UPTUSER EQU UPT+2 01328000 @NM00076 EQU UPT 01329000 @NM00075 EQU ECT+52 01330000 @NM00074 EQU ECT+48 01331000 @NM00073 EQU ECT+44 01332000 @NM00072 EQU ECTSWS2+1 01333000 @NM00071 EQU ECTSWS21 01334000 ECTTABND EQU ECTSWS21 01335000 ECTDEFCS EQU ECTSWS21 01336000 ECTBKPB EQU ECT+36 01337000 ECTUSER EQU ECT+32 01338000 ECTDDNUM EQU ECT+29 01339000 ECTATTN EQU ECTSWS 01340000 ECTBKGRD EQU ECTSWS 01341000 ECTNNOT EQU ECTSWS 01342000 ECTNMAL EQU ECTSWS 01343000 ECTLOGF EQU ECTSWS 01344000 ECTATRM EQU ECTSWS 01345000 @NM00070 EQU ECTSWS 01346000 ECTNOPD EQU ECTSWS 01347000 ECTSCMD EQU ECT+20 01348000 ECTPCMD EQU ECT+12 01349000 ECTSMSG EQU ECT+9 01350000 ECTMSGF EQU ECT+8 01351000 ECTIOWA EQU ECT+4 01352000 ECTRTCD EQU ECT+1 01353000 ECTRCDF EQU ECT 01354000 PSCBU EQU PSCB+64 01355000 PSCBRSZ EQU PSCB+60 01356000 PSCBLINE EQU PSCB+59 01357000 PSCBCHAR EQU PSCB+58 01358000 PSCBUPTL EQU PSCB+56 01359000 PSCBUPT EQU PSCB+52 01360000 PSCBRLGB EQU PSCB+48 01361000 PSCBDEST EQU PSCB+40 01362000 @NM00069 EQU PSCB+36 01363000 @NM00068 EQU PSCB+32 01364000 @NM00067 EQU PSCB+28 01365000 PSCBLTI2 EQU PSCB+24 01366000 PSCBLTIM EQU PSCB+20 01367000 PSCBATR2 EQU PSCB+18 01368000 @NM00066 EQU PSCBATR1 01369000 @NM00065 EQU PSCBATR1 01370000 @NM00064 EQU PSCBATR1 01371000 PSCBATTN EQU PSCBATR1 01372000 PSCBVMNT EQU PSCBATR1 01373000 PSCBJCL EQU PSCBATR1 01374000 PSCBACCT EQU PSCBATR1 01375000 PSCBCTRL EQU PSCBATR1 01376000 PSCBGPNM EQU PSCB+8 01377000 PSCBUSRL EQU PSCB+7 01378000 PSCBUSER EQU PSCB 01379000 CMDT1 EQU CMDT 01380000 CMDO EQU CMD+2 01381000 CMDL EQU CMD 01382000 ZZ299999 EQU ZZ2+8192 01383000 ZZ2AXOT1 EQU ZZ2AXOT 01384000 ZZ2AXOL EQU ZZ2AXO 01385000 @NM00063 EQU ZZ2+7288 01386000 @NM00062 EQU ZZ2AMDX+4 01387000 ZZ2AMDXC EQU ZZ2AMDX 01388000 ZZ2HSD EQU ZZ2+3056 01389000 @NM00061 EQU ZZ2ES 01390000 @NM00060 EQU ZZ2+2868 01391000 ZZ2ITSEC EQU ZZ2ITSE+1 01392000 @NM00059 EQU ZZ2ITSE 01393000 ZZ2ITSEP EQU ZZ2ITSE 01394000 ZZ2ITSEW EQU ZZ2ITSE 01395000 @NM00058 EQU ZZ2ITR+20 01396000 ZZ2ITREC EQU ZZ2ITRE+1 01397000 @NM00057 EQU ZZ2ITRE 01398000 ZZ2ITREP EQU ZZ2ITRE 01399000 ZZ2ITREW EQU ZZ2ITRE 01400000 @NM00056 EQU ZZ2ITR+9 01401000 ZZ2ITRRC EQU ZZ2ITR+8 01402000 ZZ2ITR2P EQU ZZ2ITR+4 01403000 ZZ2ITRPP EQU ZZ2ITR 01404000 @NM00055 EQU ZZ2F 01405000 ZZ2F3270 EQU ZZ2F 01406000 @NM00054 EQU ZZ2+1544 01407000 ZZ2PGM EQU ZZ2+1536 01408000 @NM00053 EQU ZZ2+1526 01409000 ZZ2CW EQU ZZ2+1524 01410000 @NM00052 EQU ZZ2+1504 01411000 @NM00051 EQU ZZ2+1352 01412000 ZZ2FFSYP EQU ZZ2+1348 01413000 ZZ2SASYP EQU ZZ2+1344 01414000 ZZ2RDSYP EQU ZZ2+1340 01415000 ZZ2RASYP EQU ZZ2+1336 01416000 ZZ2PHSYP EQU ZZ2+1332 01417000 ZZ2ESSYP EQU ZZ2+1328 01418000 ZZ200SYP EQU ZZ2+1324 01419000 ZZ2SCWP EQU ZZ2+1320 01420000 ZZ2TTLP EQU ZZ2+1316 01421000 ZZ2LOADP EQU ZZ2+1312 01422000 ZZ2VRESP EQU ZZ2+1308 01423000 ZZ2CPPLE EQU ZZ2CPPL+12 01424000 ZZ2CPPLP EQU ZZ2CPPL+8 01425000 ZZ2CPPLU EQU ZZ2CPPL+4 01426000 ZZ2VRSAP EQU ZZ2+1288 01427000 ZZ2DVTP EQU ZZ2+1276 01428000 @NM00050 EQU ZZ2+1272 01429000 @NM00049 EQU ZZ2+1268 01430000 ZZ2RPLP EQU ZZ2+1260 01431000 ZZ2TCBP EQU ZZ2+1256 01432000 @NM00048 EQU ZZ2+1252 01433000 ZZ2ZZ2P EQU ZZ2+1248 01434000 @NM00047 EQU ZZ2+1112 01435000 ZZ2FPDRP EQU ZZ2+1108 01436000 ZZ2FDSDP EQU ZZ2+1104 01437000 ZZ2APDRP EQU ZZ2+1100 01438000 ZZ2ADSDP EQU ZZ2+1096 01439000 ZZ2ENQ0P EQU ZZ2+1092 01440000 @NM00046 EQU ZZ2+1080 01441000 ZZ2MSG0P EQU ZZ2+1076 01442000 ZZ2FT25P EQU ZZ2+1072 01443000 ZZ2MSGSP EQU ZZ2+1060 01444000 ZZ2ALOCP EQU ZZ2+1056 01445000 @NM00045 EQU ZZ2+976 01446000 ZZ2TOD EQU ZZ2+968 01447000 ZZ2STGN EQU ZZ2STG+4 01448000 ZZ2STGP EQU ZZ2STG 01449000 @NM00044 EQU ZZ2+952 01450000 ZZ2SCMDE EQU ZZ2+944 01451000 ZZ2SCMDN EQU ZZ2+936 01452000 ZZ2IDENT EQU ZZ2+928 01453000 ZZ2A9999 EQU ZZ2A+656 01454000 @NM00043 EQU ZZ2A+224 01455000 @NM00042 EQU ZZ2A+220 01456000 ZZ2AQD99 EQU ZZ2AQD+60 01457000 @NM00041 EQU ZZ2AQD+56 01458000 @NM00040 EQU ZZ2AQDF 01459000 ZZ2AQDFA EQU ZZ2AQDF 01460000 ZZ2AQDIL EQU ZZ2AQD+48 01461000 ZZ2AQDIM EQU ZZ2AQD+44 01462000 ZZ2AQDT9 EQU ZZ2AQDT+34 01463000 ZZ2AQDTE EQU ZZ2AQDT+33 01464000 ZZ2AQDTD EQU ZZ2AQDT+2 01465000 @NM00039 EQU ZZ2AQDT+1 01466000 ZZ2AQDTY EQU ZZ2AQDT 01467000 ZZ2AQDT0 EQU ZZ2AQDT 01468000 ZZ2AQDLB EQU ZZ2AQD+9 01469000 ZZ2AQDOB EQU ZZ2AQD+8 01470000 ZZ2AQDLE EQU ZZ2AQD+4 01471000 ZZ2AQDOF EQU ZZ2AQD 01472000 ZZ2AQD00 EQU ZZ2AQD 01473000 ZZ2AQAS9 EQU ZZ2AQAS+16 01474000 @NM00038 EQU ZZ2AQAS+12 01475000 ZZ2AQAS2 EQU ZZ2AQAS+8 01476000 ZZ2AQAS1 EQU ZZ2AQAS+4 01477000 @NM00037 EQU ZZ2AQAS+2 01478000 ZZ2AQAST EQU ZZ2AQAS 01479000 ZZ2AQAS0 EQU ZZ2AQAS 01480000 ZZ2ADPTA EQU ZZ2ADPT 01481000 ZZ2ADPL EQU ZZ2ADP 01482000 ZZ2ADMTA EQU ZZ2ADMT 01483000 ZZ2ADML EQU ZZ2ADM 01484000 ZZ2ADDTA EQU ZZ2ADDT 01485000 ZZ2ADDL EQU ZZ2ADD 01486000 @NM00036 EQU ZZ2A+72 01487000 ZZ2APIDB EQU ZZ2APID+3 01488000 ZZ2APIDA EQU ZZ2APID 01489000 @NM00035 EQU ZZ2A+24 01490000 @NM00034 EQU ZZ2AF+5 01491000 ZZ2AFX EQU ZZ2AF+5 01492000 @NM00033 EQU ZZ2AF+3 01493000 ZZ2AFS EQU ZZ2AF+2 01494000 ZZ2AFD EQU ZZ2AF+2 01495000 ZZ2AFQ EQU ZZ2AF+2 01496000 ZZ2AF$ EQU ZZ2AF+2 01497000 @NM00032 EQU ZZ2AF+2 01498000 ZZ2AFM EQU ZZ2AF+2 01499000 @NM00031 EQU ZZ2AF+2 01500000 @NM00030 EQU ZZ2AF+1 01501000 ZZ2AFV EQU ZZ2AF+1 01502000 @NM00029 EQU ZZ2AF+1 01503000 ZZ2AFC EQU ZZ2AF+1 01504000 @NM00028 EQU ZZ2AF 01505000 ZZ2AFFS EQU ZZ2AF 01506000 ZZ2AFT EQU ZZ2AF 01507000 ZZ2AFP EQU ZZ2AF 01508000 @NM00027 EQU ZZ2A+8 01509000 ZZ2ALINE EQU ZZ2A+4 01510000 @NM00026 EQU ZZ2A+3 01511000 ZZ2ASE EQU ZZ2A+2 01512000 ZZ2ACH EQU ZZ2A 01513000 @NM00025 EQU ZZ2+264 01514000 @NM00024 EQU ZZ2+263 01515000 ZZ2PRTT0 EQU ZZ2PRTT 01516000 ZZ2PRTO EQU ZZ2PRT+2 01517000 ZZ2PRTL EQU ZZ2PRT 01518000 @NM00023 EQU ZZ2AMD+56 01519000 ZZ2AMDXP EQU ZZ2AMD+52 01520000 ZZ2AMDD EQU ZZ2AMD+48 01521000 ZZ2AMDL EQU ZZ2AMD+44 01522000 ZZ2AMDU EQU ZZ2AMD+28 01523000 ZZ2AMDF EQU ZZ2AMD+24 01524000 ZZ2AMDS EQU ZZ2AMD+20 01525000 ZZ2AMDC EQU ZZ2AMD+16 01526000 ZZ2AMDP EQU ZZ2AMD+12 01527000 ZZ2AMDB EQU ZZ2AMD+8 01528000 @NM00022 EQU @NM00021 01529000 ZZ2AMD2 EQU @NM00021 01530000 ZZ2AMD1 EQU @NM00021 01531000 ZZ2AMD0 EQU ZZ2AMD+6 01532000 ZZ2AMDA EQU ZZ2AMD+4 01533000 ZZ2AMDT EQU ZZ2AMD 01534000 ZZ199999 EQU ZZ1+3072 01535000 @NM00020 EQU ZZ1+2160 01536000 ZZ1TRTAS EQU ZZ1+1904 01537000 ZZ1TRUPC EQU ZZ1+1648 01538000 ZZ1TRCTX EQU ZZ1+1392 01539000 ZZ1NASID EQU ZZ1N+274 01540000 ZZ1NSTRL EQU ZZ1N+272 01541000 ZZ1NOFF EQU ZZ1N+268 01542000 ZZ1NBDY EQU ZZ1N+264 01543000 ZZ1NADE EQU ZZ1N+260 01544000 ZZ1NADB EQU ZZ1N+256 01545000 ZZ1NSTR EQU ZZ1N 01546000 @NM00019 EQU ZZ1+1080 01547000 ZZ1TREBC EQU ZZ1+824 01548000 ZZ1TRHEX EQU ZZ1+568 01549000 @NM00018 EQU ZZ1+377 01550000 ZZ1USTAE EQU ZZ1+376 01551000 @NM00017 EQU ZZ1F+3 01552000 @NM00016 EQU ZZ1F+2 01553000 ZZ1FPRNT EQU ZZ1F+2 01554000 @NM00015 EQU ZZ1F+1 01555000 ZZ1FTCAM EQU ZZ1F+1 01556000 ZZ1FACCM EQU ZZ1F+1 01557000 @NM00014 EQU ZZ1F 01558000 ZZ1FM EQU ZZ1F 01559000 ZZ1FX EQU ZZ1F 01560000 ZZ1FU EQU ZZ1F 01561000 ZZ1EVEC EQU ZZ1EVE+1 01562000 @NM00013 EQU ZZ1EVE 01563000 ZZ1EVEP EQU ZZ1EVE 01564000 ZZ1EVEW EQU ZZ1EVE 01565000 ZZ1ACMP EQU ZZ1ATTN 01566000 @NM00012 EQU ZZ1+144 01567000 ZZ1FPP EQU ZZ1+140 01568000 ZZ1ZZ6P EQU ZZ1+136 01569000 @NM00011 EQU ZZ1+84 01570000 ZZ1PLINE EQU ZZ1+80 01571000 ZZ1PGSZ EQU ZZ1+76 01572000 ZZ1PCNT EQU ZZ1+72 01573000 @NM00010 EQU ZZ1+68 01574000 ZZ1TPAGE EQU ZZ1+64 01575000 ZZ1TLINE EQU ZZ1+60 01576000 @NM00009 EQU ZZ1+52 01577000 ZZ1DMCBP EQU ZZ1+48 01578000 ZZ1DSDP EQU ZZ1+44 01579000 ZZ1PDRP EQU ZZ1+40 01580000 ZZ1ZZ2P EQU ZZ1+36 01581000 ZZ1327WP EQU ZZ1+32 01582000 ZZ1ACBP EQU ZZ1+28 01583000 @NM00008 EQU ZZ1+24 01584000 ZZ1PDCBP EQU ZZ1+20 01585000 ZZ1BLRBL EQU ZZ1+16 01586000 @NM00007 EQU ZZ1+12 01587000 ZZ1PNULL EQU ZZ1+8 01588000 ZZ1NULL EQU ZZ1+4 01589000 ZZ1IDE EQU ZZ1 01590000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01591000 @RT00258 EQU EXIT 01592000 @RF00265 EQU @RC00262 01593000 @ENDDATA EQU * 01594000 END BLSRRACR,(C'PLS2051',0701,78172) 01595000