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