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