XXTL TITLE 'BLSVXTLS--SCAN EXTENT LIST (XTLST) *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPLK */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSVXTLS CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSVXTLS 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 */* BLSVXTLS--SCAN EXTENT LIST (XTLST) */ 00030000 */* */ 00031000 */********************************************************************/ 00032000 * 0150 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* BLSV1--SCAN EXIT SETUP */ 00036000 * /* */ 00037000 * /*****************************************************************/ 00038000 * 0150 00039000 * DO; /* BLSV1 */ 00040000 * RESPECIFY 0151 00041000 * (RF) RESTRICTED; /* RETURN CODES */ 00042000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00043000 SLR RETC,RETC 0152 00044000 * SABAPTR=ADDR(SAPA); /* ->SABA (ALIAS FOR SAPA */ 00045000 L SABAPTR,@PC00001+4 0153 00046000 * IF SABASF1=ZZZ1 THEN /* SCAN STARTED */ 00047000 TM SABASF1(SABAPTR),B'10000000' 0154 00048000 BNO @RF00154 0154 00049000 * IF /* IMAGE RETRIEVAL REQUIRED */ 00050000 * SABASF9=ZZZ0| /* SCAN NOT COMPLETE */ 00051000 * (SABASFS=ZZZ1&ZZ2ASE<=SABASRC) THEN/* IMAGE USED FOR 0155 00052000 * MESSAGES */ 00053000 TM SABASF9(SABAPTR),B'01000000' 0155 00054000 BZ @RT00155 0155 00055000 TM SABASFS(SABAPTR),B'00010000' 0155 00056000 BNO @RF00155 0155 00057000 CLC ZZ2ASE(1,R9),SABASRC(SABAPTR) 0155 00058000 BNH @RT00155 0155 00059000 * GO TO LBLSCAN2; /* IMAGE RETRIEVAL */ 00060000 * ELSE /* NO IMAGE RETRIEVAL */ 00061000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00062000 B LBLSCAN8 0157 00063000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00064000 @RF00154 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0158 00065000 * SABACL=(LENGTH(ERRF)/8)*DIM(ERRF);/* LENGTH OF SABACT */ 00066000 * 0159 00067000 MVC SABACL(2,SABAPTR),@CH00442 0159 00068000 * /***************************************************************/ 00069000 * /* */ 00070000 * /* CLEAR ALL ERROR FLAGS */ 00071000 * /* */ 00072000 * /***************************************************************/ 00073000 * 0160 00074000 * DO ERRFNDX=1 TO DIM(ERRF); /* CLEAR ALL ERROR FLAGS */ 00075000 LA ERRFNDX,1 0160 00076000 @DL00160 DS 0H 0161 00077000 * ERRF(ERRFNDX)='00'X; /* ONE BYTE AT A TIME */ 00078000 LR @14,SABAPTR 0161 00079000 ALR @14,ERRFNDX 0161 00080000 MVI ERRF-1(@14),X'00' 0161 00081000 * END; /* CLEAR ALL ERROR FLAGS */ 00082000 AL ERRFNDX,@CF00051 0162 00083000 C ERRFNDX,@CF00442 0162 00084000 BNH @DL00160 0162 00085000 * IF SABALAD//8^=0 THEN /* UNALIGNED */ 00086000 * 0163 00087000 L @14,SABALAD(,SABAPTR) 0163 00088000 N @14,@CF00442 0163 00089000 LTR @14,@14 0163 00090000 BZ @RF00163 0163 00091000 * /*************************************************************/ 00092000 * /* */ 00093000 * /* UNALIGNED */ 00094000 * /* */ 00095000 * /*************************************************************/ 00096000 * 0164 00097000 * DO; /* UNALIGNED */ 00098000 * ERRFB(TST109)=ZZZ1; /* UNALIGNED STORAGE ERROR */ 00099000 OI ERRFB(SABAPTR),B'10000000' 0165 00100000 * SABASRC=ZZZFLAGS; /* SCAN RETURN CODE */ 00101000 MVI SABASRC(SABAPTR),X'0C' 0166 00102000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00103000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00104000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00105000 OI SABASF1(SABAPTR),B'11100000' 0169 00106000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00107000 B LBLSCAN8 0170 00108000 * END; /* UNALIGNED */ 00109000 * END; /* BLSV1 */ 00110000 @RF00163 DS 0H 0173 00111000 * IF SABAAST=ZZZASTCV THEN /* VIRTUAL STORAGE */ 00112000 CLC SABAAST(2,SABAPTR),@CC00083 0173 00113000 BNE @RF00173 0173 00114000 * DO; /* BLSVM0 MF(EXECUTE,TST110) */ 00115000 * IF SABALADIMAGE */ 00223000 @RF00193 LA XTLSTPTR,BUF 0208 00224000 * IF SABASF9=ZZZ1 THEN /* SCAN COMPLETED */ 00225000 TM SABASF9(SABAPTR),B'01000000' 0209 00226000 BO @RT00209 0209 00227000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00228000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00229000 OI SABASF9(SABAPTR),B'01000000' 0211 00230000 * END; /* BLSV2 */ 00231000 * SABAF=ESAUD; /* STORAGE ATTRIBUTES */ 00232000 MVC SABAF(60,SABAPTR),ESAUD 0213 00233000 * SABAFLE=XTLLNTH; /* LENGTH */ 00234000 L @14,XTLLNTH(,XTLSTPTR) 0214 00235000 ST @14,SABAFLE(,SABAPTR) 0214 00236000 * DO; /* BLSVM0 MF(EXECUTE,TST111) */ 00237000 * IF XTLNRFAC^=1 THEN 0216 00238000 CLC XTLNRFAC(4,XTLSTPTR),@CF00051 0216 00239000 BE @RF00216 0216 00240000 * DO; /* INITIAL ANALYSIS ERROR */ 00241000 * ERRFB(TST111)=ZZZ1; 0218 00242000 OI ERRFB+3(SABAPTR),B'10000000' 0218 00243000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST111)); 0219 00244000 SLR @14,@14 0219 00245000 IC @14,SABASRC(,SABAPTR) 0219 00246000 SLR @08,@08 0219 00247000 IC @08,MSGLEVEL+3 0219 00248000 CR @14,@08 0219 00249000 BNL *+6 00250000 LR @14,@08 0219 00251000 STC @14,SABASRC(,SABAPTR) 0219 00252000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00253000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00254000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00255000 OI SABASF1(SABAPTR),B'11100000' 0222 00256000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00257000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0223 00258000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00259000 B LBLSCAN8 0224 00260000 * END; /* INITIAL ANALYSIS ERROR */ 00261000 * END; /* BLSVM0 MF(EXECUTE,TST111) */ 00262000 @RF00216 DS 0H 0227 00263000 * IF SABALAD=ZZ6DCAP THEN/* COMMON AREA XTLST */ 00264000 L @14,SABALAD(,SABAPTR) 0227 00265000 L @08,ZZ2AZZ6P(,R9) 0227 00266000 CL @14,ZZ6DPRP(,@08) 0227 00267000 BL @RT00227 0227 00268000 CL @14,ZZ6DCAP(,@08) 0227 00269000 BL @RF00227 0227 00270000 @RT00227 DS 0H 0228 00271000 * DO; /* BLSVM0 MF(EXECUTE,TST112) */ 00272000 * IF XTLMSBAD>=ZZ6DPRP&XTLMSBAD=ZZ6DCAP THEN 0241 00307000 L @14,XTLMSBAD-1(,XTLSTPTR) 0241 00308000 LA @14,0(,@14) 0241 00309000 L @08,ZZ2AZZ6P(,R9) 0241 00310000 C @14,ZZ6DPRP(,@08) 0241 00311000 BL @RT00241 0241 00312000 C @14,ZZ6DCAP(,@08) 0241 00313000 BL @RF00241 0241 00314000 @RT00241 DS 0H 0242 00315000 * DO; /* INITIAL ANALYSIS ERROR */ 00316000 * ERRFB(TST113)=ZZZ1; 0243 00317000 OI ERRFB+5(SABAPTR),B'10000000' 0243 00318000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST113)); 0244 00319000 SLR @14,@14 0244 00320000 IC @14,SABASRC(,SABAPTR) 0244 00321000 SLR @08,@08 0244 00322000 IC @08,MSGLEVEL+5 0244 00323000 CR @14,@08 0244 00324000 BNL *+6 00325000 LR @14,@08 0244 00326000 STC @14,SABASRC(,SABAPTR) 0244 00327000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00328000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00329000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00330000 OI SABASF1(SABAPTR),B'11100000' 0247 00331000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00332000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0248 00333000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00334000 B LBLSCAN8 0249 00335000 * END; /* INITIAL ANALYSIS ERROR */ 00336000 * END; /* BLSVM0 MF(EXECUTE,TST113) */ 00337000 @RF00241 DS 0H 0252 00338000 * DO; /* BLSVM1 MF(EXECUTE,TST114) */ 00339000 @RC00227 DS 0H 0253 00340000 * IF XTLMSBLN>'13FFFF'X THEN 0253 00341000 CLC XTLMSBLN(3,XTLSTPTR),@CF01379+1 0253 00342000 BNH @RF00253 0253 00343000 * DO; /* MAIN ANALYSIS ERROR */ 00344000 * ERRFB(TST114)=ZZZ1; 0255 00345000 OI ERRFB+6(SABAPTR),B'10000000' 0255 00346000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST114)); 0256 00347000 SLR @14,@14 0256 00348000 IC @14,SABASRC(,SABAPTR) 0256 00349000 SLR @08,@08 0256 00350000 IC @08,MSGLEVEL+6 0256 00351000 CR @14,@08 0256 00352000 BNL *+6 00353000 LR @14,@08 0256 00354000 STC @14,SABASRC(,SABAPTR) 0256 00355000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00356000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0257 00357000 * END; /* MAIN ANALYSIS ERROR */ 00358000 * END; /* BLSVM1 MF(EXECUTE,TST114) */ 00359000 * 0259 00360000 @RF00253 DS 0H 0260 00361000 * /*****************************************************************/ 00362000 * /* */ 00363000 * /* BLSV89--SCAN EXIT MESSAGE TRANSMISSION AND EPILOG */ 00364000 * /* */ 00365000 * /*****************************************************************/ 00366000 * 0260 00367000 *LBLSCAN8: 0260 00368000 * DO; /* BLSV89 */ 00369000 * 0260 00370000 LBLSCAN8 DS 0H 0261 00371000 * /***************************************************************/ 00372000 * /* */ 00373000 * /* BLSV8--TRANSMIT SCAN MESSAGE(S) */ 00374000 * /* */ 00375000 * /***************************************************************/ 00376000 * 0261 00377000 * DO; /* BLSV8 */ 00378000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00379000 OI SABASF1(SABAPTR),B'10000000' 0262 00380000 * IF SABASRC=ZZZFLAGI|SABASRC=ZZ2ASE THEN 0267 00409000 LR @14,SABAPTR 0267 00410000 ALR @14,ERRFNDX 0267 00411000 TM ERRFB-1(@14),B'10000000' 0267 00412000 BNO @RF00267 0267 00413000 SLR @14,@14 0267 00414000 IC @14,MSGLEVEL-1(ERRFNDX) 0267 00415000 SLR @08,@08 0267 00416000 IC @08,ZZ2ASE(,R9) 0267 00417000 CR @14,@08 0267 00418000 BL @RF00267 0267 00419000 * CALL BLSUPUTV(ZZ2,MSGPTR(ERRFNDX)->VRBA); 0268 00420000 ST R9,@AL00001 0268 00421000 LR @14,ERRFNDX 0268 00422000 SLA @14,2 0268 00423000 L @14,MSGPTR-4(@14) 0268 00424000 ST @14,@AL00001+4 0268 00425000 L @08,ZZ2BVTP(,R9) 0268 00426000 L @15,BVTPUTVP(,@08) 0268 00427000 LA @01,@AL00001 0268 00428000 BALR @14,@15 0268 00429000 * END; /* PROCESS UNIQUE MESSAGES */ 00430000 @RF00267 AL ERRFNDX,@CF00051 0269 00431000 C ERRFNDX,@CF00442 0269 00432000 BNH @DL00266 0269 00433000 * END; /* BLSV8 */ 00434000 * 0270 00435000 * /***************************************************************/ 00436000 * /* */ 00437000 * /* BLSV9--SCAN EPILOG */ 00438000 * /* */ 00439000 * /***************************************************************/ 00440000 * 0271 00441000 *EXIT: 0271 00442000 * RETURN CODE(RETC); 0271 00443000 EXIT L @13,4(,@13) 0271 00444000 L @00,@SIZDATD 0271 00445000 LR @01,@11 0271 00446000 BLSUFRES R,LV=(0),A=(1) 00447000 LR @15,@05 0271 00448000 L @14,12(,@13) 0271 00449000 LM @00,@12,20(@13) 0271 00450000 BR @14 0271 00451000 * END; /* BLSV89 */ 00452000 */*BLSVPEND--SCAN EXIT */ 00453000 */*BLSRPEND--DEBUGGING MODULE */ 00454000 */*BLSUPEND--MVS IPCS MODULE */ 00455000 * 0273 00456000 * DECLARE /* COMMON VARIABLES */ 00457000 * I256C CHAR(256) BASED, 0273 00458000 * I031F FIXED(31) BASED, 0273 00459000 * I031P PTR(31) BASED, 0273 00460000 * I015F FIXED(15) BASED, 0273 00461000 * I015P PTR(15) BASED, 0273 00462000 * I008P PTR(8) BASED, 0273 00463000 * I001C CHAR(1) BASED; 0273 00464000 * GENERATE NODEFS NOREFS DATA; 0274 00465000 * END BLSVXTLS /* BLRPEND(BLSVXTLS) */ 00466000 * 0275 00467000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00468000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00469000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00470000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00471000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00472000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00473000 */*%INCLUDE SYSLIB (IKJECT ) */ 00474000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00475000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00476000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00477000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00478000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00479000 */*%INCLUDE SYSLIB (IHAXTLST) */ 00480000 * 0275 00481000 * ; 0275 00482000 @EL00001 L @13,4(,@13) 0275 00483000 @EF00001 L @00,@SIZDATD 0275 00484000 LR @01,@11 0275 00485000 BLSUFRES R,LV=(0),A=(1) 00486000 @ER00001 LM @14,@12,12(@13) 0275 00487000 BR @14 0275 00488000 @DATA DS 0H 00489000 @DATD DSECT 00490000 DS 0F 00491000 @SA00001 DS 18F 00492000 @PC00001 DS 3F 00493000 @AL00001 DS 3A 00494000 BLSVXTLS CSECT 00495000 DS 0F 00496000 @CF00051 DC F'1' 00497000 @CF00442 DC F'7' 00498000 @CH00442 EQU @CF00442+2 00499000 @CF00062 DC F'16' 00500000 @CF01379 DC XL4'13FFFF' 00501000 @DATD DSECT 00502000 DS 0D 00503000 ESAU DS CL694 00504000 ORG ESAU 00505000 ESAURID DS CL2 00506000 @NM00031 DS BL6 00507000 @NM00032 DS CL8 00508000 @NM00033 DS BL8 00509000 ESAURDX DS FL4 00510000 ESAUSYM DS CL31 00511000 ESAUELK DS 0C 00512000 ESAURV1 DS CL1 00513000 ESAUAS DS CL16 00514000 ORG ESAUAS 00515000 ESAUAS0 DS 0C 00516000 ESAUAST DS CL2 00517000 @NM00034 DS BL2 00518000 ESAUAS1 DS FL4 00519000 ESAUAS2 DS FL4 00520000 @NM00035 DS BL4 00521000 ESAUAS9 DS 0C 00522000 ORG ESAU+76 00523000 ESAULAD DS AL4 00524000 ESAUD DS CL60 00525000 ORG ESAUD 00526000 ESAUD00 DS 0C 00527000 ESAUDOF DS FL4 00528000 ESAUDLE DS FL4 00529000 ESAUDOB DS FL1 00530000 ESAUDLB DS FL1 00531000 ESAUDT DS CL34 00532000 ORG ESAUDT 00533000 ESAUDT0 DS 0C 00534000 ESAUDTY DS CL1 00535000 @NM00036 DS BL1 00536000 ESAUDTD DS CL31 00537000 ESAUDTE DS CL1 00538000 ESAUDT9 DS 0C 00539000 ORG ESAUD+44 00540000 ESAUDIM DS FL4 00541000 ESAUDIL DS FL4 00542000 ESAUDF DS BL4 00543000 ORG ESAUDF 00544000 ESAUDFA DS BL1 00545000 @NM00037 EQU ESAUDF+0 00546000 ORG ESAUD+56 00547000 @NM00038 DS BL4 00548000 ESAUD99 DS 0C 00549000 ORG ESAU+140 00550000 ESAUMAD DS AL4 00551000 @NM00039 DS BL16 00552000 ESAUKEY DS BL1 00553000 ESAUF DS BL3 00554000 ORG ESAUF 00555000 ESAUFS DS BL1 00556000 ORG ESAUFS 00557000 ESAUFSC DS BL1 00558000 ESAUFS2 EQU ESAUFS+0 00559000 ESAUFSM EQU ESAUFS+0 00560000 ESAUFSA EQU ESAUFS+0 00561000 ESAUFSP EQU ESAUFS+0 00562000 ESAUFSR EQU ESAUFS+0 00563000 ESAUFSX EQU ESAUFS+0 00564000 ESAUFSS EQU ESAUFS+0 00565000 ORG ESAUF+1 00566000 ESAUFC DS BL1 00567000 ORG ESAUFC 00568000 ESAUFCD DS BL1 00569000 @NM00040 EQU ESAUFC+0 00570000 ORG ESAUF+2 00571000 @NM00041 DS BL1 00572000 ORG ESAU+164 00573000 ESAUABS DS FL4 00574000 @NM00042 DS BL12 00575000 ESAUR DS CL514 00576000 ORG ESAUR 00577000 ESAURL DS FL2 00578000 ESAURT DS CL512 00579000 ORG ESAURT 00580000 ESAURT1 DS CL512 00581000 ORG ESAU+694 00582000 ESAU999 DS 0C 00583000 ORG ESAU+694 00584000 DS CL2 00585000 BUF DS CL16 00586000 BLSVXTLS CSECT 00587000 DS 0F 00588000 @SIZDATD DC AL1(0) 00589000 DC AL3(@ENDDATD-@DATD) 00590000 DS 0D 00591000 @CC00083 DC C'CV' 00592000 MV01 DS CL48 00593000 ORG MV01 00594000 MV01L DC AL2(48) 00595000 @NM00056 DC X'0000' 00596000 MV01T DS CL44 00597000 ORG MV01T 00598000 MV01TA DC CL9'BLS22109I' 00599000 MV01TB DC CL3' ' 00600000 MV01TC DC CL32'XTLST NOT ON DOUBLEWORD BOUNDARY' 00601000 ORG MV01+48 00602000 MV02 DS CL41 00603000 ORG MV02 00604000 MV02L DC AL2(41) 00605000 @NM00057 DC X'0000' 00606000 MV02T DS CL37 00607000 ORG MV02T 00608000 MV02TA DC CL9'BLS22108I' 00609000 MV02TB DC CL3' ' 00610000 MV02TC DC CL25'XTLST STORAGE NOT IN DUMP' 00611000 ORG MV02+41 00612000 DS CL1 00613000 MV03 DS CL64 00614000 ORG MV03 00615000 MV03L DC AL2(64) 00616000 @NM00136 DC X'0000' 00617000 MV03T DS CL60 00618000 ORG MV03T 00619000 MV03TA DC CL9'BLS22110I' 00620000 MV03TB DC CL3' ' 00621000 MV03TC DC CL48'ADDRESS OF XTLST IS LESS THAN ADDRESS OF PRIVATE' 00622000 ORG MV03+64 00623000 MV04 DS CL36 00624000 ORG MV04 00625000 MV04L DC AL2(36) 00626000 @NM00137 DC X'0000' 00627000 MV04T DS CL32 00628000 ORG MV04T 00629000 MV04TA DC CL9'BLS22111I' 00630000 MV04TB DC CL3' ' 00631000 MV04TC DC CL20'XTLNRFAC NOT EQUAL 1' 00632000 ORG MV04+36 00633000 MV05 DS CL63 00634000 ORG MV05 00635000 MV05L DC AL2(63) 00636000 @NM00138 DC X'0000' 00637000 MV05T DS CL59 00638000 ORG MV05T 00639000 MV05TA DC CL9'BLS22112I' 00640000 MV05TB DC CL3' ' 00641000 MV05TC DC CL47'COMMON AREA XTLST DESCRIBES PRIVATE AREA MODULE' 00642000 ORG MV05+63 00643000 DS CL1 00644000 MV06 DS CL63 00645000 ORG MV06 00646000 MV06L DC AL2(63) 00647000 @NM00139 DC X'0000' 00648000 MV06T DS CL59 00649000 ORG MV06T 00650000 MV06TA DC CL9'BLS22113I' 00651000 MV06TB DC CL3' ' 00652000 MV06TC DC CL47'PRIVATE AREA XTLST DESCRIBES COMMON AREA MODULE' 00653000 ORG MV06+63 00654000 DS CL1 00655000 MV07 DS CL47 00656000 ORG MV07 00657000 MV07L DC AL2(47) 00658000 @NM00140 DC X'0000' 00659000 MV07T DS CL43 00660000 ORG MV07T 00661000 MV07TA DC CL9'BLS22114I' 00662000 MV07TB DC CL3' ' 00663000 MV07TC DC CL31'XTLMSBLN GREATER THAN X''13FFFF''' 00664000 ORG MV07+47 00665000 DS CL1 00666000 MSGPTR DC AL4(MV01) 00667000 DC AL4(MV02) 00668000 DC AL4(MV03) 00669000 DC AL4(MV04) 00670000 DC AL4(MV05) 00671000 DC AL4(MV06) 00672000 DC AL4(MV07) 00673000 MSGLEVEL DC AL1(12) 00674000 DC AL1(4) 00675000 DC AL1(12) 00676000 DC AL1(12) 00677000 DC AL1(12) 00678000 DC AL1(12) 00679000 DC AL1(4) 00680000 @DATD DSECT 00681000 SPACE 2 00682000 *********************************************************************** 00683000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00684000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00685000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00686000 *********************************************************************** 00687000 SPACE 00688000 BLSVXTLS CSECT 00689000 ORG 00690000 DS 0D 00691000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSVXTLS+19)/20+7)/8)CL8'BLSVXTLS' 00692000 @DATD DSECT 00693000 DS 0H 00694000 @DATD DSECT 00695000 SPACE 2 00696000 *********************************************************************** 00697000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00698000 *********************************************************************** 00699000 SPACE 00700000 DS 0D 00701000 @DATD DSECT 00702000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00703000 @ENDDATD EQU * 00704000 BLSVXTLS CSECT 00705000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00706000 @01 EQU 01 00707000 @02 EQU 02 00708000 @03 EQU 03 00709000 @04 EQU 04 00710000 @05 EQU 05 00711000 @06 EQU 06 00712000 @07 EQU 07 00713000 @08 EQU 08 00714000 @09 EQU 09 00715000 @10 EQU 10 00716000 @11 EQU 11 00717000 @12 EQU 12 00718000 @13 EQU 13 00719000 @14 EQU 14 00720000 @15 EQU 15 00721000 ERRFNDX EQU @04 00722000 XTLSTPTR EQU @04 00723000 RETC EQU @05 00724000 SABAPTR EQU @03 00725000 R9 EQU @09 00726000 R0 EQU @00 00727000 R1 EQU @01 00728000 R2 EQU @02 00729000 R3 EQU @03 00730000 R4 EQU @04 00731000 R5 EQU @05 00732000 RB EQU @11 00733000 RD EQU @13 00734000 RE EQU @14 00735000 RF EQU @15 00736000 RA EQU @10 00737000 RC EQU @12 00738000 R6 EQU @06 00739000 R7 EQU @07 00740000 R8 EQU @08 00741000 SABA EQU 0 00742000 SABAAS EQU SABA+12 00743000 SABAAST EQU SABAAS 00744000 SABALAD EQU SABA+28 00745000 SABADT EQU SABA+32 00746000 SABAF EQU SABA+68 00747000 SABAFLE EQU SABAF+4 00748000 SABAFT EQU SABAF+10 00749000 SABAFF EQU SABAF+52 00750000 SABASF EQU SABA+128 00751000 SABASF1 EQU SABASF 00752000 SABASF9 EQU SABASF 00753000 SABASFI EQU SABASF 00754000 SABASFS EQU SABASF 00755000 SABAGMT EQU SABA+136 00756000 SABASRC EQU SABA+152 00757000 SABAC EQU SABA+254 00758000 SABACL EQU SABAC 00759000 SABACT EQU SABAC+2 00760000 ESCO EQU 0 00761000 ESCOAS EQU ESCO+60 00762000 ESCOD EQU ESCO+80 00763000 ESCODT EQU ESCOD+10 00764000 ESCODF EQU ESCOD+52 00765000 ESCOF EQU ESCO+161 00766000 ESCOFS EQU ESCOF 00767000 ESCOFC EQU ESCOF+1 00768000 ESCOR EQU ESCO+180 00769000 ESCORT EQU ESCOR+2 00770000 VRBA EQU 0 00771000 VRBAT EQU VRBA+4 00772000 ZZ1 EQU 0 00773000 ZZ1ATTN EQU ZZ1+360 00774000 ZZ1EVE EQU ZZ1ATTN+4 00775000 ZZ1EVEP EQU ZZ1EVE 00776000 ZZ1F EQU ZZ1+368 00777000 ZZ1N EQU ZZ1+1116 00778000 ZZ2 EQU 0 00779000 ZZ2AMD EQU ZZ2 00780000 @NM00070 EQU ZZ2AMD+7 00781000 ZZ2PRT EQU ZZ2+138 00782000 ZZ2PRTT EQU ZZ2PRT+4 00783000 ZZ2PRTT1 EQU ZZ2PRTT+1 00784000 ZZ2A EQU ZZ2+272 00785000 ZZ2ASE EQU ZZ2A+2 00786000 ZZ2AF EQU ZZ2A+16 00787000 ZZ2APID EQU ZZ2A+64 00788000 ZZ2AD EQU ZZ2A+74 00789000 ZZ2ADD EQU ZZ2AD 00790000 ZZ2ADDT EQU ZZ2ADD+2 00791000 ZZ2ADM EQU ZZ2AD+46 00792000 ZZ2ADMT EQU ZZ2ADM+2 00793000 ZZ2ADP EQU ZZ2AD+56 00794000 ZZ2ADPT EQU ZZ2ADP+2 00795000 ZZ2AZZ6P EQU ZZ2A+140 00796000 ZZ2AQAS EQU ZZ2A+144 00797000 ZZ2AQD EQU ZZ2A+160 00798000 ZZ2AQDT EQU ZZ2AQD+10 00799000 ZZ2AQDF EQU ZZ2AQD+52 00800000 ZZ2STG EQU ZZ2+960 00801000 ZZ2TOD EQU ZZ2+968 00802000 ZZ2ALLOP EQU ZZ2+992 00803000 ZZ2FREEP EQU ZZ2+996 00804000 ZZ2FF19P EQU ZZ2+1000 00805000 ZZ2FRE1P EQU ZZ2+1004 00806000 ZZ2FF18P EQU ZZ2+1008 00807000 ZZ2DYNAP EQU ZZ2+1012 00808000 ZZ2ZZ2CP EQU ZZ2+1016 00809000 ZZ2ZZ2DP EQU ZZ2+1020 00810000 ZZ2STAIP EQU ZZ2+1024 00811000 ZZ2FF02P EQU ZZ2+1028 00812000 ZZ2GETLP EQU ZZ2+1032 00813000 ZZ2PARSP EQU ZZ2+1036 00814000 ZZ2PTGTP EQU ZZ2+1040 00815000 ZZ2PUTLP EQU ZZ2+1044 00816000 ZZ2SCANP EQU ZZ2+1048 00817000 ZZ2STCKP EQU ZZ2+1052 00818000 ZZ2TRMOP EQU ZZ2+1064 00819000 ZZ2TRMVP EQU ZZ2+1068 00820000 ZZ2PUTNP EQU ZZ2+1084 00821000 ZZ2TRMNP EQU ZZ2+1088 00822000 ZZ2ZZ1P EQU ZZ2+1264 00823000 ZZ2BVTP EQU ZZ2+1280 00824000 ZZ2RVTP EQU ZZ2+1284 00825000 ZZ2CPPL EQU ZZ2+1292 00826000 ZZ2CPPLC EQU ZZ2CPPL 00827000 ZZ2ESSYP EQU ZZ2+1328 00828000 ZZ2ITR EQU ZZ2+2840 00829000 ZZ2ITRE EQU ZZ2ITR+16 00830000 ZZ2ITSE EQU ZZ2+2864 00831000 ZZ2ES EQU ZZ2+2872 00832000 ZZ2AMDX EQU ZZ2+7160 00833000 ZZ2AXO EQU ZZ2+7934 00834000 ZZ2AXOT EQU ZZ2AXO+2 00835000 CMD EQU 0 00836000 CMDT EQU CMD+4 00837000 PSCB EQU 0 00838000 PSCBATR1 EQU PSCB+16 00839000 ECT EQU 0 00840000 ECTSWS EQU ECT+28 00841000 ECTSWS2 EQU ECT+40 00842000 ECTSWS21 EQU ECTSWS2 00843000 UPT EQU 0 00844000 UPTSWS EQU UPT+12 00845000 SA EQU 0 00846000 SA1 EQU SA 00847000 SAR EQU SA+12 00848000 SAR1 EQU SAR+12 00849000 BLSUPUTV EQU 0 00850000 BVT EQU 0 00851000 BVTPUTLP EQU BVT+4 00852000 BVTPUTOP EQU BVT+12 00853000 BVTPUTTP EQU BVT+16 00854000 BVTPUTVP EQU BVT+20 00855000 BVTPUTAP EQU BVT+24 00856000 BVTPRTTP EQU BVT+28 00857000 BVTPRTAP EQU BVT+32 00858000 BVTPUTDP EQU BVT+36 00859000 BVTMONP EQU BVT+40 00860000 BVTMON2P EQU BVT+44 00861000 BVTVSARP EQU BVT+48 00862000 BVTVSENP EQU BVT+64 00863000 BVTVSERP EQU BVT+68 00864000 BVTVSGEP EQU BVT+72 00865000 BVTVSGUP EQU BVT+76 00866000 BVTVSPOP EQU BVT+80 00867000 BVTVSPUP EQU BVT+84 00868000 BVTMPKNP EQU BVT+104 00869000 BVTMONLP EQU BVT+108 00870000 BVTPUTCP EQU BVT+132 00871000 BVTMPK1P EQU BVT+136 00872000 BVTZZ2RP EQU BVT+140 00873000 BVTPGMRP EQU BVT+144 00874000 BVTMONAP EQU BVT+148 00875000 BVTBLDDP EQU BVT+152 00876000 BVTBLDLP EQU BVT+156 00877000 BVTPGMCP EQU BVT+160 00878000 BVTPGMDP EQU BVT+164 00879000 BVTPGMLP EQU BVT+168 00880000 BVTMONCP EQU BVT+180 00881000 BVTMONDP EQU BVT+184 00882000 BVTMONTP EQU BVT+188 00883000 BVTPARIP EQU BVT+192 00884000 BVTPARUP EQU BVT+196 00885000 BVTPRTNP EQU BVT+204 00886000 BVTVSCRP EQU BVT+208 00887000 BVTVSMRP EQU BVT+212 00888000 BVTMONXP EQU BVT+216 00889000 BVTTRMAP EQU BVT+228 00890000 ZZ6 EQU 0 00891000 ZZ6D EQU ZZ6+128 00892000 ZZ6DD EQU ZZ6D+8 00893000 ZZ6DDT EQU ZZ6DD+4 00894000 ZZ6DQA EQU ZZ6D+68 00895000 ZZ6DF EQU ZZ6D+92 00896000 ZZ6DPRP EQU ZZ6D+108 00897000 ZZ6DCAP EQU ZZ6D+112 00898000 ZZ6B EQU ZZ6+768 00899000 BLSRACCQ EQU 0 00900000 BLSRSAPC EQU 0 00901000 RVT EQU 0 00902000 RVTADDRP EQU RVT 00903000 RVTT01P EQU RVT+4 00904000 RVTTAP EQU RVT+8 00905000 RVTTBP EQU RVT+12 00906000 RVTTCP EQU RVT+16 00907000 RVTTFP EQU RVT+24 00908000 RVTTYP EQU RVT+40 00909000 RVTT02P EQU RVT+48 00910000 RVTT03P EQU RVT+52 00911000 RVTT04P EQU RVT+56 00912000 RVTACCLP EQU RVT+60 00913000 RVTRACCP EQU RVT+64 00914000 RVTTLP EQU RVT+68 00915000 RVTTMP EQU RVT+72 00916000 RVTTUP EQU RVT+80 00917000 RVTESGEP EQU RVT+84 00918000 RVTESGUP EQU RVT+88 00919000 RVTESARP EQU RVT+92 00920000 RVTRAARP EQU RVT+96 00921000 RVTRAGEP EQU RVT+100 00922000 RVTADDPP EQU RVT+104 00923000 RVTACCQP EQU RVT+108 00924000 RVTSAGUP EQU RVT+124 00925000 RVTSAGEP EQU RVT+128 00926000 RVTESCKP EQU RVT+132 00927000 RVTMSGAP EQU RVT+136 00928000 RVTMSGDP EQU RVT+140 00929000 RVTADDTP EQU RVT+160 00930000 RVTADDUP EQU RVT+164 00931000 RVTADD1P EQU RVT+176 00932000 RVTADD2P EQU RVT+180 00933000 RVTRSAGP EQU RVT+184 00934000 RVTMSGBP EQU RVT+188 00935000 RVTADDSP EQU RVT+192 00936000 RVTADD3P EQU RVT+196 00937000 RVTT05P EQU RVT+200 00938000 RVTPADSP EQU RVT+204 00939000 RVTTRP EQU RVT+228 00940000 RVTADD4P EQU RVT+232 00941000 RVTSAPCP EQU RVT+236 00942000 RVTSAARP EQU RVT+240 00943000 RVTSAGNP EQU RVT+244 00944000 RVTT06P EQU RVT+248 00945000 RVTSAGCP EQU RVT+252 00946000 RVTSAGQP EQU RVT+256 00947000 RVTESGCP EQU RVT+260 00948000 RVTESGQP EQU RVT+264 00949000 RVTDUCKP EQU RVT+276 00950000 RVTDUCCP EQU RVT+280 00951000 XTLST EQU 0 00952000 XTLLNTH EQU XTLST 00953000 XTLNRFAC EQU XTLST+4 00954000 XTLMSBLA EQU XTLST+8 00955000 XTLMSBLN EQU XTLMSBLA+1 00956000 XTLMSBAA EQU XTLST+12 00957000 XTLMSBAD EQU XTLMSBAA+1 00958000 BLSRACC EQU 0 00959000 BLSRACCL EQU 0 00960000 BLSRADDP EQU 0 00961000 BLSRADDR EQU 0 00962000 BLSRADDS EQU 0 00963000 BLSRADDT EQU 0 00964000 BLSRADDU EQU 0 00965000 BLSRADD1 EQU 0 00966000 BLSRADD2 EQU 0 00967000 BLSRADD3 EQU 0 00968000 BLSRADD4 EQU 0 00969000 BLSRDUCC EQU 0 00970000 BLSRDUCK EQU 0 00971000 BLSRESAR EQU 0 00972000 BLSRESCK EQU 0 00973000 BLSRESGC EQU 0 00974000 BLSRESGE EQU 0 00975000 BLSRESGQ EQU 0 00976000 BLSRESGU EQU 0 00977000 BLSRMSGA EQU 0 00978000 BLSRMSGB EQU 0 00979000 BLSRMSGD EQU 0 00980000 BLSRPADS EQU 0 00981000 BLSRRAAR EQU 0 00982000 BLSRRAGE EQU 0 00983000 BLSRSAAR EQU 0 00984000 BLSRSAG EQU 0 00985000 BLSRSAGC EQU 0 00986000 BLSRSAGE EQU 0 00987000 BLSRSAGN EQU 0 00988000 BLSRSAGQ EQU 0 00989000 BLSRSAGU EQU 0 00990000 BLSTA EQU 0 00991000 BLSTB EQU 0 00992000 BLSTC EQU 0 00993000 BLSTF EQU 0 00994000 BLSTL EQU 0 00995000 BLSTM EQU 0 00996000 BLSTR EQU 0 00997000 BLSTU EQU 0 00998000 BLSTY EQU 0 00999000 BLST01 EQU 0 01000000 BLST02 EQU 0 01001000 BLST03 EQU 0 01002000 BLST04 EQU 0 01003000 BLST05 EQU 0 01004000 BLST06 EQU 0 01005000 BLSUALLO EQU 0 01006000 BLSUBLDD EQU 0 01007000 BLSUBLDL EQU 0 01008000 BLSUDYNA EQU 0 01009000 BLSUFREE EQU 0 01010000 BLSUFRE1 EQU 0 01011000 BLSUMON EQU 0 01012000 BLSUMONA EQU 0 01013000 BLSUMONC EQU 0 01014000 BLSUMOND EQU 0 01015000 BLSUMONL EQU 0 01016000 BLSUMONT EQU 0 01017000 BLSUMONX EQU 0 01018000 BLSUMON2 EQU 0 01019000 BLSUMPKN EQU 0 01020000 BLSUMPK1 EQU 0 01021000 BLSUPARI EQU 0 01022000 BLSUPARU EQU 0 01023000 BLSUPGMC EQU 0 01024000 BLSUPGMD EQU 0 01025000 BLSUPGML EQU 0 01026000 BLSUPGMR EQU 0 01027000 BLSUPRTA EQU 0 01028000 BLSUPRTN EQU 0 01029000 BLSUPRTT EQU 0 01030000 BLSUPUTA EQU 0 01031000 BLSUPUTC EQU 0 01032000 BLSUPUTD EQU 0 01033000 BLSUPUTL EQU 0 01034000 BLSUPUTN EQU 0 01035000 BLSUPUTO EQU 0 01036000 BLSUPUTT EQU 0 01037000 BLSUSTAI EQU 0 01038000 BLSUTRMA EQU 0 01039000 BLSUTRMN EQU 0 01040000 BLSUTRMO EQU 0 01041000 BLSUTRMV EQU 0 01042000 BLSUVSAR EQU 0 01043000 BLSUVSCR EQU 0 01044000 BLSUVSEN EQU 0 01045000 BLSUVSER EQU 0 01046000 BLSUVSGE EQU 0 01047000 BLSUVSGU EQU 0 01048000 BLSUVSMR EQU 0 01049000 BLSUVSPO EQU 0 01050000 BLSUVSPU EQU 0 01051000 BLSUZZ2C EQU 0 01052000 BLSUZZ2D EQU 0 01053000 BLSUZZ2R EQU 0 01054000 IKJEFF02 EQU 0 01055000 IKJEFF18 EQU 0 01056000 IKJEFF19 EQU 0 01057000 IKJGETL EQU 0 01058000 IKJPARS EQU 0 01059000 IKJPTGT EQU 0 01060000 IKJPUTL EQU 0 01061000 IKJSCAN EQU 0 01062000 IKJSTCK EQU 0 01063000 I001C EQU 0 01064000 I008P EQU 0 01065000 I015F EQU 0 01066000 I015P EQU 0 01067000 I031F EQU 0 01068000 I031P EQU 0 01069000 I256C EQU 0 01070000 PZ2 EQU 0 01071000 SAPA EQU 0 01072000 SAPAAS EQU SAPA+12 01073000 SAPADT EQU SAPA+32 01074000 SAPAF EQU SAPA+68 01075000 SAPAFT EQU SAPAF+10 01076000 SAPAFF EQU SAPAF+52 01077000 SAPASF EQU SAPA+128 01078000 SAPAC EQU SAPA+254 01079000 SAPACT EQU SAPAC+2 01080000 SABK EQU 0 01081000 SABKAS EQU SABK+12 01082000 SABKDT EQU SABK+32 01083000 SABKF EQU SABK+68 01084000 SABKFT EQU SABKF+10 01085000 SABKFF EQU SABKF+52 01086000 SABKSF EQU SABK+128 01087000 SABKC EQU SABK+254 01088000 SABKCT EQU SABKC+2 01089000 CPPL EQU ZZ2CPPL 01090000 CPPLUPT EQU CPPL+4 01091000 CPPLPSCB EQU CPPL+8 01092000 CPPLECT EQU CPPL+12 01093000 ERRF EQU SABACT 01094000 ERRFB EQU ERRF 01095000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01096000 @NM00141 EQU ERRF 01097000 ERRFS EQU ERRF 01098000 ERRFN EQU ERRF 01099000 ERRFD EQU ERRF 01100000 CPPLCBUF EQU CPPL 01101000 SABK999 EQU SABK+3072 01102000 SABKCT1 EQU SABKCT 01103000 SABKCL EQU SABKC 01104000 @NM00030 EQU SABK+153 01105000 SABKSRC EQU SABK+152 01106000 SABKPGV EQU SABK+144 01107000 SABKGMT EQU SABK+136 01108000 @NM00029 EQU SABKSF 01109000 SABKSFS EQU SABKSF 01110000 SABKSFI EQU SABKSF 01111000 SABKSF9 EQU SABKSF 01112000 SABKSF1 EQU SABKSF 01113000 SABKF99 EQU SABKF+60 01114000 @NM00028 EQU SABKF+56 01115000 @NM00027 EQU SABKFF 01116000 SABKFFA EQU SABKFF 01117000 SABKFIL EQU SABKF+48 01118000 SABKFIM EQU SABKF+44 01119000 SABKFT9 EQU SABKFT+34 01120000 SABKFTE EQU SABKFT+33 01121000 SABKFTD EQU SABKFT+2 01122000 @NM00026 EQU SABKFT+1 01123000 SABKFTY EQU SABKFT 01124000 SABKFT0 EQU SABKFT 01125000 SABKFLB EQU SABKF+9 01126000 SABKFOB EQU SABKF+8 01127000 SABKFLE EQU SABKF+4 01128000 SABKFOF EQU SABKF 01129000 SABKF00 EQU SABKF 01130000 @NM00025 EQU SABK+66 01131000 SABKELK EQU SABK+66 01132000 SABKDT9 EQU SABKDT+34 01133000 SABKDTE EQU SABKDT+33 01134000 SABKDTD EQU SABKDT+2 01135000 @NM00024 EQU SABKDT+1 01136000 SABKDTY EQU SABKDT 01137000 SABKDT0 EQU SABKDT 01138000 SABKLAD EQU SABK+28 01139000 SABKAS9 EQU SABKAS+16 01140000 @NM00023 EQU SABKAS+12 01141000 SABKAS2 EQU SABKAS+8 01142000 SABKAS1 EQU SABKAS+4 01143000 @NM00022 EQU SABKAS+2 01144000 SABKAST EQU SABKAS 01145000 SABKAS0 EQU SABKAS 01146000 SABKRDX EQU SABK+8 01147000 @NM00021 EQU SABK+2 01148000 SABKRID EQU SABK 01149000 SAPA999 EQU SAPA+3072 01150000 SAPACT1 EQU SAPACT 01151000 SAPACL EQU SAPAC 01152000 @NM00010 EQU SAPA+153 01153000 SAPASRC EQU SAPA+152 01154000 SAPAPGV EQU SAPA+144 01155000 SAPAGMT EQU SAPA+136 01156000 @NM00009 EQU SAPASF 01157000 SAPASFS EQU SAPASF 01158000 SAPASFI EQU SAPASF 01159000 SAPASF9 EQU SAPASF 01160000 SAPASF1 EQU SAPASF 01161000 SAPAF99 EQU SAPAF+60 01162000 @NM00008 EQU SAPAF+56 01163000 @NM00007 EQU SAPAFF 01164000 SAPAFFA EQU SAPAFF 01165000 SAPAFIL EQU SAPAF+48 01166000 SAPAFIM EQU SAPAF+44 01167000 SAPAFT9 EQU SAPAFT+34 01168000 SAPAFTE EQU SAPAFT+33 01169000 SAPAFTD EQU SAPAFT+2 01170000 @NM00006 EQU SAPAFT+1 01171000 SAPAFTY EQU SAPAFT 01172000 SAPAFT0 EQU SAPAFT 01173000 SAPAFLB EQU SAPAF+9 01174000 SAPAFOB EQU SAPAF+8 01175000 SAPAFLE EQU SAPAF+4 01176000 SAPAFOF EQU SAPAF 01177000 SAPAF00 EQU SAPAF 01178000 @NM00005 EQU SAPA+66 01179000 SAPAELK EQU SAPA+66 01180000 SAPADT9 EQU SAPADT+34 01181000 SAPADTE EQU SAPADT+33 01182000 SAPADTD EQU SAPADT+2 01183000 @NM00004 EQU SAPADT+1 01184000 SAPADTY EQU SAPADT 01185000 SAPADT0 EQU SAPADT 01186000 SAPALAD EQU SAPA+28 01187000 SAPAAS9 EQU SAPAAS+16 01188000 @NM00003 EQU SAPAAS+12 01189000 SAPAAS2 EQU SAPAAS+8 01190000 SAPAAS1 EQU SAPAAS+4 01191000 @NM00002 EQU SAPAAS+2 01192000 SAPAAST EQU SAPAAS 01193000 SAPAAS0 EQU SAPAAS 01194000 SAPARDX EQU SAPA+8 01195000 @NM00001 EQU SAPA+2 01196000 SAPARID EQU SAPA 01197000 @NM00135 EQU XTLMSBAA 01198000 @NM00134 EQU XTLMSBLA 01199000 RVT99999 EQU RVT+384 01200000 RVT0096P EQU RVT+380 01201000 RVT0095P EQU RVT+376 01202000 RVT0094P EQU RVT+372 01203000 RVT0093P EQU RVT+368 01204000 RVT0092P EQU RVT+364 01205000 RVT0091P EQU RVT+360 01206000 RVT0090P EQU RVT+356 01207000 RVT0089P EQU RVT+352 01208000 RVT0088P EQU RVT+348 01209000 RVT0087P EQU RVT+344 01210000 RVT0086P EQU RVT+340 01211000 RVT0085P EQU RVT+336 01212000 RVT0084P EQU RVT+332 01213000 RVT0083P EQU RVT+328 01214000 RVT0082P EQU RVT+324 01215000 RVT0081P EQU RVT+320 01216000 RVT0080P EQU RVT+316 01217000 RVT0079P EQU RVT+312 01218000 RVT0078P EQU RVT+308 01219000 RVT0077P EQU RVT+304 01220000 RVT0076P EQU RVT+300 01221000 RVT0075P EQU RVT+296 01222000 RVT0074P EQU RVT+292 01223000 RVT0073P EQU RVT+288 01224000 RVT0072P EQU RVT+284 01225000 RVTDTUTP EQU RVT+272 01226000 RVTDTMTP EQU RVT+268 01227000 RVT0057P EQU RVT+224 01228000 RVT0056P EQU RVT+220 01229000 RVT0055P EQU RVT+216 01230000 RVT0054P EQU RVT+212 01231000 RVT0053P EQU RVT+208 01232000 RVT0044P EQU RVT+172 01233000 RVT0043P EQU RVT+168 01234000 RVT0040P EQU RVT+156 01235000 RVT0039P EQU RVT+152 01236000 RVT0038P EQU RVT+148 01237000 RVT0037P EQU RVT+144 01238000 RVT0031P EQU RVT+120 01239000 RVT0030P EQU RVT+116 01240000 RVT0029P EQU RVT+112 01241000 RVT0020P EQU RVT+76 01242000 RVT0012P EQU RVT+44 01243000 RVT0010P EQU RVT+36 01244000 RVT0009P EQU RVT+32 01245000 RVT0008P EQU RVT+28 01246000 RVT0006P EQU RVT+20 01247000 ZZ69999 EQU ZZ6+1792 01248000 ZZ6BRB EQU ZZ6B+12 01249000 ZZ6BRC EQU ZZ6B+8 01250000 @NM00133 EQU ZZ6B+6 01251000 ZZ6BFL EQU ZZ6B+4 01252000 ZZ6BDA EQU ZZ6B 01253000 @NM00132 EQU ZZ6+540 01254000 ZZ6BUFI EQU ZZ6+536 01255000 ZZ6BUFP EQU ZZ6+532 01256000 ZZ6FILE EQU ZZ6+524 01257000 ZZ6BUFB EQU ZZ6+520 01258000 ZZ6BUFL EQU ZZ6+518 01259000 ZZ6BUFN EQU ZZ6+516 01260000 ZZ6ZZ6P EQU ZZ6+512 01261000 @NM00131 EQU ZZ6+256 01262000 ZZ6D999 EQU ZZ6D+128 01263000 @NM00130 EQU ZZ6D+116 01264000 ZZ6DDA2 EQU ZZ6D+104 01265000 ZZ6DDA1 EQU ZZ6D+100 01266000 @NM00129 EQU ZZ6DF 01267000 ZZ6DFSU EQU ZZ6DF 01268000 ZZ6DFST EQU ZZ6DF 01269000 ZZ6DFAB EQU ZZ6DF 01270000 ZZ6DFMP EQU ZZ6DF 01271000 ZZ6DFDU EQU ZZ6DF 01272000 ZZ6DFBS EQU ZZ6DF 01273000 ZZ6DQ2 EQU ZZ6D+88 01274000 ZZ6DQ1 EQU ZZ6D+84 01275000 ZZ6DQA9 EQU ZZ6DQA+16 01276000 @NM00128 EQU ZZ6DQA+12 01277000 ZZ6DQA2 EQU ZZ6DQA+8 01278000 ZZ6DQA1 EQU ZZ6DQA+4 01279000 @NM00127 EQU ZZ6DQA+2 01280000 ZZ6DQAT EQU ZZ6DQA 01281000 ZZ6DQA0 EQU ZZ6DQA 01282000 ZZ6DRDX EQU ZZ6D+64 01283000 ZZ6DELK EQU ZZ6D+64 01284000 ZZ6DMEM EQU ZZ6D+56 01285000 ZZ6DDT1 EQU ZZ6DDT 01286000 ZZ6DDO EQU ZZ6DD+2 01287000 ZZ6DDL EQU ZZ6DD 01288000 @NM00126 EQU ZZ6D+2 01289000 ZZ6DRID EQU ZZ6D 01290000 ZZ6RDCB EQU ZZ6 01291000 ZZ60000 EQU ZZ6 01292000 BVT99999 EQU BVT+256 01293000 BVT0064P EQU BVT+252 01294000 BVT0063P EQU BVT+248 01295000 BVT0062P EQU BVT+244 01296000 BVT0061P EQU BVT+240 01297000 BVT0060P EQU BVT+236 01298000 BVT0059P EQU BVT+232 01299000 BVT0057P EQU BVT+224 01300000 BVT0056P EQU BVT+220 01301000 BVTSTBLP EQU BVT+200 01302000 BVT0045P EQU BVT+176 01303000 BVT0044P EQU BVT+172 01304000 BVT0033P EQU BVT+128 01305000 BVT0032P EQU BVT+124 01306000 BVT0031P EQU BVT+120 01307000 BVT0030P EQU BVT+116 01308000 BVT0029P EQU BVT+112 01309000 BVT0026P EQU BVT+100 01310000 BVT0025P EQU BVT+96 01311000 BVT0024P EQU BVT+92 01312000 BVT0023P EQU BVT+88 01313000 BVT0016P EQU BVT+60 01314000 BVT0015P EQU BVT+56 01315000 BVT0014P EQU BVT+52 01316000 BVT0003P EQU BVT+8 01317000 BVT0001P EQU BVT 01318000 SA99 EQU SA+72 01319000 SARC EQU SAR+56 01320000 SARB EQU SAR+52 01321000 SARA EQU SAR+48 01322000 SAR9 EQU SAR+44 01323000 SAR8 EQU SAR+40 01324000 SAR7 EQU SAR+36 01325000 SAR6 EQU SAR+32 01326000 SAR5 EQU SAR+28 01327000 SAR4 EQU SAR+24 01328000 SAR3 EQU SAR+20 01329000 SAR2 EQU SAR+16 01330000 SAR0 EQU SAR+8 01331000 SARF EQU SAR+4 01332000 SARE EQU SAR 01333000 SAFWD EQU SA+8 01334000 SABAK EQU SA+4 01335000 SA1L EQU SA1+1 01336000 SA1P EQU SA1 01337000 UPTPREFL EQU UPT+23 01338000 UPTPREFX EQU UPT+16 01339000 @NM00125 EQU UPT+15 01340000 UPTLDEL EQU UPT+14 01341000 UPTCDEL EQU UPT+13 01342000 UPTWTP EQU UPTSWS 01343000 UPTMODE EQU UPTSWS 01344000 UPTALD EQU UPTSWS 01345000 UPTPAUS EQU UPTSWS 01346000 UPTNCOM EQU UPTSWS 01347000 UPTMID EQU UPTSWS 01348000 UPTNPRM EQU UPTSWS 01349000 UPTRCVR EQU UPTSWS 01350000 UPTUSER EQU UPT+2 01351000 @NM00124 EQU UPT 01352000 @NM00123 EQU ECT+52 01353000 @NM00122 EQU ECT+48 01354000 @NM00121 EQU ECT+44 01355000 @NM00120 EQU ECTSWS2+1 01356000 @NM00119 EQU ECTSWS21 01357000 ECTTABND EQU ECTSWS21 01358000 ECTDEFCS EQU ECTSWS21 01359000 ECTBKPB EQU ECT+36 01360000 ECTUSER EQU ECT+32 01361000 ECTDDNUM EQU ECT+29 01362000 ECTATTN EQU ECTSWS 01363000 ECTBKGRD EQU ECTSWS 01364000 ECTNNOT EQU ECTSWS 01365000 ECTNMAL EQU ECTSWS 01366000 ECTLOGF EQU ECTSWS 01367000 ECTATRM EQU ECTSWS 01368000 @NM00118 EQU ECTSWS 01369000 ECTNOPD EQU ECTSWS 01370000 ECTSCMD EQU ECT+20 01371000 ECTPCMD EQU ECT+12 01372000 ECTSMSG EQU ECT+9 01373000 ECTMSGF EQU ECT+8 01374000 ECTIOWA EQU ECT+4 01375000 ECTRTCD EQU ECT+1 01376000 ECTRCDF EQU ECT 01377000 PSCBU EQU PSCB+64 01378000 PSCBRSZ EQU PSCB+60 01379000 PSCBLINE EQU PSCB+59 01380000 PSCBCHAR EQU PSCB+58 01381000 PSCBUPTL EQU PSCB+56 01382000 PSCBUPT EQU PSCB+52 01383000 PSCBRLGB EQU PSCB+48 01384000 PSCBDEST EQU PSCB+40 01385000 @NM00117 EQU PSCB+36 01386000 @NM00116 EQU PSCB+32 01387000 @NM00115 EQU PSCB+28 01388000 PSCBLTI2 EQU PSCB+24 01389000 PSCBLTIM EQU PSCB+20 01390000 PSCBATR2 EQU PSCB+18 01391000 @NM00114 EQU PSCBATR1 01392000 @NM00113 EQU PSCBATR1 01393000 @NM00112 EQU PSCBATR1 01394000 PSCBATTN EQU PSCBATR1 01395000 PSCBVMNT EQU PSCBATR1 01396000 PSCBJCL EQU PSCBATR1 01397000 PSCBACCT EQU PSCBATR1 01398000 PSCBCTRL EQU PSCBATR1 01399000 PSCBGPNM EQU PSCB+8 01400000 PSCBUSRL EQU PSCB+7 01401000 PSCBUSER EQU PSCB 01402000 CMDT1 EQU CMDT 01403000 CMDO EQU CMD+2 01404000 CMDL EQU CMD 01405000 ZZ299999 EQU ZZ2+8192 01406000 ZZ2AXOT1 EQU ZZ2AXOT 01407000 ZZ2AXOL EQU ZZ2AXO 01408000 @NM00111 EQU ZZ2+7288 01409000 @NM00110 EQU ZZ2AMDX+4 01410000 ZZ2AMDXC EQU ZZ2AMDX 01411000 ZZ2HSD EQU ZZ2+3056 01412000 @NM00109 EQU ZZ2ES 01413000 @NM00108 EQU ZZ2+2868 01414000 ZZ2ITSEC EQU ZZ2ITSE+1 01415000 @NM00107 EQU ZZ2ITSE 01416000 ZZ2ITSEP EQU ZZ2ITSE 01417000 ZZ2ITSEW EQU ZZ2ITSE 01418000 @NM00106 EQU ZZ2ITR+20 01419000 ZZ2ITREC EQU ZZ2ITRE+1 01420000 @NM00105 EQU ZZ2ITRE 01421000 ZZ2ITREP EQU ZZ2ITRE 01422000 ZZ2ITREW EQU ZZ2ITRE 01423000 @NM00104 EQU ZZ2ITR+9 01424000 ZZ2ITRRC EQU ZZ2ITR+8 01425000 ZZ2ITR2P EQU ZZ2ITR+4 01426000 ZZ2ITRPP EQU ZZ2ITR 01427000 @NM00103 EQU ZZ2+1544 01428000 ZZ2PGM EQU ZZ2+1536 01429000 @NM00102 EQU ZZ2+1526 01430000 ZZ2CW EQU ZZ2+1524 01431000 @NM00101 EQU ZZ2+1504 01432000 @NM00100 EQU ZZ2+1352 01433000 ZZ2FFSYP EQU ZZ2+1348 01434000 ZZ2SASYP EQU ZZ2+1344 01435000 ZZ2RDSYP EQU ZZ2+1340 01436000 ZZ2RASYP EQU ZZ2+1336 01437000 ZZ2PHSYP EQU ZZ2+1332 01438000 ZZ200SYP EQU ZZ2+1324 01439000 ZZ2SCWP EQU ZZ2+1320 01440000 ZZ2TTLP EQU ZZ2+1316 01441000 ZZ2LOADP EQU ZZ2+1312 01442000 ZZ2VRESP EQU ZZ2+1308 01443000 ZZ2CPPLE EQU ZZ2CPPL+12 01444000 ZZ2CPPLP EQU ZZ2CPPL+8 01445000 ZZ2CPPLU EQU ZZ2CPPL+4 01446000 ZZ2VRSAP EQU ZZ2+1288 01447000 ZZ2DVTP EQU ZZ2+1276 01448000 @NM00099 EQU ZZ2+1272 01449000 @NM00098 EQU ZZ2+1268 01450000 ZZ2RPLP EQU ZZ2+1260 01451000 ZZ2TCBP EQU ZZ2+1256 01452000 @NM00097 EQU ZZ2+1252 01453000 ZZ2ZZ2P EQU ZZ2+1248 01454000 @NM00096 EQU ZZ2+1112 01455000 ZZ2FPDRP EQU ZZ2+1108 01456000 ZZ2FDSDP EQU ZZ2+1104 01457000 ZZ2APDRP EQU ZZ2+1100 01458000 ZZ2ADSDP EQU ZZ2+1096 01459000 ZZ2ENQ0P EQU ZZ2+1092 01460000 @NM00095 EQU ZZ2+1080 01461000 ZZ2MSG0P EQU ZZ2+1076 01462000 ZZ2FT25P EQU ZZ2+1072 01463000 ZZ2MSGSP EQU ZZ2+1060 01464000 ZZ2ALOCP EQU ZZ2+1056 01465000 @NM00094 EQU ZZ2+976 01466000 ZZ2STGN EQU ZZ2STG+4 01467000 ZZ2STGP EQU ZZ2STG 01468000 @NM00093 EQU ZZ2+952 01469000 ZZ2SCMDE EQU ZZ2+944 01470000 ZZ2SCMDN EQU ZZ2+936 01471000 ZZ2IDENT EQU ZZ2+928 01472000 ZZ2A9999 EQU ZZ2A+656 01473000 @NM00092 EQU ZZ2A+224 01474000 @NM00091 EQU ZZ2A+220 01475000 ZZ2AQD99 EQU ZZ2AQD+60 01476000 @NM00090 EQU ZZ2AQD+56 01477000 @NM00089 EQU ZZ2AQDF 01478000 ZZ2AQDFA EQU ZZ2AQDF 01479000 ZZ2AQDIL EQU ZZ2AQD+48 01480000 ZZ2AQDIM EQU ZZ2AQD+44 01481000 ZZ2AQDT9 EQU ZZ2AQDT+34 01482000 ZZ2AQDTE EQU ZZ2AQDT+33 01483000 ZZ2AQDTD EQU ZZ2AQDT+2 01484000 @NM00088 EQU ZZ2AQDT+1 01485000 ZZ2AQDTY EQU ZZ2AQDT 01486000 ZZ2AQDT0 EQU ZZ2AQDT 01487000 ZZ2AQDLB EQU ZZ2AQD+9 01488000 ZZ2AQDOB EQU ZZ2AQD+8 01489000 ZZ2AQDLE EQU ZZ2AQD+4 01490000 ZZ2AQDOF EQU ZZ2AQD 01491000 ZZ2AQD00 EQU ZZ2AQD 01492000 ZZ2AQAS9 EQU ZZ2AQAS+16 01493000 @NM00087 EQU ZZ2AQAS+12 01494000 ZZ2AQAS2 EQU ZZ2AQAS+8 01495000 ZZ2AQAS1 EQU ZZ2AQAS+4 01496000 @NM00086 EQU ZZ2AQAS+2 01497000 ZZ2AQAST EQU ZZ2AQAS 01498000 ZZ2AQAS0 EQU ZZ2AQAS 01499000 ZZ2ADPTA EQU ZZ2ADPT 01500000 ZZ2ADPL EQU ZZ2ADP 01501000 ZZ2ADMTA EQU ZZ2ADMT 01502000 ZZ2ADML EQU ZZ2ADM 01503000 ZZ2ADDTA EQU ZZ2ADDT 01504000 ZZ2ADDL EQU ZZ2ADD 01505000 @NM00085 EQU ZZ2A+72 01506000 ZZ2APIDB EQU ZZ2APID+3 01507000 ZZ2APIDA EQU ZZ2APID 01508000 @NM00084 EQU ZZ2A+24 01509000 @NM00083 EQU ZZ2AF+5 01510000 ZZ2AFX EQU ZZ2AF+5 01511000 @NM00082 EQU ZZ2AF+3 01512000 ZZ2AFS EQU ZZ2AF+2 01513000 ZZ2AFD EQU ZZ2AF+2 01514000 ZZ2AFQ EQU ZZ2AF+2 01515000 ZZ2AF$ EQU ZZ2AF+2 01516000 @NM00081 EQU ZZ2AF+2 01517000 ZZ2AFM EQU ZZ2AF+2 01518000 @NM00080 EQU ZZ2AF+2 01519000 @NM00079 EQU ZZ2AF+1 01520000 ZZ2AFV EQU ZZ2AF+1 01521000 @NM00078 EQU ZZ2AF+1 01522000 ZZ2AFC EQU ZZ2AF+1 01523000 @NM00077 EQU ZZ2AF 01524000 ZZ2AFFS EQU ZZ2AF 01525000 ZZ2AFT EQU ZZ2AF 01526000 ZZ2AFP EQU ZZ2AF 01527000 @NM00076 EQU ZZ2A+8 01528000 ZZ2ALINE EQU ZZ2A+4 01529000 @NM00075 EQU ZZ2A+3 01530000 ZZ2ACH EQU ZZ2A 01531000 @NM00074 EQU ZZ2+264 01532000 @NM00073 EQU ZZ2+263 01533000 ZZ2PRTT0 EQU ZZ2PRTT 01534000 ZZ2PRTO EQU ZZ2PRT+2 01535000 ZZ2PRTL EQU ZZ2PRT 01536000 @NM00072 EQU ZZ2AMD+56 01537000 ZZ2AMDXP EQU ZZ2AMD+52 01538000 ZZ2AMDD EQU ZZ2AMD+48 01539000 ZZ2AMDL EQU ZZ2AMD+44 01540000 ZZ2AMDU EQU ZZ2AMD+28 01541000 ZZ2AMDF EQU ZZ2AMD+24 01542000 ZZ2AMDS EQU ZZ2AMD+20 01543000 ZZ2AMDC EQU ZZ2AMD+16 01544000 ZZ2AMDP EQU ZZ2AMD+12 01545000 ZZ2AMDB EQU ZZ2AMD+8 01546000 @NM00071 EQU @NM00070 01547000 ZZ2AMD2 EQU @NM00070 01548000 ZZ2AMD1 EQU @NM00070 01549000 ZZ2AMD0 EQU ZZ2AMD+6 01550000 ZZ2AMDA EQU ZZ2AMD+4 01551000 ZZ2AMDT EQU ZZ2AMD 01552000 ZZ199999 EQU ZZ1+3072 01553000 @NM00069 EQU ZZ1+2160 01554000 ZZ1TRTAS EQU ZZ1+1904 01555000 ZZ1TRUPC EQU ZZ1+1648 01556000 ZZ1TRCTX EQU ZZ1+1392 01557000 ZZ1NASID EQU ZZ1N+274 01558000 ZZ1NSTRL EQU ZZ1N+272 01559000 ZZ1NOFF EQU ZZ1N+268 01560000 ZZ1NBDY EQU ZZ1N+264 01561000 ZZ1NADE EQU ZZ1N+260 01562000 ZZ1NADB EQU ZZ1N+256 01563000 ZZ1NSTR EQU ZZ1N 01564000 @NM00068 EQU ZZ1+1080 01565000 ZZ1TREBC EQU ZZ1+824 01566000 ZZ1TRHEX EQU ZZ1+568 01567000 @NM00067 EQU ZZ1+377 01568000 ZZ1USTAE EQU ZZ1+376 01569000 @NM00066 EQU ZZ1F+1 01570000 @NM00065 EQU ZZ1F 01571000 ZZ1FM EQU ZZ1F 01572000 ZZ1FX EQU ZZ1F 01573000 ZZ1FU EQU ZZ1F 01574000 ZZ1EVEC EQU ZZ1EVE+1 01575000 @NM00064 EQU ZZ1EVE 01576000 ZZ1EVEW EQU ZZ1EVE 01577000 ZZ1ACMP EQU ZZ1ATTN 01578000 @NM00063 EQU ZZ1+144 01579000 ZZ1FPP EQU ZZ1+140 01580000 ZZ1ZZ6P EQU ZZ1+136 01581000 @NM00062 EQU ZZ1+84 01582000 ZZ1PLINE EQU ZZ1+80 01583000 ZZ1PGSZ EQU ZZ1+76 01584000 ZZ1PCNT EQU ZZ1+72 01585000 @NM00061 EQU ZZ1+68 01586000 ZZ1TPAGE EQU ZZ1+64 01587000 ZZ1TLINE EQU ZZ1+60 01588000 @NM00060 EQU ZZ1+52 01589000 ZZ1DMCBP EQU ZZ1+48 01590000 ZZ1DSDP EQU ZZ1+44 01591000 ZZ1PDRP EQU ZZ1+40 01592000 ZZ1ZZ2P EQU ZZ1+36 01593000 ZZ1327WP EQU ZZ1+32 01594000 ZZ1ACBP EQU ZZ1+28 01595000 @NM00059 EQU ZZ1+24 01596000 ZZ1PDCBP EQU ZZ1+20 01597000 ZZ1BLRBL EQU ZZ1+16 01598000 @NM00058 EQU ZZ1+12 01599000 ZZ1PNULL EQU ZZ1+8 01600000 ZZ1NULL EQU ZZ1+4 01601000 ZZ1IDE EQU ZZ1 01602000 VRBAT1 EQU VRBAT 01603000 @NM00055 EQU VRBA+2 01604000 VRBAL EQU VRBA 01605000 ESCO999 EQU ESCO+182 01606000 ESCORT1 EQU ESCORT 01607000 ESCORL EQU ESCOR 01608000 @NM00054 EQU ESCO+168 01609000 ESCOABS EQU ESCO+164 01610000 @NM00053 EQU ESCOF+2 01611000 @NM00052 EQU ESCOFC 01612000 ESCOFCD EQU ESCOFC 01613000 ESCOFSS EQU ESCOFS 01614000 ESCOFSX EQU ESCOFS 01615000 ESCOFSR EQU ESCOFS 01616000 ESCOFSP EQU ESCOFS 01617000 ESCOFSA EQU ESCOFS 01618000 ESCOFSM EQU ESCOFS 01619000 ESCOFS2 EQU ESCOFS 01620000 ESCOFSC EQU ESCOFS 01621000 ESCOKEY EQU ESCO+160 01622000 @NM00051 EQU ESCO+144 01623000 ESCOMAD EQU ESCO+140 01624000 ESCOD99 EQU ESCOD+60 01625000 @NM00050 EQU ESCOD+56 01626000 @NM00049 EQU ESCODF 01627000 ESCODFA EQU ESCODF 01628000 ESCODIL EQU ESCOD+48 01629000 ESCODIM EQU ESCOD+44 01630000 ESCODT9 EQU ESCODT+34 01631000 ESCODTE EQU ESCODT+33 01632000 ESCODTD EQU ESCODT+2 01633000 @NM00048 EQU ESCODT+1 01634000 ESCODTY EQU ESCODT 01635000 ESCODT0 EQU ESCODT 01636000 ESCODLB EQU ESCOD+9 01637000 ESCODOB EQU ESCOD+8 01638000 ESCODLE EQU ESCOD+4 01639000 ESCODOF EQU ESCOD 01640000 ESCOD00 EQU ESCOD 01641000 ESCOLAD EQU ESCO+76 01642000 ESCOAS9 EQU ESCOAS+16 01643000 @NM00047 EQU ESCOAS+12 01644000 ESCOAS2 EQU ESCOAS+8 01645000 ESCOAS1 EQU ESCOAS+4 01646000 @NM00046 EQU ESCOAS+2 01647000 ESCOAST EQU ESCOAS 01648000 ESCOAS0 EQU ESCOAS 01649000 ESCORV1 EQU ESCO+59 01650000 ESCOELK EQU ESCO+59 01651000 ESCOSYM EQU ESCO+28 01652000 ESCORDX EQU ESCO+24 01653000 @NM00045 EQU ESCO+16 01654000 @NM00044 EQU ESCO+8 01655000 @NM00043 EQU ESCO+2 01656000 ESCORID EQU ESCO 01657000 SABA999 EQU SABA+3072 01658000 SABACT1 EQU SABACT 01659000 @NM00020 EQU SABA+153 01660000 SABAPGV EQU SABA+144 01661000 @NM00019 EQU SABASF 01662000 SABAF99 EQU SABAF+60 01663000 @NM00018 EQU SABAF+56 01664000 @NM00017 EQU SABAFF 01665000 SABAFFA EQU SABAFF 01666000 SABAFIL EQU SABAF+48 01667000 SABAFIM EQU SABAF+44 01668000 SABAFT9 EQU SABAFT+34 01669000 SABAFTE EQU SABAFT+33 01670000 SABAFTD EQU SABAFT+2 01671000 @NM00016 EQU SABAFT+1 01672000 SABAFTY EQU SABAFT 01673000 SABAFT0 EQU SABAFT 01674000 SABAFLB EQU SABAF+9 01675000 SABAFOB EQU SABAF+8 01676000 SABAFOF EQU SABAF 01677000 SABAF00 EQU SABAF 01678000 @NM00015 EQU SABA+66 01679000 SABAELK EQU SABA+66 01680000 SABADT9 EQU SABADT+34 01681000 SABADTE EQU SABADT+33 01682000 SABADTD EQU SABADT+2 01683000 @NM00014 EQU SABADT+1 01684000 SABADTY EQU SABADT 01685000 SABADT0 EQU SABADT 01686000 SABAAS9 EQU SABAAS+16 01687000 @NM00013 EQU SABAAS+12 01688000 SABAAS2 EQU SABAAS+8 01689000 SABAAS1 EQU SABAAS+4 01690000 @NM00012 EQU SABAAS+2 01691000 SABAAS0 EQU SABAAS 01692000 SABARDX EQU SABA+8 01693000 @NM00011 EQU SABA+2 01694000 SABARID EQU SABA 01695000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01696000 @RT00155 EQU LBLSCAN2 01697000 @RF00155 EQU LBLSCAN8 01698000 @RT00209 EQU LBLSCAN8 01699000 @RF00229 EQU @RC00227 01700000 @RT00263 EQU EXIT 01701000 @ENDDATA EQU * 01702000 END BLSVXTLS,(C'PLS2104',0701,78069) 01703000