TITLE 'BLSFSD00-ESTABLISH DATA SET NAME AND MEMBER NAME AS DEF*00001000 FAULT ' 00002000 * /* CHANGE ACTIVITY */ 00003000 * THIS MODULE IS WRITTEN FOR @G57LPRM 00004000 BLSFSD00 CSECT , 01S0002 00005000 @MAINENT DS 0H 01S0002 00006000 USING *,@15 01S0002 00007000 B @PROLOG 01S0002 00008000 DC AL1(16) 01S0002 00009000 DC C'BLSFSD00 78.065' 01S0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 01S0002 00012000 BALR @12,0 01S0002 00013000 @PSTART DS 0H 01S0002 00014000 USING @PSTART,@12 01S0002 00015000 L @00,@SIZDATD 01S0002 00016000 BLSUALLS R,LV=(0) 00017000 LR @11,@01 01S0002 00018000 USING @DATD,@11 01S0002 00019000 ST @13,@SA00001+4 01S0002 00020000 LM @00,@01,20(@13) 01S0002 00021000 ST @11,8(,@13) 01S0002 00022000 LR @13,@11 01S0002 00023000 MVC @PC00001(8),0(@01) 01S0002 00024000 * 01S0171 00025000 */* *********************************************************** */ 00026000 */* */ 00027000 */* START OF DEFAULT PROCESSING */ 00028000 */* */ 00029000 */* *********************************************************** */ 00030000 * 01S0171 00031000 * ZZ2PTR=ADDR(ZZ2CB); /* GET TASK VARIABLE ADDR */ 00032000 L ZZ2PTR,@PC00001 01S0171 00033000 * MSTRZZ2P=ZZ1ZZ2P; /* MASTER TASK VARIABLE ADDRESS */ 00034000 L @10,ZZ2ZZ1P(,ZZ2PTR) 01S0172 00035000 L MSTRZZ2P,ZZ1ZZ2P(,@10) 01S0172 00036000 * RETC=ZERO; /* INITIALIZE THE RETC */ 00037000 SLR RETC,RETC 01S0173 00038000 */* *********************************************************** */ 00039000 */* */ 00040000 */* START OF MODULE PROCESSING */ 00041000 */* */ 00042000 */* *********************************************************** */ 00043000 * 01S0174 00044000 * RESPECIFY 01S0174 00045000 * DSNS BASED(ADDR(DSNPDE)); /* POINT TO PDE FOR DSN */ 00046000 * IF DSNSDFP='1'B THEN /* HAS A DSN BEEN SPECIFIED? */ 00047000 L @10,@PC00001+4 01S0175 00048000 TM DSNSDFP(@10),B'10000000' 01S0175 00049000 BNO @RF00175 01S0175 00050000 * DO; /* YES, MAKE IT THE DEFAULT */ 00051000 * MSTRZZ2P->ZZ2ADDTA=''; /* CLEAR OUT THE FIELD */ 00052000 MVI ZZ2ADDTA(MSTRZZ2P),C' ' 01S0177 00053000 MVC ZZ2ADDTA+1(43,MSTRZZ2P),ZZ2ADDTA(MSTRZZ2P) 01S0177 00054000 * MSTRZZ2P->ZZ2ADDTA=DSNSD(1:DSNSDL);/* MOVE IN THE DSN */ 00055000 MVI ZZ2ADDTA+1(MSTRZZ2P),C' ' 01S0178 00056000 MVC ZZ2ADDTA+2(42,MSTRZZ2P),ZZ2ADDTA+1(MSTRZZ2P) 01S0178 00057000 LH @05,DSNSDL(,@10) 01S0178 00058000 LR @15,@05 01S0178 00059000 BCTR @15,0 01S0178 00060000 L @01,DSNSDP(,@10) 01S0178 00061000 EX @15,@SM00964 01S0178 00062000 * MSTRZZ2P->ZZ2ADDL=DSNSDL; /* INDICATE THE LENGTH */ 00063000 STH @05,ZZ2ADDL(,MSTRZZ2P) 01S0179 00064000 * MSTRZZ2P->ZZ2ADMTA=''; /* CLEAR OUT FIELD */ 00065000 MVI ZZ2ADMTA(MSTRZZ2P),C' ' 01S0180 00066000 MVC ZZ2ADMTA+1(7,MSTRZZ2P),ZZ2ADMTA(MSTRZZ2P) 01S0180 00067000 * IF DSNSMFP='1'B THEN /* HAS MEMBER BEEN SPECIFIED? */ 00068000 TM DSNSMFP(@10),B'10000000' 01S0181 00069000 BNO @RF00181 01S0181 00070000 * DO; /* YES, PROCESS MEMBER */ 00071000 * MSTRZZ2P->ZZ2ADMTA=DSNSM(1:DSNSML);/* MOVE IN THE MEMBER */ 00072000 MVI ZZ2ADMTA+1(MSTRZZ2P),C' ' 01S0183 00073000 MVC ZZ2ADMTA+2(6,MSTRZZ2P),ZZ2ADMTA+1(MSTRZZ2P) 01S0183 00074000 LH @05,DSNSML(,@10) 01S0183 00075000 LR @15,@05 01S0183 00076000 BCTR @15,0 01S0183 00077000 L @10,DSNSMP(,@10) 01S0183 00078000 EX @15,@SM00966 01S0183 00079000 * MSTRZZ2P->ZZ2ADML=DSNSML;/* INDICATE THE LENGTH */ 00080000 STH @05,ZZ2ADML(,MSTRZZ2P) 01S0184 00081000 * END; /* END OF PROCESS MEMBER */ 00082000 * ELSE /* NO, CORRECT LENGTH */ 00083000 * MSTRZZ2P->ZZ2ADML=ZERO; /* ZERO LENGTH */ 00084000 B @RC00181 01S0186 00085000 @RF00181 SLR @10,@10 01S0186 00086000 STH @10,ZZ2ADML(,MSTRZZ2P) 01S0186 00087000 * MSTRZZ2P->ZZ2ADPTA=''; /* BLANK OUT PASSWORD */ 00088000 @RC00181 MVI ZZ2ADPTA(MSTRZZ2P),C' ' 01S0187 00089000 MVC ZZ2ADPTA+1(7,MSTRZZ2P),ZZ2ADPTA(MSTRZZ2P) 01S0187 00090000 * IF DSNSPFP='1'B THEN /* HAS PASSWORD BEEN SPECIFIED? */ 00091000 L @10,@PC00001+4 01S0188 00092000 TM DSNSPFP(@10),B'10000000' 01S0188 00093000 BNO @RF00188 01S0188 00094000 * DO; /* YES, PROCESS PASSWORD */ 00095000 * MSTRZZ2P->ZZ2ADPTA=DSNSP(1:DSNSPL);/* MOVE IN THE 01S0190 00096000 * PASSWORD */ 00097000 MVI ZZ2ADPTA+1(MSTRZZ2P),C' ' 01S0190 00098000 MVC ZZ2ADPTA+2(6,MSTRZZ2P),ZZ2ADPTA+1(MSTRZZ2P) 01S0190 00099000 LH @05,DSNSPL(,@10) 01S0190 00100000 LR @15,@05 01S0190 00101000 BCTR @15,0 01S0190 00102000 L @10,DSNSPP(,@10) 01S0190 00103000 EX @15,@SM00968 01S0190 00104000 * MSTRZZ2P->ZZ2ADPL=DSNSPL;/* PUT IN CORRECT LENGTH */ 00105000 STH @05,ZZ2ADPL(,MSTRZZ2P) 01S0191 00106000 * END; /* END OF PROCESS PASSWORD */ 00107000 * ELSE /* NO, CORRECT LENGTH */ 00108000 * MSTRZZ2P->ZZ2ADPL=ZERO; /* ZERO OUT LENGTH */ 00109000 B @RC00188 01S0193 00110000 @RF00188 SLR @10,@10 01S0193 00111000 STH @10,ZZ2ADPL(,MSTRZZ2P) 01S0193 00112000 * DO; /* BLSUCALL EP(BLSRDUCC) */ 00113000 @RC00188 DS 0H 01S0195 00114000 * RESPECIFY 01S0195 00115000 * (GPR01P) RESTRICTED; /* ->TASK VARIABLE */ 00116000 * GPR01P=ADDR(ZZ2); /* ->TASK VARIABLE */ 00117000 LR GPR01P,ZZ2PTR 01S0196 00118000 * CALL BLSRDUCC; /* CALL RESIDENT IPCS PROGRAM */ 00119000 L @10,ZZ2RVTP(,ZZ2PTR) 01S0197 00120000 L @15,RVTDUCCP(,@10) 01S0197 00121000 BALR @14,@15 01S0197 00122000 * RESPECIFY 01S0198 00123000 * (GPR01P) UNRESTRICTED; /* ->TASK VARIABLE */ 00124000 * END; /* BLSUCALL EP(BLSRDUCC) NOTIFY 00125000 * REST OF IPCS */ 00126000 * RESPECIFY 01S0200 00127000 * RF RESTRICTED; /* SAVE REG 15 */ 00128000 * IF RF>ZERO THEN /* DEFAULT NOT PROCESSED */ 00129000 LTR RF,RF 01S0201 00130000 BNP @RF00201 01S0201 00131000 * RETC=EIGHT; /* INDICATE ERROR DURING DEFAULT 00132000 * PROCESSING */ 00133000 LA RETC,8 01S0202 00134000 * RESPECIFY 01S0203 00135000 * RF UNRESTRICTED; /* FREE REG 15 */ 00136000 @RF00201 DS 0H 01S0204 00137000 * END; /* END OF MAKE IT THE DEFAULT */ 00138000 * ELSE /* NO, ERROR CONDITION DETECTED */ 00139000 * DO; /* ERROR DURING DEFAULT */ 00140000 * 01S0205 00141000 B @RC00175 01S0205 00142000 @RF00175 DS 0H 01S0206 00143000 * /*************************************************************/ 00144000 * /* */ 00145000 * /* UNABLE TO SET DEFAULT SET RETURN CODE TO EIGHT */ 00146000 * /* */ 00147000 * /*************************************************************/ 00148000 * 01S0206 00149000 * RETC=EIGHT; /* SET EIGHT RETURN CODE */ 00150000 LA RETC,8 01S0206 00151000 * MSGPTR=ZERO; /* SET CHAIN TO ZERO */ 00152000 SLR @10,@10 01S0207 00153000 ST @10,MSGPTR 01S0207 00154000 * DO; /* BLSDMSG 01S0208 00155000 * (ZZ2,04060,MSGPTR,BLSDMSGS) 00156000 * LIFO ROUTE(TERM) */ 00157000 * CALL BLSDMSG0(ZZ2,04060,MSGPTR,BLSDMSGS,'10010000'B,0);/* 00158000 * BUILD MESSAGE */ 00159000 ST ZZ2PTR,@AL00001 01S0209 00160000 LA @10,@CF00955 01S0209 00161000 ST @10,@AL00001+4 01S0209 00162000 LA @10,MSGPTR 01S0209 00163000 ST @10,@AL00001+8 01S0209 00164000 L @10,ZZ2MSGSP(,ZZ2PTR) 01S0209 00165000 ST @10,@AL00001+12 01S0209 00166000 LA @10,@CB00956 01S0209 00167000 ST @10,@AL00001+16 01S0209 00168000 LA @10,@CF00049 01S0209 00169000 ST @10,@AL00001+20 01S0209 00170000 L @15,ZZ2MSG0P(,ZZ2PTR) 01S0209 00171000 LA @01,@AL00001 01S0209 00172000 BALR @14,@15 01S0209 00173000 * END; /* BLSDMSG 01S0210 00174000 * (ZZ2,04060,MSGPTR,BLSDMSGS) 00175000 * LIFO ROUTE(TERM) */ 00176000 * END; /* END OF ERROR DURING DEFAULT 00177000 * PROCESSING */ 00178000 * RETURN CODE(RETC); /* RETURN TO CALLER */ 00179000 @RC00175 L @13,4(,@13) 01S0212 00180000 L @00,@SIZDATD 01S0212 00181000 LR @01,@11 01S0212 00182000 BLSUFRES R,LV=(0),A=(1) 00183000 LR @15,@04 01S0212 00184000 L @14,12(,@13) 01S0212 00185000 LM @00,@12,20(@13) 01S0212 00186000 BR @14 01S0212 00187000 */*BLSUPEND--MVS IPCS MODULE */ 00188000 * 01S0213 00189000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00190000 * GPR01P PTR(31) REG(1); 01S0213 00191000 * DECLARE /* COMMON VARIABLES */ 00192000 * I256C CHAR(256) BASED, 01S0214 00193000 * I031F FIXED(31) BASED, 01S0214 00194000 * I031P PTR(31) BASED, 01S0214 00195000 * I015F FIXED(15) BASED, 01S0214 00196000 * I015P PTR(15) BASED, 01S0214 00197000 * I008P PTR(8) BASED, 01S0214 00198000 * I001C CHAR(1) BASED; 01S0214 00199000 * GENERATE NODEFS NOREFS DATA; 01S0215 00200000 * END /* BLRPEND END OF PROCESSING */ 00201000 * 01S0216 00202000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00203000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00204000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00205000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00206000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00207000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00208000 */*%INCLUDE SYSLIB (IKJECT ) */ 00209000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00210000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00211000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00212000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00213000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00214000 * 01S0216 00215000 * ; 01S0216 00216000 @EL00001 L @13,4(,@13) 01S0216 00217000 @EF00001 L @00,@SIZDATD 01S0216 00218000 LR @01,@11 01S0216 00219000 BLSUFRES R,LV=(0),A=(1) 00220000 @ER00001 LM @14,@12,12(@13) 01S0216 00221000 BR @14 01S0216 00222000 @DATA DS 0H 00223000 @SM00964 MVC ZZ2ADDTA(0,MSTRZZ2P),DSNSD(@01) 00224000 @SM00966 MVC ZZ2ADMTA(0,MSTRZZ2P),DSNSM(@10) 00225000 @SM00968 MVC ZZ2ADPTA(0,MSTRZZ2P),DSNSP(@10) 00226000 @DATD DSECT 00227000 DS 0F 00228000 @SA00001 DS 18F 00229000 @PC00001 DS 2F 00230000 @AL00001 DS 6A 00231000 BLSFSD00 CSECT 00232000 DS 0F 00233000 @CF00049 DC F'0' 00234000 @CF00955 DC F'4060' 00235000 @DATD DSECT 00236000 DS 0D 00237000 MSGPTR DS A 00238000 BLSFSD00 CSECT 00239000 DS 0F 00240000 @SIZDATD DC AL1(0) 00241000 DC AL3(@ENDDATD-@DATD) 00242000 DS 0D 00243000 @CB00956 DC B'10010000' 00244000 @DATD DSECT 00245000 SPACE 2 00246000 *********************************************************************** 00247000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00248000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00249000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00250000 *********************************************************************** 00251000 SPACE 00252000 BLSFSD00 CSECT 00253000 ORG 00254000 DS 0D 00255000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFSD00+19)/20+7)/8)CL8'BLSFSD00' 00256000 @DATD DSECT 00257000 SPACE 2 00258000 *********************************************************************** 00259000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00260000 *********************************************************************** 00261000 SPACE 00262000 DS 0D 00263000 @DATD DSECT 00264000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00265000 @ENDDATD EQU * 00266000 BLSFSD00 CSECT 00267000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00268000 @01 EQU 01 00269000 @02 EQU 02 00270000 @03 EQU 03 00271000 @04 EQU 04 00272000 @05 EQU 05 00273000 @06 EQU 06 00274000 @07 EQU 07 00275000 @08 EQU 08 00276000 @09 EQU 09 00277000 @10 EQU 10 00278000 @11 EQU 11 00279000 @12 EQU 12 00280000 @13 EQU 13 00281000 @14 EQU 14 00282000 @15 EQU 15 00283000 MSTRZZ2P EQU @02 00284000 RETC EQU @04 00285000 ZZ2PTR EQU @03 00286000 R1 EQU @01 00287000 RD EQU @13 00288000 RE EQU @14 00289000 RF EQU @15 00290000 R0 EQU @00 00291000 R2 EQU @02 00292000 R3 EQU @03 00293000 R4 EQU @04 00294000 R5 EQU @05 00295000 R9 EQU @09 00296000 RB EQU @11 00297000 GPR01P EQU @01 00298000 RA EQU @10 00299000 RC EQU @12 00300000 R6 EQU @06 00301000 R7 EQU @07 00302000 R8 EQU @08 00303000 DSNS EQU 0 00304000 DSNSDP EQU DSNS 00305000 DSNSDL EQU DSNS+4 00306000 DSNSDF EQU DSNS+6 00307000 DSNSDFP EQU DSNSDF 00308000 DSNSMP EQU DSNS+8 00309000 DSNSML EQU DSNS+12 00310000 DSNSMF EQU DSNS+14 00311000 DSNSMFP EQU DSNSMF 00312000 DSNSPP EQU DSNS+16 00313000 DSNSPL EQU DSNS+20 00314000 DSNSPF EQU DSNS+22 00315000 DSNSPFP EQU DSNSPF 00316000 DSNSD EQU 0 00317000 DSNSM EQU 0 00318000 DSNSP EQU 0 00319000 SA EQU 0 00320000 SA1 EQU SA 00321000 SAR EQU SA+12 00322000 BLSRDUCC EQU 0 00323000 RVT EQU 0 00324000 RVTADDRP EQU RVT 00325000 RVTT01P EQU RVT+4 00326000 RVTTAP EQU RVT+8 00327000 RVTTBP EQU RVT+12 00328000 RVTTCP EQU RVT+16 00329000 RVTTFP EQU RVT+24 00330000 RVTTYP EQU RVT+40 00331000 RVTT02P EQU RVT+48 00332000 RVTT03P EQU RVT+52 00333000 RVTT04P EQU RVT+56 00334000 RVTACCLP EQU RVT+60 00335000 RVTRACCP EQU RVT+64 00336000 RVTTLP EQU RVT+68 00337000 RVTTMP EQU RVT+72 00338000 RVTTUP EQU RVT+80 00339000 RVTESGEP EQU RVT+84 00340000 RVTESGUP EQU RVT+88 00341000 RVTESARP EQU RVT+92 00342000 RVTRAARP EQU RVT+96 00343000 RVTRAGEP EQU RVT+100 00344000 RVTADDPP EQU RVT+104 00345000 RVTACCQP EQU RVT+108 00346000 RVTSAGUP EQU RVT+124 00347000 RVTSAGEP EQU RVT+128 00348000 RVTESCKP EQU RVT+132 00349000 RVTMSGAP EQU RVT+136 00350000 RVTMSGDP EQU RVT+140 00351000 RVTADDTP EQU RVT+160 00352000 RVTADDUP EQU RVT+164 00353000 RVTADD1P EQU RVT+176 00354000 RVTADD2P EQU RVT+180 00355000 RVTRSAGP EQU RVT+184 00356000 RVTMSGBP EQU RVT+188 00357000 RVTADDSP EQU RVT+192 00358000 RVTADD3P EQU RVT+196 00359000 RVTT05P EQU RVT+200 00360000 RVTPADSP EQU RVT+204 00361000 RVTTRP EQU RVT+228 00362000 RVTADD4P EQU RVT+232 00363000 RVTSAPCP EQU RVT+236 00364000 RVTSAARP EQU RVT+240 00365000 RVTSAGNP EQU RVT+244 00366000 RVTT06P EQU RVT+248 00367000 RVTSAGCP EQU RVT+252 00368000 RVTSAGQP EQU RVT+256 00369000 RVTESGCP EQU RVT+260 00370000 RVTESGQP EQU RVT+264 00371000 RVTDUCKP EQU RVT+276 00372000 RVTDUCCP EQU RVT+280 00373000 ZZ1 EQU 0 00374000 ZZ1ZZ2P EQU ZZ1+36 00375000 ZZ1ATTN EQU ZZ1+360 00376000 ZZ1EVE EQU ZZ1ATTN+4 00377000 ZZ1F EQU ZZ1+368 00378000 ZZ1N EQU ZZ1+1116 00379000 ZZ2 EQU 0 00380000 ZZ2AMD EQU ZZ2 00381000 @NM00018 EQU ZZ2AMD+7 00382000 ZZ2PRT EQU ZZ2+138 00383000 ZZ2PRTT EQU ZZ2PRT+4 00384000 ZZ2PRTT1 EQU ZZ2PRTT+1 00385000 ZZ2A EQU ZZ2+272 00386000 ZZ2AF EQU ZZ2A+16 00387000 ZZ2APID EQU ZZ2A+64 00388000 ZZ2AD EQU ZZ2A+74 00389000 ZZ2ADD EQU ZZ2AD 00390000 ZZ2ADDL EQU ZZ2ADD 00391000 ZZ2ADDT EQU ZZ2ADD+2 00392000 ZZ2ADDTA EQU ZZ2ADDT 00393000 ZZ2ADM EQU ZZ2AD+46 00394000 ZZ2ADML EQU ZZ2ADM 00395000 ZZ2ADMT EQU ZZ2ADM+2 00396000 ZZ2ADMTA EQU ZZ2ADMT 00397000 ZZ2ADP EQU ZZ2AD+56 00398000 ZZ2ADPL EQU ZZ2ADP 00399000 ZZ2ADPT EQU ZZ2ADP+2 00400000 ZZ2ADPTA EQU ZZ2ADPT 00401000 ZZ2AQAS EQU ZZ2A+144 00402000 ZZ2AQD EQU ZZ2A+160 00403000 ZZ2AQDT EQU ZZ2AQD+10 00404000 ZZ2AQDF EQU ZZ2AQD+52 00405000 ZZ2STG EQU ZZ2+960 00406000 ZZ2ALLOP EQU ZZ2+992 00407000 ZZ2FREEP EQU ZZ2+996 00408000 ZZ2FF19P EQU ZZ2+1000 00409000 ZZ2FRE1P EQU ZZ2+1004 00410000 ZZ2FF18P EQU ZZ2+1008 00411000 ZZ2DYNAP EQU ZZ2+1012 00412000 ZZ2ZZ2CP EQU ZZ2+1016 00413000 ZZ2ZZ2DP EQU ZZ2+1020 00414000 ZZ2STAIP EQU ZZ2+1024 00415000 ZZ2FF02P EQU ZZ2+1028 00416000 ZZ2GETLP EQU ZZ2+1032 00417000 ZZ2PARSP EQU ZZ2+1036 00418000 ZZ2PTGTP EQU ZZ2+1040 00419000 ZZ2PUTLP EQU ZZ2+1044 00420000 ZZ2SCANP EQU ZZ2+1048 00421000 ZZ2STCKP EQU ZZ2+1052 00422000 ZZ2ALOCP EQU ZZ2+1056 00423000 ZZ2MSGSP EQU ZZ2+1060 00424000 ZZ2TRMOP EQU ZZ2+1064 00425000 ZZ2TRMVP EQU ZZ2+1068 00426000 ZZ2MSG0P EQU ZZ2+1076 00427000 ZZ2PUTNP EQU ZZ2+1084 00428000 ZZ2TRMNP EQU ZZ2+1088 00429000 ZZ2ENQ0P EQU ZZ2+1092 00430000 ZZ2ADSDP EQU ZZ2+1096 00431000 ZZ2APDRP EQU ZZ2+1100 00432000 ZZ2FDSDP EQU ZZ2+1104 00433000 ZZ2FPDRP EQU ZZ2+1108 00434000 ZZ2ZZ1P EQU ZZ2+1264 00435000 ZZ2DVTP EQU ZZ2+1276 00436000 ZZ2BVTP EQU ZZ2+1280 00437000 ZZ2RVTP EQU ZZ2+1284 00438000 ZZ2CPPL EQU ZZ2+1292 00439000 ZZ2CPPLC EQU ZZ2CPPL 00440000 ZZ2ITR EQU ZZ2+2840 00441000 ZZ2ITRE EQU ZZ2ITR+16 00442000 ZZ2ITSE EQU ZZ2+2864 00443000 ZZ2ES EQU ZZ2+2872 00444000 ZZ2AMDX EQU ZZ2+7160 00445000 ZZ2AXO EQU ZZ2+7934 00446000 ZZ2AXOT EQU ZZ2AXO+2 00447000 CMD EQU 0 00448000 CMDT EQU CMD+4 00449000 PSCB EQU 0 00450000 PSCBATR1 EQU PSCB+16 00451000 ECT EQU 0 00452000 ECTSWS EQU ECT+28 00453000 ECTSWS2 EQU ECT+40 00454000 ECTSWS21 EQU ECTSWS2 00455000 UPT EQU 0 00456000 UPTSWS EQU UPT+12 00457000 BVT EQU 0 00458000 BVTPUTLP EQU BVT+4 00459000 BVTPUTOP EQU BVT+12 00460000 BVTPUTTP EQU BVT+16 00461000 BVTPUTVP EQU BVT+20 00462000 BVTPUTAP EQU BVT+24 00463000 BVTPRTTP EQU BVT+28 00464000 BVTPRTAP EQU BVT+32 00465000 BVTPUTDP EQU BVT+36 00466000 BVTMONP EQU BVT+40 00467000 BVTMON2P EQU BVT+44 00468000 BVTVSARP EQU BVT+48 00469000 BVTVSENP EQU BVT+64 00470000 BVTVSERP EQU BVT+68 00471000 BVTVSGEP EQU BVT+72 00472000 BVTVSGUP EQU BVT+76 00473000 BVTVSPOP EQU BVT+80 00474000 BVTVSPUP EQU BVT+84 00475000 BVTMPKNP EQU BVT+104 00476000 BVTMONLP EQU BVT+108 00477000 BVTPUTCP EQU BVT+132 00478000 BVTMPK1P EQU BVT+136 00479000 BVTZZ2RP EQU BVT+140 00480000 BVTPGMRP EQU BVT+144 00481000 BVTMONAP EQU BVT+148 00482000 BVTBLDDP EQU BVT+152 00483000 BVTBLDLP EQU BVT+156 00484000 BVTPGMCP EQU BVT+160 00485000 BVTPGMDP EQU BVT+164 00486000 BVTPGMLP EQU BVT+168 00487000 BVTMONCP EQU BVT+180 00488000 BVTMONDP EQU BVT+184 00489000 BVTMONTP EQU BVT+188 00490000 BVTPARIP EQU BVT+192 00491000 BVTPARUP EQU BVT+196 00492000 BVTPRTNP EQU BVT+204 00493000 BVTVSCRP EQU BVT+208 00494000 BVTVSMRP EQU BVT+212 00495000 BVTMONXP EQU BVT+216 00496000 BVTTRMAP EQU BVT+228 00497000 BLSDMSGS EQU 0 00498000 BLSDMSG0 EQU 0 00499000 DVT EQU 0 00500000 DVTDEQPP EQU DVT+8 00501000 DVTENQPP EQU DVT+12 00502000 DVTAUTHP EQU DVT+20 00503000 DVTLPCLP EQU DVT+24 00504000 DVTBP00P EQU DVT+28 00505000 DVTCN00P EQU DVT+32 00506000 DVTDF00P EQU DVT+36 00507000 DVTDS00P EQU DVT+44 00508000 DVTFL00P EQU DVT+48 00509000 DVTFP00P EQU DVT+52 00510000 DVTGD00P EQU DVT+56 00511000 DVTGG00P EQU DVT+60 00512000 DVTGP00P EQU DVT+64 00513000 DVTND00P EQU DVT+68 00514000 DVTND01P EQU DVT+72 00515000 DVTOD00P EQU DVT+76 00516000 DVTPS00P EQU DVT+80 00517000 DVTSL00P EQU DVT+88 00518000 DVTTL00P EQU DVT+92 00519000 DVTUD00P EQU DVT+96 00520000 DVTUP00P EQU DVT+100 00521000 DVTLP00P EQU DVT+104 00522000 DVTLALLP EQU DVT+108 00523000 DVTLPFMP EQU DVT+112 00524000 DVTCLOSP EQU DVT+116 00525000 DVTOPENP EQU DVT+120 00526000 DVTPERAP EQU DVT+124 00527000 DVTDALLP EQU DVT+128 00528000 BLSCALOC EQU 0 00529000 BLSDADSD EQU 0 00530000 BLSDAPDR EQU 0 00531000 BLSDDEQP EQU 0 00532000 BLSDENQP EQU 0 00533000 BLSDENQ0 EQU 0 00534000 BLSDFDSD EQU 0 00535000 BLSDFPDR EQU 0 00536000 BLSEAUTH EQU 0 00537000 BLSELPCL EQU 0 00538000 BLSELPFM EQU 0 00539000 BLSFBP00 EQU 0 00540000 BLSFCLOS EQU 0 00541000 BLSFCN00 EQU 0 00542000 BLSFDALL EQU 0 00543000 BLSFDF00 EQU 0 00544000 BLSFDS00 EQU 0 00545000 BLSFFL00 EQU 0 00546000 BLSFFP00 EQU 0 00547000 BLSFGD00 EQU 0 00548000 BLSFGG00 EQU 0 00549000 BLSFGP00 EQU 0 00550000 BLSFLALL EQU 0 00551000 BLSFLP00 EQU 0 00552000 BLSFND00 EQU 0 00553000 BLSFND01 EQU 0 00554000 BLSFOD00 EQU 0 00555000 BLSFOPEN EQU 0 00556000 BLSFPERA EQU 0 00557000 BLSFPS00 EQU 0 00558000 BLSFSL00 EQU 0 00559000 BLSFTL00 EQU 0 00560000 BLSFUD00 EQU 0 00561000 BLSFUP00 EQU 0 00562000 BLSRACC EQU 0 00563000 BLSRACCL EQU 0 00564000 BLSRACCQ EQU 0 00565000 BLSRADDP EQU 0 00566000 BLSRADDR EQU 0 00567000 BLSRADDS EQU 0 00568000 BLSRADDT EQU 0 00569000 BLSRADDU EQU 0 00570000 BLSRADD1 EQU 0 00571000 BLSRADD2 EQU 0 00572000 BLSRADD3 EQU 0 00573000 BLSRADD4 EQU 0 00574000 BLSRDUCK EQU 0 00575000 BLSRESAR EQU 0 00576000 BLSRESCK EQU 0 00577000 BLSRESGC EQU 0 00578000 BLSRESGE EQU 0 00579000 BLSRESGQ EQU 0 00580000 BLSRESGU EQU 0 00581000 BLSRMSGA EQU 0 00582000 BLSRMSGB EQU 0 00583000 BLSRMSGD EQU 0 00584000 BLSRPADS EQU 0 00585000 BLSRRAAR EQU 0 00586000 BLSRRAGE EQU 0 00587000 BLSRSAAR EQU 0 00588000 BLSRSAG EQU 0 00589000 BLSRSAGC EQU 0 00590000 BLSRSAGE EQU 0 00591000 BLSRSAGN EQU 0 00592000 BLSRSAGQ EQU 0 00593000 BLSRSAGU EQU 0 00594000 BLSRSAPC EQU 0 00595000 BLSTA EQU 0 00596000 BLSTB EQU 0 00597000 BLSTC EQU 0 00598000 BLSTF EQU 0 00599000 BLSTL EQU 0 00600000 BLSTM EQU 0 00601000 BLSTR EQU 0 00602000 BLSTU EQU 0 00603000 BLSTY EQU 0 00604000 BLST01 EQU 0 00605000 BLST02 EQU 0 00606000 BLST03 EQU 0 00607000 BLST04 EQU 0 00608000 BLST05 EQU 0 00609000 BLST06 EQU 0 00610000 BLSUALLO EQU 0 00611000 BLSUBLDD EQU 0 00612000 BLSUBLDL EQU 0 00613000 BLSUDYNA EQU 0 00614000 BLSUFREE EQU 0 00615000 BLSUFRE1 EQU 0 00616000 BLSUMON EQU 0 00617000 BLSUMONA EQU 0 00618000 BLSUMONC EQU 0 00619000 BLSUMOND EQU 0 00620000 BLSUMONL EQU 0 00621000 BLSUMONT EQU 0 00622000 BLSUMONX EQU 0 00623000 BLSUMON2 EQU 0 00624000 BLSUMPKN EQU 0 00625000 BLSUMPK1 EQU 0 00626000 BLSUPARI EQU 0 00627000 BLSUPARU EQU 0 00628000 BLSUPGMC EQU 0 00629000 BLSUPGMD EQU 0 00630000 BLSUPGML EQU 0 00631000 BLSUPGMR EQU 0 00632000 BLSUPRTA EQU 0 00633000 BLSUPRTN EQU 0 00634000 BLSUPRTT EQU 0 00635000 BLSUPUTA EQU 0 00636000 BLSUPUTC EQU 0 00637000 BLSUPUTD EQU 0 00638000 BLSUPUTL EQU 0 00639000 BLSUPUTN EQU 0 00640000 BLSUPUTO EQU 0 00641000 BLSUPUTT EQU 0 00642000 BLSUPUTV EQU 0 00643000 BLSUSTAI EQU 0 00644000 BLSUTRMA EQU 0 00645000 BLSUTRMN EQU 0 00646000 BLSUTRMO EQU 0 00647000 BLSUTRMV EQU 0 00648000 BLSUVSAR EQU 0 00649000 BLSUVSCR EQU 0 00650000 BLSUVSEN EQU 0 00651000 BLSUVSER EQU 0 00652000 BLSUVSGE EQU 0 00653000 BLSUVSGU EQU 0 00654000 BLSUVSMR EQU 0 00655000 BLSUVSPO EQU 0 00656000 BLSUVSPU EQU 0 00657000 BLSUZZ2C EQU 0 00658000 BLSUZZ2D EQU 0 00659000 BLSUZZ2R EQU 0 00660000 IKJEFF02 EQU 0 00661000 IKJEFF18 EQU 0 00662000 IKJEFF19 EQU 0 00663000 IKJGETL EQU 0 00664000 IKJPARS EQU 0 00665000 IKJPTGT EQU 0 00666000 IKJPUTL EQU 0 00667000 IKJSCAN EQU 0 00668000 IKJSTCK EQU 0 00669000 I001C EQU 0 00670000 I008P EQU 0 00671000 I015F EQU 0 00672000 I015P EQU 0 00673000 I031F EQU 0 00674000 I031P EQU 0 00675000 I256C EQU 0 00676000 ZZ2CB EQU 0 00677000 DSNPDE EQU 0 00678000 CPPL EQU ZZ2CPPL 00679000 CPPLUPT EQU CPPL+4 00680000 CPPLPSCB EQU CPPL+8 00681000 CPPLECT EQU CPPL+12 00682000 * START UNREFERENCED COMPONENTS 00683000 CPPLCBUF EQU CPPL 00684000 DVT99999 EQU DVT+256 00685000 DVT0064P EQU DVT+252 00686000 DVT0063P EQU DVT+248 00687000 DVT0062P EQU DVT+244 00688000 DVT0061P EQU DVT+240 00689000 DVT0060P EQU DVT+236 00690000 DVT0059P EQU DVT+232 00691000 DVT0058P EQU DVT+228 00692000 DVT0057P EQU DVT+224 00693000 DVT0056P EQU DVT+220 00694000 DVT0055P EQU DVT+216 00695000 DVT0054P EQU DVT+212 00696000 DVT0053P EQU DVT+208 00697000 DVT0052P EQU DVT+204 00698000 DVT0051P EQU DVT+200 00699000 DVT0050P EQU DVT+196 00700000 DVT0049P EQU DVT+192 00701000 DVT0048P EQU DVT+188 00702000 DVT0047P EQU DVT+184 00703000 DVT0046P EQU DVT+180 00704000 DVT0045P EQU DVT+176 00705000 DVT0044P EQU DVT+172 00706000 DVT0043P EQU DVT+168 00707000 DVT0042P EQU DVT+164 00708000 DVT0041P EQU DVT+160 00709000 DVT0040P EQU DVT+156 00710000 DVT0039P EQU DVT+152 00711000 DVT0038P EQU DVT+148 00712000 DVT0037P EQU DVT+144 00713000 DVT0036P EQU DVT+140 00714000 DVT0035P EQU DVT+136 00715000 DVT0034P EQU DVT+132 00716000 DVTSD00P EQU DVT+84 00717000 DVT0011P EQU DVT+40 00718000 DVT0005P EQU DVT+16 00719000 DVT0002P EQU DVT+4 00720000 DVT0001P EQU DVT 00721000 BVT99999 EQU BVT+256 00722000 BVT0064P EQU BVT+252 00723000 BVT0063P EQU BVT+248 00724000 BVT0062P EQU BVT+244 00725000 BVT0061P EQU BVT+240 00726000 BVT0060P EQU BVT+236 00727000 BVT0059P EQU BVT+232 00728000 BVT0057P EQU BVT+224 00729000 BVT0056P EQU BVT+220 00730000 BVTSTBLP EQU BVT+200 00731000 BVT0045P EQU BVT+176 00732000 BVT0044P EQU BVT+172 00733000 BVT0033P EQU BVT+128 00734000 BVT0032P EQU BVT+124 00735000 BVT0031P EQU BVT+120 00736000 BVT0030P EQU BVT+116 00737000 BVT0029P EQU BVT+112 00738000 BVT0026P EQU BVT+100 00739000 BVT0025P EQU BVT+96 00740000 BVT0024P EQU BVT+92 00741000 BVT0023P EQU BVT+88 00742000 BVT0016P EQU BVT+60 00743000 BVT0015P EQU BVT+56 00744000 BVT0014P EQU BVT+52 00745000 BVT0003P EQU BVT+8 00746000 BVT0001P EQU BVT 00747000 UPTPREFL EQU UPT+23 00748000 UPTPREFX EQU UPT+16 00749000 @NM00073 EQU UPT+15 00750000 UPTLDEL EQU UPT+14 00751000 UPTCDEL EQU UPT+13 00752000 UPTWTP EQU UPTSWS 00753000 UPTMODE EQU UPTSWS 00754000 UPTALD EQU UPTSWS 00755000 UPTPAUS EQU UPTSWS 00756000 UPTNCOM EQU UPTSWS 00757000 UPTMID EQU UPTSWS 00758000 UPTNPRM EQU UPTSWS 00759000 UPTRCVR EQU UPTSWS 00760000 UPTUSER EQU UPT+2 00761000 @NM00072 EQU UPT 00762000 @NM00071 EQU ECT+52 00763000 @NM00070 EQU ECT+48 00764000 @NM00069 EQU ECT+44 00765000 @NM00068 EQU ECTSWS2+1 00766000 @NM00067 EQU ECTSWS21 00767000 ECTTABND EQU ECTSWS21 00768000 ECTDEFCS EQU ECTSWS21 00769000 ECTBKPB EQU ECT+36 00770000 ECTUSER EQU ECT+32 00771000 ECTDDNUM EQU ECT+29 00772000 ECTATTN EQU ECTSWS 00773000 ECTBKGRD EQU ECTSWS 00774000 ECTNNOT EQU ECTSWS 00775000 ECTNMAL EQU ECTSWS 00776000 ECTLOGF EQU ECTSWS 00777000 ECTATRM EQU ECTSWS 00778000 @NM00066 EQU ECTSWS 00779000 ECTNOPD EQU ECTSWS 00780000 ECTSCMD EQU ECT+20 00781000 ECTPCMD EQU ECT+12 00782000 ECTSMSG EQU ECT+9 00783000 ECTMSGF EQU ECT+8 00784000 ECTIOWA EQU ECT+4 00785000 ECTRTCD EQU ECT+1 00786000 ECTRCDF EQU ECT 00787000 PSCBU EQU PSCB+64 00788000 PSCBRSZ EQU PSCB+60 00789000 PSCBLINE EQU PSCB+59 00790000 PSCBCHAR EQU PSCB+58 00791000 PSCBUPTL EQU PSCB+56 00792000 PSCBUPT EQU PSCB+52 00793000 PSCBRLGB EQU PSCB+48 00794000 PSCBDEST EQU PSCB+40 00795000 @NM00065 EQU PSCB+36 00796000 @NM00064 EQU PSCB+32 00797000 @NM00063 EQU PSCB+28 00798000 PSCBLTI2 EQU PSCB+24 00799000 PSCBLTIM EQU PSCB+20 00800000 PSCBATR2 EQU PSCB+18 00801000 @NM00062 EQU PSCBATR1 00802000 @NM00061 EQU PSCBATR1 00803000 @NM00060 EQU PSCBATR1 00804000 PSCBATTN EQU PSCBATR1 00805000 PSCBVMNT EQU PSCBATR1 00806000 PSCBJCL EQU PSCBATR1 00807000 PSCBACCT EQU PSCBATR1 00808000 PSCBCTRL EQU PSCBATR1 00809000 PSCBGPNM EQU PSCB+8 00810000 PSCBUSRL EQU PSCB+7 00811000 PSCBUSER EQU PSCB 00812000 CMDT1 EQU CMDT 00813000 CMDO EQU CMD+2 00814000 CMDL EQU CMD 00815000 ZZ299999 EQU ZZ2+8192 00816000 ZZ2AXOT1 EQU ZZ2AXOT 00817000 ZZ2AXOL EQU ZZ2AXO 00818000 @NM00059 EQU ZZ2+7288 00819000 @NM00058 EQU ZZ2AMDX+4 00820000 ZZ2AMDXC EQU ZZ2AMDX 00821000 ZZ2HSD EQU ZZ2+3056 00822000 @NM00057 EQU ZZ2ES 00823000 @NM00056 EQU ZZ2+2868 00824000 ZZ2ITSEC EQU ZZ2ITSE+1 00825000 @NM00055 EQU ZZ2ITSE 00826000 ZZ2ITSEP EQU ZZ2ITSE 00827000 ZZ2ITSEW EQU ZZ2ITSE 00828000 @NM00054 EQU ZZ2ITR+20 00829000 ZZ2ITREC EQU ZZ2ITRE+1 00830000 @NM00053 EQU ZZ2ITRE 00831000 ZZ2ITREP EQU ZZ2ITRE 00832000 ZZ2ITREW EQU ZZ2ITRE 00833000 @NM00052 EQU ZZ2ITR+9 00834000 ZZ2ITRRC EQU ZZ2ITR+8 00835000 ZZ2ITR2P EQU ZZ2ITR+4 00836000 ZZ2ITRPP EQU ZZ2ITR 00837000 @NM00051 EQU ZZ2+1544 00838000 ZZ2PGM EQU ZZ2+1536 00839000 @NM00050 EQU ZZ2+1526 00840000 ZZ2CW EQU ZZ2+1524 00841000 @NM00049 EQU ZZ2+1504 00842000 @NM00048 EQU ZZ2+1352 00843000 ZZ2FFSYP EQU ZZ2+1348 00844000 ZZ2SASYP EQU ZZ2+1344 00845000 ZZ2RDSYP EQU ZZ2+1340 00846000 ZZ2RASYP EQU ZZ2+1336 00847000 ZZ2PHSYP EQU ZZ2+1332 00848000 ZZ2ESSYP EQU ZZ2+1328 00849000 ZZ200SYP EQU ZZ2+1324 00850000 ZZ2SCWP EQU ZZ2+1320 00851000 ZZ2TTLP EQU ZZ2+1316 00852000 ZZ2LOADP EQU ZZ2+1312 00853000 ZZ2VRESP EQU ZZ2+1308 00854000 ZZ2CPPLE EQU ZZ2CPPL+12 00855000 ZZ2CPPLP EQU ZZ2CPPL+8 00856000 ZZ2CPPLU EQU ZZ2CPPL+4 00857000 ZZ2VRSAP EQU ZZ2+1288 00858000 @NM00047 EQU ZZ2+1272 00859000 @NM00046 EQU ZZ2+1268 00860000 ZZ2RPLP EQU ZZ2+1260 00861000 ZZ2TCBP EQU ZZ2+1256 00862000 @NM00045 EQU ZZ2+1252 00863000 ZZ2ZZ2P EQU ZZ2+1248 00864000 @NM00044 EQU ZZ2+1112 00865000 @NM00043 EQU ZZ2+1080 00866000 ZZ2FT25P EQU ZZ2+1072 00867000 @NM00042 EQU ZZ2+976 00868000 ZZ2TOD EQU ZZ2+968 00869000 ZZ2STGN EQU ZZ2STG+4 00870000 ZZ2STGP EQU ZZ2STG 00871000 @NM00041 EQU ZZ2+952 00872000 ZZ2SCMDE EQU ZZ2+944 00873000 ZZ2SCMDN EQU ZZ2+936 00874000 ZZ2IDENT EQU ZZ2+928 00875000 ZZ2A9999 EQU ZZ2A+656 00876000 @NM00040 EQU ZZ2A+224 00877000 @NM00039 EQU ZZ2A+220 00878000 ZZ2AQD99 EQU ZZ2AQD+60 00879000 @NM00038 EQU ZZ2AQD+56 00880000 @NM00037 EQU ZZ2AQDF 00881000 ZZ2AQDFA EQU ZZ2AQDF 00882000 ZZ2AQDIL EQU ZZ2AQD+48 00883000 ZZ2AQDIM EQU ZZ2AQD+44 00884000 ZZ2AQDT9 EQU ZZ2AQDT+34 00885000 ZZ2AQDTE EQU ZZ2AQDT+33 00886000 ZZ2AQDTD EQU ZZ2AQDT+2 00887000 @NM00036 EQU ZZ2AQDT+1 00888000 ZZ2AQDTY EQU ZZ2AQDT 00889000 ZZ2AQDT0 EQU ZZ2AQDT 00890000 ZZ2AQDLB EQU ZZ2AQD+9 00891000 ZZ2AQDOB EQU ZZ2AQD+8 00892000 ZZ2AQDLE EQU ZZ2AQD+4 00893000 ZZ2AQDOF EQU ZZ2AQD 00894000 ZZ2AQD00 EQU ZZ2AQD 00895000 ZZ2AQAS9 EQU ZZ2AQAS+16 00896000 @NM00035 EQU ZZ2AQAS+12 00897000 ZZ2AQAS2 EQU ZZ2AQAS+8 00898000 ZZ2AQAS1 EQU ZZ2AQAS+4 00899000 @NM00034 EQU ZZ2AQAS+2 00900000 ZZ2AQAST EQU ZZ2AQAS 00901000 ZZ2AQAS0 EQU ZZ2AQAS 00902000 ZZ2AZZ6P EQU ZZ2A+140 00903000 @NM00033 EQU ZZ2A+72 00904000 ZZ2APIDB EQU ZZ2APID+3 00905000 ZZ2APIDA EQU ZZ2APID 00906000 @NM00032 EQU ZZ2A+24 00907000 @NM00031 EQU ZZ2AF+5 00908000 ZZ2AFX EQU ZZ2AF+5 00909000 @NM00030 EQU ZZ2AF+3 00910000 ZZ2AFS EQU ZZ2AF+2 00911000 ZZ2AFD EQU ZZ2AF+2 00912000 ZZ2AFQ EQU ZZ2AF+2 00913000 ZZ2AF$ EQU ZZ2AF+2 00914000 @NM00029 EQU ZZ2AF+2 00915000 ZZ2AFM EQU ZZ2AF+2 00916000 @NM00028 EQU ZZ2AF+2 00917000 @NM00027 EQU ZZ2AF+1 00918000 ZZ2AFV EQU ZZ2AF+1 00919000 @NM00026 EQU ZZ2AF+1 00920000 ZZ2AFC EQU ZZ2AF+1 00921000 @NM00025 EQU ZZ2AF 00922000 ZZ2AFFS EQU ZZ2AF 00923000 ZZ2AFT EQU ZZ2AF 00924000 ZZ2AFP EQU ZZ2AF 00925000 @NM00024 EQU ZZ2A+8 00926000 ZZ2ALINE EQU ZZ2A+4 00927000 @NM00023 EQU ZZ2A+3 00928000 ZZ2ASE EQU ZZ2A+2 00929000 ZZ2ACH EQU ZZ2A 00930000 @NM00022 EQU ZZ2+264 00931000 @NM00021 EQU ZZ2+263 00932000 ZZ2PRTT0 EQU ZZ2PRTT 00933000 ZZ2PRTO EQU ZZ2PRT+2 00934000 ZZ2PRTL EQU ZZ2PRT 00935000 @NM00020 EQU ZZ2AMD+56 00936000 ZZ2AMDXP EQU ZZ2AMD+52 00937000 ZZ2AMDD EQU ZZ2AMD+48 00938000 ZZ2AMDL EQU ZZ2AMD+44 00939000 ZZ2AMDU EQU ZZ2AMD+28 00940000 ZZ2AMDF EQU ZZ2AMD+24 00941000 ZZ2AMDS EQU ZZ2AMD+20 00942000 ZZ2AMDC EQU ZZ2AMD+16 00943000 ZZ2AMDP EQU ZZ2AMD+12 00944000 ZZ2AMDB EQU ZZ2AMD+8 00945000 @NM00019 EQU @NM00018 00946000 ZZ2AMD2 EQU @NM00018 00947000 ZZ2AMD1 EQU @NM00018 00948000 ZZ2AMD0 EQU ZZ2AMD+6 00949000 ZZ2AMDA EQU ZZ2AMD+4 00950000 ZZ2AMDT EQU ZZ2AMD 00951000 ZZ199999 EQU ZZ1+3072 00952000 @NM00017 EQU ZZ1+2160 00953000 ZZ1TRTAS EQU ZZ1+1904 00954000 ZZ1TRUPC EQU ZZ1+1648 00955000 ZZ1TRCTX EQU ZZ1+1392 00956000 ZZ1NASID EQU ZZ1N+274 00957000 ZZ1NSTRL EQU ZZ1N+272 00958000 ZZ1NOFF EQU ZZ1N+268 00959000 ZZ1NBDY EQU ZZ1N+264 00960000 ZZ1NADE EQU ZZ1N+260 00961000 ZZ1NADB EQU ZZ1N+256 00962000 ZZ1NSTR EQU ZZ1N 00963000 @NM00016 EQU ZZ1+1080 00964000 ZZ1TREBC EQU ZZ1+824 00965000 ZZ1TRHEX EQU ZZ1+568 00966000 @NM00015 EQU ZZ1+377 00967000 ZZ1USTAE EQU ZZ1+376 00968000 @NM00014 EQU ZZ1F+1 00969000 @NM00013 EQU ZZ1F 00970000 ZZ1FM EQU ZZ1F 00971000 ZZ1FX EQU ZZ1F 00972000 ZZ1FU EQU ZZ1F 00973000 ZZ1EVEC EQU ZZ1EVE+1 00974000 @NM00012 EQU ZZ1EVE 00975000 ZZ1EVEP EQU ZZ1EVE 00976000 ZZ1EVEW EQU ZZ1EVE 00977000 ZZ1ACMP EQU ZZ1ATTN 00978000 @NM00011 EQU ZZ1+144 00979000 ZZ1FPP EQU ZZ1+140 00980000 ZZ1ZZ6P EQU ZZ1+136 00981000 @NM00010 EQU ZZ1+84 00982000 ZZ1PLINE EQU ZZ1+80 00983000 ZZ1PGSZ EQU ZZ1+76 00984000 ZZ1PCNT EQU ZZ1+72 00985000 @NM00009 EQU ZZ1+68 00986000 ZZ1TPAGE EQU ZZ1+64 00987000 ZZ1TLINE EQU ZZ1+60 00988000 @NM00008 EQU ZZ1+52 00989000 ZZ1DMCBP EQU ZZ1+48 00990000 ZZ1DSDP EQU ZZ1+44 00991000 ZZ1PDRP EQU ZZ1+40 00992000 ZZ1327WP EQU ZZ1+32 00993000 ZZ1ACBP EQU ZZ1+28 00994000 @NM00007 EQU ZZ1+24 00995000 ZZ1PDCBP EQU ZZ1+20 00996000 ZZ1BLRBL EQU ZZ1+16 00997000 @NM00006 EQU ZZ1+12 00998000 ZZ1PNULL EQU ZZ1+8 00999000 ZZ1NULL EQU ZZ1+4 01000000 ZZ1IDE EQU ZZ1 01001000 RVT99999 EQU RVT+384 01002000 RVT0096P EQU RVT+380 01003000 RVT0095P EQU RVT+376 01004000 RVT0094P EQU RVT+372 01005000 RVT0093P EQU RVT+368 01006000 RVT0092P EQU RVT+364 01007000 RVT0091P EQU RVT+360 01008000 RVT0090P EQU RVT+356 01009000 RVT0089P EQU RVT+352 01010000 RVT0088P EQU RVT+348 01011000 RVT0087P EQU RVT+344 01012000 RVT0086P EQU RVT+340 01013000 RVT0085P EQU RVT+336 01014000 RVT0084P EQU RVT+332 01015000 RVT0083P EQU RVT+328 01016000 RVT0082P EQU RVT+324 01017000 RVT0081P EQU RVT+320 01018000 RVT0080P EQU RVT+316 01019000 RVT0079P EQU RVT+312 01020000 RVT0078P EQU RVT+308 01021000 RVT0077P EQU RVT+304 01022000 RVT0076P EQU RVT+300 01023000 RVT0075P EQU RVT+296 01024000 RVT0074P EQU RVT+292 01025000 RVT0073P EQU RVT+288 01026000 RVT0072P EQU RVT+284 01027000 RVTDTUTP EQU RVT+272 01028000 RVTDTMTP EQU RVT+268 01029000 RVT0057P EQU RVT+224 01030000 RVT0056P EQU RVT+220 01031000 RVT0055P EQU RVT+216 01032000 RVT0054P EQU RVT+212 01033000 RVT0053P EQU RVT+208 01034000 RVT0044P EQU RVT+172 01035000 RVT0043P EQU RVT+168 01036000 RVT0040P EQU RVT+156 01037000 RVT0039P EQU RVT+152 01038000 RVT0038P EQU RVT+148 01039000 RVT0037P EQU RVT+144 01040000 RVT0031P EQU RVT+120 01041000 RVT0030P EQU RVT+116 01042000 RVT0029P EQU RVT+112 01043000 RVT0020P EQU RVT+76 01044000 RVT0012P EQU RVT+44 01045000 RVT0010P EQU RVT+36 01046000 RVT0009P EQU RVT+32 01047000 RVT0008P EQU RVT+28 01048000 RVT0006P EQU RVT+20 01049000 SA99 EQU SA+72 01050000 SARC EQU SAR+56 01051000 SARB EQU SAR+52 01052000 SARA EQU SAR+48 01053000 SAR9 EQU SAR+44 01054000 SAR8 EQU SAR+40 01055000 SAR7 EQU SAR+36 01056000 SAR6 EQU SAR+32 01057000 SAR5 EQU SAR+28 01058000 SAR4 EQU SAR+24 01059000 SAR3 EQU SAR+20 01060000 SAR2 EQU SAR+16 01061000 SAR1 EQU SAR+12 01062000 SAR0 EQU SAR+8 01063000 SARF EQU SAR+4 01064000 SARE EQU SAR 01065000 SAFWD EQU SA+8 01066000 SABAK EQU SA+4 01067000 SA1L EQU SA1+1 01068000 SA1P EQU SA1 01069000 @NM00005 EQU DSNS+24 01070000 @NM00004 EQU DSNS+23 01071000 DSNSPF8 EQU DSNSPF 01072000 DSNSPF7 EQU DSNSPF 01073000 DSNSPF6 EQU DSNSPF 01074000 DSNSPF5 EQU DSNSPF 01075000 DSNSPF4 EQU DSNSPF 01076000 DSNSPF3 EQU DSNSPF 01077000 DSNSPF2 EQU DSNSPF 01078000 @NM00003 EQU DSNS+15 01079000 DSNSMF8 EQU DSNSMF 01080000 DSNSMF7 EQU DSNSMF 01081000 DSNSMF6 EQU DSNSMF 01082000 DSNSMF5 EQU DSNSMF 01083000 DSNSMF4 EQU DSNSMF 01084000 DSNSMF3 EQU DSNSMF 01085000 DSNSMF2 EQU DSNSMF 01086000 @NM00002 EQU DSNS+7 01087000 @NM00001 EQU DSNSDF 01088000 DSNSDFQ EQU DSNSDF 01089000 * END UNREFERENCED COMPONENTS 01090000 @ENDDATA EQU * 01091000 END BLSFSD00,(C'PLS2133',0701,78065) 01092000