TITLE ' /* IRBMFTMA TERMINATION MAINLINE *00001000 ' 00002000 IRBMFTMA CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IRBMFTMA 76.110' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @09,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@09 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @10,@01 0001 00016000 USING @DATD,@10 0001 00017000 ST @13,@SA00001+4 0001 00018000 LM @00,@01,20(@13) 0001 00019000 ST @10,8(,@13) 0001 00020000 LR @13,@10 0001 00021000 * 0034 00022000 */* TERMINATION FUNCTIONS */ 00023000 */* AUTOMATIC STORAGE INITIALIZATION */ 00024000 * 0035 00025000 * TMGSRG=CNOSPLEN; /* NO GLOBAL SP & LENGTH */ 00026000 SLR @12,@12 0035 00027000 ST @12,TMGSRG 0035 00028000 * FRREPTR=CNULLADR; /* CLEAR DUMMY FRR STACK POINTER */ 00029000 SLR FRREPTR,FRREPTR 0036 00030000 * FRRSPTR=CNULLADR; /* CLEAR DUMMY FRR STACK POINTER */ 00031000 SLR FRRSPTR,FRRSPTR 0037 00032000 * TMESTAPL=TMESTSPL; /* ESTAE PARAMETER LIST */ 00033000 MVC TMESTAPL(16),TMESTSPL 0038 00034000 * TMEXTAPL=TMEXTSPL; /* EXTRACT PARAM. LIST @ZA00276*/ 00035000 MVC TMEXTAPL(16),TMEXTSPL 0039 00036000 * TMDEQAPL=TMDEQSPL; /* DEQ PARAM. LIST @ZA00276*/ 00037000 MVC TMDEQAPL(16),TMDEQSPL 0040 00038000 * RFY 0041 00039000 * (GPRDAT, 0041 00040000 * GPRCOD) RSTD; 0041 00041000 * TMESTDAT=GPRDAT; /* SAVE AUTO DATA ADDRESS FOR 0042 00042000 * ERROR RECOVERY */ 00043000 ST GPRDAT,TMESTDAT 0042 00044000 * TMESTCOD=GPRCOD; /* SAVE CODE BASE REG FOR RETRY */ 00045000 ST GPRCOD,TMESTCOD 0043 00046000 * RFY 0044 00047000 * (GPRDAT, 0044 00048000 * GPRCOD) UNRSTD; 0044 00049000 * 0044 00050000 */* FUNCTIONAL CODE */ 00051000 * 0045 00052000 * TMRETRYF=CCLEAR; /* ESTAE IS NOT EXECUTING. */ 00053000 NI TMRETRYF,B'01111111' 0045 00054000 * TMRETRYC=10; /* RETRY COUNT=NUMBER OF GENERAL 00055000 * RESOURCES. */ 00056000 LA @11,10 0046 00057000 ST @11,TMRETRYC 0046 00058000 * IF CVTMFCTL^=CNULLADR /* IF NO STGST TABLE EXISTS */ 00059000 * &STGSSCT^=CNULLADR /* AND NO STSCT TABLE EXISTS */ 00060000 * &STSCMVT^=CNULLADR /* AND NO STMVT TABLE EXISTS */ 00061000 * THEN 0047 00062000 L @08,CVTPTR 0047 00063000 L @08,CVTMFCTL(,@08) 0047 00064000 CR @08,@12 0047 00065000 BE @RF00047 0047 00066000 L @08,STGSSCT(,@08) 0047 00067000 CR @08,@12 0047 00068000 BE @RF00047 0047 00069000 L @08,STSCMVT(,@08) 0047 00070000 CR @08,@12 0047 00071000 BE @RF00047 0047 00072000 * TMRETRYC=TMRETRYC+STMVNUM; /* RETRY ONCE FOR EACH 0048 00073000 * MEASUREMENT OPTION. */ 00074000 AL @11,STMVNUM(,@08) 0048 00075000 ST @11,TMRETRYC 0048 00076000 * TMNEXTRS=ADDR(TM0010); /* NEXT RESOURCE RELEASING RETRY 00077000 * IN CASE OF ERROR */ 00078000 @RF00047 LA @12,TM0010 0049 00079000 ST @12,TMNEXTRS 0049 00080000 */* ESTABLISH ESTAE TO RETRY RELEASING RESOURCES */ 00081000 * 0050 00082000 * /*****************************************************************/ 00083000 * /* */ 00084000 * /* MACDATE Y-2 73018 */ 00085000 * /* */ 00086000 * /*****************************************************************/ 00087000 * 0050 00088000 * RESPECIFY 0050 00089000 * (GPR00P, 0050 00090000 * GPR01P, 0050 00091000 * GPR14P, 0050 00092000 * GPR15P) RESTRICTED; 0050 00093000 * RFY 0051 00094000 * (GPR02P) RSTD; 0051 00095000 * GEN REFS(TMESTAPL,TMESTPPL); 0052 00096000 IRBMFTMA CSECT 00097000 ESTAE PARAM=TMESTPPL,MF=(E,TMESTAPL) 00098000 * RFY 0053 00099000 * (GPR02P) UNRSTD; 0053 00100000 * 0053 00101000 * /*****************************************************************/ 00102000 * /* */ 00103000 * /* MACDATE Y-2 73018 */ 00104000 * /* */ 00105000 * /*****************************************************************/ 00106000 * 0054 00107000 * RESPECIFY 0054 00108000 * (GPR00P, 0054 00109000 * GPR01P, 0054 00110000 * GPR14P, 0054 00111000 * GPR15P) UNRESTRICTED; 0054 00112000 * 0054 00113000 */* CLEAR STOP COMMAND ECB, TO ALLOW WAIT DURING MF1 @ZA00276*/ 00114000 */* REINSTATEMENT. ECB STORAGE IS PROTECTED FROM DTA S KEY @ZA00276*/ 00115000 * 0055 00116000 * /*****************************************************************/ 00117000 * /* */ 00118000 * /* EXTRACT STOP COMMAND ECB ADDRESS. @ZA00276*/ 00119000 * /* MACDATE Y-2 73018 */ 00120000 * /* */ 00121000 * /*****************************************************************/ 00122000 * 0055 00123000 * RESPECIFY 0055 00124000 * (GPR00P, 0055 00125000 * GPR01P, 0055 00126000 * GPR14P, 0055 00127000 * GPR15P) RESTRICTED; 0055 00128000 * 0055 00129000 * /*****************************************************************/ 00130000 * /* */ 00131000 * /* RSTD REGS 0,1,14,15 @ZA00276*/ 00132000 * /* */ 00133000 * /*****************************************************************/ 00134000 * 0056 00135000 * GEN REFS(TMEXTAPL) SETS(TMCSCLA); 0056 00136000 * 0056 00137000 * /* @ZA00276*/ 00138000 EXTRACT TMCSCLA,MF=(E,TMEXTAPL) STOP COMMAND ECB ADDR @ZA00276 00139000 * /*****************************************************************/ 00140000 * /* */ 00141000 * /* MACDATE Y-2 73018 */ 00142000 * /* */ 00143000 * /*****************************************************************/ 00144000 * 0057 00145000 * RESPECIFY 0057 00146000 * (GPR00P, 0057 00147000 * GPR01P, 0057 00148000 * GPR14P, 0057 00149000 * GPR15P) UNRESTRICTED; 0057 00150000 * 0057 00151000 * /*****************************************************************/ 00152000 * /* */ 00153000 * /* @ZA00276*/ 00154000 * /* */ 00155000 * /*****************************************************************/ 00156000 * 0058 00157000 * TMCSECBW=CECBWAIT; /* CLEAR ECB WAIT BIT @ZA00276*/ 00158000 L @08,TMCSCLA 0058 00159000 L @08,TMCSECBA(,@08) 0058 00160000 L @12,TMCSECBW(,@08) 0058 00161000 @GL00003 LR @11,@12 0058 00162000 N @11,@CF01694 0058 00163000 CS @12,@11,TMCSECBW(@08) 0058 00164000 BNE @GL00003 0058 00165000 */* DISABLE MFROUTER HOOKS */ 00166000 * 0059 00167000 *TM0010: 0059 00168000 * TMNEXTRS=ADDR(TM0020); /* NEXT RESOURCE RELEASING RETRY */ 00169000 TM0010 LA @12,TM0020 0059 00170000 ST @12,TMNEXTRS 0059 00171000 * CVTMFRTR=ADDR(CVTBRET); /* MF/1 EVENTS DO NOT GO TO 0060 00172000 * MFROUTER. DO A BCR 15,14 0060 00173000 * INSTEAD. */ 00174000 L @12,CVTPTR 0060 00175000 LA @11,CVTBRET(,@12) 0060 00176000 ST @11,CVTMFRTR(,@12) 0060 00177000 * CVTMFACT=CINACTIV; /* MF/1 EVENTS DO NOT CALL MF/1 */ 00178000 NI CVTMFACT(@12),B'01111111' 0061 00179000 */* INSURE THAT ALL OTHER CPU'S ARE OUT OF EVENT-DRIVEN MG ROUTINES */ 00180000 * 0062 00181000 *TM0020: 0062 00182000 * TMNEXTRS=ADDR(TM0030); /* NEXT RESOURCE RELEASING RETRY */ 00183000 TM0020 LA @12,TM0030 0062 00184000 ST @12,TMNEXTRS 0062 00185000 * SXCPUNUM=1; /* SET LOW ORDER CPU MASK, CPU #N*/ 00186000 MVC SXCPUNUM(2),@CH00070 0063 00187000 * DO I=CMAXCPUS BY-1 TO 1; /* FOR ALL CPU'S */ 00188000 LA I,16 0064 00189000 @DL00064 DS 0H 0065 00190000 * IF(SXCPUBIT&CSDCPUAL)^=0 /* IF CPU IS ALIVE, SIGNAL IT */ 00191000 * THEN 0065 00192000 L @12,CVTPTR 0065 00193000 L @11,CVTCSD(,@12) 0065 00194000 SLR @08,@08 0065 00195000 ICM @08,3,CSDCPUAL(@11) 0065 00196000 SLR @11,@11 0065 00197000 ICM @11,3,SXCPUBIT 0065 00198000 NR @08,@11 0065 00199000 LTR @08,@08 0065 00200000 BZ @RF00065 0065 00201000 * DO; /* DO REMOTE IMMEDIATE INTERPRO- 00202000 * CESSOR COMMUNICATION */ 00203000 * RFY 0067 00204000 * (GPR11P, 0067 00205000 * GPR12P) RSTD; 0067 00206000 * 0067 00207000 * /***********************************************************/ 00208000 * /* */ 00209000 * /* MACDATE Y-2 73018 */ 00210000 * /* */ 00211000 * /***********************************************************/ 00212000 * 0068 00213000 * RESPECIFY 0068 00214000 * (GPR00P, 0068 00215000 * GPR01P, 0068 00216000 * GPR14P, 0068 00217000 * GPR15P) RESTRICTED; 0068 00218000 * GPR01P=PCCAT00P(I); /* PCCA ADDRESS OF CPU */ 00219000 LR @08,I 0069 00220000 SLA @08,2 0069 00221000 L @05,CVTPTR 0069 00222000 L @07,CVTPCCAT(,@05) 0069 00223000 AL @07,@CF01697 0069 00224000 L GPR01P,PCCAT00P(@08,@07) 0069 00225000 * GPR12P=ADDR(CVTBRET); /* ROUTINE EXECUTED IS BCR 15,14 */ 00226000 LA GPR12P,CVTBRET(,@05) 0070 00227000 * GEN(RISGNL SERIAL,CPU=(1),EP=(12));/* SIGNAL CPU */ 00228000 * 0071 00229000 RISGNL SERIAL,CPU=(1),EP=(12) 00230000 * /***********************************************************/ 00231000 * /* */ 00232000 * /* MACDATE Y-2 73018 */ 00233000 * /* */ 00234000 * /***********************************************************/ 00235000 * 0072 00236000 * RESPECIFY 0072 00237000 * (GPR00P, 0072 00238000 * GPR01P, 0072 00239000 * GPR14P, 0072 00240000 * GPR15P) UNRESTRICTED; 0072 00241000 * RFY 0073 00242000 * (GPR11P, 0073 00243000 * GPR12P) UNRSTD; 0073 00244000 * END; /* END IF */ 00245000 * SXCPUNUM=SXCPUNUM*2; /* SHIFT CPU BIT MASK TO LEFT */ 00246000 @RF00065 SLR @12,@12 0075 00247000 ICM @12,3,SXCPUNUM 0075 00248000 ALR @12,@12 0075 00249000 STH @12,SXCPUNUM 0075 00250000 * END; /* END I LOOP */ 00251000 BCTR I,0 0076 00252000 LTR I,I 0076 00253000 BP @DL00064 0076 00254000 */* STOP WORKLOAD MANAGER DATA COLLECTION */ 00255000 * 0077 00256000 *TM0030: 0077 00257000 * TMNEXTRS=ADDR(TM0040); /* NEXT RESOURCE RELEASING RETRY */ 00258000 * 0077 00259000 TM0030 LA @12,TM0040 0077 00260000 ST @12,TMNEXTRS 0077 00261000 * /*****************************************************************/ 00262000 * /* */ 00263000 * /* MACDATE Y-2 73018 */ 00264000 * /* */ 00265000 * /*****************************************************************/ 00266000 * 0078 00267000 * RESPECIFY 0078 00268000 * (GPR00P, 0078 00269000 * GPR01P, 0078 00270000 * GPR14P, 0078 00271000 * GPR15P) RESTRICTED; 0078 00272000 * GEN(SYSEVENT WKLDTERM); 0079 00273000 * 0079 00274000 SYSEVENT WKLDTERM 00275000 * /*****************************************************************/ 00276000 * /* */ 00277000 * /* MACDATE Y-2 73018 */ 00278000 * /* */ 00279000 * /*****************************************************************/ 00280000 * 0080 00281000 * RESPECIFY 0080 00282000 * (GPR00P, 0080 00283000 * GPR01P, 0080 00284000 * GPR14P, 0080 00285000 * GPR15P) UNRESTRICTED; 0080 00286000 * 0080 00287000 */* STOP IOS DEVICE AND CHANNEL DATA COLLECTION */ 00288000 * 0081 00289000 *TM0040: 0081 00290000 * TMNEXTRS=ADDR(TM0050); /* NEXT RESOURCE RELEASING RETRY */ 00291000 TM0040 LA @12,TM0050 0081 00292000 ST @12,TMNEXTRS 0081 00293000 * CALL IRBMFIOI(CTERMIOI); /* CALL IT. */ 00294000 L @15,@CV01613 0082 00295000 LA @01,@AL00082 0082 00296000 BALR @14,@15 0082 00297000 */* DEQUEUE THE MF/1 TQE */ 00298000 * 0083 00299000 *TM0050: 0083 00300000 * TMNEXTRS=ADDR(TM0060); /* NEXT RESOURCE RELEASING RETRY */ 00301000 * 0083 00302000 TM0050 LA @12,TM0060 0083 00303000 ST @12,TMNEXTRS 0083 00304000 * /*****************************************************************/ 00305000 * /* */ 00306000 * /* DISABLE, BY GETTING DISPATCHER LOCK (DISP) */ 00307000 * /* */ 00308000 * /*****************************************************************/ 00309000 * 0084 00310000 * RFY 0084 00311000 * (GPR11P, 0084 00312000 * GPR12P, 0084 00313000 * GPR13P, 0084 00314000 * GPR14P) RSTD; 0084 00315000 * RFY 0085 00316000 * (GPR00P) RSTD; 0085 00317000 * GEN; 0086 00318000 LR @00,@13 SAVE REGISTER 13 IN REGISTER 00 00319000 TM0051 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, X00320000 RELATED=(DISP,IRBMFTMA(TM0052)) 00321000 LR @13,@00 RESTORE REGISTER 13 00322000 * RFY 0087 00323000 * (GPR00P) UNRSTD; 0087 00324000 * RFY 0088 00325000 * (GPR11P, 0088 00326000 * GPR12P, 0088 00327000 * GPR13P, 0088 00328000 * GPR14P) UNRSTD; 0088 00329000 * 0088 00330000 * /*****************************************************************/ 00331000 * /* */ 00332000 * /* ESTABLISH FRR ROUTINE MACDATE Y-2 73018 */ 00333000 * /* */ 00334000 * /*****************************************************************/ 00335000 * 0089 00336000 * RESPECIFY 0089 00337000 * (GPR00P, 0089 00338000 * GPR01P, 0089 00339000 * GPR14P, 0089 00340000 * GPR15P) RESTRICTED; 0089 00341000 * GPR01P=ADDR(IRBMFFUR); /* FRR ROUTINE */ 00342000 L GPR01P,@CV01612 0090 00343000 * GEN SETS(GPR14P,GPR15P); 0091 00344000 * 0091 00345000 SETFRR A,FRRAD=(1),WRKREGS=(GPR14P,GPR15P) 00346000 * /*****************************************************************/ 00347000 * /* */ 00348000 * /* MACDATE Y-2 73018 */ 00349000 * /* */ 00350000 * /*****************************************************************/ 00351000 * 0092 00352000 * RESPECIFY 0092 00353000 * (GPR00P, 0092 00354000 * GPR01P, 0092 00355000 * GPR14P, 0092 00356000 * GPR15P) UNRESTRICTED; 0092 00357000 * 0092 00358000 */* DEQUEUE MF/1 TIMER QUEUE ELEMENT (TQE) */ 00359000 * 0093 00360000 * /*****************************************************************/ 00361000 * /* */ 00362000 * /* CALL TIMER DEQUEUE ROUTINE MACDATE Y-2 73018 */ 00363000 * /* */ 00364000 * /*****************************************************************/ 00365000 * 0093 00366000 * RESPECIFY 0093 00367000 * (GPR00P, 0093 00368000 * GPR01P, 0093 00369000 * GPR14P, 0093 00370000 * GPR15P) RESTRICTED; 0093 00371000 * GPR01P=ADDR(TPCMFTQE); 0094 00372000 L @12,CVTPTR 0094 00373000 L GPR01P,TPCPTR(,@12) 0094 00374000 LA GPR01P,TPCMFTQE(,GPR01P) 0094 00375000 * GPR15P=ADDR(IEAQTD00); 0095 00376000 L GPR15P,CVTQTD00(,@12) 0095 00377000 * RFY 0096 00378000 * (GPR02P) RSTD; 0096 00379000 * RFY 0097 00380000 * (GPR13P) RSTD; 0097 00381000 * GEN; 0098 00382000 LR @00,@13 SAVE REGISTER 13 IN REGISTER 00 00383000 BALR @02,@15 00384000 LR @13,@00 RESTORE REGISTER 13 00385000 * RFY 0099 00386000 * (GPR13P) UNRSTD; 0099 00387000 * RFY 0100 00388000 * (GPR02P) UNRSTD; 0100 00389000 * 0100 00390000 * /*****************************************************************/ 00391000 * /* */ 00392000 * /* CANCEL FRR ROUTINE MACDATE Y-2 73018 */ 00393000 * /* */ 00394000 * /*****************************************************************/ 00395000 * 0101 00396000 * RESPECIFY 0101 00397000 * (GPR00P, 0101 00398000 * GPR01P, 0101 00399000 * GPR14P, 0101 00400000 * GPR15P) RESTRICTED; 0101 00401000 * GEN(SETFRR D,WRKREGS=(GPR14P,GPR15P)) 0102 00402000 * SETS(GPR14P,GPR15P); 0102 00403000 * 0102 00404000 SETFRR D,WRKREGS=(GPR14P,GPR15P) 00405000 * /*****************************************************************/ 00406000 * /* */ 00407000 * /* MACDATE Y-2 73018 */ 00408000 * /* */ 00409000 * /*****************************************************************/ 00410000 * 0103 00411000 * RESPECIFY 0103 00412000 * (GPR00P, 0103 00413000 * GPR01P, 0103 00414000 * GPR14P, 0103 00415000 * GPR15P) UNRESTRICTED; 0103 00416000 * 0103 00417000 * /*****************************************************************/ 00418000 * /* */ 00419000 * /* ENABLE */ 00420000 * /* */ 00421000 * /*****************************************************************/ 00422000 * 0104 00423000 * RFY 0104 00424000 * (GPR11P, 0104 00425000 * GPR12P, 0104 00426000 * GPR13P, 0104 00427000 * GPR14P) RSTD; 0104 00428000 * RFY 0105 00429000 * (GPR00P) RSTD; 0105 00430000 * GEN; 0106 00431000 LR @00,@13 SAVE REGISTER 13 IN REGISTER 00 00432000 TM0052 SETLOCK RELEASE,TYPE=DISP, X00433000 RELATED=(DISP,IRBMFTMA(TM0051)) 00434000 LR @13,@00 RESTORE REGISTER 13 00435000 * RFY 0107 00436000 * (GPR00P) UNRSTD; 0107 00437000 * RFY 0108 00438000 * (GPR11P, 0108 00439000 * GPR12P, 0108 00440000 * GPR13P, 0108 00441000 * GPR14P) UNRSTD; 0108 00442000 * 0108 00443000 */* RELEASE RESOURCES OBTAINED FOR EACH MEASUREMENT OPTION */ 00444000 * 0109 00445000 *TM0060: 0109 00446000 * 0109 00447000 * /*****************************************************************/ 00448000 * /* */ 00449000 * /* REPEAT RELEASING THESE RESOURCES UNTIL DONE */ 00450000 * /* */ 00451000 * /*****************************************************************/ 00452000 * 0109 00453000 * TMNEXTRS=ADDR(TM0060); /* NEXT RESOURCE RELEASING RETRY */ 00454000 TM0060 LA @12,TM0060 0109 00455000 ST @12,TMNEXTRS 0109 00456000 * IF CVTMFCTL=CNULLADR /* IF NO STGST TABLE EXISTS */ 00457000 * |STGSSCT=CNULLADR /* OR NO STSCT TABLE EXISTS */ 00458000 * |STSCMVT=CNULLADR /* OR NO STMVT TABLE EXISTS */ 00459000 * THEN 0110 00460000 SLR @12,@12 0110 00461000 L @11,CVTPTR 0110 00462000 L @11,CVTMFCTL(,@11) 0110 00463000 CR @11,@12 0110 00464000 BE @RT00110 0110 00465000 L @11,STGSSCT(,@11) 0110 00466000 CR @11,@12 0110 00467000 BE @RT00110 0110 00468000 C @12,STSCMVT(,@11) 0110 00469000 BE @RT00110 0110 00470000 * GOTO TM0070; /* SKIP THIS FUNCTION */ 00471000 * 0111 00472000 * /*****************************************************************/ 00473000 * /* */ 00474000 * /* LOOP THROUGH MEASUREMENT OPTION VECOTR TABLE STMVT */ 00475000 * /* */ 00476000 * /*****************************************************************/ 00477000 * 0112 00478000 * DO I=1 TO STMVNUM; 0112 00479000 LA I,1 0112 00480000 B @DE00112 0112 00481000 @DL00112 DS 0H 0113 00482000 * IF STMVADD(I)->STSMOPT^=0 /* IF OPTION SPECIFIED, DO */ 00483000 * THEN 0113 00484000 LR @12,I 0113 00485000 SLA @12,2 0113 00486000 L @11,CVTPTR 0113 00487000 L @11,CVTMFCTL(,@11) 0113 00488000 L @11,STGSSCT(,@11) 0113 00489000 L @11,STSCMVT(,@11) 0113 00490000 L @12,STMVADD-4(@12,@11) 0113 00491000 ICM @11,15,STSMOPT(@12) 0113 00492000 BZ @RF00113 0113 00493000 * DO; /* CALL TERMINATION */ 00494000 * 0114 00495000 * /***********************************************************/ 00496000 * /* */ 00497000 * /* LOAD TERMINATION ROUTINE */ 00498000 * /* */ 00499000 * /***********************************************************/ 00500000 * 0115 00501000 * TMDWORD=STMVADD(I)->STSMTERM;/* GET EPLOC FOR LOAD */ 00502000 * 0115 00503000 MVC TMDWORD(8),STSMTERM(@12) 0115 00504000 * /***********************************************************/ 00505000 * /* */ 00506000 * /* MACDATE Y-2 73018 */ 00507000 * /* */ 00508000 * /***********************************************************/ 00509000 * 0116 00510000 * RESPECIFY 0116 00511000 * (GPR00P, 0116 00512000 * GPR01P, 0116 00513000 * GPR14P, 0116 00514000 * GPR15P) RESTRICTED; 0116 00515000 * GEN REFS(TMDWORD); 0117 00516000 LOAD EPLOC=TMDWORD 00517000 * TMMODEPA=GPR00P; 0118 00518000 * 0118 00519000 ST GPR00P,TMMODEPA 0118 00520000 * /***********************************************************/ 00521000 * /* */ 00522000 * /* MACDATE Y-2 73018 */ 00523000 * /* */ 00524000 * /***********************************************************/ 00525000 * 0119 00526000 * RESPECIFY 0119 00527000 * (GPR00P, 0119 00528000 * GPR01P, 0119 00529000 * GPR14P, 0119 00530000 * GPR15P) UNRESTRICTED; 0119 00531000 * 0119 00532000 * /***********************************************************/ 00533000 * /* */ 00534000 * /* CALL TERMINATION ROUTINE */ 00535000 * /* */ 00536000 * /***********************************************************/ 00537000 * 0120 00538000 * CALL IRBMFTXX(STMVADD(I)->STSMRVT/* RESOURCE VECTOR TABLE */ 00539000 * ->STRVT,STMVADD(I)->STSMIGMC/* R0,R1 OF REGISTER FORM 00540000 * OF FREEMAIN FOR LAST WRAP DATA*/ 00541000 * ); 0120 00542000 * 0120 00543000 LR @12,I 0120 00544000 SLA @12,2 0120 00545000 L @11,CVTPTR 0120 00546000 L @11,CVTMFCTL(,@11) 0120 00547000 L @11,STGSSCT(,@11) 0120 00548000 L @11,STSCMVT(,@11) 0120 00549000 L @12,STMVADD-4(@12,@11) 0120 00550000 L @11,STSMRVT(,@12) 0120 00551000 ST @11,@AL00001 0120 00552000 LA @12,STSMIGMC(,@12) 0120 00553000 ST @12,@AL00001+4 0120 00554000 L @12,TMMODEPA 0120 00555000 LR @15,@12 0120 00556000 LA @01,@AL00001 0120 00557000 BALR @14,@15 0120 00558000 * /***********************************************************/ 00559000 * /* */ 00560000 * /* DELETE TERMINATION ROUTINE MACDATE Y-2 73018 */ 00561000 * /* */ 00562000 * /***********************************************************/ 00563000 * 0121 00564000 * RESPECIFY 0121 00565000 * (GPR00P, 0121 00566000 * GPR01P, 0121 00567000 * GPR14P, 0121 00568000 * GPR15P) RESTRICTED; 0121 00569000 * GEN REFS(TMDWORD); 0122 00570000 * 0122 00571000 DELETE EPLOC=TMDWORD 00572000 * /***********************************************************/ 00573000 * /* */ 00574000 * /* MACDATE Y-2 73018 */ 00575000 * /* */ 00576000 * /***********************************************************/ 00577000 * 0123 00578000 * RESPECIFY 0123 00579000 * (GPR00P, 0123 00580000 * GPR01P, 0123 00581000 * GPR14P, 0123 00582000 * GPR15P) UNRESTRICTED; 0123 00583000 * END; /* END IF */ 00584000 * END; /* END DO */ 00585000 @RF00113 AH I,@CH00070 0125 00586000 @DE00112 L @12,CVTPTR 0125 00587000 L @12,CVTMFCTL(,@12) 0125 00588000 L @12,STGSSCT(,@12) 0125 00589000 L @12,STSCMVT(,@12) 0125 00590000 C I,STMVNUM(,@12) 0125 00591000 BNH @DL00112 0125 00592000 */* FREE MFROUTER MG VECTOR TABLE (STGSMMV) */ 00593000 * 0126 00594000 *TM0070: 0126 00595000 * TMNEXTRS=ADDR(TM0075); /* RETRY RELEASING NEXT RESOURCE */ 00596000 TM0070 LA @12,TM0075 0126 00597000 ST @12,TMNEXTRS 0126 00598000 * IF CVTMFCTL=CNULLADR /* IF NO STGST TABLE EXISTS */ 00599000 * |STGSMMV=CNULLADR /* OR NO STMMV TABLE EXISTS */ 00600000 * |STGSSCT=CNULLADR /* OR NO STSCT TABLE EXISTS */ 00601000 * THEN 0127 00602000 SLR @12,@12 0127 00603000 L @11,CVTPTR 0127 00604000 L @11,CVTMFCTL(,@11) 0127 00605000 CR @11,@12 0127 00606000 BE @RT00127 0127 00607000 L @08,STGSMMV(,@11) 0127 00608000 CR @08,@12 0127 00609000 BE @RT00127 0127 00610000 L @11,STGSSCT(,@11) 0127 00611000 CR @11,@12 0127 00612000 BE @RT00127 0127 00613000 * GOTO TM0075; /* SKIP THIS FUNCTION */ 00614000 * 0128 00615000 * /*****************************************************************/ 00616000 * /* */ 00617000 * /* MACDATE Y-2 73018 */ 00618000 * /* */ 00619000 * /*****************************************************************/ 00620000 * 0129 00621000 * RESPECIFY 0129 00622000 * (GPR00P, 0129 00623000 * GPR01P, 0129 00624000 * GPR14P, 0129 00625000 * GPR15P) RESTRICTED; 0129 00626000 * GPR00P=STSCMSRG; /* STMMV SUBPOOL & LENGTH */ 00627000 L GPR00P,STSCMSRG(,@11) 0130 00628000 * GPR01P=STGSMMV; /* STMMV ADDRESS */ 00629000 LR GPR01P,@08 0131 00630000 * GEN; 0132 00631000 * 0132 00632000 FREEMAIN R,LV=(0),A=(1) FREEMAIN 00633000 * /*****************************************************************/ 00634000 * /* */ 00635000 * /* MACDATE Y-2 73018 */ 00636000 * /* */ 00637000 * /*****************************************************************/ 00638000 * 0133 00639000 * RESPECIFY 0133 00640000 * (GPR00P, 0133 00641000 * GPR01P, 0133 00642000 * GPR14P, 0133 00643000 * GPR15P) UNRESTRICTED; 0133 00644000 * 0133 00645000 */* FREE LOCAL PAGABLE STORAGE */ 00646000 * 0134 00647000 *TM0075: 0134 00648000 * TMNEXTRS=ADDR(TM0080); /* RETRY RELEASING NEXT RESOURCE */ 00649000 TM0075 LA @12,TM0080 0134 00650000 ST @12,TMNEXTRS 0134 00651000 * IF CVTMFCTL=0 /* NO STGST TABLE */ 00652000 * |STGSSCT=0 /* NO STSCT TABLE */ 00653000 * THEN 0135 00654000 SLR @12,@12 0135 00655000 L @11,CVTPTR 0135 00656000 L @11,CVTMFCTL(,@11) 0135 00657000 CR @11,@12 0135 00658000 BE @RT00135 0135 00659000 L @11,STGSSCT(,@11) 0135 00660000 CR @11,@12 0135 00661000 BE @RT00135 0135 00662000 * GOTO TM0080; /* SKIP THIS FUNCTION */ 00663000 * 0136 00664000 * /*****************************************************************/ 00665000 * /* */ 00666000 * /* MACDATE Y-2 73018 */ 00667000 * /* */ 00668000 * /*****************************************************************/ 00669000 * 0137 00670000 * RESPECIFY 0137 00671000 * (GPR00P, 0137 00672000 * GPR01P, 0137 00673000 * GPR14P, 0137 00674000 * GPR15P) RESTRICTED; 0137 00675000 * GPR01P=STGSSCT; /* MAIN STORAGE ADDRESS */ 00676000 LR GPR01P,@11 0138 00677000 * GPR00P=STSCLSRG; /* SUBPOOL AND LENGTH */ 00678000 L GPR00P,STSCLSRG(,@11) 0139 00679000 * TMGSRG=STSCGSRG; /* SAVE GLOBAL STORAGE SP & LEN */ 00680000 MVC TMGSRG(4),STSCGSRG(@11) 0140 00681000 * GEN; 0141 00682000 * 0141 00683000 FREEMAIN R,LV=(0),A=(1) 00684000 * /*****************************************************************/ 00685000 * /* */ 00686000 * /* MACDATE Y-2 73018 */ 00687000 * /* */ 00688000 * /*****************************************************************/ 00689000 * 0142 00690000 * RESPECIFY 0142 00691000 * (GPR00P, 0142 00692000 * GPR01P, 0142 00693000 * GPR14P, 0142 00694000 * GPR15P) UNRESTRICTED; 0142 00695000 * 0142 00696000 */* FREE GLOBAL FIXED STORAGE */ 00697000 * 0143 00698000 *TM0080: 0143 00699000 * TMNEXTRS=ADDR(TM0090); /* RETRY POINT FOR RELEASING NEXT 00700000 * RESOURCE */ 00701000 TM0080 LA @12,TM0090 0143 00702000 ST @12,TMNEXTRS 0143 00703000 * IF CVTMFCTL=CNULLADR /* IF NO STGST TABLE EXISTS */ 00704000 * |TMGSRG=CNOSPLEN /* OR NO STGST SP & LENGTH EXIST */ 00705000 * THEN 0144 00706000 SLR @12,@12 0144 00707000 L @11,CVTPTR 0144 00708000 L @11,CVTMFCTL(,@11) 0144 00709000 CR @11,@12 0144 00710000 BE @RT00144 0144 00711000 L @08,TMGSRG 0144 00712000 CLR @08,@12 0144 00713000 BE @RT00144 0144 00714000 * GOTO TM0090; /* SKIP THIS FUNCTION */ 00715000 * 0145 00716000 * /*****************************************************************/ 00717000 * /* */ 00718000 * /* MACDATE Y-2 73018 */ 00719000 * /* */ 00720000 * /*****************************************************************/ 00721000 * 0146 00722000 * RESPECIFY 0146 00723000 * (GPR00P, 0146 00724000 * GPR01P, 0146 00725000 * GPR14P, 0146 00726000 * GPR15P) RESTRICTED; 0146 00727000 * GPR01P=CVTMFCTL; /* MAIN STORAGE ADDRESS */ 00728000 LR GPR01P,@11 0147 00729000 * GPR00P=TMGSRG; /* SP AND LENGTH SAVED FROM STSCT*/ 00730000 LR GPR00P,@08 0148 00731000 * GEN; 0149 00732000 * 0149 00733000 FREEMAIN R,LV=(0),A=(1) 00734000 * /*****************************************************************/ 00735000 * /* */ 00736000 * /* MACDATE Y-2 73018 */ 00737000 * /* */ 00738000 * /*****************************************************************/ 00739000 * 0150 00740000 * RESPECIFY 0150 00741000 * (GPR00P, 0150 00742000 * GPR01P, 0150 00743000 * GPR14P, 0150 00744000 * GPR15P) UNRESTRICTED; 0150 00745000 * 0150 00746000 */* DEQ MF/1 ENQ RESOURCE. */ 00747000 * 0151 00748000 *TM0090: 0151 00749000 * TMNEXTRS=ADDR(TM0100); /* RETRY POINT FOR RELEASING NEXT 00750000 * RESOURCE */ 00751000 TM0090 LA @12,TM0100 0151 00752000 ST @12,TMNEXTRS 0151 00753000 * IF CVTMFCTL=CNULLADR /* IF NO STGST TABLE EXISTS */ 00754000 * |STGSSCT=CNULLADR /* OR NO STSCT TABLE EXISTS */ 00755000 * THEN 0152 00756000 SLR @12,@12 0152 00757000 L @11,CVTPTR 0152 00758000 L @11,CVTMFCTL(,@11) 0152 00759000 CR @11,@12 0152 00760000 BE @RT00152 0152 00761000 L @11,STGSSCT(,@11) 0152 00762000 CR @11,@12 0152 00763000 BE @RT00152 0152 00764000 * GOTO TM0100; /* SKIP THIS FUNCTION. */ 00765000 * IF STSCMENQ=CENQX13 THEN /* IF ENQ OBTAINED BY IGX00013, */ 00766000 TM STSCMENQ(@11),B'00000001' 0154 00767000 BNO @RF00154 0154 00768000 * DO; /* DEQ IT. */ 00769000 * 0155 00770000 * /*************************************************************/ 00771000 * /* */ 00772000 * /* MACDATE Y-2 73018 */ 00773000 * /* */ 00774000 * /*************************************************************/ 00775000 * 0156 00776000 * RESPECIFY 0156 00777000 * (GPR00P, 0156 00778000 * GPR01P, 0156 00779000 * GPR14P, 0156 00780000 * GPR15P) RESTRICTED; 0156 00781000 * GEN REFS(TMDEQAPL); 0157 00782000 * 0157 00783000 DEQ MF=(E,TMDEQAPL) 00784000 * /*************************************************************/ 00785000 * /* */ 00786000 * /* MACDATE Y-2 73018 */ 00787000 * /* */ 00788000 * /*************************************************************/ 00789000 * 0158 00790000 * RESPECIFY 0158 00791000 * (GPR00P, 0158 00792000 * GPR01P, 0158 00793000 * GPR14P, 0158 00794000 * GPR15P) UNRESTRICTED; 0158 00795000 * END; 0159 00796000 * 0159 00797000 */* ZERO CVT POINTER TO STGST TO ALLOW MF/1 TO BE RESTARTED. */ 00798000 * 0160 00799000 *TM0100: 0160 00800000 * TMNEXTRS=ADDR(TM9000); /* RETRY RETURNS TO CALLER */ 00801000 @RF00154 DS 0H 0160 00802000 TM0100 LA @12,TM9000 0160 00803000 ST @12,TMNEXTRS 0160 00804000 * CVTMFCTL=CNULLADR; /* SHOW GST TABLE DOES NOT EXIST */ 00805000 L @12,CVTPTR 0161 00806000 SLR @11,@11 0161 00807000 ST @11,CVTMFCTL(,@12) 0161 00808000 */* RETURN TO CALLER */ 00809000 * 0162 00810000 *TM9000: 0162 00811000 * 0162 00812000 * /*****************************************************************/ 00813000 * /* */ 00814000 * /* CANCEL ESTAE ROUTINE MACDATE Y-2 73018 */ 00815000 * /* */ 00816000 * /*****************************************************************/ 00817000 * 0162 00818000 * RESPECIFY 0162 00819000 * (GPR00P, 0162 00820000 * GPR01P, 0162 00821000 * GPR14P, 0162 00822000 * GPR15P) RESTRICTED; 0162 00823000 TM9000 DS 0H 0163 00824000 * GEN REFS(TMESTAPL); 0163 00825000 * 0163 00826000 ESTAE 0,MF=(E,TMESTAPL) 00827000 * /*****************************************************************/ 00828000 * /* */ 00829000 * /* MACDATE Y-2 73018 */ 00830000 * /* */ 00831000 * /*****************************************************************/ 00832000 * 0164 00833000 * RESPECIFY 0164 00834000 * (GPR00P, 0164 00835000 * GPR01P, 0164 00836000 * GPR14P, 0164 00837000 * GPR15P) UNRESTRICTED; 0164 00838000 * IF TMRETRYF=CSET THEN /* IF RETRY HAS OCCURRED */ 00839000 TM TMRETRYF,B'10000000' 0165 00840000 BNO @RF00165 0165 00841000 * DO; 0166 00842000 * 0166 00843000 * /*************************************************************/ 00844000 * /* */ 00845000 * /* MACDATE Y-2 73018 */ 00846000 * /* */ 00847000 * /*************************************************************/ 00848000 * 0167 00849000 * RESPECIFY 0167 00850000 * (GPR00P, 0167 00851000 * GPR01P, 0167 00852000 * GPR14P, 0167 00853000 * GPR15P) RESTRICTED; 0167 00854000 * GPR01P=SDWAPTR; /* BASE REG FOR SETRP EXPANSION */ 00855000 L GPR01P,SDWAPTR 0168 00856000 * GEN; 0169 00857000 CLC TMSDWAF(1),CSDWAYES DOES SDWA EXIST 00858000 BNE TM9900 NO, DO NOT ISSUE SETRP 00859000 * YES, ISSUE SETRP MACRO 00860000 * SDWACMPC=TMORIGCC; /* ORIGINAL ERROR IS PERCOLATED 00861000 * BACK. */ 00862000 L @12,SDWAPTR 0170 00863000 MVC SDWACMPC(3,@12),TMORIGCC 0170 00864000 * DO; /* SETRP RC(0)DUMP(YES) */ 00865000 * RESPECIFY 0172 00866000 * (GPR00P, 0172 00867000 * GPR01P, 0172 00868000 * GPR14P, 0172 00869000 * GPR15P) RSTD; 0172 00870000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00871000 MVI SDWARCDE(GPR01P),X'00' 0173 00872000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00873000 OI SDWAREQ(GPR01P),B'10000000' 0174 00874000 * RESPECIFY 0175 00875000 * (GPR00P, 0175 00876000 * GPR01P, 0175 00877000 * GPR14P, 0175 00878000 * GPR15P) UNRSTD; 0175 00879000 * END; /* CONTINUE WITH TERMINATION */ 00880000 * RFY 0177 00881000 * SDWA BASED(SDWAPTR); 0177 00882000 *TM9900: 0178 00883000 * ; /* NO SDWA. */ 00884000 * 0178 00885000 TM9900 DS 0H 0179 00886000 * /*************************************************************/ 00887000 * /* */ 00888000 * /* MACDATE Y-2 73018 */ 00889000 * /* */ 00890000 * /*************************************************************/ 00891000 * 0179 00892000 * RESPECIFY 0179 00893000 * (GPR00P, 0179 00894000 * GPR01P, 0179 00895000 * GPR14P, 0179 00896000 * GPR15P) UNRESTRICTED; 0179 00897000 * END; 0180 00898000 * RETURN CODE(0); /* IF NO SDWA, 0 MEANS CONTINUE 00899000 * WITH TERMINATION */ 00900000 @RF00165 L @13,4(,@13) 0181 00901000 L @00,@SIZDATD 0181 00902000 LR @01,@10 0181 00903000 FREEMAIN R,LV=(0),A=(1) 00904000 SLR @15,@15 0181 00905000 L @14,12(,@13) 0181 00906000 LM @00,@12,20(@13) 0181 00907000 BR @14 0181 00908000 *IRBMFTXR: /* TERMINATION MAINLINE ESTAE 0182 00909000 * RECOVERY ROUTINE */ 00910000 * 0182 00911000 * /*****************************************************************/ 00912000 * /* */ 00913000 * /* MACDATE Y-2 73018 */ 00914000 * /* */ 00915000 * /*****************************************************************/ 00916000 * 0182 00917000 * RESPECIFY 0182 00918000 * (GPR00P, 0182 00919000 * GPR01P, 0182 00920000 * GPR14P, 0182 00921000 * GPR15P) RESTRICTED; 0182 00922000 IRBMFTXR DS 0H 0183 00923000 * RFY 0183 00924000 * (GPR02P, 0183 00925000 * GPR03P) RSTD; 0183 00926000 * GEN SETS(SDWAPTR); 0184 00927000 DROP GPRDAT,GPRCOD NO CODE/DATA REGS AT ESTAE ENTRY 00928000 BALR @15,0 00929000 USING *,@15 00930000 IC @03,CSDWANO ASSUME NO SDWA EXISTS. 00931000 C @00,FNOSDWA DOES SDWA EXIST 00932000 BE TX0500 NO 00933000 * YES. GET CODE & DATA REG ADDRESS 00934000 IC @03,CSDWAYES REMEMBER SDWA EXISTS. 00935000 L @02,0(0,@01) LOAD PARAMETER LIST ADDRESS 00936000 SPACE 00937000 TX0500 DS 0H 00938000 USING TMESTPPL,@02 PARAMETER LIST 00939000 L GPRCOD,TMESTCOD RESET CODE BASE REG 00940000 L GPRDAT,TMESTDAT RESET DATA BASE REG 00941000 DROP @02 00942000 DROP @15 00943000 USING @PSTART,GPRCOD 00944000 USING @DATD,GPRDAT 00945000 STC @03,TMSDWAF REMEMBER SDWA EXISTENCE STATE. 00946000 LA @13,@SA00001 RESET SAVE AREA ADDRESS 00947000 L @13,@SA00001+4 GET CALLERS SAVE AREA 00948000 ST @14,12(@13) SET NEW RETURN LOC IN SAVE AREA 00949000 LA @13,@SA00001 RESET SAVE AREA ADDRESS 00950000 ST GPR01P,SDWAPTR SAVE FOR SETRP USAGE 00951000 ESTAE PARAM=TMESTPPL,MF=(E,TMESTAPL) ESTABLISH NEXT LEVEL 00952000 * GEN DATA; 0185 00953000 * RFY 0186 00954000 * (GPR02P, 0186 00955000 * GPR03P) UNRSTD; 0186 00956000 * 0186 00957000 * /*****************************************************************/ 00958000 * /* */ 00959000 * /* MACDATE Y-2 73018 */ 00960000 * /* */ 00961000 * /*****************************************************************/ 00962000 * 0187 00963000 * RESPECIFY 0187 00964000 * (GPR00P, 0187 00965000 * GPR01P, 0187 00966000 * GPR14P, 0187 00967000 * GPR15P) UNRESTRICTED; 0187 00968000 * IF TMRETRYF=CCLEAR THEN /* IF THIS IS FIRST ERROR */ 00969000 TM TMRETRYF,B'10000000' 0188 00970000 BNZ @RF00188 0188 00971000 * TMORIGCC=SDWACMPC; /* SAVE REASON FOR ERROR, THE 0189 00972000 * COMPLETION CODES. */ 00973000 L @12,SDWAPTR 0189 00974000 MVC TMORIGCC(3),SDWACMPC(@12) 0189 00975000 * TMRETRYF=CSET; /* RETURN VIA SETRP TO RTM */ 00976000 @RF00188 OI TMRETRYF,B'10000000' 0190 00977000 * TMRETRYC=TMRETRYC-1; /* COUNT DOWN THIS RETRY ATTEMPT */ 00978000 L @12,TMRETRYC 0191 00979000 BCTR @12,0 0191 00980000 ST @12,TMRETRYC 0191 00981000 * IF TMRETRYC<0 THEN /* IF IN ENDLESS LOOP, RETURN */ 00982000 LTR @12,@12 0192 00983000 BM @RT00192 0192 00984000 * GOTO TM9000; 0193 00985000 * GOTO TMRETRYL; /* RELEASE NEXT RESOURCE */ 00986000 L @12,TMNEXTRS 0194 00987000 BR @12 0194 00988000 * END IRBMFTMA 0195 00989000 * 0195 00990000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00991000 */*%INCLUDE SYSLIB (IHACSD ) */ 00992000 */*%INCLUDE SYSLIB (CVT ) */ 00993000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00994000 */*%INCLUDE SYSLIB (IHAPCCAT) */ 00995000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00996000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00997000 */*%INCLUDE SYSLIB (IEAVVTPC) */ 00998000 * 0195 00999000 * ; 0195 01000000 @DATA DS 0H 01001000 @CH00070 DC H'1' 01002000 DS 0F 01003000 @AL00082 DC A(@CB01645) LIST WITH 1 ARGUMENT(S) 01004000 @DATD DSECT 01005000 DS 0F 01006000 @SA00001 DS 18F 01007000 @AL00001 DS 2A 01008000 IRBMFTMA CSECT 01009000 DS 0F 01010000 @CF01697 DC F'-4' 01011000 @CF01694 DC BL4'01111111111111111111111111111111' 01012000 @DATD DSECT 01013000 DS 0D 01014000 SDWAPTR DS A 01015000 TMMODEPA DS A 01016000 TMCSCLA DS A 01017000 TMGSRG DS F 01018000 TMNEXTRS DS A 01019000 TMRETRYC DS F 01020000 SXCPUNUM DS H 01021000 TMDWORD DS CL8 01022000 DS CL2 01023000 TMESTPPL DS CL8 01024000 ORG TMESTPPL 01025000 TMESTCOD DS AL4 01026000 TMESTDAT DS AL4 01027000 ORG TMESTPPL+8 01028000 TMORIGCC DS CL3 01029000 TMRETRYF DS BL1 01030000 TMDEQAPL DS CL16 01031000 TMEXTAPL DS CL16 01032000 TMESTAPL DS CL16 01033000 TMSDWAF DS CL1 01034000 IRBMFTMA CSECT 01035000 DS 0F 01036000 @SIZDATD DC AL1(0) 01037000 DC AL3(@ENDDATD-@DATD) 01038000 @CV01612 DC V(IRBMFFUR) 01039000 @CV01613 DC V(IRBMFIOI) 01040000 DS 0D 01041000 @CB01645 DC B'00000000' 01042000 TMQNAME DC CL8'SYSZRBMF' 01043000 TMRNAME DC CL6'ACTIVE' 01044000 TMPATCH DS CL100 01045000 IRBMFTMA CSECT 01046000 TMDEQSPL DEQ (TMQNAME,TMRNAME),SYSTEM,MF=L 01047000 IRBMFTMA CSECT 01048000 TMESTSPL ESTAE IRBMFTXR,TERM=YES,RECORD=YES,MF=L 01049000 IRBMFTMA CSECT 01050000 * /* @ZA00276*/ 01051000 TMEXTSPL EXTRACT ,'S',FIELDS=(COMM),MF=L STATIC PARAMETER LST @ZA00276 01052000 @DATD DSECT 01053000 IRBMFTMA CSECT 01054000 FNOSDWA DC F'12' NO SDWA EXISTS 01055000 CSDWANO DC X'80' FLAG FOR SDWA NONEXISTENT 01056000 CSDWAYES DC X'00' FLAG FOR SDWA EXISTS 01057000 @DATD DSECT 01058000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01059000 @ENDDATD EQU * 01060000 IRBMFTMA CSECT 01061000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01062000 @01 EQU 01 01063000 @02 EQU 02 01064000 @03 EQU 03 01065000 @04 EQU 04 01066000 @05 EQU 05 01067000 @06 EQU 06 01068000 @07 EQU 07 01069000 @08 EQU 08 01070000 @09 EQU 09 01071000 @10 EQU 10 01072000 @11 EQU 11 01073000 @12 EQU 12 01074000 @13 EQU 13 01075000 @14 EQU 14 01076000 @15 EQU 15 01077000 I EQU @04 01078000 FRREPTR EQU @04 01079000 FRRSPTR EQU @04 01080000 GPRCOD EQU @09 01081000 GPRDAT EQU @10 01082000 GPR00P EQU @00 01083000 GPR01P EQU @01 01084000 GPR14P EQU @14 01085000 GPR15P EQU @15 01086000 GPR02P EQU @02 01087000 GPR03P EQU @03 01088000 GPR11P EQU @11 01089000 GPR12P EQU @12 01090000 GPR13P EQU @13 01091000 GPR00F EQU @00 01092000 GPR01F EQU @01 01093000 GPR14F EQU @14 01094000 GPR15F EQU @15 01095000 PSA EQU 0 01096000 FLCRNPSW EQU PSA 01097000 FLCROPSW EQU PSA+8 01098000 FLCICCW2 EQU PSA+16 01099000 FLCCVT EQU FLCICCW2 01100000 PSAEEPSW EQU PSA+132 01101000 PSAESPSW EQU PSA+136 01102000 FLCSVILC EQU PSAESPSW+1 01103000 PSAEPPSW EQU PSA+140 01104000 FLCPIILC EQU PSAEPPSW+1 01105000 FLCPICOD EQU PSAEPPSW+2 01106000 PSAPICOD EQU FLCPICOD+1 01107000 FLCTEA EQU PSAEPPSW+4 01108000 FLCPER EQU PSA+152 01109000 FLCMCLA EQU PSA+168 01110000 FLCIOEL EQU FLCMCLA+4 01111000 FLCIOA EQU FLCMCLA+16 01112000 FLCFSA EQU FLCMCLA+80 01113000 PSASUPER EQU PSA+552 01114000 PSASUP1 EQU PSASUPER 01115000 PSASUP2 EQU PSASUPER+1 01116000 PSASUP3 EQU PSASUPER+2 01117000 PSASUP4 EQU PSASUPER+3 01118000 PSACLHT EQU PSA+640 01119000 PSALKSA EQU PSA+696 01120000 PSAHLHI EQU PSA+760 01121000 PSADSSFL EQU PSA+836 01122000 PSADSSF1 EQU PSADSSFL 01123000 PSADSSF3 EQU PSADSSFL+2 01124000 PSADSSF4 EQU PSADSSFL+3 01125000 PSARSVT EQU PSA+896 01126000 CSD EQU 0 01127000 CSDCPUAL EQU CSD+8 01128000 CSDSCWRD EQU CSD+12 01129000 CSDSCFL1 EQU CSDSCWRD 01130000 CSDSCFL2 EQU CSDSCWRD+1 01131000 CSDSCFL3 EQU CSDSCWRD+2 01132000 CSDSCFL4 EQU CSDSCWRD+3 01133000 CSDFLAGS EQU CSD+23 01134000 CVTMAP EQU 0 01135000 CVTDAR EQU CVTMAP+72 01136000 CVTFLGS1 EQU CVTDAR 01137000 CVTBRET EQU CVTMAP+82 01138000 CVTTPC EQU CVTMAP+88 01139000 CVTQTD00 EQU CVTMAP+108 01140000 CVTDCB EQU CVTMAP+116 01141000 CVTIERLC EQU CVTMAP+144 01142000 CVTOPTA EQU CVTMAP+182 01143000 CVTOPTB EQU CVTMAP+183 01144000 CVTGTF EQU CVTMAP+236 01145000 CVTGTFST EQU CVTGTF 01146000 CVTGTFS EQU CVTGTFST 01147000 CVTSTATE EQU CVTGTFST 01148000 CVTTMODE EQU CVTGTFST 01149000 CVTFORM EQU CVTGTFST 01150000 CVTAQAVT EQU CVTMAP+240 01151000 CVTTCMFG EQU CVTAQAVT 01152000 CVTVOLM2 EQU CVTMAP+244 01153000 CVTTATA EQU CVTVOLM2 01154000 CVTTSKS EQU CVTTATA 01155000 CVTVOLF2 EQU CVTTSKS 01156000 CVTTAT EQU CVTTATA+1 01157000 CVTATER EQU CVTMAP+248 01158000 CVTEXT1 EQU CVTMAP+252 01159000 CVTPURG EQU CVTMAP+260 01160000 CVTQMSG EQU CVTMAP+268 01161000 CVTDMSR EQU CVTMAP+272 01162000 CVTRSV37 EQU CVTDMSR 01163000 CVTDMSRF EQU CVTRSV37 01164000 CVTERPV EQU CVTMAP+316 01165000 CVTINTLA EQU CVTMAP+320 01166000 CVTAPF EQU CVTMAP+324 01167000 CVTEXT2 EQU CVTMAP+328 01168000 CVTHJES EQU CVTMAP+332 01169000 CVTPGSIA EQU CVTMAP+348 01170000 CVTA1F1 EQU CVTMAP+356 01171000 CVTSYSK EQU CVTMAP+357 01172000 CVTVOLM1 EQU CVTMAP+380 01173000 CVTVOLF1 EQU CVTVOLM1 01174000 CVTATMCT EQU CVTMAP+388 01175000 CVTXTNT1 EQU 0 01176000 CVTXTNT2 EQU 0 01177000 CVTDSSV EQU CVTXTNT2 01178000 CVTFLGBT EQU CVTXTNT2+5 01179000 CVTQID EQU CVTXTNT2+24 01180000 CVTRV400 EQU CVTXTNT2+52 01181000 CVTRV409 EQU CVTXTNT2+53 01182000 CVTATCVT EQU CVTXTNT2+64 01183000 CVTRV429 EQU CVTXTNT2+84 01184000 CVTRV438 EQU CVTXTNT2+85 01185000 CVTRV457 EQU CVTXTNT2+112 01186000 CVTRV466 EQU CVTXTNT2+113 01187000 CVTFIX EQU 0 01188000 CVTRELNO EQU CVTFIX+252 01189000 FRRS EQU 0 01190000 FRRSHEAD EQU FRRS 01191000 FRRSENTR EQU 0 01192000 FRRSFLGS EQU FRRSENTR+4 01193000 FRRSFLG1 EQU FRRSFLGS 01194000 PCCAVT EQU 0 01195000 PCCAT00P EQU PCCAVT 01196000 SDWA EQU 0 01197000 SDWAFIOB EQU SDWA+4 01198000 SDWAABCC EQU SDWAFIOB 01199000 SDWACMPF EQU SDWAABCC 01200000 SDWAREQ EQU SDWACMPF 01201000 SDWACMPC EQU SDWAABCC+1 01202000 SDWACTL1 EQU SDWA+8 01203000 SDWACMKA EQU SDWACTL1 01204000 SDWAMWPA EQU SDWACTL1+1 01205000 SDWAPMKA EQU SDWACTL1+4 01206000 SDWACTL2 EQU SDWA+16 01207000 SDWACMKP EQU SDWACTL2 01208000 SDWAMWPP EQU SDWACTL2+1 01209000 SDWAPMKP EQU SDWACTL2+4 01210000 SDWAGRSV EQU SDWA+24 01211000 SDWANAME EQU SDWA+88 01212000 SDWAEC1 EQU SDWA+104 01213000 SDWAEMK1 EQU SDWAEC1 01214000 SDWAMWP1 EQU SDWAEC1+1 01215000 SDWAINT1 EQU SDWAEC1+2 01216000 SDWANXT1 EQU SDWAEC1+4 01217000 SDWAAEC1 EQU SDWA+112 01218000 SDWAILC1 EQU SDWAAEC1+1 01219000 SDWAINC1 EQU SDWAAEC1+2 01220000 SDWAICD1 EQU SDWAINC1+1 01221000 SDWAEC2 EQU SDWA+120 01222000 SDWAEMK2 EQU SDWAEC2 01223000 SDWAMWP2 EQU SDWAEC2+1 01224000 SDWAINT2 EQU SDWAEC2+2 01225000 SDWANXT2 EQU SDWAEC2+4 01226000 SDWAAEC2 EQU SDWA+128 01227000 SDWAILC2 EQU SDWAAEC2+1 01228000 SDWAINC2 EQU SDWAAEC2+2 01229000 SDWAICD2 EQU SDWAINC2+1 01230000 SDWASRSV EQU SDWA+136 01231000 SDWAIDNT EQU SDWA+200 01232000 SDWAMCH EQU SDWA+204 01233000 SDWASTCK EQU SDWAMCH 01234000 SDWAMCHI EQU SDWAMCH+8 01235000 SDWAMCHS EQU SDWAMCHI 01236000 SDWAMCHD EQU SDWAMCHI+1 01237000 SDWARSR1 EQU SDWAMCH+12 01238000 SDWARSR2 EQU SDWAMCH+13 01239000 SDWAFLGS EQU SDWA+232 01240000 SDWAERRA EQU SDWAFLGS 01241000 SDWAERRB EQU SDWAFLGS+1 01242000 SDWAERRC EQU SDWAFLGS+2 01243000 SDWAERRD EQU SDWAFLGS+3 01244000 SDWAIOFS EQU SDWA+238 01245000 SDWACPUA EQU SDWA+248 01246000 SDWAPARQ EQU SDWA+252 01247000 SDWARCDE EQU SDWAPARQ 01248000 SDWAACF2 EQU SDWAPARQ+1 01249000 SDWAACF3 EQU SDWAPARQ+2 01250000 SDWAACF4 EQU SDWAPARQ+3 01251000 SDWALKWA EQU SDWA+256 01252000 SDWALKWS EQU SDWALKWA 01253000 SDWARECP EQU SDWA+292 01254000 SDWASNPA EQU SDWA+320 01255000 SDWADUMP EQU SDWASNPA 01256000 SDWADPFS EQU SDWADUMP+1 01257000 SDWADDAT EQU SDWASNPA+4 01258000 SDWASDAT EQU SDWADDAT 01259000 SDWAPDAT EQU SDWADDAT+2 01260000 SDWADPSA EQU SDWA+328 01261000 SDWADPSL EQU SDWADPSA 01262000 SDWARA EQU SDWA+400 01263000 SDWADPVA EQU SDWARA+2 01264000 TPC EQU 0 01265000 IEATPC EQU TPC 01266000 TPCFLGS1 EQU IEATPC+4 01267000 TPCHDCCQ EQU IEATPC+12 01268000 TPCDMTQE EQU IEATPC+16 01269000 DFD EQU TPCDMTQE+4 01270000 TPCMNTQE EQU IEATPC+40 01271000 MNIGHT EQU TPCMNTQE+16 01272000 TPCMFTQE EQU IEATPC+64 01273000 IEATSELM EQU IEATPC+88 01274000 TPCLMTQE EQU IEATPC+112 01275000 TPCWORK EQU IEATPC+264 01276000 STGST EQU 0 01277000 STGSSCT EQU STGST+4 01278000 STGSMMV EQU STGST+16 01279000 STMVT EQU 0 01280000 STMVNUM EQU STMVT 01281000 STMVOPT EQU STMVT+4 01282000 STSCT EQU 0 01283000 STSCMVT EQU STSCT+4 01284000 STSCFLAG EQU STSCT+14 01285000 STSCMENQ EQU STSCFLAG+1 01286000 STSCMVSG EQU STSCT+32 01287000 STSCLSRG EQU STSCT+40 01288000 STSCMSRG EQU STSCT+44 01289000 STSCGSRG EQU STSCT+48 01290000 STSMA EQU 0 01291000 STSMOPT EQU STSMA 01292000 STSMOFLG EQU STSMOPT+3 01293000 STSMTERM EQU STSMA+12 01294000 STSMIGMC EQU STSMA+36 01295000 STSMRVT EQU STSMA+44 01296000 IEAQTD00 EQU 0 01297000 IRBMFTXX EQU 0 01298000 STRVT EQU 0 01299000 TMCSECB EQU 0 01300000 TMCSECBW EQU TMCSECB 01301000 TMCSCL EQU 0 01302000 TMCSECBA EQU TMCSCL 01303000 TMRETRYL EQU 0 01304000 IKEBC EQU 0 01305000 IKEBF15 EQU 0 01306000 IKEBF31 EQU 0 01307000 IKEBP15 EQU 0 01308000 IKEBP31 EQU 0 01309000 IKEBP8 EQU 0 01310000 CVTPTR EQU FLCCVT 01311000 CVTS01 EQU CVTPGSIA 01312000 CVTLPDIA EQU CVTS01+12 01313000 CVTDIRST EQU CVTLPDIA 01314000 CVTSLIDA EQU CVTS01+24 01315000 CVTCTLFG EQU CVTS01+50 01316000 CVTCSD EQU CVTS01+312 01317000 CVTPCCAT EQU CVTS01+416 01318000 CVTRV210 EQU CVTS01+424 01319000 CVTRV219 EQU CVTS01+425 01320000 CVTRV228 EQU CVTS01+426 01321000 CVTRV237 EQU CVTS01+427 01322000 CVTMFCTL EQU CVTS01+448 01323000 CVTMFRTR EQU CVTS01+452 01324000 CVTMFACT EQU CVTMFRTR 01325000 CVTRV262 EQU CVTS01+468 01326000 CVTRV271 EQU CVTS01+469 01327000 CVTRV280 EQU CVTS01+470 01328000 CVTRV289 EQU CVTS01+471 01329000 CVTGSDA EQU CVTS01+600 01330000 PSARSVTE EQU PSARSVT 01331000 TPCPTR EQU CVTTPC 01332000 STMVADD EQU STMVOPT 01333000 STSMB EQU STSMOPT 01334000 @NM00118 EQU STSMB+3 01335000 STSMDEVF EQU @NM00118 01336000 STSMC EQU STSMOPT 01337000 @NM00120 EQU STSMC+3 01338000 SXCPUBIT EQU SXCPUNUM 01339000 FLC EQU PSA 01340000 * START UNREFERENCED COMPONENTS 01341000 STSMWKLD EQU @NM00120 01342000 @NM00121 EQU @NM00120 01343000 @NM00119 EQU STSMC 01344000 STSMCRDR EQU STSMDEVF 01345000 STSMUNIT EQU STSMDEVF 01346000 STSMGRAP EQU STSMDEVF 01347000 STSMDA EQU STSMDEVF 01348000 STSMTP EQU STSMDEVF 01349000 STSMTAPE EQU STSMDEVF 01350000 @NM00117 EQU STSMB 01351000 PSARSAV EQU PSARSVTE+60 01352000 PSARSTK EQU PSARSVTE+56 01353000 PSAESAV3 EQU PSARSVTE+52 01354000 PSAESTK3 EQU PSARSVTE+48 01355000 PSAESAV2 EQU PSARSVTE+44 01356000 PSAESTK2 EQU PSARSVTE+40 01357000 PSAESAV1 EQU PSARSVTE+36 01358000 PSAESTK1 EQU PSARSVTE+32 01359000 PSAPSAV EQU PSARSVTE+28 01360000 PSAPSTK EQU PSARSVTE+24 01361000 PSAMSAV EQU PSARSVTE+20 01362000 PSAMSTK EQU PSARSVTE+16 01363000 PSASSAV EQU PSARSVTE+12 01364000 PSASSTK EQU PSARSVTE+8 01365000 PSANSTK EQU PSARSVTE+4 01366000 PSACSTK EQU PSARSVTE 01367000 CVTRV628 EQU CVTS01+728 01368000 CVTRV627 EQU CVTS01+724 01369000 CVTRV626 EQU CVTS01+720 01370000 CVTRV625 EQU CVTS01+716 01371000 CVTRV624 EQU CVTS01+712 01372000 CVTRV623 EQU CVTS01+708 01373000 CVTRV622 EQU CVTS01+704 01374000 CVTRV621 EQU CVTS01+700 01375000 CVTIHASU EQU CVTS01+696 01376000 CVTSUSP EQU CVTS01+692 01377000 CVTT6SVC EQU CVTS01+688 01378000 CVTCDAL EQU CVTS01+684 01379000 CVTTCTL EQU CVTS01+680 01380000 CVTRSUME EQU CVTS01+676 01381000 CVTJTERM EQU CVTS01+672 01382000 CVTASMRM EQU CVTS01+668 01383000 CVTTCASP EQU CVTS01+664 01384000 CVT0PT03 EQU CVTS01+660 01385000 CVT0PT0E EQU CVTS01+656 01386000 CVTRV609 EQU CVTS01+652 01387000 CVTCGK EQU CVTS01+648 01388000 CVTRAC EQU CVTS01+644 01389000 CVTRV606 EQU CVTS01+640 01390000 CVTRV605 EQU CVTS01+636 01391000 CVTRV604 EQU CVTS01+632 01392000 CVTEFF02 EQU CVTS01+628 01393000 CVTCBBR EQU CVTS01+624 01394000 CVTSSCR EQU CVTS01+620 01395000 CVTEVENT EQU CVTS01+616 01396000 CVTCRCA EQU CVTS01+612 01397000 CVTTPIO EQU CVTS01+608 01398000 CVTADV EQU CVTS01+604 01399000 CVTGSDAB EQU CVTGSDA 01400000 CVTQV3 EQU CVTS01+596 01401000 CVTQV2 EQU CVTS01+592 01402000 CVTQV1 EQU CVTS01+588 01403000 CVTRPT EQU CVTS01+584 01404000 CVTSSRB EQU CVTS01+580 01405000 CVTCSDRL EQU CVTS01+576 01406000 CVTEXP1 EQU CVTS01+572 01407000 CVTRMPMT EQU CVTS01+568 01408000 CVTRMPTT EQU CVTS01+564 01409000 CVTVPSA EQU CVTS01+560 01410000 CVTVSTOP EQU CVTS01+556 01411000 CVTGTFR8 EQU CVTS01+552 01412000 CVTQUIT EQU CVTS01+548 01413000 CVTVACR EQU CVTS01+544 01414000 CVTWTCB EQU CVTS01+540 01415000 CVTSTPRS EQU CVTS01+536 01416000 CVT0PT02 EQU CVTS01+532 01417000 CVTDARCM EQU CVTS01+528 01418000 CVTIRECM EQU CVTS01+524 01419000 CVTJRECM EQU CVTS01+520 01420000 CVTVEMS0 EQU CVTS01+516 01421000 CVTSPFRR EQU CVTS01+512 01422000 CVTRLSTG EQU CVTS01+508 01423000 CVT0TC0A EQU CVTS01+504 01424000 CVTGMBR EQU CVTS01+500 01425000 CVTLFRM EQU CVTS01+496 01426000 CVTRMBR EQU CVTS01+492 01427000 CVTVIOP EQU CVTS01+488 01428000 CVTRV307 EQU CVTS01+486 01429000 CVTRV306 EQU CVTS01+484 01430000 CVTRV305 EQU CVTS01+482 01431000 CVTRV304 EQU CVTS01+480 01432000 CVTRV303 EQU CVTS01+478 01433000 CVTRV302 EQU CVTS01+476 01434000 CVTTRCA EQU CVTS01+472 01435000 CVTRV297 EQU CVTRV289 01436000 CVTRV296 EQU CVTRV289 01437000 CVTRV295 EQU CVTRV289 01438000 CVTRV294 EQU CVTRV289 01439000 CVTRV293 EQU CVTRV289 01440000 CVTRV292 EQU CVTRV289 01441000 CVTRV291 EQU CVTRV289 01442000 CVTRV290 EQU CVTRV289 01443000 CVTRV288 EQU CVTRV280 01444000 CVTRV287 EQU CVTRV280 01445000 CVTRV286 EQU CVTRV280 01446000 CVTRV285 EQU CVTRV280 01447000 CVTRV284 EQU CVTRV280 01448000 CVTRV283 EQU CVTRV280 01449000 CVTRV282 EQU CVTRV280 01450000 CVTRV281 EQU CVTRV280 01451000 CVTRV279 EQU CVTRV271 01452000 CVTRV278 EQU CVTRV271 01453000 CVTRV277 EQU CVTRV271 01454000 CVTRV276 EQU CVTRV271 01455000 CVTRV275 EQU CVTRV271 01456000 CVTRV274 EQU CVTRV271 01457000 CVTRV273 EQU CVTRV271 01458000 CVTRV272 EQU CVTRV271 01459000 CVTRV270 EQU CVTRV262 01460000 CVTRV269 EQU CVTRV262 01461000 CVTRV268 EQU CVTRV262 01462000 CVTRV267 EQU CVTRV262 01463000 CVTRV266 EQU CVTRV262 01464000 CVTRV265 EQU CVTRV262 01465000 CVTRV264 EQU CVTRV262 01466000 CVTRV263 EQU CVTRV262 01467000 CVTVFP EQU CVTS01+464 01468000 CVTVSI EQU CVTS01+460 01469000 CVTVPSIB EQU CVTS01+456 01470000 CVTPVBP EQU CVTS01+444 01471000 CVTPWI EQU CVTS01+440 01472000 CVTRV254 EQU CVTS01+438 01473000 CVTRV253 EQU CVTS01+436 01474000 CVTRV252 EQU CVTS01+434 01475000 CVTRV251 EQU CVTS01+433 01476000 CVTRV250 EQU CVTS01+432 01477000 CVTRV249 EQU CVTS01+431 01478000 CVTRV248 EQU CVTS01+430 01479000 CVTRV247 EQU CVTS01+429 01480000 CVTRV246 EQU CVTS01+428 01481000 CVTRV245 EQU CVTRV237 01482000 CVTRV244 EQU CVTRV237 01483000 CVTRV243 EQU CVTRV237 01484000 CVTRV242 EQU CVTRV237 01485000 CVTRV241 EQU CVTRV237 01486000 CVTRV240 EQU CVTRV237 01487000 CVTRV239 EQU CVTRV237 01488000 CVTRV238 EQU CVTRV237 01489000 CVTRV236 EQU CVTRV228 01490000 CVTRV235 EQU CVTRV228 01491000 CVTRV234 EQU CVTRV228 01492000 CVTRV233 EQU CVTRV228 01493000 CVTRV232 EQU CVTRV228 01494000 CVTRV231 EQU CVTRV228 01495000 CVTRV230 EQU CVTRV228 01496000 CVTRV229 EQU CVTRV228 01497000 CVTRV227 EQU CVTRV219 01498000 CVTRV226 EQU CVTRV219 01499000 CVTRV225 EQU CVTRV219 01500000 CVTRV224 EQU CVTRV219 01501000 CVTRV223 EQU CVTRV219 01502000 CVTRV222 EQU CVTRV219 01503000 CVTRV221 EQU CVTRV219 01504000 CVTRV220 EQU CVTRV219 01505000 CVTRV218 EQU CVTRV210 01506000 CVTRV217 EQU CVTRV210 01507000 CVTRV216 EQU CVTRV210 01508000 CVTRV215 EQU CVTRV210 01509000 CVTRV214 EQU CVTRV210 01510000 CVTRV213 EQU CVTRV210 01511000 CVTRV212 EQU CVTRV210 01512000 CVTRV211 EQU CVTRV210 01513000 CVTLCCAT EQU CVTS01+420 01514000 CVTIPCRP EQU CVTS01+412 01515000 CVTIPCRI EQU CVTS01+408 01516000 CVTIPCDS EQU CVTS01+404 01517000 CVTAIDVT EQU CVTS01+400 01518000 CVTSSAP EQU CVTS01+396 01519000 CVTEHCIR EQU CVTS01+392 01520000 CVTEHDEF EQU CVTS01+388 01521000 CVTDAIR EQU CVTS01+384 01522000 CVTPERFM EQU CVTS01+380 01523000 CVT044R2 EQU CVTS01+376 01524000 CVTFETCH EQU CVTS01+372 01525000 CVTRSTWD EQU CVTS01+368 01526000 CVTSPOST EQU CVTS01+364 01527000 CVTIOBP EQU CVTS01+360 01528000 CVTASMVT EQU CVTS01+356 01529000 CVTRECRQ EQU CVTS01+352 01530000 CVTWSAC EQU CVTS01+348 01531000 CVTRV149 EQU CVTS01+344 01532000 CVTWSAL EQU CVTS01+340 01533000 CVTSPSA EQU CVTS01+336 01534000 CVTGLMN EQU CVTS01+332 01535000 CVTVEAC0 EQU CVTS01+328 01536000 CVT062R1 EQU CVTS01+324 01537000 CVTRPOST EQU CVTS01+320 01538000 CVTDQIQE EQU CVTS01+316 01539000 CVTLKRMA EQU CVTS01+308 01540000 CVTRSPIE EQU CVTS01+304 01541000 CVTRENQ EQU CVTS01+300 01542000 CVTLQCB EQU CVTS01+296 01543000 CVTFQCB EQU CVTS01+292 01544000 CVTQCS01 EQU CVTS01+288 01545000 CVTAPFT EQU CVTS01+284 01546000 CVTPARRL EQU CVTS01+280 01547000 CVTVWAIT EQU CVTS01+276 01548000 CVTGSPL EQU CVTS01+272 01549000 CVTLSMQ EQU CVTS01+268 01550000 CVTGSMQ EQU CVTS01+264 01551000 CVTEXPRO EQU CVTS01+260 01552000 CVTOPCTP EQU CVTS01+256 01553000 CVTSIC EQU CVTS01+252 01554000 CVTTPIOS EQU CVTS01+248 01555000 CVTRTMS EQU CVTS01+244 01556000 CVTSDBF EQU CVTS01+240 01557000 CVTSCBP EQU CVTS01+236 01558000 CVTSDMP EQU CVTS01+232 01559000 CVTSV60 EQU CVTS01+228 01560000 CVTRTMCT EQU CVTS01+224 01561000 CVTASCBL EQU CVTS01+220 01562000 CVTASCBH EQU CVTS01+216 01563000 CVTGDA EQU CVTS01+212 01564000 CVTASVT EQU CVTS01+208 01565000 CVTVVMDI EQU CVTS01+204 01566000 CVTAQTOP EQU CVTS01+200 01567000 CVTIOSCS EQU CVTS01+196 01568000 CVTSDRM EQU CVTS01+192 01569000 CVTOPTE EQU CVTS01+188 01570000 CVTSTXU EQU CVTS01+184 01571000 CVTQUIS EQU CVTS01+180 01572000 CVTPARS EQU CVTS01+176 01573000 CVTS1EE EQU CVTS01+172 01574000 CVTFRAS EQU CVTS01+168 01575000 CVTQSAS EQU CVTS01+164 01576000 CVTCRAS EQU CVTS01+160 01577000 CVTCRMN EQU CVTS01+156 01578000 CVTDELCP EQU CVTS01+152 01579000 CVTFRECL EQU CVTS01+148 01580000 CVTGETCL EQU CVTS01+144 01581000 CVTBLDCP EQU CVTS01+140 01582000 CVTAUTHL EQU CVTS01+136 01583000 CVTSCAN EQU CVTS01+132 01584000 CVTRV144 EQU CVTS01+130 01585000 CVTMAXMP EQU CVTS01+128 01586000 CVTSTCK EQU CVTS01+124 01587000 CVTRV139 EQU CVTS01+123 01588000 CVTDSSAC EQU CVTS01+122 01589000 CVTRV513 EQU CVTS01+121 01590000 CVTIOSPL EQU CVTS01+120 01591000 CVTPTGT EQU CVTS01+116 01592000 CVTCSPIE EQU CVTS01+112 01593000 CVTSMFEX EQU CVTS01+108 01594000 CVTOLT0A EQU CVTS01+104 01595000 CVTSRBRT EQU CVTS01+100 01596000 CVTPUTL EQU CVTS01+96 01597000 CVTASCRL EQU CVTS01+92 01598000 CVTASCRF EQU CVTS01+88 01599000 CVTRV326 EQU CVTS01+84 01600000 CVTRV325 EQU CVTS01+80 01601000 CVTRV324 EQU CVTS01+76 01602000 CVT0VL01 EQU CVTS01+72 01603000 CVTSHRVM EQU CVTS01+68 01604000 CVTRV332 EQU CVTS01+64 01605000 CVTTAS EQU CVTS01+60 01606000 CVTRSCN EQU CVTS01+56 01607000 CVTTRAC2 EQU CVTS01+54 01608000 CVTTRACE EQU CVTS01+52 01609000 CVTAPG EQU CVTS01+51 01610000 CVTSDTRC EQU CVTCTLFG 01611000 CVTGTRCE EQU CVTCTLFG 01612000 CVTNOMP EQU CVTCTLFG 01613000 CVTRSV79 EQU CVTCTLFG 01614000 CVTDSTAT EQU CVTCTLFG 01615000 CVTRSV78 EQU CVTCTLFG 01616000 CVTRV333 EQU CVTCTLFG 01617000 CVTRV323 EQU CVTCTLFG 01618000 CVTSPVLK EQU CVTS01+49 01619000 CVTRSV77 EQU CVTS01+48 01620000 CVTRV331 EQU CVTS01+44 01621000 CVTRV330 EQU CVTS01+40 01622000 CVTRV329 EQU CVTS01+36 01623000 CVTRV328 EQU CVTS01+32 01624000 CVTRV322 EQU CVTS01+28 01625000 CVTSLID EQU CVTSLIDA+1 01626000 CVTSYLK EQU CVTSLIDA 01627000 CVTRV321 EQU CVTS01+20 01628000 CVTRV320 EQU CVTS01+16 01629000 CVTLPDIR EQU CVTLPDIA+1 01630000 CVTRSV69 EQU CVTDIRST 01631000 CVTRSV68 EQU CVTDIRST 01632000 CVTRSV67 EQU CVTDIRST 01633000 CVTRSV66 EQU CVTDIRST 01634000 CVTRSV65 EQU CVTDIRST 01635000 CVTRSV64 EQU CVTDIRST 01636000 CVTRSV63 EQU CVTDIRST 01637000 CVTDICOM EQU CVTDIRST 01638000 CVTPVTP EQU CVTS01+8 01639000 CVTLPDSR EQU CVTS01+4 01640000 CVTGETL EQU CVTS01 01641000 TMCSCIB EQU TMCSCL+4 01642000 STSMRSV1 EQU STSMA+53 01643000 STSMSSP EQU STSMA+52 01644000 STSMLCOM EQU STSMA+48 01645000 STSMIADD EQU STSMA+40 01646000 STSMILEN EQU STSMIGMC+1 01647000 STSMISP EQU STSMIGMC 01648000 STSMEDAD EQU STSMA+32 01649000 STSMENTR EQU STSMA+28 01650000 STSMSAVE EQU STSMA+24 01651000 STSMINTP EQU STSMA+20 01652000 STSMINIT EQU STSMA+4 01653000 STSMSTA EQU STSMOFLG 01654000 @NM00116 EQU STSMOFLG 01655000 @NM00115 EQU STSMOPT 01656000 STSCMVAD EQU STSCT+36 01657000 STSCMVLE EQU STSCMVSG+1 01658000 STSCMVSP EQU STSCMVSG 01659000 STSCGMT EQU STSCT+24 01660000 STSCTIME EQU STSCT+20 01661000 STSCDATE EQU STSCT+16 01662000 STSCINIT EQU STSCFLAG+1 01663000 @NM00114 EQU STSCFLAG 01664000 STSCMF1V EQU STSCT+12 01665000 STSCCOA EQU STSCT+8 01666000 STSCNAME EQU STSCT 01667000 STMVDEV EQU STMVOPT+16 01668000 STMVCHA EQU STMVOPT+12 01669000 STMVWKL EQU STMVOPT+8 01670000 STMVPAG EQU STMVOPT+4 01671000 STMVCPU EQU STMVOPT 01672000 STGSCYC EQU STGST+20 01673000 @NM00113 EQU STGST+14 01674000 STGSASID EQU STGST+12 01675000 STGSTCB EQU STGST+8 01676000 STGSNAME EQU STGST 01677000 TPCOCL EQU IEATPC+416 01678000 TPCSDIE EQU IEATPC+412 01679000 TPCCLA EQU IEATPC+408 01680000 TPCCKQ EQU IEATPC+404 01681000 TPCRSRB EQU IEATPC+360 01682000 TPCTCWA EQU IEATPC+356 01683000 TPCCRSAV EQU IEATPC+352 01684000 TPCFRRP EQU IEATPC+348 01685000 TPCVPTR EQU IEATPC+344 01686000 TPCMISC EQU IEATPC+272 01687000 TPCWORKR EQU TPCWORK+4 01688000 TPCWORKL EQU TPCWORK 01689000 TPCSAVE2 EQU IEATPC+200 01690000 TPCSAVE1 EQU IEATPC+136 01691000 @NM00112 EQU TPCLMTQE+16 01692000 @NM00111 EQU TPCLMTQE+15 01693000 @NM00110 EQU TPCLMTQE+14 01694000 @NM00109 EQU TPCLMTQE+12 01695000 @NM00108 EQU TPCLMTQE+8 01696000 @NM00107 EQU TPCLMTQE+4 01697000 @NM00106 EQU TPCLMTQE 01698000 @NM00105 EQU IEATSELM+16 01699000 @NM00104 EQU IEATSELM+15 01700000 @NM00103 EQU IEATSELM+14 01701000 @NM00102 EQU IEATSELM+12 01702000 @NM00101 EQU IEATSELM+8 01703000 @NM00100 EQU IEATSELM+4 01704000 @NM00099 EQU IEATSELM 01705000 @NM00098 EQU TPCMFTQE+16 01706000 @NM00097 EQU TPCMFTQE+15 01707000 @NM00096 EQU TPCMFTQE+14 01708000 @NM00095 EQU TPCMFTQE+12 01709000 @NM00094 EQU TPCMFTQE+8 01710000 @NM00093 EQU TPCMFTQE+4 01711000 @NM00092 EQU TPCMFTQE 01712000 MNIGHTRH EQU MNIGHT+4 01713000 MNIGHTLH EQU MNIGHT 01714000 @NM00091 EQU TPCMNTQE+15 01715000 @NM00090 EQU TPCMNTQE+14 01716000 @NM00089 EQU TPCMNTQE+12 01717000 @NM00088 EQU TPCMNTQE+8 01718000 @NM00087 EQU TPCMNTQE+4 01719000 @NM00086 EQU TPCMNTQE 01720000 @NM00085 EQU TPCDMTQE+16 01721000 @NM00084 EQU TPCDMTQE+15 01722000 @NM00083 EQU TPCDMTQE+14 01723000 @NM00082 EQU TPCDMTQE+12 01724000 @NM00081 EQU TPCDMTQE+8 01725000 @NM00080 EQU TPCDMTQE 01726000 TPCTZORG EQU IEATPC+8 01727000 TPCCC EQU IEATPC+7 01728000 @NM00079 EQU IEATPC+5 01729000 @NM00078 EQU TPCFLGS1 01730000 TPCSYNC EQU TPCFLGS1 01731000 TPCABND EQU TPCFLGS1 01732000 TPCTPCA EQU IEATPC 01733000 @NM00077 EQU SDWA+512 01734000 SDWAVRA EQU SDWARA+4 01735000 SDWAURAL EQU SDWARA+3 01736000 @NM00076 EQU SDWADPVA 01737000 SDWAEBC EQU SDWADPVA 01738000 SDWAHEX EQU SDWADPVA 01739000 SDWAVRAL EQU SDWARA 01740000 @NM00075 EQU SDWA+396 01741000 SDWACOMP EQU SDWA+392 01742000 SDWARCPL EQU SDWA+364 01743000 @NM00074 EQU SDWADPSA+32 01744000 SDWATO4 EQU SDWADPSL+28 01745000 SDWAFRM4 EQU SDWADPSL+24 01746000 SDWATO3 EQU SDWADPSL+20 01747000 SDWAFRM3 EQU SDWADPSL+16 01748000 SDWATO2 EQU SDWADPSL+12 01749000 SDWAFRM2 EQU SDWADPSL+8 01750000 SDWATO1 EQU SDWADPSL+4 01751000 SDWAFRM1 EQU SDWADPSL 01752000 @NM00073 EQU SDWADDAT+3 01753000 @NM00072 EQU SDWAPDAT 01754000 SDWAUSPL EQU SDWAPDAT 01755000 SDWADPSW EQU SDWAPDAT 01756000 SDWATJPA EQU SDWAPDAT 01757000 SDWATLPA EQU SDWAPDAT 01758000 SDWADREG EQU SDWAPDAT 01759000 SDWADSAH EQU SDWAPDAT 01760000 SDWADSAS EQU SDWAPDAT 01761000 @NM00071 EQU SDWADDAT+1 01762000 @NM00070 EQU SDWASDAT 01763000 SDWAQQS EQU SDWASDAT 01764000 SDWACBS EQU SDWASDAT 01765000 SDWAGTF EQU SDWASDAT 01766000 SDWASWA EQU SDWASDAT 01767000 SDWALSQA EQU SDWASDAT 01768000 SDWASQA EQU SDWASDAT 01769000 SDWANUC EQU SDWASDAT 01770000 @NM00069 EQU SDWADUMP+2 01771000 @NM00068 EQU SDWADPFS 01772000 SDWASLST EQU SDWADPFS 01773000 @NM00067 EQU SDWADPFS 01774000 SDWADLST EQU SDWADPFS 01775000 SDWADPT EQU SDWADPFS 01776000 SDWADPID EQU SDWADUMP 01777000 SDWADPLA EQU SDWA+316 01778000 SDWAREXN EQU SDWARECP+16 01779000 SDWACSCT EQU SDWARECP+8 01780000 SDWAMODN EQU SDWARECP 01781000 @NM00066 EQU SDWA+290 01782000 SDWAASID EQU SDWA+288 01783000 SDWATALW EQU SDWALKWS+28 01784000 SDWATDLW EQU SDWALKWS+24 01785000 SDWATNLW EQU SDWALKWS+20 01786000 SDWAAPLW EQU SDWALKWS+16 01787000 SDWAIPLW EQU SDWALKWS+12 01788000 SDWAILLW EQU SDWALKWS+8 01789000 SDWAIULW EQU SDWALKWS+4 01790000 SDWAICLW EQU SDWALKWS 01791000 SDWAFLLK EQU SDWAACF4 01792000 SDWACMS EQU SDWAACF4 01793000 SDWAOPTM EQU SDWAACF4 01794000 SDWATADB EQU SDWAACF4 01795000 SDWATDNB EQU SDWAACF4 01796000 SDWATNCB EQU SDWAACF4 01797000 SDWAILCH EQU SDWAACF4 01798000 SDWAIUCB EQU SDWAACF4 01799000 SDWAICAT EQU SDWAACF3 01800000 SDWAIPRG EQU SDWAACF3 01801000 SDWASALL EQU SDWAACF3 01802000 SDWAASMP EQU SDWAACF3 01803000 SDWADISP EQU SDWAACF3 01804000 @NM00065 EQU SDWAACF3 01805000 @NM00064 EQU SDWAACF2 01806000 SDWAFREE EQU SDWAACF2 01807000 SDWAUPRG EQU SDWAACF2 01808000 @NM00063 EQU SDWAACF2 01809000 SDWASPIN EQU SDWAACF2 01810000 @NM00062 EQU SDWAACF2 01811000 SDWARCRD EQU SDWAACF2 01812000 SDWALCPU EQU SDWACPUA+2 01813000 @NM00061 EQU SDWACPUA 01814000 SDWARECA EQU SDWA+244 01815000 SDWARTYA EQU SDWA+240 01816000 @NM00060 EQU SDWA+239 01817000 @NM00059 EQU SDWAIOFS 01818000 SDWANIOP EQU SDWAIOFS 01819000 SDWANOIO EQU SDWAIOFS 01820000 SDWAIOHT EQU SDWAIOFS 01821000 SDWAIOQR EQU SDWAIOFS 01822000 SDWAFMID EQU SDWA+236 01823000 @NM00058 EQU SDWAERRD 01824000 SDWAMCIV EQU SDWAERRD 01825000 SDWARPIV EQU SDWAERRD 01826000 SDWAMABD EQU SDWAERRD 01827000 SDWACTS EQU SDWAERRD 01828000 SDWASTAE EQU SDWAERRD 01829000 SDWANRBE EQU SDWAERRD 01830000 SDWACLUP EQU SDWAERRD 01831000 @NM00057 EQU SDWAERRC 01832000 SDWAEAS EQU SDWAERRC 01833000 SDWAPERC EQU SDWAERRC 01834000 SDWAIRB EQU SDWAERRC 01835000 SDWASTAI EQU SDWAERRC 01836000 SDWASTAF EQU SDWAERRC 01837000 SDWASRBM EQU SDWAERRB 01838000 SDWALDIS EQU SDWAERRB 01839000 SDWAENRB EQU SDWAERRB 01840000 SDWATYP1 EQU SDWAERRB 01841000 @NM00056 EQU SDWAERRB 01842000 SDWAPGIO EQU SDWAERRA 01843000 SDWATEXC EQU SDWAERRA 01844000 SDWASVCE EQU SDWAERRA 01845000 SDWAABTM EQU SDWAERRA 01846000 SDWASVCD EQU SDWAERRA 01847000 SDWARKEY EQU SDWAERRA 01848000 SDWAPCHK EQU SDWAERRA 01849000 SDWAMCHK EQU SDWAERRA 01850000 SDWATIME EQU SDWAMCH+20 01851000 SDWARFSA EQU SDWAMCH+16 01852000 @NM00055 EQU SDWAMCH+14 01853000 SDWAVEQR EQU SDWARSR2 01854000 SDWAPGFX EQU SDWARSR2 01855000 SDWAFLSQ EQU SDWARSR2 01856000 SDWAFSQA EQU SDWARSR2 01857000 SDWANUCL EQU SDWARSR2 01858000 SDWASPER EQU SDWARSR2 01859000 SDWAINTC EQU SDWARSR2 01860000 SDWAOFLN EQU SDWARSR2 01861000 SDWACHNG EQU SDWARSR1 01862000 SDWAMSER EQU SDWARSR1 01863000 @NM00054 EQU SDWARSR1 01864000 SDWACPID EQU SDWAMCH+10 01865000 SDWATERR EQU SDWAMCHD 01866000 SDWAFPRX EQU SDWAMCHD 01867000 SDWAINSF EQU SDWAMCHD 01868000 SDWAACR EQU SDWAMCHD 01869000 SDWASCK EQU SDWAMCHD 01870000 SDWAPSWU EQU SDWAMCHD 01871000 SDWAREGU EQU SDWAMCHD 01872000 SDWASKYF EQU SDWAMCHD 01873000 @NM00053 EQU SDWAMCHS 01874000 SDWARSRF EQU SDWAMCHS 01875000 SDWARSRC EQU SDWAMCHS 01876000 SDWAINVP EQU SDWAMCHS 01877000 SDWATSVL EQU SDWAMCHS 01878000 SDWARCDF EQU SDWAMCHS 01879000 SDWASRVL EQU SDWAMCHS 01880000 SDWASCKE EQU SDWASTCK+4 01881000 SDWASCKB EQU SDWASTCK 01882000 SDWALNTH EQU SDWAIDNT+1 01883000 SDWASPID EQU SDWAIDNT 01884000 SDWASR15 EQU SDWASRSV+60 01885000 SDWASR14 EQU SDWASRSV+56 01886000 SDWASR13 EQU SDWASRSV+52 01887000 SDWASR12 EQU SDWASRSV+48 01888000 SDWASR11 EQU SDWASRSV+44 01889000 SDWASR10 EQU SDWASRSV+40 01890000 SDWASR09 EQU SDWASRSV+36 01891000 SDWASR08 EQU SDWASRSV+32 01892000 SDWASR07 EQU SDWASRSV+28 01893000 SDWASR06 EQU SDWASRSV+24 01894000 SDWASR05 EQU SDWASRSV+20 01895000 SDWASR04 EQU SDWASRSV+16 01896000 SDWASR03 EQU SDWASRSV+12 01897000 SDWASR02 EQU SDWASRSV+8 01898000 SDWASR01 EQU SDWASRSV+4 01899000 SDWASR00 EQU SDWASRSV 01900000 SDWATRN2 EQU SDWAAEC2+4 01901000 SDWAIPC2 EQU SDWAICD2 01902000 SDWAIMC2 EQU SDWAICD2 01903000 SDWAIPR2 EQU SDWAICD2 01904000 @NM00052 EQU SDWAINC2 01905000 @NM00051 EQU SDWAILC2 01906000 SDWAIL2 EQU SDWAILC2 01907000 @NM00050 EQU SDWAILC2 01908000 @NM00049 EQU SDWAAEC2 01909000 SDWAADD2 EQU SDWANXT2+1 01910000 @NM00048 EQU SDWANXT2 01911000 @NM00047 EQU SDWAEC2+3 01912000 SDWASGN2 EQU SDWAINT2 01913000 SDWAEXP2 EQU SDWAINT2 01914000 SDWADEC2 EQU SDWAINT2 01915000 SDWAFPO2 EQU SDWAINT2 01916000 SDWACC2 EQU SDWAINT2 01917000 @NM00046 EQU SDWAINT2 01918000 SDWAPGM2 EQU SDWAMWP2 01919000 SDWAWAT2 EQU SDWAMWP2 01920000 SDWAMCK2 EQU SDWAMWP2 01921000 SDWAECT2 EQU SDWAMWP2 01922000 SDWAKEY2 EQU SDWAMWP2 01923000 SDWAEXT2 EQU SDWAEMK2 01924000 SDWAIO2 EQU SDWAEMK2 01925000 SDWATRM2 EQU SDWAEMK2 01926000 @NM00045 EQU SDWAEMK2 01927000 SDWAPER2 EQU SDWAEMK2 01928000 @NM00044 EQU SDWAEMK2 01929000 SDWATRAN EQU SDWAAEC1+4 01930000 SDWAIPC1 EQU SDWAICD1 01931000 SDWAIMC1 EQU SDWAICD1 01932000 SDWAIPR1 EQU SDWAICD1 01933000 @NM00043 EQU SDWAINC1 01934000 @NM00042 EQU SDWAILC1 01935000 SDWAIL1 EQU SDWAILC1 01936000 @NM00041 EQU SDWAILC1 01937000 @NM00040 EQU SDWAAEC1 01938000 SDWAADD1 EQU SDWANXT1+1 01939000 @NM00039 EQU SDWANXT1 01940000 @NM00038 EQU SDWAEC1+3 01941000 SDWASGN1 EQU SDWAINT1 01942000 SDWAEXP1 EQU SDWAINT1 01943000 SDWADEC1 EQU SDWAINT1 01944000 SDWAFPO1 EQU SDWAINT1 01945000 SDWACC1 EQU SDWAINT1 01946000 @NM00037 EQU SDWAINT1 01947000 SDWAPGM1 EQU SDWAMWP1 01948000 SDWAWAT1 EQU SDWAMWP1 01949000 SDWAMCK1 EQU SDWAMWP1 01950000 SDWAECT1 EQU SDWAMWP1 01951000 SDWAKEY1 EQU SDWAMWP1 01952000 SDWAEXT1 EQU SDWAEMK1 01953000 SDWAIO1 EQU SDWAEMK1 01954000 SDWATRM1 EQU SDWAEMK1 01955000 @NM00036 EQU SDWAEMK1 01956000 SDWAPER1 EQU SDWAEMK1 01957000 @NM00035 EQU SDWAEMK1 01958000 SDWAIOBR EQU SDWA+100 01959000 SDWAEPA EQU SDWA+96 01960000 @NM00034 EQU SDWANAME+4 01961000 SDWARBAD EQU SDWANAME 01962000 SDWAGR15 EQU SDWAGRSV+60 01963000 SDWAGR14 EQU SDWAGRSV+56 01964000 SDWAGR13 EQU SDWAGRSV+52 01965000 SDWAGR12 EQU SDWAGRSV+48 01966000 SDWAGR11 EQU SDWAGRSV+44 01967000 SDWAGR10 EQU SDWAGRSV+40 01968000 SDWAGR09 EQU SDWAGRSV+36 01969000 SDWAGR08 EQU SDWAGRSV+32 01970000 SDWAGR07 EQU SDWAGRSV+28 01971000 SDWAGR06 EQU SDWAGRSV+24 01972000 SDWAGR05 EQU SDWAGRSV+20 01973000 SDWAGR04 EQU SDWAGRSV+16 01974000 SDWAGR03 EQU SDWAGRSV+12 01975000 SDWAGR02 EQU SDWAGRSV+8 01976000 SDWAGR01 EQU SDWAGRSV+4 01977000 SDWAGR00 EQU SDWAGRSV 01978000 SDWANXTP EQU SDWACTL2+5 01979000 SDWASGP EQU SDWAPMKP 01980000 SDWAEUP EQU SDWAPMKP 01981000 SDWADOP EQU SDWAPMKP 01982000 SDWAFPP EQU SDWAPMKP 01983000 SDWACCP EQU SDWAPMKP 01984000 SDWAILP EQU SDWAPMKP 01985000 SDWAINTP EQU SDWACTL2+2 01986000 SDWASPVP EQU SDWAMWPP 01987000 SDWAWATP EQU SDWAMWPP 01988000 SDWAMCKP EQU SDWAMWPP 01989000 @NM00033 EQU SDWAMWPP 01990000 SDWAKEYP EQU SDWAMWPP 01991000 SDWAEXTP EQU SDWACMKP 01992000 SDWAIOP EQU SDWACMKP 01993000 SDWANXTA EQU SDWACTL1+5 01994000 SDWASGA EQU SDWAPMKA 01995000 SDWAEUA EQU SDWAPMKA 01996000 SDWADOA EQU SDWAPMKA 01997000 SDWAFPA EQU SDWAPMKA 01998000 SDWACCA EQU SDWAPMKA 01999000 SDWAILA EQU SDWAPMKA 02000000 SDWAINTA EQU SDWACTL1+2 02001000 SDWASPVA EQU SDWAMWPA 02002000 SDWAWATA EQU SDWAMWPA 02003000 SDWAMCKA EQU SDWAMWPA 02004000 @NM00032 EQU SDWAMWPA 02005000 SDWAKEYA EQU SDWAMWPA 02006000 SDWAEXTA EQU SDWACMKA 02007000 SDWAIOA EQU SDWACMKA 02008000 @NM00031 EQU SDWACMPF 02009000 SDWASTCC EQU SDWACMPF 02010000 @NM00030 EQU SDWACMPF 02011000 SDWASTEP EQU SDWACMPF 02012000 SDWAPARM EQU SDWA 02013000 FRRSPARM EQU FRRSENTR+8 02014000 @NM00005 EQU FRRSFLGS+1 02015000 @NM00004 EQU FRRSFLG1 02016000 FRRSNEST EQU FRRSFLG1 02017000 FRRSRCUR EQU FRRSFLG1 02018000 FRRSFRRA EQU FRRSENTR 02019000 FRRSENTS EQU FRRS+84 02020000 FRRSRTMW EQU FRRS+16 02021000 FRRSCURR EQU FRRSHEAD+12 02022000 FRRSELEN EQU FRRSHEAD+8 02023000 FRRSLAST EQU FRRSHEAD+4 02024000 FRRSEMP EQU FRRSHEAD 02025000 CVTLEVL EQU CVTRELNO+2 02026000 CVTNUMB EQU CVTRELNO 02027000 CVTMDL EQU CVTFIX+250 02028000 @NM00003 EQU CVTFIX+248 02029000 @NM00002 EQU CVTFIX 02030000 CVTRV482 EQU CVTXTNT2+128 02031000 CVTRV481 EQU CVTXTNT2+124 02032000 CVTRV480 EQU CVTXTNT2+120 02033000 CVTRV479 EQU CVTXTNT2+118 02034000 CVTRV478 EQU CVTXTNT2+117 02035000 CVTRV477 EQU CVTXTNT2+116 02036000 CVTRV476 EQU CVTXTNT2+115 02037000 CVTRV475 EQU CVTXTNT2+114 02038000 CVTRV474 EQU CVTRV466 02039000 CVTRV473 EQU CVTRV466 02040000 CVTRV472 EQU CVTRV466 02041000 CVTRV471 EQU CVTRV466 02042000 CVTRV470 EQU CVTRV466 02043000 CVTRV469 EQU CVTRV466 02044000 CVTRV468 EQU CVTRV466 02045000 CVTRV467 EQU CVTRV466 02046000 CVTRV465 EQU CVTRV457 02047000 CVTRV464 EQU CVTRV457 02048000 CVTRV463 EQU CVTRV457 02049000 CVTRV462 EQU CVTRV457 02050000 CVTRV461 EQU CVTRV457 02051000 CVTRV460 EQU CVTRV457 02052000 CVTRV459 EQU CVTRV457 02053000 CVTRV458 EQU CVTRV457 02054000 CVTRV456 EQU CVTXTNT2+108 02055000 CVTRV455 EQU CVTXTNT2+104 02056000 CVTRV454 EQU CVTXTNT2+100 02057000 CVTRV453 EQU CVTXTNT2+96 02058000 CVTRV452 EQU CVTXTNT2+94 02059000 CVTRV451 EQU CVTXTNT2+92 02060000 CVTRV450 EQU CVTXTNT2+90 02061000 CVTRV449 EQU CVTXTNT2+88 02062000 CVTRV448 EQU CVTXTNT2+87 02063000 CVTRV447 EQU CVTXTNT2+86 02064000 CVTRV446 EQU CVTRV438 02065000 CVTRV445 EQU CVTRV438 02066000 CVTRV444 EQU CVTRV438 02067000 CVTRV443 EQU CVTRV438 02068000 CVTRV442 EQU CVTRV438 02069000 CVTRV441 EQU CVTRV438 02070000 CVTRV440 EQU CVTRV438 02071000 CVTRV439 EQU CVTRV438 02072000 CVTRV437 EQU CVTRV429 02073000 CVTRV436 EQU CVTRV429 02074000 CVTRV435 EQU CVTRV429 02075000 CVTRV434 EQU CVTRV429 02076000 CVTRV433 EQU CVTRV429 02077000 CVTRV432 EQU CVTRV429 02078000 CVTRV431 EQU CVTRV429 02079000 CVTRV430 EQU CVTRV429 02080000 CVTRV428 EQU CVTXTNT2+80 02081000 CVTRV427 EQU CVTXTNT2+76 02082000 CVTRV426 EQU CVTXTNT2+72 02083000 CVTRV425 EQU CVTXTNT2+68 02084000 CVTATACT EQU CVTATCVT 02085000 CVTRV423 EQU CVTXTNT2+62 02086000 CVTRV422 EQU CVTXTNT2+60 02087000 CVTRV421 EQU CVTXTNT2+58 02088000 CVTRV420 EQU CVTXTNT2+56 02089000 CVTRV419 EQU CVTXTNT2+55 02090000 CVTRV418 EQU CVTXTNT2+54 02091000 CVTRV417 EQU CVTRV409 02092000 CVTRV416 EQU CVTRV409 02093000 CVTRV415 EQU CVTRV409 02094000 CVTRV414 EQU CVTRV409 02095000 CVTRV413 EQU CVTRV409 02096000 CVTRV412 EQU CVTRV409 02097000 CVTRV411 EQU CVTRV409 02098000 CVTRV410 EQU CVTRV409 02099000 CVTRV408 EQU CVTRV400 02100000 CVTRV407 EQU CVTRV400 02101000 CVTRV406 EQU CVTRV400 02102000 CVTRV405 EQU CVTRV400 02103000 CVTRV404 EQU CVTRV400 02104000 CVTRV403 EQU CVTRV400 02105000 CVTRV402 EQU CVTRV400 02106000 CVTRV401 EQU CVTRV400 02107000 CVTICB EQU CVTXTNT2+48 02108000 CVTSKTA EQU CVTXTNT2+44 02109000 CVTRSV99 EQU CVTXTNT2+40 02110000 CVTRSV98 EQU CVTXTNT2+36 02111000 CVTRSV97 EQU CVTXTNT2+34 02112000 CVTRSV96 EQU CVTXTNT2+32 02113000 CVTOLTEP EQU CVTXTNT2+28 02114000 CVTQIDA EQU CVTQID+1 02115000 CVTRSV95 EQU CVTQID 02116000 CVTRSV94 EQU CVTXTNT2+20 02117000 CVTRSV93 EQU CVTXTNT2+16 02118000 CVTRSV92 EQU CVTXTNT2+12 02119000 CVTDEBVR EQU CVTXTNT2+8 02120000 CVTRSV91 EQU CVTXTNT2+6 02121000 CVTRSV9H EQU CVTFLGBT 02122000 CVTRSV9G EQU CVTFLGBT 02123000 CVTRSV9F EQU CVTFLGBT 02124000 CVTRSV9E EQU CVTFLGBT 02125000 CVTRSV9D EQU CVTFLGBT 02126000 CVTRSV9C EQU CVTFLGBT 02127000 CVTVME EQU CVTFLGBT 02128000 CVTNPE EQU CVTFLGBT 02129000 CVTNUCLS EQU CVTXTNT2+4 02130000 CVTDSSVA EQU CVTDSSV+1 02131000 CVTRSV89 EQU CVTDSSV 02132000 CVTRSV88 EQU CVTXTNT1+8 02133000 CVTRSV87 EQU CVTXTNT1+4 02134000 CVTFACHN EQU CVTXTNT1 02135000 CVTRV488 EQU CVTMAP+412 02136000 CVTRV487 EQU CVTMAP+408 02137000 CVTRV486 EQU CVTMAP+404 02138000 CVTRV485 EQU CVTMAP+400 02139000 CVTACTAP EQU CVTMAP+396 02140000 CVTAUTH EQU CVTMAP+392 02141000 CVTATMCA EQU CVTATMCT+1 02142000 CVTATMST EQU CVTATMCT 02143000 CVTRSV61 EQU CVTMAP+384 02144000 CVTVOLT1 EQU CVTVOLM1+1 02145000 CVTVOLI1 EQU CVTVOLF1 02146000 CVTSTOA EQU CVTMAP+376 02147000 CVTRSV58 EQU CVTMAP+374 02148000 CVTRSV57 EQU CVTMAP+372 02149000 CVTDDCE EQU CVTMAP+368 02150000 CVTPNWFR EQU CVTMAP+364 02151000 CVTSMF EQU CVTMAP+360 02152000 CVTSULK EQU CVTMAP+358 02153000 CVTSLKO EQU CVTSYSK 02154000 CVTSLKP EQU CVTSYSK 02155000 CVTSLKQ EQU CVTSYSK 02156000 CVTSLKR EQU CVTSYSK 02157000 CVTRSV56 EQU CVTSYSK 02158000 CVTRSV55 EQU CVTSYSK 02159000 CVTRSV54 EQU CVTSYSK 02160000 CVTRSV53 EQU CVTSYSK 02161000 CVTRSV52 EQU CVTA1F1 02162000 CVTRSV51 EQU CVTA1F1 02163000 CVTRSV50 EQU CVTA1F1 02164000 CVTRSV49 EQU CVTA1F1 02165000 CVTRSV48 EQU CVTA1F1 02166000 CVTRSV47 EQU CVTA1F1 02167000 CVTSRSW EQU CVTA1F1 02168000 CVTPFSW EQU CVTA1F1 02169000 CVTPCVT EQU CVTMAP+352 02170000 CVTRSV46 EQU CVTMAP+344 02171000 CVTRSV45 EQU CVTMAP+340 02172000 CVTRSV44 EQU CVTMAP+338 02173000 CVTRSV43 EQU CVTMAP+336 02174000 CVTHJESA EQU CVTHJES+1 02175000 CVTRSV42 EQU CVTHJES 02176000 CVTEXT2A EQU CVTEXT2+1 02177000 CVTRSV41 EQU CVTEXT2 02178000 CVTAPFA EQU CVTAPF+1 02179000 CVTRSV40 EQU CVTAPF 02180000 CVTRV518 EQU CVTINTLA 02181000 CVTRV517 EQU CVTERPV 02182000 CVTEORM EQU CVTMAP+312 02183000 CVTMCHPR EQU CVTMAP+308 02184000 CVTTZ EQU CVTMAP+304 02185000 CVTJEPS EQU CVTMAP+300 02186000 CVTJESCT EQU CVTMAP+296 02187000 CVTMODE EQU CVTMAP+292 02188000 CVTPTRV EQU CVTMAP+288 02189000 CVTREAL EQU CVTMAP+284 02190000 CVTRSV39 EQU CVTMAP+280 02191000 CVTRSV38 EQU CVTMAP+276 02192000 CVTDMSRA EQU CVTDMSR+1 02193000 CVTRV634 EQU CVTDMSRF 02194000 CVTRV633 EQU CVTDMSRF 02195000 CVTRV632 EQU CVTDMSRF 02196000 CVTRV631 EQU CVTDMSRF 02197000 CVTRV630 EQU CVTDMSRF 02198000 CVTRV629 EQU CVTDMSRF 02199000 CVTUDUMP EQU CVTDMSRF 02200000 CVTSDUMP EQU CVTDMSRF 02201000 CVTQMSGA EQU CVTQMSG+1 02202000 CVTRSV36 EQU CVTQMSG 02203000 CVTAMFF EQU CVTMAP+264 02204000 CVTPURGA EQU CVTPURG+1 02205000 CVTRSV35 EQU CVTPURG 02206000 CVTCBSP EQU CVTMAP+256 02207000 CVTATERA EQU CVTATER+1 02208000 CVTSYST EQU CVTATER 02209000 CVTVOLT2 EQU CVTTAT 02210000 CVTVOLI2 EQU CVTVOLF2 02211000 CVTAQAVB EQU CVTAQAVT+1 02212000 CVTRSV34 EQU CVTTCMFG 02213000 CVTRSV33 EQU CVTTCMFG 02214000 CVTRSV32 EQU CVTTCMFG 02215000 CVTRSV31 EQU CVTTCMFG 02216000 CVTRSV30 EQU CVTTCMFG 02217000 CVTRSV29 EQU CVTTCMFG 02218000 CVTLDEV EQU CVTTCMFG 02219000 CVTTCRDY EQU CVTTCMFG 02220000 CVTGTFA EQU CVTGTF+1 02221000 CVTRSV27 EQU CVTGTFST 02222000 CVTRNIO EQU CVTGTFST 02223000 CVTUSR EQU CVTGTFST 02224000 CVTRV318 EQU CVTFORM 02225000 CVTRV317 EQU CVTTMODE 02226000 CVTRV316 EQU CVTSTATE 02227000 CVTRV315 EQU CVTGTFS 02228000 CVTGTFAV EQU CVTGTFS 02229000 CVT0SCR1 EQU CVTMAP+232 02230000 CVTRV515 EQU CVTMAP+228 02231000 CVTRMS EQU CVTMAP+224 02232000 CVTPATCH EQU CVTMAP+220 02233000 CVTTSCE EQU CVTMAP+216 02234000 CVTLNKSC EQU CVTMAP+214 02235000 CVTQABST EQU CVTMAP+212 02236000 CVTMDLDS EQU CVTMAP+208 02237000 CVTUSER EQU CVTMAP+204 02238000 CVTABEND EQU CVTMAP+200 02239000 CVTSMCA EQU CVTMAP+196 02240000 CVTRSV18 EQU CVTMAP+192 02241000 CVTQLPAQ EQU CVTMAP+188 02242000 CVTQCDSR EQU CVTMAP+184 02243000 CVTRSV17 EQU CVTOPTB 02244000 CVTRSV16 EQU CVTOPTB 02245000 CVTFP EQU CVTOPTB 02246000 CVTAPTHR EQU CVTOPTB 02247000 CVTNLOG EQU CVTOPTB 02248000 CVTTOD EQU CVTOPTB 02249000 CVTCTIMS EQU CVTOPTB 02250000 CVTPROT EQU CVTOPTB 02251000 CVTXPFP EQU CVTOPTA 02252000 CVTASCII EQU CVTOPTA 02253000 CVTRSV13 EQU CVTOPTA 02254000 CVTRSV12 EQU CVTOPTA 02255000 CVTNIP EQU CVTOPTA 02256000 CVTDDR EQU CVTOPTA 02257000 CVTAPR EQU CVTOPTA 02258000 CVTCCH EQU CVTOPTA 02259000 CVTSNCTR EQU CVTMAP+180 02260000 CVTQMWR EQU CVTMAP+176 02261000 CVTQOCR EQU CVTMAP+172 02262000 CVT1EF00 EQU CVTMAP+168 02263000 CVTMZ00 EQU CVTMAP+164 02264000 CVTHEAD EQU CVTMAP+160 02265000 CVTRSV11 EQU CVTMAP+156 02266000 CVT0PT01 EQU CVTMAP+152 02267000 CVTMSER EQU CVTMAP+148 02268000 CVTRV516 EQU CVTIERLC 02269000 CVTILCH EQU CVTMAP+140 02270000 CVT0DS EQU CVTMAP+136 02271000 CVTFBOSV EQU CVTMAP+132 02272000 CVTNUCB EQU CVTMAP+128 02273000 CVTIXAVL EQU CVTMAP+124 02274000 CVTIOQET EQU CVTMAP+120 02275000 CVTDCBA EQU CVTMAP+117 02276000 CVTMVS2 EQU CVTDCB 02277000 CVT6DAT EQU CVTDCB 02278000 CVT4MPS EQU CVTDCB 02279000 CVTRSV09 EQU CVTDCB 02280000 CVT4MS1 EQU CVTDCB 02281000 CVT2SPS EQU CVTDCB 02282000 CVT1SSS EQU CVTDCB 02283000 CVTRSV08 EQU CVTDCB 02284000 CVTSTB EQU CVTMAP+112 02285000 CVTQTE00 EQU CVTMAP+104 02286000 CVTCUCB EQU CVTMAP+100 02287000 CVTSJQ EQU CVTMAP+96 02288000 CVTPBLDL EQU CVTMAP+92 02289000 CVTSVDCB EQU CVTMAP+84 02290000 CVTEXIT EQU CVTMAP+80 02291000 CVT0FN00 EQU CVTMAP+76 02292000 CVTDARA EQU CVTDAR+1 02293000 CVTRSV07 EQU CVTFLGS1 02294000 CVTRSV06 EQU CVTFLGS1 02295000 CVTRSV05 EQU CVTFLGS1 02296000 CVTRSV04 EQU CVTFLGS1 02297000 CVTRSV03 EQU CVTFLGS1 02298000 CVTRSV02 EQU CVTFLGS1 02299000 CVTRSV01 EQU CVTFLGS1 02300000 CVTDMPLK EQU CVTFLGS1 02301000 CVTXITP EQU CVTMAP+68 02302000 CVTZDTAB EQU CVTMAP+64 02303000 CVTMSLT EQU CVTMAP+60 02304000 CVTDATE EQU CVTMAP+56 02305000 CVTBTERM EQU CVTMAP+52 02306000 CVTSYSAD EQU CVTMAP+48 02307000 CVTXTLER EQU CVTMAP+44 02308000 CVTILK2 EQU CVTMAP+40 02309000 CVTILK1 EQU CVTMAP+36 02310000 CVTPRLTV EQU CVTMAP+32 02311000 CVTPCNVT EQU CVTMAP+28 02312000 CVT0VL00 EQU CVTMAP+24 02313000 CVTXAPG EQU CVTMAP+20 02314000 CVTBUF EQU CVTMAP+16 02315000 CVTJOB EQU CVTMAP+12 02316000 CVTLINK EQU CVTMAP+8 02317000 CVT0EF00 EQU CVTMAP+4 02318000 CVTTCBP EQU CVTMAP 02319000 CVT EQU CVTMAP 02320000 @NM00001 EQU CSD+160 02321000 CSDMASK EQU CSD+128 02322000 CSDUCNT EQU CSD+124 02323000 CSDTCNT EQU CSD+120 02324000 CSDGDTOD EQU CSD+116 02325000 CSDGDINT EQU CSD+112 02326000 CSDGDCC EQU CSD+108 02327000 CSDDDRCT EQU CSD+106 02328000 CSDRV044 EQU CSD+104 02329000 CSDMAFF EQU CSD+24 02330000 CSDRV038 EQU CSDFLAGS 02331000 CSDRV037 EQU CSDFLAGS 02332000 CSDRV036 EQU CSDFLAGS 02333000 CSDRV035 EQU CSDFLAGS 02334000 CSDRV034 EQU CSDFLAGS 02335000 CSDRV033 EQU CSDFLAGS 02336000 CSDRV032 EQU CSDFLAGS 02337000 CSDMP EQU CSDFLAGS 02338000 CSDACR EQU CSD+22 02339000 CSDMF1CP EQU CSD+20 02340000 CSDRV043 EQU CSD+16 02341000 CSDRV030 EQU CSDSCFL4 02342000 CSDRV029 EQU CSDSCFL4 02343000 CSDRV028 EQU CSDSCFL4 02344000 CSDRV027 EQU CSDSCFL4 02345000 CSDRV026 EQU CSDSCFL4 02346000 CSDRV025 EQU CSDSCFL4 02347000 CSDRV024 EQU CSDSCFL4 02348000 CSDRV023 EQU CSDSCFL4 02349000 CSDRV022 EQU CSDSCFL3 02350000 CSDRV021 EQU CSDSCFL3 02351000 CSDRV020 EQU CSDSCFL3 02352000 CSDRV019 EQU CSDSCFL3 02353000 CSDRV018 EQU CSDSCFL3 02354000 CSDRV017 EQU CSDSCFL3 02355000 CSDRV016 EQU CSDSCFL3 02356000 CSDRV015 EQU CSDSCFL3 02357000 CSDRV014 EQU CSDSCFL2 02358000 CSDRV013 EQU CSDSCFL2 02359000 CSDRV012 EQU CSDSCFL2 02360000 CSDRV011 EQU CSDSCFL2 02361000 CSDRV010 EQU CSDSCFL2 02362000 CSDRV009 EQU CSDSCFL2 02363000 CSDRV008 EQU CSDSCFL2 02364000 CSDRV007 EQU CSDSCFL2 02365000 CSDRV006 EQU CSDSCFL1 02366000 CSDRV005 EQU CSDSCFL1 02367000 CSDRV004 EQU CSDSCFL1 02368000 CSDRV003 EQU CSDSCFL1 02369000 CSDRV002 EQU CSDSCFL1 02370000 CSDRV001 EQU CSDSCFL1 02371000 CSDSYSND EQU CSDSCFL1 02372000 CSDRV042 EQU CSDSCFL1 02373000 CSDCPUOL EQU CSD+10 02374000 CSDSAFF EQU CSDCPUAL 02375000 CSDCHAD EQU CSD+6 02376000 CSDCPUJS EQU CSD+4 02377000 CSDCSD EQU CSD 02378000 @NM00029 EQU PSA+3668 02379000 PSASTAK EQU PSA+3072 02380000 @NM00028 EQU PSA+1048 02381000 PSAUSEND EQU PSA+1048 02382000 PSARV062 EQU PSA+1044 02383000 PSACDAL EQU PSA+1040 02384000 PSAWTCOD EQU PSA+1036 02385000 PSAATCVT EQU PSA+1032 02386000 PSAPCPSW EQU PSA+1024 02387000 PSAPIR2 EQU PSA+1020 02388000 PSARV059 EQU PSA+1018 02389000 PSASVC13 EQU PSA+1016 02390000 PSALSFCC EQU PSA+1012 02391000 PSASFACC EQU PSA+1008 02392000 PSASTOP EQU PSA+992 02393000 PSASTART EQU PSA+976 02394000 PSARSPSW EQU PSA+968 02395000 PSASRPSW EQU PSA+960 02396000 PSARV045 EQU PSA+892 02397000 PSARV044 EQU PSA+888 02398000 PSARV043 EQU PSA+884 02399000 PSARV042 EQU PSA+880 02400000 PSARV041 EQU PSA+876 02401000 PSARV040 EQU PSA+872 02402000 PSARV025 EQU PSA+868 02403000 PSADSSED EQU PSA+868 02404000 PSADSSPR EQU PSA+864 02405000 PSADSSFW EQU PSA+860 02406000 PSADSS14 EQU PSA+856 02407000 PSADSSPP EQU PSA+848 02408000 PSADSSRP EQU PSA+840 02409000 PSADSS05 EQU PSADSSF4 02410000 PSADSS10 EQU PSADSSF4 02411000 PSADSSVE EQU PSADSSF4 02412000 PSADSSDE EQU PSADSSF4 02413000 PSADSSC0 EQU PSADSSF4 02414000 PSADSSIE EQU PSADSSF4 02415000 PSADSS12 EQU PSADSSF4 02416000 PSADSSRC EQU PSADSSF4 02417000 PSARV057 EQU PSADSSF3 02418000 PSARV056 EQU PSADSSF3 02419000 PSARV055 EQU PSADSSF3 02420000 PSADSSMC EQU PSADSSF3 02421000 PSADSSRW EQU PSADSSF3 02422000 PSADSSNM EQU PSADSSF3 02423000 PSADSSES EQU PSADSSF3 02424000 PSADSSGP EQU PSADSSF3 02425000 PSADSSF2 EQU PSADSSFL+1 02426000 PSADSSPI EQU PSADSSF1 02427000 PSADSSOI EQU PSADSSF1 02428000 PSADSSSP EQU PSADSSF1 02429000 PSADSSTP EQU PSADSSF1 02430000 PSADSSDW EQU PSADSSF1 02431000 PSADSSDD EQU PSADSSF1 02432000 PSADSSDM EQU PSADSSF1 02433000 PSADSSMV EQU PSADSSF1 02434000 PSADSSTS EQU PSA+816 02435000 PSADSSWK EQU PSA+812 02436000 PSADSSR3 EQU PSA+808 02437000 PSADSSR2 EQU PSA+804 02438000 PSADSSRS EQU PSA+800 02439000 PSASTOR EQU PSA+796 02440000 PSACPUSA EQU PSA+794 02441000 PSAVSTAP EQU PSA+792 02442000 PSAWKVAP EQU PSA+788 02443000 PSAWKRAP EQU PSA+784 02444000 PSAMCHIC EQU PSA+783 02445000 PSARV061 EQU PSA+782 02446000 PSASYMSK EQU PSA+781 02447000 PSAMCHFL EQU PSA+780 02448000 PSACR0 EQU PSA+776 02449000 PSAPSWSV EQU PSA+768 02450000 PSALITA EQU PSA+764 02451000 PSACLHS EQU PSAHLHI 02452000 PSALKR15 EQU PSALKSA+60 02453000 PSALKR14 EQU PSALKSA+56 02454000 PSALKR13 EQU PSALKSA+52 02455000 PSALKR12 EQU PSALKSA+48 02456000 PSALKR11 EQU PSALKSA+44 02457000 PSALKR10 EQU PSALKSA+40 02458000 PSALKR9 EQU PSALKSA+36 02459000 PSALKR8 EQU PSALKSA+32 02460000 PSALKR7 EQU PSALKSA+28 02461000 PSALKR6 EQU PSALKSA+24 02462000 PSALKR5 EQU PSALKSA+20 02463000 PSALKR4 EQU PSALKSA+16 02464000 PSALKR3 EQU PSALKSA+12 02465000 PSALKR2 EQU PSALKSA+8 02466000 PSALKR1 EQU PSALKSA+4 02467000 PSALKR0 EQU PSALKSA 02468000 PSARV023 EQU PSACLHT+52 02469000 PSALOCAL EQU PSACLHT+48 02470000 PSACMSL EQU PSACLHT+44 02471000 PSAOPTL EQU PSACLHT+40 02472000 PSATPACL EQU PSACLHT+36 02473000 PSATPDNL EQU PSACLHT+32 02474000 PSATPNCL EQU PSACLHT+28 02475000 PSAIOSLL EQU PSACLHT+24 02476000 PSAIOSUL EQU PSACLHT+20 02477000 PSAIOSCL EQU PSACLHT+16 02478000 PSAIOSSL EQU PSACLHT+12 02479000 PSASALCL EQU PSACLHT+8 02480000 PSAASML EQU PSACLHT+4 02481000 PSADISPL EQU PSACLHT 02482000 PSASRSA EQU PSA+636 02483000 PSARV050 EQU PSA+634 02484000 PSADSSGO EQU PSA+633 02485000 PSARECUR EQU PSA+632 02486000 PSAHLHIS EQU PSA+628 02487000 PSAIPCSA EQU PSA+624 02488000 @NM00027 EQU PSA+621 02489000 PSAIPCDM EQU PSA+620 02490000 PSAIPCD EQU PSA+616 02491000 @NM00026 EQU PSA+613 02492000 PSAIPCRM EQU PSA+612 02493000 PSAIPCR EQU PSA+608 02494000 PSAMCHEX EQU PSA+600 02495000 PSAMPSW EQU PSA+592 02496000 PSAEXPS2 EQU PSA+584 02497000 PSAEXPS1 EQU PSA+576 02498000 PSAPIREG EQU PSA+572 02499000 PSARSREG EQU PSA+568 02500000 PSAGPREG EQU PSA+556 02501000 PSARV022 EQU PSASUP4 02502000 PSARV021 EQU PSASUP4 02503000 PSARV020 EQU PSASUP4 02504000 PSARV019 EQU PSASUP4 02505000 PSARV018 EQU PSASUP4 02506000 PSARV017 EQU PSASUP4 02507000 PSARV016 EQU PSASUP4 02508000 PSARV015 EQU PSASUP4 02509000 PSARV014 EQU PSASUP3 02510000 PSARV013 EQU PSASUP3 02511000 PSARV012 EQU PSASUP3 02512000 PSAESTA EQU PSASUP3 02513000 PSASPR EQU PSASUP3 02514000 PSAPSREG EQU PSASUP3 02515000 PSAPI2 EQU PSASUP3 02516000 PSAIOSUP EQU PSASUP3 02517000 PSALCR EQU PSASUP2 02518000 PSARTM EQU PSASUP2 02519000 PSAACR EQU PSASUP2 02520000 PSAIPCE2 EQU PSASUP2 02521000 PSAIPCES EQU PSASUP2 02522000 PSAIPCEC EQU PSASUP2 02523000 PSAGTF EQU PSASUP2 02524000 PSAIPCRI EQU PSASUP2 02525000 PSATYPE6 EQU PSASUP1 02526000 PSATCTL EQU PSASUP1 02527000 PSADISP EQU PSASUP1 02528000 PSALOCK EQU PSASUP1 02529000 PSAPI EQU PSASUP1 02530000 PSAEXT EQU PSASUP1 02531000 PSASVC EQU PSASUP1 02532000 PSAIO EQU PSASUP1 02533000 PSAAOLD EQU PSA+548 02534000 PSAANEW EQU PSA+544 02535000 PSATOLD EQU PSA+540 02536000 PSATNEW EQU PSA+536 02537000 PSALCCAR EQU PSA+532 02538000 PSALCCAV EQU PSA+528 02539000 PSAPCCAR EQU PSA+524 02540000 PSAPCCAV EQU PSA+520 02541000 PSACPULA EQU PSA+518 02542000 PSACPUPA EQU PSA+516 02543000 PSAPSA EQU PSA+512 02544000 FLCHDEND EQU PSA+512 02545000 FLCCRSAV EQU FLCMCLA+280 02546000 FLCGRSAV EQU FLCMCLA+216 02547000 FLCFPSAV EQU FLCMCLA+184 02548000 FLCFLA EQU FLCMCLA+88 02549000 FLCRGNCD EQU FLCMCLA+84 02550000 FLCFSAA EQU FLCFSA+1 02551000 @NM00025 EQU FLCFSA 02552000 @NM00024 EQU FLCMCLA+72 02553000 FLCMCIC EQU FLCMCLA+64 02554000 @NM00023 EQU FLCMCLA+20 02555000 FLCIOAA EQU FLCIOA+1 02556000 @NM00022 EQU FLCIOA 02557000 @NM00021 EQU FLCMCLA+15 02558000 @NM00020 EQU FLCMCLA+14 02559000 @NM00019 EQU FLCMCLA+12 02560000 FLCLCL EQU FLCMCLA+8 02561000 FLCIOELA EQU FLCIOEL+1 02562000 @NM00018 EQU FLCIOEL 02563000 FLCCHNID EQU FLCMCLA 02564000 @NM00017 EQU PSA+160 02565000 FLCMTRCD EQU PSA+157 02566000 @NM00016 EQU PSA+156 02567000 FLCPERA EQU FLCPER+1 02568000 @NM00015 EQU FLCPER 02569000 @NM00014 EQU PSA+151 02570000 FLCPERCD EQU PSA+150 02571000 FLCMCNUM EQU PSA+149 02572000 @NM00013 EQU PSA+148 02573000 FLCTEAA EQU FLCTEA+1 02574000 @NM00012 EQU FLCTEA 02575000 PSAPIPC EQU PSAPICOD 02576000 PSAPIMC EQU PSAPICOD 02577000 PSAPIPER EQU PSAPICOD 02578000 PSARV049 EQU FLCPICOD 02579000 FLCPILCB EQU FLCPIILC 02580000 @NM00011 EQU FLCPIILC 02581000 @NM00010 EQU PSAEPPSW 02582000 FLCSVCN EQU PSAESPSW+2 02583000 FLCSILCB EQU FLCSVILC 02584000 @NM00009 EQU FLCSVILC 02585000 @NM00008 EQU PSAESPSW 02586000 FLCEICOD EQU PSAEEPSW+2 02587000 PSASPAD EQU PSAEEPSW 02588000 @NM00007 EQU PSA+128 02589000 FLCINPSW EQU PSA+120 02590000 FLCMNPSW EQU PSA+112 02591000 FLCPNPSW EQU PSA+104 02592000 FLCSNPSW EQU PSA+96 02593000 FLCENPSW EQU PSA+88 02594000 FLCTRACE EQU PSA+84 02595000 FLCTIMER EQU PSA+80 02596000 FLCCVT2 EQU PSA+76 02597000 FLCCAW EQU PSA+72 02598000 FLCCSW EQU PSA+64 02599000 FLCIOPSW EQU PSA+56 02600000 FLCMOPSW EQU PSA+48 02601000 FLCPOPSW EQU PSA+40 02602000 FLCSOPSW EQU PSA+32 02603000 FLCEOPSW EQU PSA+24 02604000 @NM00006 EQU FLCICCW2+4 02605000 FLCICCW1 EQU FLCROPSW 02606000 FLCIPPSW EQU FLCRNPSW 02607000 * END UNREFERENCED COMPONENTS 02608000 @RT00110 EQU TM0070 02609000 @RT00127 EQU TM0075 02610000 @RT00135 EQU TM0080 02611000 @RT00144 EQU TM0090 02612000 @RT00152 EQU TM0100 02613000 @RT00192 EQU TM9000 02614000 @ENDDATA EQU * 02615000 END IRBMFTMA,(C'PLS2023',0701,76110) 02616000