TITLE ' /* IRBMFDEA DATA CONTROL ESTAE RECOVERY *00001000 ' 00002000 IRBMFDEA CSECT 00003000 BALR @15,0 00004000 USING *,@15 00005000 LA @12,12 CONSTANT TO TEST SDWA EXISTENCE 00006000 CR @00,@12 DOES SDWA EXIST. 00007000 BNE DE0001 YES,CONTINUE WITH ITS USAGE 00008000 * NO,TERMINATE ESTAE PROCESSING AS 00009000 * FOLLOWS (UNDOCUMENTED) PER PK. 00010000 SR @15,@15 ESTAE RETURN CODE 0 MEANS 00011000 * 'CONTINUE WITH TERMINATION'. 00012000 BR @14 RETURN TO CALLER. 00013000 DE0001 DS 0H 00014000 DROP @15 00015000 IRBMFDEA 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; /* SAVE SDWA LOCATION */ 00029000 LR SDWAPTR,GPR01P 0013 00030000 * RFY 0014 00031000 * (GPR01P)UNRSTD; 0014 00032000 * 0014 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* CANCEL ANY EXISTING TIMER INTERVAL FOR DATA CONTROL (IRBMFDTA */ 00036000 * /* MACDATE Y-2 73018 */ 00037000 * /* */ 00038000 * /*****************************************************************/ 00039000 * 0015 00040000 * RESPECIFY 0015 00041000 * (GPR00P, 0015 00042000 * GPR01P, 0015 00043000 * GPR14P, 0015 00044000 * GPR15P)RESTRICTED; 0015 00045000 * GEN(TTIMER CANCEL); 0016 00046000 * 0016 00047000 TTIMER CANCEL 00048000 * /*****************************************************************/ 00049000 * /* */ 00050000 * /* MACDATE Y-2 73018 */ 00051000 * /* */ 00052000 * /*****************************************************************/ 00053000 * 0017 00054000 * RESPECIFY 0017 00055000 * (GPR00P, 0017 00056000 * GPR01P, 0017 00057000 * GPR14P, 0017 00058000 * GPR15P)UNRESTRICTED; 0017 00059000 * 0017 00060000 * /*****************************************************************/ 00061000 * /* */ 00062000 * /* INSURE ONLY ONE REINSTATEMENT ATTEMPT EXCLUSIVE OR */ 00063000 * /* REINSTATEMENT FLAG */ 00064000 * /* */ 00065000 * /*****************************************************************/ 00066000 * 0018 00067000 * IF MFPCREIN='0'B THEN 0018 00068000 L @10,SDWAPARM(,SDWAPTR) 0018 00069000 TM MFPCREIN(@10),B'00000001' 0018 00070000 BNZ @RF00018 0018 00071000 * MFPCREIN='1'B; 0019 00072000 OI MFPCREIN(@10),B'00000001' 0019 00073000 * ELSE 0020 00074000 * MFPCREIN='0'B; 0020 00075000 * 0020 00076000 B @RC00018 0020 00077000 @RF00018 L @10,SDWAPARM(,SDWAPTR) 0020 00078000 NI MFPCREIN(@10),B'11111110' 0020 00079000 * /*****************************************************************/ 00080000 * /* */ 00081000 * /* REMOVE ALL SUBTASKS: 1. DETACH IT. 2. WAIT FOR SUBTASK */ 00082000 * /* TERMINATION. 3. DEQUEUE AND FREE MFSEL, (SUBTASK QUEUE */ 00083000 * /* ELEMENT). LOOK AT ALL SUBTASKS */ 00084000 * /* */ 00085000 * /*****************************************************************/ 00086000 * 0021 00087000 * DESELPTR=MFSQFRST; /* GET FIRST SUBTASK QUEUE 0021 00088000 * ELEMENT FROM THE QUEUE 0021 00089000 * DIRECTOR */ 00090000 @RC00018 L @10,SDWAPARM(,SDWAPTR) 0021 00091000 L @10,MFPCSQU(,@10) 0021 00092000 L DESELPTR,MFSQFRST(,@10) 0021 00093000 * DESELLST=ADDR(MFSQFRST)-MFSELINK;/* SET LAST ELEMENT POINTER FOR 00094000 * DEQUEUEING */ 00095000 LA DESELLST,MFSQFRST(,@10) 0022 00096000 * DO WHILE(DESELPTR^=0); /* FOR ALL EXISTING SUBTASKS, */ 00097000 * 0023 00098000 B @DE00023 0023 00099000 @DL00023 DS 0H 0024 00100000 * /***************************************************************/ 00101000 * /* */ 00102000 * /* DETACH SUBTASK */ 00103000 * /* */ 00104000 * /***************************************************************/ 00105000 * 0024 00106000 * DETEMPAL=MFSESTAD; /* GET SUBTASK TCB ADDRESS */ 00107000 MVC DETEMPAL(4),MFSESTAD(DESELPTR) 0024 00108000 * GEN REFS(MFSESTAD,DETEMPAL)(DETACH DETEMPAL,STAE=NO); 0025 00109000 * 0025 00110000 DETACH DETEMPAL,STAE=NO 00111000 * /***************************************************************/ 00112000 * /* */ 00113000 * /* WAIT FOR SUBTASK TERMINATION */ 00114000 * /* */ 00115000 * /***************************************************************/ 00116000 * 0026 00117000 * DETEMPAL=ADDR(MFSESECB); /* GET SUBTASK ECB ADDRESS */ 00118000 LA @10,MFSESECB(,DESELPTR) 0026 00119000 ST @10,DETEMPAL 0026 00120000 * DETEMEOL='1'B; /* SET ECB LIST, END OF LIST FLAG 00121000 * @YM8260P*/ 00122000 * 0027 00123000 OI DETEMEOL,B'10000000' 0027 00124000 * /***************************************************************/ 00125000 * /* */ 00126000 * /* MACDATE Y-2 73018 */ 00127000 * /* */ 00128000 * /***************************************************************/ 00129000 * 0028 00130000 * RESPECIFY 0028 00131000 * (GPR00P, 0028 00132000 * GPR01P, 0028 00133000 * GPR14P, 0028 00134000 * GPR15P)RESTRICTED; 0028 00135000 * GEN REFS(DETEMPAL)SETS(MFSESECB); 0029 00136000 * 0029 00137000 WAIT 1,ECBLIST=DETEMPAL WAIT FOR SUBTASK TO STOP 00138000 * /***************************************************************/ 00139000 * /* */ 00140000 * /* MACDATE Y-2 73018 */ 00141000 * /* */ 00142000 * /***************************************************************/ 00143000 * 0030 00144000 * RESPECIFY 0030 00145000 * (GPR00P, 0030 00146000 * GPR01P, 0030 00147000 * GPR14P, 0030 00148000 * GPR15P)UNRESTRICTED; 0030 00149000 * 0030 00150000 * /***************************************************************/ 00151000 * /* */ 00152000 * /* DEQUEUE SUBTASK ELEMENT */ 00153000 * /* */ 00154000 * /***************************************************************/ 00155000 * 0031 00156000 * IF DESELPTR=MFSQLAST THEN /* IF THIS IS LAST QUEUE ELEMENT */ 00157000 L @10,SDWAPARM(,SDWAPTR) 0031 00158000 L @10,MFPCSQU(,@10) 0031 00159000 C DESELPTR,MFSQLAST(,@10) 0031 00160000 BNE @RF00031 0031 00161000 * MFSQLAST=DESELLST; /* SET NEW END OF QUEUE TO PRE- 00162000 * CEDING ELEMENT */ 00163000 ST DESELLST,MFSQLAST(,@10) 0032 00164000 * DESELLST->MFSENEXT=DESELPTR->MFSENEXT;/* POINT LAST ELEMENT TO 00165000 * NEXT ELEMENT */ 00166000 @RF00031 L @10,MFSENEXT(,DESELPTR) 0033 00167000 ST @10,MFSENEXT(,DESELLST) 0033 00168000 * MFSQNUMB=MFSQNUMB-1; /* REDUCE QUEUE COUNT OF ELEMENTS*/ 00169000 * 0034 00170000 L @05,SDWAPARM(,SDWAPTR) 0034 00171000 L @05,MFPCSQU(,@05) 0034 00172000 L @15,MFSQNUMB(,@05) 0034 00173000 BCTR @15,0 0034 00174000 ST @15,MFSQNUMB(,@05) 0034 00175000 * /***************************************************************/ 00176000 * /* */ 00177000 * /* MEASUREMENT STORAGE WAS GIVEN TO SUBTASK AT ATTACH MENT. IT */ 00178000 * /* IS FREED AFTER SUBTASK COMPLETION FREE QUEUE ELEMENT MAIN */ 00179000 * /* STORAGE MACDATE Y-2 73018 */ 00180000 * /* */ 00181000 * /***************************************************************/ 00182000 * 0035 00183000 * RESPECIFY 0035 00184000 * (GPR00P, 0035 00185000 * GPR01P, 0035 00186000 * GPR14P, 0035 00187000 * GPR15P)RESTRICTED; 0035 00188000 * GPR00F=MFSQSTOR; /* SUBPOOL AND LENGTH OF MFSEL */ 00189000 L GPR00F,MFSQSTOR(,@05) 0036 00190000 * GPR01P=DESELPTR; /* ADDRESS OF REMOVED ELEMENT */ 00191000 LR GPR01P,DESELPTR 0037 00192000 * DESELPTR=DESELPTR->MFSENEXT; /* GET NEXT SUBTASK QUEUE ELEMENT*/ 00193000 LR DESELPTR,@10 0038 00194000 * GEN(FREEMAIN R,LV=(0),A=(1)); 0039 00195000 * 0039 00196000 FREEMAIN R,LV=(0),A=(1) 00197000 * /***************************************************************/ 00198000 * /* */ 00199000 * /* MACDATE Y-2 73018 */ 00200000 * /* */ 00201000 * /***************************************************************/ 00202000 * 0040 00203000 * RESPECIFY 0040 00204000 * (GPR00P, 0040 00205000 * GPR01P, 0040 00206000 * GPR14P, 0040 00207000 * GPR15P)UNRESTRICTED; 0040 00208000 * END; /* END LOOP ON SUBTASKS */ 00209000 @DE00023 LTR DESELPTR,DESELPTR 0041 00210000 BNZ @DL00023 0041 00211000 * MFPCALST=MFPCSTID-1; /* SET ID OF LAST SUBTASK TO 0042 00212000 * COMPLETE SYSOUT ALLOCATION, SO 00213000 * NEXT SUBTASK CAN ALLOCATE. */ 00214000 * 0042 00215000 L @10,SDWAPARM(,SDWAPTR) 0042 00216000 L @03,MFPCSTID(,@10) 0042 00217000 BCTR @03,0 0042 00218000 ST @03,MFPCALST(,@10) 0042 00219000 * /*****************************************************************/ 00220000 * /* */ 00221000 * /* RETURN, CONTINUE WITH TERMINATION MACDATE Y-2 73018 */ 00222000 * /* */ 00223000 * /*****************************************************************/ 00224000 * 0043 00225000 * RESPECIFY 0043 00226000 * (GPR00P, 0043 00227000 * GPR01P, 0043 00228000 * GPR14P, 0043 00229000 * GPR15P)RESTRICTED; 0043 00230000 * GPR01P=SDWAPTR; /* BASE REG TO SET SDWA VIA SETRP*/ 00231000 LR GPR01P,SDWAPTR 0044 00232000 * DO; /* SETRP RC(0) DUMP(YES) */ 00233000 * RESPECIFY 0046 00234000 * (GPR00P, 0046 00235000 * GPR01P, 0046 00236000 * GPR14P, 0046 00237000 * GPR15P)RSTD; 0046 00238000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00239000 MVI SDWARCDE(GPR01P),X'00' 0047 00240000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00241000 OI SDWAREQ(GPR01P),B'10000000' 0048 00242000 * RESPECIFY 0049 00243000 * (GPR00P, 0049 00244000 * GPR01P, 0049 00245000 * GPR14P, 0049 00246000 * GPR15P)UNRSTD; 0049 00247000 * END; 0050 00248000 * 0050 00249000 * /*****************************************************************/ 00250000 * /* */ 00251000 * /* MACDATE Y-2 73018 */ 00252000 * /* */ 00253000 * /*****************************************************************/ 00254000 * 0051 00255000 * RESPECIFY 0051 00256000 * (GPR00P, 0051 00257000 * GPR01P, 0051 00258000 * GPR14P, 0051 00259000 * GPR15P)UNRESTRICTED; 0051 00260000 * RETURN; /* RETURNS AFTER EPILOG TO FREE 00261000 * GETMAINED WORK AREAS */ 00262000 @EL00001 L @13,4(,@13) 0052 00263000 @EF00001 L @00,@SIZDATD 0052 00264000 LR @01,@11 0052 00265000 FREEMAIN R,LV=(0),A=(1) 00266000 @ER00001 LM @14,@12,12(@13) 0052 00267000 BR @14 0052 00268000 * END IRBMFDEA 0053 00269000 * 0053 00270000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00271000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00272000 * 0053 00273000 * ; 0053 00274000 @DATA DS 0H 00275000 @DATD DSECT 00276000 DS 0F 00277000 @SA00001 DS 18F 00278000 IRBMFDEA CSECT 00279000 DS 0F 00280000 @DATD DSECT 00281000 DS 0D 00282000 DETEMPAL DS A 00283000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00284000 @ENDDATD EQU * 00285000 IRBMFDEA CSECT 00286000 DS 0F 00287000 @SIZDATD DC AL1(0) 00288000 DC AL3(@ENDDATD-@DATD) 00289000 DS 0D 00290000 DEPATCH DS CL100 00291000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00292000 @01 EQU 01 00293000 @02 EQU 02 00294000 @03 EQU 03 00295000 @04 EQU 04 00296000 @05 EQU 05 00297000 @06 EQU 06 00298000 @07 EQU 07 00299000 @08 EQU 08 00300000 @09 EQU 09 00301000 @10 EQU 10 00302000 @11 EQU 11 00303000 @12 EQU 12 00304000 @13 EQU 13 00305000 @14 EQU 14 00306000 @15 EQU 15 00307000 DESELLST EQU @04 00308000 DESELPTR EQU @03 00309000 SDWAPTR EQU @02 00310000 GPR00F EQU @00 00311000 GPR00P EQU @00 00312000 GPR01P EQU @01 00313000 GPR14P EQU @14 00314000 GPR15P EQU @15 00315000 GPR01F EQU @01 00316000 GPR14F EQU @14 00317000 GPR15F EQU @15 00318000 SDWA EQU 0 00319000 SDWAPARM EQU SDWA 00320000 SDWAFIOB EQU SDWA+4 00321000 SDWAABCC EQU SDWAFIOB 00322000 SDWACMPF EQU SDWAABCC 00323000 SDWAREQ EQU SDWACMPF 00324000 SDWACTL1 EQU SDWA+8 00325000 SDWACMKA EQU SDWACTL1 00326000 SDWAMWPA EQU SDWACTL1+1 00327000 SDWAPMKA EQU SDWACTL1+4 00328000 SDWACTL2 EQU SDWA+16 00329000 SDWACMKP EQU SDWACTL2 00330000 SDWAMWPP EQU SDWACTL2+1 00331000 SDWAPMKP EQU SDWACTL2+4 00332000 SDWAGRSV EQU SDWA+24 00333000 SDWANAME EQU SDWA+88 00334000 SDWAEC1 EQU SDWA+104 00335000 SDWAEMK1 EQU SDWAEC1 00336000 SDWAMWP1 EQU SDWAEC1+1 00337000 SDWAINT1 EQU SDWAEC1+2 00338000 SDWANXT1 EQU SDWAEC1+4 00339000 SDWAAEC1 EQU SDWA+112 00340000 SDWAILC1 EQU SDWAAEC1+1 00341000 SDWAINC1 EQU SDWAAEC1+2 00342000 SDWAICD1 EQU SDWAINC1+1 00343000 SDWAEC2 EQU SDWA+120 00344000 SDWAEMK2 EQU SDWAEC2 00345000 SDWAMWP2 EQU SDWAEC2+1 00346000 SDWAINT2 EQU SDWAEC2+2 00347000 SDWANXT2 EQU SDWAEC2+4 00348000 SDWAAEC2 EQU SDWA+128 00349000 SDWAILC2 EQU SDWAAEC2+1 00350000 SDWAINC2 EQU SDWAAEC2+2 00351000 SDWAICD2 EQU SDWAINC2+1 00352000 SDWASRSV EQU SDWA+136 00353000 SDWAIDNT EQU SDWA+200 00354000 SDWAMCH EQU SDWA+204 00355000 SDWASTCK EQU SDWAMCH 00356000 SDWAMCHI EQU SDWAMCH+8 00357000 SDWAMCHS EQU SDWAMCHI 00358000 SDWAMCHD EQU SDWAMCHI+1 00359000 SDWARSR1 EQU SDWAMCH+12 00360000 SDWARSR2 EQU SDWAMCH+13 00361000 SDWAFLGS EQU SDWA+232 00362000 SDWAERRA EQU SDWAFLGS 00363000 SDWAERRB EQU SDWAFLGS+1 00364000 SDWAERRC EQU SDWAFLGS+2 00365000 SDWAERRD EQU SDWAFLGS+3 00366000 SDWAIOFS EQU SDWA+238 00367000 SDWACPUA EQU SDWA+248 00368000 SDWAPARQ EQU SDWA+252 00369000 SDWARCDE EQU SDWAPARQ 00370000 SDWAACF2 EQU SDWAPARQ+1 00371000 SDWAACF3 EQU SDWAPARQ+2 00372000 SDWAACF4 EQU SDWAPARQ+3 00373000 SDWALKWA EQU SDWA+256 00374000 SDWALKWS EQU SDWALKWA 00375000 SDWARECP EQU SDWA+292 00376000 SDWASNPA EQU SDWA+320 00377000 SDWADUMP EQU SDWASNPA 00378000 SDWADPFS EQU SDWADUMP+1 00379000 SDWADDAT EQU SDWASNPA+4 00380000 SDWASDAT EQU SDWADDAT 00381000 SDWAPDAT EQU SDWADDAT+2 00382000 SDWADPSA EQU SDWA+328 00383000 SDWADPSL EQU SDWADPSA 00384000 SDWARA EQU SDWA+400 00385000 SDWADPVA EQU SDWARA+2 00386000 MFPCT EQU 0 00387000 MFPCSQU EQU MFPCT+12 00388000 MFPCELGM EQU MFPCT+32 00389000 MFPCALST EQU MFPCT+44 00390000 MFPCFLAG EQU MFPCT+48 00391000 MFPCREIN EQU MFPCFLAG+1 00392000 MFPCSTID EQU MFPCT+52 00393000 MFSEL EQU 0 00394000 MFSENEXT EQU MFSEL 00395000 MFSEPARM EQU MFSEL+4 00396000 MFSESTAD EQU MFSEL+16 00397000 MFSESECB EQU MFSEL+20 00398000 MFSEFLAG EQU MFSEL+47 00399000 MFSQU EQU 0 00400000 MFSQFRST EQU MFSQU+4 00401000 MFSQLAST EQU MFSQU+8 00402000 MFSQNUMB EQU MFSQU+12 00403000 MFSQSTOR EQU MFSQU+16 00404000 IKEBC EQU 0 00405000 IKEBF15 EQU 0 00406000 IKEBF31 EQU 0 00407000 IKEBP15 EQU 0 00408000 IKEBP31 EQU 0 00409000 IKEBP8 EQU 0 00410000 DETEMEOL EQU DETEMPAL 00411000 * START UNREFERENCED COMPONENTS 00412000 MFSQLEN EQU MFSQSTOR+1 00413000 MFSQSP EQU MFSQSTOR 00414000 MFSQNAME EQU MFSQU 00415000 MFSEMDCB EQU MFSEL+48 00416000 MFSERTRY EQU MFSEFLAG 00417000 @NM00052 EQU MFSEFLAG 00418000 @NM00051 EQU MFSEL+44 00419000 MFSEITOD EQU MFSEL+36 00420000 MFSESTID EQU MFSEL+32 00421000 MFSEDTMV EQU MFSEL+28 00422000 MFSECOA EQU MFSEL+24 00423000 MFSESCOD EQU MFSESECB+1 00424000 @NM00050 EQU MFSESECB 00425000 MFSEMFMV EQU MFSEPARM+8 00426000 MFSEALST EQU MFSEPARM+4 00427000 MFSESEL EQU MFSEPARM 00428000 MFPCMFR EQU MFPCT+60 00429000 MFPCMDCB EQU MFPCT+56 00430000 MFPCNINT EQU MFPCT+50 00431000 @NM00049 EQU MFPCFLAG 00432000 MFPCSEAD EQU MFPCT+40 00433000 MFPCELAD EQU MFPCT+36 00434000 MFPCELLE EQU MFPCELGM+1 00435000 MFPCELSP EQU MFPCELGM 00436000 MFPCTDSI EQU MFPCT+24 00437000 MFPCMINT EQU MFPCT+16 00438000 MFPCCOA EQU MFPCT+8 00439000 MFPCMVT EQU MFPCT+4 00440000 MFPCNAME EQU MFPCT 00441000 @NM00048 EQU SDWA+512 00442000 SDWAVRA EQU SDWARA+4 00443000 SDWAURAL EQU SDWARA+3 00444000 @NM00047 EQU SDWADPVA 00445000 SDWAEBC EQU SDWADPVA 00446000 SDWAHEX EQU SDWADPVA 00447000 SDWAVRAL EQU SDWARA 00448000 @NM00046 EQU SDWA+396 00449000 SDWACOMP EQU SDWA+392 00450000 SDWARCPL EQU SDWA+364 00451000 @NM00045 EQU SDWADPSA+32 00452000 SDWATO4 EQU SDWADPSL+28 00453000 SDWAFRM4 EQU SDWADPSL+24 00454000 SDWATO3 EQU SDWADPSL+20 00455000 SDWAFRM3 EQU SDWADPSL+16 00456000 SDWATO2 EQU SDWADPSL+12 00457000 SDWAFRM2 EQU SDWADPSL+8 00458000 SDWATO1 EQU SDWADPSL+4 00459000 SDWAFRM1 EQU SDWADPSL 00460000 @NM00044 EQU SDWADDAT+3 00461000 @NM00043 EQU SDWAPDAT 00462000 SDWAUSPL EQU SDWAPDAT 00463000 SDWADPSW EQU SDWAPDAT 00464000 SDWATJPA EQU SDWAPDAT 00465000 SDWATLPA EQU SDWAPDAT 00466000 SDWADREG EQU SDWAPDAT 00467000 SDWADSAH EQU SDWAPDAT 00468000 SDWADSAS EQU SDWAPDAT 00469000 @NM00042 EQU SDWADDAT+1 00470000 @NM00041 EQU SDWASDAT 00471000 SDWAQQS EQU SDWASDAT 00472000 SDWACBS EQU SDWASDAT 00473000 SDWAGTF EQU SDWASDAT 00474000 SDWASWA EQU SDWASDAT 00475000 SDWALSQA EQU SDWASDAT 00476000 SDWASQA EQU SDWASDAT 00477000 SDWANUC EQU SDWASDAT 00478000 @NM00040 EQU SDWADUMP+2 00479000 @NM00039 EQU SDWADPFS 00480000 SDWASLST EQU SDWADPFS 00481000 @NM00038 EQU SDWADPFS 00482000 SDWADLST EQU SDWADPFS 00483000 SDWADPT EQU SDWADPFS 00484000 SDWADPID EQU SDWADUMP 00485000 SDWADPLA EQU SDWA+316 00486000 SDWAREXN EQU SDWARECP+16 00487000 SDWACSCT EQU SDWARECP+8 00488000 SDWAMODN EQU SDWARECP 00489000 @NM00037 EQU SDWALKWA+32 00490000 SDWATALW EQU SDWALKWS+28 00491000 SDWATDLW EQU SDWALKWS+24 00492000 SDWATNLW EQU SDWALKWS+20 00493000 SDWAAPLW EQU SDWALKWS+16 00494000 SDWAIPLW EQU SDWALKWS+12 00495000 SDWAILLW EQU SDWALKWS+8 00496000 SDWAIULW EQU SDWALKWS+4 00497000 SDWAICLW EQU SDWALKWS 00498000 SDWAFLLK EQU SDWAACF4 00499000 SDWACMS EQU SDWAACF4 00500000 SDWAOPTM EQU SDWAACF4 00501000 SDWATADB EQU SDWAACF4 00502000 SDWATDNB EQU SDWAACF4 00503000 SDWATNCB EQU SDWAACF4 00504000 SDWAILCH EQU SDWAACF4 00505000 SDWAIUCB EQU SDWAACF4 00506000 SDWAICAT EQU SDWAACF3 00507000 SDWAIPRG EQU SDWAACF3 00508000 SDWASALL EQU SDWAACF3 00509000 SDWAASMP EQU SDWAACF3 00510000 SDWADISP EQU SDWAACF3 00511000 @NM00036 EQU SDWAACF3 00512000 @NM00035 EQU SDWAACF2 00513000 SDWAFREE EQU SDWAACF2 00514000 SDWAUPRG EQU SDWAACF2 00515000 @NM00034 EQU SDWAACF2 00516000 SDWASPIN EQU SDWAACF2 00517000 @NM00033 EQU SDWAACF2 00518000 SDWARCRD EQU SDWAACF2 00519000 SDWALCPU EQU SDWACPUA+2 00520000 @NM00032 EQU SDWACPUA 00521000 SDWARECA EQU SDWA+244 00522000 SDWARTYA EQU SDWA+240 00523000 @NM00031 EQU SDWA+239 00524000 @NM00030 EQU SDWAIOFS 00525000 SDWANIOP EQU SDWAIOFS 00526000 SDWANOIO EQU SDWAIOFS 00527000 SDWAIOHT EQU SDWAIOFS 00528000 SDWAIOQR EQU SDWAIOFS 00529000 SDWAFMID EQU SDWA+236 00530000 @NM00029 EQU SDWAERRD 00531000 SDWAMCIV EQU SDWAERRD 00532000 SDWARPIV EQU SDWAERRD 00533000 SDWAMABD EQU SDWAERRD 00534000 SDWACTS EQU SDWAERRD 00535000 SDWASTAE EQU SDWAERRD 00536000 SDWANRBE EQU SDWAERRD 00537000 SDWACLUP EQU SDWAERRD 00538000 @NM00028 EQU SDWAERRC 00539000 SDWAEAS EQU SDWAERRC 00540000 SDWAPERC EQU SDWAERRC 00541000 SDWAIRB EQU SDWAERRC 00542000 SDWASTAI EQU SDWAERRC 00543000 SDWASTAF EQU SDWAERRC 00544000 SDWASRBM EQU SDWAERRB 00545000 SDWALDIS EQU SDWAERRB 00546000 SDWAENRB EQU SDWAERRB 00547000 SDWATYP1 EQU SDWAERRB 00548000 @NM00027 EQU SDWAERRB 00549000 SDWAPGIO EQU SDWAERRA 00550000 SDWATEXC EQU SDWAERRA 00551000 SDWASVCE EQU SDWAERRA 00552000 SDWAABTM EQU SDWAERRA 00553000 SDWASVCD EQU SDWAERRA 00554000 SDWARKEY EQU SDWAERRA 00555000 SDWAPCHK EQU SDWAERRA 00556000 SDWAMCHK EQU SDWAERRA 00557000 SDWATIME EQU SDWAMCH+20 00558000 SDWARFSA EQU SDWAMCH+16 00559000 @NM00026 EQU SDWAMCH+14 00560000 SDWAVEQR EQU SDWARSR2 00561000 SDWAPGFX EQU SDWARSR2 00562000 SDWAFLSQ EQU SDWARSR2 00563000 SDWAFSQA EQU SDWARSR2 00564000 SDWANUCL EQU SDWARSR2 00565000 SDWASPER EQU SDWARSR2 00566000 SDWAINTC EQU SDWARSR2 00567000 SDWAOFLN EQU SDWARSR2 00568000 SDWACHNG EQU SDWARSR1 00569000 SDWAMSER EQU SDWARSR1 00570000 @NM00025 EQU SDWARSR1 00571000 SDWACPID EQU SDWAMCH+10 00572000 SDWATERR EQU SDWAMCHD 00573000 SDWAFPRX EQU SDWAMCHD 00574000 SDWAINSF EQU SDWAMCHD 00575000 SDWAACR EQU SDWAMCHD 00576000 SDWASCK EQU SDWAMCHD 00577000 SDWAPSWU EQU SDWAMCHD 00578000 SDWAREGU EQU SDWAMCHD 00579000 SDWASKYF EQU SDWAMCHD 00580000 @NM00024 EQU SDWAMCHS 00581000 SDWARSRF EQU SDWAMCHS 00582000 SDWARSRC EQU SDWAMCHS 00583000 SDWAINVP EQU SDWAMCHS 00584000 SDWATSVL EQU SDWAMCHS 00585000 SDWARCDF EQU SDWAMCHS 00586000 SDWASRVL EQU SDWAMCHS 00587000 SDWASCKE EQU SDWASTCK+4 00588000 SDWASCKB EQU SDWASTCK 00589000 SDWALNTH EQU SDWAIDNT+1 00590000 SDWASPID EQU SDWAIDNT 00591000 SDWASR15 EQU SDWASRSV+60 00592000 SDWASR14 EQU SDWASRSV+56 00593000 SDWASR13 EQU SDWASRSV+52 00594000 SDWASR12 EQU SDWASRSV+48 00595000 SDWASR11 EQU SDWASRSV+44 00596000 SDWASR10 EQU SDWASRSV+40 00597000 SDWASR09 EQU SDWASRSV+36 00598000 SDWASR08 EQU SDWASRSV+32 00599000 SDWASR07 EQU SDWASRSV+28 00600000 SDWASR06 EQU SDWASRSV+24 00601000 SDWASR05 EQU SDWASRSV+20 00602000 SDWASR04 EQU SDWASRSV+16 00603000 SDWASR03 EQU SDWASRSV+12 00604000 SDWASR02 EQU SDWASRSV+8 00605000 SDWASR01 EQU SDWASRSV+4 00606000 SDWASR00 EQU SDWASRSV 00607000 SDWATRN2 EQU SDWAAEC2+4 00608000 SDWAIPC2 EQU SDWAICD2 00609000 SDWAIMC2 EQU SDWAICD2 00610000 SDWAIPR2 EQU SDWAICD2 00611000 @NM00023 EQU SDWAINC2 00612000 @NM00022 EQU SDWAILC2 00613000 SDWAIL2 EQU SDWAILC2 00614000 @NM00021 EQU SDWAILC2 00615000 @NM00020 EQU SDWAAEC2 00616000 SDWAADD2 EQU SDWANXT2+1 00617000 @NM00019 EQU SDWANXT2 00618000 @NM00018 EQU SDWAEC2+3 00619000 SDWASGN2 EQU SDWAINT2 00620000 SDWAEXP2 EQU SDWAINT2 00621000 SDWADEC2 EQU SDWAINT2 00622000 SDWAFPO2 EQU SDWAINT2 00623000 SDWACC2 EQU SDWAINT2 00624000 @NM00017 EQU SDWAINT2 00625000 SDWAPGM2 EQU SDWAMWP2 00626000 SDWAWAT2 EQU SDWAMWP2 00627000 SDWAMCK2 EQU SDWAMWP2 00628000 SDWAECT2 EQU SDWAMWP2 00629000 SDWAKEY2 EQU SDWAMWP2 00630000 SDWAEXT2 EQU SDWAEMK2 00631000 SDWAIO2 EQU SDWAEMK2 00632000 SDWATRM2 EQU SDWAEMK2 00633000 @NM00016 EQU SDWAEMK2 00634000 SDWAPER2 EQU SDWAEMK2 00635000 @NM00015 EQU SDWAEMK2 00636000 SDWATRAN EQU SDWAAEC1+4 00637000 SDWAIPC1 EQU SDWAICD1 00638000 SDWAIMC1 EQU SDWAICD1 00639000 SDWAIPR1 EQU SDWAICD1 00640000 @NM00014 EQU SDWAINC1 00641000 @NM00013 EQU SDWAILC1 00642000 SDWAIL1 EQU SDWAILC1 00643000 @NM00012 EQU SDWAILC1 00644000 @NM00011 EQU SDWAAEC1 00645000 SDWAADD1 EQU SDWANXT1+1 00646000 @NM00010 EQU SDWANXT1 00647000 @NM00009 EQU SDWAEC1+3 00648000 SDWASGN1 EQU SDWAINT1 00649000 SDWAEXP1 EQU SDWAINT1 00650000 SDWADEC1 EQU SDWAINT1 00651000 SDWAFPO1 EQU SDWAINT1 00652000 SDWACC1 EQU SDWAINT1 00653000 @NM00008 EQU SDWAINT1 00654000 SDWAPGM1 EQU SDWAMWP1 00655000 SDWAWAT1 EQU SDWAMWP1 00656000 SDWAMCK1 EQU SDWAMWP1 00657000 SDWAECT1 EQU SDWAMWP1 00658000 SDWAKEY1 EQU SDWAMWP1 00659000 SDWAEXT1 EQU SDWAEMK1 00660000 SDWAIO1 EQU SDWAEMK1 00661000 SDWATRM1 EQU SDWAEMK1 00662000 @NM00007 EQU SDWAEMK1 00663000 SDWAPER1 EQU SDWAEMK1 00664000 @NM00006 EQU SDWAEMK1 00665000 SDWAIOBR EQU SDWA+100 00666000 SDWAEPA EQU SDWA+96 00667000 @NM00005 EQU SDWANAME+4 00668000 SDWARBAD EQU SDWANAME 00669000 SDWAGR15 EQU SDWAGRSV+60 00670000 SDWAGR14 EQU SDWAGRSV+56 00671000 SDWAGR13 EQU SDWAGRSV+52 00672000 SDWAGR12 EQU SDWAGRSV+48 00673000 SDWAGR11 EQU SDWAGRSV+44 00674000 SDWAGR10 EQU SDWAGRSV+40 00675000 SDWAGR09 EQU SDWAGRSV+36 00676000 SDWAGR08 EQU SDWAGRSV+32 00677000 SDWAGR07 EQU SDWAGRSV+28 00678000 SDWAGR06 EQU SDWAGRSV+24 00679000 SDWAGR05 EQU SDWAGRSV+20 00680000 SDWAGR04 EQU SDWAGRSV+16 00681000 SDWAGR03 EQU SDWAGRSV+12 00682000 SDWAGR02 EQU SDWAGRSV+8 00683000 SDWAGR01 EQU SDWAGRSV+4 00684000 SDWAGR00 EQU SDWAGRSV 00685000 SDWANXTP EQU SDWACTL2+5 00686000 SDWASGP EQU SDWAPMKP 00687000 SDWAEUP EQU SDWAPMKP 00688000 SDWADOP EQU SDWAPMKP 00689000 SDWAFPP EQU SDWAPMKP 00690000 SDWACCP EQU SDWAPMKP 00691000 SDWAILP EQU SDWAPMKP 00692000 SDWAINTP EQU SDWACTL2+2 00693000 SDWASPVP EQU SDWAMWPP 00694000 SDWAWATP EQU SDWAMWPP 00695000 SDWAMCKP EQU SDWAMWPP 00696000 @NM00004 EQU SDWAMWPP 00697000 SDWAKEYP EQU SDWAMWPP 00698000 SDWAEXTP EQU SDWACMKP 00699000 SDWAIOP EQU SDWACMKP 00700000 SDWANXTA EQU SDWACTL1+5 00701000 SDWASGA EQU SDWAPMKA 00702000 SDWAEUA EQU SDWAPMKA 00703000 SDWADOA EQU SDWAPMKA 00704000 SDWAFPA EQU SDWAPMKA 00705000 SDWACCA EQU SDWAPMKA 00706000 SDWAILA EQU SDWAPMKA 00707000 SDWAINTA EQU SDWACTL1+2 00708000 SDWASPVA EQU SDWAMWPA 00709000 SDWAWATA EQU SDWAMWPA 00710000 SDWAMCKA EQU SDWAMWPA 00711000 @NM00003 EQU SDWAMWPA 00712000 SDWAKEYA EQU SDWAMWPA 00713000 SDWAEXTA EQU SDWACMKA 00714000 SDWAIOA EQU SDWACMKA 00715000 SDWACMPC EQU SDWAABCC+1 00716000 @NM00002 EQU SDWACMPF 00717000 SDWASTCC EQU SDWACMPF 00718000 @NM00001 EQU SDWACMPF 00719000 SDWASTEP EQU SDWACMPF 00720000 * END UNREFERENCED COMPONENTS 00721000 @ENDDATA EQU * 00722000 END IRBMFDEA,(C'PL/S-II',0502,74121) 00723000