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