TITLE 'EP=BLSDADSD -- IPCS PM/DM ALLOCATE THE DATA SET DIRECTO*00001000 ORY ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSDADSD CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSDADSD 78.062' 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 BLSUALLR 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 EJECT 00024000 * 0118 00025000 * /*****************************************************************/ 00026000 * /* */ 00027000 * /* INITIALIZE MODULE STATUS */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0118 00031000 * MODNAME=LMODNMC; 0118 00032000 MVC MODNAME(8),@CC00934 0118 00033000 * RETCODE=ZERO; 0119 00034000 SLR @10,@10 0119 00035000 ST @10,RETCODE 0119 00036000 * ANCHOR=ZERO; 0120 00037000 * 0120 00038000 ST @10,ANCHOR 0120 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* INSURE THAT THE FACILITIES PARAMETER BLOCK IS INITIALIZED */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 0121 00045000 * IF ZZ1FPP=ZZZNULL THEN /* TEST FOR UNINITIALIZED FPBLOCK*/ 00046000 L @10,ZZ2ZZ1P(,R9) 0121 00047000 CLC ZZ1FPP(4,@10),@CF00059 0121 00048000 BNE @RF00121 0121 00049000 * DO; /* FPBLOCK NOT PRESENT */ 00050000 * RETCODE=ZZZFLAGT; /* MARK TERMINATING ERROR */ 00051000 MVC RETCODE(4),@CF00050 0123 00052000 * END; /* FPBLOCK NOT PRESENT */ 00053000 * ELSE 0125 00054000 * DO; /* FPBLOCK PRESENT */ 00055000 * 0125 00056000 B @RC00121 0125 00057000 @RF00121 DS 0H 0126 00058000 * /*************************************************************/ 00059000 * /* */ 00060000 * /* ALLOCATE THE DATA SET DIRECTORY DATA SET */ 00061000 * /* */ 00062000 * /*************************************************************/ 00063000 * 0126 00064000 * DMCBPTR=ZZ1DSDP&B0MASK; /* INIT THE DMCB POINTER */ 00065000 L @10,ZZ2ZZ1P(,R9) 0126 00066000 L @08,ZZ1DSDP(,@10) 0126 00067000 N @08,@CF00930 0126 00068000 ST @08,DMCBPTR 0126 00069000 */* BLSCONAL (ZZ2,DMCBPTR,MODEL,ACCMODE) DSN(LENGTH(FPDSDS),FPDSDS) */ 00070000 * 0127 00071000 * DO; /* BLSCONAL 0127 00072000 * (ZZ2,DMCBPTR,MODEL,ACCMODE) 0127 00073000 * DSN(LENGTH(FPDSDS),FPDSDS) */ 00074000 * IOPTLIST(1)=ADDR(ZZ2); /* ZZ2 POINTER PARAMETER */ 00075000 ST R9,IOPTLIST 0128 00076000 * IOPTLIST(2)=ADDR(DMCBPTR);/* DMCB POINTER PARAMETER */ 00077000 LA @08,DMCBPTR 0129 00078000 ST @08,IOPTLIST+4 0129 00079000 * IOPTLIST(3)=ADDR(MODEL); /* MODEL NAME PARAMETER */ 00080000 LA @08,@CC00932 0130 00081000 ST @08,IOPTLIST+8 0130 00082000 * IOPTLIST(4)=ADDR(ACCMODE);/* MAXIMUM ACCESS PARAMETER */ 00083000 LA @08,@CH00035+1 0131 00084000 ST @08,IOPTLIST+12 0131 00085000 * IOPTLIST(5)=ADDR(DMCBCONA);/* CONDITIONAL ALLOCATE RQST */ 00086000 LA @08,@CB00888 0132 00087000 ST @08,IOPTLIST+16 0132 00088000 * IOPTLIST(6)='02000000'X; /* 'DSN' KEY */ 00089000 MVC IOPTLIST+20(4),@CF00937 0133 00090000 * IOPTLIST(7)=ADDR(LENGTH(FPDSDS));/* 'DSN' LENGTH */ 00091000 LA @08,@CF00084 0134 00092000 ST @08,IOPTLIST+24 0134 00093000 * IOPTLIST(8)=ADDR(FPDSDS); /* 'DSN' TEXT */ 00094000 L @10,ZZ1FPP(,@10) 0135 00095000 LA @10,FPDSDS(,@10) 0135 00096000 ST @10,IOPTLIST+28 0135 00097000 * IOPTLIST(8)=IOPTLIST(8)|'80000000'X;/* PLIST END MARKER */ 00098000 O @10,@CF00059 0136 00099000 ST @10,IOPTLIST+28 0136 00100000 * RFY 0137 00101000 * (GPR01P, 0137 00102000 * GPR15P) RSTD; 0137 00103000 * GPR01P=ADDR(IOPTLIST); /* POINT REGISTER 1 TO PLIST */ 00104000 LA GPR01P,IOPTLIST 0138 00105000 * GPR15P=ZZ2ALOCP; /* BLSCALOC ENTRY POINT */ 00106000 L GPR15P,ZZ2ALOCP(,R9) 0139 00107000 * CALL GPR15P->DMCBDMGR; /* PERFORM DATA SET ALLOCATION */ 00108000 BALR @14,@15 0140 00109000 * RFY 0141 00110000 * (GPR01P, 0141 00111000 * GPR15P) UNRSTD; 0141 00112000 * END; /* BLSCONAL 0142 00113000 * (ZZ2,DMCBPTR,MODEL,ACCMODE) 0142 00114000 * DSN(LENGTH(FPDSDS),FPDSDS) 0142 00115000 * ALLOCATE THE DSD */ 00116000 * RESPECIFY 0143 00117000 * (R0, 0143 00118000 * RF) RESTRICTED; 0143 00119000 * ANCHOR=R0; /* SAVE MESSAGE CHAIN IF PRESENT */ 00120000 ST R0,ANCHOR 0144 00121000 * RETCODE=RF; /* SAVE ALLOCATE RETCODE */ 00122000 ST RF,RETCODE 0145 00123000 * RESPECIFY 0146 00124000 * (R0, 0146 00125000 * RF) UNRESTRICTED; 0146 00126000 * IF RETCODE^=0 THEN /* TEST FOR DSD DATA SET 0147 00127000 * ALLOCATION ERROR */ 00128000 L @10,RETCODE 0147 00129000 LTR @10,@10 0147 00130000 BZ @RF00147 0147 00131000 * DO; /* DSD DATA SET ALLOCATION ERROR */ 00132000 * DO; /* BLSDMSG 0149 00133000 * (ZZ2,ALOCERR,ANCHOR,BLSDMSGS) 00134000 * LIFO ROUTE(TERM) */ 00135000 * CALL BLSDMSG0(ZZ2,ALOCERR,ANCHOR,BLSDMSGS,'10010000'B,0); 00136000 ST R9,@AL00001 0150 00137000 LA @10,@CF00928 0150 00138000 ST @10,@AL00001+4 0150 00139000 LA @10,ANCHOR 0150 00140000 ST @10,@AL00001+8 0150 00141000 L @10,ZZ2MSGSP(,R9) 0150 00142000 ST @10,@AL00001+12 0150 00143000 LA @10,@CB00940 0150 00144000 ST @10,@AL00001+16 0150 00145000 LA @10,@CF00043 0150 00146000 ST @10,@AL00001+20 0150 00147000 L @15,ZZ2MSG0P(,R9) 0150 00148000 LA @01,@AL00001 0150 00149000 BALR @14,@15 0150 00150000 * /* BUILD MESSAGE */ 00151000 * END; /* BLSDMSG 0151 00152000 * (ZZ2,ALOCERR,ANCHOR,BLSDMSGS) 00153000 * LIFO ROUTE(TERM) */ 00154000 * END; /* DSD DATA SET ALLOCATION ERROR */ 00155000 * ELSE 0153 00156000 * ZZ1DSDP=DMCBPTR; /* ALLOCATION OK, SAVE DMCB 0153 00157000 * POINTER */ 00158000 B @RC00147 0153 00159000 @RF00147 L @10,ZZ2ZZ1P(,R9) 0153 00160000 L @08,DMCBPTR 0153 00161000 ST @08,ZZ1DSDP(,@10) 0153 00162000 * END; /* FPBLOCK PRESENT */ 00163000 @RC00147 DS 0H 0155 00164000 * RETURN CODE(RETCODE); 0155 00165000 @RC00121 L @10,RETCODE 0155 00166000 L @13,4(,@13) 0155 00167000 L @00,@SIZDATD 0155 00168000 LR @01,@11 0155 00169000 BLSUFRER R,LV=(0),A=(1) 00170000 LR @15,@10 0155 00171000 L @14,12(,@13) 0155 00172000 LM @00,@12,20(@13) 0155 00173000 BR @14 0155 00174000 EJECT 00175000 * 0156 00176000 * /*****************************************************************/ 00177000 * /* */ 00178000 * /* PROCEDURE STATEMENTS END */ 00179000 * /* */ 00180000 * /*****************************************************************/ 00181000 * 0156 00182000 */*BLSUPEND--MVS IPCS MODULE */ 00183000 * 0156 00184000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00185000 * GPR01P PTR(31) REG(1), 0156 00186000 * GPR15P PTR(31) REG(15); 0156 00187000 * DECLARE /* COMMON VARIABLES */ 00188000 * I256C CHAR(256) BASED, 0157 00189000 * I031F FIXED(31) BASED, 0157 00190000 * I031P PTR(31) BASED, 0157 00191000 * I015F FIXED(15) BASED, 0157 00192000 * I015P PTR(15) BASED, 0157 00193000 * I008P PTR(8) BASED, 0157 00194000 * I001C CHAR(1) BASED; 0157 00195000 * DECLARE 0158 00196000 * IOPTLIST(8) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00197000 * GENERATE NODEFS NOREFS DATA; 0159 00198000 * END /* BLRPEND */ 00199000 * 0160 00200000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00201000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00202000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00203000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00204000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00205000 */*%INCLUDE SYSLIB (IKJECT ) */ 00206000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00207000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00208000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00209000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00210000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00211000 */*%INCLUDE SYSLIB (BLSFP ) */ 00212000 * 0160 00213000 * ; 0160 00214000 @EL00001 L @13,4(,@13) 0160 00215000 @EF00001 L @00,@SIZDATD 0160 00216000 LR @01,@11 0160 00217000 BLSUFRER R,LV=(0),A=(1) 00218000 @ER00001 LM @14,@12,12(@13) 0160 00219000 BR @14 0160 00220000 @DATA DS 0H 00221000 @CH00035 DC H'4' 00222000 @DATD DSECT 00223000 DS 0F 00224000 @SA00001 DS 18F 00225000 @AL00001 DS 6A 00226000 BLSDADSD CSECT 00227000 DS 0F 00228000 @CF00043 DC F'0' 00229000 @CF00050 DC F'16' 00230000 @CF00084 DC F'44' 00231000 @CF00928 DC F'4050' 00232000 @CF00059 DC XL4'80000000' 00233000 @CF00930 DC XL4'7FFFFFFF' 00234000 @CF00937 DC XL4'02000000' 00235000 @DATD DSECT 00236000 DS 0D 00237000 DMCBPTR DS A 00238000 ANCHOR DS A 00239000 MODSTAT DS CL12 00240000 ORG MODSTAT 00241000 MODNAME DS CL8 00242000 RETCODE DS FL4 00243000 ORG MODSTAT+12 00244000 IOPTLIST DS 8A 00245000 BLSDADSD CSECT 00246000 DS 0F 00247000 @SIZDATD DC AL1(0) 00248000 DC AL3(@ENDDATD-@DATD) 00249000 DS 0D 00250000 @CC00932 DC C'DSDY ' 00251000 @CC00934 DC C'BLSDADSD' 00252000 @CB00888 DC X'03' 00253000 @CB00940 DC B'10010000' 00254000 @DATD DSECT 00255000 SPACE 2 00256000 *********************************************************************** 00257000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00258000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00259000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00260000 *********************************************************************** 00261000 SPACE 00262000 BLSDADSD CSECT 00263000 ORG 00264000 DS 0D 00265000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSDADSD+19)/20+7)/8)CL8'BLSDADSD' 00266000 @DATD DSECT 00267000 SPACE 2 00268000 *********************************************************************** 00269000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00270000 *********************************************************************** 00271000 SPACE 00272000 DS 0D 00273000 @DATD DSECT 00274000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00275000 @ENDDATD EQU * 00276000 BLSDADSD CSECT 00277000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00278000 @01 EQU 01 00279000 @02 EQU 02 00280000 @03 EQU 03 00281000 @04 EQU 04 00282000 @05 EQU 05 00283000 @06 EQU 06 00284000 @07 EQU 07 00285000 @08 EQU 08 00286000 @09 EQU 09 00287000 @10 EQU 10 00288000 @11 EQU 11 00289000 @12 EQU 12 00290000 @13 EQU 13 00291000 @14 EQU 14 00292000 @15 EQU 15 00293000 R9 EQU @09 00294000 R0 EQU @00 00295000 R1 EQU @01 00296000 R2 EQU @02 00297000 R3 EQU @03 00298000 R4 EQU @04 00299000 R5 EQU @05 00300000 RB EQU @11 00301000 RD EQU @13 00302000 RE EQU @14 00303000 RF EQU @15 00304000 GPR01P EQU @01 00305000 GPR15P EQU @15 00306000 RA EQU @10 00307000 RC EQU @12 00308000 R6 EQU @06 00309000 R7 EQU @07 00310000 R8 EQU @08 00311000 ZZ1 EQU 0 00312000 ZZ1DSDP EQU ZZ1+44 00313000 ZZ1FPP EQU ZZ1+140 00314000 ZZ1ATTN EQU ZZ1+360 00315000 ZZ1EVE EQU ZZ1ATTN+4 00316000 ZZ1F EQU ZZ1+368 00317000 ZZ1N EQU ZZ1+1116 00318000 ZZ2 EQU 0 00319000 ZZ2AMD EQU ZZ2 00320000 @NM00013 EQU ZZ2AMD+7 00321000 ZZ2PRT EQU ZZ2+138 00322000 ZZ2PRTT EQU ZZ2PRT+4 00323000 ZZ2PRTT1 EQU ZZ2PRTT+1 00324000 ZZ2A EQU ZZ2+272 00325000 ZZ2AF EQU ZZ2A+16 00326000 ZZ2APID EQU ZZ2A+64 00327000 ZZ2AD EQU ZZ2A+74 00328000 ZZ2ADD EQU ZZ2AD 00329000 ZZ2ADDT EQU ZZ2ADD+2 00330000 ZZ2ADM EQU ZZ2AD+46 00331000 ZZ2ADMT EQU ZZ2ADM+2 00332000 ZZ2ADP EQU ZZ2AD+56 00333000 ZZ2ADPT EQU ZZ2ADP+2 00334000 ZZ2AQAS EQU ZZ2A+144 00335000 ZZ2AQD EQU ZZ2A+160 00336000 ZZ2AQDT EQU ZZ2AQD+10 00337000 ZZ2AQDF EQU ZZ2AQD+52 00338000 ZZ2STG EQU ZZ2+960 00339000 ZZ2ALLOP EQU ZZ2+992 00340000 ZZ2FREEP EQU ZZ2+996 00341000 ZZ2FF19P EQU ZZ2+1000 00342000 ZZ2FRE1P EQU ZZ2+1004 00343000 ZZ2FF18P EQU ZZ2+1008 00344000 ZZ2DYNAP EQU ZZ2+1012 00345000 ZZ2ZZ2CP EQU ZZ2+1016 00346000 ZZ2ZZ2DP EQU ZZ2+1020 00347000 ZZ2STAIP EQU ZZ2+1024 00348000 ZZ2FF02P EQU ZZ2+1028 00349000 ZZ2GETLP EQU ZZ2+1032 00350000 ZZ2PARSP EQU ZZ2+1036 00351000 ZZ2PTGTP EQU ZZ2+1040 00352000 ZZ2PUTLP EQU ZZ2+1044 00353000 ZZ2SCANP EQU ZZ2+1048 00354000 ZZ2STCKP EQU ZZ2+1052 00355000 ZZ2ALOCP EQU ZZ2+1056 00356000 ZZ2MSGSP EQU ZZ2+1060 00357000 ZZ2TRMOP EQU ZZ2+1064 00358000 ZZ2TRMVP EQU ZZ2+1068 00359000 ZZ2MSG0P EQU ZZ2+1076 00360000 ZZ2PUTNP EQU ZZ2+1084 00361000 ZZ2TRMNP EQU ZZ2+1088 00362000 ZZ2ENQ0P EQU ZZ2+1092 00363000 ZZ2APDRP EQU ZZ2+1100 00364000 ZZ2FDSDP EQU ZZ2+1104 00365000 ZZ2FPDRP EQU ZZ2+1108 00366000 ZZ2ZZ1P EQU ZZ2+1264 00367000 ZZ2DVTP EQU ZZ2+1276 00368000 ZZ2BVTP EQU ZZ2+1280 00369000 ZZ2CPPL EQU ZZ2+1292 00370000 ZZ2CPPLC EQU ZZ2CPPL 00371000 ZZ2ITR EQU ZZ2+2840 00372000 ZZ2ITRE EQU ZZ2ITR+16 00373000 ZZ2ITSE EQU ZZ2+2864 00374000 ZZ2ES EQU ZZ2+2872 00375000 ZZ2AMDX EQU ZZ2+7160 00376000 ZZ2AXO EQU ZZ2+7934 00377000 ZZ2AXOT EQU ZZ2AXO+2 00378000 CMD EQU 0 00379000 CMDT EQU CMD+4 00380000 PSCB EQU 0 00381000 PSCBATR1 EQU PSCB+16 00382000 ECT EQU 0 00383000 ECTSWS EQU ECT+28 00384000 ECTSWS2 EQU ECT+40 00385000 ECTSWS21 EQU ECTSWS2 00386000 UPT EQU 0 00387000 UPTSWS EQU UPT+12 00388000 SA EQU 0 00389000 SA1 EQU SA 00390000 SAR EQU SA+12 00391000 BVT EQU 0 00392000 BVTPUTLP EQU BVT+4 00393000 BVTPUTOP EQU BVT+12 00394000 BVTPUTTP EQU BVT+16 00395000 BVTPUTVP EQU BVT+20 00396000 BVTPUTAP EQU BVT+24 00397000 BVTPRTTP EQU BVT+28 00398000 BVTPRTAP EQU BVT+32 00399000 BVTPUTDP EQU BVT+36 00400000 BVTMONP EQU BVT+40 00401000 BVTMON2P EQU BVT+44 00402000 BVTVSARP EQU BVT+48 00403000 BVTVSENP EQU BVT+64 00404000 BVTVSERP EQU BVT+68 00405000 BVTVSGEP EQU BVT+72 00406000 BVTVSGUP EQU BVT+76 00407000 BVTVSPOP EQU BVT+80 00408000 BVTVSPUP EQU BVT+84 00409000 BVTMPKNP EQU BVT+104 00410000 BVTMONLP EQU BVT+108 00411000 BVTPUTCP EQU BVT+132 00412000 BVTMPK1P EQU BVT+136 00413000 BVTZZ2RP EQU BVT+140 00414000 BVTPGMRP EQU BVT+144 00415000 BVTMONAP EQU BVT+148 00416000 BVTBLDDP EQU BVT+152 00417000 BVTBLDLP EQU BVT+156 00418000 BVTPGMCP EQU BVT+160 00419000 BVTPGMDP EQU BVT+164 00420000 BVTPGMLP EQU BVT+168 00421000 BVTMONCP EQU BVT+180 00422000 BVTMONDP EQU BVT+184 00423000 BVTMONTP EQU BVT+188 00424000 BVTPARIP EQU BVT+192 00425000 BVTPARUP EQU BVT+196 00426000 BVTPRTNP EQU BVT+204 00427000 BVTVSCRP EQU BVT+208 00428000 BVTVSMRP EQU BVT+212 00429000 BVTMONXP EQU BVT+216 00430000 BVTTRMAP EQU BVT+228 00431000 BLSDMSGS EQU 0 00432000 BLSDMSG0 EQU 0 00433000 DVT EQU 0 00434000 DVTDEQPP EQU DVT+8 00435000 DVTENQPP EQU DVT+12 00436000 DVTAUTHP EQU DVT+20 00437000 DVTLPCLP EQU DVT+24 00438000 DVTBP00P EQU DVT+28 00439000 DVTCN00P EQU DVT+32 00440000 DVTDF00P EQU DVT+36 00441000 DVTDS00P EQU DVT+44 00442000 DVTFL00P EQU DVT+48 00443000 DVTFP00P EQU DVT+52 00444000 DVTGD00P EQU DVT+56 00445000 DVTGG00P EQU DVT+60 00446000 DVTGP00P EQU DVT+64 00447000 DVTND00P EQU DVT+68 00448000 DVTND01P EQU DVT+72 00449000 DVTOD00P EQU DVT+76 00450000 DVTPS00P EQU DVT+80 00451000 DVTSD00P EQU DVT+84 00452000 DVTSL00P EQU DVT+88 00453000 DVTTL00P EQU DVT+92 00454000 DVTUD00P EQU DVT+96 00455000 DVTUP00P EQU DVT+100 00456000 DVTLP00P EQU DVT+104 00457000 DVTLALLP EQU DVT+108 00458000 DVTLPFMP EQU DVT+112 00459000 DVTCLOSP EQU DVT+116 00460000 DVTOPENP EQU DVT+120 00461000 DVTPERAP EQU DVT+124 00462000 DVTDALLP EQU DVT+128 00463000 DMCB EQU 0 00464000 DMCBFTY EQU DMCB+20 00465000 DMCBOPN EQU DMCB+21 00466000 DMCBRMOD EQU DMCB+23 00467000 DMCBOUT EQU DMCBRMOD 00468000 DMCBOPTS EQU DMCB+24 00469000 DMCBGKY EQU DMCBOPTS 00470000 DMCBMFLG EQU DMCB+28 00471000 DMCBBUFP EQU DMCB+32 00472000 DMCBKEYP EQU DMCB+44 00473000 DMCBRI EQU DMCB+64 00474000 DMCBACBE EQU DMCB+124 00475000 DMCBSPEC EQU DMCB+380 00476000 DMCBAMS EQU DMCB+416 00477000 DMCBAUDT EQU DMCB+568 00478000 DMCBLSCP EQU DMCBAUDT+16 00479000 DMCBDMGR EQU 0 00480000 FPBLOK EQU 0 00481000 FPDSDS EQU FPBLOK+48 00482000 FPADMNM EQU FPBLOK+120 00483000 FPDELNM EQU FPBLOK+128 00484000 BLSCALOC EQU 0 00485000 BLSDAPDR EQU 0 00486000 BLSDDEQP EQU 0 00487000 BLSDENQP EQU 0 00488000 BLSDENQ0 EQU 0 00489000 BLSDFDSD EQU 0 00490000 BLSDFPDR EQU 0 00491000 BLSEAUTH EQU 0 00492000 BLSELPCL EQU 0 00493000 BLSELPFM EQU 0 00494000 BLSFBP00 EQU 0 00495000 BLSFCLOS EQU 0 00496000 BLSFCN00 EQU 0 00497000 BLSFDALL EQU 0 00498000 BLSFDF00 EQU 0 00499000 BLSFDS00 EQU 0 00500000 BLSFFL00 EQU 0 00501000 BLSFFP00 EQU 0 00502000 BLSFGD00 EQU 0 00503000 BLSFGG00 EQU 0 00504000 BLSFGP00 EQU 0 00505000 BLSFLALL EQU 0 00506000 BLSFLP00 EQU 0 00507000 BLSFND00 EQU 0 00508000 BLSFND01 EQU 0 00509000 BLSFOD00 EQU 0 00510000 BLSFOPEN EQU 0 00511000 BLSFPERA EQU 0 00512000 BLSFPS00 EQU 0 00513000 BLSFSD00 EQU 0 00514000 BLSFSL00 EQU 0 00515000 BLSFTL00 EQU 0 00516000 BLSFUD00 EQU 0 00517000 BLSFUP00 EQU 0 00518000 BLSUALLO EQU 0 00519000 BLSUBLDD EQU 0 00520000 BLSUBLDL EQU 0 00521000 BLSUDYNA EQU 0 00522000 BLSUFREE EQU 0 00523000 BLSUFRE1 EQU 0 00524000 BLSUMON EQU 0 00525000 BLSUMONA EQU 0 00526000 BLSUMONC EQU 0 00527000 BLSUMOND EQU 0 00528000 BLSUMONL EQU 0 00529000 BLSUMONT EQU 0 00530000 BLSUMONX EQU 0 00531000 BLSUMON2 EQU 0 00532000 BLSUMPKN EQU 0 00533000 BLSUMPK1 EQU 0 00534000 BLSUPARI EQU 0 00535000 BLSUPARU EQU 0 00536000 BLSUPGMC EQU 0 00537000 BLSUPGMD EQU 0 00538000 BLSUPGML EQU 0 00539000 BLSUPGMR EQU 0 00540000 BLSUPRTA EQU 0 00541000 BLSUPRTN EQU 0 00542000 BLSUPRTT EQU 0 00543000 BLSUPUTA EQU 0 00544000 BLSUPUTC EQU 0 00545000 BLSUPUTD EQU 0 00546000 BLSUPUTL EQU 0 00547000 BLSUPUTN EQU 0 00548000 BLSUPUTO EQU 0 00549000 BLSUPUTT EQU 0 00550000 BLSUPUTV EQU 0 00551000 BLSUSTAI EQU 0 00552000 BLSUTRMA EQU 0 00553000 BLSUTRMN EQU 0 00554000 BLSUTRMO EQU 0 00555000 BLSUTRMV EQU 0 00556000 BLSUVSAR EQU 0 00557000 BLSUVSCR EQU 0 00558000 BLSUVSEN EQU 0 00559000 BLSUVSER EQU 0 00560000 BLSUVSGE EQU 0 00561000 BLSUVSGU EQU 0 00562000 BLSUVSMR EQU 0 00563000 BLSUVSPO EQU 0 00564000 BLSUVSPU EQU 0 00565000 BLSUZZ2C EQU 0 00566000 BLSUZZ2D EQU 0 00567000 BLSUZZ2R EQU 0 00568000 DMCBRQC EQU 0 00569000 IKJEFF02 EQU 0 00570000 IKJEFF18 EQU 0 00571000 IKJEFF19 EQU 0 00572000 IKJGETL EQU 0 00573000 IKJPARS EQU 0 00574000 IKJPTGT EQU 0 00575000 IKJPUTL EQU 0 00576000 IKJSCAN EQU 0 00577000 IKJSTCK EQU 0 00578000 I001C EQU 0 00579000 I008P EQU 0 00580000 I015F EQU 0 00581000 I015P EQU 0 00582000 I031F EQU 0 00583000 I031P EQU 0 00584000 I256C EQU 0 00585000 CPPL EQU ZZ2CPPL 00586000 CPPLUPT EQU CPPL+4 00587000 CPPLPSCB EQU CPPL+8 00588000 CPPLECT EQU CPPL+12 00589000 DMCBVSM EQU DMCBAMS 00590000 DMCBQSM EQU DMCBAMS 00591000 RETC EQU RETCODE 00592000 * START UNREFERENCED COMPONENTS 00593000 DMCBRES7 EQU DMCBQSM+96 00594000 DMCBDCB EQU DMCBQSM 00595000 DMCBACB EQU DMCBVSM+76 00596000 DMCBRPL EQU DMCBVSM 00597000 CPPLCBUF EQU CPPL 00598000 FPRES6 EQU FPBLOK+136 00599000 FPDELLN EQU FPDELNM+7 00600000 FPDELID EQU FPDELNM 00601000 FPADMLN EQU FPADMNM+7 00602000 FPADMID EQU FPADMNM 00603000 FPGRPID EQU FPBLOK+112 00604000 FPSYSID EQU FPBLOK+104 00605000 FPRES4 EQU FPBLOK+103 00606000 FPDBPIDP EQU FPBLOK+100 00607000 FPRES3 EQU FPBLOK+99 00608000 FPPIDP EQU FPBLOK+96 00609000 FPRES2 EQU FPBLOK+92 00610000 FPRES1 EQU FPBLOK+44 00611000 FPPDDS EQU FPBLOK 00612000 DMCBWRK EQU DMCB+648 00613000 DMCBRES8 EQU DMCB+640 00614000 DMCBMODN EQU DMCB+632 00615000 DMCBCARY EQU DMCBAUDT+20 00616000 DMCBCLC EQU DMCBAUDT+12 00617000 DMCBOPC EQU DMCBAUDT+8 00618000 DMCBFRC EQU DMCBAUDT+4 00619000 DMCBALC EQU DMCBAUDT 00620000 DMCBFR EQU DMCB+412 00621000 DMCBRES6 EQU DMCB+410 00622000 DMCBIRSC EQU DMCB+408 00623000 DMCBSUBC EQU DMCB+404 00624000 DMCBDRBP EQU DMCB+400 00625000 DMCBRSZM EQU DMCB+398 00626000 DMCBRSZA EQU DMCB+396 00627000 DMCBCISZ EQU DMCB+394 00628000 DMCBDCBL EQU DMCB+392 00629000 DMCBDCLR EQU DMCB+390 00630000 DMCBDCFM EQU DMCB+389 00631000 DMCBRES5 EQU DMCB+388 00632000 DMCBLBRT EQU DMCB+386 00633000 DMCBLBSQ EQU DMCB+384 00634000 DMCBLBPS EQU DMCB+383 00635000 DMCBLBTY EQU DMCB+382 00636000 DMCBRES4 EQU DMCB+381 00637000 DMCBSPRS EQU DMCBSPEC 00638000 DMCBSPRN EQU DMCBSPEC 00639000 DMCBSPCT EQU DMCBSPEC 00640000 DMCBSPRL EQU DMCBSPEC 00641000 DMCBSPSE EQU DMCB+376 00642000 DMCBSPPR EQU DMCB+372 00643000 DMCBSPTY EQU DMCB+369 00644000 DMCBODIS EQU DMCB+368 00645000 DMCBDISP EQU DMCB+367 00646000 DMCBSTAT EQU DMCB+366 00647000 DMCBRES3 EQU DMCB+364 00648000 DMCBMEMB EQU DMCB+356 00649000 DMCBMODL EQU DMCB+348 00650000 DMCBRES9 EQU DMCB+340 00651000 DMCBPID EQU DMCB+332 00652000 DMCBTYPE EQU DMCB+328 00653000 DMCBDSN EQU DMCB+284 00654000 DMCBUNIT EQU DMCB+276 00655000 DMCBDSOR EQU DMCB+274 00656000 DMCBVOL EQU DMCB+268 00657000 DMCBDDNM EQU DMCB+260 00658000 DMCBSYNM EQU DMCB+132 00659000 DMCBRPLF EQU DMCB+128 00660000 DMCBDCBE EQU DMCBACBE 00661000 DMCBARC EQU DMCB+120 00662000 DMCBCPC EQU DMCB+116 00663000 DMCBRET EQU DMCB+112 00664000 DMCBSTL EQU DMCB+96 00665000 DMCBEOB EQU DMCB+92 00666000 DMCBFRE EQU DMCB+88 00667000 DMCBRES2 EQU DMCB+85 00668000 DMCBSPID EQU DMCB+84 00669000 DMCBRESC EQU DMCB+80 00670000 DMCBZZ1P EQU DMCB+76 00671000 DMCBMSGS EQU DMCB+72 00672000 DMCBMSG0 EQU DMCB+68 00673000 DMCBRRL EQU DMCB+60 00674000 DMCBRBA EQU DMCB+56 00675000 DMCBMSG EQU DMCB+52 00676000 DMCBKEYL EQU DMCB+48 00677000 DMCBKPC EQU DMCBKEYP 00678000 DMCBORL EQU DMCB+40 00679000 DMCBBLEN EQU DMCB+36 00680000 DMCBBFPC EQU DMCBBUFP 00681000 DMCBRES1 EQU DMCB+31 00682000 DMCBACCM EQU DMCB+30 00683000 DMCBREJ EQU DMCB+29 00684000 DMCBRESB EQU DMCBMFLG 00685000 DMCBFMOD EQU DMCBMFLG 00686000 DMCBLOPT EQU DMCB+27 00687000 DMCBLRM EQU DMCB+26 00688000 DMCBLRQ EQU DMCB+25 00689000 DMCBOPRS EQU DMCBOPTS 00690000 DMCBLRD EQU DMCBOPTS 00691000 DMCBBWD EQU DMCBOPTS 00692000 DMCBUPD EQU DMCBOPTS 00693000 DMCBAPX EQU DMCBOPTS 00694000 DMCBRNO EQU DMCBGKY 00695000 DMCBKYD EQU DMCBOPTS 00696000 DMCBRMRS EQU DMCBRMOD 00697000 DMCBRM5 EQU DMCBRMOD 00698000 DMCBRM6 EQU DMCBRMOD 00699000 DMCBTMP EQU DMCBOUT 00700000 DMCBRQST EQU DMCB+22 00701000 DMCBRESA EQU DMCBOPN 00702000 DMCBSOUT EQU DMCBOPN 00703000 DMCBSIN EQU DMCBOPN 00704000 DMCBVSF EQU DMCBFTY 00705000 DMCBKSF EQU DMCBFTY 00706000 DMCBFTRS EQU DMCBFTY 00707000 DMCBSHF EQU DMCBFTY 00708000 DMCBIRL EQU DMCB+16 00709000 DMCBRTC EQU DMCB+12 00710000 DMCBTVP EQU DMCB+8 00711000 DMCBNEXT EQU DMCB+4 00712000 DMCBID EQU DMCB 00713000 DVT99999 EQU DVT+256 00714000 DVT0064P EQU DVT+252 00715000 DVT0063P EQU DVT+248 00716000 DVT0062P EQU DVT+244 00717000 DVT0061P EQU DVT+240 00718000 DVT0060P EQU DVT+236 00719000 DVT0059P EQU DVT+232 00720000 DVT0058P EQU DVT+228 00721000 DVT0057P EQU DVT+224 00722000 DVT0056P EQU DVT+220 00723000 DVT0055P EQU DVT+216 00724000 DVT0054P EQU DVT+212 00725000 DVT0053P EQU DVT+208 00726000 DVT0052P EQU DVT+204 00727000 DVT0051P EQU DVT+200 00728000 DVT0050P EQU DVT+196 00729000 DVT0049P EQU DVT+192 00730000 DVT0048P EQU DVT+188 00731000 DVT0047P EQU DVT+184 00732000 DVT0046P EQU DVT+180 00733000 DVT0045P EQU DVT+176 00734000 DVT0044P EQU DVT+172 00735000 DVT0043P EQU DVT+168 00736000 DVT0042P EQU DVT+164 00737000 DVT0041P EQU DVT+160 00738000 DVT0040P EQU DVT+156 00739000 DVT0039P EQU DVT+152 00740000 DVT0038P EQU DVT+148 00741000 DVT0037P EQU DVT+144 00742000 DVT0036P EQU DVT+140 00743000 DVT0035P EQU DVT+136 00744000 DVT0034P EQU DVT+132 00745000 DVT0011P EQU DVT+40 00746000 DVT0005P EQU DVT+16 00747000 DVT0002P EQU DVT+4 00748000 DVT0001P EQU DVT 00749000 BVT99999 EQU BVT+256 00750000 BVT0064P EQU BVT+252 00751000 BVT0063P EQU BVT+248 00752000 BVT0062P EQU BVT+244 00753000 BVT0061P EQU BVT+240 00754000 BVT0060P EQU BVT+236 00755000 BVT0059P EQU BVT+232 00756000 BVT0057P EQU BVT+224 00757000 BVT0056P EQU BVT+220 00758000 BVTSTBLP EQU BVT+200 00759000 BVT0045P EQU BVT+176 00760000 BVT0044P EQU BVT+172 00761000 BVT0033P EQU BVT+128 00762000 BVT0032P EQU BVT+124 00763000 BVT0031P EQU BVT+120 00764000 BVT0030P EQU BVT+116 00765000 BVT0029P EQU BVT+112 00766000 BVT0026P EQU BVT+100 00767000 BVT0025P EQU BVT+96 00768000 BVT0024P EQU BVT+92 00769000 BVT0023P EQU BVT+88 00770000 BVT0016P EQU BVT+60 00771000 BVT0015P EQU BVT+56 00772000 BVT0014P EQU BVT+52 00773000 BVT0003P EQU BVT+8 00774000 BVT0001P EQU BVT 00775000 SA99 EQU SA+72 00776000 SARC EQU SAR+56 00777000 SARB EQU SAR+52 00778000 SARA EQU SAR+48 00779000 SAR9 EQU SAR+44 00780000 SAR8 EQU SAR+40 00781000 SAR7 EQU SAR+36 00782000 SAR6 EQU SAR+32 00783000 SAR5 EQU SAR+28 00784000 SAR4 EQU SAR+24 00785000 SAR3 EQU SAR+20 00786000 SAR2 EQU SAR+16 00787000 SAR1 EQU SAR+12 00788000 SAR0 EQU SAR+8 00789000 SARF EQU SAR+4 00790000 SARE EQU SAR 00791000 SAFWD EQU SA+8 00792000 SABAK EQU SA+4 00793000 SA1L EQU SA1+1 00794000 SA1P EQU SA1 00795000 UPTPREFL EQU UPT+23 00796000 UPTPREFX EQU UPT+16 00797000 @NM00068 EQU UPT+15 00798000 UPTLDEL EQU UPT+14 00799000 UPTCDEL EQU UPT+13 00800000 UPTWTP EQU UPTSWS 00801000 UPTMODE EQU UPTSWS 00802000 UPTALD EQU UPTSWS 00803000 UPTPAUS EQU UPTSWS 00804000 UPTNCOM EQU UPTSWS 00805000 UPTMID EQU UPTSWS 00806000 UPTNPRM EQU UPTSWS 00807000 UPTRCVR EQU UPTSWS 00808000 UPTUSER EQU UPT+2 00809000 @NM00067 EQU UPT 00810000 @NM00066 EQU ECT+52 00811000 @NM00065 EQU ECT+48 00812000 @NM00064 EQU ECT+44 00813000 @NM00063 EQU ECTSWS2+1 00814000 @NM00062 EQU ECTSWS21 00815000 ECTTABND EQU ECTSWS21 00816000 ECTDEFCS EQU ECTSWS21 00817000 ECTBKPB EQU ECT+36 00818000 ECTUSER EQU ECT+32 00819000 ECTDDNUM EQU ECT+29 00820000 ECTATTN EQU ECTSWS 00821000 ECTBKGRD EQU ECTSWS 00822000 ECTNNOT EQU ECTSWS 00823000 ECTNMAL EQU ECTSWS 00824000 ECTLOGF EQU ECTSWS 00825000 ECTATRM EQU ECTSWS 00826000 @NM00061 EQU ECTSWS 00827000 ECTNOPD EQU ECTSWS 00828000 ECTSCMD EQU ECT+20 00829000 ECTPCMD EQU ECT+12 00830000 ECTSMSG EQU ECT+9 00831000 ECTMSGF EQU ECT+8 00832000 ECTIOWA EQU ECT+4 00833000 ECTRTCD EQU ECT+1 00834000 ECTRCDF EQU ECT 00835000 PSCBU EQU PSCB+64 00836000 PSCBRSZ EQU PSCB+60 00837000 PSCBLINE EQU PSCB+59 00838000 PSCBCHAR EQU PSCB+58 00839000 PSCBUPTL EQU PSCB+56 00840000 PSCBUPT EQU PSCB+52 00841000 PSCBRLGB EQU PSCB+48 00842000 PSCBDEST EQU PSCB+40 00843000 @NM00060 EQU PSCB+36 00844000 @NM00059 EQU PSCB+32 00845000 @NM00058 EQU PSCB+28 00846000 PSCBLTI2 EQU PSCB+24 00847000 PSCBLTIM EQU PSCB+20 00848000 PSCBATR2 EQU PSCB+18 00849000 @NM00057 EQU PSCBATR1 00850000 @NM00056 EQU PSCBATR1 00851000 @NM00055 EQU PSCBATR1 00852000 PSCBATTN EQU PSCBATR1 00853000 PSCBVMNT EQU PSCBATR1 00854000 PSCBJCL EQU PSCBATR1 00855000 PSCBACCT EQU PSCBATR1 00856000 PSCBCTRL EQU PSCBATR1 00857000 PSCBGPNM EQU PSCB+8 00858000 PSCBUSRL EQU PSCB+7 00859000 PSCBUSER EQU PSCB 00860000 CMDT1 EQU CMDT 00861000 CMDO EQU CMD+2 00862000 CMDL EQU CMD 00863000 ZZ299999 EQU ZZ2+8192 00864000 ZZ2AXOT1 EQU ZZ2AXOT 00865000 ZZ2AXOL EQU ZZ2AXO 00866000 @NM00054 EQU ZZ2+7288 00867000 @NM00053 EQU ZZ2AMDX+4 00868000 ZZ2AMDXC EQU ZZ2AMDX 00869000 ZZ2HSD EQU ZZ2+3056 00870000 @NM00052 EQU ZZ2ES 00871000 @NM00051 EQU ZZ2+2868 00872000 ZZ2ITSEC EQU ZZ2ITSE+1 00873000 @NM00050 EQU ZZ2ITSE 00874000 ZZ2ITSEP EQU ZZ2ITSE 00875000 ZZ2ITSEW EQU ZZ2ITSE 00876000 @NM00049 EQU ZZ2ITR+20 00877000 ZZ2ITREC EQU ZZ2ITRE+1 00878000 @NM00048 EQU ZZ2ITRE 00879000 ZZ2ITREP EQU ZZ2ITRE 00880000 ZZ2ITREW EQU ZZ2ITRE 00881000 @NM00047 EQU ZZ2ITR+9 00882000 ZZ2ITRRC EQU ZZ2ITR+8 00883000 ZZ2ITR2P EQU ZZ2ITR+4 00884000 ZZ2ITRPP EQU ZZ2ITR 00885000 @NM00046 EQU ZZ2+1544 00886000 ZZ2PGM EQU ZZ2+1536 00887000 @NM00045 EQU ZZ2+1526 00888000 ZZ2CW EQU ZZ2+1524 00889000 @NM00044 EQU ZZ2+1504 00890000 @NM00043 EQU ZZ2+1352 00891000 ZZ2FFSYP EQU ZZ2+1348 00892000 ZZ2SASYP EQU ZZ2+1344 00893000 ZZ2RDSYP EQU ZZ2+1340 00894000 ZZ2RASYP EQU ZZ2+1336 00895000 ZZ2PHSYP EQU ZZ2+1332 00896000 ZZ2ESSYP EQU ZZ2+1328 00897000 ZZ200SYP EQU ZZ2+1324 00898000 ZZ2SCWP EQU ZZ2+1320 00899000 ZZ2TTLP EQU ZZ2+1316 00900000 ZZ2LOADP EQU ZZ2+1312 00901000 ZZ2VRESP EQU ZZ2+1308 00902000 ZZ2CPPLE EQU ZZ2CPPL+12 00903000 ZZ2CPPLP EQU ZZ2CPPL+8 00904000 ZZ2CPPLU EQU ZZ2CPPL+4 00905000 ZZ2VRSAP EQU ZZ2+1288 00906000 ZZ2RVTP EQU ZZ2+1284 00907000 @NM00042 EQU ZZ2+1272 00908000 @NM00041 EQU ZZ2+1268 00909000 ZZ2RPLP EQU ZZ2+1260 00910000 ZZ2TCBP EQU ZZ2+1256 00911000 @NM00040 EQU ZZ2+1252 00912000 ZZ2ZZ2P EQU ZZ2+1248 00913000 @NM00039 EQU ZZ2+1112 00914000 ZZ2ADSDP EQU ZZ2+1096 00915000 @NM00038 EQU ZZ2+1080 00916000 ZZ2FT25P EQU ZZ2+1072 00917000 @NM00037 EQU ZZ2+976 00918000 ZZ2TOD EQU ZZ2+968 00919000 ZZ2STGN EQU ZZ2STG+4 00920000 ZZ2STGP EQU ZZ2STG 00921000 @NM00036 EQU ZZ2+952 00922000 ZZ2SCMDE EQU ZZ2+944 00923000 ZZ2SCMDN EQU ZZ2+936 00924000 ZZ2IDENT EQU ZZ2+928 00925000 ZZ2A9999 EQU ZZ2A+656 00926000 @NM00035 EQU ZZ2A+224 00927000 @NM00034 EQU ZZ2A+220 00928000 ZZ2AQD99 EQU ZZ2AQD+60 00929000 @NM00033 EQU ZZ2AQD+56 00930000 @NM00032 EQU ZZ2AQDF 00931000 ZZ2AQDFA EQU ZZ2AQDF 00932000 ZZ2AQDIL EQU ZZ2AQD+48 00933000 ZZ2AQDIM EQU ZZ2AQD+44 00934000 ZZ2AQDT9 EQU ZZ2AQDT+34 00935000 ZZ2AQDTE EQU ZZ2AQDT+33 00936000 ZZ2AQDTD EQU ZZ2AQDT+2 00937000 @NM00031 EQU ZZ2AQDT+1 00938000 ZZ2AQDTY EQU ZZ2AQDT 00939000 ZZ2AQDT0 EQU ZZ2AQDT 00940000 ZZ2AQDLB EQU ZZ2AQD+9 00941000 ZZ2AQDOB EQU ZZ2AQD+8 00942000 ZZ2AQDLE EQU ZZ2AQD+4 00943000 ZZ2AQDOF EQU ZZ2AQD 00944000 ZZ2AQD00 EQU ZZ2AQD 00945000 ZZ2AQAS9 EQU ZZ2AQAS+16 00946000 @NM00030 EQU ZZ2AQAS+12 00947000 ZZ2AQAS2 EQU ZZ2AQAS+8 00948000 ZZ2AQAS1 EQU ZZ2AQAS+4 00949000 @NM00029 EQU ZZ2AQAS+2 00950000 ZZ2AQAST EQU ZZ2AQAS 00951000 ZZ2AQAS0 EQU ZZ2AQAS 00952000 ZZ2AZZ6P EQU ZZ2A+140 00953000 ZZ2ADPTA EQU ZZ2ADPT 00954000 ZZ2ADPL EQU ZZ2ADP 00955000 ZZ2ADMTA EQU ZZ2ADMT 00956000 ZZ2ADML EQU ZZ2ADM 00957000 ZZ2ADDTA EQU ZZ2ADDT 00958000 ZZ2ADDL EQU ZZ2ADD 00959000 @NM00028 EQU ZZ2A+72 00960000 ZZ2APIDB EQU ZZ2APID+3 00961000 ZZ2APIDA EQU ZZ2APID 00962000 @NM00027 EQU ZZ2A+24 00963000 @NM00026 EQU ZZ2AF+5 00964000 ZZ2AFX EQU ZZ2AF+5 00965000 @NM00025 EQU ZZ2AF+3 00966000 ZZ2AFS EQU ZZ2AF+2 00967000 ZZ2AFD EQU ZZ2AF+2 00968000 ZZ2AFQ EQU ZZ2AF+2 00969000 ZZ2AF$ EQU ZZ2AF+2 00970000 @NM00024 EQU ZZ2AF+2 00971000 ZZ2AFM EQU ZZ2AF+2 00972000 @NM00023 EQU ZZ2AF+2 00973000 @NM00022 EQU ZZ2AF+1 00974000 ZZ2AFV EQU ZZ2AF+1 00975000 @NM00021 EQU ZZ2AF+1 00976000 ZZ2AFC EQU ZZ2AF+1 00977000 @NM00020 EQU ZZ2AF 00978000 ZZ2AFFS EQU ZZ2AF 00979000 ZZ2AFT EQU ZZ2AF 00980000 ZZ2AFP EQU ZZ2AF 00981000 @NM00019 EQU ZZ2A+8 00982000 ZZ2ALINE EQU ZZ2A+4 00983000 @NM00018 EQU ZZ2A+3 00984000 ZZ2ASE EQU ZZ2A+2 00985000 ZZ2ACH EQU ZZ2A 00986000 @NM00017 EQU ZZ2+264 00987000 @NM00016 EQU ZZ2+263 00988000 ZZ2PRTT0 EQU ZZ2PRTT 00989000 ZZ2PRTO EQU ZZ2PRT+2 00990000 ZZ2PRTL EQU ZZ2PRT 00991000 @NM00015 EQU ZZ2AMD+56 00992000 ZZ2AMDXP EQU ZZ2AMD+52 00993000 ZZ2AMDD EQU ZZ2AMD+48 00994000 ZZ2AMDL EQU ZZ2AMD+44 00995000 ZZ2AMDU EQU ZZ2AMD+28 00996000 ZZ2AMDF EQU ZZ2AMD+24 00997000 ZZ2AMDS EQU ZZ2AMD+20 00998000 ZZ2AMDC EQU ZZ2AMD+16 00999000 ZZ2AMDP EQU ZZ2AMD+12 01000000 ZZ2AMDB EQU ZZ2AMD+8 01001000 @NM00014 EQU @NM00013 01002000 ZZ2AMD2 EQU @NM00013 01003000 ZZ2AMD1 EQU @NM00013 01004000 ZZ2AMD0 EQU ZZ2AMD+6 01005000 ZZ2AMDA EQU ZZ2AMD+4 01006000 ZZ2AMDT EQU ZZ2AMD 01007000 ZZ199999 EQU ZZ1+3072 01008000 @NM00012 EQU ZZ1+2160 01009000 ZZ1TRTAS EQU ZZ1+1904 01010000 ZZ1TRUPC EQU ZZ1+1648 01011000 ZZ1TRCTX EQU ZZ1+1392 01012000 ZZ1NASID EQU ZZ1N+274 01013000 ZZ1NSTRL EQU ZZ1N+272 01014000 ZZ1NOFF EQU ZZ1N+268 01015000 ZZ1NBDY EQU ZZ1N+264 01016000 ZZ1NADE EQU ZZ1N+260 01017000 ZZ1NADB EQU ZZ1N+256 01018000 ZZ1NSTR EQU ZZ1N 01019000 @NM00011 EQU ZZ1+1080 01020000 ZZ1TREBC EQU ZZ1+824 01021000 ZZ1TRHEX EQU ZZ1+568 01022000 @NM00010 EQU ZZ1+377 01023000 ZZ1USTAE EQU ZZ1+376 01024000 @NM00009 EQU ZZ1F+1 01025000 @NM00008 EQU ZZ1F 01026000 ZZ1FM EQU ZZ1F 01027000 ZZ1FX EQU ZZ1F 01028000 ZZ1FU EQU ZZ1F 01029000 ZZ1EVEC EQU ZZ1EVE+1 01030000 @NM00007 EQU ZZ1EVE 01031000 ZZ1EVEP EQU ZZ1EVE 01032000 ZZ1EVEW EQU ZZ1EVE 01033000 ZZ1ACMP EQU ZZ1ATTN 01034000 @NM00006 EQU ZZ1+144 01035000 ZZ1ZZ6P EQU ZZ1+136 01036000 @NM00005 EQU ZZ1+84 01037000 ZZ1PLINE EQU ZZ1+80 01038000 ZZ1PGSZ EQU ZZ1+76 01039000 ZZ1PCNT EQU ZZ1+72 01040000 @NM00004 EQU ZZ1+68 01041000 ZZ1TPAGE EQU ZZ1+64 01042000 ZZ1TLINE EQU ZZ1+60 01043000 @NM00003 EQU ZZ1+52 01044000 ZZ1DMCBP EQU ZZ1+48 01045000 ZZ1PDRP EQU ZZ1+40 01046000 ZZ1ZZ2P EQU ZZ1+36 01047000 ZZ1327WP EQU ZZ1+32 01048000 ZZ1ACBP EQU ZZ1+28 01049000 @NM00002 EQU ZZ1+24 01050000 ZZ1PDCBP EQU ZZ1+20 01051000 ZZ1BLRBL EQU ZZ1+16 01052000 @NM00001 EQU ZZ1+12 01053000 ZZ1PNULL EQU ZZ1+8 01054000 ZZ1NULL EQU ZZ1+4 01055000 ZZ1IDE EQU ZZ1 01056000 * END UNREFERENCED COMPONENTS 01057000 @ENDDATA EQU * 01058000 END BLSDADSD,(C'PLS2010',0701,78062) 01059000