STAE TITLE 'BLSUSTAE--IPCS ESTAE EXIT *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPRW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSUSTAE START 0 /* BEGIN CODE */ 00006000 USING BLSUSTAE,RF /* AUTOMATIC STORAGE DATA */ 00007000 B L0100 /* BRANCH AROUND IDENTIFIER */ 00008000 DC AL1(IDENTEND-IDENT) /* LENGTH OF IDENTIFIER */ 00009000 IDENT DC C'BLSUSTAE&SYSDATE' /* IDENTIFIER */ 00010000 IDENTEND DS 0C /* END OF IDENTIFIER */ 00011000 SPACE 00012000 *------- DETERMINE WHETHER AN SDWA IS AVAILABLE ----------------------* 00013000 L0100 CH R0,NOSDWA /* SDWA AVAILABLE */ 00014000 BNE L0200 /* YES - CONTINUE ESTAE EXIT */ 00015000 SPACE 00016000 *------- NO SDWA - IMMEDIATE RETURN ----------------------------------* 00017000 SLR RF,RF /* REQUEST ABEND CONTINUATION */ 00018000 BR RE /* RETURN TO ABEND */ 00019000 SPACE 00020000 *------- R1->SDWA - CONTINUE -----------------------------------------* 00021000 L0200 DS 0H /* BEGIN ESTAE MAINLINE */ 00022000 DROP RF /* CODE ADDRESS NOT NEEDED */ 00023000 * STM(RE,RC,SAR); /* SAVE INPUT REGISTERS */ 00024000 STM RE,RC,SAR(RD) 01S0118 00025000 * SDWARCDE=SDWACWT; /* CONTINUE ABEND PROCESSING */ 00026000 MVI SDWARCDE(R1),X'00' 01S0119 00027000 * R9=SDWAPARM; /* ->ZZ2 (MASTER TASK VARIABLE) */ 00028000 L R9,SDWAPARM(,R1) 01S0120 00029000 * GENERATE CODE; 01S0121 00030000 LR RC,RF /* ->BLSUSTAE */ 00031000 USING BLSUSTAE,RC /* AUTOMATIC STORAGE DATA */ 00032000 L R0,@SIZDATD /* LENGTH OF AUTOMATIC STORAGE */ 00033000 GETMAIN R,LV=(0) /* OBTAIN AUTOMATIC STORAGE */ 00034000 USING @DATD,R1 /* ->AUTOMATIC STORAGE */ 00035000 * R1->SABAK=RD; /* CHAIN NEW SAVE AREA TO OLD */ 00036000 ST RD,SABAK(,R1) 01S0122 00037000 * SAFWD=R1; /* CHAIN OLD SAVE AREA TO NEW */ 00038000 ST R1,SAFWD(,RD) 01S0123 00039000 * RD=R1; /* ->NEW SAVE AREA */ 00040000 LR RD,R1 01S0124 00041000 * RA=ADDR(ZZ1); /* ->ZZ1 (IPCS COMMON AREA) */ 00042000 L RA,ZZ2ZZ1P(,R9) 01S0125 00043000 * RESPECIFY 01S0126 00044000 * ZZ1 BASED(RA); /* IPCS COMMON AREA */ 00045000 * RECURENT=ZZ1USTAE; /* RECURSION STATE UPON ENTRY */ 00046000 MVC RECURENT(1),ZZ1USTAE(RA) 01S0127 00047000 * ZZ1USTAE=RECURINV; /* DEEP TROUBLE RECURSION STATE */ 00048000 MVI ZZ1USTAE(RA),X'FF' 01S0128 00049000 * GENERATE CODE; 01S0129 00050000 DROP R1 /* ->OLD SAVE AREA */ 00051000 USING @DATD,RD /* ->OLD SAVE AREA */ 00052000 MVC @DATD,@SIZDATD /* LENGTH OF AUTOMATIC STORAGE */ 00053000 MVC ADATA(ADATAEND-ADATA),SDATA /* PARAMETER LIST(S) */ 00054000 ESTAE PARAM=(R9),MF=(E,ASTAE) /* PROVIDE FOR STAE RECURSION */ 00055000 * IF RECURENTFREE DUMP ABEND */ 00067000 MVI ZZ1USTAE(RA),X'01' 01S0132 00068000 * R1=ADDR(ZZ2); /* ->TASK VARIABLE */ 00069000 LR R1,R9 01S0133 00070000 * CALL BLSRDUCL; /* CLOSE/FREE DUMP DATA SET */ 00071000 L @15,@CV01125 01S0134 00072000 BALR @14,@15 01S0134 00073000 * END; /* FREE DUMP ATTEMPT PENDING */ 00074000 * IF RECURENTFREE DSD ABEND */ 00086000 MVI ZZ1USTAE(RA),X'02' 01S0138 00087000 * R1=ADDR(ZZ2); /* ->TASK VARIABLE */ 00088000 LR R1,R9 01S0139 00089000 * CALL BLSDFDSD; /* FREE DATA SET DIRECTORY */ 00090000 L @15,@CV00656 01S0140 00091000 BALR @14,@15 01S0140 00092000 * END; /* FREE DSD ATTEMPT PENDING */ 00093000 * IF RECURENTFREE PDR ABEND */ 00105000 MVI ZZ1USTAE(RA),X'03' 01S0144 00106000 * R1=ADDR(ZZ2); /* ->TASK VARIABLE */ 00107000 LR R1,R9 01S0145 00108000 * CALL BLSDFPDR; /* FREE PROBLEM DIRECTORY */ 00109000 L @15,@CV00657 01S0146 00110000 BALR @14,@15 01S0146 00111000 * END; /* FREE PDR ATTEMPT PENDING */ 00112000 * IF RECURENTCLOSE DDR ABEND */ 00124000 MVI ZZ1USTAE(RA),X'04' 01S0150 00125000 * R1=ADDR(ZZ2); /* ->TASK VARIABLE */ 00126000 LR R1,R9 01S0151 00127000 * CALL BLSUVSCL; /* CLOSE FILE(IPCSDDIR) */ 00128000 L @15,@CV01127 01S0152 00129000 BALR @14,@15 01S0152 00130000 * END; /* CLOSE DDR ATTEMPT PENDING */ 00131000 * IF RECURENTCLOSE PRINT ABEND */ 00143000 MVI ZZ1USTAE(RA),X'04' 01S0156 00144000 * R1=ADDR(ZZ2); /* ->TASK VARIABLE */ 00145000 LR R1,R9 01S0157 00146000 * CALL BLSUPRCL; /* CLOSE FILE(IPCSPRNT) */ 00147000 L @15,@CV01126 01S0158 00148000 BALR @14,@15 01S0158 00149000 * END; /* CLOSE PRINT ATTEMPT PENDING */ 00150000 * GENERATE CODE; 01S0160 00151000 @RF00154 DS 0H 01S0160 00152000 ESTAE 0,MF=(E,ASTAE) /* CANCEL ESTAE FOR RECURSION */ 00153000 L R0,@SIZDATD /* LENGTH OF AUTOMATIC STORAGE */ 00154000 LR R1,RD /* ->@DATD */ 00155000 L RD,SABAK(RD) /* ->SAVE AREA PROVIDED BY ABEND */ 00156000 FREEMAIN R,LV=(0),A=(1) /* RELEASE AUTOMATIC STORAGE */ 00157000 * LM(RE,RC,SAR); /* RESTORE INPUT REGISTERS */ 00158000 LM RE,RC,SAR(RD) 01S0161 00159000 * GENERATE CODE; 01S0162 00160000 * 01S0162 00161000 SLR RF,RF /* RETURN CODE */ 00162000 BR RE /* RETURN TO CONTINUE ABEND */ 00163000 */*BLSUPEND--MVS IPCS MODULE */ 00164000 * 01S0163 00165000 * DECLARE /* COMMON VARIABLES */ 00166000 * I256C CHAR(256) BASED, 01S0163 00167000 * I031F FIXED(31) BASED, 01S0163 00168000 * I031P PTR(31) BASED, 01S0163 00169000 * I015F FIXED(15) BASED, 01S0163 00170000 * I015P PTR(15) BASED, 01S0163 00171000 * I008P PTR(8) BASED, 01S0163 00172000 * I001C CHAR(1) BASED; 01S0163 00173000 * GENERATE NODEFS NOREFS DATA; 01S0164 00174000 * END BLSUSTAE /* BLRPEND(BLSUSTAE) */ 00175000 * 01S0165 00176000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00177000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00178000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00179000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00180000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00181000 */*%INCLUDE SYSLIB (IKJECT ) */ 00182000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00183000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00184000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00185000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00186000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00187000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00188000 * 01S0165 00189000 * ; 01S0165 00190000 @DATA DS 0H 00191000 @DATD DSECT 00192000 DS 0F 00193000 @SA00001 DS 18F 00194000 BLSUSTAE CSECT 00195000 DS 0F 00196000 @DATD DSECT 00197000 DS 0D 00198000 RECURENT DS BL1 00199000 BLSUSTAE CSECT 00200000 DS 0F 00201000 @SIZDATD DC AL1(0) 00202000 DC AL3(@ENDDATD-@DATD) 00203000 @CV00656 DC V(BLSDFDSD) 00204000 @CV00657 DC V(BLSDFPDR) 00205000 @CV01125 DC V(BLSRDUCL) 00206000 @CV01126 DC V(BLSUPRCL) 00207000 @CV01127 DC V(BLSUVSCL) 00208000 DS 0D 00209000 NOSDWA DC AL2(12) 00210000 @DATD DSECT 00211000 SPACE 2 00212000 *********************************************************************** 00213000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00214000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00215000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00216000 *********************************************************************** 00217000 SPACE 00218000 BLSUSTAE CSECT 00219000 ORG 00220000 DS 0D 00221000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSUSTAE+19)/20+7)/8)CL8'BLSUSTAE' 00222000 @DATD DSECT 00223000 SPACE 00224000 *------- IMAGES OF PARAMETER LISTS -----------------------------------* 00225000 BLSUSTAE CSECT 00226000 SDATA DS 0D STATIC STORAGE DATA 00227000 SSTAE ESTAE BLSUSTAE,PARAM=0,MF=L STAE PARAMETER LIST IMAGE 00228000 SDATAEND DS 0D END OF SDATA 00229000 SPACE 00230000 *------- PARAMETER LISTS ---------------------------------------------* 00231000 @DATD DSECT 00232000 ADATA DS 0D AUTOMATIC STORAGE DATA 00233000 ASTAE ESTAE 0,MF=L STAE PARAMETER LIST 00234000 ADATAEND DS 0D END OF ADATA 00235000 @DATD DSECT 00236000 SPACE 2 00237000 *********************************************************************** 00238000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00239000 *********************************************************************** 00240000 SPACE 00241000 DS 0D 00242000 @DATD DSECT 00243000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00244000 @ENDDATD EQU * 00245000 BLSUSTAE CSECT 00246000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00247000 @01 EQU 01 00248000 @02 EQU 02 00249000 @03 EQU 03 00250000 @04 EQU 04 00251000 @05 EQU 05 00252000 @06 EQU 06 00253000 @07 EQU 07 00254000 @08 EQU 08 00255000 @09 EQU 09 00256000 @10 EQU 10 00257000 @11 EQU 11 00258000 @12 EQU 12 00259000 @13 EQU 13 00260000 @14 EQU 14 00261000 @15 EQU 15 00262000 R9 EQU @09 00263000 R0 EQU @00 00264000 R1 EQU @01 00265000 R2 EQU @02 00266000 R3 EQU @03 00267000 R4 EQU @04 00268000 R5 EQU @05 00269000 RA EQU @10 00270000 RB EQU @11 00271000 RC EQU @12 00272000 RD EQU @13 00273000 RE EQU @14 00274000 RF EQU @15 00275000 R6 EQU @06 00276000 R7 EQU @07 00277000 R8 EQU @08 00278000 ZZ1 EQU 0 00279000 ZZ1ATTN EQU ZZ1+360 00280000 ZZ1EVE EQU ZZ1ATTN+4 00281000 ZZ1F EQU ZZ1+368 00282000 ZZ1USTAE EQU ZZ1+376 00283000 ZZ1N EQU ZZ1+1116 00284000 ZZ2 EQU 0 00285000 ZZ2AMD EQU ZZ2 00286000 @NM00013 EQU ZZ2AMD+7 00287000 ZZ2PRT EQU ZZ2+138 00288000 ZZ2PRTT EQU ZZ2PRT+4 00289000 ZZ2PRTT1 EQU ZZ2PRTT+1 00290000 ZZ2A EQU ZZ2+272 00291000 ZZ2AF EQU ZZ2A+16 00292000 ZZ2APID EQU ZZ2A+64 00293000 ZZ2AD EQU ZZ2A+74 00294000 ZZ2ADD EQU ZZ2AD 00295000 ZZ2ADDT EQU ZZ2ADD+2 00296000 ZZ2ADM EQU ZZ2AD+46 00297000 ZZ2ADMT EQU ZZ2ADM+2 00298000 ZZ2ADP EQU ZZ2AD+56 00299000 ZZ2ADPT EQU ZZ2ADP+2 00300000 ZZ2AQAS EQU ZZ2A+144 00301000 ZZ2AQD EQU ZZ2A+160 00302000 ZZ2AQDT EQU ZZ2AQD+10 00303000 ZZ2AQDF EQU ZZ2AQD+52 00304000 ZZ2STG EQU ZZ2+960 00305000 ZZ2ALLOP EQU ZZ2+992 00306000 ZZ2FREEP EQU ZZ2+996 00307000 ZZ2FF19P EQU ZZ2+1000 00308000 ZZ2FRE1P EQU ZZ2+1004 00309000 ZZ2FF18P EQU ZZ2+1008 00310000 ZZ2DYNAP EQU ZZ2+1012 00311000 ZZ2ZZ2CP EQU ZZ2+1016 00312000 ZZ2ZZ2DP EQU ZZ2+1020 00313000 ZZ2STAIP EQU ZZ2+1024 00314000 ZZ2FF02P EQU ZZ2+1028 00315000 ZZ2GETLP EQU ZZ2+1032 00316000 ZZ2PARSP EQU ZZ2+1036 00317000 ZZ2PTGTP EQU ZZ2+1040 00318000 ZZ2PUTLP EQU ZZ2+1044 00319000 ZZ2SCANP EQU ZZ2+1048 00320000 ZZ2STCKP EQU ZZ2+1052 00321000 ZZ2ALOCP EQU ZZ2+1056 00322000 ZZ2MSGSP EQU ZZ2+1060 00323000 ZZ2TRMOP EQU ZZ2+1064 00324000 ZZ2TRMVP EQU ZZ2+1068 00325000 ZZ2MSG0P EQU ZZ2+1076 00326000 ZZ2PUTNP EQU ZZ2+1084 00327000 ZZ2TRMNP EQU ZZ2+1088 00328000 ZZ2ENQ0P EQU ZZ2+1092 00329000 ZZ2ADSDP EQU ZZ2+1096 00330000 ZZ2APDRP EQU ZZ2+1100 00331000 ZZ2ZZ1P EQU ZZ2+1264 00332000 ZZ2DVTP EQU ZZ2+1276 00333000 ZZ2BVTP EQU ZZ2+1280 00334000 ZZ2CPPL EQU ZZ2+1292 00335000 ZZ2CPPLC EQU ZZ2CPPL 00336000 ZZ2ITR EQU ZZ2+2840 00337000 ZZ2ITRE EQU ZZ2ITR+16 00338000 ZZ2ITSE EQU ZZ2+2864 00339000 ZZ2ES EQU ZZ2+2872 00340000 ZZ2AMDX EQU ZZ2+7160 00341000 ZZ2AXO EQU ZZ2+7934 00342000 ZZ2AXOT EQU ZZ2AXO+2 00343000 CMD EQU 0 00344000 CMDT EQU CMD+4 00345000 PSCB EQU 0 00346000 PSCBATR1 EQU PSCB+16 00347000 ECT EQU 0 00348000 ECTSWS EQU ECT+28 00349000 ECTSWS2 EQU ECT+40 00350000 ECTSWS21 EQU ECTSWS2 00351000 UPT EQU 0 00352000 UPTSWS EQU UPT+12 00353000 SA EQU 0 00354000 SA1 EQU SA 00355000 SABAK EQU SA+4 00356000 SAFWD EQU SA+8 00357000 SAR EQU SA+12 00358000 BVT EQU 0 00359000 BVTPUTLP EQU BVT+4 00360000 BVTPUTOP EQU BVT+12 00361000 BVTPUTTP EQU BVT+16 00362000 BVTPUTVP EQU BVT+20 00363000 BVTPUTAP EQU BVT+24 00364000 BVTPRTTP EQU BVT+28 00365000 BVTPRTAP EQU BVT+32 00366000 BVTPUTDP EQU BVT+36 00367000 BVTMONP EQU BVT+40 00368000 BVTMON2P EQU BVT+44 00369000 BVTVSARP EQU BVT+48 00370000 BVTVSENP EQU BVT+64 00371000 BVTVSERP EQU BVT+68 00372000 BVTVSGEP EQU BVT+72 00373000 BVTVSGUP EQU BVT+76 00374000 BVTVSPOP EQU BVT+80 00375000 BVTVSPUP EQU BVT+84 00376000 BVTMPKNP EQU BVT+104 00377000 BVTMONLP EQU BVT+108 00378000 BVTPUTCP EQU BVT+132 00379000 BVTMPK1P EQU BVT+136 00380000 BVTZZ2RP EQU BVT+140 00381000 BVTPGMRP EQU BVT+144 00382000 BVTMONAP EQU BVT+148 00383000 BVTBLDDP EQU BVT+152 00384000 BVTBLDLP EQU BVT+156 00385000 BVTPGMCP EQU BVT+160 00386000 BVTPGMDP EQU BVT+164 00387000 BVTPGMLP EQU BVT+168 00388000 BVTMONCP EQU BVT+180 00389000 BVTMONDP EQU BVT+184 00390000 BVTMONTP EQU BVT+188 00391000 BVTPARIP EQU BVT+192 00392000 BVTPARUP EQU BVT+196 00393000 BVTPRTNP EQU BVT+204 00394000 BVTVSCRP EQU BVT+208 00395000 BVTVSMRP EQU BVT+212 00396000 BVTMONXP EQU BVT+216 00397000 BVTTRMAP EQU BVT+228 00398000 DVT EQU 0 00399000 DVTDEQPP EQU DVT+8 00400000 DVTENQPP EQU DVT+12 00401000 DVTAUTHP EQU DVT+20 00402000 DVTLPCLP EQU DVT+24 00403000 DVTBP00P EQU DVT+28 00404000 DVTCN00P EQU DVT+32 00405000 DVTDF00P EQU DVT+36 00406000 DVTDS00P EQU DVT+44 00407000 DVTFL00P EQU DVT+48 00408000 DVTFP00P EQU DVT+52 00409000 DVTGD00P EQU DVT+56 00410000 DVTGG00P EQU DVT+60 00411000 DVTGP00P EQU DVT+64 00412000 DVTND00P EQU DVT+68 00413000 DVTND01P EQU DVT+72 00414000 DVTOD00P EQU DVT+76 00415000 DVTPS00P EQU DVT+80 00416000 DVTSD00P EQU DVT+84 00417000 DVTSL00P EQU DVT+88 00418000 DVTTL00P EQU DVT+92 00419000 DVTUD00P EQU DVT+96 00420000 DVTUP00P EQU DVT+100 00421000 DVTLP00P EQU DVT+104 00422000 DVTLALLP EQU DVT+108 00423000 DVTLPFMP EQU DVT+112 00424000 DVTCLOSP EQU DVT+116 00425000 DVTOPENP EQU DVT+120 00426000 DVTPERAP EQU DVT+124 00427000 DVTDALLP EQU DVT+128 00428000 SDWA EQU 0 00429000 SDWAPARM EQU SDWA 00430000 SDWAFIOB EQU SDWA+4 00431000 SDWAABCC EQU SDWAFIOB 00432000 SDWACMPF EQU SDWAABCC 00433000 SDWACTL1 EQU SDWA+8 00434000 SDWACMKA EQU SDWACTL1 00435000 SDWAMWPA EQU SDWACTL1+1 00436000 SDWAPMKA EQU SDWACTL1+4 00437000 SDWACTL2 EQU SDWA+16 00438000 SDWACMKP EQU SDWACTL2 00439000 SDWAMWPP EQU SDWACTL2+1 00440000 SDWAPMKP EQU SDWACTL2+4 00441000 SDWAGRSV EQU SDWA+24 00442000 SDWANAME EQU SDWA+88 00443000 SDWAEC1 EQU SDWA+104 00444000 SDWAEMK1 EQU SDWAEC1 00445000 SDWAMWP1 EQU SDWAEC1+1 00446000 SDWAINT1 EQU SDWAEC1+2 00447000 SDWANXT1 EQU SDWAEC1+4 00448000 SDWAAEC1 EQU SDWA+112 00449000 SDWAILC1 EQU SDWAAEC1+1 00450000 SDWAINC1 EQU SDWAAEC1+2 00451000 SDWAICD1 EQU SDWAINC1+1 00452000 SDWAEC2 EQU SDWA+120 00453000 SDWAEMK2 EQU SDWAEC2 00454000 SDWAMWP2 EQU SDWAEC2+1 00455000 SDWAINT2 EQU SDWAEC2+2 00456000 SDWANXT2 EQU SDWAEC2+4 00457000 SDWAAEC2 EQU SDWA+128 00458000 SDWAILC2 EQU SDWAAEC2+1 00459000 SDWAINC2 EQU SDWAAEC2+2 00460000 SDWAICD2 EQU SDWAINC2+1 00461000 SDWASRSV EQU SDWA+136 00462000 SDWAIDNT EQU SDWA+200 00463000 SDWAMCH EQU SDWA+204 00464000 SDWASTCK EQU SDWAMCH 00465000 SDWAMCHI EQU SDWAMCH+8 00466000 SDWAMCHS EQU SDWAMCHI 00467000 SDWAMCHD EQU SDWAMCHI+1 00468000 SDWARSR1 EQU SDWAMCH+12 00469000 SDWARSR2 EQU SDWAMCH+13 00470000 SDWAFLGS EQU SDWA+232 00471000 SDWAERRA EQU SDWAFLGS 00472000 SDWAERRB EQU SDWAFLGS+1 00473000 SDWAERRC EQU SDWAFLGS+2 00474000 SDWAERRD EQU SDWAFLGS+3 00475000 SDWAIOFS EQU SDWA+238 00476000 SDWACPUA EQU SDWA+248 00477000 SDWAPARQ EQU SDWA+252 00478000 SDWARCDE EQU SDWAPARQ 00479000 SDWAACF2 EQU SDWAPARQ+1 00480000 SDWAACF3 EQU SDWAPARQ+2 00481000 SDWAACF4 EQU SDWAPARQ+3 00482000 SDWALKWA EQU SDWA+256 00483000 SDWALKWS EQU SDWALKWA 00484000 SDWARECP EQU SDWA+292 00485000 SDWASNPA EQU SDWA+320 00486000 SDWADUMP EQU SDWASNPA 00487000 SDWADPFS EQU SDWADUMP+1 00488000 SDWADDAT EQU SDWASNPA+4 00489000 SDWASDAT EQU SDWADDAT 00490000 SDWASDA0 EQU SDWASDAT 00491000 SDWASDA1 EQU SDWASDAT+1 00492000 SDWAPDAT EQU SDWADDAT+2 00493000 SDWADPSA EQU SDWA+328 00494000 SDWADPSL EQU SDWADPSA 00495000 SDWARA EQU SDWA+400 00496000 SDWADPVA EQU SDWARA+2 00497000 BLSCALOC EQU 0 00498000 BLSDADSD EQU 0 00499000 BLSDAPDR EQU 0 00500000 BLSDDEQP EQU 0 00501000 BLSDENQP EQU 0 00502000 BLSDENQ0 EQU 0 00503000 BLSDMSGS EQU 0 00504000 BLSDMSG0 EQU 0 00505000 BLSEAUTH EQU 0 00506000 BLSELPCL EQU 0 00507000 BLSELPFM EQU 0 00508000 BLSFBP00 EQU 0 00509000 BLSFCLOS EQU 0 00510000 BLSFCN00 EQU 0 00511000 BLSFDALL EQU 0 00512000 BLSFDF00 EQU 0 00513000 BLSFDS00 EQU 0 00514000 BLSFFL00 EQU 0 00515000 BLSFFP00 EQU 0 00516000 BLSFGD00 EQU 0 00517000 BLSFGG00 EQU 0 00518000 BLSFGP00 EQU 0 00519000 BLSFLALL EQU 0 00520000 BLSFLP00 EQU 0 00521000 BLSFND00 EQU 0 00522000 BLSFND01 EQU 0 00523000 BLSFOD00 EQU 0 00524000 BLSFOPEN EQU 0 00525000 BLSFPERA EQU 0 00526000 BLSFPS00 EQU 0 00527000 BLSFSD00 EQU 0 00528000 BLSFSL00 EQU 0 00529000 BLSFTL00 EQU 0 00530000 BLSFUD00 EQU 0 00531000 BLSFUP00 EQU 0 00532000 BLSUALLO EQU 0 00533000 BLSUBLDD EQU 0 00534000 BLSUBLDL EQU 0 00535000 BLSUDYNA EQU 0 00536000 BLSUFREE EQU 0 00537000 BLSUFRE1 EQU 0 00538000 BLSUMON EQU 0 00539000 BLSUMONA EQU 0 00540000 BLSUMONC EQU 0 00541000 BLSUMOND EQU 0 00542000 BLSUMONL EQU 0 00543000 BLSUMONT EQU 0 00544000 BLSUMONX EQU 0 00545000 BLSUMON2 EQU 0 00546000 BLSUMPKN EQU 0 00547000 BLSUMPK1 EQU 0 00548000 BLSUPARI EQU 0 00549000 BLSUPARU EQU 0 00550000 BLSUPGMC EQU 0 00551000 BLSUPGMD EQU 0 00552000 BLSUPGML EQU 0 00553000 BLSUPGMR EQU 0 00554000 BLSUPRTA EQU 0 00555000 BLSUPRTN EQU 0 00556000 BLSUPRTT EQU 0 00557000 BLSUPUTA EQU 0 00558000 BLSUPUTC EQU 0 00559000 BLSUPUTD EQU 0 00560000 BLSUPUTL EQU 0 00561000 BLSUPUTN EQU 0 00562000 BLSUPUTO EQU 0 00563000 BLSUPUTT EQU 0 00564000 BLSUPUTV EQU 0 00565000 BLSUSTAI EQU 0 00566000 BLSUTRMA EQU 0 00567000 BLSUTRMN EQU 0 00568000 BLSUTRMO EQU 0 00569000 BLSUTRMV EQU 0 00570000 BLSUVSAR EQU 0 00571000 BLSUVSCR EQU 0 00572000 BLSUVSEN EQU 0 00573000 BLSUVSER EQU 0 00574000 BLSUVSGE EQU 0 00575000 BLSUVSGU EQU 0 00576000 BLSUVSMR EQU 0 00577000 BLSUVSPO EQU 0 00578000 BLSUVSPU EQU 0 00579000 BLSUZZ2C EQU 0 00580000 BLSUZZ2D EQU 0 00581000 BLSUZZ2R EQU 0 00582000 IKJEFF02 EQU 0 00583000 IKJEFF18 EQU 0 00584000 IKJEFF19 EQU 0 00585000 IKJGETL EQU 0 00586000 IKJPARS EQU 0 00587000 IKJPTGT EQU 0 00588000 IKJPUTL EQU 0 00589000 IKJSCAN EQU 0 00590000 IKJSTCK EQU 0 00591000 I001C EQU 0 00592000 I008P EQU 0 00593000 I015F EQU 0 00594000 I015P EQU 0 00595000 I031F EQU 0 00596000 I031P EQU 0 00597000 I256C EQU 0 00598000 CPPL EQU ZZ2CPPL 00599000 CPPLUPT EQU CPPL+4 00600000 CPPLPSCB EQU CPPL+8 00601000 CPPLECT EQU CPPL+12 00602000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00603000 CPPLCBUF EQU CPPL 00604000 @NM00111 EQU SDWA+512 00605000 SDWAVRA EQU SDWARA+4 00606000 SDWAURAL EQU SDWARA+3 00607000 @NM00110 EQU SDWADPVA 00608000 SDWAEBC EQU SDWADPVA 00609000 SDWAHEX EQU SDWADPVA 00610000 SDWAVRAL EQU SDWARA 00611000 SDWAERTM EQU SDWA+396 00612000 SDWACOMP EQU SDWA+392 00613000 SDWARCPL EQU SDWA+364 00614000 @NM00109 EQU SDWADPSA+32 00615000 SDWATO4 EQU SDWADPSL+28 00616000 SDWAFRM4 EQU SDWADPSL+24 00617000 SDWATO3 EQU SDWADPSL+20 00618000 SDWAFRM3 EQU SDWADPSL+16 00619000 SDWATO2 EQU SDWADPSL+12 00620000 SDWAFRM2 EQU SDWADPSL+8 00621000 SDWATO1 EQU SDWADPSL+4 00622000 SDWAFRM1 EQU SDWADPSL 00623000 @NM00108 EQU SDWADDAT+3 00624000 @NM00107 EQU SDWAPDAT 00625000 SDWAUSPL EQU SDWAPDAT 00626000 SDWADPSW EQU SDWAPDAT 00627000 SDWATJPA EQU SDWAPDAT 00628000 SDWATLPA EQU SDWAPDAT 00629000 SDWADREG EQU SDWAPDAT 00630000 SDWADSAH EQU SDWAPDAT 00631000 SDWADSAS EQU SDWAPDAT 00632000 @NM00106 EQU SDWASDA1 00633000 SDWAERR EQU SDWASDA1 00634000 SDWAIO EQU SDWASDA1 00635000 SDWADM EQU SDWASDA0 00636000 SDWAQQS EQU SDWASDA0 00637000 SDWACBS EQU SDWASDA0 00638000 SDWAGTF EQU SDWASDA0 00639000 SDWASWA EQU SDWASDA0 00640000 SDWALSQA EQU SDWASDA0 00641000 SDWASQA EQU SDWASDA0 00642000 SDWANUC EQU SDWASDA0 00643000 @NM00105 EQU SDWADUMP+2 00644000 @NM00104 EQU SDWADPFS 00645000 SDWASLST EQU SDWADPFS 00646000 @NM00103 EQU SDWADPFS 00647000 SDWAENSN EQU SDWADPFS 00648000 SDWADLST EQU SDWADPFS 00649000 SDWADPT EQU SDWADPFS 00650000 SDWADPID EQU SDWADUMP 00651000 SDWADPLA EQU SDWA+316 00652000 SDWAREXN EQU SDWARECP+16 00653000 SDWACSCT EQU SDWARECP+8 00654000 SDWAMODN EQU SDWARECP 00655000 SDWASEQ# EQU SDWA+290 00656000 SDWAASID EQU SDWA+288 00657000 SDWATALW EQU SDWALKWS+28 00658000 SDWATDLW EQU SDWALKWS+24 00659000 SDWATNLW EQU SDWALKWS+20 00660000 SDWAAPLW EQU SDWALKWS+16 00661000 SDWAIPLW EQU SDWALKWS+12 00662000 SDWAILLW EQU SDWALKWS+8 00663000 SDWAIULW EQU SDWALKWS+4 00664000 SDWAICLW EQU SDWALKWS 00665000 SDWAFLLK EQU SDWAACF4 00666000 SDWACMS EQU SDWAACF4 00667000 SDWAOPTM EQU SDWAACF4 00668000 SDWATADB EQU SDWAACF4 00669000 SDWATDNB EQU SDWAACF4 00670000 SDWATNCB EQU SDWAACF4 00671000 SDWAILCH EQU SDWAACF4 00672000 SDWAIUCB EQU SDWAACF4 00673000 SDWAICAT EQU SDWAACF3 00674000 SDWAIPRG EQU SDWAACF3 00675000 SDWASALL EQU SDWAACF3 00676000 SDWAASMP EQU SDWAACF3 00677000 SDWADISP EQU SDWAACF3 00678000 @NM00102 EQU SDWAACF3 00679000 @NM00101 EQU SDWAACF2 00680000 SDWAFREE EQU SDWAACF2 00681000 SDWAUPRG EQU SDWAACF2 00682000 @NM00100 EQU SDWAACF2 00683000 SDWASPIN EQU SDWAACF2 00684000 @NM00099 EQU SDWAACF2 00685000 SDWARCRD EQU SDWAACF2 00686000 SDWALCPU EQU SDWACPUA+2 00687000 @NM00098 EQU SDWACPUA 00688000 SDWARECA EQU SDWA+244 00689000 SDWARTYA EQU SDWA+240 00690000 SDWACPUI EQU SDWA+239 00691000 @NM00097 EQU SDWAIOFS 00692000 SDWANIOP EQU SDWAIOFS 00693000 SDWANOIO EQU SDWAIOFS 00694000 SDWAIOHT EQU SDWAIOFS 00695000 SDWAIOQR EQU SDWAIOFS 00696000 SDWAFMID EQU SDWA+236 00697000 SDWAERFL EQU SDWAERRD 00698000 SDWAMCIV EQU SDWAERRD 00699000 SDWARPIV EQU SDWAERRD 00700000 SDWAMABD EQU SDWAERRD 00701000 SDWACTS EQU SDWAERRD 00702000 SDWASTAE EQU SDWAERRD 00703000 SDWANRBE EQU SDWAERRD 00704000 SDWACLUP EQU SDWAERRD 00705000 @NM00096 EQU SDWAERRC 00706000 SDWAEAS EQU SDWAERRC 00707000 SDWAPERC EQU SDWAERRC 00708000 SDWAIRB EQU SDWAERRC 00709000 SDWASTAI EQU SDWAERRC 00710000 SDWASTAF EQU SDWAERRC 00711000 SDWASRBM EQU SDWAERRB 00712000 SDWALDIS EQU SDWAERRB 00713000 SDWAENRB EQU SDWAERRB 00714000 SDWATYP1 EQU SDWAERRB 00715000 @NM00095 EQU SDWAERRB 00716000 SDWAPGIO EQU SDWAERRA 00717000 SDWATEXC EQU SDWAERRA 00718000 SDWASVCE EQU SDWAERRA 00719000 SDWAABTM EQU SDWAERRA 00720000 SDWASVCD EQU SDWAERRA 00721000 SDWARKEY EQU SDWAERRA 00722000 SDWAPCHK EQU SDWAERRA 00723000 SDWAMCHK EQU SDWAERRA 00724000 SDWATIME EQU SDWAMCH+20 00725000 SDWARFSA EQU SDWAMCH+16 00726000 @NM00094 EQU SDWAMCH+14 00727000 SDWAVEQR EQU SDWARSR2 00728000 SDWAPGFX EQU SDWARSR2 00729000 SDWAFLSQ EQU SDWARSR2 00730000 SDWAFSQA EQU SDWARSR2 00731000 SDWANUCL EQU SDWARSR2 00732000 SDWASPER EQU SDWARSR2 00733000 SDWAINTC EQU SDWARSR2 00734000 SDWAOFLN EQU SDWARSR2 00735000 SDWACHNG EQU SDWARSR1 00736000 SDWAMSER EQU SDWARSR1 00737000 @NM00093 EQU SDWARSR1 00738000 SDWACPID EQU SDWAMCH+10 00739000 SDWATERR EQU SDWAMCHD 00740000 SDWAFPRX EQU SDWAMCHD 00741000 SDWAINSF EQU SDWAMCHD 00742000 SDWAACR EQU SDWAMCHD 00743000 SDWASCK EQU SDWAMCHD 00744000 SDWAPSWU EQU SDWAMCHD 00745000 SDWAREGU EQU SDWAMCHD 00746000 SDWASKYF EQU SDWAMCHD 00747000 @NM00092 EQU SDWAMCHS 00748000 SDWARSRF EQU SDWAMCHS 00749000 SDWARSRC EQU SDWAMCHS 00750000 SDWAINVP EQU SDWAMCHS 00751000 SDWATSVL EQU SDWAMCHS 00752000 SDWARCDF EQU SDWAMCHS 00753000 SDWASRVL EQU SDWAMCHS 00754000 SDWASCKE EQU SDWASTCK+4 00755000 SDWASCKB EQU SDWASTCK 00756000 SDWALNTH EQU SDWAIDNT+1 00757000 SDWASPID EQU SDWAIDNT 00758000 SDWASR15 EQU SDWASRSV+60 00759000 SDWASR14 EQU SDWASRSV+56 00760000 SDWASR13 EQU SDWASRSV+52 00761000 SDWASR12 EQU SDWASRSV+48 00762000 SDWASR11 EQU SDWASRSV+44 00763000 SDWASR10 EQU SDWASRSV+40 00764000 SDWASR09 EQU SDWASRSV+36 00765000 SDWASR08 EQU SDWASRSV+32 00766000 SDWASR07 EQU SDWASRSV+28 00767000 SDWASR06 EQU SDWASRSV+24 00768000 SDWASR05 EQU SDWASRSV+20 00769000 SDWASR04 EQU SDWASRSV+16 00770000 SDWASR03 EQU SDWASRSV+12 00771000 SDWASR02 EQU SDWASRSV+8 00772000 SDWASR01 EQU SDWASRSV+4 00773000 SDWASR00 EQU SDWASRSV 00774000 SDWATRN2 EQU SDWAAEC2+4 00775000 SDWAIPC2 EQU SDWAICD2 00776000 SDWAIMC2 EQU SDWAICD2 00777000 SDWAIPR2 EQU SDWAICD2 00778000 @NM00091 EQU SDWAINC2 00779000 @NM00090 EQU SDWAILC2 00780000 SDWAIL2 EQU SDWAILC2 00781000 @NM00089 EQU SDWAILC2 00782000 @NM00088 EQU SDWAAEC2 00783000 SDWAADD2 EQU SDWANXT2+1 00784000 @NM00087 EQU SDWANXT2 00785000 @NM00086 EQU SDWAEC2+3 00786000 SDWASGN2 EQU SDWAINT2 00787000 SDWAEXP2 EQU SDWAINT2 00788000 SDWADEC2 EQU SDWAINT2 00789000 SDWAFPO2 EQU SDWAINT2 00790000 SDWACC2 EQU SDWAINT2 00791000 @NM00085 EQU SDWAINT2 00792000 SDWAPGM2 EQU SDWAMWP2 00793000 SDWAWAT2 EQU SDWAMWP2 00794000 SDWAMCK2 EQU SDWAMWP2 00795000 SDWAECT2 EQU SDWAMWP2 00796000 SDWAKEY2 EQU SDWAMWP2 00797000 SDWAEXT2 EQU SDWAEMK2 00798000 SDWAIO2 EQU SDWAEMK2 00799000 SDWATRM2 EQU SDWAEMK2 00800000 @NM00084 EQU SDWAEMK2 00801000 SDWAPER2 EQU SDWAEMK2 00802000 @NM00083 EQU SDWAEMK2 00803000 SDWATRAN EQU SDWAAEC1+4 00804000 SDWAIPC1 EQU SDWAICD1 00805000 SDWAIMC1 EQU SDWAICD1 00806000 SDWAIPR1 EQU SDWAICD1 00807000 @NM00082 EQU SDWAINC1 00808000 @NM00081 EQU SDWAILC1 00809000 SDWAIL1 EQU SDWAILC1 00810000 @NM00080 EQU SDWAILC1 00811000 @NM00079 EQU SDWAAEC1 00812000 SDWAADD1 EQU SDWANXT1+1 00813000 @NM00078 EQU SDWANXT1 00814000 @NM00077 EQU SDWAEC1+3 00815000 SDWASGN1 EQU SDWAINT1 00816000 SDWAEXP1 EQU SDWAINT1 00817000 SDWADEC1 EQU SDWAINT1 00818000 SDWAFPO1 EQU SDWAINT1 00819000 SDWACC1 EQU SDWAINT1 00820000 @NM00076 EQU SDWAINT1 00821000 SDWAPGM1 EQU SDWAMWP1 00822000 SDWAWAT1 EQU SDWAMWP1 00823000 SDWAMCK1 EQU SDWAMWP1 00824000 SDWAECT1 EQU SDWAMWP1 00825000 SDWAKEY1 EQU SDWAMWP1 00826000 SDWAEXT1 EQU SDWAEMK1 00827000 SDWAIO1 EQU SDWAEMK1 00828000 SDWATRM1 EQU SDWAEMK1 00829000 @NM00075 EQU SDWAEMK1 00830000 SDWAPER1 EQU SDWAEMK1 00831000 @NM00074 EQU SDWAEMK1 00832000 SDWAIOBR EQU SDWA+100 00833000 SDWAEPA EQU SDWA+96 00834000 @NM00073 EQU SDWANAME+4 00835000 SDWARBAD EQU SDWANAME 00836000 SDWAGR15 EQU SDWAGRSV+60 00837000 SDWAGR14 EQU SDWAGRSV+56 00838000 SDWAGR13 EQU SDWAGRSV+52 00839000 SDWAGR12 EQU SDWAGRSV+48 00840000 SDWAGR11 EQU SDWAGRSV+44 00841000 SDWAGR10 EQU SDWAGRSV+40 00842000 SDWAGR09 EQU SDWAGRSV+36 00843000 SDWAGR08 EQU SDWAGRSV+32 00844000 SDWAGR07 EQU SDWAGRSV+28 00845000 SDWAGR06 EQU SDWAGRSV+24 00846000 SDWAGR05 EQU SDWAGRSV+20 00847000 SDWAGR04 EQU SDWAGRSV+16 00848000 SDWAGR03 EQU SDWAGRSV+12 00849000 SDWAGR02 EQU SDWAGRSV+8 00850000 SDWAGR01 EQU SDWAGRSV+4 00851000 SDWAGR00 EQU SDWAGRSV 00852000 SDWANXTP EQU SDWACTL2+5 00853000 SDWASGP EQU SDWAPMKP 00854000 SDWAEUP EQU SDWAPMKP 00855000 SDWADOP EQU SDWAPMKP 00856000 SDWAFPP EQU SDWAPMKP 00857000 SDWACCP EQU SDWAPMKP 00858000 SDWAILP EQU SDWAPMKP 00859000 SDWAINTP EQU SDWACTL2+2 00860000 SDWASPVP EQU SDWAMWPP 00861000 SDWAWATP EQU SDWAMWPP 00862000 SDWAMCKP EQU SDWAMWPP 00863000 @NM00072 EQU SDWAMWPP 00864000 SDWAKEYP EQU SDWAMWPP 00865000 SDWAEXTP EQU SDWACMKP 00866000 SDWAIOP EQU SDWACMKP 00867000 SDWANXTA EQU SDWACTL1+5 00868000 SDWASGA EQU SDWAPMKA 00869000 SDWAEUA EQU SDWAPMKA 00870000 SDWADOA EQU SDWAPMKA 00871000 SDWAFPA EQU SDWAPMKA 00872000 SDWACCA EQU SDWAPMKA 00873000 SDWAILA EQU SDWAPMKA 00874000 SDWAINTA EQU SDWACTL1+2 00875000 SDWASPVA EQU SDWAMWPA 00876000 SDWAWATA EQU SDWAMWPA 00877000 SDWAMCKA EQU SDWAMWPA 00878000 @NM00071 EQU SDWAMWPA 00879000 SDWAKEYA EQU SDWAMWPA 00880000 SDWAEXTA EQU SDWACMKA 00881000 SDWAIOA EQU SDWACMKA 00882000 SDWACMPC EQU SDWAABCC+1 00883000 @NM00070 EQU SDWACMPF 00884000 SDWASTCC EQU SDWACMPF 00885000 @NM00069 EQU SDWACMPF 00886000 SDWASTEP EQU SDWACMPF 00887000 SDWAREQ EQU SDWACMPF 00888000 DVT99999 EQU DVT+256 00889000 DVT0064P EQU DVT+252 00890000 DVT0063P EQU DVT+248 00891000 DVT0062P EQU DVT+244 00892000 DVT0061P EQU DVT+240 00893000 DVT0060P EQU DVT+236 00894000 DVT0059P EQU DVT+232 00895000 DVT0058P EQU DVT+228 00896000 DVT0057P EQU DVT+224 00897000 DVT0056P EQU DVT+220 00898000 DVT0055P EQU DVT+216 00899000 DVT0054P EQU DVT+212 00900000 DVT0053P EQU DVT+208 00901000 DVT0052P EQU DVT+204 00902000 DVT0051P EQU DVT+200 00903000 DVT0050P EQU DVT+196 00904000 DVT0049P EQU DVT+192 00905000 DVT0048P EQU DVT+188 00906000 DVT0047P EQU DVT+184 00907000 DVT0046P EQU DVT+180 00908000 DVT0045P EQU DVT+176 00909000 DVT0044P EQU DVT+172 00910000 DVT0043P EQU DVT+168 00911000 DVT0042P EQU DVT+164 00912000 DVT0041P EQU DVT+160 00913000 DVT0040P EQU DVT+156 00914000 DVT0039P EQU DVT+152 00915000 DVT0038P EQU DVT+148 00916000 DVT0037P EQU DVT+144 00917000 DVT0036P EQU DVT+140 00918000 DVT0035P EQU DVT+136 00919000 DVT0034P EQU DVT+132 00920000 DVT0011P EQU DVT+40 00921000 DVT0005P EQU DVT+16 00922000 DVT0002P EQU DVT+4 00923000 DVT0001P EQU DVT 00924000 BVT99999 EQU BVT+256 00925000 BVT0064P EQU BVT+252 00926000 BVT0063P EQU BVT+248 00927000 BVT0062P EQU BVT+244 00928000 BVT0061P EQU BVT+240 00929000 BVT0060P EQU BVT+236 00930000 BVT0059P EQU BVT+232 00931000 BVT0057P EQU BVT+224 00932000 BVT0056P EQU BVT+220 00933000 BVTSTBLP EQU BVT+200 00934000 BVT0045P EQU BVT+176 00935000 BVT0044P EQU BVT+172 00936000 BVT0033P EQU BVT+128 00937000 BVT0032P EQU BVT+124 00938000 BVT0031P EQU BVT+120 00939000 BVT0030P EQU BVT+116 00940000 BVT0029P EQU BVT+112 00941000 BVT0026P EQU BVT+100 00942000 BVT0025P EQU BVT+96 00943000 BVT0024P EQU BVT+92 00944000 BVT0023P EQU BVT+88 00945000 BVT0016P EQU BVT+60 00946000 BVT0015P EQU BVT+56 00947000 BVT0014P EQU BVT+52 00948000 BVT0003P EQU BVT+8 00949000 BVT0001P EQU BVT 00950000 SA99 EQU SA+72 00951000 SARC EQU SAR+56 00952000 SARB EQU SAR+52 00953000 SARA EQU SAR+48 00954000 SAR9 EQU SAR+44 00955000 SAR8 EQU SAR+40 00956000 SAR7 EQU SAR+36 00957000 SAR6 EQU SAR+32 00958000 SAR5 EQU SAR+28 00959000 SAR4 EQU SAR+24 00960000 SAR3 EQU SAR+20 00961000 SAR2 EQU SAR+16 00962000 SAR1 EQU SAR+12 00963000 SAR0 EQU SAR+8 00964000 SARF EQU SAR+4 00965000 SARE EQU SAR 00966000 SA1L EQU SA1+1 00967000 SA1P EQU SA1 00968000 UPTPREFL EQU UPT+23 00969000 UPTPREFX EQU UPT+16 00970000 @NM00068 EQU UPT+15 00971000 UPTLDEL EQU UPT+14 00972000 UPTCDEL EQU UPT+13 00973000 UPTWTP EQU UPTSWS 00974000 UPTMODE EQU UPTSWS 00975000 UPTALD EQU UPTSWS 00976000 UPTPAUS EQU UPTSWS 00977000 UPTNCOM EQU UPTSWS 00978000 UPTMID EQU UPTSWS 00979000 UPTNPRM EQU UPTSWS 00980000 UPTRCVR EQU UPTSWS 00981000 UPTUSER EQU UPT+2 00982000 @NM00067 EQU UPT 00983000 @NM00066 EQU ECT+52 00984000 @NM00065 EQU ECT+48 00985000 @NM00064 EQU ECT+44 00986000 @NM00063 EQU ECTSWS2+1 00987000 @NM00062 EQU ECTSWS21 00988000 ECTTABND EQU ECTSWS21 00989000 ECTDEFCS EQU ECTSWS21 00990000 ECTBKPB EQU ECT+36 00991000 ECTUSER EQU ECT+32 00992000 ECTDDNUM EQU ECT+29 00993000 ECTATTN EQU ECTSWS 00994000 ECTBKGRD EQU ECTSWS 00995000 ECTNNOT EQU ECTSWS 00996000 ECTNMAL EQU ECTSWS 00997000 ECTLOGF EQU ECTSWS 00998000 ECTATRM EQU ECTSWS 00999000 @NM00061 EQU ECTSWS 01000000 ECTNOPD EQU ECTSWS 01001000 ECTSCMD EQU ECT+20 01002000 ECTPCMD EQU ECT+12 01003000 ECTSMSG EQU ECT+9 01004000 ECTMSGF EQU ECT+8 01005000 ECTIOWA EQU ECT+4 01006000 ECTRTCD EQU ECT+1 01007000 ECTRCDF EQU ECT 01008000 PSCBU EQU PSCB+64 01009000 PSCBRSZ EQU PSCB+60 01010000 PSCBLINE EQU PSCB+59 01011000 PSCBCHAR EQU PSCB+58 01012000 PSCBUPTL EQU PSCB+56 01013000 PSCBUPT EQU PSCB+52 01014000 PSCBRLGB EQU PSCB+48 01015000 PSCBDEST EQU PSCB+40 01016000 @NM00060 EQU PSCB+36 01017000 @NM00059 EQU PSCB+32 01018000 @NM00058 EQU PSCB+28 01019000 PSCBLTI2 EQU PSCB+24 01020000 PSCBLTIM EQU PSCB+20 01021000 PSCBATR2 EQU PSCB+18 01022000 @NM00057 EQU PSCBATR1 01023000 @NM00056 EQU PSCBATR1 01024000 @NM00055 EQU PSCBATR1 01025000 PSCBATTN EQU PSCBATR1 01026000 PSCBVMNT EQU PSCBATR1 01027000 PSCBJCL EQU PSCBATR1 01028000 PSCBACCT EQU PSCBATR1 01029000 PSCBCTRL EQU PSCBATR1 01030000 PSCBGPNM EQU PSCB+8 01031000 PSCBUSRL EQU PSCB+7 01032000 PSCBUSER EQU PSCB 01033000 CMDT1 EQU CMDT 01034000 CMDO EQU CMD+2 01035000 CMDL EQU CMD 01036000 ZZ299999 EQU ZZ2+8192 01037000 ZZ2AXOT1 EQU ZZ2AXOT 01038000 ZZ2AXOL EQU ZZ2AXO 01039000 @NM00054 EQU ZZ2+7288 01040000 @NM00053 EQU ZZ2AMDX+4 01041000 ZZ2AMDXC EQU ZZ2AMDX 01042000 ZZ2HSD EQU ZZ2+3056 01043000 @NM00052 EQU ZZ2ES 01044000 @NM00051 EQU ZZ2+2868 01045000 ZZ2ITSEC EQU ZZ2ITSE+1 01046000 @NM00050 EQU ZZ2ITSE 01047000 ZZ2ITSEP EQU ZZ2ITSE 01048000 ZZ2ITSEW EQU ZZ2ITSE 01049000 @NM00049 EQU ZZ2ITR+20 01050000 ZZ2ITREC EQU ZZ2ITRE+1 01051000 @NM00048 EQU ZZ2ITRE 01052000 ZZ2ITREP EQU ZZ2ITRE 01053000 ZZ2ITREW EQU ZZ2ITRE 01054000 @NM00047 EQU ZZ2ITR+9 01055000 ZZ2ITRRC EQU ZZ2ITR+8 01056000 ZZ2ITR2P EQU ZZ2ITR+4 01057000 ZZ2ITRPP EQU ZZ2ITR 01058000 @NM00046 EQU ZZ2+1544 01059000 ZZ2PGM EQU ZZ2+1536 01060000 @NM00045 EQU ZZ2+1526 01061000 ZZ2CW EQU ZZ2+1524 01062000 @NM00044 EQU ZZ2+1504 01063000 @NM00043 EQU ZZ2+1352 01064000 ZZ2FFSYP EQU ZZ2+1348 01065000 ZZ2SASYP EQU ZZ2+1344 01066000 ZZ2RDSYP EQU ZZ2+1340 01067000 ZZ2RASYP EQU ZZ2+1336 01068000 ZZ2PHSYP EQU ZZ2+1332 01069000 ZZ2ESSYP EQU ZZ2+1328 01070000 ZZ200SYP EQU ZZ2+1324 01071000 ZZ2SCWP EQU ZZ2+1320 01072000 ZZ2TTLP EQU ZZ2+1316 01073000 ZZ2LOADP EQU ZZ2+1312 01074000 ZZ2VRESP EQU ZZ2+1308 01075000 ZZ2CPPLE EQU ZZ2CPPL+12 01076000 ZZ2CPPLP EQU ZZ2CPPL+8 01077000 ZZ2CPPLU EQU ZZ2CPPL+4 01078000 ZZ2VRSAP EQU ZZ2+1288 01079000 ZZ2RVTP EQU ZZ2+1284 01080000 @NM00042 EQU ZZ2+1272 01081000 @NM00041 EQU ZZ2+1268 01082000 ZZ2RPLP EQU ZZ2+1260 01083000 ZZ2TCBP EQU ZZ2+1256 01084000 @NM00040 EQU ZZ2+1252 01085000 ZZ2ZZ2P EQU ZZ2+1248 01086000 @NM00039 EQU ZZ2+1112 01087000 ZZ2FPDRP EQU ZZ2+1108 01088000 ZZ2FDSDP EQU ZZ2+1104 01089000 @NM00038 EQU ZZ2+1080 01090000 ZZ2FT25P EQU ZZ2+1072 01091000 @NM00037 EQU ZZ2+976 01092000 ZZ2TOD EQU ZZ2+968 01093000 ZZ2STGN EQU ZZ2STG+4 01094000 ZZ2STGP EQU ZZ2STG 01095000 @NM00036 EQU ZZ2+952 01096000 ZZ2SCMDE EQU ZZ2+944 01097000 ZZ2SCMDN EQU ZZ2+936 01098000 ZZ2IDENT EQU ZZ2+928 01099000 ZZ2A9999 EQU ZZ2A+656 01100000 @NM00035 EQU ZZ2A+224 01101000 @NM00034 EQU ZZ2A+220 01102000 ZZ2AQD99 EQU ZZ2AQD+60 01103000 @NM00033 EQU ZZ2AQD+56 01104000 @NM00032 EQU ZZ2AQDF 01105000 ZZ2AQDFA EQU ZZ2AQDF 01106000 ZZ2AQDIL EQU ZZ2AQD+48 01107000 ZZ2AQDIM EQU ZZ2AQD+44 01108000 ZZ2AQDT9 EQU ZZ2AQDT+34 01109000 ZZ2AQDTE EQU ZZ2AQDT+33 01110000 ZZ2AQDTD EQU ZZ2AQDT+2 01111000 @NM00031 EQU ZZ2AQDT+1 01112000 ZZ2AQDTY EQU ZZ2AQDT 01113000 ZZ2AQDT0 EQU ZZ2AQDT 01114000 ZZ2AQDLB EQU ZZ2AQD+9 01115000 ZZ2AQDOB EQU ZZ2AQD+8 01116000 ZZ2AQDLE EQU ZZ2AQD+4 01117000 ZZ2AQDOF EQU ZZ2AQD 01118000 ZZ2AQD00 EQU ZZ2AQD 01119000 ZZ2AQAS9 EQU ZZ2AQAS+16 01120000 @NM00030 EQU ZZ2AQAS+12 01121000 ZZ2AQAS2 EQU ZZ2AQAS+8 01122000 ZZ2AQAS1 EQU ZZ2AQAS+4 01123000 @NM00029 EQU ZZ2AQAS+2 01124000 ZZ2AQAST EQU ZZ2AQAS 01125000 ZZ2AQAS0 EQU ZZ2AQAS 01126000 ZZ2AZZ6P EQU ZZ2A+140 01127000 ZZ2ADPTA EQU ZZ2ADPT 01128000 ZZ2ADPL EQU ZZ2ADP 01129000 ZZ2ADMTA EQU ZZ2ADMT 01130000 ZZ2ADML EQU ZZ2ADM 01131000 ZZ2ADDTA EQU ZZ2ADDT 01132000 ZZ2ADDL EQU ZZ2ADD 01133000 @NM00028 EQU ZZ2A+72 01134000 ZZ2APIDB EQU ZZ2APID+3 01135000 ZZ2APIDA EQU ZZ2APID 01136000 @NM00027 EQU ZZ2A+24 01137000 @NM00026 EQU ZZ2AF+5 01138000 ZZ2AFX EQU ZZ2AF+5 01139000 @NM00025 EQU ZZ2AF+3 01140000 ZZ2AFS EQU ZZ2AF+2 01141000 ZZ2AFD EQU ZZ2AF+2 01142000 ZZ2AFQ EQU ZZ2AF+2 01143000 ZZ2AF$ EQU ZZ2AF+2 01144000 @NM00024 EQU ZZ2AF+2 01145000 ZZ2AFM EQU ZZ2AF+2 01146000 @NM00023 EQU ZZ2AF+2 01147000 @NM00022 EQU ZZ2AF+1 01148000 ZZ2AFV EQU ZZ2AF+1 01149000 @NM00021 EQU ZZ2AF+1 01150000 ZZ2AFC EQU ZZ2AF+1 01151000 @NM00020 EQU ZZ2AF 01152000 ZZ2AFFS EQU ZZ2AF 01153000 ZZ2AFT EQU ZZ2AF 01154000 ZZ2AFP EQU ZZ2AF 01155000 @NM00019 EQU ZZ2A+8 01156000 ZZ2ALINE EQU ZZ2A+4 01157000 @NM00018 EQU ZZ2A+3 01158000 ZZ2ASE EQU ZZ2A+2 01159000 ZZ2ACH EQU ZZ2A 01160000 @NM00017 EQU ZZ2+264 01161000 @NM00016 EQU ZZ2+263 01162000 ZZ2PRTT0 EQU ZZ2PRTT 01163000 ZZ2PRTO EQU ZZ2PRT+2 01164000 ZZ2PRTL EQU ZZ2PRT 01165000 @NM00015 EQU ZZ2AMD+56 01166000 ZZ2AMDXP EQU ZZ2AMD+52 01167000 ZZ2AMDD EQU ZZ2AMD+48 01168000 ZZ2AMDL EQU ZZ2AMD+44 01169000 ZZ2AMDU EQU ZZ2AMD+28 01170000 ZZ2AMDF EQU ZZ2AMD+24 01171000 ZZ2AMDS EQU ZZ2AMD+20 01172000 ZZ2AMDC EQU ZZ2AMD+16 01173000 ZZ2AMDP EQU ZZ2AMD+12 01174000 ZZ2AMDB EQU ZZ2AMD+8 01175000 @NM00014 EQU @NM00013 01176000 ZZ2AMD2 EQU @NM00013 01177000 ZZ2AMD1 EQU @NM00013 01178000 ZZ2AMD0 EQU ZZ2AMD+6 01179000 ZZ2AMDA EQU ZZ2AMD+4 01180000 ZZ2AMDT EQU ZZ2AMD 01181000 ZZ199999 EQU ZZ1+3072 01182000 @NM00012 EQU ZZ1+2160 01183000 ZZ1TRTAS EQU ZZ1+1904 01184000 ZZ1TRUPC EQU ZZ1+1648 01185000 ZZ1TRCTX EQU ZZ1+1392 01186000 ZZ1NASID EQU ZZ1N+274 01187000 ZZ1NSTRL EQU ZZ1N+272 01188000 ZZ1NOFF EQU ZZ1N+268 01189000 ZZ1NBDY EQU ZZ1N+264 01190000 ZZ1NADE EQU ZZ1N+260 01191000 ZZ1NADB EQU ZZ1N+256 01192000 ZZ1NSTR EQU ZZ1N 01193000 @NM00011 EQU ZZ1+1080 01194000 ZZ1TREBC EQU ZZ1+824 01195000 ZZ1TRHEX EQU ZZ1+568 01196000 @NM00010 EQU ZZ1+377 01197000 @NM00009 EQU ZZ1F+1 01198000 @NM00008 EQU ZZ1F 01199000 ZZ1FM EQU ZZ1F 01200000 ZZ1FX EQU ZZ1F 01201000 ZZ1FU EQU ZZ1F 01202000 ZZ1EVEC EQU ZZ1EVE+1 01203000 @NM00007 EQU ZZ1EVE 01204000 ZZ1EVEP EQU ZZ1EVE 01205000 ZZ1EVEW EQU ZZ1EVE 01206000 ZZ1ACMP EQU ZZ1ATTN 01207000 @NM00006 EQU ZZ1+144 01208000 ZZ1FPP EQU ZZ1+140 01209000 ZZ1ZZ6P EQU ZZ1+136 01210000 @NM00005 EQU ZZ1+84 01211000 ZZ1PLINE EQU ZZ1+80 01212000 ZZ1PGSZ EQU ZZ1+76 01213000 ZZ1PCNT EQU ZZ1+72 01214000 @NM00004 EQU ZZ1+68 01215000 ZZ1TPAGE EQU ZZ1+64 01216000 ZZ1TLINE EQU ZZ1+60 01217000 @NM00003 EQU ZZ1+48 01218000 ZZ1DSDP EQU ZZ1+44 01219000 ZZ1PDRP EQU ZZ1+40 01220000 ZZ1ZZ2P EQU ZZ1+36 01221000 ZZ1327WP EQU ZZ1+32 01222000 ZZ1ACBP EQU ZZ1+28 01223000 @NM00002 EQU ZZ1+24 01224000 ZZ1PDCBP EQU ZZ1+20 01225000 ZZ1BLRBL EQU ZZ1+16 01226000 @NM00001 EQU ZZ1+12 01227000 ZZ1PNULL EQU ZZ1+8 01228000 ZZ1NULL EQU ZZ1+4 01229000 ZZ1IDE EQU ZZ1 01230000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01231000 @ENDDATA EQU * 01232000 END BLSUSTAE,(C'PLS2043',0701,78060) 01233000