TITLE 'IPCS LIST DSN ATTRIBUTES OF MANAGED,TYPE,DS NAME *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 *THIS MODULE WRITTEN FOR @G57LPGS 00004000 BLSFFL00 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSFFL00 78.065' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSUALLS R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 MVC @PC00001(12),0(@01) 0002 00024000 * 0133 00025000 */********************************************************************/ 00026000 */* */ 00027000 */* BEGIN MODULE EXECUTABLE CODE */ 00028000 */* */ 00029000 */********************************************************************/ 00030000 * 0133 00031000 * ZZ2PTR=ADDR(TV); /* SET LOCAL ZZ2 POINTER */ 00032000 L ZZ2PTR,@PC00001 0133 00033000 * RESPECIFY 0134 00034000 * RF RESTRICTED; /* RESTRICT REG 15 TO SAVE RET CD*/ 00035000 * DSDPTR=ADDR(DSDBUF); /* SET LOCAL COPY OF DSD REC */ 00036000 L DSDPTR,@PC00001+4 0135 00037000 * RETC=ZERO; /* SET RETURN CODE */ 00038000 SLR RETC,RETC 0136 00039000 * RESPECIFY 0137 00040000 * DSDREC BASED(DSDPTR); /* SET DSD BASING EXPRESSION */ 00041000 * IF DSDKBSID=DSDBRECC THEN /* WAS A BASE RECORD PASSED */ 00042000 CLC DSDKBSID(8,DSDPTR),@CC00793 0138 00043000 BNE @RF00138 0138 00044000 * DO; /* YES, KEEP GOING */ 00045000 * DSNLEN=FORTFOUR; /* INITIALIZE THE DSN LENGTH */ 00046000 LA DSNLEN,44 0140 00047000 * IF DSDSLOWN=DSDLSFMG THEN /* IS THE DSN MANAGED */ 00048000 TM DSDSLOWN(DSDPTR),B'10000000' 0141 00049000 BNO @RF00141 0141 00050000 * MSGNO=MAN; /* YES, USE MANAGED MESSAGE AS 0142 00051000 * BAS */ 00052000 MVC MSGNO(4),@CF00824 0142 00053000 * ELSE /* NO, DSN NOT MANAGED */ 00054000 * MSGNO=UNMAN; /* USE UNMANAGED MESSAGE AS BASE */ 00055000 B @RC00141 0143 00056000 @RF00141 MVC MSGNO(4),@CF00826 0143 00057000 * MEMNAME=BLANK; /* GIVE A BLANK INSERT */ 00058000 @RC00141 MVI MEMNAME+1,C' ' 0144 00059000 MVC MEMNAME+2(8),MEMNAME+1 0144 00060000 MVI MEMNAME,C' ' 0144 00061000 * OUTYPE=BLANK; /* GIVE A BLANK INSERT */ 00062000 MVI OUTYPE+1,C' ' 0145 00063000 MVC OUTYPE+2(8),OUTYPE+1 0145 00064000 MVI OUTYPE,C' ' 0145 00065000 * IF DSDKMEMN^=BLANKS THEN /* IS THE MEMBER NAME NON BLANK */ 00066000 CLC DSDKMEMN(8,DSDPTR),@CC00105 0146 00067000 BE @RF00146 0146 00068000 * DO; /* YES, FILL IN MEMBER NAME */ 00069000 * DO DSNLEN=ONE TO FORTFOUR WHILE(DSDKDSN(DSNLEN:DSNLEN))^= 00070000 * BLANK; 0148 00071000 LA DSNLEN,1 0148 00072000 @DL00148 LR @14,DSDPTR 0148 00073000 ALR @14,DSNLEN 0148 00074000 CLI DSDKDSN-1(@14),C' ' 0148 00075000 BE @DC00148 0148 00076000 * END; /* END DSN LENGTH LOOP */ 00077000 AL DSNLEN,@CF00046 0149 00078000 C DSNLEN,@CF00091 0149 00079000 BNH @DL00148 0149 00080000 @DC00148 DS 0H 0150 00081000 * DSNLEN=DSNLEN-ONE; /* MINUS ONE FOR TRUE LENGTH */ 00082000 BCTR DSNLEN,0 0150 00083000 * OUTDSLP=LEFTPREN; /* FILL IN LEFT PAREN */ 00084000 MVI OUTDSLP,C'(' 0151 00085000 * OUTMEMNM=DSDKMEMN; /* FILL IN MEMBER NAME */ 00086000 MVI OUTMEMNM+8,C' ' 0152 00087000 MVC OUTMEMNM(8),DSDKMEMN(DSDPTR) 0152 00088000 * DO I=ONE TO EIGHT WHILE(OUTMEMNM(I:I))^=BLANK;/* FIND 0153 00089000 * FRST BK */ 00090000 LA I,1 0153 00091000 @DL00153 LA @14,OUTMEMNM-1(I) 0153 00092000 CLI 0(@14),C' ' 0153 00093000 BE @DC00153 0153 00094000 * END; /* END BLANK FIND LOOP */ 00095000 AL I,@CF00046 0154 00096000 C I,@CF00054 0154 00097000 BNH @DL00153 0154 00098000 @DC00153 DS 0H 0155 00099000 * OUTMEMNM(I:I)=RITEPREN; /* FILL IN RIGHT PAREN */ 00100000 LA @14,OUTMEMNM-1(I) 0155 00101000 MVI 0(@14),C')' 0155 00102000 * END; /* END MEMBER NAME PRESENT */ 00103000 * DO; /* BLSDMSG 0157 00104000 * (ZZ2,DSNMSGNO,OUTPTR,BLSDMSGS) 00105000 * FIFO NOCOMP INSERT((DSDKDSN,DS 00106000 * NLEN),MEMNAME) */ 00107000 @RF00146 DS 0H 0158 00108000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00109000 LA @14,IOPTLIST+12 0158 00110000 ST @14,IOPTLIST 0158 00111000 * IOPTLIST(2)=ADDR(DSDKDSN);/* INSERT NAME POINTER */ 00112000 LA @14,DSDKDSN(,DSDPTR) 0159 00113000 ST @14,IOPTLIST+4 0159 00114000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00115000 SLR @14,@14 0160 00116000 ST @14,IOPTLIST+8 0160 00117000 * RFY 0161 00118000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00119000 * I015F=DSNLEN; /* INSERT LENGTH */ 00120000 LA @10,IOPTLIST+8 0162 00121000 STH DSNLEN,I015F(,@10) 0162 00122000 * IOPTLIST(4)=0; /* LAST INSERT */ 00123000 ST @14,IOPTLIST+12 0163 00124000 * IOPTLIST(5)=ADDR(MEMNAME);/* INSERT NAME POINTER */ 00125000 LA @10,MEMNAME 0164 00126000 ST @10,IOPTLIST+16 0164 00127000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00128000 ST @14,IOPTLIST+20 0165 00129000 * RFY 0166 00130000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00131000 * I015F=LENGTH(MEMNAME); /* INSERT LENGTH */ 00132000 LA @14,IOPTLIST+20 0167 00133000 MVC I015F(2,@14),@CH00480 0167 00134000 * CALL BLSDMSG0(ZZ2,DSNMSGNO,OUTPTR,BLSDMSGS,'01000000'B,ADDR( 00135000 * IOPTLIST)); /* BUILD MESSAGE */ 00136000 ST ZZ2PTR,@AL00001 0168 00137000 LA @14,@CF00828 0168 00138000 ST @14,@AL00001+4 0168 00139000 L @14,@PC00001+8 0168 00140000 ST @14,@AL00001+8 0168 00141000 L @14,ZZ2MSGSP(,ZZ2PTR) 0168 00142000 ST @14,@AL00001+12 0168 00143000 LA @14,@CB00838 0168 00144000 ST @14,@AL00001+16 0168 00145000 LA @14,IOPTLIST 0168 00146000 ST @14,@AFTEMPS 0168 00147000 LA @14,@AFTEMPS 0168 00148000 ST @14,@AL00001+20 0168 00149000 L @15,ZZ2MSG0P(,ZZ2PTR) 0168 00150000 LA @01,@AL00001 0168 00151000 BALR @14,@15 0168 00152000 * END; /* BLSDMSG 0169 00153000 * (ZZ2,DSNMSGNO,OUTPTR,BLSDMSGS) 00154000 * FIFO NOCOMP INSERT((DSDKDSN,DS 00155000 * NLEN),MEMNAME) BUILD FIRST 0169 00156000 * LINE OF DSN RPT */ 00157000 * RETC=RF; /* SAVE PUTA RETURN CODE */ 00158000 LR RETC,RF 0170 00159000 * IF RETC=ZERO THEN /* DID FIRST LINE WORK */ 00160000 LTR RETC,RETC 0171 00161000 BNZ @RF00171 0171 00162000 * DO; /* YES, CONTINUE WITH TYPE */ 00163000 * TYPELP=LEFTPREN; /* SET LEFT PAREN IN TYPE FIELD */ 00164000 MVI TYPELP,C'(' 0173 00165000 * TYPETYPE=DSDDSNTY; /* SET DS TYPE IN OUTPUT FIELD */ 00166000 MVI TYPETYPE+8,C' ' 0174 00167000 MVC TYPETYPE(8),DSDDSNTY(DSDPTR) 0174 00168000 * DO I=ONE TO EIGHT WHILE(TYPETYPE(I:I))^=BLANK;/* FIND 0175 00169000 * FRST BK */ 00170000 LA I,1 0175 00171000 @DL00175 LA @14,TYPETYPE-1(I) 0175 00172000 CLI 0(@14),C' ' 0175 00173000 BE @DC00175 0175 00174000 * END; /* END FIND BLANK LOOP */ 00175000 AL I,@CF00046 0176 00176000 C I,@CF00054 0176 00177000 BNH @DL00175 0176 00178000 @DC00175 DS 0H 0177 00179000 * TYPETYPE(I:I)=RITEPREN; /* SET RIGHT PAREN IN TYPE FIELD */ 00180000 LA @14,TYPETYPE-1(I) 0177 00181000 MVI 0(@14),C')' 0177 00182000 * DO; /* BLSDMSG 0178 00183000 * (ZZ2,MSGNO,OUTPTR,BLSDMSGS) 0178 00184000 * FIFO NOCOMP INSERT(OUTYPE) */ 00185000 * IOPTLIST(1)=0; /* LAST INSERT */ 00186000 SLR @14,@14 0179 00187000 ST @14,IOPTLIST 0179 00188000 * IOPTLIST(2)=ADDR(OUTYPE);/* INSERT NAME POINTER */ 00189000 LA @10,OUTYPE 0180 00190000 ST @10,IOPTLIST+4 0180 00191000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00192000 ST @14,IOPTLIST+8 0181 00193000 * RFY 0182 00194000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00195000 * I015F=LENGTH(OUTYPE); /* INSERT LENGTH */ 00196000 LA @14,IOPTLIST+8 0183 00197000 MVC I015F(2,@14),@CH00480 0183 00198000 * CALL BLSDMSG0(ZZ2,MSGNO,OUTPTR,BLSDMSGS,'01000000'B,ADDR( 00199000 * IOPTLIST)); /* BUILD MESSAGE */ 00200000 ST ZZ2PTR,@AL00001 0184 00201000 LA @14,MSGNO 0184 00202000 ST @14,@AL00001+4 0184 00203000 L @14,@PC00001+8 0184 00204000 ST @14,@AL00001+8 0184 00205000 L @14,ZZ2MSGSP(,ZZ2PTR) 0184 00206000 ST @14,@AL00001+12 0184 00207000 LA @14,@CB00838 0184 00208000 ST @14,@AL00001+16 0184 00209000 LA @14,IOPTLIST 0184 00210000 ST @14,@AFTEMPS 0184 00211000 LA @14,@AFTEMPS 0184 00212000 ST @14,@AL00001+20 0184 00213000 L @15,ZZ2MSG0P(,ZZ2PTR) 0184 00214000 LA @01,@AL00001 0184 00215000 BALR @14,@15 0184 00216000 * END; /* BLSDMSG 0185 00217000 * (ZZ2,MSGNO,OUTPTR,BLSDMSGS) 0185 00218000 * FIFO NOCOMP INSERT(OUTYPE) 0185 00219000 * BUILD ATTRIBUTE LINE */ 00220000 * RETC=RF; /* SAVE THE RETURN CODE */ 00221000 LR RETC,RF 0186 00222000 * END; /* END RETC = ZERO FIRST LINE */ 00223000 * END; /* END VALID DSD RECORD */ 00224000 * ELSE /* NOT A DSD BASE RECORD PASSED */ 00225000 * DO; /* MSG USER AND RETURN */ 00226000 B @RC00138 0189 00227000 @RF00138 DS 0H 0190 00228000 * RETC=ZZZFLAGS; /* SET ERROR RETURN CODE */ 00229000 LA RETC,12 0190 00230000 * END; /* END BASE RECORD BAD */ 00231000 * RETURN CODE(RETC); /* RETURN WITH A RETURN CODE */ 00232000 @RC00138 L @13,4(,@13) 0192 00233000 L @00,@SIZDATD 0192 00234000 LR @01,@11 0192 00235000 BLSUFRES R,LV=(0),A=(1) 00236000 LR @15,@03 0192 00237000 L @14,12(,@13) 0192 00238000 LM @00,@12,20(@13) 0192 00239000 BR @14 0192 00240000 */*BLSUPEND--MVS IPCS MODULE */ 00241000 * 0193 00242000 * DECLARE /* COMMON VARIABLES */ 00243000 * I256C CHAR(256) BASED, 0193 00244000 * I031F FIXED(31) BASED, 0193 00245000 * I031P PTR(31) BASED, 0193 00246000 * I015F FIXED(15) BASED, 0193 00247000 * I015P PTR(15) BASED, 0193 00248000 * I008P PTR(8) BASED, 0193 00249000 * I001C CHAR(1) BASED; 0193 00250000 * DECLARE 0194 00251000 * IOPTLIST(6) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00252000 * GENERATE NODEFS NOREFS DATA; 0195 00253000 * END /* BLRPEND END OF PROCESSING 0196 00254000 * FORMAT 1ST LN */ 00255000 * 0196 00256000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00257000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00258000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00259000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00260000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00261000 */*%INCLUDE SYSLIB (IKJECT ) */ 00262000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00263000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00264000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00265000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00266000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00267000 */*%INCLUDE SYSLIB (BLSDSD ) */ 00268000 * 0196 00269000 * ; 0196 00270000 @EL00001 L @13,4(,@13) 0196 00271000 @EF00001 L @00,@SIZDATD 0196 00272000 LR @01,@11 0196 00273000 BLSUFRES R,LV=(0),A=(1) 00274000 @ER00001 LM @14,@12,12(@13) 0196 00275000 BR @14 0196 00276000 @DATA DS 0H 00277000 @CH00480 DC H'10' 00278000 @DATD DSECT 00279000 DS 0F 00280000 @SA00001 DS 18F 00281000 @PC00001 DS 3F 00282000 @AL00001 DS 6A 00283000 @AFTEMPS DS 1F 00284000 BLSFFL00 CSECT 00285000 DS 0F 00286000 @CF00046 DC F'1' 00287000 @CF00054 DC F'8' 00288000 @CF00091 DC F'44' 00289000 @CF00824 DC F'40000' 00290000 @CF00826 DC F'40001' 00291000 @CF00828 DC F'40020' 00292000 @DATD DSECT 00293000 DS 0D 00294000 MSGNO DS F 00295000 MEMNAME DS CL10 00296000 ORG MEMNAME 00297000 OUTDSLP DS CL1 00298000 OUTMEMNM DS CL9 00299000 ORG MEMNAME+10 00300000 OUTYPE DS CL10 00301000 ORG OUTYPE 00302000 TYPELP DS CL1 00303000 TYPETYPE DS CL9 00304000 ORG OUTYPE+10 00305000 IOPTLIST DS 6A 00306000 BLSFFL00 CSECT 00307000 DS 0F 00308000 @SIZDATD DC AL1(0) 00309000 DC AL3(@ENDDATD-@DATD) 00310000 DS 0D 00311000 @CC00105 DC C' ' 00312000 @CC00793 DC C'DSN BASE' 00313000 @CB00838 DC B'01000000' 00314000 @DATD DSECT 00315000 SPACE 2 00316000 *********************************************************************** 00317000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00318000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00319000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00320000 *********************************************************************** 00321000 SPACE 00322000 BLSFFL00 CSECT 00323000 ORG 00324000 DS 0D 00325000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFFL00+19)/20+7)/8)CL8'BLSFFL00' 00326000 @DATD DSECT 00327000 SPACE 2 00328000 *********************************************************************** 00329000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00330000 *********************************************************************** 00331000 SPACE 00332000 DS 0D 00333000 @DATD DSECT 00334000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00335000 @ENDDATD EQU * 00336000 BLSFFL00 CSECT 00337000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00338000 @01 EQU 01 00339000 @02 EQU 02 00340000 @03 EQU 03 00341000 @04 EQU 04 00342000 @05 EQU 05 00343000 @06 EQU 06 00344000 @07 EQU 07 00345000 @08 EQU 08 00346000 @09 EQU 09 00347000 @10 EQU 10 00348000 @11 EQU 11 00349000 @12 EQU 12 00350000 @13 EQU 13 00351000 @14 EQU 14 00352000 @15 EQU 15 00353000 I EQU @03 00354000 RETC EQU @03 00355000 DSNLEN EQU @05 00356000 DSDPTR EQU @04 00357000 ZZ2PTR EQU @06 00358000 R0 EQU @00 00359000 R1 EQU @01 00360000 R2 EQU @02 00361000 R3 EQU @03 00362000 R4 EQU @04 00363000 R5 EQU @05 00364000 R9 EQU @09 00365000 RB EQU @11 00366000 RD EQU @13 00367000 RE EQU @14 00368000 RF EQU @15 00369000 RA EQU @10 00370000 RC EQU @12 00371000 R6 EQU @06 00372000 R7 EQU @07 00373000 R8 EQU @08 00374000 ZZ1 EQU 0 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 @NM00013 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 ZZ2ADDT EQU ZZ2ADD+2 00391000 ZZ2ADM EQU ZZ2AD+46 00392000 ZZ2ADMT EQU ZZ2ADM+2 00393000 ZZ2ADP EQU ZZ2AD+56 00394000 ZZ2ADPT EQU ZZ2ADP+2 00395000 ZZ2AQAS EQU ZZ2A+144 00396000 ZZ2AQD EQU ZZ2A+160 00397000 ZZ2AQDT EQU ZZ2AQD+10 00398000 ZZ2AQDF EQU ZZ2AQD+52 00399000 ZZ2STG EQU ZZ2+960 00400000 ZZ2ALLOP EQU ZZ2+992 00401000 ZZ2FREEP EQU ZZ2+996 00402000 ZZ2FF19P EQU ZZ2+1000 00403000 ZZ2FRE1P EQU ZZ2+1004 00404000 ZZ2FF18P EQU ZZ2+1008 00405000 ZZ2DYNAP EQU ZZ2+1012 00406000 ZZ2ZZ2CP EQU ZZ2+1016 00407000 ZZ2ZZ2DP EQU ZZ2+1020 00408000 ZZ2STAIP EQU ZZ2+1024 00409000 ZZ2FF02P EQU ZZ2+1028 00410000 ZZ2GETLP EQU ZZ2+1032 00411000 ZZ2PARSP EQU ZZ2+1036 00412000 ZZ2PTGTP EQU ZZ2+1040 00413000 ZZ2PUTLP EQU ZZ2+1044 00414000 ZZ2SCANP EQU ZZ2+1048 00415000 ZZ2STCKP EQU ZZ2+1052 00416000 ZZ2ALOCP EQU ZZ2+1056 00417000 ZZ2MSGSP EQU ZZ2+1060 00418000 ZZ2TRMOP EQU ZZ2+1064 00419000 ZZ2TRMVP EQU ZZ2+1068 00420000 ZZ2MSG0P EQU ZZ2+1076 00421000 ZZ2PUTNP EQU ZZ2+1084 00422000 ZZ2TRMNP EQU ZZ2+1088 00423000 ZZ2ENQ0P EQU ZZ2+1092 00424000 ZZ2ADSDP EQU ZZ2+1096 00425000 ZZ2APDRP EQU ZZ2+1100 00426000 ZZ2FDSDP EQU ZZ2+1104 00427000 ZZ2FPDRP EQU ZZ2+1108 00428000 ZZ2ZZ1P EQU ZZ2+1264 00429000 ZZ2DVTP EQU ZZ2+1276 00430000 ZZ2BVTP EQU ZZ2+1280 00431000 ZZ2CPPL EQU ZZ2+1292 00432000 ZZ2CPPLC EQU ZZ2CPPL 00433000 ZZ2ITR EQU ZZ2+2840 00434000 ZZ2ITRE EQU ZZ2ITR+16 00435000 ZZ2ITSE EQU ZZ2+2864 00436000 ZZ2ES EQU ZZ2+2872 00437000 ZZ2AMDX EQU ZZ2+7160 00438000 ZZ2AXO EQU ZZ2+7934 00439000 ZZ2AXOT EQU ZZ2AXO+2 00440000 CMD EQU 0 00441000 CMDT EQU CMD+4 00442000 PSCB EQU 0 00443000 PSCBATR1 EQU PSCB+16 00444000 ECT EQU 0 00445000 ECTSWS EQU ECT+28 00446000 ECTSWS2 EQU ECT+40 00447000 ECTSWS21 EQU ECTSWS2 00448000 UPT EQU 0 00449000 UPTSWS EQU UPT+12 00450000 SA EQU 0 00451000 SA1 EQU SA 00452000 SAR EQU SA+12 00453000 BVT EQU 0 00454000 BVTPUTLP EQU BVT+4 00455000 BVTPUTOP EQU BVT+12 00456000 BVTPUTTP EQU BVT+16 00457000 BVTPUTVP EQU BVT+20 00458000 BVTPUTAP EQU BVT+24 00459000 BVTPRTTP EQU BVT+28 00460000 BVTPRTAP EQU BVT+32 00461000 BVTPUTDP EQU BVT+36 00462000 BVTMONP EQU BVT+40 00463000 BVTMON2P EQU BVT+44 00464000 BVTVSARP EQU BVT+48 00465000 BVTVSENP EQU BVT+64 00466000 BVTVSERP EQU BVT+68 00467000 BVTVSGEP EQU BVT+72 00468000 BVTVSGUP EQU BVT+76 00469000 BVTVSPOP EQU BVT+80 00470000 BVTVSPUP EQU BVT+84 00471000 BVTMPKNP EQU BVT+104 00472000 BVTMONLP EQU BVT+108 00473000 BVTPUTCP EQU BVT+132 00474000 BVTMPK1P EQU BVT+136 00475000 BVTZZ2RP EQU BVT+140 00476000 BVTPGMRP EQU BVT+144 00477000 BVTMONAP EQU BVT+148 00478000 BVTBLDDP EQU BVT+152 00479000 BVTBLDLP EQU BVT+156 00480000 BVTPGMCP EQU BVT+160 00481000 BVTPGMDP EQU BVT+164 00482000 BVTPGMLP EQU BVT+168 00483000 BVTMONCP EQU BVT+180 00484000 BVTMONDP EQU BVT+184 00485000 BVTMONTP EQU BVT+188 00486000 BVTPARIP EQU BVT+192 00487000 BVTPARUP EQU BVT+196 00488000 BVTPRTNP EQU BVT+204 00489000 BVTVSCRP EQU BVT+208 00490000 BVTVSMRP EQU BVT+212 00491000 BVTMONXP EQU BVT+216 00492000 BVTTRMAP EQU BVT+228 00493000 BLSDMSGS EQU 0 00494000 BLSDMSG0 EQU 0 00495000 DVT EQU 0 00496000 DVTDEQPP EQU DVT+8 00497000 DVTENQPP EQU DVT+12 00498000 DVTAUTHP EQU DVT+20 00499000 DVTLPCLP EQU DVT+24 00500000 DVTBP00P EQU DVT+28 00501000 DVTCN00P EQU DVT+32 00502000 DVTDF00P EQU DVT+36 00503000 DVTDS00P EQU DVT+44 00504000 DVTFP00P EQU DVT+52 00505000 DVTGD00P EQU DVT+56 00506000 DVTGG00P EQU DVT+60 00507000 DVTGP00P EQU DVT+64 00508000 DVTND00P EQU DVT+68 00509000 DVTND01P EQU DVT+72 00510000 DVTOD00P EQU DVT+76 00511000 DVTPS00P EQU DVT+80 00512000 DVTSD00P EQU DVT+84 00513000 DVTSL00P EQU DVT+88 00514000 DVTTL00P EQU DVT+92 00515000 DVTUD00P EQU DVT+96 00516000 DVTUP00P EQU DVT+100 00517000 DVTLP00P EQU DVT+104 00518000 DVTLALLP EQU DVT+108 00519000 DVTLPFMP EQU DVT+112 00520000 DVTCLOSP EQU DVT+116 00521000 DVTOPENP EQU DVT+120 00522000 DVTPERAP EQU DVT+124 00523000 DVTDALLP EQU DVT+128 00524000 DSDREC EQU 0 00525000 DSDKEY EQU DSDREC 00526000 DSDKGRP EQU DSDKEY 00527000 DSDKDSNM EQU DSDKGRP+1 00528000 DSDKDSN EQU DSDKDSNM 00529000 DSDKMEMN EQU DSDKDSNM+44 00530000 DSDKBSID EQU DSDKEY+53 00531000 DSDKPID EQU DSDKBSID 00532000 DSDINFO EQU DSDREC+64 00533000 I015F EQU 0 00534000 BLSCALOC EQU 0 00535000 BLSDADSD EQU 0 00536000 BLSDAPDR EQU 0 00537000 BLSDDEQP EQU 0 00538000 BLSDENQP EQU 0 00539000 BLSDENQ0 EQU 0 00540000 BLSDFDSD EQU 0 00541000 BLSDFPDR EQU 0 00542000 BLSEAUTH EQU 0 00543000 BLSELPCL EQU 0 00544000 BLSELPFM EQU 0 00545000 BLSFBP00 EQU 0 00546000 BLSFCLOS EQU 0 00547000 BLSFCN00 EQU 0 00548000 BLSFDALL EQU 0 00549000 BLSFDF00 EQU 0 00550000 BLSFDS00 EQU 0 00551000 BLSFFP00 EQU 0 00552000 BLSFGD00 EQU 0 00553000 BLSFGG00 EQU 0 00554000 BLSFGP00 EQU 0 00555000 BLSFLALL EQU 0 00556000 BLSFLP00 EQU 0 00557000 BLSFND00 EQU 0 00558000 BLSFND01 EQU 0 00559000 BLSFOD00 EQU 0 00560000 BLSFOPEN EQU 0 00561000 BLSFPERA EQU 0 00562000 BLSFPS00 EQU 0 00563000 BLSFSD00 EQU 0 00564000 BLSFSL00 EQU 0 00565000 BLSFTL00 EQU 0 00566000 BLSFUD00 EQU 0 00567000 BLSFUP00 EQU 0 00568000 BLSUALLO EQU 0 00569000 BLSUBLDD EQU 0 00570000 BLSUBLDL EQU 0 00571000 BLSUDYNA EQU 0 00572000 BLSUFREE EQU 0 00573000 BLSUFRE1 EQU 0 00574000 BLSUMON EQU 0 00575000 BLSUMONA EQU 0 00576000 BLSUMONC EQU 0 00577000 BLSUMOND EQU 0 00578000 BLSUMONL EQU 0 00579000 BLSUMONT EQU 0 00580000 BLSUMONX EQU 0 00581000 BLSUMON2 EQU 0 00582000 BLSUMPKN EQU 0 00583000 BLSUMPK1 EQU 0 00584000 BLSUPARI EQU 0 00585000 BLSUPARU EQU 0 00586000 BLSUPGMC EQU 0 00587000 BLSUPGMD EQU 0 00588000 BLSUPGML EQU 0 00589000 BLSUPGMR EQU 0 00590000 BLSUPRTA EQU 0 00591000 BLSUPRTN EQU 0 00592000 BLSUPRTT EQU 0 00593000 BLSUPUTA EQU 0 00594000 BLSUPUTC EQU 0 00595000 BLSUPUTD EQU 0 00596000 BLSUPUTL EQU 0 00597000 BLSUPUTN EQU 0 00598000 BLSUPUTO EQU 0 00599000 BLSUPUTT EQU 0 00600000 BLSUPUTV EQU 0 00601000 BLSUSTAI EQU 0 00602000 BLSUTRMA EQU 0 00603000 BLSUTRMN EQU 0 00604000 BLSUTRMO EQU 0 00605000 BLSUTRMV EQU 0 00606000 BLSUVSAR EQU 0 00607000 BLSUVSCR EQU 0 00608000 BLSUVSEN EQU 0 00609000 BLSUVSER EQU 0 00610000 BLSUVSGE EQU 0 00611000 BLSUVSGU EQU 0 00612000 BLSUVSMR EQU 0 00613000 BLSUVSPO EQU 0 00614000 BLSUVSPU EQU 0 00615000 BLSUZZ2C EQU 0 00616000 BLSUZZ2D EQU 0 00617000 BLSUZZ2R EQU 0 00618000 IKJEFF02 EQU 0 00619000 IKJEFF18 EQU 0 00620000 IKJEFF19 EQU 0 00621000 IKJGETL EQU 0 00622000 IKJPARS EQU 0 00623000 IKJPTGT EQU 0 00624000 IKJPUTL EQU 0 00625000 IKJSCAN EQU 0 00626000 IKJSTCK EQU 0 00627000 I001C EQU 0 00628000 I008P EQU 0 00629000 I015P EQU 0 00630000 I031F EQU 0 00631000 I031P EQU 0 00632000 I256C EQU 0 00633000 TV EQU 0 00634000 DSDBUF EQU 0 00635000 OUTPTR EQU 0 00636000 CPPL EQU ZZ2CPPL 00637000 CPPLUPT EQU CPPL+4 00638000 CPPLPSCB EQU CPPL+8 00639000 CPPLECT EQU CPPL+12 00640000 DSDBASRC EQU DSDINFO 00641000 DSDDSNTY EQU DSDBASRC 00642000 DSDDSATR EQU DSDBASRC+8 00643000 DSDSLOWN EQU DSDDSATR 00644000 DSDPRASR EQU DSDINFO 00645000 * START UNREFERENCED COMPONENTS 00646000 DSDPRSQN EQU DSDPRASR 00647000 DSDBRES1 EQU DSDBASRC+76 00648000 DSDDESC EQU DSDBASRC+16 00649000 CPPLCBUF EQU CPPL 00650000 DSDRES1 EQU DSDREC+61 00651000 DSDKPNUM EQU DSDKPID+3 00652000 DSDKPREF EQU DSDKPID 00653000 DSDKTYP EQU DSDKGRP 00654000 DVT99999 EQU DVT+256 00655000 DVT0064P EQU DVT+252 00656000 DVT0063P EQU DVT+248 00657000 DVT0062P EQU DVT+244 00658000 DVT0061P EQU DVT+240 00659000 DVT0060P EQU DVT+236 00660000 DVT0059P EQU DVT+232 00661000 DVT0058P EQU DVT+228 00662000 DVT0057P EQU DVT+224 00663000 DVT0056P EQU DVT+220 00664000 DVT0055P EQU DVT+216 00665000 DVT0054P EQU DVT+212 00666000 DVT0053P EQU DVT+208 00667000 DVT0052P EQU DVT+204 00668000 DVT0051P EQU DVT+200 00669000 DVT0050P EQU DVT+196 00670000 DVT0049P EQU DVT+192 00671000 DVT0048P EQU DVT+188 00672000 DVT0047P EQU DVT+184 00673000 DVT0046P EQU DVT+180 00674000 DVT0045P EQU DVT+176 00675000 DVT0044P EQU DVT+172 00676000 DVT0043P EQU DVT+168 00677000 DVT0042P EQU DVT+164 00678000 DVT0041P EQU DVT+160 00679000 DVT0040P EQU DVT+156 00680000 DVT0039P EQU DVT+152 00681000 DVT0038P EQU DVT+148 00682000 DVT0037P EQU DVT+144 00683000 DVT0036P EQU DVT+140 00684000 DVT0035P EQU DVT+136 00685000 DVT0034P EQU DVT+132 00686000 DVTFL00P EQU DVT+48 00687000 DVT0011P EQU DVT+40 00688000 DVT0005P EQU DVT+16 00689000 DVT0002P EQU DVT+4 00690000 DVT0001P EQU DVT 00691000 BVT99999 EQU BVT+256 00692000 BVT0064P EQU BVT+252 00693000 BVT0063P EQU BVT+248 00694000 BVT0062P EQU BVT+244 00695000 BVT0061P EQU BVT+240 00696000 BVT0060P EQU BVT+236 00697000 BVT0059P EQU BVT+232 00698000 BVT0057P EQU BVT+224 00699000 BVT0056P EQU BVT+220 00700000 BVTSTBLP EQU BVT+200 00701000 BVT0045P EQU BVT+176 00702000 BVT0044P EQU BVT+172 00703000 BVT0033P EQU BVT+128 00704000 BVT0032P EQU BVT+124 00705000 BVT0031P EQU BVT+120 00706000 BVT0030P EQU BVT+116 00707000 BVT0029P EQU BVT+112 00708000 BVT0026P EQU BVT+100 00709000 BVT0025P EQU BVT+96 00710000 BVT0024P EQU BVT+92 00711000 BVT0023P EQU BVT+88 00712000 BVT0016P EQU BVT+60 00713000 BVT0015P EQU BVT+56 00714000 BVT0014P EQU BVT+52 00715000 BVT0003P EQU BVT+8 00716000 BVT0001P EQU BVT 00717000 SA99 EQU SA+72 00718000 SARC EQU SAR+56 00719000 SARB EQU SAR+52 00720000 SARA EQU SAR+48 00721000 SAR9 EQU SAR+44 00722000 SAR8 EQU SAR+40 00723000 SAR7 EQU SAR+36 00724000 SAR6 EQU SAR+32 00725000 SAR5 EQU SAR+28 00726000 SAR4 EQU SAR+24 00727000 SAR3 EQU SAR+20 00728000 SAR2 EQU SAR+16 00729000 SAR1 EQU SAR+12 00730000 SAR0 EQU SAR+8 00731000 SARF EQU SAR+4 00732000 SARE EQU SAR 00733000 SAFWD EQU SA+8 00734000 SABAK EQU SA+4 00735000 SA1L EQU SA1+1 00736000 SA1P EQU SA1 00737000 UPTPREFL EQU UPT+23 00738000 UPTPREFX EQU UPT+16 00739000 @NM00068 EQU UPT+15 00740000 UPTLDEL EQU UPT+14 00741000 UPTCDEL EQU UPT+13 00742000 UPTWTP EQU UPTSWS 00743000 UPTMODE EQU UPTSWS 00744000 UPTALD EQU UPTSWS 00745000 UPTPAUS EQU UPTSWS 00746000 UPTNCOM EQU UPTSWS 00747000 UPTMID EQU UPTSWS 00748000 UPTNPRM EQU UPTSWS 00749000 UPTRCVR EQU UPTSWS 00750000 UPTUSER EQU UPT+2 00751000 @NM00067 EQU UPT 00752000 @NM00066 EQU ECT+52 00753000 @NM00065 EQU ECT+48 00754000 @NM00064 EQU ECT+44 00755000 @NM00063 EQU ECTSWS2+1 00756000 @NM00062 EQU ECTSWS21 00757000 ECTTABND EQU ECTSWS21 00758000 ECTDEFCS EQU ECTSWS21 00759000 ECTBKPB EQU ECT+36 00760000 ECTUSER EQU ECT+32 00761000 ECTDDNUM EQU ECT+29 00762000 ECTATTN EQU ECTSWS 00763000 ECTBKGRD EQU ECTSWS 00764000 ECTNNOT EQU ECTSWS 00765000 ECTNMAL EQU ECTSWS 00766000 ECTLOGF EQU ECTSWS 00767000 ECTATRM EQU ECTSWS 00768000 @NM00061 EQU ECTSWS 00769000 ECTNOPD EQU ECTSWS 00770000 ECTSCMD EQU ECT+20 00771000 ECTPCMD EQU ECT+12 00772000 ECTSMSG EQU ECT+9 00773000 ECTMSGF EQU ECT+8 00774000 ECTIOWA EQU ECT+4 00775000 ECTRTCD EQU ECT+1 00776000 ECTRCDF EQU ECT 00777000 PSCBU EQU PSCB+64 00778000 PSCBRSZ EQU PSCB+60 00779000 PSCBLINE EQU PSCB+59 00780000 PSCBCHAR EQU PSCB+58 00781000 PSCBUPTL EQU PSCB+56 00782000 PSCBUPT EQU PSCB+52 00783000 PSCBRLGB EQU PSCB+48 00784000 PSCBDEST EQU PSCB+40 00785000 @NM00060 EQU PSCB+36 00786000 @NM00059 EQU PSCB+32 00787000 @NM00058 EQU PSCB+28 00788000 PSCBLTI2 EQU PSCB+24 00789000 PSCBLTIM EQU PSCB+20 00790000 PSCBATR2 EQU PSCB+18 00791000 @NM00057 EQU PSCBATR1 00792000 @NM00056 EQU PSCBATR1 00793000 @NM00055 EQU PSCBATR1 00794000 PSCBATTN EQU PSCBATR1 00795000 PSCBVMNT EQU PSCBATR1 00796000 PSCBJCL EQU PSCBATR1 00797000 PSCBACCT EQU PSCBATR1 00798000 PSCBCTRL EQU PSCBATR1 00799000 PSCBGPNM EQU PSCB+8 00800000 PSCBUSRL EQU PSCB+7 00801000 PSCBUSER EQU PSCB 00802000 CMDT1 EQU CMDT 00803000 CMDO EQU CMD+2 00804000 CMDL EQU CMD 00805000 ZZ299999 EQU ZZ2+8192 00806000 ZZ2AXOT1 EQU ZZ2AXOT 00807000 ZZ2AXOL EQU ZZ2AXO 00808000 @NM00054 EQU ZZ2+7288 00809000 @NM00053 EQU ZZ2AMDX+4 00810000 ZZ2AMDXC EQU ZZ2AMDX 00811000 ZZ2HSD EQU ZZ2+3056 00812000 @NM00052 EQU ZZ2ES 00813000 @NM00051 EQU ZZ2+2868 00814000 ZZ2ITSEC EQU ZZ2ITSE+1 00815000 @NM00050 EQU ZZ2ITSE 00816000 ZZ2ITSEP EQU ZZ2ITSE 00817000 ZZ2ITSEW EQU ZZ2ITSE 00818000 @NM00049 EQU ZZ2ITR+20 00819000 ZZ2ITREC EQU ZZ2ITRE+1 00820000 @NM00048 EQU ZZ2ITRE 00821000 ZZ2ITREP EQU ZZ2ITRE 00822000 ZZ2ITREW EQU ZZ2ITRE 00823000 @NM00047 EQU ZZ2ITR+9 00824000 ZZ2ITRRC EQU ZZ2ITR+8 00825000 ZZ2ITR2P EQU ZZ2ITR+4 00826000 ZZ2ITRPP EQU ZZ2ITR 00827000 @NM00046 EQU ZZ2+1544 00828000 ZZ2PGM EQU ZZ2+1536 00829000 @NM00045 EQU ZZ2+1526 00830000 ZZ2CW EQU ZZ2+1524 00831000 @NM00044 EQU ZZ2+1504 00832000 @NM00043 EQU ZZ2+1352 00833000 ZZ2FFSYP EQU ZZ2+1348 00834000 ZZ2SASYP EQU ZZ2+1344 00835000 ZZ2RDSYP EQU ZZ2+1340 00836000 ZZ2RASYP EQU ZZ2+1336 00837000 ZZ2PHSYP EQU ZZ2+1332 00838000 ZZ2ESSYP EQU ZZ2+1328 00839000 ZZ200SYP EQU ZZ2+1324 00840000 ZZ2SCWP EQU ZZ2+1320 00841000 ZZ2TTLP EQU ZZ2+1316 00842000 ZZ2LOADP EQU ZZ2+1312 00843000 ZZ2VRESP EQU ZZ2+1308 00844000 ZZ2CPPLE EQU ZZ2CPPL+12 00845000 ZZ2CPPLP EQU ZZ2CPPL+8 00846000 ZZ2CPPLU EQU ZZ2CPPL+4 00847000 ZZ2VRSAP EQU ZZ2+1288 00848000 ZZ2RVTP EQU ZZ2+1284 00849000 @NM00042 EQU ZZ2+1272 00850000 @NM00041 EQU ZZ2+1268 00851000 ZZ2RPLP EQU ZZ2+1260 00852000 ZZ2TCBP EQU ZZ2+1256 00853000 @NM00040 EQU ZZ2+1252 00854000 ZZ2ZZ2P EQU ZZ2+1248 00855000 @NM00039 EQU ZZ2+1112 00856000 @NM00038 EQU ZZ2+1080 00857000 ZZ2FT25P EQU ZZ2+1072 00858000 @NM00037 EQU ZZ2+976 00859000 ZZ2TOD EQU ZZ2+968 00860000 ZZ2STGN EQU ZZ2STG+4 00861000 ZZ2STGP EQU ZZ2STG 00862000 @NM00036 EQU ZZ2+952 00863000 ZZ2SCMDE EQU ZZ2+944 00864000 ZZ2SCMDN EQU ZZ2+936 00865000 ZZ2IDENT EQU ZZ2+928 00866000 ZZ2A9999 EQU ZZ2A+656 00867000 @NM00035 EQU ZZ2A+224 00868000 @NM00034 EQU ZZ2A+220 00869000 ZZ2AQD99 EQU ZZ2AQD+60 00870000 @NM00033 EQU ZZ2AQD+56 00871000 @NM00032 EQU ZZ2AQDF 00872000 ZZ2AQDFA EQU ZZ2AQDF 00873000 ZZ2AQDIL EQU ZZ2AQD+48 00874000 ZZ2AQDIM EQU ZZ2AQD+44 00875000 ZZ2AQDT9 EQU ZZ2AQDT+34 00876000 ZZ2AQDTE EQU ZZ2AQDT+33 00877000 ZZ2AQDTD EQU ZZ2AQDT+2 00878000 @NM00031 EQU ZZ2AQDT+1 00879000 ZZ2AQDTY EQU ZZ2AQDT 00880000 ZZ2AQDT0 EQU ZZ2AQDT 00881000 ZZ2AQDLB EQU ZZ2AQD+9 00882000 ZZ2AQDOB EQU ZZ2AQD+8 00883000 ZZ2AQDLE EQU ZZ2AQD+4 00884000 ZZ2AQDOF EQU ZZ2AQD 00885000 ZZ2AQD00 EQU ZZ2AQD 00886000 ZZ2AQAS9 EQU ZZ2AQAS+16 00887000 @NM00030 EQU ZZ2AQAS+12 00888000 ZZ2AQAS2 EQU ZZ2AQAS+8 00889000 ZZ2AQAS1 EQU ZZ2AQAS+4 00890000 @NM00029 EQU ZZ2AQAS+2 00891000 ZZ2AQAST EQU ZZ2AQAS 00892000 ZZ2AQAS0 EQU ZZ2AQAS 00893000 ZZ2AZZ6P EQU ZZ2A+140 00894000 ZZ2ADPTA EQU ZZ2ADPT 00895000 ZZ2ADPL EQU ZZ2ADP 00896000 ZZ2ADMTA EQU ZZ2ADMT 00897000 ZZ2ADML EQU ZZ2ADM 00898000 ZZ2ADDTA EQU ZZ2ADDT 00899000 ZZ2ADDL EQU ZZ2ADD 00900000 @NM00028 EQU ZZ2A+72 00901000 ZZ2APIDB EQU ZZ2APID+3 00902000 ZZ2APIDA EQU ZZ2APID 00903000 @NM00027 EQU ZZ2A+24 00904000 @NM00026 EQU ZZ2AF+5 00905000 ZZ2AFX EQU ZZ2AF+5 00906000 @NM00025 EQU ZZ2AF+3 00907000 ZZ2AFS EQU ZZ2AF+2 00908000 ZZ2AFD EQU ZZ2AF+2 00909000 ZZ2AFQ EQU ZZ2AF+2 00910000 ZZ2AF$ EQU ZZ2AF+2 00911000 @NM00024 EQU ZZ2AF+2 00912000 ZZ2AFM EQU ZZ2AF+2 00913000 @NM00023 EQU ZZ2AF+2 00914000 @NM00022 EQU ZZ2AF+1 00915000 ZZ2AFV EQU ZZ2AF+1 00916000 @NM00021 EQU ZZ2AF+1 00917000 ZZ2AFC EQU ZZ2AF+1 00918000 @NM00020 EQU ZZ2AF 00919000 ZZ2AFFS EQU ZZ2AF 00920000 ZZ2AFT EQU ZZ2AF 00921000 ZZ2AFP EQU ZZ2AF 00922000 @NM00019 EQU ZZ2A+8 00923000 ZZ2ALINE EQU ZZ2A+4 00924000 @NM00018 EQU ZZ2A+3 00925000 ZZ2ASE EQU ZZ2A+2 00926000 ZZ2ACH EQU ZZ2A 00927000 @NM00017 EQU ZZ2+264 00928000 @NM00016 EQU ZZ2+263 00929000 ZZ2PRTT0 EQU ZZ2PRTT 00930000 ZZ2PRTO EQU ZZ2PRT+2 00931000 ZZ2PRTL EQU ZZ2PRT 00932000 @NM00015 EQU ZZ2AMD+56 00933000 ZZ2AMDXP EQU ZZ2AMD+52 00934000 ZZ2AMDD EQU ZZ2AMD+48 00935000 ZZ2AMDL EQU ZZ2AMD+44 00936000 ZZ2AMDU EQU ZZ2AMD+28 00937000 ZZ2AMDF EQU ZZ2AMD+24 00938000 ZZ2AMDS EQU ZZ2AMD+20 00939000 ZZ2AMDC EQU ZZ2AMD+16 00940000 ZZ2AMDP EQU ZZ2AMD+12 00941000 ZZ2AMDB EQU ZZ2AMD+8 00942000 @NM00014 EQU @NM00013 00943000 ZZ2AMD2 EQU @NM00013 00944000 ZZ2AMD1 EQU @NM00013 00945000 ZZ2AMD0 EQU ZZ2AMD+6 00946000 ZZ2AMDA EQU ZZ2AMD+4 00947000 ZZ2AMDT EQU ZZ2AMD 00948000 ZZ199999 EQU ZZ1+3072 00949000 @NM00012 EQU ZZ1+2160 00950000 ZZ1TRTAS EQU ZZ1+1904 00951000 ZZ1TRUPC EQU ZZ1+1648 00952000 ZZ1TRCTX EQU ZZ1+1392 00953000 ZZ1NASID EQU ZZ1N+274 00954000 ZZ1NSTRL EQU ZZ1N+272 00955000 ZZ1NOFF EQU ZZ1N+268 00956000 ZZ1NBDY EQU ZZ1N+264 00957000 ZZ1NADE EQU ZZ1N+260 00958000 ZZ1NADB EQU ZZ1N+256 00959000 ZZ1NSTR EQU ZZ1N 00960000 @NM00011 EQU ZZ1+1080 00961000 ZZ1TREBC EQU ZZ1+824 00962000 ZZ1TRHEX EQU ZZ1+568 00963000 @NM00010 EQU ZZ1+377 00964000 ZZ1USTAE EQU ZZ1+376 00965000 @NM00009 EQU ZZ1F+1 00966000 @NM00008 EQU ZZ1F 00967000 ZZ1FM EQU ZZ1F 00968000 ZZ1FX EQU ZZ1F 00969000 ZZ1FU EQU ZZ1F 00970000 ZZ1EVEC EQU ZZ1EVE+1 00971000 @NM00007 EQU ZZ1EVE 00972000 ZZ1EVEP EQU ZZ1EVE 00973000 ZZ1EVEW EQU ZZ1EVE 00974000 ZZ1ACMP EQU ZZ1ATTN 00975000 @NM00006 EQU ZZ1+144 00976000 ZZ1FPP EQU ZZ1+140 00977000 ZZ1ZZ6P EQU ZZ1+136 00978000 @NM00005 EQU ZZ1+84 00979000 ZZ1PLINE EQU ZZ1+80 00980000 ZZ1PGSZ EQU ZZ1+76 00981000 ZZ1PCNT EQU ZZ1+72 00982000 @NM00004 EQU ZZ1+68 00983000 ZZ1TPAGE EQU ZZ1+64 00984000 ZZ1TLINE EQU ZZ1+60 00985000 @NM00003 EQU ZZ1+52 00986000 ZZ1DMCBP EQU ZZ1+48 00987000 ZZ1DSDP EQU ZZ1+44 00988000 ZZ1PDRP EQU ZZ1+40 00989000 ZZ1ZZ2P EQU ZZ1+36 00990000 ZZ1327WP EQU ZZ1+32 00991000 ZZ1ACBP EQU ZZ1+28 00992000 @NM00002 EQU ZZ1+24 00993000 ZZ1PDCBP EQU ZZ1+20 00994000 ZZ1BLRBL EQU ZZ1+16 00995000 @NM00001 EQU ZZ1+12 00996000 ZZ1PNULL EQU ZZ1+8 00997000 ZZ1NULL EQU ZZ1+4 00998000 ZZ1IDE EQU ZZ1 00999000 * END UNREFERENCED COMPONENTS 01000000 @RF00171 EQU @RC00138 01001000 @ENDDATA EQU * 01002000 END BLSFFL00,(C'PLS1648',0701,78065) 01003000