TITLE ' /* IRBMFSDE MFSTART ESTAE RECOVERY ROUTINE *00001000 ' 00002000 IRBMFSDE CSECT 00003000 BALR @15,0 00004000 USING *,@15 00005000 LA @12,12 CONSTANT PRESENT IF NO SDWA 00006000 CR @00,@12 DOES SDWA EXIST. 00007000 BNE SD0001 YES, CONINUE WITH ITS USAGE 00008000 * NO, TERMINATE ESTAE PROCESSING AS 00009000 * FOLLOWS. 00010000 SR @15,@15 ESTAE RETURN CODE 0 MEANS 00011000 * 'CONTINUE WITH TERMINATION'. 00012000 BR @14 RETURN TO CALLER. 00013000 SD0001 DS 0H 00014000 DROP @15 00015000 IRBMFSDE CSECT , 0002 00016000 @PROLOG STM @14,@12,12(@13) 0002 00017000 BALR @12,0 0002 00018000 @PSTART DS 0H 0002 00019000 USING @PSTART,@12 0002 00020000 L @00,@SIZDATD 0002 00021000 GETMAIN R,LV=(0) 00022000 LR @11,@01 0002 00023000 USING @DATD,@11 0002 00024000 ST @13,@SA00001+4 0002 00025000 LM @00,@01,20(@13) 0002 00026000 ST @11,8(,@13) 0002 00027000 LR @13,@11 0002 00028000 * SDWAPTR=GPR01P; 0009 00029000 LR SDWAPTR,GPR01P 0009 00030000 * RFY 0010 00031000 * (GPR01P)UNRSTD; 0010 00032000 * 0010 00033000 */* FUNCTIONAL CODE */ 00034000 * 0011 00035000 * /*****************************************************************/ 00036000 * /* */ 00037000 * /* PERFORM SYSTEM TERMINATION */ 00038000 * /* */ 00039000 * /*****************************************************************/ 00040000 * 0011 00041000 * CALL IRBMFTMA; 0011 00042000 * 0011 00043000 L @15,@CV00417 0011 00044000 BALR @14,@15 0011 00045000 * /*****************************************************************/ 00046000 * /* */ 00047000 * /* CONTINUE RECOVERY,WITH TERMINATION MACDATE Y-2 73018 */ 00048000 * /* */ 00049000 * /*****************************************************************/ 00050000 * 0012 00051000 * RESPECIFY 0012 00052000 * (GPR00P, 0012 00053000 * GPR01P, 0012 00054000 * GPR14P, 0012 00055000 * GPR15P)RESTRICTED; 0012 00056000 * GPR01P=SDWAPTR; /* BASE REG TO SET SDWA VIA SETRP*/ 00057000 LR GPR01P,SDWAPTR 0013 00058000 * DO; /* SETRP RC(0) DUMP(YES) */ 00059000 * RESPECIFY 0015 00060000 * (GPR00P, 0015 00061000 * GPR01P, 0015 00062000 * GPR14P, 0015 00063000 * GPR15P)RSTD; 0015 00064000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00065000 MVI SDWARCDE(GPR01P),X'00' 0016 00066000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00067000 OI SDWAREQ(GPR01P),B'10000000' 0017 00068000 * RESPECIFY 0018 00069000 * (GPR00P, 0018 00070000 * GPR01P, 0018 00071000 * GPR14P, 0018 00072000 * GPR15P)UNRSTD; 0018 00073000 * END; 0019 00074000 * 0019 00075000 * /*****************************************************************/ 00076000 * /* */ 00077000 * /* MACDATE Y-2 73018 */ 00078000 * /* */ 00079000 * /*****************************************************************/ 00080000 * 0020 00081000 * RESPECIFY 0020 00082000 * (GPR00P, 0020 00083000 * GPR01P, 0020 00084000 * GPR14P, 0020 00085000 * GPR15P)UNRESTRICTED; 0020 00086000 * RETURN; /* RETURNS AFTER EPILOG. */ 00087000 @EL00001 L @13,4(,@13) 0021 00088000 @EF00001 L @00,@SIZDATD 0021 00089000 LR @01,@11 0021 00090000 FREEMAIN R,LV=(0),A=(1) 00091000 @ER00001 LM @14,@12,12(@13) 0021 00092000 BR @14 0021 00093000 * END IRBMFSDE 0022 00094000 * 0022 00095000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00096000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00097000 * 0022 00098000 * ; 0022 00099000 @DATA DS 0H 00100000 @DATD DSECT 00101000 DS 0F 00102000 @SA00001 DS 18F 00103000 IRBMFSDE CSECT 00104000 DS 0F 00105000 @DATD DSECT 00106000 DS 0D 00107000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00108000 @ENDDATD EQU * 00109000 IRBMFSDE CSECT 00110000 DS 0F 00111000 @SIZDATD DC AL1(0) 00112000 DC AL3(@ENDDATD-@DATD) 00113000 @CV00417 DC V(IRBMFTMA) 00114000 DS 0D 00115000 SDPATCH DS CL50 00116000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00117000 @01 EQU 01 00118000 @02 EQU 02 00119000 @03 EQU 03 00120000 @04 EQU 04 00121000 @05 EQU 05 00122000 @06 EQU 06 00123000 @07 EQU 07 00124000 @08 EQU 08 00125000 @09 EQU 09 00126000 @10 EQU 10 00127000 @11 EQU 11 00128000 @12 EQU 12 00129000 @13 EQU 13 00130000 @14 EQU 14 00131000 @15 EQU 15 00132000 SDWAPTR EQU @02 00133000 GPR00P EQU @00 00134000 GPR01P EQU @01 00135000 GPR14P EQU @14 00136000 GPR15P EQU @15 00137000 GPR00F EQU @00 00138000 GPR01F EQU @01 00139000 GPR14F EQU @14 00140000 GPR15F EQU @15 00141000 SDWA EQU 0 00142000 SDWAFIOB EQU SDWA+4 00143000 SDWAABCC EQU SDWAFIOB 00144000 SDWACMPF EQU SDWAABCC 00145000 SDWAREQ EQU SDWACMPF 00146000 SDWACTL1 EQU SDWA+8 00147000 SDWACMKA EQU SDWACTL1 00148000 SDWAMWPA EQU SDWACTL1+1 00149000 SDWAPMKA EQU SDWACTL1+4 00150000 SDWACTL2 EQU SDWA+16 00151000 SDWACMKP EQU SDWACTL2 00152000 SDWAMWPP EQU SDWACTL2+1 00153000 SDWAPMKP EQU SDWACTL2+4 00154000 SDWAGRSV EQU SDWA+24 00155000 SDWANAME EQU SDWA+88 00156000 SDWAEC1 EQU SDWA+104 00157000 SDWAEMK1 EQU SDWAEC1 00158000 SDWAMWP1 EQU SDWAEC1+1 00159000 SDWAINT1 EQU SDWAEC1+2 00160000 SDWANXT1 EQU SDWAEC1+4 00161000 SDWAAEC1 EQU SDWA+112 00162000 SDWAILC1 EQU SDWAAEC1+1 00163000 SDWAINC1 EQU SDWAAEC1+2 00164000 SDWAICD1 EQU SDWAINC1+1 00165000 SDWAEC2 EQU SDWA+120 00166000 SDWAEMK2 EQU SDWAEC2 00167000 SDWAMWP2 EQU SDWAEC2+1 00168000 SDWAINT2 EQU SDWAEC2+2 00169000 SDWANXT2 EQU SDWAEC2+4 00170000 SDWAAEC2 EQU SDWA+128 00171000 SDWAILC2 EQU SDWAAEC2+1 00172000 SDWAINC2 EQU SDWAAEC2+2 00173000 SDWAICD2 EQU SDWAINC2+1 00174000 SDWASRSV EQU SDWA+136 00175000 SDWAIDNT EQU SDWA+200 00176000 SDWAMCH EQU SDWA+204 00177000 SDWASTCK EQU SDWAMCH 00178000 SDWAMCHI EQU SDWAMCH+8 00179000 SDWAMCHS EQU SDWAMCHI 00180000 SDWAMCHD EQU SDWAMCHI+1 00181000 SDWARSR1 EQU SDWAMCH+12 00182000 SDWARSR2 EQU SDWAMCH+13 00183000 SDWAFLGS EQU SDWA+232 00184000 SDWAERRA EQU SDWAFLGS 00185000 SDWAERRB EQU SDWAFLGS+1 00186000 SDWAERRC EQU SDWAFLGS+2 00187000 SDWAERRD EQU SDWAFLGS+3 00188000 SDWAIOFS EQU SDWA+238 00189000 SDWACPUA EQU SDWA+248 00190000 SDWAPARQ EQU SDWA+252 00191000 SDWARCDE EQU SDWAPARQ 00192000 SDWAACF2 EQU SDWAPARQ+1 00193000 SDWAACF3 EQU SDWAPARQ+2 00194000 SDWAACF4 EQU SDWAPARQ+3 00195000 SDWALKWA EQU SDWA+256 00196000 SDWALKWS EQU SDWALKWA 00197000 SDWARECP EQU SDWA+292 00198000 SDWASNPA EQU SDWA+320 00199000 SDWADUMP EQU SDWASNPA 00200000 SDWADPFS EQU SDWADUMP+1 00201000 SDWADDAT EQU SDWASNPA+4 00202000 SDWASDAT EQU SDWADDAT 00203000 SDWAPDAT EQU SDWADDAT+2 00204000 SDWADPSA EQU SDWA+328 00205000 SDWADPSL EQU SDWADPSA 00206000 SDWARA EQU SDWA+400 00207000 SDWADPVA EQU SDWARA+2 00208000 IKEBC EQU 0 00209000 IKEBF15 EQU 0 00210000 IKEBF31 EQU 0 00211000 IKEBP15 EQU 0 00212000 IKEBP31 EQU 0 00213000 IKEBP8 EQU 0 00214000 * START UNREFERENCED COMPONENTS 00215000 @NM00048 EQU SDWA+512 00216000 SDWAVRA EQU SDWARA+4 00217000 SDWAURAL EQU SDWARA+3 00218000 @NM00047 EQU SDWADPVA 00219000 SDWAEBC EQU SDWADPVA 00220000 SDWAHEX EQU SDWADPVA 00221000 SDWAVRAL EQU SDWARA 00222000 @NM00046 EQU SDWA+396 00223000 SDWACOMP EQU SDWA+392 00224000 SDWARCPL EQU SDWA+364 00225000 @NM00045 EQU SDWADPSA+32 00226000 SDWATO4 EQU SDWADPSL+28 00227000 SDWAFRM4 EQU SDWADPSL+24 00228000 SDWATO3 EQU SDWADPSL+20 00229000 SDWAFRM3 EQU SDWADPSL+16 00230000 SDWATO2 EQU SDWADPSL+12 00231000 SDWAFRM2 EQU SDWADPSL+8 00232000 SDWATO1 EQU SDWADPSL+4 00233000 SDWAFRM1 EQU SDWADPSL 00234000 @NM00044 EQU SDWADDAT+3 00235000 @NM00043 EQU SDWAPDAT 00236000 SDWAUSPL EQU SDWAPDAT 00237000 SDWADPSW EQU SDWAPDAT 00238000 SDWATJPA EQU SDWAPDAT 00239000 SDWATLPA EQU SDWAPDAT 00240000 SDWADREG EQU SDWAPDAT 00241000 SDWADSAH EQU SDWAPDAT 00242000 SDWADSAS EQU SDWAPDAT 00243000 @NM00042 EQU SDWADDAT+1 00244000 @NM00041 EQU SDWASDAT 00245000 SDWAQQS EQU SDWASDAT 00246000 SDWACBS EQU SDWASDAT 00247000 SDWAGTF EQU SDWASDAT 00248000 SDWASWA EQU SDWASDAT 00249000 SDWALSQA EQU SDWASDAT 00250000 SDWASQA EQU SDWASDAT 00251000 SDWANUC EQU SDWASDAT 00252000 @NM00040 EQU SDWADUMP+2 00253000 @NM00039 EQU SDWADPFS 00254000 SDWASLST EQU SDWADPFS 00255000 @NM00038 EQU SDWADPFS 00256000 SDWADLST EQU SDWADPFS 00257000 SDWADPT EQU SDWADPFS 00258000 SDWADPID EQU SDWADUMP 00259000 SDWADPLA EQU SDWA+316 00260000 SDWAREXN EQU SDWARECP+16 00261000 SDWACSCT EQU SDWARECP+8 00262000 SDWAMODN EQU SDWARECP 00263000 @NM00037 EQU SDWALKWA+32 00264000 SDWATALW EQU SDWALKWS+28 00265000 SDWATDLW EQU SDWALKWS+24 00266000 SDWATNLW EQU SDWALKWS+20 00267000 SDWAAPLW EQU SDWALKWS+16 00268000 SDWAIPLW EQU SDWALKWS+12 00269000 SDWAILLW EQU SDWALKWS+8 00270000 SDWAIULW EQU SDWALKWS+4 00271000 SDWAICLW EQU SDWALKWS 00272000 SDWAFLLK EQU SDWAACF4 00273000 SDWACMS EQU SDWAACF4 00274000 SDWAOPTM EQU SDWAACF4 00275000 SDWATADB EQU SDWAACF4 00276000 SDWATDNB EQU SDWAACF4 00277000 SDWATNCB EQU SDWAACF4 00278000 SDWAILCH EQU SDWAACF4 00279000 SDWAIUCB EQU SDWAACF4 00280000 SDWAICAT EQU SDWAACF3 00281000 SDWAIPRG EQU SDWAACF3 00282000 SDWASALL EQU SDWAACF3 00283000 SDWAASMP EQU SDWAACF3 00284000 SDWADISP EQU SDWAACF3 00285000 @NM00036 EQU SDWAACF3 00286000 @NM00035 EQU SDWAACF2 00287000 SDWAFREE EQU SDWAACF2 00288000 SDWAUPRG EQU SDWAACF2 00289000 @NM00034 EQU SDWAACF2 00290000 SDWASPIN EQU SDWAACF2 00291000 @NM00033 EQU SDWAACF2 00292000 SDWARCRD EQU SDWAACF2 00293000 SDWALCPU EQU SDWACPUA+2 00294000 @NM00032 EQU SDWACPUA 00295000 SDWARECA EQU SDWA+244 00296000 SDWARTYA EQU SDWA+240 00297000 @NM00031 EQU SDWA+239 00298000 @NM00030 EQU SDWAIOFS 00299000 SDWANIOP EQU SDWAIOFS 00300000 SDWANOIO EQU SDWAIOFS 00301000 SDWAIOHT EQU SDWAIOFS 00302000 SDWAIOQR EQU SDWAIOFS 00303000 SDWAFMID EQU SDWA+236 00304000 @NM00029 EQU SDWAERRD 00305000 SDWAMCIV EQU SDWAERRD 00306000 SDWARPIV EQU SDWAERRD 00307000 SDWAMABD EQU SDWAERRD 00308000 SDWACTS EQU SDWAERRD 00309000 SDWASTAE EQU SDWAERRD 00310000 SDWANRBE EQU SDWAERRD 00311000 SDWACLUP EQU SDWAERRD 00312000 @NM00028 EQU SDWAERRC 00313000 SDWAEAS EQU SDWAERRC 00314000 SDWAPERC EQU SDWAERRC 00315000 SDWAIRB EQU SDWAERRC 00316000 SDWASTAI EQU SDWAERRC 00317000 SDWASTAF EQU SDWAERRC 00318000 SDWASRBM EQU SDWAERRB 00319000 SDWALDIS EQU SDWAERRB 00320000 SDWAENRB EQU SDWAERRB 00321000 SDWATYP1 EQU SDWAERRB 00322000 @NM00027 EQU SDWAERRB 00323000 SDWAPGIO EQU SDWAERRA 00324000 SDWATEXC EQU SDWAERRA 00325000 SDWASVCE EQU SDWAERRA 00326000 SDWAABTM EQU SDWAERRA 00327000 SDWASVCD EQU SDWAERRA 00328000 SDWARKEY EQU SDWAERRA 00329000 SDWAPCHK EQU SDWAERRA 00330000 SDWAMCHK EQU SDWAERRA 00331000 SDWATIME EQU SDWAMCH+20 00332000 SDWARFSA EQU SDWAMCH+16 00333000 @NM00026 EQU SDWAMCH+14 00334000 SDWAVEQR EQU SDWARSR2 00335000 SDWAPGFX EQU SDWARSR2 00336000 SDWAFLSQ EQU SDWARSR2 00337000 SDWAFSQA EQU SDWARSR2 00338000 SDWANUCL EQU SDWARSR2 00339000 SDWASPER EQU SDWARSR2 00340000 SDWAINTC EQU SDWARSR2 00341000 SDWAOFLN EQU SDWARSR2 00342000 SDWACHNG EQU SDWARSR1 00343000 SDWAMSER EQU SDWARSR1 00344000 @NM00025 EQU SDWARSR1 00345000 SDWACPID EQU SDWAMCH+10 00346000 SDWATERR EQU SDWAMCHD 00347000 SDWAFPRX EQU SDWAMCHD 00348000 SDWAINSF EQU SDWAMCHD 00349000 SDWAACR EQU SDWAMCHD 00350000 SDWASCK EQU SDWAMCHD 00351000 SDWAPSWU EQU SDWAMCHD 00352000 SDWAREGU EQU SDWAMCHD 00353000 SDWASKYF EQU SDWAMCHD 00354000 @NM00024 EQU SDWAMCHS 00355000 SDWARSRF EQU SDWAMCHS 00356000 SDWARSRC EQU SDWAMCHS 00357000 SDWAINVP EQU SDWAMCHS 00358000 SDWATSVL EQU SDWAMCHS 00359000 SDWARCDF EQU SDWAMCHS 00360000 SDWASRVL EQU SDWAMCHS 00361000 SDWASCKE EQU SDWASTCK+4 00362000 SDWASCKB EQU SDWASTCK 00363000 SDWALNTH EQU SDWAIDNT+1 00364000 SDWASPID EQU SDWAIDNT 00365000 SDWASR15 EQU SDWASRSV+60 00366000 SDWASR14 EQU SDWASRSV+56 00367000 SDWASR13 EQU SDWASRSV+52 00368000 SDWASR12 EQU SDWASRSV+48 00369000 SDWASR11 EQU SDWASRSV+44 00370000 SDWASR10 EQU SDWASRSV+40 00371000 SDWASR09 EQU SDWASRSV+36 00372000 SDWASR08 EQU SDWASRSV+32 00373000 SDWASR07 EQU SDWASRSV+28 00374000 SDWASR06 EQU SDWASRSV+24 00375000 SDWASR05 EQU SDWASRSV+20 00376000 SDWASR04 EQU SDWASRSV+16 00377000 SDWASR03 EQU SDWASRSV+12 00378000 SDWASR02 EQU SDWASRSV+8 00379000 SDWASR01 EQU SDWASRSV+4 00380000 SDWASR00 EQU SDWASRSV 00381000 SDWATRN2 EQU SDWAAEC2+4 00382000 SDWAIPC2 EQU SDWAICD2 00383000 SDWAIMC2 EQU SDWAICD2 00384000 SDWAIPR2 EQU SDWAICD2 00385000 @NM00023 EQU SDWAINC2 00386000 @NM00022 EQU SDWAILC2 00387000 SDWAIL2 EQU SDWAILC2 00388000 @NM00021 EQU SDWAILC2 00389000 @NM00020 EQU SDWAAEC2 00390000 SDWAADD2 EQU SDWANXT2+1 00391000 @NM00019 EQU SDWANXT2 00392000 @NM00018 EQU SDWAEC2+3 00393000 SDWASGN2 EQU SDWAINT2 00394000 SDWAEXP2 EQU SDWAINT2 00395000 SDWADEC2 EQU SDWAINT2 00396000 SDWAFPO2 EQU SDWAINT2 00397000 SDWACC2 EQU SDWAINT2 00398000 @NM00017 EQU SDWAINT2 00399000 SDWAPGM2 EQU SDWAMWP2 00400000 SDWAWAT2 EQU SDWAMWP2 00401000 SDWAMCK2 EQU SDWAMWP2 00402000 SDWAECT2 EQU SDWAMWP2 00403000 SDWAKEY2 EQU SDWAMWP2 00404000 SDWAEXT2 EQU SDWAEMK2 00405000 SDWAIO2 EQU SDWAEMK2 00406000 SDWATRM2 EQU SDWAEMK2 00407000 @NM00016 EQU SDWAEMK2 00408000 SDWAPER2 EQU SDWAEMK2 00409000 @NM00015 EQU SDWAEMK2 00410000 SDWATRAN EQU SDWAAEC1+4 00411000 SDWAIPC1 EQU SDWAICD1 00412000 SDWAIMC1 EQU SDWAICD1 00413000 SDWAIPR1 EQU SDWAICD1 00414000 @NM00014 EQU SDWAINC1 00415000 @NM00013 EQU SDWAILC1 00416000 SDWAIL1 EQU SDWAILC1 00417000 @NM00012 EQU SDWAILC1 00418000 @NM00011 EQU SDWAAEC1 00419000 SDWAADD1 EQU SDWANXT1+1 00420000 @NM00010 EQU SDWANXT1 00421000 @NM00009 EQU SDWAEC1+3 00422000 SDWASGN1 EQU SDWAINT1 00423000 SDWAEXP1 EQU SDWAINT1 00424000 SDWADEC1 EQU SDWAINT1 00425000 SDWAFPO1 EQU SDWAINT1 00426000 SDWACC1 EQU SDWAINT1 00427000 @NM00008 EQU SDWAINT1 00428000 SDWAPGM1 EQU SDWAMWP1 00429000 SDWAWAT1 EQU SDWAMWP1 00430000 SDWAMCK1 EQU SDWAMWP1 00431000 SDWAECT1 EQU SDWAMWP1 00432000 SDWAKEY1 EQU SDWAMWP1 00433000 SDWAEXT1 EQU SDWAEMK1 00434000 SDWAIO1 EQU SDWAEMK1 00435000 SDWATRM1 EQU SDWAEMK1 00436000 @NM00007 EQU SDWAEMK1 00437000 SDWAPER1 EQU SDWAEMK1 00438000 @NM00006 EQU SDWAEMK1 00439000 SDWAIOBR EQU SDWA+100 00440000 SDWAEPA EQU SDWA+96 00441000 @NM00005 EQU SDWANAME+4 00442000 SDWARBAD EQU SDWANAME 00443000 SDWAGR15 EQU SDWAGRSV+60 00444000 SDWAGR14 EQU SDWAGRSV+56 00445000 SDWAGR13 EQU SDWAGRSV+52 00446000 SDWAGR12 EQU SDWAGRSV+48 00447000 SDWAGR11 EQU SDWAGRSV+44 00448000 SDWAGR10 EQU SDWAGRSV+40 00449000 SDWAGR09 EQU SDWAGRSV+36 00450000 SDWAGR08 EQU SDWAGRSV+32 00451000 SDWAGR07 EQU SDWAGRSV+28 00452000 SDWAGR06 EQU SDWAGRSV+24 00453000 SDWAGR05 EQU SDWAGRSV+20 00454000 SDWAGR04 EQU SDWAGRSV+16 00455000 SDWAGR03 EQU SDWAGRSV+12 00456000 SDWAGR02 EQU SDWAGRSV+8 00457000 SDWAGR01 EQU SDWAGRSV+4 00458000 SDWAGR00 EQU SDWAGRSV 00459000 SDWANXTP EQU SDWACTL2+5 00460000 SDWASGP EQU SDWAPMKP 00461000 SDWAEUP EQU SDWAPMKP 00462000 SDWADOP EQU SDWAPMKP 00463000 SDWAFPP EQU SDWAPMKP 00464000 SDWACCP EQU SDWAPMKP 00465000 SDWAILP EQU SDWAPMKP 00466000 SDWAINTP EQU SDWACTL2+2 00467000 SDWASPVP EQU SDWAMWPP 00468000 SDWAWATP EQU SDWAMWPP 00469000 SDWAMCKP EQU SDWAMWPP 00470000 @NM00004 EQU SDWAMWPP 00471000 SDWAKEYP EQU SDWAMWPP 00472000 SDWAEXTP EQU SDWACMKP 00473000 SDWAIOP EQU SDWACMKP 00474000 SDWANXTA EQU SDWACTL1+5 00475000 SDWASGA EQU SDWAPMKA 00476000 SDWAEUA EQU SDWAPMKA 00477000 SDWADOA EQU SDWAPMKA 00478000 SDWAFPA EQU SDWAPMKA 00479000 SDWACCA EQU SDWAPMKA 00480000 SDWAILA EQU SDWAPMKA 00481000 SDWAINTA EQU SDWACTL1+2 00482000 SDWASPVA EQU SDWAMWPA 00483000 SDWAWATA EQU SDWAMWPA 00484000 SDWAMCKA EQU SDWAMWPA 00485000 @NM00003 EQU SDWAMWPA 00486000 SDWAKEYA EQU SDWAMWPA 00487000 SDWAEXTA EQU SDWACMKA 00488000 SDWAIOA EQU SDWACMKA 00489000 SDWACMPC EQU SDWAABCC+1 00490000 @NM00002 EQU SDWACMPF 00491000 SDWASTCC EQU SDWACMPF 00492000 @NM00001 EQU SDWACMPF 00493000 SDWASTEP EQU SDWACMPF 00494000 SDWAPARM EQU SDWA 00495000 * END UNREFERENCED COMPONENTS 00496000 @ENDDATA EQU * 00497000 END IRBMFSDE,(C'PL/S-II',0502,74087) 00498000