TITLE ' /* IRBMFMLN MFC MAINLINE ESTAE ROUTINE *00001000 ' 00002000 IRBMFMLN CSECT 00003000 BALR @15,0 00004000 USING *,@15 00005000 LA @12,12 CONSTANT IN @00 IF NO SDWA 00006000 CR @00,@12 DOES SDWA EXIST 00007000 BNE ML0001 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 ML0001 DS 0H 00014000 DROP @15 00015000 IRBMFMLN 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; 0011 00029000 LR SDWAPTR,GPR01P 0011 00030000 * RFY 0012 00031000 * (GPR01P)UNRSTD; 0012 00032000 * IF MFPCREIN='1'B THEN /* IF MF/1 REINSTATEMENT IS ON,DO*/ 00033000 L @10,SDWAPARM(,SDWAPTR) 0013 00034000 L @10,MLESTPCT(,@10) 0013 00035000 TM MFPCREIN(@10),B'00000001' 0013 00036000 BNO @RF00013 0013 00037000 * DO; 0014 00038000 * 0014 00039000 * /*************************************************************/ 00040000 * /* */ 00041000 * /* ISSUE MESSAGE 'MF/1 TASK REINSTATED' */ 00042000 * /* */ 00043000 * /*************************************************************/ 00044000 * 0015 00045000 * IF MLCOMUSR^='000'X THEN /* IF USER COMPLETION CODE^= 0 */ 00046000 MVC @TS00001(2),MLCOMUSR(SDWAPTR) 0015 00047000 NC @TS00001(2),@CB00565 0015 00048000 BZ @RF00015 0015 00049000 * DO; 0016 00050000 * 0016 00051000 * /*********************************************************/ 00052000 * /* */ 00053000 * /* MOVE BITS 12-23 OF 3 BYTES INTO BITS 4-15 OF 3 BYTES */ 00054000 * /* */ 00055000 * /*********************************************************/ 00056000 * 0017 00057000 * MLPACKCC(1:2)=MLCOMCDE(2:3);/* OUTPUT USER CODE */ 00058000 MVC MLPACKCC(2),MLCOMCDE+1(SDWAPTR) 0017 00059000 * MLPALFIL=''B; /* ZERO LEADING 4 BITS */ 00060000 NI MLPALFIL,B'00001111' 0018 00061000 * CVD(MLPACKFX,MLDEC); /* FROM 0CCC TO 0CCCCS */ 00062000 LH @10,MLPACKFX 0019 00063000 CVD @10,@TS00001 0019 00064000 MVC MLDEC(3),@TS00001+5 0019 00065000 * MLDEC(3)=MLDEC(3)|'0F'X;/* FROM 0CCCCS TO 0CCCCF */ 00066000 OI MLDEC+2,X'0F' 0020 00067000 * UNPK(MLTEXTCH(2:5),MLDEC);/* FROM 0CCCCF TO FCFCFCFC */ 00068000 UNPK MLTEXTCH+1(4),MLDEC(3) 0021 00069000 * END; 0022 00070000 * ELSE 0023 00071000 * DO; 0023 00072000 * 0023 00073000 B @RC00015 0023 00074000 @RF00015 DS 0H 0024 00075000 * /*********************************************************/ 00076000 * /* */ 00077000 * /* MOVE BITS 0-12 OF 3 BYTES INTO BITS 4-15 OF 3 BYTES */ 00078000 * /* */ 00079000 * /*********************************************************/ 00080000 * 0024 00081000 * MLPACKCC(1:3)=MLCOMCDE(1:2)*'10'X;/* OUTPUT SYSTEM CODE */ 00082000 * 0024 00083000 SR @10,@10 0024 00084000 ICM @10,3,MLCOMCDE(SDWAPTR) 0024 00085000 SLA @10,4 0024 00086000 STCM @10,7,MLPACKCC 0024 00087000 * /*********************************************************/ 00088000 * /* */ 00089000 * /* MLPACKCC IS A PACKED HEX FIELD IN THE FORM 'XCCCXX'X */ 00090000 * /* */ 00091000 * /*********************************************************/ 00092000 * 0025 00093000 * UNPK(MLTEXTCH,MLPACKCC);/* UNPK COMPLETION CODE */ 00094000 UNPK MLTEXTCH(5),MLPACKCC(3) 0025 00095000 * MLTEXTCH(5)='0'; /* SET UNUSED BYTE */ 00096000 MVI MLTEXTCH+4,C'0' 0026 00097000 * END; 0027 00098000 * 0027 00099000 * /*************************************************************/ 00100000 * /* */ 00101000 * /* MLTEXTCH IS NOW IN THE FORM 'FXFCFCFCF0'X, SYSTEM, OR */ 00102000 * /* 'XXFCFCFCFC'X, USER */ 00103000 * /* */ 00104000 * /*************************************************************/ 00105000 * 0028 00106000 * TR(MLTEXTCH(2:5),MLTRHEXA); /* TRANSLATE COMPLETION CODE INTO 00107000 * EBCDIC */ 00108000 @RC00015 LA @10,MLTRHEX 0028 00109000 SH @10,@CH00550 0028 00110000 TR MLTEXTCH+1(4),MLTRHEXA(@10) 0028 00111000 * IF MLCOMUSR^='000'X THEN /* IF USER COMPLETION CODE^= 0 */ 00112000 MVC @TS00001(2),MLCOMUSR(SDWAPTR) 0029 00113000 NC @TS00001(2),@CB00565 0029 00114000 BZ @RF00029 0029 00115000 * DO; 0030 00116000 * MLTEXTCH(1:1)='U'; /* OUTPUT IS FLAGGED AS USER CODE*/ 00117000 MVI MLTEXTCH,C'U' 0031 00118000 * MLTELEN=5; /* TEXT IS FORM 'UCCCC' */ 00119000 MVC MLTELEN(2),@CH00142 0032 00120000 * END; 0033 00121000 * ELSE 0034 00122000 * DO; 0034 00123000 B @RC00029 0034 00124000 @RF00029 DS 0H 0035 00125000 * MLTEXTCH(1:1)='S'; /* OUTPUT FLAGGED AS SYSTEM CODE */ 00126000 MVI MLTEXTCH,C'S' 0035 00127000 * MLTELEN=4; /* TEXT IS FORM 'SCCC' */ 00128000 MVC MLTELEN(2),@CH00038 0036 00129000 * END; 0037 00130000 * MLTEPART=0; /* IDENTIFY CODE AS VARIABLE TEXT 00131000 * IN THE OUTPUT MESSAGE */ 00132000 * 0038 00133000 @RC00029 SR @10,@10 0038 00134000 STH @10,MLTEPART 0038 00135000 * /*************************************************************/ 00136000 * /* */ 00137000 * /* MACDATE Y-2 73018 */ 00138000 * /* */ 00139000 * /*************************************************************/ 00140000 * 0039 00141000 * RESPECIFY 0039 00142000 * (GPR00P, 0039 00143000 * GPR01P, 0039 00144000 * GPR14P, 0039 00145000 * GPR15P)RESTRICTED; 0039 00146000 * GEN; 0040 00147000 LOAD EP=IRBMFMPR LOAD MESSAGE MODULE 00148000 * MLMODEPA=GPR00P; /* SAVE ENTRY POINT ADDRESS */ 00149000 * 0041 00150000 LR MLMODEPA,GPR00P 0041 00151000 * /*************************************************************/ 00152000 * /* */ 00153000 * /* MACDATE Y-2 73018 */ 00154000 * /* */ 00155000 * /*************************************************************/ 00156000 * 0042 00157000 * RESPECIFY 0042 00158000 * (GPR00P, 0042 00159000 * GPR01P, 0042 00160000 * GPR14P, 0042 00161000 * GPR15P)UNRESTRICTED; 0042 00162000 * 0042 00163000 * /*************************************************************/ 00164000 * /* */ 00165000 * /* OUTPUT MESSAGE 'MF/1 TASK REINSTATED SCCC/UCCCC' */ 00166000 * /* */ 00167000 * /*************************************************************/ 00168000 * 0043 00169000 * CALL IRBMFMPR(MID201I,ADDR(MLTEXT),/* MESSAGE VARIABLE TEXT. */ 00170000 * 0, /* SPECIFY NO REPLY AREA */ 00171000 * MFPCMDCB); /* SPECIFY DCB ADDRESS */ 00172000 * 0043 00173000 LA @10,@CF00152 0043 00174000 ST @10,@AL00001 0043 00175000 LA @10,MLTEXT 0043 00176000 ST @10,@AFTEMPS 0043 00177000 LA @10,@AFTEMPS 0043 00178000 ST @10,@AL00001+4 0043 00179000 LA @10,@CF00398 0043 00180000 ST @10,@AL00001+8 0043 00181000 L @10,SDWAPARM(,SDWAPTR) 0043 00182000 L @10,MLESTPCT(,@10) 0043 00183000 LA @10,MFPCMDCB(,@10) 0043 00184000 ST @10,@AL00001+12 0043 00185000 LR @15,MLMODEPA 0043 00186000 LA @01,@AL00001 0043 00187000 BALR @14,@15 0043 00188000 * /*************************************************************/ 00189000 * /* */ 00190000 * /* MACDATE Y-2 73018 */ 00191000 * /* */ 00192000 * /*************************************************************/ 00193000 * 0044 00194000 * RESPECIFY 0044 00195000 * (GPR00P, 0044 00196000 * GPR01P, 0044 00197000 * GPR14P, 0044 00198000 * GPR15P)RESTRICTED; 0044 00199000 * GEN; 0045 00200000 * 0045 00201000 DELETE EP=IRBMFMPR DELETE MESSAGE MODULE 00202000 * /*************************************************************/ 00203000 * /* */ 00204000 * /* MACDATE Y-2 73018 */ 00205000 * /* */ 00206000 * /*************************************************************/ 00207000 * 0046 00208000 * RESPECIFY 0046 00209000 * (GPR00P, 0046 00210000 * GPR01P, 0046 00211000 * GPR14P, 0046 00212000 * GPR15P)UNRESTRICTED; 0046 00213000 * 0046 00214000 * /*************************************************************/ 00215000 * /* */ 00216000 * /* SET RETURN PARAMETERS FOR RECOVERY/TERMINATION MANAGER */ 00217000 * /* MACDATE Y-2 73018 */ 00218000 * /* */ 00219000 * /*************************************************************/ 00220000 * 0047 00221000 * RESPECIFY 0047 00222000 * (GPR00P, 0047 00223000 * GPR01P, 0047 00224000 * GPR14P, 0047 00225000 * GPR15P)RESTRICTED; 0047 00226000 * RFY 0048 00227000 * (GPR02P)RSTD; 0048 00228000 * GPR01P=ADDR(SDWA); /* SDWA IN GPR 1 */ 00229000 * 0049 00230000 LR GPR01P,SDWAPTR 0049 00231000 * /*************************************************************/ 00232000 * /* */ 00233000 * /* RETRY REQUEST. */ 00234000 * /* */ 00235000 * /*************************************************************/ 00236000 * 0050 00237000 * DO; /* SETRP RETADDR(IRBMFMFR) 0050 00238000 * RETREGS(YES) RUB(MLESTRUB(2)) 00239000 * DUMP(YES) FRESDWA(YES) RC(4) */ 00240000 * RESPECIFY 0051 00241000 * (GPR00P, 0051 00242000 * GPR01P, 0051 00243000 * GPR14P, 0051 00244000 * GPR15P)RSTD; 0051 00245000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00246000 MVI SDWARCDE(GPR01P),X'04' 0052 00247000 * GPR01P->SDWARTYA=ADDR(IRBMFMFR);/* SAVE RETRY ADDRESS */ 00248000 L @10,SDWAPARM(,SDWAPTR) 0053 00249000 L @09,MLESTPCT(,@10) 0053 00250000 MVC SDWARTYA(4,GPR01P),MFPCMFR(@09) 0053 00251000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 00252000 OI SDWAFREE(GPR01P),B'00000100' 0054 00253000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00254000 OI SDWAREQ(GPR01P),B'10000000' 0055 00255000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00256000 OI SDWAUPRG(GPR01P),B'00001000' 0056 00257000 * GPR15P=ADDR(MLESTRUB(2)); /* GET PTR TO REG UPDATE BLOCK */ 00258000 LA GPR15P,MLESTRUB+1(,@10) 0057 00259000 * GPR00P=GPR15P->I015F; /* ACCESS REGISTER BIT PATTERN */ 00260000 LH GPR00P,I015F(,GPR15P) 0058 00261000 * GPR15P=GPR15P+2; /* CREATE PTR TO USER REG VALUES */ 00262000 AH GPR15P,@CH00061 0059 00263000 * GPR14P=ADDR(GPR01P->SDWASRSV);/* CREATE PTR TO SDWA SAVE 0060 00264000 * AREA */ 00265000 LA GPR14P,SDWASRSV(,GPR01P) 0060 00266000 * GEN(SLL 0,16); /* SHIFT BIT PATTERN TO HIGH 0061 00267000 * ORDER */ 00268000 SLL 0,16 00269000 *R0009: 0062 00270000 * GEN FLOWS(I0009); 0062 00271000 R0009 DS 0H 0062 00272000 ALR 0,0 SHIFT BIT TO SIGN POSITION 00273000 BC 12,I0009 BRANCH IF BIT NOT ON 00274000 MVC 0(4,14),0(15) MODIFY REGISTER IN SDWA 00275000 LA 15,4(15) UPDATE POINTER 00276000 *I0009: 0063 00277000 * GENERATE FLOWS(R0009); 0063 00278000 I0009 DS 0H 0063 00279000 LA 14,4(14) UPDATE PTR IN SDWA 00280000 BC 5,R0009 TEST ALR CONDITION CODE TO TEST 00281000 * IF ALL BITS EXHAUSTED 00282000 * RESPECIFY 0064 00283000 * (GPR00P, 0064 00284000 * GPR01P, 0064 00285000 * GPR14P, 0064 00286000 * GPR15P)UNRSTD; 0064 00287000 * END; 0065 00288000 * 0065 00289000 * /*************************************************************/ 00290000 * /* */ 00291000 * /* MACDATE Y-2 73018 */ 00292000 * /* */ 00293000 * /*************************************************************/ 00294000 * 0066 00295000 * RESPECIFY 0066 00296000 * (GPR00P, 0066 00297000 * GPR01P, 0066 00298000 * GPR14P, 0066 00299000 * GPR15P)UNRESTRICTED; 0066 00300000 * RFY 0067 00301000 * (GPR02P)UNRSTD; 0067 00302000 * RETURN; /* RETRY MF1 INITIALIZATION AND 00303000 * MEASUREMENTS */ 00304000 @EL00001 L @13,4(,@13) 0068 00305000 @EF00001 L @00,@SIZDATD 0068 00306000 LR @01,@11 0068 00307000 FREEMAIN R,LV=(0),A=(1) 00308000 @ER00001 LM @14,@12,12(@13) 0068 00309000 BR @14 0068 00310000 * END; /* END REINSTATEMENT */ 00311000 * 0069 00312000 * /*****************************************************************/ 00313000 * /* */ 00314000 * /* NO REINSTATEMENT MACDATE Y-2 73018 */ 00315000 * /* */ 00316000 * /*****************************************************************/ 00317000 * 0070 00318000 * RESPECIFY 0070 00319000 * (GPR00P, 0070 00320000 * GPR01P, 0070 00321000 * GPR14P, 0070 00322000 * GPR15P)RESTRICTED; 0070 00323000 @RF00013 DS 0H 0071 00324000 * GPR01P=ADDR(SDWA); 0071 00325000 LR GPR01P,SDWAPTR 0071 00326000 * DO; /* SETRP DUMP(YES) RC(0) */ 00327000 * RESPECIFY 0073 00328000 * (GPR00P, 0073 00329000 * GPR01P, 0073 00330000 * GPR14P, 0073 00331000 * GPR15P)RSTD; 0073 00332000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00333000 MVI SDWARCDE(GPR01P),X'00' 0074 00334000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00335000 OI SDWAREQ(GPR01P),B'10000000' 0075 00336000 * RESPECIFY 0076 00337000 * (GPR00P, 0076 00338000 * GPR01P, 0076 00339000 * GPR14P, 0076 00340000 * GPR15P)UNRSTD; 0076 00341000 * END; /* CONTINUE WITH TERMINATION. */ 00342000 * 0077 00343000 * /*****************************************************************/ 00344000 * /* */ 00345000 * /* MACDATE Y-2 73018 */ 00346000 * /* */ 00347000 * /*****************************************************************/ 00348000 * 0078 00349000 * RESPECIFY 0078 00350000 * (GPR00P, 0078 00351000 * GPR01P, 0078 00352000 * GPR14P, 0078 00353000 * GPR15P)UNRESTRICTED; 0078 00354000 * RETURN; /* TERMINATE MF/1 */ 00355000 B @EL00001 0079 00356000 * END 0080 00357000 * 0080 00358000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00359000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00360000 */*%INCLUDE SYSLIB (IRBMFMID) */ 00361000 * 0080 00362000 * ; 0080 00363000 @DATA DS 0H 00364000 @CH00061 DC H'2' 00365000 @CH00038 DC H'4' 00366000 @CH00142 DC H'5' 00367000 @CH00550 DC XL1'0' 00368000 DC C'0' 00369000 @DATD DSECT 00370000 DS 0F 00371000 @SA00001 DS 18F 00372000 @AL00001 DS 4A 00373000 @AFTEMPS DS 1F 00374000 IRBMFMLN CSECT 00375000 DS 0F 00376000 @CF00398 DC F'0' 00377000 @CF00152 DC F'6' 00378000 @DATD DSECT 00379000 DS 0D 00380000 DS 0D 00381000 @TS00001 DS CL8 00382000 MLDEC DS CL3 00383000 DS CL1 00384000 MLPACKCC DS CL3 00385000 ORG MLPACKCC 00386000 MLPALFIL DS BL1 00387000 MLPACODE EQU MLPACKCC+0 00388000 DS CL1 00389000 MLPATFIL DS BL1 00390000 ORG MLPACKCC+3 00391000 DS CL1 00392000 MLTEXT DS CL9 00393000 ORG MLTEXT 00394000 MLTEPART DS FL2 00395000 MLTELEN DS FL2 00396000 MLTEXTCH DS CL5 00397000 ORG MLTEXT+9 00398000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00399000 @ENDDATD EQU * 00400000 IRBMFMLN CSECT 00401000 DS 0F 00402000 @SIZDATD DC AL1(0) 00403000 DC AL3(@ENDDATD-@DATD) 00404000 DS 0D 00405000 @CB00565 DC B'0000111111111111' 00406000 MLTRHEX DC CL16'0123456789ABCDEF' 00407000 MLPATCH DS CL100 00408000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00409000 @01 EQU 01 00410000 @02 EQU 02 00411000 @03 EQU 03 00412000 @04 EQU 04 00413000 @05 EQU 05 00414000 @06 EQU 06 00415000 @07 EQU 07 00416000 @08 EQU 08 00417000 @09 EQU 09 00418000 @10 EQU 10 00419000 @11 EQU 11 00420000 @12 EQU 12 00421000 @13 EQU 13 00422000 @14 EQU 14 00423000 @15 EQU 15 00424000 MLMODEPA EQU @04 00425000 SDWAPTR EQU @03 00426000 GPR00P EQU @00 00427000 GPR01P EQU @01 00428000 GPR14P EQU @14 00429000 GPR15P EQU @15 00430000 GPR02P EQU @02 00431000 GPR00F EQU @00 00432000 GPR01F EQU @01 00433000 GPR14F EQU @14 00434000 GPR15F EQU @15 00435000 SDWA EQU 0 00436000 SDWAPARM EQU SDWA 00437000 SDWAFIOB EQU SDWA+4 00438000 SDWAABCC EQU SDWAFIOB 00439000 SDWACMPF EQU SDWAABCC 00440000 SDWAREQ EQU SDWACMPF 00441000 SDWACMPC EQU SDWAABCC+1 00442000 SDWACTL1 EQU SDWA+8 00443000 SDWACMKA EQU SDWACTL1 00444000 SDWAMWPA EQU SDWACTL1+1 00445000 SDWAPMKA EQU SDWACTL1+4 00446000 SDWACTL2 EQU SDWA+16 00447000 SDWACMKP EQU SDWACTL2 00448000 SDWAMWPP EQU SDWACTL2+1 00449000 SDWAPMKP EQU SDWACTL2+4 00450000 SDWAGRSV EQU SDWA+24 00451000 SDWANAME EQU SDWA+88 00452000 SDWAEC1 EQU SDWA+104 00453000 SDWAEMK1 EQU SDWAEC1 00454000 SDWAMWP1 EQU SDWAEC1+1 00455000 SDWAINT1 EQU SDWAEC1+2 00456000 SDWANXT1 EQU SDWAEC1+4 00457000 SDWAAEC1 EQU SDWA+112 00458000 SDWAILC1 EQU SDWAAEC1+1 00459000 SDWAINC1 EQU SDWAAEC1+2 00460000 SDWAICD1 EQU SDWAINC1+1 00461000 SDWAEC2 EQU SDWA+120 00462000 SDWAEMK2 EQU SDWAEC2 00463000 SDWAMWP2 EQU SDWAEC2+1 00464000 SDWAINT2 EQU SDWAEC2+2 00465000 SDWANXT2 EQU SDWAEC2+4 00466000 SDWAAEC2 EQU SDWA+128 00467000 SDWAILC2 EQU SDWAAEC2+1 00468000 SDWAINC2 EQU SDWAAEC2+2 00469000 SDWAICD2 EQU SDWAINC2+1 00470000 SDWASRSV EQU SDWA+136 00471000 SDWAIDNT EQU SDWA+200 00472000 SDWAMCH EQU SDWA+204 00473000 SDWASTCK EQU SDWAMCH 00474000 SDWAMCHI EQU SDWAMCH+8 00475000 SDWAMCHS EQU SDWAMCHI 00476000 SDWAMCHD EQU SDWAMCHI+1 00477000 SDWARSR1 EQU SDWAMCH+12 00478000 SDWARSR2 EQU SDWAMCH+13 00479000 SDWAFLGS EQU SDWA+232 00480000 SDWAERRA EQU SDWAFLGS 00481000 SDWAERRB EQU SDWAFLGS+1 00482000 SDWAERRC EQU SDWAFLGS+2 00483000 SDWAERRD EQU SDWAFLGS+3 00484000 SDWAIOFS EQU SDWA+238 00485000 SDWARTYA EQU SDWA+240 00486000 SDWACPUA EQU SDWA+248 00487000 SDWAPARQ EQU SDWA+252 00488000 SDWARCDE EQU SDWAPARQ 00489000 SDWAACF2 EQU SDWAPARQ+1 00490000 SDWAUPRG EQU SDWAACF2 00491000 SDWAFREE EQU SDWAACF2 00492000 SDWAACF3 EQU SDWAPARQ+2 00493000 SDWAACF4 EQU SDWAPARQ+3 00494000 SDWALKWA EQU SDWA+256 00495000 SDWALKWS EQU SDWALKWA 00496000 SDWARECP EQU SDWA+292 00497000 SDWASNPA EQU SDWA+320 00498000 SDWADUMP EQU SDWASNPA 00499000 SDWADPFS EQU SDWADUMP+1 00500000 SDWADDAT EQU SDWASNPA+4 00501000 SDWASDAT EQU SDWADDAT 00502000 SDWAPDAT EQU SDWADDAT+2 00503000 SDWADPSA EQU SDWA+328 00504000 SDWADPSL EQU SDWADPSA 00505000 SDWARA EQU SDWA+400 00506000 SDWADPVA EQU SDWARA+2 00507000 MFPCT EQU 0 00508000 MFPCELGM EQU MFPCT+32 00509000 MFPCFLAG EQU MFPCT+48 00510000 MFPCREIN EQU MFPCFLAG+1 00511000 MFPCMDCB EQU MFPCT+56 00512000 MFPCMFR EQU MFPCT+60 00513000 I015F EQU 0 00514000 IRBMFMFR EQU 0 00515000 IRBMFMPR EQU 0 00516000 MLESTPPL EQU 0 00517000 MLESTPCT EQU MLESTPPL 00518000 MLESTRUB EQU MLESTPPL+4 00519000 MLTRHEXA EQU 0 00520000 IKEBC EQU 0 00521000 IKEBF15 EQU 0 00522000 IKEBF31 EQU 0 00523000 IKEBP15 EQU 0 00524000 IKEBP31 EQU 0 00525000 IKEBP8 EQU 0 00526000 MLCOMCDE EQU SDWACMPC 00527000 MLCOMUSR EQU MLCOMCDE+1 00528000 MLPACKFX EQU MLPACKCC 00529000 * START UNREFERENCED COMPONENTS 00530000 MLCOMSYS EQU MLCOMCDE 00531000 MLESTDAT EQU MLESTPPL+12 00532000 MLESTCOD EQU MLESTPPL+8 00533000 MFPCSTID EQU MFPCT+52 00534000 MFPCNINT EQU MFPCT+50 00535000 @NM00049 EQU MFPCFLAG 00536000 MFPCALST EQU MFPCT+44 00537000 MFPCSEAD EQU MFPCT+40 00538000 MFPCELAD EQU MFPCT+36 00539000 MFPCELLE EQU MFPCELGM+1 00540000 MFPCELSP EQU MFPCELGM 00541000 MFPCTDSI EQU MFPCT+24 00542000 MFPCMINT EQU MFPCT+16 00543000 MFPCSQU EQU MFPCT+12 00544000 MFPCCOA EQU MFPCT+8 00545000 MFPCMVT EQU MFPCT+4 00546000 MFPCNAME EQU MFPCT 00547000 @NM00048 EQU SDWA+512 00548000 SDWAVRA EQU SDWARA+4 00549000 SDWAURAL EQU SDWARA+3 00550000 @NM00047 EQU SDWADPVA 00551000 SDWAEBC EQU SDWADPVA 00552000 SDWAHEX EQU SDWADPVA 00553000 SDWAVRAL EQU SDWARA 00554000 @NM00046 EQU SDWA+396 00555000 SDWACOMP EQU SDWA+392 00556000 SDWARCPL EQU SDWA+364 00557000 @NM00045 EQU SDWADPSA+32 00558000 SDWATO4 EQU SDWADPSL+28 00559000 SDWAFRM4 EQU SDWADPSL+24 00560000 SDWATO3 EQU SDWADPSL+20 00561000 SDWAFRM3 EQU SDWADPSL+16 00562000 SDWATO2 EQU SDWADPSL+12 00563000 SDWAFRM2 EQU SDWADPSL+8 00564000 SDWATO1 EQU SDWADPSL+4 00565000 SDWAFRM1 EQU SDWADPSL 00566000 @NM00044 EQU SDWADDAT+3 00567000 @NM00043 EQU SDWAPDAT 00568000 SDWAUSPL EQU SDWAPDAT 00569000 SDWADPSW EQU SDWAPDAT 00570000 SDWATJPA EQU SDWAPDAT 00571000 SDWATLPA EQU SDWAPDAT 00572000 SDWADREG EQU SDWAPDAT 00573000 SDWADSAH EQU SDWAPDAT 00574000 SDWADSAS EQU SDWAPDAT 00575000 @NM00042 EQU SDWADDAT+1 00576000 @NM00041 EQU SDWASDAT 00577000 SDWAQQS EQU SDWASDAT 00578000 SDWACBS EQU SDWASDAT 00579000 SDWAGTF EQU SDWASDAT 00580000 SDWASWA EQU SDWASDAT 00581000 SDWALSQA EQU SDWASDAT 00582000 SDWASQA EQU SDWASDAT 00583000 SDWANUC EQU SDWASDAT 00584000 @NM00040 EQU SDWADUMP+2 00585000 @NM00039 EQU SDWADPFS 00586000 SDWASLST EQU SDWADPFS 00587000 @NM00038 EQU SDWADPFS 00588000 SDWADLST EQU SDWADPFS 00589000 SDWADPT EQU SDWADPFS 00590000 SDWADPID EQU SDWADUMP 00591000 SDWADPLA EQU SDWA+316 00592000 SDWAREXN EQU SDWARECP+16 00593000 SDWACSCT EQU SDWARECP+8 00594000 SDWAMODN EQU SDWARECP 00595000 @NM00037 EQU SDWALKWA+32 00596000 SDWATALW EQU SDWALKWS+28 00597000 SDWATDLW EQU SDWALKWS+24 00598000 SDWATNLW EQU SDWALKWS+20 00599000 SDWAAPLW EQU SDWALKWS+16 00600000 SDWAIPLW EQU SDWALKWS+12 00601000 SDWAILLW EQU SDWALKWS+8 00602000 SDWAIULW EQU SDWALKWS+4 00603000 SDWAICLW EQU SDWALKWS 00604000 SDWAFLLK EQU SDWAACF4 00605000 SDWACMS EQU SDWAACF4 00606000 SDWAOPTM EQU SDWAACF4 00607000 SDWATADB EQU SDWAACF4 00608000 SDWATDNB EQU SDWAACF4 00609000 SDWATNCB EQU SDWAACF4 00610000 SDWAILCH EQU SDWAACF4 00611000 SDWAIUCB EQU SDWAACF4 00612000 SDWAICAT EQU SDWAACF3 00613000 SDWAIPRG EQU SDWAACF3 00614000 SDWASALL EQU SDWAACF3 00615000 SDWAASMP EQU SDWAACF3 00616000 SDWADISP EQU SDWAACF3 00617000 @NM00036 EQU SDWAACF3 00618000 @NM00035 EQU SDWAACF2 00619000 @NM00034 EQU SDWAACF2 00620000 SDWASPIN EQU SDWAACF2 00621000 @NM00033 EQU SDWAACF2 00622000 SDWARCRD EQU SDWAACF2 00623000 SDWALCPU EQU SDWACPUA+2 00624000 @NM00032 EQU SDWACPUA 00625000 SDWARECA EQU SDWA+244 00626000 @NM00031 EQU SDWA+239 00627000 @NM00030 EQU SDWAIOFS 00628000 SDWANIOP EQU SDWAIOFS 00629000 SDWANOIO EQU SDWAIOFS 00630000 SDWAIOHT EQU SDWAIOFS 00631000 SDWAIOQR EQU SDWAIOFS 00632000 SDWAFMID EQU SDWA+236 00633000 @NM00029 EQU SDWAERRD 00634000 SDWAMCIV EQU SDWAERRD 00635000 SDWARPIV EQU SDWAERRD 00636000 SDWAMABD EQU SDWAERRD 00637000 SDWACTS EQU SDWAERRD 00638000 SDWASTAE EQU SDWAERRD 00639000 SDWANRBE EQU SDWAERRD 00640000 SDWACLUP EQU SDWAERRD 00641000 @NM00028 EQU SDWAERRC 00642000 SDWAEAS EQU SDWAERRC 00643000 SDWAPERC EQU SDWAERRC 00644000 SDWAIRB EQU SDWAERRC 00645000 SDWASTAI EQU SDWAERRC 00646000 SDWASTAF EQU SDWAERRC 00647000 SDWASRBM EQU SDWAERRB 00648000 SDWALDIS EQU SDWAERRB 00649000 SDWAENRB EQU SDWAERRB 00650000 SDWATYP1 EQU SDWAERRB 00651000 @NM00027 EQU SDWAERRB 00652000 SDWAPGIO EQU SDWAERRA 00653000 SDWATEXC EQU SDWAERRA 00654000 SDWASVCE EQU SDWAERRA 00655000 SDWAABTM EQU SDWAERRA 00656000 SDWASVCD EQU SDWAERRA 00657000 SDWARKEY EQU SDWAERRA 00658000 SDWAPCHK EQU SDWAERRA 00659000 SDWAMCHK EQU SDWAERRA 00660000 SDWATIME EQU SDWAMCH+20 00661000 SDWARFSA EQU SDWAMCH+16 00662000 @NM00026 EQU SDWAMCH+14 00663000 SDWAVEQR EQU SDWARSR2 00664000 SDWAPGFX EQU SDWARSR2 00665000 SDWAFLSQ EQU SDWARSR2 00666000 SDWAFSQA EQU SDWARSR2 00667000 SDWANUCL EQU SDWARSR2 00668000 SDWASPER EQU SDWARSR2 00669000 SDWAINTC EQU SDWARSR2 00670000 SDWAOFLN EQU SDWARSR2 00671000 SDWACHNG EQU SDWARSR1 00672000 SDWAMSER EQU SDWARSR1 00673000 @NM00025 EQU SDWARSR1 00674000 SDWACPID EQU SDWAMCH+10 00675000 SDWATERR EQU SDWAMCHD 00676000 SDWAFPRX EQU SDWAMCHD 00677000 SDWAINSF EQU SDWAMCHD 00678000 SDWAACR EQU SDWAMCHD 00679000 SDWASCK EQU SDWAMCHD 00680000 SDWAPSWU EQU SDWAMCHD 00681000 SDWAREGU EQU SDWAMCHD 00682000 SDWASKYF EQU SDWAMCHD 00683000 @NM00024 EQU SDWAMCHS 00684000 SDWARSRF EQU SDWAMCHS 00685000 SDWARSRC EQU SDWAMCHS 00686000 SDWAINVP EQU SDWAMCHS 00687000 SDWATSVL EQU SDWAMCHS 00688000 SDWARCDF EQU SDWAMCHS 00689000 SDWASRVL EQU SDWAMCHS 00690000 SDWASCKE EQU SDWASTCK+4 00691000 SDWASCKB EQU SDWASTCK 00692000 SDWALNTH EQU SDWAIDNT+1 00693000 SDWASPID EQU SDWAIDNT 00694000 SDWASR15 EQU SDWASRSV+60 00695000 SDWASR14 EQU SDWASRSV+56 00696000 SDWASR13 EQU SDWASRSV+52 00697000 SDWASR12 EQU SDWASRSV+48 00698000 SDWASR11 EQU SDWASRSV+44 00699000 SDWASR10 EQU SDWASRSV+40 00700000 SDWASR09 EQU SDWASRSV+36 00701000 SDWASR08 EQU SDWASRSV+32 00702000 SDWASR07 EQU SDWASRSV+28 00703000 SDWASR06 EQU SDWASRSV+24 00704000 SDWASR05 EQU SDWASRSV+20 00705000 SDWASR04 EQU SDWASRSV+16 00706000 SDWASR03 EQU SDWASRSV+12 00707000 SDWASR02 EQU SDWASRSV+8 00708000 SDWASR01 EQU SDWASRSV+4 00709000 SDWASR00 EQU SDWASRSV 00710000 SDWATRN2 EQU SDWAAEC2+4 00711000 SDWAIPC2 EQU SDWAICD2 00712000 SDWAIMC2 EQU SDWAICD2 00713000 SDWAIPR2 EQU SDWAICD2 00714000 @NM00023 EQU SDWAINC2 00715000 @NM00022 EQU SDWAILC2 00716000 SDWAIL2 EQU SDWAILC2 00717000 @NM00021 EQU SDWAILC2 00718000 @NM00020 EQU SDWAAEC2 00719000 SDWAADD2 EQU SDWANXT2+1 00720000 @NM00019 EQU SDWANXT2 00721000 @NM00018 EQU SDWAEC2+3 00722000 SDWASGN2 EQU SDWAINT2 00723000 SDWAEXP2 EQU SDWAINT2 00724000 SDWADEC2 EQU SDWAINT2 00725000 SDWAFPO2 EQU SDWAINT2 00726000 SDWACC2 EQU SDWAINT2 00727000 @NM00017 EQU SDWAINT2 00728000 SDWAPGM2 EQU SDWAMWP2 00729000 SDWAWAT2 EQU SDWAMWP2 00730000 SDWAMCK2 EQU SDWAMWP2 00731000 SDWAECT2 EQU SDWAMWP2 00732000 SDWAKEY2 EQU SDWAMWP2 00733000 SDWAEXT2 EQU SDWAEMK2 00734000 SDWAIO2 EQU SDWAEMK2 00735000 SDWATRM2 EQU SDWAEMK2 00736000 @NM00016 EQU SDWAEMK2 00737000 SDWAPER2 EQU SDWAEMK2 00738000 @NM00015 EQU SDWAEMK2 00739000 SDWATRAN EQU SDWAAEC1+4 00740000 SDWAIPC1 EQU SDWAICD1 00741000 SDWAIMC1 EQU SDWAICD1 00742000 SDWAIPR1 EQU SDWAICD1 00743000 @NM00014 EQU SDWAINC1 00744000 @NM00013 EQU SDWAILC1 00745000 SDWAIL1 EQU SDWAILC1 00746000 @NM00012 EQU SDWAILC1 00747000 @NM00011 EQU SDWAAEC1 00748000 SDWAADD1 EQU SDWANXT1+1 00749000 @NM00010 EQU SDWANXT1 00750000 @NM00009 EQU SDWAEC1+3 00751000 SDWASGN1 EQU SDWAINT1 00752000 SDWAEXP1 EQU SDWAINT1 00753000 SDWADEC1 EQU SDWAINT1 00754000 SDWAFPO1 EQU SDWAINT1 00755000 SDWACC1 EQU SDWAINT1 00756000 @NM00008 EQU SDWAINT1 00757000 SDWAPGM1 EQU SDWAMWP1 00758000 SDWAWAT1 EQU SDWAMWP1 00759000 SDWAMCK1 EQU SDWAMWP1 00760000 SDWAECT1 EQU SDWAMWP1 00761000 SDWAKEY1 EQU SDWAMWP1 00762000 SDWAEXT1 EQU SDWAEMK1 00763000 SDWAIO1 EQU SDWAEMK1 00764000 SDWATRM1 EQU SDWAEMK1 00765000 @NM00007 EQU SDWAEMK1 00766000 SDWAPER1 EQU SDWAEMK1 00767000 @NM00006 EQU SDWAEMK1 00768000 SDWAIOBR EQU SDWA+100 00769000 SDWAEPA EQU SDWA+96 00770000 @NM00005 EQU SDWANAME+4 00771000 SDWARBAD EQU SDWANAME 00772000 SDWAGR15 EQU SDWAGRSV+60 00773000 SDWAGR14 EQU SDWAGRSV+56 00774000 SDWAGR13 EQU SDWAGRSV+52 00775000 SDWAGR12 EQU SDWAGRSV+48 00776000 SDWAGR11 EQU SDWAGRSV+44 00777000 SDWAGR10 EQU SDWAGRSV+40 00778000 SDWAGR09 EQU SDWAGRSV+36 00779000 SDWAGR08 EQU SDWAGRSV+32 00780000 SDWAGR07 EQU SDWAGRSV+28 00781000 SDWAGR06 EQU SDWAGRSV+24 00782000 SDWAGR05 EQU SDWAGRSV+20 00783000 SDWAGR04 EQU SDWAGRSV+16 00784000 SDWAGR03 EQU SDWAGRSV+12 00785000 SDWAGR02 EQU SDWAGRSV+8 00786000 SDWAGR01 EQU SDWAGRSV+4 00787000 SDWAGR00 EQU SDWAGRSV 00788000 SDWANXTP EQU SDWACTL2+5 00789000 SDWASGP EQU SDWAPMKP 00790000 SDWAEUP EQU SDWAPMKP 00791000 SDWADOP EQU SDWAPMKP 00792000 SDWAFPP EQU SDWAPMKP 00793000 SDWACCP EQU SDWAPMKP 00794000 SDWAILP EQU SDWAPMKP 00795000 SDWAINTP EQU SDWACTL2+2 00796000 SDWASPVP EQU SDWAMWPP 00797000 SDWAWATP EQU SDWAMWPP 00798000 SDWAMCKP EQU SDWAMWPP 00799000 @NM00004 EQU SDWAMWPP 00800000 SDWAKEYP EQU SDWAMWPP 00801000 SDWAEXTP EQU SDWACMKP 00802000 SDWAIOP EQU SDWACMKP 00803000 SDWANXTA EQU SDWACTL1+5 00804000 SDWASGA EQU SDWAPMKA 00805000 SDWAEUA EQU SDWAPMKA 00806000 SDWADOA EQU SDWAPMKA 00807000 SDWAFPA EQU SDWAPMKA 00808000 SDWACCA EQU SDWAPMKA 00809000 SDWAILA EQU SDWAPMKA 00810000 SDWAINTA EQU SDWACTL1+2 00811000 SDWASPVA EQU SDWAMWPA 00812000 SDWAWATA EQU SDWAMWPA 00813000 SDWAMCKA EQU SDWAMWPA 00814000 @NM00003 EQU SDWAMWPA 00815000 SDWAKEYA EQU SDWAMWPA 00816000 SDWAEXTA EQU SDWACMKA 00817000 SDWAIOA EQU SDWACMKA 00818000 @NM00002 EQU SDWACMPF 00819000 SDWASTCC EQU SDWACMPF 00820000 @NM00001 EQU SDWACMPF 00821000 SDWASTEP EQU SDWACMPF 00822000 * END UNREFERENCED COMPONENTS 00823000 @ENDDATA EQU * 00824000 END IRBMFMLN,(C'PL/S-II',0502,74087) 00825000