TITLE 'IEFISEXR - INITATOR SUBSYSTEM EXIT ROUTINE ' 00001000 IEFISEXR CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IEFISEXR 73.066' 0001 00007000 DROP @15 00008000 @PROLOG BALR @12,0 0001 00009000 @PSTART DS 0H 0001 00010000 USING @PSTART,@12 0001 00011000 * SDWAPTR=R1; /* POINT TO SDWA */ 00012000 LR SDWAPTR,R1 0009 00013000 * R7=R14; /* SAVE THE RETURN ADDRESS */ 00014000 LR R7,R14 0010 00015000 * IF(R0=12)THEN /* IF NO SDWA RETURN */ 00016000 CH R0,@CH00431 0011 00017000 BNE @RF00011 0011 00018000 * R15=0; /* INDICATE NO RETRY */ 00019000 SR R15,R15 0012 00020000 * ELSE 0013 00021000 * DO; 0013 00022000 * 0013 00023000 B @RC00011 0013 00024000 @RF00011 DS 0H 0014 00025000 * /*************************************************************/ 00026000 * /* */ 00027000 * /* AUTOMATIC STORAGE MUST BE EXPLICITLY GOTTEN AND FREED */ 00028000 * /* BECAUSE BOTH REGISTERS 0 ND 1 UPON ENTRY TO THIS MODULE */ 00029000 * /* CONTAIN INPUT, AND THE PLS GETMAIN WOULD DESTROY THEN */ 00030000 * /* */ 00031000 * /*************************************************************/ 00032000 * 0014 00033000 * GEN; 0014 00034000 L R0,@SIZDATD 00035000 GETMAIN R,LV=(0) 00036000 LR R11,R1 00037000 USING @DATD,R11 00038000 * 0015 00039000 * /*************************************************************/ 00040000 * /* */ 00041000 * /* CHECK FOR PROGRAM CHECK OR RESTART */ 00042000 * /* */ 00043000 * /*************************************************************/ 00044000 * 0015 00045000 * IF SDWAPCHK='1'B|SDWARKEY='1'B THEN 0015 00046000 TM SDWAPCHK(SDWAPTR),B'01100000' 0015 00047000 BZ @RF00015 0015 00048000 * DO; 0016 00049000 * SSDUMPC(1:SLSDUMP)=SSDUMP(1:SLSDUMP);/* MOVE IN SDUMP 0017 00050000 * PARMS */ 00051000 L @10,SLSDUMP 0017 00052000 BCTR @10,0 0017 00053000 EX @10,@SM00452 0017 00054000 * R1=ADDR(SSDUMPC); /* POINT TO SDUMP PARAMETER */ 00055000 LA R1,SSDUMPC 0018 00056000 * GEN(SDUMP MF=(E,(1))); /* ISSUE THE SDUMP */ 00057000 SDUMP MF=(E,(1)) 00058000 * END; 0020 00059000 * 0020 00060000 * /*************************************************************/ 00061000 * /* */ 00062000 * /* DEQ OFF CSCB , IT MAY BE HELD */ 00063000 * /* */ 00064000 * /*************************************************************/ 00065000 * 0021 00066000 * DEQCORE(1:DEQLGTH)=DEQLIST(1:DEQLGTH);/* MOVE IN DEQ */ 00067000 @RF00015 L @10,DEQLGTH 0021 00068000 BCTR @10,0 0021 00069000 EX @10,@SM00454 0021 00070000 * R1=ADDR(DEQCORE); /* POINT TO DEQ PARAMETER LIST */ 00071000 LA R1,DEQCORE 0022 00072000 * GEN(DEQ MF=(E,(1))); /* ISSUE THE DEQ */ 00073000 DEQ MF=(E,(1)) 00074000 * 0024 00075000 */* ISSUE SETRP TO RECORD ERROR ON LOGREC */ 00076000 * 0024 00077000 * IF SDWAPARM=0 THEN /* IF PARMETER IS ZERO THE THIS 00078000 * IS THE INITATOR RESOURE 0024 00079000 * MANAGER */ 00080000 SR @10,@10 0024 00081000 C @10,SDWAPARM(,SDWAPTR) 0024 00082000 BNE @RF00024 0024 00083000 * DO; /* SETRP RECPARM(IRECM) 0025 00084000 * RECORD(YES) RC(0) 0025 00085000 * WKAREA(SDWAPTR) */ 00086000 * RESPECIFY 0026 00087000 * (GPR00P, 0026 00088000 * GPR01P, 0026 00089000 * GPR14P, 0026 00090000 * GPR15P)RSTD; 0026 00091000 * GPR01P=SDWAPTR; 0027 00092000 LR GPR01P,SDWAPTR 0027 00093000 * RESPECIFY 0028 00094000 * SDWA BASED(GPR01P); 0028 00095000 * SDWARCDE=0; /* SAVE RC VALUE */ 00096000 STC @10,SDWARCDE(,GPR01P) 0029 00097000 * SDWARTYA=0; /* ZERO RETRY ADDRESS FIELD */ 00098000 ST @10,SDWARTYA(,GPR01P) 0030 00099000 * SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00100000 OI SDWARCRD(GPR01P),B'10000000' 0031 00101000 * GPR15P=ADDR(IRECM); /* ACCESS RECORD PARAMETER LIST */ 00102000 LA GPR15P,IRECM 0032 00103000 * SDWAMODN=GPR15P->I256C(1:8);/* MOVE MODULE NAME INTO SDWA*/ 00104000 MVC SDWAMODN(8,GPR01P),I256C(GPR15P) 0033 00105000 * SDWACSCT=GPR15P->I256C(9:16);/* OBTAIN CSECT NAME */ 00106000 MVC SDWACSCT(8,GPR01P),I256C+8(GPR15P) 0034 00107000 * SDWAREXN=GPR15P->I256C(17:24);/* OBTAIN FRR ID */ 00108000 MVC SDWAREXN(8,GPR01P),I256C+16(GPR15P) 0035 00109000 * RESPECIFY 0036 00110000 * (GPR00P, 0036 00111000 * GPR01P, 0036 00112000 * GPR14P, 0036 00113000 * GPR15P)UNRSTD; 0036 00114000 * END; 0037 00115000 * ELSE 0038 00116000 * DO; /* SETRP RECPARM(JRECM) 0038 00117000 * RECORD(YES) RC(0) 0038 00118000 * WKAREA(SDWAPTR) */ 00119000 B @RC00024 0038 00120000 @RF00024 DS 0H 0039 00121000 * RESPECIFY 0039 00122000 * (GPR00P, 0039 00123000 * GPR01P, 0039 00124000 * GPR14P, 0039 00125000 * GPR15P)RSTD; 0039 00126000 * GPR01P=SDWAPTR; 0040 00127000 LR GPR01P,SDWAPTR 0040 00128000 * RESPECIFY 0041 00129000 * SDWA BASED(GPR01P); 0041 00130000 * SDWARCDE=0; /* SAVE RC VALUE */ 00131000 SR @10,@10 0042 00132000 STC @10,SDWARCDE(,GPR01P) 0042 00133000 * SDWARTYA=0; /* ZERO RETRY ADDRESS FIELD */ 00134000 ST @10,SDWARTYA(,GPR01P) 0043 00135000 * SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00136000 OI SDWARCRD(GPR01P),B'10000000' 0044 00137000 * GPR15P=ADDR(JRECM); /* ACCESS RECORD PARAMETER LIST */ 00138000 LA GPR15P,JRECM 0045 00139000 * SDWAMODN=GPR15P->I256C(1:8);/* MOVE MODULE NAME INTO SDWA*/ 00140000 MVC SDWAMODN(8,GPR01P),I256C(GPR15P) 0046 00141000 * SDWACSCT=GPR15P->I256C(9:16);/* OBTAIN CSECT NAME */ 00142000 MVC SDWACSCT(8,GPR01P),I256C+8(GPR15P) 0047 00143000 * SDWAREXN=GPR15P->I256C(17:24);/* OBTAIN FRR ID */ 00144000 MVC SDWAREXN(8,GPR01P),I256C+16(GPR15P) 0048 00145000 * RESPECIFY 0049 00146000 * (GPR00P, 0049 00147000 * GPR01P, 0049 00148000 * GPR14P, 0049 00149000 * GPR15P)UNRSTD; 0049 00150000 * END; 0050 00151000 * 0051 00152000 * /*************************************************************/ 00153000 * /* */ 00154000 * /* THE PLS GOTTEN AREA MUST BE FREED ON EXIT */ 00155000 * /* */ 00156000 * /*************************************************************/ 00157000 * 0051 00158000 * GEN; 0051 00159000 @RC00024 DS 0H 0051 00160000 L R0,@SIZDATD 00161000 FREEMAIN R,LV=(0),A=(R11) 00162000 * END; 0052 00163000 * R14=R7; /* RETURN ADDRESS NOW IN R14 */ 00164000 @RC00011 LR R14,R7 0053 00165000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00166000 * GPR00P PTR(31)REG(0), 0054 00167000 * GPR01P PTR(31)REG(1), 0054 00168000 * GPR14P PTR(31)REG(14), 0054 00169000 * GPR15P PTR(31)REG(15); 0054 00170000 * DECLARE /* COMMON VARIABLES */ 00171000 * I256C CHAR(256)BASED, 0055 00172000 * I031F FIXED(31)BASED, 0055 00173000 * I031P PTR(31)BASED, 0055 00174000 * I015F FIXED(15)BASED, 0055 00175000 * I015P PTR(15)BASED, 0055 00176000 * I008P PTR(8)BASED, 0055 00177000 * I001C CHAR(1)BASED; 0055 00178000 * END 0056 00179000 * 0056 00180000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00181000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00182000 * 0056 00183000 * ; 0056 00184000 @EL00001 DS 0H 0056 00185000 @EF00001 DS 0H 0056 00186000 @ER00001 BR @14 0056 00187000 @DATA DS 0H 00188000 @CH00431 DC H'12' 00189000 @SM00452 MVC SSDUMPC(0),SSDUMP 00190000 @SM00454 MVC DEQCORE(0),DEQLIST 00191000 @DATD DSECT 00192000 DS 0F 00193000 IEFISEXR CSECT 00194000 DS 0F 00195000 @DATD DSECT 00196000 DS 0D 00197000 IEFISEXR CSECT 00198000 DS 0F 00199000 @SIZDATD DC AL1(230) 00200000 DC AL3(@ENDDATD-@DATD) 00201000 DS 0D 00202000 IRECM DC CL24' IEFIRECM' 00203000 JRECM DC CL24' IEFJRECM' 00204000 SSMAJ DC CL8'SYSIEFSD' 00205000 SSMIN DC CL3'Q10' 00206000 IEFISEXR CSECT 00207000 SSDUMP SDUMP HDR='RESOURCE MANAGER',SDATA=(SQA,PSA,LSQA,RGN, **00208000 LPA,TRT,CSA,NUC),MF=L 00209000 SSLGH EQU * 00210000 SLSDUMP DC A(SSLGH-SSDUMP) 00211000 @DATD DSECT 00212000 SSDUMPC SDUMP HDR='RESOURCE MANAGER',SDATA=(SQA,PSA,LSQA,RGN, **00213000 LPA,TRT,CSA,NUC),MF=L 00214000 IEFISEXR CSECT 00215000 DEQLIST ENQ (SSMAJ,SSMIN,S,3,SYSTEM),RET=HAVE,MF=L 00216000 DEQLGTH DC A(*-DEQLIST) 00217000 @DATD DSECT 00218000 DEQCORE ENQ (SSMAJ,SSMIN,S,3,SYSTEM),RET=HAVE,MF=L 00219000 @DATD DSECT 00220000 @ENDDATD EQU * 00221000 IEFISEXR CSECT 00222000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00223000 @01 EQU 01 00224000 @02 EQU 02 00225000 @03 EQU 03 00226000 @04 EQU 04 00227000 @05 EQU 05 00228000 @06 EQU 06 00229000 @07 EQU 07 00230000 @08 EQU 08 00231000 @09 EQU 09 00232000 @10 EQU 10 00233000 @11 EQU 11 00234000 @12 EQU 12 00235000 @13 EQU 13 00236000 @14 EQU 14 00237000 @15 EQU 15 00238000 SDWAPTR EQU @02 00239000 R0 EQU @00 00240000 R1 EQU @01 00241000 R11 EQU @11 00242000 R7 EQU @07 00243000 R14 EQU @14 00244000 R15 EQU @15 00245000 GPR00P EQU @00 00246000 GPR01P EQU @01 00247000 GPR14P EQU @14 00248000 GPR15P EQU @15 00249000 SDWA EQU 0 00250000 SDWAPARM EQU SDWA 00251000 SDWAFIOB EQU SDWA+4 00252000 SDWAABCC EQU SDWAFIOB 00253000 SDWACMPF EQU SDWAABCC 00254000 SDWACTL1 EQU SDWA+8 00255000 SDWACMKA EQU SDWACTL1 00256000 SDWAMWPA EQU SDWACTL1+1 00257000 SDWAPMKA EQU SDWACTL1+4 00258000 SDWACTL2 EQU SDWA+16 00259000 SDWACMKP EQU SDWACTL2 00260000 SDWAMWPP EQU SDWACTL2+1 00261000 SDWAPMKP EQU SDWACTL2+4 00262000 SDWAGRSV EQU SDWA+24 00263000 SDWANAME EQU SDWA+88 00264000 SDWAEC1 EQU SDWA+104 00265000 SDWAEMK1 EQU SDWAEC1 00266000 SDWAMWP1 EQU SDWAEC1+1 00267000 SDWAINT1 EQU SDWAEC1+2 00268000 SDWANXT1 EQU SDWAEC1+4 00269000 SDWAAEC1 EQU SDWA+112 00270000 SDWAILC1 EQU SDWAAEC1+1 00271000 SDWAINC1 EQU SDWAAEC1+2 00272000 SDWAICD1 EQU SDWAINC1+1 00273000 SDWAEC2 EQU SDWA+120 00274000 SDWAEMK2 EQU SDWAEC2 00275000 SDWAMWP2 EQU SDWAEC2+1 00276000 SDWAINT2 EQU SDWAEC2+2 00277000 SDWANXT2 EQU SDWAEC2+4 00278000 SDWAAEC2 EQU SDWA+128 00279000 SDWAILC2 EQU SDWAAEC2+1 00280000 SDWAINC2 EQU SDWAAEC2+2 00281000 SDWAICD2 EQU SDWAINC2+1 00282000 SDWASRSV EQU SDWA+136 00283000 SDWAIDNT EQU SDWA+200 00284000 SDWAMCH EQU SDWA+204 00285000 SDWASTCK EQU SDWAMCH 00286000 SDWAMCHI EQU SDWAMCH+8 00287000 SDWAMCHS EQU SDWAMCHI 00288000 SDWAMCHD EQU SDWAMCHI+1 00289000 SDWARSR1 EQU SDWAMCH+12 00290000 SDWARSR2 EQU SDWAMCH+13 00291000 SDWAFLGS EQU SDWA+232 00292000 SDWAERRA EQU SDWAFLGS 00293000 SDWAPCHK EQU SDWAERRA 00294000 SDWARKEY EQU SDWAERRA 00295000 SDWAERRB EQU SDWAFLGS+1 00296000 SDWAERRC EQU SDWAFLGS+2 00297000 SDWAERRD EQU SDWAFLGS+3 00298000 SDWAIOFS EQU SDWA+238 00299000 SDWARTYA EQU SDWA+240 00300000 SDWAPARQ EQU SDWA+252 00301000 SDWARCDE EQU SDWAPARQ 00302000 SDWAACF2 EQU SDWAPARQ+1 00303000 SDWARCRD EQU SDWAACF2 00304000 SDWAACF3 EQU SDWAPARQ+2 00305000 SDWAACF4 EQU SDWAPARQ+3 00306000 SDWALKWA EQU SDWA+256 00307000 SDWALKWS EQU SDWALKWA 00308000 SDWAMODN EQU SDWA+292 00309000 SDWACSCT EQU SDWA+300 00310000 SDWAREXN EQU SDWA+308 00311000 SDWASNPA EQU SDWA+320 00312000 SDWADUMP EQU SDWASNPA 00313000 SDWADPFS EQU SDWADUMP+1 00314000 SDWADDAT EQU SDWASNPA+4 00315000 SDWASDAT EQU SDWADDAT 00316000 SDWAPDAT EQU SDWADDAT+2 00317000 SDWADPSA EQU SDWA+328 00318000 SDWADPSL EQU SDWADPSA 00319000 SDWARA EQU SDWA+400 00320000 SDWADPVA EQU SDWARA+2 00321000 I256C EQU 0 00322000 I001C EQU 0 00323000 I008P EQU 0 00324000 I015F EQU 0 00325000 I015P EQU 0 00326000 I031F EQU 0 00327000 I031P EQU 0 00328000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00329000 @NM00047 EQU SDWA+512 00330000 SDWAVRA EQU SDWARA+4 00331000 SDWAURAL EQU SDWARA+3 00332000 @NM00046 EQU SDWADPVA 00333000 SDWAEBC EQU SDWADPVA 00334000 SDWAHEX EQU SDWADPVA 00335000 SDWAVRAL EQU SDWARA 00336000 @NM00045 EQU SDWA+396 00337000 SDWACOMP EQU SDWA+392 00338000 SDWARCPL EQU SDWA+364 00339000 @NM00044 EQU SDWADPSA+32 00340000 SDWATO4 EQU SDWADPSL+28 00341000 SDWAFRM4 EQU SDWADPSL+24 00342000 SDWATO3 EQU SDWADPSL+20 00343000 SDWAFRM3 EQU SDWADPSL+16 00344000 SDWATO2 EQU SDWADPSL+12 00345000 SDWAFRM2 EQU SDWADPSL+8 00346000 SDWATO1 EQU SDWADPSL+4 00347000 SDWAFRM1 EQU SDWADPSL 00348000 @NM00043 EQU SDWADDAT+3 00349000 @NM00042 EQU SDWAPDAT 00350000 SDWAUSPL EQU SDWAPDAT 00351000 SDWADPSW EQU SDWAPDAT 00352000 SDWATJPA EQU SDWAPDAT 00353000 SDWATLPA EQU SDWAPDAT 00354000 SDWADREG EQU SDWAPDAT 00355000 SDWADSAH EQU SDWAPDAT 00356000 SDWADSAS EQU SDWAPDAT 00357000 @NM00041 EQU SDWADDAT+1 00358000 @NM00040 EQU SDWASDAT 00359000 SDWAQQS EQU SDWASDAT 00360000 SDWACBS EQU SDWASDAT 00361000 SDWAGTF EQU SDWASDAT 00362000 SDWASWA EQU SDWASDAT 00363000 SDWALSQA EQU SDWASDAT 00364000 SDWASQA EQU SDWASDAT 00365000 SDWANUC EQU SDWASDAT 00366000 @NM00039 EQU SDWADUMP+2 00367000 @NM00038 EQU SDWADPFS 00368000 SDWASLST EQU SDWADPFS 00369000 @NM00037 EQU SDWADPFS 00370000 SDWADLST EQU SDWADPFS 00371000 SDWADPT EQU SDWADPFS 00372000 SDWADPID EQU SDWADUMP 00373000 SDWADPLA EQU SDWA+316 00374000 @NM00036 EQU SDWALKWA+32 00375000 SDWATALW EQU SDWALKWS+28 00376000 SDWATDLW EQU SDWALKWS+24 00377000 SDWATNLW EQU SDWALKWS+20 00378000 SDWAAPLW EQU SDWALKWS+16 00379000 SDWAIPLW EQU SDWALKWS+12 00380000 SDWAILLW EQU SDWALKWS+8 00381000 SDWAIULW EQU SDWALKWS+4 00382000 SDWAICLW EQU SDWALKWS 00383000 @NM00035 EQU SDWAACF4 00384000 SDWAFLLK EQU SDWAACF4 00385000 SDWACMS EQU SDWAACF4 00386000 SDWASALL EQU SDWAACF4 00387000 SDWAASMP EQU SDWAACF4 00388000 SDWATADB EQU SDWAACF4 00389000 SDWATDNB EQU SDWAACF3 00390000 SDWATNCB EQU SDWAACF3 00391000 SDWAIPRG EQU SDWAACF3 00392000 SDWAILCH EQU SDWAACF3 00393000 SDWAIUCB EQU SDWAACF3 00394000 SDWAICAT EQU SDWAACF3 00395000 SDWAOPTM EQU SDWAACF3 00396000 SDWADISP EQU SDWAACF3 00397000 @NM00034 EQU SDWAACF2 00398000 SDWAFREE EQU SDWAACF2 00399000 SDWAUPRG EQU SDWAACF2 00400000 @NM00033 EQU SDWAACF2 00401000 SDWASPIN EQU SDWAACF2 00402000 @NM00032 EQU SDWAACF2 00403000 SDWACPUA EQU SDWA+248 00404000 SDWARECA EQU SDWA+244 00405000 @NM00031 EQU SDWA+239 00406000 @NM00030 EQU SDWAIOFS 00407000 SDWANIOP EQU SDWAIOFS 00408000 SDWANOIO EQU SDWAIOFS 00409000 SDWAIOHT EQU SDWAIOFS 00410000 SDWAIOQR EQU SDWAIOFS 00411000 SDWAFMID EQU SDWA+236 00412000 @NM00029 EQU SDWAERRD 00413000 SDWAMCIV EQU SDWAERRD 00414000 SDWARPIV EQU SDWAERRD 00415000 SDWAMABD EQU SDWAERRD 00416000 SDWACTS EQU SDWAERRD 00417000 SDWASTAE EQU SDWAERRD 00418000 SDWANRBE EQU SDWAERRD 00419000 SDWACLUP EQU SDWAERRD 00420000 @NM00028 EQU SDWAERRC 00421000 SDWAEAS EQU SDWAERRC 00422000 SDWAPERC EQU SDWAERRC 00423000 SDWAIRB EQU SDWAERRC 00424000 SDWASTAI EQU SDWAERRC 00425000 SDWASTAF EQU SDWAERRC 00426000 SDWASRBM EQU SDWAERRB 00427000 SDWALDIS EQU SDWAERRB 00428000 SDWAENRB EQU SDWAERRB 00429000 SDWATYP1 EQU SDWAERRB 00430000 @NM00027 EQU SDWAERRB 00431000 SDWAPGIO EQU SDWAERRA 00432000 SDWATEXC EQU SDWAERRA 00433000 SDWASVCE EQU SDWAERRA 00434000 SDWAABTM EQU SDWAERRA 00435000 SDWASVCD EQU SDWAERRA 00436000 SDWAMCHK EQU SDWAERRA 00437000 SDWATIME EQU SDWAMCH+20 00438000 SDWARFSA EQU SDWAMCH+16 00439000 @NM00026 EQU SDWAMCH+14 00440000 SDWAVEQR EQU SDWARSR2 00441000 SDWAPGFX EQU SDWARSR2 00442000 SDWAFLSQ EQU SDWARSR2 00443000 SDWAFSQA EQU SDWARSR2 00444000 SDWANUCL EQU SDWARSR2 00445000 SDWASPER EQU SDWARSR2 00446000 SDWAINTC EQU SDWARSR2 00447000 SDWAOFLN EQU SDWARSR2 00448000 SDWACHNG EQU SDWARSR1 00449000 SDWAMSER EQU SDWARSR1 00450000 @NM00025 EQU SDWARSR1 00451000 SDWACPID EQU SDWAMCH+10 00452000 SDWATERR EQU SDWAMCHD 00453000 SDWASOFT EQU SDWAMCHD 00454000 SDWAINSF EQU SDWAMCHD 00455000 SDWAACR EQU SDWAMCHD 00456000 SDWASCK EQU SDWAMCHD 00457000 SDWAPSWU EQU SDWAMCHD 00458000 SDWAREGU EQU SDWAMCHD 00459000 SDWASKYF EQU SDWAMCHD 00460000 @NM00024 EQU SDWAMCHS 00461000 SDWARSRF EQU SDWAMCHS 00462000 SDWARSRC EQU SDWAMCHS 00463000 SDWAINVP EQU SDWAMCHS 00464000 SDWATSVL EQU SDWAMCHS 00465000 SDWARCDF EQU SDWAMCHS 00466000 SDWASRVL EQU SDWAMCHS 00467000 SDWASCKE EQU SDWASTCK+4 00468000 SDWASCKB EQU SDWASTCK 00469000 SDWALNTH EQU SDWAIDNT+1 00470000 SDWASPID EQU SDWAIDNT 00471000 SDWASR15 EQU SDWASRSV+60 00472000 SDWASR14 EQU SDWASRSV+56 00473000 SDWASR13 EQU SDWASRSV+52 00474000 SDWASR12 EQU SDWASRSV+48 00475000 SDWASR11 EQU SDWASRSV+44 00476000 SDWASR10 EQU SDWASRSV+40 00477000 SDWASR09 EQU SDWASRSV+36 00478000 SDWASR08 EQU SDWASRSV+32 00479000 SDWASR07 EQU SDWASRSV+28 00480000 SDWASR06 EQU SDWASRSV+24 00481000 SDWASR05 EQU SDWASRSV+20 00482000 SDWASR04 EQU SDWASRSV+16 00483000 SDWASR03 EQU SDWASRSV+12 00484000 SDWASR02 EQU SDWASRSV+8 00485000 SDWASR01 EQU SDWASRSV+4 00486000 SDWASR00 EQU SDWASRSV 00487000 SDWATRN2 EQU SDWAAEC2+4 00488000 SDWAIPC2 EQU SDWAICD2 00489000 SDWAIMC2 EQU SDWAICD2 00490000 SDWAIPR2 EQU SDWAICD2 00491000 @NM00023 EQU SDWAINC2 00492000 @NM00022 EQU SDWAILC2 00493000 SDWAIL2 EQU SDWAILC2 00494000 @NM00021 EQU SDWAILC2 00495000 @NM00020 EQU SDWAAEC2 00496000 SDWAADD2 EQU SDWANXT2+1 00497000 @NM00019 EQU SDWANXT2 00498000 @NM00018 EQU SDWAEC2+3 00499000 SDWASGN2 EQU SDWAINT2 00500000 SDWAEXP2 EQU SDWAINT2 00501000 SDWADEC2 EQU SDWAINT2 00502000 SDWAFPO2 EQU SDWAINT2 00503000 SDWACC2 EQU SDWAINT2 00504000 @NM00017 EQU SDWAINT2 00505000 SDWAPGM2 EQU SDWAMWP2 00506000 SDWAWAT2 EQU SDWAMWP2 00507000 SDWAMCK2 EQU SDWAMWP2 00508000 SDWAECT2 EQU SDWAMWP2 00509000 SDWAKEY2 EQU SDWAMWP2 00510000 SDWAEXT2 EQU SDWAEMK2 00511000 SDWAIO2 EQU SDWAEMK2 00512000 SDWATRM2 EQU SDWAEMK2 00513000 SDWAEAM2 EQU SDWAEMK2 00514000 @NM00016 EQU SDWAEMK2 00515000 SDWAPER2 EQU SDWAEMK2 00516000 @NM00015 EQU SDWAEMK2 00517000 SDWATRAN EQU SDWAAEC1+4 00518000 SDWAIPC1 EQU SDWAICD1 00519000 SDWAIMC1 EQU SDWAICD1 00520000 SDWAIPR1 EQU SDWAICD1 00521000 @NM00014 EQU SDWAINC1 00522000 @NM00013 EQU SDWAILC1 00523000 SDWAIL1 EQU SDWAILC1 00524000 @NM00012 EQU SDWAILC1 00525000 @NM00011 EQU SDWAAEC1 00526000 SDWAADD1 EQU SDWANXT1+1 00527000 @NM00010 EQU SDWANXT1 00528000 @NM00009 EQU SDWAEC1+3 00529000 SDWASGN1 EQU SDWAINT1 00530000 SDWAEXP1 EQU SDWAINT1 00531000 SDWADEC1 EQU SDWAINT1 00532000 SDWAFPO1 EQU SDWAINT1 00533000 SDWACC1 EQU SDWAINT1 00534000 @NM00008 EQU SDWAINT1 00535000 SDWAPGM1 EQU SDWAMWP1 00536000 SDWAWAT1 EQU SDWAMWP1 00537000 SDWAMCK1 EQU SDWAMWP1 00538000 SDWAECT1 EQU SDWAMWP1 00539000 SDWAKEY1 EQU SDWAMWP1 00540000 SDWAEXT1 EQU SDWAEMK1 00541000 SDWAIO1 EQU SDWAEMK1 00542000 SDWATRM1 EQU SDWAEMK1 00543000 SDWAEAM1 EQU SDWAEMK1 00544000 @NM00007 EQU SDWAEMK1 00545000 SDWAPER1 EQU SDWAEMK1 00546000 @NM00006 EQU SDWAEMK1 00547000 SDWAIOBR EQU SDWA+100 00548000 SDWAEPA EQU SDWA+96 00549000 @NM00005 EQU SDWANAME+4 00550000 SDWARBAD EQU SDWANAME 00551000 SDWAGR15 EQU SDWAGRSV+60 00552000 SDWAGR14 EQU SDWAGRSV+56 00553000 SDWAGR13 EQU SDWAGRSV+52 00554000 SDWAGR12 EQU SDWAGRSV+48 00555000 SDWAGR11 EQU SDWAGRSV+44 00556000 SDWAGR10 EQU SDWAGRSV+40 00557000 SDWAGR09 EQU SDWAGRSV+36 00558000 SDWAGR08 EQU SDWAGRSV+32 00559000 SDWAGR07 EQU SDWAGRSV+28 00560000 SDWAGR06 EQU SDWAGRSV+24 00561000 SDWAGR05 EQU SDWAGRSV+20 00562000 SDWAGR04 EQU SDWAGRSV+16 00563000 SDWAGR03 EQU SDWAGRSV+12 00564000 SDWAGR02 EQU SDWAGRSV+8 00565000 SDWAGR01 EQU SDWAGRSV+4 00566000 SDWAGR00 EQU SDWAGRSV 00567000 SDWANXTP EQU SDWACTL2+5 00568000 SDWASGP EQU SDWAPMKP 00569000 SDWAEUP EQU SDWAPMKP 00570000 SDWADOP EQU SDWAPMKP 00571000 SDWAFPP EQU SDWAPMKP 00572000 SDWACCP EQU SDWAPMKP 00573000 SDWAILP EQU SDWAPMKP 00574000 SDWAINTP EQU SDWACTL2+2 00575000 SDWASPVP EQU SDWAMWPP 00576000 SDWAWATP EQU SDWAMWPP 00577000 SDWAMCKP EQU SDWAMWPP 00578000 @NM00004 EQU SDWAMWPP 00579000 SDWAKEYP EQU SDWAMWPP 00580000 SDWAEXTP EQU SDWACMKP 00581000 SDWAIOP EQU SDWACMKP 00582000 SDWANXTA EQU SDWACTL1+5 00583000 SDWASGA EQU SDWAPMKA 00584000 SDWAEUA EQU SDWAPMKA 00585000 SDWADOA EQU SDWAPMKA 00586000 SDWAFPA EQU SDWAPMKA 00587000 SDWACCA EQU SDWAPMKA 00588000 SDWAILA EQU SDWAPMKA 00589000 SDWAINTA EQU SDWACTL1+2 00590000 SDWASPVA EQU SDWAMWPA 00591000 SDWAWATA EQU SDWAMWPA 00592000 SDWAMCKA EQU SDWAMWPA 00593000 @NM00003 EQU SDWAMWPA 00594000 SDWAKEYA EQU SDWAMWPA 00595000 SDWAEXTA EQU SDWACMKA 00596000 SDWAIOA EQU SDWACMKA 00597000 SDWACMPC EQU SDWAABCC+1 00598000 @NM00002 EQU SDWACMPF 00599000 SDWASTCC EQU SDWACMPF 00600000 @NM00001 EQU SDWACMPF 00601000 SDWASTEP EQU SDWACMPF 00602000 SDWAREQ EQU SDWACMPF 00603000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00604000 @ENDDATA EQU * 00605000 END IEFISEXR 00606000