XPCC TITLE 'BLSVPCCA--SCAN PHYSICAL CONFIGURATION COMMUNICATION ARE*00001000 EA (PCCA)' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPLK */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSVPCCA CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSVPCCA 78.069' 0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0002 00013000 BALR @12,0 0002 00014000 @PSTART DS 0H 0002 00015000 USING @PSTART,@12 0002 00016000 L @00,@SIZDATD 0002 00017000 BLSUALLS R,LV=(0) 00018000 LR @11,@01 0002 00019000 LA @10,4095(,@11) 0002 00020000 USING @DATD,@11 0002 00021000 USING @DATD+4095,@10 0002 00022000 ST @13,@SA00001+4 0002 00023000 LM @00,@01,20(@13) 0002 00024000 ST @11,8(,@13) 0002 00025000 LR @13,@11 0002 00026000 MVC @PC00001(12),0(@01) 0002 00027000 */********************************************************************/ 00028000 */* */ 00029000 */* BLSVPCCA--SCAN PHYSICAL CONFIGURATION COMMUNICATION AREA (PCCA) */ 00030000 */* */ 00031000 */********************************************************************/ 00032000 * 0154 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* BLSV12--SCAN EXIT SETUP AND IMAGE RETRIEVAL */ 00036000 * /* */ 00037000 * /*****************************************************************/ 00038000 * 0154 00039000 * DO; /* BLSV12 */ 00040000 * 0154 00041000 * /***************************************************************/ 00042000 * /* */ 00043000 * /* BLSV1--SCAN EXIT SETUP */ 00044000 * /* */ 00045000 * /***************************************************************/ 00046000 * 0155 00047000 * DO; /* BLSV1 */ 00048000 * RESPECIFY 0156 00049000 * (RF) RESTRICTED; /* RETURN CODES */ 00050000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00051000 SLR RETC,RETC 0157 00052000 * SABAPTR=ADDR(SAPA); /* ->SABA (ALIAS FOR SAPA */ 00053000 L SABAPTR,@PC00001+4 0158 00054000 * IF SABASF1=ZZZ1 THEN /* SCAN STARTED */ 00055000 TM SABASF1(SABAPTR),B'10000000' 0159 00056000 BNO @RF00159 0159 00057000 * IF /* IMAGE RETRIEVAL REQUIRED */ 00058000 * SABASF9=ZZZ0| /* SCAN NOT COMPLETE */ 00059000 * (SABASFS=ZZZ1&ZZ2ASE<=SABASRC) THEN/* IMAGE USED FOR 0160 00060000 * MESSAGES */ 00061000 TM SABASF9(SABAPTR),B'01000000' 0160 00062000 BZ @RT00160 0160 00063000 TM SABASFS(SABAPTR),B'00010000' 0160 00064000 BNO @RF00160 0160 00065000 CLC ZZ2ASE(1,R9),SABASRC(SABAPTR) 0160 00066000 BNH @RT00160 0160 00067000 * GO TO LBLSCAN2; /* IMAGE RETRIEVAL */ 00068000 * ELSE /* NO IMAGE RETRIEVAL */ 00069000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00070000 B LBLSCAN8 0162 00071000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00072000 @RF00159 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0163 00073000 * SABACL=(LENGTH(ERRF)/8)*DIM(ERRF);/* LENGTH OF SABACT */ 00074000 * 0164 00075000 MVC SABACL(2,SABAPTR),@CH00587 0164 00076000 * /*************************************************************/ 00077000 * /* */ 00078000 * /* CLEAR ALL ERROR FLAGS */ 00079000 * /* */ 00080000 * /*************************************************************/ 00081000 * 0165 00082000 * DO ERRFNDX=1 TO DIM(ERRF); /* CLEAR ALL ERROR FLAGS */ 00083000 LA ERRFNDX,1 0165 00084000 @DL00165 DS 0H 0166 00085000 * ERRF(ERRFNDX)='00'X; /* ONE BYTE AT A TIME */ 00086000 LR @14,SABAPTR 0166 00087000 ALR @14,ERRFNDX 0166 00088000 MVI ERRF-1(@14),X'00' 0166 00089000 * END; /* CLEAR ALL ERROR FLAGS */ 00090000 AL ERRFNDX,@CF00051 0167 00091000 C ERRFNDX,@CF00587 0167 00092000 BNH @DL00165 0167 00093000 * IF SABALAD//8^=0 THEN /* UNALIGNED */ 00094000 * 0168 00095000 L @14,SABALAD(,SABAPTR) 0168 00096000 N @14,@CF00442 0168 00097000 LTR @14,@14 0168 00098000 BZ @RF00168 0168 00099000 * /***********************************************************/ 00100000 * /* */ 00101000 * /* UNALIGNED */ 00102000 * /* */ 00103000 * /***********************************************************/ 00104000 * 0169 00105000 * DO; /* UNALIGNED */ 00106000 * ERRFB(TST072)=ZZZ1; /* UNALIGNED STORAGE ERROR */ 00107000 OI ERRFB(SABAPTR),B'10000000' 0170 00108000 * SABASRC=ZZZFLAGS; /* SCAN RETURN CODE */ 00109000 MVI SABASRC(SABAPTR),X'0C' 0171 00110000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00111000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00112000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00113000 OI SABASF1(SABAPTR),B'11100000' 0174 00114000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00115000 B LBLSCAN8 0175 00116000 * END; /* UNALIGNED */ 00117000 * END; /* BLSV1 */ 00118000 * 0177 00119000 @RF00168 DS 0H 0178 00120000 * /***************************************************************/ 00121000 * /* */ 00122000 * /* BLSV2--RETRIEVE IMAGE OF BLOCK TO BE SCANNED */ 00123000 * /* */ 00124000 * /***************************************************************/ 00125000 * 0178 00126000 *LBLSCAN2: 0178 00127000 * DO; /* BLSV2 */ 00128000 LBLSCAN2 DS 0H 0179 00129000 * ESAU(1:LENGTH(ESCO))=ESCO; /* INITIALIZE ES RECORD */ 00130000 L @14,ZZ2ESSYP(,R9) 0179 00131000 MVC ESAU(182),ESCO(@14) 0179 00132000 * ESAUAS=SABAAS; /* ADDRESS SPACE */ 00133000 MVC ESAUAS(16),SABAAS(SABAPTR) 0180 00134000 * ESAULAD=SABALAD; /* LOGICAL ADDRESS */ 00135000 L @14,SABALAD(,SABAPTR) 0181 00136000 ST @14,ESAULAD 0181 00137000 * ESAUDT=SABADT; /* DATA TYPE */ 00138000 MVC ESAUDT(34),SABADT(SABAPTR) 0182 00139000 * ESAUDLE=LENGTH(BUF); /* LENGTH */ 00140000 MVC ESAUDLE(4),@CF01693 0183 00141000 * CALL BLSRACCQ(ZZ2,ESAU,BUF);/* RETRIEVE STORAGE */ 00142000 ST R9,@AL00001 0184 00143000 LA @14,ESAU 0184 00144000 ST @14,@AL00001+4 0184 00145000 LA @14,BUF 0184 00146000 ST @14,@AL00001+8 0184 00147000 L @08,ZZ2RVTP(,R9) 0184 00148000 L @15,RVTACCQP(,@08) 0184 00149000 LA @01,@AL00001 0184 00150000 BALR @14,@15 0184 00151000 * IF ESAUFSM=ZZZ1 THEN /* STORAGE NOT AVAILABLE */ 00152000 * 0185 00153000 TM ESAUFSM,B'00100000' 0185 00154000 BNO @RF00185 0185 00155000 * /***********************************************************/ 00156000 * /* */ 00157000 * /* STORAGE NOT AVAILABLE */ 00158000 * /* */ 00159000 * /***********************************************************/ 00160000 * 0186 00161000 * DO; /* STORAGE NOT AVAILABLE */ 00162000 * IF ZZ1EVEP=ZZZ1 THEN /* EARLY TERMINATION REQUESTED */ 00163000 * 0187 00164000 L @14,ZZ2ZZ1P(,R9) 0187 00165000 TM ZZ1EVEP(@14),B'01000000' 0187 00166000 BNO @RF00187 0187 00167000 * /*******************************************************/ 00168000 * /* */ 00169000 * /* EARLY TERMINATION REQUESTED */ 00170000 * /* */ 00171000 * /*******************************************************/ 00172000 * 0188 00173000 * DO; /* EARLY TERMINATION REQUESTED */ 00174000 * RETC=ZZZFLAGS; /* RETURN CODE */ 00175000 LA RETC,12 0189 00176000 * GO TO EXIT; /* COMMON EXIT PATH */ 00177000 B EXIT 0190 00178000 * END; /* EARLY TERMINATION REQUESTED */ 00179000 * ERRFB(TST071)=ZZZ1; /* STORAGE NOT AVAILABLE */ 00180000 @RF00187 OI ERRFB+1(SABAPTR),B'10000000' 0192 00181000 * SABASRC=MAX(SABASRC,ZZZFLAGW);/* SCAN RETURN CODE */ 00182000 SLR @14,@14 0193 00183000 IC @14,SABASRC(,SABAPTR) 0193 00184000 LA @08,4 0193 00185000 CR @14,@08 0193 00186000 BNL *+6 00187000 LR @14,@08 0193 00188000 STC @14,SABASRC(,SABAPTR) 0193 00189000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00190000 * SABASF9=ZZZ1; /* SCAN COMPLETE */ 00191000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00192000 OI SABASF1(SABAPTR),B'11100000' 0196 00193000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00194000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0197 00195000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00196000 B LBLSCAN8 0198 00197000 * END; /* STORAGE NOT AVAILABLE */ 00198000 * PCCAPTR=ADDR(BUF); /* ->IMAGE */ 00199000 @RF00185 LA PCCAPTR,BUF 0200 00200000 * FVAL(1)=PCCATQEP; /* POINTER 1 */ 00201000 L @14,PCCATQEP(,PCCAPTR) 0201 00202000 ST @14,FVAL 0201 00203000 * FVAL(2)=PCCAPSAV; /* POINTER 2 */ 00204000 L @14,PCCAPSAV(,PCCAPTR) 0202 00205000 ST @14,FVAL+4 0202 00206000 * FVAL(3)=PCCAPSAR; /* POINTER 3 */ 00207000 L @14,PCCAPSAR(,PCCAPTR) 0203 00208000 ST @14,FVAL+8 0203 00209000 * IF SABASF9=ZZZ1 THEN /* SCAN COMPLETED */ 00210000 TM SABASF9(SABAPTR),B'01000000' 0204 00211000 BO @RT00204 0204 00212000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00213000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00214000 OI SABASF9(SABAPTR),B'01000000' 0206 00215000 * IF SABASF1=ZZZ1 THEN /* SCAN STARTED */ 00216000 TM SABASF1(SABAPTR),B'10000000' 0207 00217000 BO @RT00207 0207 00218000 * GO TO LBLSCAN7; /* ANALYZE LOCATOR DATA */ 00219000 * END; /* BLSV2 */ 00220000 * END; /* BLSV12 */ 00221000 * SABAF=ESAUD; /* SET STORAGE ATTRIBUTES */ 00222000 MVC SABAF(60,SABAPTR),ESAUD 0211 00223000 * DO; /* BLSVM0 MF(EXECUTE,TST073) */ 00224000 * IF PCCAPCCA^='PCCA' THEN 0213 00225000 CLC PCCAPCCA(4,PCCAPTR),@CC01666 0213 00226000 BE @RF00213 0213 00227000 * DO; /* INITIAL ANALYSIS ERROR */ 00228000 * ERRFB(TST073)=ZZZ1; 0215 00229000 OI ERRFB+2(SABAPTR),B'10000000' 0215 00230000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST073)); 0216 00231000 SLR @14,@14 0216 00232000 IC @14,SABASRC(,SABAPTR) 0216 00233000 SLR @08,@08 0216 00234000 IC @08,MSGLEVEL+2 0216 00235000 CR @14,@08 0216 00236000 BNL *+6 00237000 LR @14,@08 0216 00238000 STC @14,SABASRC(,SABAPTR) 0216 00239000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00240000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00241000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00242000 OI SABASF1(SABAPTR),B'11100000' 0219 00243000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00244000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0220 00245000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00246000 B LBLSCAN8 0221 00247000 * END; /* INITIAL ANALYSIS ERROR */ 00248000 * END; /* BLSVM0 MF(EXECUTE,TST073) */ 00249000 @RF00213 DS 0H 0224 00250000 *LBLSCAN7: /* ANALYZE LOCATOR DATA */ 00251000 * IF ZZ6DFAB='0'B THEN 0224 00252000 LBLSCAN7 L @14,ZZ2AZZ6P(,R9) 0224 00253000 TM ZZ6DFAB(@14),B'00010000' 0224 00254000 BNZ @RF00224 0224 00255000 * DO; /* BLSVM2 MF(EXECUTE,TSTPSAR) */ 00256000 * ERRFD(DIM(MSGPTR)+TSTPSAR)=ZZZ1;/* TEST COMPLETED */ 00257000 * ERRFS(DIM(MSGPTR)+TSTPSAR)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00258000 OI ERRFD+5(SABAPTR),B'01010000' 0227 00259000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00260000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0228 00261000 * END; /* BLSVM2 MF(EXECUTE,TSTPSAR) */ 00262000 * ELSE 0230 00263000 * 0230 00264000 * /***************************************************************/ 00265000 * /* */ 00266000 * /* ABSOLUTE STORAGE IN THE DUMP */ 00267000 * /* */ 00268000 * /***************************************************************/ 00269000 * 0230 00270000 * DO; /* ABSOLUTE STORAGE IN THE DUMP */ 00271000 B @RC00224 0230 00272000 @RF00224 DS 0H 0231 00273000 * ASAA=ASCO; /* ADDRESS SPACE */ 00274000 MVC ASAA(16),ASCO 0231 00275000 * ASAAT=ZZZASTA; /* ABSOLUTE STORAGE */ 00276000 MVC ASAAT(2),@CC00077 0232 00277000 * IF SABAAST^=ZZZASTCV THEN /* IF NOT VIRTUAL STORAGE */ 00278000 * 0233 00279000 CLC SABAAST(2,SABAPTR),@CC00083 0233 00280000 BE @RF00233 0233 00281000 * /***********************************************************/ 00282000 * /* */ 00283000 * /* NOT VIRTUAL STORAGE */ 00284000 * /* */ 00285000 * /***********************************************************/ 00286000 * 0234 00287000 * DO; /* NOT VIRTUAL STORAGE */ 00288000 * DO; /* BLSVM2 MF(EXECUTE,TSTTQEP) */ 00289000 * ERRFD(DIM(MSGPTR)+TSTTQEP)=ZZZ1;/* TEST COMPLETED */ 00290000 * ERRFS(DIM(MSGPTR)+TSTTQEP)=ZZZ1;/* SPECIAL TEST 0237 00291000 * PERFORMED */ 00292000 OI ERRFD+3(SABAPTR),B'01010000' 0237 00293000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00294000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0238 00295000 * END; /* BLSVM2 MF(EXECUTE,TSTTQEP) */ 00296000 * DO; /* BLSVM2 MF(EXECUTE,TSTPSAV) */ 00297000 * ERRFD(DIM(MSGPTR)+TSTPSAV)=ZZZ1;/* TEST COMPLETED */ 00298000 * ERRFS(DIM(MSGPTR)+TSTPSAV)=ZZZ1;/* SPECIAL TEST 0242 00299000 * PERFORMED */ 00300000 OI ERRFD+4(SABAPTR),B'01010000' 0242 00301000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00302000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0243 00303000 * END; /* BLSVM2 MF(EXECUTE,TSTPSAV) */ 00304000 * END; 0245 00305000 * END; 0246 00306000 * 0246 00307000 @RF00233 DS 0H 0247 00308000 * /*****************************************************************/ 00309000 * /* */ 00310000 * /* BLSV79--SCAN EXIT LOCATOR ANALYSIS, MESSAGE TRANSMISSION, AND */ 00311000 * /* EPILOG */ 00312000 * /* */ 00313000 * /*****************************************************************/ 00314000 * 0247 00315000 * DO; /* BLSV79 */ 00316000 * 0247 00317000 @RC00224 DS 0H 0248 00318000 * /***************************************************************/ 00319000 * /* */ 00320000 * /* BLSV7--ANALYZE LOCATOR DATA */ 00321000 * /* */ 00322000 * /***************************************************************/ 00323000 * 0248 00324000 * DO; /* BLSV7 */ 00325000 * ERRFNDX=DIM(MSGPTR)+1; /* ERROR INDEX */ 00326000 LA ERRFNDX,4 0249 00327000 * SAAUAS=ZZ6DQA; /* ADDRESS SPACE */ 00328000 L @14,ZZ2AZZ6P(,R9) 0250 00329000 MVC SAAUAS(16),ZZ6DQA(@14) 0250 00330000 * SAAUDTY=ZZZDTYM; /* DATA TYPE CODE */ 00331000 MVI SAAUDTY,C'M' 0251 00332000 * SAAUDTD=ZZZSYM40; /* RESET DATA NAME */ 00333000 MVC SAAUDTD(31),@CC00183 0252 00334000 * SAAUDTD(1:LENGTH('TQE'))='TQE';/* DATA NAME */ 00335000 MVC SAAUDTD(3),@CC01668 0253 00336000 * CALL BLSRPCK2; /* POINTER TEST 1 */ 00337000 BAL @14,BLSRPCK2 0254 00338000 * SAAUDTD(1:LENGTH('PSA'))='PSA';/* DATA NAME */ 00339000 MVC SAAUDTD(3),@CC01670 0255 00340000 * CALL BLSRPCK2; /* POINTER TEST 2 */ 00341000 BAL @14,BLSRPCK2 0256 00342000 * SAAUAS=ASAA; /* ADDRESS SPACE */ 00343000 MVC SAAUAS(16),ASAA 0257 00344000 * CALL BLSRPCK2; /* POINTER TEST 3 */ 00345000 BAL @14,BLSRPCK2 0258 00346000 * END; /* BLSV7 */ 00347000 * 0259 00348000 * /***************************************************************/ 00349000 * /* */ 00350000 * /* BLSV8--TRANSMIT SCAN MESSAGE(S) */ 00351000 * /* */ 00352000 * /***************************************************************/ 00353000 * 0260 00354000 *LBLSCAN8: 0260 00355000 * DO; /* BLSV8 */ 00356000 LBLSCAN8 DS 0H 0261 00357000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00358000 OI SABASF1(SABAPTR),B'10000000' 0261 00359000 * IF SABASRC=ZZZFLAGI|SABASRC=ZZ2ASE THEN 0266 00388000 LR @14,SABAPTR 0266 00389000 ALR @14,ERRFNDX 0266 00390000 TM ERRFB-1(@14),B'10000000' 0266 00391000 BNO @RF00266 0266 00392000 SLR @14,@14 0266 00393000 IC @14,MSGLEVEL-1(ERRFNDX) 0266 00394000 SLR @08,@08 0266 00395000 IC @08,ZZ2ASE(,R9) 0266 00396000 CR @14,@08 0266 00397000 BL @RF00266 0266 00398000 * CALL BLSUPUTV(ZZ2,MSGPTR(ERRFNDX)->VRBA); 0267 00399000 ST R9,@AL00001 0267 00400000 LR @14,ERRFNDX 0267 00401000 SLA @14,2 0267 00402000 L @14,MSGPTR-4(@14) 0267 00403000 ST @14,@AL00001+4 0267 00404000 L @08,ZZ2BVTP(,R9) 0267 00405000 L @15,BVTPUTVP(,@08) 0267 00406000 LA @01,@AL00001 0267 00407000 BALR @14,@15 0267 00408000 * END; /* PROCESS UNIQUE MESSAGES */ 00409000 @RF00266 AL ERRFNDX,@CF00051 0268 00410000 C ERRFNDX,@CF00161 0268 00411000 BNH @DL00265 0268 00412000 * IF ZZ2ASE<=8&SABASFS=ZZZ1 THEN 0269 00413000 * 0269 00414000 CLI ZZ2ASE(R9),8 0269 00415000 BH @RF00269 0269 00416000 TM SABASFS(SABAPTR),B'00010000' 0269 00417000 BNO @RF00269 0269 00418000 * /***********************************************************/ 00419000 * /* */ 00420000 * /* DIAGNOSE DAMAGED POINTER(S) */ 00421000 * /* */ 00422000 * /***********************************************************/ 00423000 * 0270 00424000 * DO ERRFNDX=DIM(MSGPTR)+1 TO DIM(MSGPTR)+DIM(FVAL); 0270 00425000 LA ERRFNDX,4 0270 00426000 @DL00270 DS 0H 0271 00427000 * IF ERRFB(ERRFNDX)=ZZZ1 THEN/* DAMAGED POINTER */ 00428000 * 0271 00429000 LR @14,SABAPTR 0271 00430000 ALR @14,ERRFNDX 0271 00431000 TM ERRFB-1(@14),B'10000000' 0271 00432000 BNO @RF00271 0271 00433000 * /*******************************************************/ 00434000 * /* */ 00435000 * /* DAMAGED POINTER */ 00436000 * /* */ 00437000 * /*******************************************************/ 00438000 * 0272 00439000 * DO; /* DAMAGED POINTER */ 00440000 * FNAMENDX=ERRFNDX-DIM(MSGPTR);/* FNAME/FVAL INDEX */ 00441000 LR FNAMENDX,ERRFNDX 0273 00442000 SL FNAMENDX,@CF00161 0273 00443000 * MV99B=MV99S; /* MESSAGE MV99 LITERAL TEXT */ 00444000 MVC MV99B(60),MV99S 0274 00445000 * MV99BTD=FNAME(FNAMENDX);/* NAME OF DAMAGED POINTER */ 00446000 LR @14,FNAMENDX 0275 00447000 SLA @14,3 0275 00448000 LA @08,FNAME-8(@14) 0275 00449000 MVC MV99BTD(8),0(@08) 0275 00450000 * DO; /* BLRCNVPC(FVAL(FNAMENDX)) FROM( 00451000 * POINTER)TO(CHARACTER)SET(MV99B 00452000 * TF)REMARK(CONTENTS OF DAMAGED 00453000 * POINTER)TR(ZZ1TRHEX) */ 00454000 * 0276 00455000 * /***************************************************/ 00456000 * /* */ 00457000 * /* CONTENTS OF DAMAGED POINTER */ 00458000 * /* */ 00459000 * /***************************************************/ 00460000 * 0277 00461000 * PTRPTR=FVAL(FNAMENDX);/* SOURCE TO BIT/POINTER 0277 00462000 * INTERMEDIATE */ 00463000 LR @14,FNAMENDX 0277 00464000 SLA @14,2 0277 00465000 L @14,FVAL-4(@14) 0277 00466000 ST @14,PTRPTR 0277 00467000 * UNPK(MV99BTF(1:LENGTH(MV99BTF)-1),PTRBIT);/* 0278 00468000 * BIT=>ZONED HEXADECIMAL */ 00469000 UNPK MV99BTF(7),PTRBIT(4) 0278 00470000 * MV99BTF(LENGTH(MV99BTF):LENGTH(MV99BTF))=PTRBIT(25:32 00471000 * ); /* FINAL ZONED HEXADECIMAL DIGIT */ 00472000 MVC MV99BTF+7(1),PTRBIT+3 0279 00473000 * TR(MV99BTF,ZZ1TRHEX);/* ZONED HEXADECIMAL=>EBCDIC */ 00474000 L @14,ZZ2ZZ1P(,R9) 0280 00475000 TR MV99BTF(8),ZZ1TRHEX(@14) 0280 00476000 * END; /* BLRCNVPC(FVAL(FNAMENDX)) FROM( 00477000 * POINTER)TO(CHARACTER)SET(MV99B 00478000 * TF)REMARK(CONTENTS OF DAMAGED 00479000 * POINTER)TR(ZZ1TRHEX) */ 00480000 * CALL BLSUMPKN(ZZ2,MV99B,LENGTH(MV99BTA)+LENGTH(MV99BTB) 00481000 * ); /* COMPRESS MESSAGE MV99 */ 00482000 ST R9,@AL00001 0282 00483000 LA @14,MV99B 0282 00484000 ST @14,@AL00001+4 0282 00485000 LA @14,@CF00037 0282 00486000 ST @14,@AL00001+8 0282 00487000 L @08,ZZ2BVTP(,R9) 0282 00488000 L @15,BVTMPKNP(,@08) 0282 00489000 LA @01,@AL00001 0282 00490000 BALR @14,@15 0282 00491000 * CALL BLSUPUTV(ZZ2,MV99B);/* DISPLAY MESSAGE MV99 */ 00492000 ST R9,@AL00001 0283 00493000 LA @14,MV99B 0283 00494000 ST @14,@AL00001+4 0283 00495000 L @08,ZZ2BVTP(,R9) 0283 00496000 L @15,BVTPUTVP(,@08) 0283 00497000 LA @01,@AL00001 0283 00498000 BALR @14,@15 0283 00499000 * END; /* DAMAGED POINTER */ 00500000 * END; /* DIAGNOSE DAMAGED POINTERS */ 00501000 @RF00271 AL ERRFNDX,@CF00051 0285 00502000 C ERRFNDX,@CF00587 0285 00503000 BNH @DL00270 0285 00504000 * END; /* BLSV8 */ 00505000 * 0286 00506000 @RF00269 DS 0H 0287 00507000 * /***************************************************************/ 00508000 * /* */ 00509000 * /* BLSV9--SCAN EPILOG */ 00510000 * /* */ 00511000 * /***************************************************************/ 00512000 * 0287 00513000 *EXIT: 0287 00514000 * RETURN CODE(RETC); 0287 00515000 EXIT L @13,4(,@13) 0287 00516000 L @00,@SIZDATD 0287 00517000 LR @01,@11 0287 00518000 BLSUFRES R,LV=(0),A=(1) 00519000 LR @15,@05 0287 00520000 L @14,12(,@13) 0287 00521000 LM @00,@12,20(@13) 0287 00522000 BR @14 0287 00523000 * END; /* BLSV79 */ 00524000 EJECT 00525000 * 0289 00526000 */*------------------------------------------------------------------*/ 00527000 */* BLSRPCK2--EVALUATE AN OPTIONAL LOCATOR */ 00528000 */*------------------------------------------------------------------*/ 00529000 * 0289 00530000 *BLSRPCK2: /* EVALUATE AN OPTIONAL LOCATOR */ 00531000 * PROCEDURE; 0289 00532000 BLSRPCK2 STM @14,@03,@SA00002 0289 00533000 STM @05,@12,@SA00002+24 0289 00534000 * DECLARE 0290 00535000 * 1 PCHK POINTER DEFINED(SAAULAD),/* LOCATOR VALIDATION DATA */ 00536000 * 2 PCHK24IG BIT(8), /* IGNORED IN 24-BIT ADDRESS */ 00537000 * 2 PCHK24 POINTER(24); /* 24-BIT INTERPRETATION */ 00538000 * ERLF=ERRF(ERRFNDX); /* ERROR FLAGS */ 00539000 LR @14,SABAPTR 0291 00540000 ALR @14,ERRFNDX 0291 00541000 MVC ERLF(1),ERRF-1(@14) 0291 00542000 * IF ERLFD=ZZZ1 THEN /* LOCATOR TEST COMPLETE */ 00543000 TM ERLFD,B'01000000' 0292 00544000 BO @RT00292 0292 00545000 * GO TO PCHKEXIT; /* COMMON EXIT PATH */ 00546000 * SAAULAD=FVAL(ERRFNDX-DIM(MSGPTR));/* INSERT VALUE */ 00547000 LR @14,ERRFNDX 0294 00548000 SLA @14,2 0294 00549000 L @14,FVAL-16(@14) 0294 00550000 ST @14,SAAULAD 0294 00551000 * IF PCHK24=0 THEN /* NULL LOCATOR */ 00552000 L @14,PCHK24-1 0295 00553000 LA @14,0(,@14) 0295 00554000 LTR @14,@14 0295 00555000 BNZ @RF00295 0295 00556000 * ERLFN=ZZZ1; /* NULL LOCATOR */ 00557000 OI ERLFN,B'00100000' 0296 00558000 * ELSE /* LOCATOR NOT NULL */ 00559000 * 0297 00560000 * /***************************************************************/ 00561000 * /* */ 00562000 * /* LOCATOR NOT NULL */ 00563000 * /* */ 00564000 * /***************************************************************/ 00565000 * 0297 00566000 * DO; /* LOCATOR NOT NULL */ 00567000 B @RC00295 0297 00568000 @RF00295 DS 0H 0298 00569000 * PCHK24IG='00'X; /* ELIMINATE EXTRANEOUS BITS */ 00570000 MVI PCHK24IG,X'00' 0298 00571000 * CALL BLSRSAG(ZZ2,SAAU,SABA);/* PROCESS THE SA RECORD */ 00572000 ST R9,@AL00001 0299 00573000 LA @14,SAAU 0299 00574000 ST @14,@AL00001+4 0299 00575000 ST SABAPTR,@AL00001+8 0299 00576000 L @08,ZZ2RVTP(,R9) 0299 00577000 L @15,RVTRSAGP(,@08) 0299 00578000 LA @01,@AL00001 0299 00579000 BALR @14,@15 0299 00580000 * IF SAAUSF1=ZZZ0 THEN /* SCAN STARTED */ 00581000 * 0300 00582000 TM SAAUSF1,B'10000000' 0300 00583000 BNZ @RF00300 0300 00584000 * /***********************************************************/ 00585000 * /* */ 00586000 * /* LOCATOR TEST INCOMPLETE */ 00587000 * /* */ 00588000 * /***********************************************************/ 00589000 * 0301 00590000 * DO; /* LOCATOR TEST INCOMPLETE */ 00591000 * SABASF9=ZZZ0; /* SCAN NOT COMPLETE */ 00592000 NI SABASF9(SABAPTR),B'10111111' 0302 00593000 * GO TO PCHKEXIT; /* COMMON EXIT PATH */ 00594000 B PCHKEXIT 0303 00595000 * END; /* LOCATOR TEST INCOMPLETE */ 00596000 * IF SAAUSRC>ZZZFLAGE THEN /* LOCATOR ERROR */ 00597000 * 0305 00598000 @RF00300 CLI SAAUSRC,8 0305 00599000 BNH @RF00305 0305 00600000 * /***********************************************************/ 00601000 * /* */ 00602000 * /* LOCATOR ERROR */ 00603000 * /* */ 00604000 * /***********************************************************/ 00605000 * 0306 00606000 * DO; /* LOCATOR ERROR */ 00607000 * SABASRC=ZZZFLAGE; /* SCAN RETURN CODE */ 00608000 MVI SABASRC(SABAPTR),X'08' 0307 00609000 * SABASFS=ZZZ1; /* STORAGE REQUIRED FOR 0308 00610000 * MESSAGE(S) */ 00611000 OI SABASFS(SABAPTR),B'00010000' 0308 00612000 * ERLFB=ZZZ1; /* LOCATOR ERROR */ 00613000 OI ERLFB,B'10000000' 0309 00614000 * END; /* LOCATOR ERROR */ 00615000 * END; /* LOCATOR NOT NULL */ 00616000 @RF00305 DS 0H 0312 00617000 * ERLFD=ZZZ1; /* LOCATOR TEST COMPLETE */ 00618000 @RC00295 OI ERLFD,B'01000000' 0312 00619000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00620000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0313 00621000 *PCHKEXIT: /* COMMON EXIT PATH */ 00622000 * ERRF(ERRFNDX)=ERLF; /* ERROR FLAGS */ 00623000 PCHKEXIT LR @14,SABAPTR 0314 00624000 ALR @14,ERRFNDX 0314 00625000 MVC ERRF-1(1,@14),ERLF 0314 00626000 * ERRFNDX=ERRFNDX+1; /* ERROR INDEX */ 00627000 AL ERRFNDX,@CF00051 0315 00628000 * RETURN; 0316 00629000 @EL00002 DS 0H 0316 00630000 @EF00002 DS 0H 0316 00631000 @ER00002 LM @14,@03,@SA00002 0316 00632000 LM @05,@12,@SA00002+24 0316 00633000 BR @14 0316 00634000 * END BLSRPCK2; 0317 00635000 * 0317 00636000 */*BLSVPEND--SCAN EXIT */ 00637000 */*BLSRPEND--DEBUGGING MODULE */ 00638000 */*BLSUPEND--MVS IPCS MODULE */ 00639000 * 0318 00640000 * DECLARE /* DATA FOR AHB MACROS */ 00641000 * PTRBIT BIT(32) BOUNDARY(WORD),/* DATA CONVERSION WORK AREA FOR 00642000 * POINTER DATA */ 00643000 * PTRPTR POINTER DEFINED(PTRBIT);/* DATA CONVERSION WORK AREA FOR 00644000 * POINTER DATA */ 00645000 * DECLARE /* COMMON VARIABLES */ 00646000 * I256C CHAR(256) BASED, 0319 00647000 * I031F FIXED(31) BASED, 0319 00648000 * I031P PTR(31) BASED, 0319 00649000 * I015F FIXED(15) BASED, 0319 00650000 * I015P PTR(15) BASED, 0319 00651000 * I008P PTR(8) BASED, 0319 00652000 * I001C CHAR(1) BASED; 0319 00653000 * GENERATE NODEFS NOREFS DATA; 0320 00654000 * END BLSVPCCA /* BLRPEND(BLSVPCCA) */ 00655000 * 0321 00656000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00657000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00658000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00659000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00660000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00661000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00662000 */*%INCLUDE SYSLIB (IKJECT ) */ 00663000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00664000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00665000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00666000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00667000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00668000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 00669000 * 0321 00670000 * ; 0321 00671000 @EL00001 L @13,4(,@13) 0321 00672000 @EF00001 L @00,@SIZDATD 0321 00673000 LR @01,@11 0321 00674000 BLSUFRES R,LV=(0),A=(1) 00675000 @ER00001 LM @14,@12,12(@13) 0321 00676000 BR @14 0321 00677000 @DATA DS 0H 00678000 @DATD DSECT 00679000 DS 0F 00680000 @SA00001 DS 18F 00681000 @PC00001 DS 3F 00682000 @SA00002 DS 14F 00683000 @AL00001 DS 3A 00684000 BLSVPCCA CSECT 00685000 DS 0F 00686000 @CF00051 DC F'1' 00687000 @CF00161 DC F'3' 00688000 @CF00587 DC F'6' 00689000 @CH00587 EQU @CF00587+2 00690000 @CF00442 DC F'7' 00691000 @CF00037 DC F'12' 00692000 @CF01693 DC F'584' 00693000 @DATD DSECT 00694000 DS 0D 00695000 ESAU DS CL694 00696000 ORG ESAU 00697000 ESAURID DS CL2 00698000 @NM00031 DS BL6 00699000 @NM00032 DS CL8 00700000 @NM00033 DS BL8 00701000 ESAURDX DS FL4 00702000 ESAUSYM DS CL31 00703000 ESAUELK DS 0C 00704000 ESAURV1 DS CL1 00705000 ESAUAS DS CL16 00706000 ORG ESAUAS 00707000 ESAUAS0 DS 0C 00708000 ESAUAST DS CL2 00709000 @NM00034 DS BL2 00710000 ESAUAS1 DS FL4 00711000 ESAUAS2 DS FL4 00712000 @NM00035 DS BL4 00713000 ESAUAS9 DS 0C 00714000 ORG ESAU+76 00715000 ESAULAD DS AL4 00716000 ESAUD DS CL60 00717000 ORG ESAUD 00718000 ESAUD00 DS 0C 00719000 ESAUDOF DS FL4 00720000 ESAUDLE DS FL4 00721000 ESAUDOB DS FL1 00722000 ESAUDLB DS FL1 00723000 ESAUDT DS CL34 00724000 ORG ESAUDT 00725000 ESAUDT0 DS 0C 00726000 ESAUDTY DS CL1 00727000 @NM00036 DS BL1 00728000 ESAUDTD DS CL31 00729000 ESAUDTE DS CL1 00730000 ESAUDT9 DS 0C 00731000 ORG ESAUD+44 00732000 ESAUDIM DS FL4 00733000 ESAUDIL DS FL4 00734000 ESAUDF DS BL4 00735000 ORG ESAUDF 00736000 ESAUDFA DS BL1 00737000 @NM00037 EQU ESAUDF+0 00738000 ORG ESAUD+56 00739000 @NM00038 DS BL4 00740000 ESAUD99 DS 0C 00741000 ORG ESAU+140 00742000 ESAUMAD DS AL4 00743000 @NM00039 DS BL16 00744000 ESAUKEY DS BL1 00745000 ESAUF DS BL3 00746000 ORG ESAUF 00747000 ESAUFS DS BL1 00748000 ORG ESAUFS 00749000 ESAUFSC DS BL1 00750000 ESAUFS2 EQU ESAUFS+0 00751000 ESAUFSM EQU ESAUFS+0 00752000 ESAUFSA EQU ESAUFS+0 00753000 ESAUFSP EQU ESAUFS+0 00754000 ESAUFSR EQU ESAUFS+0 00755000 ESAUFSX EQU ESAUFS+0 00756000 ESAUFSS EQU ESAUFS+0 00757000 ORG ESAUF+1 00758000 ESAUFC DS BL1 00759000 ORG ESAUFC 00760000 ESAUFCD DS BL1 00761000 @NM00040 EQU ESAUFC+0 00762000 ORG ESAUF+2 00763000 @NM00041 DS BL1 00764000 ORG ESAU+164 00765000 ESAUABS DS FL4 00766000 @NM00042 DS BL12 00767000 ESAUR DS CL514 00768000 ORG ESAUR 00769000 ESAURL DS FL2 00770000 ESAURT DS CL512 00771000 ORG ESAURT 00772000 ESAURT1 DS CL512 00773000 ORG ESAU+694 00774000 ESAU999 DS 0C 00775000 ORG ESAU+694 00776000 DS CL2 00777000 ASAA DS CL16 00778000 ORG ASAA 00779000 ASAA0 DS 0C 00780000 ASAAT DS CL2 00781000 @NM00135 DS BL2 00782000 ASAA1 DS FL4 00783000 ASAA2 DS FL4 00784000 @NM00136 DS BL4 00785000 ASAA9 DS 0C 00786000 ORG ASAA+16 00787000 SAAU DS CL3072 00788000 ORG SAAU 00789000 SAAURID DS CL2 00790000 @NM00140 DS BL6 00791000 SAAURDX DS FL4 00792000 SAAUAS DS CL16 00793000 ORG SAAUAS 00794000 SAAUAS0 DS 0C 00795000 SAAUAST DS CL2 00796000 @NM00141 DS BL2 00797000 SAAUAS1 DS FL4 00798000 SAAUAS2 DS FL4 00799000 @NM00142 DS BL4 00800000 SAAUAS9 DS 0C 00801000 ORG SAAU+28 00802000 SAAULAD DS AL4 00803000 SAAUDT DS CL34 00804000 ORG SAAUDT 00805000 SAAUDT0 DS 0C 00806000 SAAUDTY DS CL1 00807000 @NM00143 DS BL1 00808000 SAAUDTD DS CL31 00809000 SAAUDTE DS CL1 00810000 SAAUDT9 DS 0C 00811000 ORG SAAU+66 00812000 SAAUELK DS 0C 00813000 @NM00144 DS BL2 00814000 SAAUF DS CL60 00815000 ORG SAAUF 00816000 SAAUF00 DS 0C 00817000 SAAUFOF DS FL4 00818000 SAAUFLE DS FL4 00819000 SAAUFOB DS FL1 00820000 SAAUFLB DS FL1 00821000 SAAUFT DS CL34 00822000 ORG SAAUFT 00823000 SAAUFT0 DS 0C 00824000 SAAUFTY DS CL1 00825000 @NM00145 DS BL1 00826000 SAAUFTD DS CL31 00827000 SAAUFTE DS CL1 00828000 SAAUFT9 DS 0C 00829000 ORG SAAUF+44 00830000 SAAUFIM DS FL4 00831000 SAAUFIL DS FL4 00832000 SAAUFF DS BL4 00833000 ORG SAAUFF 00834000 SAAUFFA DS BL1 00835000 @NM00146 EQU SAAUFF+0 00836000 ORG SAAUF+56 00837000 @NM00147 DS BL4 00838000 SAAUF99 DS 0C 00839000 ORG SAAU+128 00840000 SAAUSF DS BL8 00841000 ORG SAAUSF 00842000 SAAUSF1 DS BL1 00843000 SAAUSF9 EQU SAAUSF+0 00844000 SAAUSFI EQU SAAUSF+0 00845000 SAAUSFS EQU SAAUSF+0 00846000 @NM00148 EQU SAAUSF+0 00847000 ORG SAAU+136 00848000 SAAUGMT DS BL8 00849000 SAAUPGV DS CL8 00850000 SAAUSRC DS FL1 00851000 @NM00149 DS 101BL1 00852000 SAAUC DS CL2818 00853000 ORG SAAUC 00854000 SAAUCL DS FL2 00855000 SAAUCT DS CL2816 00856000 ORG SAAUCT 00857000 SAAUCT1 DS CL2816 00858000 ORG SAAU+3072 00859000 SAAU999 DS 0C 00860000 ORG SAAU+3072 00861000 MV99B DS CL60 00862000 ORG MV99B 00863000 MV99BL DS FL2 00864000 @NM00151 DS BL2 00865000 MV99BT DS CL56 00866000 ORG MV99BT 00867000 MV99BTA DS CL9 00868000 MV99BTB DS CL3 00869000 MV99BTC DS CL8 00870000 MV99BTD DS CL8 00871000 MV99BTE DS CL1 00872000 MV99BTF DS CL8 00873000 MV99BTG DS CL19 00874000 ORG MV99B+60 00875000 ERLF DS BL1 00876000 ORG ERLF 00877000 ERLFB DS BL1 00878000 ERLFD EQU ERLF+0 00879000 ERLFN EQU ERLF+0 00880000 ERLFS EQU ERLF+0 00881000 @NM00153 EQU ERLF+0 00882000 ORG ERLF+1 00883000 DS CL3 00884000 BUF DS CL584 00885000 PTRBIT DS BL4 00886000 FVAL DS 3A 00887000 BLSVPCCA CSECT 00888000 DS 0F 00889000 @SIZDATD DC AL1(0) 00890000 DC AL3(@ENDDATD-@DATD) 00891000 DS 0D 00892000 @CC00183 DC C' ' 00893000 @CC01666 DC C'PCCA' 00894000 @CC01668 DC C'TQE' 00895000 @CC01670 DC C'PSA' 00896000 @CC00077 DC C'A ' 00897000 @CC00083 DC C'CV' 00898000 DS CL1 00899000 MV01 DS CL47 00900000 ORG MV01 00901000 MV01L DC AL2(47) 00902000 @NM00056 DC X'0000' 00903000 MV01T DS CL43 00904000 ORG MV01T 00905000 MV01TA DC CL9'BLS22072I' 00906000 MV01TB DC CL3' ' 00907000 MV01TC DC CL31'PCCA NOT ON DOUBLEWORD BOUNDARY' 00908000 ORG MV01+47 00909000 DS CL1 00910000 MV02 DS CL40 00911000 ORG MV02 00912000 MV02L DC AL2(40) 00913000 @NM00057 DC X'0000' 00914000 MV02T DS CL36 00915000 ORG MV02T 00916000 MV02TA DC CL9'BLS22071I' 00917000 MV02TB DC CL3' ' 00918000 MV02TC DC CL24'PCCA STORAGE NOT IN DUMP' 00919000 ORG MV02+40 00920000 DS CL2 00921000 ASCO DS CL16 00922000 ORG ASCO 00923000 ASCO0 DS 0C 00924000 ASCOT DC CL2' ' 00925000 @NM00137 DC X'0000' 00926000 ASCO1 DC A(0) 00927000 ASCO2 DC A(0) 00928000 @NM00138 DC X'00' 00929000 DC XL3'0' 00930000 ASCO9 DS 0C 00931000 ORG ASCO+16 00932000 MV03 DS CL42 00933000 ORG MV03 00934000 MV03L DC AL2(42) 00935000 @NM00139 DC X'0000' 00936000 MV03T DS CL38 00937000 ORG MV03T 00938000 MV03TA DC CL9'BLS22073I' 00939000 MV03TB DC CL3' ' 00940000 MV03TC DC CL26'PCCAPCCA NOT EQUAL C''PCCA''' 00941000 ORG MV03+42 00942000 MV99S DS CL60 00943000 ORG MV99S 00944000 MV99SL DC AL2(60) 00945000 @NM00150 DC X'0000' 00946000 MV99ST DS CL56 00947000 ORG MV99ST 00948000 MV99STA DC CL9'BLS22074I' 00949000 MV99STB DC CL3' ' 00950000 MV99STC DC CL8'LOCATOR ' 00951000 MV99STD DC CL8' ' 00952000 MV99STE DC CL1'=' 00953000 MV99STF DC CL8' ' 00954000 MV99STG DC CL19'. IT MAY BE DAMAGED' 00955000 ORG MV99S+60 00956000 FNAME DC CL8'PCCATQEP' 00957000 DC CL8'PCCAPSAV' 00958000 DC CL8'PCCAPSAR' 00959000 DS CL2 00960000 MSGPTR DC AL4(MV01) 00961000 DC AL4(MV02) 00962000 DC AL4(MV03) 00963000 MSGLEVEL DC AL1(12) 00964000 DC AL1(4) 00965000 DC AL1(12) 00966000 @DATD DSECT 00967000 SPACE 2 00968000 *********************************************************************** 00969000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00970000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00971000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00972000 *********************************************************************** 00973000 SPACE 00974000 BLSVPCCA CSECT 00975000 ORG 00976000 DS 0D 00977000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSVPCCA+19)/20+7)/8)CL8'BLSVPCCA' 00978000 @DATD DSECT 00979000 DS 0H 00980000 @DATD DSECT 00981000 SPACE 2 00982000 *********************************************************************** 00983000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00984000 *********************************************************************** 00985000 SPACE 00986000 DS 0D 00987000 @DATD DSECT 00988000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00989000 @ENDDATD EQU * 00990000 BLSVPCCA CSECT 00991000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00992000 @01 EQU 01 00993000 @02 EQU 02 00994000 @03 EQU 03 00995000 @04 EQU 04 00996000 @05 EQU 05 00997000 @06 EQU 06 00998000 @07 EQU 07 00999000 @08 EQU 08 01000000 @09 EQU 09 01001000 @10 EQU 10 01002000 @11 EQU 11 01003000 @12 EQU 12 01004000 @13 EQU 13 01005000 @14 EQU 14 01006000 @15 EQU 15 01007000 FNAMENDX EQU @06 01008000 ERRFNDX EQU @04 01009000 PCCAPTR EQU @04 01010000 RETC EQU @05 01011000 SABAPTR EQU @03 01012000 R9 EQU @09 01013000 R0 EQU @00 01014000 R1 EQU @01 01015000 R2 EQU @02 01016000 R3 EQU @03 01017000 R4 EQU @04 01018000 R5 EQU @05 01019000 RB EQU @11 01020000 RD EQU @13 01021000 RE EQU @14 01022000 RF EQU @15 01023000 RA EQU @10 01024000 RC EQU @12 01025000 R6 EQU @06 01026000 R7 EQU @07 01027000 R8 EQU @08 01028000 SABA EQU 0 01029000 SABAAS EQU SABA+12 01030000 SABAAST EQU SABAAS 01031000 SABALAD EQU SABA+28 01032000 SABADT EQU SABA+32 01033000 SABAF EQU SABA+68 01034000 SABAFT EQU SABAF+10 01035000 SABAFF EQU SABAF+52 01036000 SABASF EQU SABA+128 01037000 SABASF1 EQU SABASF 01038000 SABASF9 EQU SABASF 01039000 SABASFI EQU SABASF 01040000 SABASFS EQU SABASF 01041000 SABAGMT EQU SABA+136 01042000 SABASRC EQU SABA+152 01043000 SABAC EQU SABA+254 01044000 SABACL EQU SABAC 01045000 SABACT EQU SABAC+2 01046000 ESCO EQU 0 01047000 ESCOAS EQU ESCO+60 01048000 ESCOD EQU ESCO+80 01049000 ESCODT EQU ESCOD+10 01050000 ESCODF EQU ESCOD+52 01051000 ESCOF EQU ESCO+161 01052000 ESCOFS EQU ESCOF 01053000 ESCOFC EQU ESCOF+1 01054000 ESCOR EQU ESCO+180 01055000 ESCORT EQU ESCOR+2 01056000 VRBA EQU 0 01057000 VRBAT EQU VRBA+4 01058000 ZZ1 EQU 0 01059000 ZZ1ATTN EQU ZZ1+360 01060000 ZZ1EVE EQU ZZ1ATTN+4 01061000 ZZ1EVEP EQU ZZ1EVE 01062000 ZZ1F EQU ZZ1+368 01063000 ZZ1TRHEX EQU ZZ1+568 01064000 ZZ1N EQU ZZ1+1116 01065000 ZZ2 EQU 0 01066000 ZZ2AMD EQU ZZ2 01067000 @NM00070 EQU ZZ2AMD+7 01068000 ZZ2PRT EQU ZZ2+138 01069000 ZZ2PRTT EQU ZZ2PRT+4 01070000 ZZ2PRTT1 EQU ZZ2PRTT+1 01071000 ZZ2A EQU ZZ2+272 01072000 ZZ2ASE EQU ZZ2A+2 01073000 ZZ2AF EQU ZZ2A+16 01074000 ZZ2APID EQU ZZ2A+64 01075000 ZZ2AD EQU ZZ2A+74 01076000 ZZ2ADD EQU ZZ2AD 01077000 ZZ2ADDT EQU ZZ2ADD+2 01078000 ZZ2ADM EQU ZZ2AD+46 01079000 ZZ2ADMT EQU ZZ2ADM+2 01080000 ZZ2ADP EQU ZZ2AD+56 01081000 ZZ2ADPT EQU ZZ2ADP+2 01082000 ZZ2AZZ6P EQU ZZ2A+140 01083000 ZZ2AQAS EQU ZZ2A+144 01084000 ZZ2AQD EQU ZZ2A+160 01085000 ZZ2AQDT EQU ZZ2AQD+10 01086000 ZZ2AQDF EQU ZZ2AQD+52 01087000 ZZ2STG EQU ZZ2+960 01088000 ZZ2TOD EQU ZZ2+968 01089000 ZZ2ALLOP EQU ZZ2+992 01090000 ZZ2FREEP EQU ZZ2+996 01091000 ZZ2FF19P EQU ZZ2+1000 01092000 ZZ2FRE1P EQU ZZ2+1004 01093000 ZZ2FF18P EQU ZZ2+1008 01094000 ZZ2DYNAP EQU ZZ2+1012 01095000 ZZ2ZZ2CP EQU ZZ2+1016 01096000 ZZ2ZZ2DP EQU ZZ2+1020 01097000 ZZ2STAIP EQU ZZ2+1024 01098000 ZZ2FF02P EQU ZZ2+1028 01099000 ZZ2GETLP EQU ZZ2+1032 01100000 ZZ2PARSP EQU ZZ2+1036 01101000 ZZ2PTGTP EQU ZZ2+1040 01102000 ZZ2PUTLP EQU ZZ2+1044 01103000 ZZ2SCANP EQU ZZ2+1048 01104000 ZZ2STCKP EQU ZZ2+1052 01105000 ZZ2TRMOP EQU ZZ2+1064 01106000 ZZ2TRMVP EQU ZZ2+1068 01107000 ZZ2PUTNP EQU ZZ2+1084 01108000 ZZ2TRMNP EQU ZZ2+1088 01109000 ZZ2ZZ1P EQU ZZ2+1264 01110000 ZZ2BVTP EQU ZZ2+1280 01111000 ZZ2RVTP EQU ZZ2+1284 01112000 ZZ2CPPL EQU ZZ2+1292 01113000 ZZ2CPPLC EQU ZZ2CPPL 01114000 ZZ2ESSYP EQU ZZ2+1328 01115000 ZZ2ITR EQU ZZ2+2840 01116000 ZZ2ITRE EQU ZZ2ITR+16 01117000 ZZ2ITSE EQU ZZ2+2864 01118000 ZZ2ES EQU ZZ2+2872 01119000 ZZ2AMDX EQU ZZ2+7160 01120000 ZZ2AXO EQU ZZ2+7934 01121000 ZZ2AXOT EQU ZZ2AXO+2 01122000 CMD EQU 0 01123000 CMDT EQU CMD+4 01124000 PSCB EQU 0 01125000 PSCBATR1 EQU PSCB+16 01126000 ECT EQU 0 01127000 ECTSWS EQU ECT+28 01128000 ECTSWS2 EQU ECT+40 01129000 ECTSWS21 EQU ECTSWS2 01130000 UPT EQU 0 01131000 UPTSWS EQU UPT+12 01132000 SA EQU 0 01133000 SA1 EQU SA 01134000 SAR EQU SA+12 01135000 SAR1 EQU SAR+12 01136000 BLSUMPKN EQU 0 01137000 BLSUPUTV EQU 0 01138000 BVT EQU 0 01139000 BVTPUTLP EQU BVT+4 01140000 BVTPUTOP EQU BVT+12 01141000 BVTPUTTP EQU BVT+16 01142000 BVTPUTVP EQU BVT+20 01143000 BVTPUTAP EQU BVT+24 01144000 BVTPRTTP EQU BVT+28 01145000 BVTPRTAP EQU BVT+32 01146000 BVTPUTDP EQU BVT+36 01147000 BVTMONP EQU BVT+40 01148000 BVTMON2P EQU BVT+44 01149000 BVTVSARP EQU BVT+48 01150000 BVTVSENP EQU BVT+64 01151000 BVTVSERP EQU BVT+68 01152000 BVTVSGEP EQU BVT+72 01153000 BVTVSGUP EQU BVT+76 01154000 BVTVSPOP EQU BVT+80 01155000 BVTVSPUP EQU BVT+84 01156000 BVTMPKNP EQU BVT+104 01157000 BVTMONLP EQU BVT+108 01158000 BVTPUTCP EQU BVT+132 01159000 BVTMPK1P EQU BVT+136 01160000 BVTZZ2RP EQU BVT+140 01161000 BVTPGMRP EQU BVT+144 01162000 BVTMONAP EQU BVT+148 01163000 BVTBLDDP EQU BVT+152 01164000 BVTBLDLP EQU BVT+156 01165000 BVTPGMCP EQU BVT+160 01166000 BVTPGMDP EQU BVT+164 01167000 BVTPGMLP EQU BVT+168 01168000 BVTMONCP EQU BVT+180 01169000 BVTMONDP EQU BVT+184 01170000 BVTMONTP EQU BVT+188 01171000 BVTPARIP EQU BVT+192 01172000 BVTPARUP EQU BVT+196 01173000 BVTPRTNP EQU BVT+204 01174000 BVTVSCRP EQU BVT+208 01175000 BVTVSMRP EQU BVT+212 01176000 BVTMONXP EQU BVT+216 01177000 BVTTRMAP EQU BVT+228 01178000 ZZ6 EQU 0 01179000 ZZ6D EQU ZZ6+128 01180000 ZZ6DD EQU ZZ6D+8 01181000 ZZ6DDT EQU ZZ6DD+4 01182000 ZZ6DQA EQU ZZ6D+68 01183000 ZZ6DF EQU ZZ6D+92 01184000 ZZ6DFAB EQU ZZ6DF 01185000 ZZ6B EQU ZZ6+768 01186000 BLSRACCQ EQU 0 01187000 BLSRSAG EQU 0 01188000 BLSRSAPC EQU 0 01189000 RVT EQU 0 01190000 RVTADDRP EQU RVT 01191000 RVTT01P EQU RVT+4 01192000 RVTTAP EQU RVT+8 01193000 RVTTBP EQU RVT+12 01194000 RVTTCP EQU RVT+16 01195000 RVTTFP EQU RVT+24 01196000 RVTTYP EQU RVT+40 01197000 RVTT02P EQU RVT+48 01198000 RVTT03P EQU RVT+52 01199000 RVTT04P EQU RVT+56 01200000 RVTACCLP EQU RVT+60 01201000 RVTRACCP EQU RVT+64 01202000 RVTTLP EQU RVT+68 01203000 RVTTMP EQU RVT+72 01204000 RVTTUP EQU RVT+80 01205000 RVTESGEP EQU RVT+84 01206000 RVTESGUP EQU RVT+88 01207000 RVTESARP EQU RVT+92 01208000 RVTRAARP EQU RVT+96 01209000 RVTRAGEP EQU RVT+100 01210000 RVTADDPP EQU RVT+104 01211000 RVTACCQP EQU RVT+108 01212000 RVTSAGUP EQU RVT+124 01213000 RVTSAGEP EQU RVT+128 01214000 RVTESCKP EQU RVT+132 01215000 RVTMSGAP EQU RVT+136 01216000 RVTMSGDP EQU RVT+140 01217000 RVTADDTP EQU RVT+160 01218000 RVTADDUP EQU RVT+164 01219000 RVTADD1P EQU RVT+176 01220000 RVTADD2P EQU RVT+180 01221000 RVTRSAGP EQU RVT+184 01222000 RVTMSGBP EQU RVT+188 01223000 RVTADDSP EQU RVT+192 01224000 RVTADD3P EQU RVT+196 01225000 RVTT05P EQU RVT+200 01226000 RVTPADSP EQU RVT+204 01227000 RVTTRP EQU RVT+228 01228000 RVTADD4P EQU RVT+232 01229000 RVTSAPCP EQU RVT+236 01230000 RVTSAARP EQU RVT+240 01231000 RVTSAGNP EQU RVT+244 01232000 RVTT06P EQU RVT+248 01233000 RVTSAGCP EQU RVT+252 01234000 RVTSAGQP EQU RVT+256 01235000 RVTESGCP EQU RVT+260 01236000 RVTESGQP EQU RVT+264 01237000 RVTDUCKP EQU RVT+276 01238000 RVTDUCCP EQU RVT+280 01239000 PCCA EQU 0 01240000 PCCAPCCA EQU PCCA 01241000 PCCATQEP EQU PCCA+20 01242000 PCCAPSAV EQU PCCA+24 01243000 PCCAPSAR EQU PCCA+28 01244000 PCCATMST EQU PCCA+128 01245000 PCCATMFL EQU PCCATMST 01246000 PCCATODE EQU PCCATMST+1 01247000 PCCACCE EQU PCCATMST+2 01248000 PCCAINTE EQU PCCATMST+3 01249000 PCCAEMSB EQU PCCA+136 01250000 PCCAEMSI EQU PCCAEMSB 01251000 PCCARISP EQU PCCAEMSI 01252000 PCCAEMS2 EQU PCCAEMSI+1 01253000 PCCAEMS3 EQU PCCAEMSI+2 01254000 PCCARMSB EQU PCCAEMSI+3 01255000 PCCAWERP EQU PCCA+280 01256000 PCCACHPF EQU PCCAWERP+4 01257000 PCCACHBL EQU PCCAWERP+5 01258000 PCCACHVA EQU PCCAWERP+6 01259000 PCCACHTS EQU PCCAWERP+7 01260000 PCCACHS1 EQU PCCA+288 01261000 PCCACHS2 EQU PCCA+289 01262000 PCCACHRB EQU PCCA+290 01263000 PCCACHF1 EQU PCCA+308 01264000 PCCACHF2 EQU PCCA+309 01265000 PCCACHF3 EQU PCCA+310 01266000 PCCACHF4 EQU PCCA+311 01267000 BLSRACC EQU 0 01268000 BLSRACCL EQU 0 01269000 BLSRADDP EQU 0 01270000 BLSRADDR EQU 0 01271000 BLSRADDS EQU 0 01272000 BLSRADDT EQU 0 01273000 BLSRADDU EQU 0 01274000 BLSRADD1 EQU 0 01275000 BLSRADD2 EQU 0 01276000 BLSRADD3 EQU 0 01277000 BLSRADD4 EQU 0 01278000 BLSRDUCC EQU 0 01279000 BLSRDUCK EQU 0 01280000 BLSRESAR EQU 0 01281000 BLSRESCK EQU 0 01282000 BLSRESGC EQU 0 01283000 BLSRESGE EQU 0 01284000 BLSRESGQ EQU 0 01285000 BLSRESGU EQU 0 01286000 BLSRMSGA EQU 0 01287000 BLSRMSGB EQU 0 01288000 BLSRMSGD EQU 0 01289000 BLSRPADS EQU 0 01290000 BLSRRAAR EQU 0 01291000 BLSRRAGE EQU 0 01292000 BLSRSAAR EQU 0 01293000 BLSRSAGC EQU 0 01294000 BLSRSAGE EQU 0 01295000 BLSRSAGN EQU 0 01296000 BLSRSAGQ EQU 0 01297000 BLSRSAGU EQU 0 01298000 BLSTA EQU 0 01299000 BLSTB EQU 0 01300000 BLSTC EQU 0 01301000 BLSTF EQU 0 01302000 BLSTL EQU 0 01303000 BLSTM EQU 0 01304000 BLSTR EQU 0 01305000 BLSTU EQU 0 01306000 BLSTY EQU 0 01307000 BLST01 EQU 0 01308000 BLST02 EQU 0 01309000 BLST03 EQU 0 01310000 BLST04 EQU 0 01311000 BLST05 EQU 0 01312000 BLST06 EQU 0 01313000 BLSUALLO EQU 0 01314000 BLSUBLDD EQU 0 01315000 BLSUBLDL EQU 0 01316000 BLSUDYNA EQU 0 01317000 BLSUFREE EQU 0 01318000 BLSUFRE1 EQU 0 01319000 BLSUMON EQU 0 01320000 BLSUMONA EQU 0 01321000 BLSUMONC EQU 0 01322000 BLSUMOND EQU 0 01323000 BLSUMONL EQU 0 01324000 BLSUMONT EQU 0 01325000 BLSUMONX EQU 0 01326000 BLSUMON2 EQU 0 01327000 BLSUMPK1 EQU 0 01328000 BLSUPARI EQU 0 01329000 BLSUPARU EQU 0 01330000 BLSUPGMC EQU 0 01331000 BLSUPGMD EQU 0 01332000 BLSUPGML EQU 0 01333000 BLSUPGMR EQU 0 01334000 BLSUPRTA EQU 0 01335000 BLSUPRTN EQU 0 01336000 BLSUPRTT EQU 0 01337000 BLSUPUTA EQU 0 01338000 BLSUPUTC EQU 0 01339000 BLSUPUTD EQU 0 01340000 BLSUPUTL EQU 0 01341000 BLSUPUTN EQU 0 01342000 BLSUPUTO EQU 0 01343000 BLSUPUTT EQU 0 01344000 BLSUSTAI EQU 0 01345000 BLSUTRMA EQU 0 01346000 BLSUTRMN EQU 0 01347000 BLSUTRMO EQU 0 01348000 BLSUTRMV EQU 0 01349000 BLSUVSAR EQU 0 01350000 BLSUVSCR EQU 0 01351000 BLSUVSEN EQU 0 01352000 BLSUVSER EQU 0 01353000 BLSUVSGE EQU 0 01354000 BLSUVSGU EQU 0 01355000 BLSUVSMR EQU 0 01356000 BLSUVSPO EQU 0 01357000 BLSUVSPU EQU 0 01358000 BLSUZZ2C EQU 0 01359000 BLSUZZ2D EQU 0 01360000 BLSUZZ2R EQU 0 01361000 IKJEFF02 EQU 0 01362000 IKJEFF18 EQU 0 01363000 IKJEFF19 EQU 0 01364000 IKJGETL EQU 0 01365000 IKJPARS EQU 0 01366000 IKJPTGT EQU 0 01367000 IKJPUTL EQU 0 01368000 IKJSCAN EQU 0 01369000 IKJSTCK EQU 0 01370000 I001C EQU 0 01371000 I008P EQU 0 01372000 I015F EQU 0 01373000 I015P EQU 0 01374000 I031F EQU 0 01375000 I031P EQU 0 01376000 I256C EQU 0 01377000 PZ2 EQU 0 01378000 SAPA EQU 0 01379000 SAPAAS EQU SAPA+12 01380000 SAPADT EQU SAPA+32 01381000 SAPAF EQU SAPA+68 01382000 SAPAFT EQU SAPAF+10 01383000 SAPAFF EQU SAPAF+52 01384000 SAPASF EQU SAPA+128 01385000 SAPAC EQU SAPA+254 01386000 SAPACT EQU SAPAC+2 01387000 SABK EQU 0 01388000 SABKAS EQU SABK+12 01389000 SABKDT EQU SABK+32 01390000 SABKF EQU SABK+68 01391000 SABKFT EQU SABKF+10 01392000 SABKFF EQU SABKF+52 01393000 SABKSF EQU SABK+128 01394000 SABKC EQU SABK+254 01395000 SABKCT EQU SABKC+2 01396000 CPPL EQU ZZ2CPPL 01397000 CPPLUPT EQU CPPL+4 01398000 CPPLPSCB EQU CPPL+8 01399000 CPPLECT EQU CPPL+12 01400000 ERRF EQU SABACT 01401000 ERRFB EQU ERRF 01402000 ERRFD EQU ERRF 01403000 ERRFS EQU ERRF 01404000 PTRPTR EQU PTRBIT 01405000 PCHK EQU SAAULAD 01406000 PCHK24IG EQU PCHK 01407000 PCHK24 EQU PCHK+1 01408000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01409000 @NM00152 EQU ERRF 01410000 ERRFN EQU ERRF 01411000 CPPLCBUF EQU CPPL 01412000 SABK999 EQU SABK+3072 01413000 SABKCT1 EQU SABKCT 01414000 SABKCL EQU SABKC 01415000 @NM00030 EQU SABK+153 01416000 SABKSRC EQU SABK+152 01417000 SABKPGV EQU SABK+144 01418000 SABKGMT EQU SABK+136 01419000 @NM00029 EQU SABKSF 01420000 SABKSFS EQU SABKSF 01421000 SABKSFI EQU SABKSF 01422000 SABKSF9 EQU SABKSF 01423000 SABKSF1 EQU SABKSF 01424000 SABKF99 EQU SABKF+60 01425000 @NM00028 EQU SABKF+56 01426000 @NM00027 EQU SABKFF 01427000 SABKFFA EQU SABKFF 01428000 SABKFIL EQU SABKF+48 01429000 SABKFIM EQU SABKF+44 01430000 SABKFT9 EQU SABKFT+34 01431000 SABKFTE EQU SABKFT+33 01432000 SABKFTD EQU SABKFT+2 01433000 @NM00026 EQU SABKFT+1 01434000 SABKFTY EQU SABKFT 01435000 SABKFT0 EQU SABKFT 01436000 SABKFLB EQU SABKF+9 01437000 SABKFOB EQU SABKF+8 01438000 SABKFLE EQU SABKF+4 01439000 SABKFOF EQU SABKF 01440000 SABKF00 EQU SABKF 01441000 @NM00025 EQU SABK+66 01442000 SABKELK EQU SABK+66 01443000 SABKDT9 EQU SABKDT+34 01444000 SABKDTE EQU SABKDT+33 01445000 SABKDTD EQU SABKDT+2 01446000 @NM00024 EQU SABKDT+1 01447000 SABKDTY EQU SABKDT 01448000 SABKDT0 EQU SABKDT 01449000 SABKLAD EQU SABK+28 01450000 SABKAS9 EQU SABKAS+16 01451000 @NM00023 EQU SABKAS+12 01452000 SABKAS2 EQU SABKAS+8 01453000 SABKAS1 EQU SABKAS+4 01454000 @NM00022 EQU SABKAS+2 01455000 SABKAST EQU SABKAS 01456000 SABKAS0 EQU SABKAS 01457000 SABKRDX EQU SABK+8 01458000 @NM00021 EQU SABK+2 01459000 SABKRID EQU SABK 01460000 SAPA999 EQU SAPA+3072 01461000 SAPACT1 EQU SAPACT 01462000 SAPACL EQU SAPAC 01463000 @NM00010 EQU SAPA+153 01464000 SAPASRC EQU SAPA+152 01465000 SAPAPGV EQU SAPA+144 01466000 SAPAGMT EQU SAPA+136 01467000 @NM00009 EQU SAPASF 01468000 SAPASFS EQU SAPASF 01469000 SAPASFI EQU SAPASF 01470000 SAPASF9 EQU SAPASF 01471000 SAPASF1 EQU SAPASF 01472000 SAPAF99 EQU SAPAF+60 01473000 @NM00008 EQU SAPAF+56 01474000 @NM00007 EQU SAPAFF 01475000 SAPAFFA EQU SAPAFF 01476000 SAPAFIL EQU SAPAF+48 01477000 SAPAFIM EQU SAPAF+44 01478000 SAPAFT9 EQU SAPAFT+34 01479000 SAPAFTE EQU SAPAFT+33 01480000 SAPAFTD EQU SAPAFT+2 01481000 @NM00006 EQU SAPAFT+1 01482000 SAPAFTY EQU SAPAFT 01483000 SAPAFT0 EQU SAPAFT 01484000 SAPAFLB EQU SAPAF+9 01485000 SAPAFOB EQU SAPAF+8 01486000 SAPAFLE EQU SAPAF+4 01487000 SAPAFOF EQU SAPAF 01488000 SAPAF00 EQU SAPAF 01489000 @NM00005 EQU SAPA+66 01490000 SAPAELK EQU SAPA+66 01491000 SAPADT9 EQU SAPADT+34 01492000 SAPADTE EQU SAPADT+33 01493000 SAPADTD EQU SAPADT+2 01494000 @NM00004 EQU SAPADT+1 01495000 SAPADTY EQU SAPADT 01496000 SAPADT0 EQU SAPADT 01497000 SAPALAD EQU SAPA+28 01498000 SAPAAS9 EQU SAPAAS+16 01499000 @NM00003 EQU SAPAAS+12 01500000 SAPAAS2 EQU SAPAAS+8 01501000 SAPAAS1 EQU SAPAAS+4 01502000 @NM00002 EQU SAPAAS+2 01503000 SAPAAST EQU SAPAAS 01504000 SAPAAS0 EQU SAPAAS 01505000 SAPARDX EQU SAPA+8 01506000 @NM00001 EQU SAPA+2 01507000 SAPARID EQU SAPA 01508000 @NM00134 EQU PCCA+512 01509000 PCCACAT EQU PCCA+384 01510000 PCCARV36 EQU PCCA+380 01511000 PCCARV35 EQU PCCA+378 01512000 PCCARV01 EQU PCCA+377 01513000 PCCACPUM EQU PCCA+376 01514000 PCCARV63 EQU PCCA+372 01515000 PCCARV62 EQU PCCA+368 01516000 PCCARV61 EQU PCCA+364 01517000 PCCARV60 EQU PCCA+360 01518000 PCCARV59 EQU PCCA+356 01519000 PCCARV58 EQU PCCA+352 01520000 PCCARV57 EQU PCCA+348 01521000 PCCARV56 EQU PCCA+344 01522000 PCCARV55 EQU PCCA+340 01523000 PCCARV54 EQU PCCA+336 01524000 PCCALOGA EQU PCCA+332 01525000 PCCACHID EQU PCCA+324 01526000 PCCACHSV EQU PCCA+312 01527000 PCCARV79 EQU PCCACHF4 01528000 PCCARV78 EQU PCCACHF4 01529000 PCCARV77 EQU PCCACHF4 01530000 PCCARV76 EQU PCCACHF4 01531000 PCCARV75 EQU PCCACHF4 01532000 PCCARV74 EQU PCCACHF4 01533000 PCCARV73 EQU PCCACHF4 01534000 PCCARV72 EQU PCCACHF4 01535000 PCCARV71 EQU PCCACHF3 01536000 PCCARV70 EQU PCCACHF3 01537000 PCCARV69 EQU PCCACHF3 01538000 PCCARV68 EQU PCCACHF3 01539000 PCCARV67 EQU PCCACHF3 01540000 PCCARV66 EQU PCCACHF3 01541000 PCCARV65 EQU PCCACHF3 01542000 PCCARV64 EQU PCCACHF3 01543000 PCCACF28 EQU PCCACHF2 01544000 PCCACF27 EQU PCCACHF2 01545000 PCCACF26 EQU PCCACHF2 01546000 PCCACF25 EQU PCCACHF2 01547000 PCCACF24 EQU PCCACHF2 01548000 PCCACF23 EQU PCCACHF2 01549000 PCCACF22 EQU PCCACHF2 01550000 PCCACF21 EQU PCCACHF2 01551000 PCCACF18 EQU PCCACHF1 01552000 PCCACF17 EQU PCCACHF1 01553000 PCCACF16 EQU PCCACHF1 01554000 PCCACF15 EQU PCCACHF1 01555000 PCCACF14 EQU PCCACHF1 01556000 PCCACF13 EQU PCCACHF1 01557000 PCCACF12 EQU PCCACHF1 01558000 PCCACF11 EQU PCCACHF1 01559000 PCCARV05 EQU PCCA+306 01560000 PCCACHPB EQU PCCA+305 01561000 PCCALGP2 EQU PCCA+304 01562000 PCCALGP1 EQU PCCA+303 01563000 PCCALOGL EQU PCCA+302 01564000 PCCARV80 EQU PCCA+300 01565000 PCCACHW2 EQU PCCA+296 01566000 PCCACHW1 EQU PCCA+292 01567000 PCCAIOSI EQU PCCA+291 01568000 PCCACNRB EQU PCCACHRB 01569000 PCCACCVB EQU PCCACHRB 01570000 PCCACSNB EQU PCCACHRB 01571000 PCCARV52 EQU PCCACHRB 01572000 PCCACHIB EQU PCCACHRB 01573000 PCCACTIB EQU PCCACHRB 01574000 PCCACINB EQU PCCACHRB 01575000 PCCACSIB EQU PCCACHRB 01576000 PCCARV51 EQU PCCACHS2 01577000 PCCARV50 EQU PCCACHS2 01578000 PCCACCRA EQU PCCACHS2 01579000 PCCACURC EQU PCCACHS2 01580000 PCCACNLG EQU PCCACHS2 01581000 PCCACMOD EQU PCCACHS2 01582000 PCCACALT EQU PCCACHS2 01583000 PCCACIOR EQU PCCACHS2 01584000 PCCARV47 EQU PCCACHS1 01585000 PCCACUCB EQU PCCACHS1 01586000 PCCACIBC EQU PCCACHS1 01587000 PCCACAND EQU PCCACHS1 01588000 PCCACNLS EQU PCCACHS1 01589000 PCCACFRR EQU PCCACHS1 01590000 PCCACNRE EQU PCCACHS1 01591000 PCCACCMP EQU PCCACHS1 01592000 PCCACSEQ EQU PCCACHTS 01593000 PCCACDIN EQU PCCACHTS 01594000 PCCARV44 EQU PCCACHTS 01595000 PCCARV43 EQU PCCACHTS 01596000 PCCACTEC EQU PCCACHTS 01597000 PCCACDAV EQU PCCACHVA 01598000 PCCACCHV EQU PCCACHVA 01599000 PCCACCMD EQU PCCACHVA 01600000 PCCACUNS EQU PCCACHVA 01601000 PCCACSQV EQU PCCACHVA 01602000 PCCARV42 EQU PCCACHVA 01603000 PCCARV41 EQU PCCACHVA 01604000 PCCACITF EQU PCCACHVA 01605000 PCCARV40 EQU PCCACHBL 01606000 PCCARV39 EQU PCCACHBL 01607000 PCCARV38 EQU PCCACHBL 01608000 PCCACCUE EQU PCCACHBL 01609000 PCCACSTG EQU PCCACHBL 01610000 PCCACSCU EQU PCCACHBL 01611000 PCCACCHA EQU PCCACHBL 01612000 PCCACCPU EQU PCCACHBL 01613000 PCCACNOR EQU PCCACHPF 01614000 PCCACCNT EQU PCCACHPF 01615000 PCCACSNS EQU PCCACHPF 01616000 PCCARV37 EQU PCCACHPF 01617000 PCCACHIO EQU PCCACHPF 01618000 PCCACTIO EQU PCCACHPF 01619000 PCCACINT EQU PCCACHPF 01620000 PCCACSIO EQU PCCACHPF 01621000 PCCACHUB EQU PCCAWERP 01622000 PCCACHEL EQU PCCA+168 01623000 PCCALRBR EQU PCCA+164 01624000 PCCALRBV EQU PCCA+160 01625000 PCCAPWAR EQU PCCA+156 01626000 PCCAPWAV EQU PCCA+152 01627000 PCCAEMSA EQU PCCAEMSB+12 01628000 PCCAEMSE EQU PCCAEMSB+8 01629000 PCCAEMSP EQU PCCAEMSB+4 01630000 PCCARMS EQU PCCARMSB 01631000 PCCARV34 EQU PCCARMSB 01632000 PCCARV33 EQU PCCARMSB 01633000 PCCARV32 EQU PCCARMSB 01634000 PCCARV31 EQU PCCARMSB 01635000 PCCARV30 EQU PCCARMSB 01636000 PCCARV29 EQU PCCARMSB 01637000 PCCARV28 EQU PCCARMSB 01638000 PCCARV27 EQU PCCAEMS3 01639000 PCCARV26 EQU PCCAEMS3 01640000 PCCARV25 EQU PCCAEMS3 01641000 PCCARV24 EQU PCCAEMS3 01642000 PCCARV23 EQU PCCAEMS3 01643000 PCCARV22 EQU PCCAEMS3 01644000 PCCARV21 EQU PCCAEMS3 01645000 PCCARV20 EQU PCCAEMS3 01646000 PCCARV19 EQU PCCAEMS2 01647000 PCCARV18 EQU PCCAEMS2 01648000 PCCARV17 EQU PCCAEMS2 01649000 PCCARV16 EQU PCCAEMS2 01650000 PCCARV15 EQU PCCAEMS2 01651000 PCCARV14 EQU PCCAEMS2 01652000 PCCARV13 EQU PCCAEMS2 01653000 PCCARV12 EQU PCCAEMS2 01654000 PCCARV11 EQU PCCARISP 01655000 PCCARV10 EQU PCCARISP 01656000 PCCARV09 EQU PCCARISP 01657000 PCCARV08 EQU PCCARISP 01658000 PCCARV07 EQU PCCARISP 01659000 PCCARV06 EQU PCCARISP 01660000 PCCASERL EQU PCCARISP 01661000 PCCAPARL EQU PCCARISP 01662000 PCCARPB EQU PCCA+132 01663000 PCCACTIN EQU PCCAINTE 01664000 PCCANFIN EQU PCCAINTE 01665000 PCCANUIN EQU PCCAINTE 01666000 PCCACTCC EQU PCCACCE 01667000 PCCANFCC EQU PCCACCE 01668000 PCCANUCC EQU PCCACCE 01669000 PCCACTTD EQU PCCATODE 01670000 PCCANFTD EQU PCCATODE 01671000 PCCANUTD EQU PCCATODE 01672000 PCCARV04 EQU PCCATMFL 01673000 PCCARV03 EQU PCCATMFL 01674000 PCCARV02 EQU PCCATMFL 01675000 PCCAMINT EQU PCCATMFL 01676000 PCCAMCC EQU PCCATMFL 01677000 PCCAVKIL EQU PCCATMFL 01678000 PCCASYNC EQU PCCATMFL 01679000 PCCAINIT EQU PCCATMFL 01680000 PCCARV9E EQU PCCA+124 01681000 PCCARV9D EQU PCCA+120 01682000 PCCARV9C EQU PCCA+116 01683000 PCCARV9B EQU PCCA+112 01684000 PCCARV9A EQU PCCA+108 01685000 PCCARV99 EQU PCCA+104 01686000 PCCARV98 EQU PCCA+100 01687000 PCCARV97 EQU PCCA+96 01688000 PCCARV96 EQU PCCA+92 01689000 PCCARV95 EQU PCCA+88 01690000 PCCARV94 EQU PCCA+84 01691000 PCCARV93 EQU PCCA+80 01692000 PCCARV92 EQU PCCA+76 01693000 PCCARV91 EQU PCCA+72 01694000 PCCARV90 EQU PCCA+68 01695000 PCCARV89 EQU PCCA+64 01696000 PCCARV88 EQU PCCA+60 01697000 PCCARV87 EQU PCCA+56 01698000 PCCARV86 EQU PCCA+52 01699000 PCCARV85 EQU PCCA+48 01700000 PCCARV84 EQU PCCA+44 01701000 PCCARV83 EQU PCCA+40 01702000 PCCARV82 EQU PCCA+36 01703000 PCCARV81 EQU PCCA+32 01704000 PCCACAFM EQU PCCA+18 01705000 PCCACPUA EQU PCCA+16 01706000 PCCACPID EQU PCCA+4 01707000 RVT99999 EQU RVT+384 01708000 RVT0096P EQU RVT+380 01709000 RVT0095P EQU RVT+376 01710000 RVT0094P EQU RVT+372 01711000 RVT0093P EQU RVT+368 01712000 RVT0092P EQU RVT+364 01713000 RVT0091P EQU RVT+360 01714000 RVT0090P EQU RVT+356 01715000 RVT0089P EQU RVT+352 01716000 RVT0088P EQU RVT+348 01717000 RVT0087P EQU RVT+344 01718000 RVT0086P EQU RVT+340 01719000 RVT0085P EQU RVT+336 01720000 RVT0084P EQU RVT+332 01721000 RVT0083P EQU RVT+328 01722000 RVT0082P EQU RVT+324 01723000 RVT0081P EQU RVT+320 01724000 RVT0080P EQU RVT+316 01725000 RVT0079P EQU RVT+312 01726000 RVT0078P EQU RVT+308 01727000 RVT0077P EQU RVT+304 01728000 RVT0076P EQU RVT+300 01729000 RVT0075P EQU RVT+296 01730000 RVT0074P EQU RVT+292 01731000 RVT0073P EQU RVT+288 01732000 RVT0072P EQU RVT+284 01733000 RVTDTUTP EQU RVT+272 01734000 RVTDTMTP EQU RVT+268 01735000 RVT0057P EQU RVT+224 01736000 RVT0056P EQU RVT+220 01737000 RVT0055P EQU RVT+216 01738000 RVT0054P EQU RVT+212 01739000 RVT0053P EQU RVT+208 01740000 RVT0044P EQU RVT+172 01741000 RVT0043P EQU RVT+168 01742000 RVT0040P EQU RVT+156 01743000 RVT0039P EQU RVT+152 01744000 RVT0038P EQU RVT+148 01745000 RVT0037P EQU RVT+144 01746000 RVT0031P EQU RVT+120 01747000 RVT0030P EQU RVT+116 01748000 RVT0029P EQU RVT+112 01749000 RVT0020P EQU RVT+76 01750000 RVT0012P EQU RVT+44 01751000 RVT0010P EQU RVT+36 01752000 RVT0009P EQU RVT+32 01753000 RVT0008P EQU RVT+28 01754000 RVT0006P EQU RVT+20 01755000 ZZ69999 EQU ZZ6+1792 01756000 ZZ6BRB EQU ZZ6B+12 01757000 ZZ6BRC EQU ZZ6B+8 01758000 @NM00133 EQU ZZ6B+6 01759000 ZZ6BFL EQU ZZ6B+4 01760000 ZZ6BDA EQU ZZ6B 01761000 @NM00132 EQU ZZ6+540 01762000 ZZ6BUFI EQU ZZ6+536 01763000 ZZ6BUFP EQU ZZ6+532 01764000 ZZ6FILE EQU ZZ6+524 01765000 ZZ6BUFB EQU ZZ6+520 01766000 ZZ6BUFL EQU ZZ6+518 01767000 ZZ6BUFN EQU ZZ6+516 01768000 ZZ6ZZ6P EQU ZZ6+512 01769000 @NM00131 EQU ZZ6+256 01770000 ZZ6D999 EQU ZZ6D+128 01771000 @NM00130 EQU ZZ6D+116 01772000 ZZ6DCAP EQU ZZ6D+112 01773000 ZZ6DPRP EQU ZZ6D+108 01774000 ZZ6DDA2 EQU ZZ6D+104 01775000 ZZ6DDA1 EQU ZZ6D+100 01776000 @NM00129 EQU ZZ6DF 01777000 ZZ6DFSU EQU ZZ6DF 01778000 ZZ6DFST EQU ZZ6DF 01779000 ZZ6DFMP EQU ZZ6DF 01780000 ZZ6DFDU EQU ZZ6DF 01781000 ZZ6DFBS EQU ZZ6DF 01782000 ZZ6DQ2 EQU ZZ6D+88 01783000 ZZ6DQ1 EQU ZZ6D+84 01784000 ZZ6DQA9 EQU ZZ6DQA+16 01785000 @NM00128 EQU ZZ6DQA+12 01786000 ZZ6DQA2 EQU ZZ6DQA+8 01787000 ZZ6DQA1 EQU ZZ6DQA+4 01788000 @NM00127 EQU ZZ6DQA+2 01789000 ZZ6DQAT EQU ZZ6DQA 01790000 ZZ6DQA0 EQU ZZ6DQA 01791000 ZZ6DRDX EQU ZZ6D+64 01792000 ZZ6DELK EQU ZZ6D+64 01793000 ZZ6DMEM EQU ZZ6D+56 01794000 ZZ6DDT1 EQU ZZ6DDT 01795000 ZZ6DDO EQU ZZ6DD+2 01796000 ZZ6DDL EQU ZZ6DD 01797000 @NM00126 EQU ZZ6D+2 01798000 ZZ6DRID EQU ZZ6D 01799000 ZZ6RDCB EQU ZZ6 01800000 ZZ60000 EQU ZZ6 01801000 BVT99999 EQU BVT+256 01802000 BVT0064P EQU BVT+252 01803000 BVT0063P EQU BVT+248 01804000 BVT0062P EQU BVT+244 01805000 BVT0061P EQU BVT+240 01806000 BVT0060P EQU BVT+236 01807000 BVT0059P EQU BVT+232 01808000 BVT0057P EQU BVT+224 01809000 BVT0056P EQU BVT+220 01810000 BVTSTBLP EQU BVT+200 01811000 BVT0045P EQU BVT+176 01812000 BVT0044P EQU BVT+172 01813000 BVT0033P EQU BVT+128 01814000 BVT0032P EQU BVT+124 01815000 BVT0031P EQU BVT+120 01816000 BVT0030P EQU BVT+116 01817000 BVT0029P EQU BVT+112 01818000 BVT0026P EQU BVT+100 01819000 BVT0025P EQU BVT+96 01820000 BVT0024P EQU BVT+92 01821000 BVT0023P EQU BVT+88 01822000 BVT0016P EQU BVT+60 01823000 BVT0015P EQU BVT+56 01824000 BVT0014P EQU BVT+52 01825000 BVT0003P EQU BVT+8 01826000 BVT0001P EQU BVT 01827000 SA99 EQU SA+72 01828000 SARC EQU SAR+56 01829000 SARB EQU SAR+52 01830000 SARA EQU SAR+48 01831000 SAR9 EQU SAR+44 01832000 SAR8 EQU SAR+40 01833000 SAR7 EQU SAR+36 01834000 SAR6 EQU SAR+32 01835000 SAR5 EQU SAR+28 01836000 SAR4 EQU SAR+24 01837000 SAR3 EQU SAR+20 01838000 SAR2 EQU SAR+16 01839000 SAR0 EQU SAR+8 01840000 SARF EQU SAR+4 01841000 SARE EQU SAR 01842000 SAFWD EQU SA+8 01843000 SABAK EQU SA+4 01844000 SA1L EQU SA1+1 01845000 SA1P EQU SA1 01846000 UPTPREFL EQU UPT+23 01847000 UPTPREFX EQU UPT+16 01848000 @NM00125 EQU UPT+15 01849000 UPTLDEL EQU UPT+14 01850000 UPTCDEL EQU UPT+13 01851000 UPTWTP EQU UPTSWS 01852000 UPTMODE EQU UPTSWS 01853000 UPTALD EQU UPTSWS 01854000 UPTPAUS EQU UPTSWS 01855000 UPTNCOM EQU UPTSWS 01856000 UPTMID EQU UPTSWS 01857000 UPTNPRM EQU UPTSWS 01858000 UPTRCVR EQU UPTSWS 01859000 UPTUSER EQU UPT+2 01860000 @NM00124 EQU UPT 01861000 @NM00123 EQU ECT+52 01862000 @NM00122 EQU ECT+48 01863000 @NM00121 EQU ECT+44 01864000 @NM00120 EQU ECTSWS2+1 01865000 @NM00119 EQU ECTSWS21 01866000 ECTTABND EQU ECTSWS21 01867000 ECTDEFCS EQU ECTSWS21 01868000 ECTBKPB EQU ECT+36 01869000 ECTUSER EQU ECT+32 01870000 ECTDDNUM EQU ECT+29 01871000 ECTATTN EQU ECTSWS 01872000 ECTBKGRD EQU ECTSWS 01873000 ECTNNOT EQU ECTSWS 01874000 ECTNMAL EQU ECTSWS 01875000 ECTLOGF EQU ECTSWS 01876000 ECTATRM EQU ECTSWS 01877000 @NM00118 EQU ECTSWS 01878000 ECTNOPD EQU ECTSWS 01879000 ECTSCMD EQU ECT+20 01880000 ECTPCMD EQU ECT+12 01881000 ECTSMSG EQU ECT+9 01882000 ECTMSGF EQU ECT+8 01883000 ECTIOWA EQU ECT+4 01884000 ECTRTCD EQU ECT+1 01885000 ECTRCDF EQU ECT 01886000 PSCBU EQU PSCB+64 01887000 PSCBRSZ EQU PSCB+60 01888000 PSCBLINE EQU PSCB+59 01889000 PSCBCHAR EQU PSCB+58 01890000 PSCBUPTL EQU PSCB+56 01891000 PSCBUPT EQU PSCB+52 01892000 PSCBRLGB EQU PSCB+48 01893000 PSCBDEST EQU PSCB+40 01894000 @NM00117 EQU PSCB+36 01895000 @NM00116 EQU PSCB+32 01896000 @NM00115 EQU PSCB+28 01897000 PSCBLTI2 EQU PSCB+24 01898000 PSCBLTIM EQU PSCB+20 01899000 PSCBATR2 EQU PSCB+18 01900000 @NM00114 EQU PSCBATR1 01901000 @NM00113 EQU PSCBATR1 01902000 @NM00112 EQU PSCBATR1 01903000 PSCBATTN EQU PSCBATR1 01904000 PSCBVMNT EQU PSCBATR1 01905000 PSCBJCL EQU PSCBATR1 01906000 PSCBACCT EQU PSCBATR1 01907000 PSCBCTRL EQU PSCBATR1 01908000 PSCBGPNM EQU PSCB+8 01909000 PSCBUSRL EQU PSCB+7 01910000 PSCBUSER EQU PSCB 01911000 CMDT1 EQU CMDT 01912000 CMDO EQU CMD+2 01913000 CMDL EQU CMD 01914000 ZZ299999 EQU ZZ2+8192 01915000 ZZ2AXOT1 EQU ZZ2AXOT 01916000 ZZ2AXOL EQU ZZ2AXO 01917000 @NM00111 EQU ZZ2+7288 01918000 @NM00110 EQU ZZ2AMDX+4 01919000 ZZ2AMDXC EQU ZZ2AMDX 01920000 ZZ2HSD EQU ZZ2+3056 01921000 @NM00109 EQU ZZ2ES 01922000 @NM00108 EQU ZZ2+2868 01923000 ZZ2ITSEC EQU ZZ2ITSE+1 01924000 @NM00107 EQU ZZ2ITSE 01925000 ZZ2ITSEP EQU ZZ2ITSE 01926000 ZZ2ITSEW EQU ZZ2ITSE 01927000 @NM00106 EQU ZZ2ITR+20 01928000 ZZ2ITREC EQU ZZ2ITRE+1 01929000 @NM00105 EQU ZZ2ITRE 01930000 ZZ2ITREP EQU ZZ2ITRE 01931000 ZZ2ITREW EQU ZZ2ITRE 01932000 @NM00104 EQU ZZ2ITR+9 01933000 ZZ2ITRRC EQU ZZ2ITR+8 01934000 ZZ2ITR2P EQU ZZ2ITR+4 01935000 ZZ2ITRPP EQU ZZ2ITR 01936000 @NM00103 EQU ZZ2+1544 01937000 ZZ2PGM EQU ZZ2+1536 01938000 @NM00102 EQU ZZ2+1526 01939000 ZZ2CW EQU ZZ2+1524 01940000 @NM00101 EQU ZZ2+1504 01941000 @NM00100 EQU ZZ2+1352 01942000 ZZ2FFSYP EQU ZZ2+1348 01943000 ZZ2SASYP EQU ZZ2+1344 01944000 ZZ2RDSYP EQU ZZ2+1340 01945000 ZZ2RASYP EQU ZZ2+1336 01946000 ZZ2PHSYP EQU ZZ2+1332 01947000 ZZ200SYP EQU ZZ2+1324 01948000 ZZ2SCWP EQU ZZ2+1320 01949000 ZZ2TTLP EQU ZZ2+1316 01950000 ZZ2LOADP EQU ZZ2+1312 01951000 ZZ2VRESP EQU ZZ2+1308 01952000 ZZ2CPPLE EQU ZZ2CPPL+12 01953000 ZZ2CPPLP EQU ZZ2CPPL+8 01954000 ZZ2CPPLU EQU ZZ2CPPL+4 01955000 ZZ2VRSAP EQU ZZ2+1288 01956000 ZZ2DVTP EQU ZZ2+1276 01957000 @NM00099 EQU ZZ2+1272 01958000 @NM00098 EQU ZZ2+1268 01959000 ZZ2RPLP EQU ZZ2+1260 01960000 ZZ2TCBP EQU ZZ2+1256 01961000 @NM00097 EQU ZZ2+1252 01962000 ZZ2ZZ2P EQU ZZ2+1248 01963000 @NM00096 EQU ZZ2+1112 01964000 ZZ2FPDRP EQU ZZ2+1108 01965000 ZZ2FDSDP EQU ZZ2+1104 01966000 ZZ2APDRP EQU ZZ2+1100 01967000 ZZ2ADSDP EQU ZZ2+1096 01968000 ZZ2ENQ0P EQU ZZ2+1092 01969000 @NM00095 EQU ZZ2+1080 01970000 ZZ2MSG0P EQU ZZ2+1076 01971000 ZZ2FT25P EQU ZZ2+1072 01972000 ZZ2MSGSP EQU ZZ2+1060 01973000 ZZ2ALOCP EQU ZZ2+1056 01974000 @NM00094 EQU ZZ2+976 01975000 ZZ2STGN EQU ZZ2STG+4 01976000 ZZ2STGP EQU ZZ2STG 01977000 @NM00093 EQU ZZ2+952 01978000 ZZ2SCMDE EQU ZZ2+944 01979000 ZZ2SCMDN EQU ZZ2+936 01980000 ZZ2IDENT EQU ZZ2+928 01981000 ZZ2A9999 EQU ZZ2A+656 01982000 @NM00092 EQU ZZ2A+224 01983000 @NM00091 EQU ZZ2A+220 01984000 ZZ2AQD99 EQU ZZ2AQD+60 01985000 @NM00090 EQU ZZ2AQD+56 01986000 @NM00089 EQU ZZ2AQDF 01987000 ZZ2AQDFA EQU ZZ2AQDF 01988000 ZZ2AQDIL EQU ZZ2AQD+48 01989000 ZZ2AQDIM EQU ZZ2AQD+44 01990000 ZZ2AQDT9 EQU ZZ2AQDT+34 01991000 ZZ2AQDTE EQU ZZ2AQDT+33 01992000 ZZ2AQDTD EQU ZZ2AQDT+2 01993000 @NM00088 EQU ZZ2AQDT+1 01994000 ZZ2AQDTY EQU ZZ2AQDT 01995000 ZZ2AQDT0 EQU ZZ2AQDT 01996000 ZZ2AQDLB EQU ZZ2AQD+9 01997000 ZZ2AQDOB EQU ZZ2AQD+8 01998000 ZZ2AQDLE EQU ZZ2AQD+4 01999000 ZZ2AQDOF EQU ZZ2AQD 02000000 ZZ2AQD00 EQU ZZ2AQD 02001000 ZZ2AQAS9 EQU ZZ2AQAS+16 02002000 @NM00087 EQU ZZ2AQAS+12 02003000 ZZ2AQAS2 EQU ZZ2AQAS+8 02004000 ZZ2AQAS1 EQU ZZ2AQAS+4 02005000 @NM00086 EQU ZZ2AQAS+2 02006000 ZZ2AQAST EQU ZZ2AQAS 02007000 ZZ2AQAS0 EQU ZZ2AQAS 02008000 ZZ2ADPTA EQU ZZ2ADPT 02009000 ZZ2ADPL EQU ZZ2ADP 02010000 ZZ2ADMTA EQU ZZ2ADMT 02011000 ZZ2ADML EQU ZZ2ADM 02012000 ZZ2ADDTA EQU ZZ2ADDT 02013000 ZZ2ADDL EQU ZZ2ADD 02014000 @NM00085 EQU ZZ2A+72 02015000 ZZ2APIDB EQU ZZ2APID+3 02016000 ZZ2APIDA EQU ZZ2APID 02017000 @NM00084 EQU ZZ2A+24 02018000 @NM00083 EQU ZZ2AF+5 02019000 ZZ2AFX EQU ZZ2AF+5 02020000 @NM00082 EQU ZZ2AF+3 02021000 ZZ2AFS EQU ZZ2AF+2 02022000 ZZ2AFD EQU ZZ2AF+2 02023000 ZZ2AFQ EQU ZZ2AF+2 02024000 ZZ2AF$ EQU ZZ2AF+2 02025000 @NM00081 EQU ZZ2AF+2 02026000 ZZ2AFM EQU ZZ2AF+2 02027000 @NM00080 EQU ZZ2AF+2 02028000 @NM00079 EQU ZZ2AF+1 02029000 ZZ2AFV EQU ZZ2AF+1 02030000 @NM00078 EQU ZZ2AF+1 02031000 ZZ2AFC EQU ZZ2AF+1 02032000 @NM00077 EQU ZZ2AF 02033000 ZZ2AFFS EQU ZZ2AF 02034000 ZZ2AFT EQU ZZ2AF 02035000 ZZ2AFP EQU ZZ2AF 02036000 @NM00076 EQU ZZ2A+8 02037000 ZZ2ALINE EQU ZZ2A+4 02038000 @NM00075 EQU ZZ2A+3 02039000 ZZ2ACH EQU ZZ2A 02040000 @NM00074 EQU ZZ2+264 02041000 @NM00073 EQU ZZ2+263 02042000 ZZ2PRTT0 EQU ZZ2PRTT 02043000 ZZ2PRTO EQU ZZ2PRT+2 02044000 ZZ2PRTL EQU ZZ2PRT 02045000 @NM00072 EQU ZZ2AMD+56 02046000 ZZ2AMDXP EQU ZZ2AMD+52 02047000 ZZ2AMDD EQU ZZ2AMD+48 02048000 ZZ2AMDL EQU ZZ2AMD+44 02049000 ZZ2AMDU EQU ZZ2AMD+28 02050000 ZZ2AMDF EQU ZZ2AMD+24 02051000 ZZ2AMDS EQU ZZ2AMD+20 02052000 ZZ2AMDC EQU ZZ2AMD+16 02053000 ZZ2AMDP EQU ZZ2AMD+12 02054000 ZZ2AMDB EQU ZZ2AMD+8 02055000 @NM00071 EQU @NM00070 02056000 ZZ2AMD2 EQU @NM00070 02057000 ZZ2AMD1 EQU @NM00070 02058000 ZZ2AMD0 EQU ZZ2AMD+6 02059000 ZZ2AMDA EQU ZZ2AMD+4 02060000 ZZ2AMDT EQU ZZ2AMD 02061000 ZZ199999 EQU ZZ1+3072 02062000 @NM00069 EQU ZZ1+2160 02063000 ZZ1TRTAS EQU ZZ1+1904 02064000 ZZ1TRUPC EQU ZZ1+1648 02065000 ZZ1TRCTX EQU ZZ1+1392 02066000 ZZ1NASID EQU ZZ1N+274 02067000 ZZ1NSTRL EQU ZZ1N+272 02068000 ZZ1NOFF EQU ZZ1N+268 02069000 ZZ1NBDY EQU ZZ1N+264 02070000 ZZ1NADE EQU ZZ1N+260 02071000 ZZ1NADB EQU ZZ1N+256 02072000 ZZ1NSTR EQU ZZ1N 02073000 @NM00068 EQU ZZ1+1080 02074000 ZZ1TREBC EQU ZZ1+824 02075000 @NM00067 EQU ZZ1+377 02076000 ZZ1USTAE EQU ZZ1+376 02077000 @NM00066 EQU ZZ1F+1 02078000 @NM00065 EQU ZZ1F 02079000 ZZ1FM EQU ZZ1F 02080000 ZZ1FX EQU ZZ1F 02081000 ZZ1FU EQU ZZ1F 02082000 ZZ1EVEC EQU ZZ1EVE+1 02083000 @NM00064 EQU ZZ1EVE 02084000 ZZ1EVEW EQU ZZ1EVE 02085000 ZZ1ACMP EQU ZZ1ATTN 02086000 @NM00063 EQU ZZ1+144 02087000 ZZ1FPP EQU ZZ1+140 02088000 ZZ1ZZ6P EQU ZZ1+136 02089000 @NM00062 EQU ZZ1+84 02090000 ZZ1PLINE EQU ZZ1+80 02091000 ZZ1PGSZ EQU ZZ1+76 02092000 ZZ1PCNT EQU ZZ1+72 02093000 @NM00061 EQU ZZ1+68 02094000 ZZ1TPAGE EQU ZZ1+64 02095000 ZZ1TLINE EQU ZZ1+60 02096000 @NM00060 EQU ZZ1+52 02097000 ZZ1DMCBP EQU ZZ1+48 02098000 ZZ1DSDP EQU ZZ1+44 02099000 ZZ1PDRP EQU ZZ1+40 02100000 ZZ1ZZ2P EQU ZZ1+36 02101000 ZZ1327WP EQU ZZ1+32 02102000 ZZ1ACBP EQU ZZ1+28 02103000 @NM00059 EQU ZZ1+24 02104000 ZZ1PDCBP EQU ZZ1+20 02105000 ZZ1BLRBL EQU ZZ1+16 02106000 @NM00058 EQU ZZ1+12 02107000 ZZ1PNULL EQU ZZ1+8 02108000 ZZ1NULL EQU ZZ1+4 02109000 ZZ1IDE EQU ZZ1 02110000 VRBAT1 EQU VRBAT 02111000 @NM00055 EQU VRBA+2 02112000 VRBAL EQU VRBA 02113000 ESCO999 EQU ESCO+182 02114000 ESCORT1 EQU ESCORT 02115000 ESCORL EQU ESCOR 02116000 @NM00054 EQU ESCO+168 02117000 ESCOABS EQU ESCO+164 02118000 @NM00053 EQU ESCOF+2 02119000 @NM00052 EQU ESCOFC 02120000 ESCOFCD EQU ESCOFC 02121000 ESCOFSS EQU ESCOFS 02122000 ESCOFSX EQU ESCOFS 02123000 ESCOFSR EQU ESCOFS 02124000 ESCOFSP EQU ESCOFS 02125000 ESCOFSA EQU ESCOFS 02126000 ESCOFSM EQU ESCOFS 02127000 ESCOFS2 EQU ESCOFS 02128000 ESCOFSC EQU ESCOFS 02129000 ESCOKEY EQU ESCO+160 02130000 @NM00051 EQU ESCO+144 02131000 ESCOMAD EQU ESCO+140 02132000 ESCOD99 EQU ESCOD+60 02133000 @NM00050 EQU ESCOD+56 02134000 @NM00049 EQU ESCODF 02135000 ESCODFA EQU ESCODF 02136000 ESCODIL EQU ESCOD+48 02137000 ESCODIM EQU ESCOD+44 02138000 ESCODT9 EQU ESCODT+34 02139000 ESCODTE EQU ESCODT+33 02140000 ESCODTD EQU ESCODT+2 02141000 @NM00048 EQU ESCODT+1 02142000 ESCODTY EQU ESCODT 02143000 ESCODT0 EQU ESCODT 02144000 ESCODLB EQU ESCOD+9 02145000 ESCODOB EQU ESCOD+8 02146000 ESCODLE EQU ESCOD+4 02147000 ESCODOF EQU ESCOD 02148000 ESCOD00 EQU ESCOD 02149000 ESCOLAD EQU ESCO+76 02150000 ESCOAS9 EQU ESCOAS+16 02151000 @NM00047 EQU ESCOAS+12 02152000 ESCOAS2 EQU ESCOAS+8 02153000 ESCOAS1 EQU ESCOAS+4 02154000 @NM00046 EQU ESCOAS+2 02155000 ESCOAST EQU ESCOAS 02156000 ESCOAS0 EQU ESCOAS 02157000 ESCORV1 EQU ESCO+59 02158000 ESCOELK EQU ESCO+59 02159000 ESCOSYM EQU ESCO+28 02160000 ESCORDX EQU ESCO+24 02161000 @NM00045 EQU ESCO+16 02162000 @NM00044 EQU ESCO+8 02163000 @NM00043 EQU ESCO+2 02164000 ESCORID EQU ESCO 02165000 SABA999 EQU SABA+3072 02166000 SABACT1 EQU SABACT 02167000 @NM00020 EQU SABA+153 02168000 SABAPGV EQU SABA+144 02169000 @NM00019 EQU SABASF 02170000 SABAF99 EQU SABAF+60 02171000 @NM00018 EQU SABAF+56 02172000 @NM00017 EQU SABAFF 02173000 SABAFFA EQU SABAFF 02174000 SABAFIL EQU SABAF+48 02175000 SABAFIM EQU SABAF+44 02176000 SABAFT9 EQU SABAFT+34 02177000 SABAFTE EQU SABAFT+33 02178000 SABAFTD EQU SABAFT+2 02179000 @NM00016 EQU SABAFT+1 02180000 SABAFTY EQU SABAFT 02181000 SABAFT0 EQU SABAFT 02182000 SABAFLB EQU SABAF+9 02183000 SABAFOB EQU SABAF+8 02184000 SABAFLE EQU SABAF+4 02185000 SABAFOF EQU SABAF 02186000 SABAF00 EQU SABAF 02187000 @NM00015 EQU SABA+66 02188000 SABAELK EQU SABA+66 02189000 SABADT9 EQU SABADT+34 02190000 SABADTE EQU SABADT+33 02191000 SABADTD EQU SABADT+2 02192000 @NM00014 EQU SABADT+1 02193000 SABADTY EQU SABADT 02194000 SABADT0 EQU SABADT 02195000 SABAAS9 EQU SABAAS+16 02196000 @NM00013 EQU SABAAS+12 02197000 SABAAS2 EQU SABAAS+8 02198000 SABAAS1 EQU SABAAS+4 02199000 @NM00012 EQU SABAAS+2 02200000 SABAAS0 EQU SABAAS 02201000 SABARDX EQU SABA+8 02202000 @NM00011 EQU SABA+2 02203000 SABARID EQU SABA 02204000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02205000 @RT00160 EQU LBLSCAN2 02206000 @RF00160 EQU LBLSCAN8 02207000 @RT00204 EQU LBLSCAN8 02208000 @RT00207 EQU LBLSCAN7 02209000 @RT00262 EQU EXIT 02210000 @RT00292 EQU PCHKEXIT 02211000 @ENDDATA EQU * 02212000 END BLSVPCCA,(C'PLS1943',0701,78069) 02213000