TITLE ' /* IRBMFIWK WORKLOAD INITIALIZATION *00001000 ' 00002000 IRBMFIWK CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IRBMFIWK 76.105' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @10,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@10 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @09,@01 0001 00016000 USING @DATD,@09 0001 00017000 ST @13,@SA00001+4 0001 00018000 LM @00,@01,20(@13) 0001 00019000 ST @09,8(,@13) 0001 00020000 LR @13,@09 0001 00021000 MVC @PC00001(4),0(@01) 0001 00022000 * 0025 00023000 */* FUNCTIONAL CODE */ 00024000 * 0025 00025000 * WAMPPTR=0; /* UNUSED MAPPING MACRO POINTER */ 00026000 * 0025 00027000 SLR WAMPPTR,WAMPPTR 0025 00028000 * /*****************************************************************/ 00029000 * /* */ 00030000 * /* IF INPUT OPTION IS INVALID, ZERO IT AND RETURN NORMAL CODE */ 00031000 * /* */ 00032000 * /*****************************************************************/ 00033000 * 0026 00034000 * IF STSMWKLD=CNOWKLD /* IF WKLD NOT REQUESTED, DO */ 00035000 * THEN 0026 00036000 L @12,@PC00001 0026 00037000 L @12,STSMAPTR(,@12) 0026 00038000 TM STSMWKLD(@12),B'00000011' 0026 00039000 BNZ @RF00026 0026 00040000 * DO; 0027 00041000 * STSMOPT=0; /* CLEAR OPTION WORD */ 00042000 SLR @11,@11 0028 00043000 ST @11,STSMOPT(,@12) 0028 00044000 * RETURN CODE(CONTINUE); /* DO NOT INDICATE THIS AS ERROR */ 00045000 L @13,4(,@13) 0029 00046000 L @00,@SIZDATD 0029 00047000 LR @01,@09 0029 00048000 FREEMAIN R,LV=(0),A=(1) 00049000 SLR @15,@15 0029 00050000 L @14,12(,@13) 0029 00051000 LM @00,@12,20(@13) 0029 00052000 BR @14 0029 00053000 * END; 0030 00054000 * 0030 00055000 * /*****************************************************************/ 00056000 * /* */ 00057000 * /* GET STORAGE FOR RESOURCE TABLES: STPRT & STSGT MACDATE Y-2 */ 00058000 * /* 73018 */ 00059000 * /* */ 00060000 * /*****************************************************************/ 00061000 * 0031 00062000 * RESPECIFY 0031 00063000 * (GPR00P, 0031 00064000 * GPR01P, 0031 00065000 * GPR14P, 0031 00066000 * GPR15P) RESTRICTED; 0031 00067000 @RF00026 DS 0H 0032 00068000 * GPR00P=IWPRTSRG; /* STPRT LENGTH & SP */ 00069000 L GPR00P,IWPRTSRG 0032 00070000 * GEN(GETMAIN R,LV=(0)); 0033 00071000 GETMAIN R,LV=(0) 00072000 * GPR01P->IWSPLEN=IWPRTSRG; /* SAVE SP&LENGTH IN AREA ITSELF */ 00073000 L @12,IWPRTSRG 0034 00074000 ST @12,IWSPLEN(,GPR01P) 0034 00075000 * STRVSPRT=GPR01P-CSPLENPR; /* SAVE STPRT DATA POINTER */ 00076000 L @12,@PC00001 0035 00077000 L @12,STSMAPTR(,@12) 0035 00078000 L @12,STSMRVT(,@12) 0035 00079000 LR @11,GPR01P 0035 00080000 SL @11,@CF01216 0035 00081000 ST @11,STRVSPRT(,@12) 0035 00082000 * GPR00P=IWSGTSRG; /* STSGT SP & LENGTH */ 00083000 L GPR00P,IWSGTSRG 0036 00084000 * GEN(GETMAIN R,LV=(0)); 0037 00085000 GETMAIN R,LV=(0) 00086000 * GPR01P->IWSPLEN=IWSGTSRG; /* SAVE SP&LENGTH IN AREA ITSELF */ 00087000 L @12,IWSGTSRG 0038 00088000 ST @12,IWSPLEN(,GPR01P) 0038 00089000 * STRVSSGT=GPR01P-CSPLENPR; /* SAVE STSGT DATA POINTER */ 00090000 * 0039 00091000 L @12,@PC00001 0039 00092000 L @12,STSMAPTR(,@12) 0039 00093000 L @12,STSMRVT(,@12) 0039 00094000 LR @11,GPR01P 0039 00095000 SL @11,@CF01216 0039 00096000 ST @11,STRVSSGT(,@12) 0039 00097000 * /*****************************************************************/ 00098000 * /* */ 00099000 * /* MACDATE Y-2 73018 */ 00100000 * /* */ 00101000 * /*****************************************************************/ 00102000 * 0040 00103000 * RESPECIFY 0040 00104000 * (GPR00P, 0040 00105000 * GPR01P, 0040 00106000 * GPR14P, 0040 00107000 * GPR15P) UNRESTRICTED; 0040 00108000 * 0040 00109000 * /*****************************************************************/ 00110000 * /* */ 00111000 * /* GET STORAGE FOR WORKLOAD INTERVAL DATA TABLE MACDATE Y-2 73018*/ 00112000 * /* */ 00113000 * /*****************************************************************/ 00114000 * 0041 00115000 * RESPECIFY 0041 00116000 * (GPR00P, 0041 00117000 * GPR01P, 0041 00118000 * GPR14P, 0041 00119000 * GPR15P) RESTRICTED; 0041 00120000 * GPR00P=IWWINSRG; /* DWWIN SP & LEN */ 00121000 L GPR00P,IWWINSRG 0042 00122000 * GEN(GETMAIN R,LV=(0)); 0043 00123000 GETMAIN R,LV=(0) 00124000 * STSMLCOM=GPR01P; /* SAVE DWWIN ADDRESS */ 00125000 L @12,@PC00001 0044 00126000 L @12,STSMAPTR(,@12) 0044 00127000 ST GPR01P,STSMLCOM(,@12) 0044 00128000 * STSGFREE(STRVNSGT)=IWWINSRG; /* SAVE SP & LENGTH */ 00129000 L @12,STSMRVT(,@12) 0045 00130000 L @11,STRVNSGT(,@12) 0045 00131000 LR @08,@11 0045 00132000 SLA @08,3 0045 00133000 L @07,STRVSSGT(,@12) 0045 00134000 ST @08,@TF00001 0045 00135000 ALR @08,@07 0045 00136000 AL @08,@CF01371 0045 00137000 MVC STSGFREE(4,@08),IWWINSRG 0045 00138000 * STSGADD(STRVNSGT)=GPR01P; /* SAVE ADDRESS */ 00139000 L @08,@TF00001 0046 00140000 AL @07,@CF01216 0046 00141000 ST GPR01P,STSGADD-4(@08,@07) 0046 00142000 * STRVNSGT=STRVNSGT+1; /* POINT TO NEXT SGT ENTRY */ 00143000 * 0047 00144000 AL @11,@CF00062 0047 00145000 ST @11,STRVNSGT(,@12) 0047 00146000 * /*****************************************************************/ 00147000 * /* */ 00148000 * /* MACDATE Y-2 73018 */ 00149000 * /* */ 00150000 * /*****************************************************************/ 00151000 * 0048 00152000 * RESPECIFY 0048 00153000 * (GPR00P, 0048 00154000 * GPR01P, 0048 00155000 * GPR14P, 0048 00156000 * GPR15P) UNRESTRICTED; 0048 00157000 * DWWIN=DWWIN&&DWWIN; /* CLEAR DWWIN TABLE. */ 00158000 * 0049 00159000 L @12,@PC00001 0049 00160000 L @12,STSMAPTR(,@12) 0049 00161000 L @12,STSMLCOM(,@12) 0049 00162000 XC DWWIN(16,@12),DWWIN(@12) 0049 00163000 * /*****************************************************************/ 00164000 * /* */ 00165000 * /* LOAD AND FIX THE WORKLOAD ACTIVITY MODULE USED BY THE */ 00166000 * /* RESOURCES MANAGER MACDATE Y-2 73018 */ 00167000 * /* */ 00168000 * /*****************************************************************/ 00169000 * 0050 00170000 * RESPECIFY 0050 00171000 * (GPR00P, 0050 00172000 * GPR01P, 0050 00173000 * GPR14P, 0050 00174000 * GPR15P) RESTRICTED; 0050 00175000 * GEN(LOAD EP=IRARMWAR); 0051 00176000 LOAD EP=IRARMWAR 00177000 * GEN(LA GPR01P,0(,GPR01P) CLEAR HIGH ORDER BYTE OF LENGTH); 00178000 LA GPR01P,0(,GPR01P) CLEAR HIGH ORDER BYTE OF LENGTH 00179000 * IWMODEPA=GPR00P; /* SAVE EP ADDRESS FOR MFIIPSWA */ 00180000 * 0053 00181000 ST GPR00P,IWMODEPA 0053 00182000 * /*****************************************************************/ 00183000 * /* */ 00184000 * /* REMEMBER NAME, ADDRESS, AND LENGTH IN PROGRAM RESOURCE TABLE */ 00185000 * /* */ 00186000 * /*****************************************************************/ 00187000 * 0054 00188000 * STPRNAME(STRVNPRT)='IRARMWAR'; /* NAME FOR DELETE */ 00189000 L @12,@PC00001 0054 00190000 L @12,STSMAPTR(,@12) 0054 00191000 L @12,STSMRVT(,@12) 0054 00192000 L @11,STRVNPRT(,@12) 0054 00193000 LR @08,@11 0054 00194000 SLA @08,4 0054 00195000 L @07,STRVSPRT(,@12) 0054 00196000 ST @08,@TF00001 0054 00197000 ALR @08,@07 0054 00198000 AL @08,@CF01372 0054 00199000 MVC STPRNAME(8,@08),@CC01219 0054 00200000 * STPRADDR(STRVNPRT)=GPR00P; /* ADDRESS FOR PGFREE */ 00201000 * 0055 00202000 L @08,@TF00001 0055 00203000 AL @08,@CF01371 0055 00204000 ST GPR00P,STPRADDR-8(@08,@07) 0055 00205000 * /*****************************************************************/ 00206000 * /* */ 00207000 * /* SAVE NEGATIVE LENGTH TO FLAG NEED FOR BRANCH ENTRY TO PGFREE */ 00208000 * /* */ 00209000 * /*****************************************************************/ 00210000 * 0056 00211000 * STPRLGTH(STRVNPRT)=-(GPR01P*8); /* NEGATIVE LENGTH */ 00212000 LR @08,GPR01P 0056 00213000 SLA @08,3 0056 00214000 LCR @08,@08 0056 00215000 L @06,@TF00001 0056 00216000 AL @07,@CF01216 0056 00217000 ST @08,STPRLGTH-12(@06,@07) 0056 00218000 * STRVNPRT=STRVNPRT+1; /* POINT TO NEXT STPRT ENTRY */ 00219000 AL @11,@CF00062 0057 00220000 ST @11,STRVNPRT(,@12) 0057 00221000 * IWPGFECB=0; /* CLEAR ECB */ 00222000 * 0058 00223000 SLR @12,@12 0058 00224000 ST @12,IWPGFECB 0058 00225000 * /*****************************************************************/ 00226000 * /* */ 00227000 * /* GET LOCAL LOCK BEFORE PGFIX BRANCH ENTRY */ 00228000 * /* */ 00229000 * /*****************************************************************/ 00230000 * 0059 00231000 * RFY 0059 00232000 * (GPR11P, 0059 00233000 * GPR12P, 0059 00234000 * GPR13P, 0059 00235000 * GPR14P, 0059 00236000 * GPR00P) RSTD; 0059 00237000 * GEN REFS(PSALITA); 0060 00238000 LR GPR00P,GPR13P TEMP SAVE OF SAVE AREA ADDR. 00239000 IW010 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, X00240000 RELATED=(LOCAL,IRBMFIWK(IW020)) 00241000 LR GPR13P,GPR00P RESTORE SAVE AREA ADDRESS 00242000 * RFY 0061 00243000 * (GPR11P, 0061 00244000 * GPR12P, 0061 00245000 * GPR13P, 0061 00246000 * GPR14P, 0061 00247000 * GPR00P) UNRSTD; 0061 00248000 * 0061 00249000 * /*****************************************************************/ 00250000 * /* */ 00251000 * /* SET NON SWAP BIT IN ASCB TO FORCE FIX INTO PREFERRED AREA */ 00252000 * /* @YM8211P*/ 00253000 * /* */ 00254000 * /*****************************************************************/ 00255000 * 0062 00256000 * ASCBNSWP='1'B; /* @YM8211P*/ 00257000 * 0062 00258000 L @14,ASCBPTR 0062 00259000 OI ASCBNSWP(@14),B'00000001' 0062 00260000 * /*****************************************************************/ 00261000 * /* */ 00262000 * /* PAGE FIX WITH BRANCH ENTRY, TCB = ZERO, TO KEEP AREA FIXED */ 00263000 * /* WHILE MF/1 IS SWAPPED OUT */ 00264000 * /* */ 00265000 * /*****************************************************************/ 00266000 * 0063 00267000 * RFY 0063 00268000 * (GPR00P, 0063 00269000 * GPR01P, 0063 00270000 * GPR02P, 0063 00271000 * GPR04P) RSTD; 0063 00272000 * GPR00P=ADDR(IWPGFECB); /* ADDR OF ECB FOR PGFIX */ 00273000 LA GPR00P,IWPGFECB 0064 00274000 * GPR01P=IWMODEPA|CPGFIX; /* PGFIX START ADDR(WITH BE BIT) */ 00275000 L @14,IWMODEPA 0065 00276000 LR GPR01P,@14 0065 00277000 O GPR01P,@CF01218 0065 00278000 * GPR02P=IWMODEPA-STPRLGTH(STRVNPRT-1);/* END OF PGFIX AREA + 1 */ 00279000 L @12,@PC00001 0066 00280000 L @12,STSMAPTR(,@12) 0066 00281000 L @12,STSMRVT(,@12) 0066 00282000 L @11,STRVNPRT(,@12) 0066 00283000 SLA @11,4 0066 00284000 L @12,STRVSPRT(,@12) 0066 00285000 AL @12,@CF01374 0066 00286000 SL @14,STPRLGTH-12(@11,@12) 0066 00287000 LR GPR02P,@14 0066 00288000 * GPR04P=0; /* TCB ADDR OF ZERO DISASSOCIATES 00289000 * PGFIX FROM ADDRESS SPACE */ 00290000 SLR GPR04P,GPR04P 0067 00291000 * CALL IEAVPSIB; /* BRANCH ENTRY TO PAGE FIX */ 00292000 L @12,CVTPTR 0068 00293000 L @15,CVTVPSIB(,@12) 0068 00294000 BALR @14,@15 0068 00295000 * RFY 0069 00296000 * (GPR00P, 0069 00297000 * GPR01P, 0069 00298000 * GPR02P, 0069 00299000 * GPR04P) UNRSTD; 0069 00300000 * 0069 00301000 * /*****************************************************************/ 00302000 * /* */ 00303000 * /* RESET BIT IN ASCB @YM8211P*/ 00304000 * /* */ 00305000 * /*****************************************************************/ 00306000 * 0070 00307000 * ASCBNSWP='0'B; /* @YM8211P*/ 00308000 * 0070 00309000 L @14,ASCBPTR 0070 00310000 NI ASCBNSWP(@14),B'11111110' 0070 00311000 * /*****************************************************************/ 00312000 * /* */ 00313000 * /* RELEASE LOCAL LOCK AFTER BRANCH ENTRY TO PGFIX */ 00314000 * /* */ 00315000 * /*****************************************************************/ 00316000 * 0071 00317000 * RFY 0071 00318000 * (GPR11P, 0071 00319000 * GPR12P, 0071 00320000 * GPR13P, 0071 00321000 * GPR14P, 0071 00322000 * GPR00P) RSTD; 0071 00323000 * GEN; 0072 00324000 LR GPR00P,GPR13P TEMP SAVE OF SAVE AREA ADDR. 00325000 IW020 SETLOCK RELEASE,TYPE=LOCAL, X00326000 RELATED=(LOCAL,IRBMFIWK(IW010)) 00327000 LR GPR13P,GPR00P RESTORE SAVE AREA ADDRESS 00328000 * GEN SETS(IWPGFECB)(WAIT ECB=IWPGFECB); 0073 00329000 WAIT ECB=IWPGFECB 00330000 * RFY 0074 00331000 * (GPR11P, 0074 00332000 * GPR12P, 0074 00333000 * GPR13P, 0074 00334000 * GPR14P, 0074 00335000 * GPR00P) UNRSTD; 0074 00336000 * 0074 00337000 * /*****************************************************************/ 00338000 * /* */ 00339000 * /* LOAD WORKLOAD INTERVAL DATA GATHERING ROUTINE MACDATE Y-2 */ 00340000 * /* 73018 */ 00341000 * /* */ 00342000 * /*****************************************************************/ 00343000 * 0075 00344000 * RESPECIFY 0075 00345000 * (GPR00P, 0075 00346000 * GPR01P, 0075 00347000 * GPR14P, 0075 00348000 * GPR15P) RESTRICTED; 0075 00349000 * GEN(LOAD EP=IRBMFDWP); 0076 00350000 LOAD EP=IRBMFDWP 00351000 * GEN(LA GPR01P,0(,GPR01P) CLEAR HIGH ORDER BYTE OF LENGTH); 00352000 * 0077 00353000 LA GPR01P,0(,GPR01P) CLEAR HIGH ORDER BYTE OF LENGTH 00354000 * /*****************************************************************/ 00355000 * /* */ 00356000 * /* REMEMBER NAME, ADDRESS AND LENGTH IN PROGRAM RESOURCE TABLE. */ 00357000 * /* ADDR & LENGTH USED TO PAGE FREE FIXES DONE BY INTERVAL DATA */ 00358000 * /* ITSELF,ON ITSELF. */ 00359000 * /* */ 00360000 * /*****************************************************************/ 00361000 * 0078 00362000 * STPRNAME(STRVNPRT)='IRBMFDWP'; 0078 00363000 L @12,@PC00001 0078 00364000 L @12,STSMAPTR(,@12) 0078 00365000 L @11,STSMRVT(,@12) 0078 00366000 L @08,STRVNPRT(,@11) 0078 00367000 LR @07,@08 0078 00368000 SLA @07,4 0078 00369000 L @06,STRVSPRT(,@11) 0078 00370000 ST @07,@TF00001 0078 00371000 ALR @07,@06 0078 00372000 AL @07,@CF01372 0078 00373000 MVC STPRNAME(8,@07),@CC01222 0078 00374000 * STPRADDR(STRVNPRT)=GPR00P; 0079 00375000 L @07,@TF00001 0079 00376000 AL @07,@CF01371 0079 00377000 ST GPR00P,STPRADDR-8(@07,@06) 0079 00378000 * STPRLGTH(STRVNPRT)=GPR01P*8; 0080 00379000 LR @07,GPR01P 0080 00380000 SLA @07,3 0080 00381000 L @05,@TF00001 0080 00382000 AL @06,@CF01216 0080 00383000 ST @07,STPRLGTH-12(@05,@06) 0080 00384000 * STRVNPRT=STRVNPRT+1; 0081 00385000 * 0081 00386000 AL @08,@CF00062 0081 00387000 ST @08,STRVNPRT(,@11) 0081 00388000 * /*****************************************************************/ 00389000 * /* */ 00390000 * /* SAVE INTERVAL ROUTINE ADDRESS FOR SVC MFDATA */ 00391000 * /* */ 00392000 * /*****************************************************************/ 00393000 * 0082 00394000 * STSMINTP=GPR00P; 0082 00395000 * 0082 00396000 ST GPR00P,STSMINTP(,@12) 0082 00397000 * /*****************************************************************/ 00398000 * /* */ 00399000 * /* MACDATE Y-2 73018 */ 00400000 * /* */ 00401000 * /*****************************************************************/ 00402000 * 0083 00403000 * RESPECIFY 0083 00404000 * (GPR00P, 0083 00405000 * GPR01P, 0083 00406000 * GPR14P, 0083 00407000 * GPR15P) UNRESTRICTED; 0083 00408000 * 0083 00409000 * /*****************************************************************/ 00410000 * /* */ 00411000 * /* CALL FOR NEW WORKLOAD ACTIVITY DATA AREA */ 00412000 * /* */ 00413000 * /*****************************************************************/ 00414000 * 0084 00415000 * CALL MFIIPSWA(IWMODEPA /* ADDRESS OF IRARMWAR, INPUT */ 00416000 * ,IWLENWAM /* LENGTH OF WAMT, OUTPUT */ 00417000 * ); 0084 00418000 * 0084 00419000 LA @12,IWMODEPA 0084 00420000 ST @12,@AL00001 0084 00421000 LA @12,IWLENWAM 0084 00422000 ST @12,@AL00001+4 0084 00423000 LA @01,@AL00001 0084 00424000 BAL @14,MFIIPSWA 0084 00425000 * /*****************************************************************/ 00426000 * /* */ 00427000 * /* MACDATE Y-2 73018 */ 00428000 * /* */ 00429000 * /*****************************************************************/ 00430000 * 0085 00431000 * RESPECIFY 0085 00432000 * (GPR00P, 0085 00433000 * GPR01P, 0085 00434000 * GPR14P, 0085 00435000 * GPR15P) RESTRICTED; 0085 00436000 * IF GPR15P=0 THEN /* IF SUCCESSFUL INITIALIZATION */ 00437000 LTR GPR15P,GPR15P 0086 00438000 BNZ @RF00086 0086 00439000 * DO; 0087 00440000 * 0087 00441000 * /*************************************************************/ 00442000 * /* */ 00443000 * /* MACDATE Y-2 73018 */ 00444000 * /* */ 00445000 * /*************************************************************/ 00446000 * 0088 00447000 * RESPECIFY 0088 00448000 * (GPR00P, 0088 00449000 * GPR01P, 0088 00450000 * GPR14P, 0088 00451000 * GPR15P) UNRESTRICTED; 0088 00452000 * DWWIWAML=IWLENWAM; /* REMEMBER LENGTH OF INTERVAL 0089 00453000 * DATA, THE LOCAL WAMT. */ 00454000 L @12,@PC00001 0089 00455000 L @12,STSMAPTR(,@12) 0089 00456000 L @12,STSMLCOM(,@12) 0089 00457000 L @11,IWLENWAM 0089 00458000 ST @11,DWWIWAML(,@12) 0089 00459000 * RETURN CODE(CONTINUE); /* INITIALIZATION COMPLETED OK */ 00460000 L @13,4(,@13) 0090 00461000 L @00,@SIZDATD 0090 00462000 LR @01,@09 0090 00463000 FREEMAIN R,LV=(0),A=(1) 00464000 SLR @15,@15 0090 00465000 L @14,12(,@13) 0090 00466000 LM @00,@12,20(@13) 0090 00467000 BR @14 0090 00468000 * END; 0091 00469000 * 0091 00470000 * /*****************************************************************/ 00471000 * /* */ 00472000 * /* UNSUCCESSFUL ATTEMPT AT WORKLOAD INITIALIZATION MACDATE Y-2 */ 00473000 * /* 73018 */ 00474000 * /* */ 00475000 * /*****************************************************************/ 00476000 * 0092 00477000 * RESPECIFY 0092 00478000 * (GPR00P, 0092 00479000 * GPR01P, 0092 00480000 * GPR14P, 0092 00481000 * GPR15P) RESTRICTED; 0092 00482000 @RF00086 DS 0H 0093 00483000 * GEN(ABEND X'26D',DUMP,,SYSTEM); /* REASON CODE IS IN GPR15. */ 00484000 * 0093 00485000 ABEND X'26D',DUMP,,SYSTEM 00486000 * /*****************************************************************/ 00487000 * /* */ 00488000 * /* MACDATE Y-2 73018 */ 00489000 * /* */ 00490000 * /*****************************************************************/ 00491000 * 0094 00492000 * RESPECIFY 0094 00493000 * (GPR00P, 0094 00494000 * GPR01P, 0094 00495000 * GPR14P, 0094 00496000 * GPR15P) UNRESTRICTED; 0094 00497000 * 0095 00498000 */********************************************************************/ 00499000 */* */ 00500000 */* PROCEDURE NAME = MFIIPSWA */ 00501000 */* */ 00502000 */* DESCRIPTIVE NAME = NEW WORKLOAD ACTIVITY DATA AREA */ 00503000 */* */ 00504000 */* FUNCTION = ACTIVATES THE COLLECTION OF WORKLOAD ACTIVITY MEASURE-*/ 00505000 */* MENTS BY THE WORKLOAD MANAGER. IT ALLOCATES THE WORK-*/ 00506000 */* LOAD ACTIVITY MEASUREMENT TABLE (WAMT) AND ISSUES THE */ 00507000 */* SYSEVENT WKLDINIT. IF THE INPUT INSTALLATION PERFOR- */ 00508000 */* MANCE SPECIFICATION (IPS) DATA IS REJECTED, AN ADDI- */ 00509000 */* TIONAL ATTEMPT IS MADE AT ISSUING SYSEVENT WKLDINIT */ 00510000 */* BEFORE RETURNING TO PROCEDURE IRBMFIWK, WITH AN ERROR */ 00511000 */* RETURN CODE. IF WORKLOAD ACTIVITY MEASUREMENTS ARE */ 00512000 */* ALREADY ACTIVE, AN ERROR RETURN CODE IS RETURNED TO */ 00513000 */* PROCEDURE IRVMFIWK. */ 00514000 */* */ 00515000 */********************************************************************/ 00516000 */* */ 00517000 * 0095 00518000 *MFIIPSWA: /* NEW WORKLOAD ACTIVITY DATA 0095 00519000 * AREA */ 00520000 * PROC(IIMODEPA /* MODULE ENTRY POINT ADDRESS */ 00521000 * ,IILENWAM /* LENGTH OF WAMT, OUTPUT */ 00522000 * ); 0095 00523000 @EL00001 L @13,4(,@13) 0095 00524000 @EF00001 L @00,@SIZDATD 0095 00525000 LR @01,@09 0095 00526000 FREEMAIN R,LV=(0),A=(1) 00527000 @ER00001 LM @14,@12,12(@13) 0095 00528000 BR @14 0095 00529000 MFIIPSWA STM @14,@12,@SA00002 0095 00530000 MVC @PC00002(8),0(@01) 0095 00531000 * 0096 00532000 */* MAPPING MACROS */ 00533000 * 0096 00534000 * /*****************************************************************/ 00535000 * /* */ 00536000 * /* RESOURCES MANAGER CONTROL TABLE */ 00537000 * /* */ 00538000 * /*****************************************************************/ 00539000 * 0096 00540000 */* */ 00541000 */* MACCOMP Z-4 SC1CX/PKD16 */ 00542000 */* MACSTAT Z-4 75007/Z40BPSS */ 00543000 */* *************************************************************** */ 00544000 */* */ 00545000 */* MACRO NAME - IRARMCT */ 00546000 */* */ 00547000 */* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER CONTROL TABLE */ 00548000 */* */ 00549000 */* COPYRIGHT - NONE */ 00550000 */* */ 00551000 */* STATUS - OS/VS2 RELEASE 4, 10/28/75, LEVEL=1 */ 00552000 */* */ 00553000 */* FUNCTION - THE RMCT SERVES AS THE ORIGIN TO LOCATE SYSTEM */ 00554000 */* RESOURCES MANAGER TABLES AND ENTRY POINTS. THE RMCT */ 00555000 */* LOCATES THE SCHEDULING / ROUTING INFORMATION USED TO */ 00556000 */* INVOKE THE REQUIRED PROCESSING FOR THE VARIOUS SYSTEM */ 00557000 */* RESOURCES MANAGER FUNCTIONS. */ 00558000 */* */ 00559000 */* METHOD OF ACCESS - THE ADDRESS OF THE RMCT IS CONTAINED IN */ 00560000 */* THE -CVTOPCTP- FIELD OF THE CVT. */ 00561000 */* */ 00562000 */* BY CONVENTION WITHIN THE SYSTEM RESOURCES MANAGER */ 00563000 */* ROUTINES, REGISTER 2 IS ALWAYS RESERVED TO CONTAIN */ 00564000 */* THE ADDRESS OF THE RMCT. */ 00565000 */* */ 00566000 */* *************************************************************** */ 00567000 * 0096 00568000 * DCL 0096 00569000 * 1 RMCT BASED(RMCTPTR) BDY(DWORD), 0096 00570000 * 10 RMCTNAME CHAR(4), /* BLOCK IDENTIFICATION - 'RMCT' */ 00571000 * 10 RMCTCCT PTR(31), /* CPU MGMT CONTROL TABLE */ 00572000 * 10 RMCTICT PTR(31), /* I/O MGMT CONTROL TABLE */ 00573000 * 10 RMCTMCT PTR(31), /* STORAGE MGMT CONTROL TABLE */ 00574000 * 10 RMCTRMPT PTR(31), /* CTL ALGORITHM PARAMETER TBL */ 00575000 * 10 RMCTRMCA PTR(31), /* CTL ALGORITHM CONTROL AREA */ 00576000 * 10 RMCTWMST PTR(31), /* WLM SPECIFICATION TABLE */ 00577000 * 10 RMCTRLCT PTR(31), /* LOGICAL CHANNEL MGMT TABLE */ 00578000 * 10 RMCTRMSA PTR(31), /* RESOURCES MANAGER SAVE AREA */ 00579000 * 10 RMCTRMPD PTR(31), /* RESOURCES MANAGER PERF DATA */ 00580000 * 10 RMCTRMEX PTR(31), /* ROUTINE EXITING VECTOR TABLE */ 00581000 * 10 RMCTRMSB PTR(31), /* SUBRTNE CALLING VECTOR TABLE */ 00582000 * 10 RMCTEPPA PTR(31), /* PRTL ANALYSIS ENTRY TABLE */ 00583000 * 10 RMCTEPDT PTR(31), /* USER ACTION ENTRY TABLE */ 00584000 * 10 RMCTEPAT PTR(31), /* ALGORITHM ENTRY TABLE */ 00585000 * 10 RMCTR05 FIXED, /* RESERVED @Z40BPCH*/ 00586000 * 10 RMCTADJC FIXED, /* CPU RATE ADJUSTMENT */ 00587000 * 10 RMCTITT PTR(31), /* EVENT CHARACTERISTICS TABLE */ 00588000 * 10 RMCTEPET PTR(31), /* EVENT ROUTING VECTOR TABLE */ 00589000 * 10 RMCTFLTM PTR(31), /* TIME OF DAY DEPENDENT TABLE */ 00590000 * 10 RMCTEPPR PTR(31), /* PROCESS RATE DEPENDENT TABLE */ 00591000 * 10 RMCTWAST PTR(31), /* WAR SPECIFICATION TABLE */ 00592000 * 10 RMCTWAMT PTR(31), /* WAR MEASUREMENT TABLE */ 00593000 * 10 RMCTTMQE PTR(31), /* SCHED RTNE QUEUE HEAD ADDR */ 00594000 * 10 RMCTAQCT FIXED BDY(DWORD),/* ACTION QUEUE MEMBER 0096 00595000 * COUNT */ 00596000 * 10 RMCTAQHD PTR(31), /* ACTION QUEUE FORWARD POINTER */ 00597000 * 10 RMCTWTQE PTR(31), /* WAIT - QUEUE HEADER ADDRESS */ 00598000 * 10 RMCTOTQE PTR(31), /* OUT - QUEUE HEADER ADDRESS */ 00599000 * 10 RMCTINQE PTR(31), /* IN - QUEUE HEADER ADDRESS */ 00600000 * 10 RMCTR10 FIXED, /* RESERVED @Z40BPCH*/ 00601000 * 10 RMCTTBS FIXED(32) UNSIGNED,/* SRM TIME OF DAY BASE */ 00602000 * 10 RMCTTOD FIXED(32) UNSIGNED,/* CURRENT TIME OF DAY */ 00603000 * 10 RMCTTOC BIT(64) BDY(DWORD),/* CURR TIME OF CENTURY */ 00604000 * 10 RMCTALA BIT(32) BDY(WORD),/* ALG REQUEST 0096 00605000 * ACCUMULATOR */ 00606000 * 10 RMCTALR BIT(32) BDY(WORD),/* IMMED ALG REQUEST 0096 00607000 * ACCUMUL */ 00608000 * 10 RMCTRQSV PTR(31), /* REQ SERVICE WORK AREA @Z40BPCH*/ 00609000 * 10 RMCTFLGS BIT(32) BDY(WORD),/* PROCESSING CONTROL 0096 00610000 * FLAGS */ 00611000 * 12 RMCTMFA BIT(1), /* MEASUREMENT FACILITY ACTIVE */ 00612000 * 12 RMCTCPS1 BIT(1),/* CAP SWITCH @Z40BPSS*/ 00613000 * 12 RMCTF03 BIT(1), /* RESERVED @Z40BPSS*/ 00614000 * 12 RMCTINIT BIT(1),/* SRM INITIALIZATION DONE */ 00615000 * 12 RMCTRSV1 BIT(1),/* RESERVED @ZM43085*/ 00616000 * 12 RMCTSTW BIT(1), /* SET STOPPED WAR COLLECTION */ 00617000 * 12 RMCTRSV2 BIT(1),/* RESERVED @ZM43085*/ 00618000 * 12 RMCTF06 BIT(1), /* RESERVED @Z40BPCH*/ 00619000 * 12 RMCTF07 BIT(1), /* RESERVED @Z40BPCH*/ 00620000 * 12 RMCTMFS BIT(1), /* MF1 ACT.,SET IPS RCVD @Z40BPCH*/ 00621000 * 12 RMCTF09 BIT(22),/* RESERVED @Z40BPCH*/ 00622000 * 10 RMCTTELM PTR(31), /* RSRC MANAGER TIMING ELEMENT */ 00623000 * 10 RMCTCPID CHAR(4) BDY(WORD),/* RSRC MANAGER CELL 0096 00624000 * POOL ID */ 00625000 * 10 RMCTTOCI BIT(64) BDY(DWORD),/* TOD CLOCK READ AREA */ 00626000 * 10 RMCTOUCB PTR(31), /* PREASSEMBLED MODEL OUCB */ 00627000 * 10 RMCTOUXB PTR(31), /* INTERPOSED DUMMY OUXB */ 00628000 * 10 RMCTSRBT PTR(31), /* PREBUILT SRB TABLE */ 00629000 * 10 RMCTDMDT PTR(31), /* ADDR OF DOMAIN TABLE @Z40BPCH*/ 00630000 * 10 RMCTDMDE PTR(31), /* ADDR OF LAST DMDT ENT @Z40BPCH*/ 00631000 * 10 RMCTDMNC FIXED(15),/* NUMBER OF DOMAINS @Z40BPCH*/ 00632000 * 10 RMCTR50 FIXED(15),/* RESERVED @Z40BPCH*/ 00633000 * 10 RMCTEND CHAR(0) BDY(DWORD)/* END OF RMCT */ 00634000 * ; 0096 00635000 * 0096 00636000 * /*****************************************************************/ 00637000 * /* */ 00638000 * /* WORKLOAD ACTIVITY MEASUREMENTS TABLE */ 00639000 * /* */ 00640000 * /*****************************************************************/ 00641000 * 0097 00642000 * 0097 00643000 */* MACCOMP Z-4 SC1CX/PKD16 */ 00644000 */* MACSTAT Z-4 75007/Z40BPSS */ 00645000 */* *************************************************************** */ 00646000 */* */ 00647000 */* MACRO NAME - IRAWAMT */ 00648000 */* */ 00649000 */* DESCRIPTIVE NAME - WORKLOAD ACTIVITY MEASUREMENTS TABLE */ 00650000 */* */ 00651000 */* COPYRIGHT - NONE */ 00652000 */* */ 00653000 */* STATUS - OS/VS2 RELEASE 4, 09/23/75, LEVEL=1 */ 00654000 */* */ 00655000 */* FUNCTION - THE WAMT PROVIDES THE STORAGE AREA IN WHICH */ 00656000 */* INFORMATION IS COLLECTED BY THE SYSTEM RESOURCES */ 00657000 */* MANAGER FOR USE BY THE SYSTEM ACTIVITY MEASUREMENT */ 00658000 */* FACILITY. THE WAMT, AND THE MODULE WHICH UPDATES */ 00659000 */* IT, ARE SUPPLIED BY THE SYSTEM ACTIVITY MEASURMENT */ 00660000 */* FACILITY FOR THE DURATION OF THE WORKLOAD ACTIVITY */ 00661000 */* DATA GATHERING OPERATION. */ 00662000 */* */ 00663000 */* METHOD OF ACCESS - THE ADDRESS OF THE WAMT IS CONTAINED IN */ 00664000 */* THE -RMCTWAMT- FIELD OF THE SYSTEM RESOURCES MANAGER */ 00665000 */* CONTROL TABLE. THE OFFSET OF THE FIRST WAMPPGP FOR */ 00666000 */* A PERFORMANCE GROUP IS CONTAINED IN THE WAMTNDX ENTRY */ 00667000 */* CORRESPONDING TO THE PERFORMANCE GROUP NUMBER. */ 00668000 */* */ 00669000 */* *************************************************************** */ 00670000 * 0097 00671000 * 0097 00672000 */* *************************************************************** */ 00673000 */* */ 00674000 */* CONSTRUCTION METHOD - THE WAMPPGP'S ARE ASSIGNED CONTIGUOUS */ 00675000 */* STORAGE, WITH THE WAMPPGP FOR THE 2ND PERIOD IN A */ 00676000 */* PERFORMANCE GROUP FOLLOWING THE WAMPPGP FOR THE 1ST */ 00677000 */* PERIOD, ETC., AND WITH THE 1ST WAMPPGP OF THE NEXT */ 00678000 */* PERFORMANCE GROUP FOLLOWING THE LAST WAMPPGP OF THE */ 00679000 */* PREVIOUS PERFORMANCE GROUP. THE NUMBER OF ENTRIES */ 00680000 */* IN THE WAMTNDX ARRAY IS 2 MORE THAN THE HIGHEST PER- */ 00681000 */* FORMANCE GROUP NUMBER. WAMTNX0 HOLDS THE OFFSET OF */ 00682000 */* A WAMPPGP RESERVED FOR PERFORMANCE GROUP ZERO. THE */ 00683000 */* FIRST POSITION IN THE WAMTNDX ARRAY IS DECLARED AS */ 00684000 */* COINCIDING WITH THE WAMTNX1 FIELD. THEREAFTER, EACH */ 00685000 */* SUCCESSIVE WAMTNDX ARRAY ENTRY CONTAINS THE OFFSET */ 00686000 */* OF THE POSITION FOLLOWING THE LAST WAMPPGP ASSIGNED */ 00687000 */* TO LOWER-NUMBERED PERFORMANCE GROUPS. */ 00688000 */* */ 00689000 */* THE NUMBER OF PERIODS IN A PERFORMANCE GROUP CAN BE */ 00690000 */* OBTAINED BY SUBTRACTING ITS WAMTNDX FIELD FROM THE */ 00691000 */* NEXT ADJACENT WAMTNDX FIELD, AND DIVIDING BY THE */ 00692000 */* WAMPPGP SIZE. */ 00693000 */* */ 00694000 */* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 00695000 */* */ 00696000 */* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 00697000 */* */ 00698000 */* USING ON WAMT GIVES ADDRESSABILITY TO WAMT SYMBOLS. */ 00699000 */* USING ON WAMP GIVES ADDRESSABILITY TO WAMP SYMBOLS. */ 00700000 */* */ 00701000 */* PLS - %WAMTSFX='USERCHAR' IF THE INDICATED CHARACTER IS */ 00702000 */* TO BE APPENDED TO ALL NAMES IN THE MAPPING, THEREBY */ 00703000 */* CREATING DUPLICATE DEFINITIONS BASED ON DIFFERENT */ 00704000 */* POINTERS. */ 00705000 */* - %WAMT9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 00706000 */* */ 00707000 */* NOTE - DUE TO THE FACILITY WHICH PERMITS MULTIPLE */ 00708000 */* INCLUDES OF THE IRAWAMT MAPPING MACRO, IT IS NOT */ 00709000 */* POSSIBLE TO CONCATENATE THE IRAWAMT DECLARATION */ 00710000 */* WITH ANOTHER DECLARATION IN SUCH A FASHION THAT */ 00711000 */* BOTH DECLARATIONS ARE BASED ON THE SAME POINTER. */ 00712000 */* */ 00713000 */* TO ACCESS AS A STANDALONE STRUCTURE DCL WAMTPTR PTR. */ 00714000 */* DCL WAMPPTR PTR. */ 00715000 */* */ 00716000 */* CHANGE ACTIVITY = */ 00717000 */* */ 00718000 */* A000000-999999 Y02133*/ 00719000 */* */ 00720000 */* *************************************************************** */ 00721000 * 0097 00722000 * DCL 0097 00723000 * 1 WAMT BASED(WAMTPTR) BDY(DWORD), 0097 00724000 * 10 WAMTWAR PTR(31), /* ADDR OF IRARMWAR MODULE */ 00725000 * 10 WAMTSIZ FIXED, /* TOTL LNG OF WAMT INCL. WAMP'S */ 00726000 * 10 WAMTTMA BIT(64) BDY(DWORD),/* MEASUREMENT ACTIVATE 00727000 * TIME */ 00728000 * 10 WAMTTOC BIT(64) BDY(DWORD),/* WAMT UPDT TIME OF 0097 00729000 * CENTURY */ 00730000 * 10 WAMTASD BIT(32) BDY(WORD),/* MEASUREMENT ADDR SPACE 00731000 * ID */ 00732000 * 10 WAMTTCB PTR(31), /* MEASUREMENT TASK ADDRESS */ 00733000 * 10 WAMTIPS CHAR(2) BDY(HWORD),/* PERFORMANC 0097 00734000 * SPECIFICATN ID */ 00735000 * 10 WAMTCPD FIXED(15),/* COUNT OF PGP'S WITHIN WAMT */ 00736000 * 10 WAMTSPD FIXED(15),/* LENGTH OF DATA FOR ONE PGP */ 00737000 * 10 WAMTHPG FIXED(15),/* HIGH PERF. GROUP NUMBER */ 00738000 * 10 WAMTIPC CHAR(4) BDY(WORD),/* CPU SERVICE COEF. 0097 00739000 * @Z40BPCH*/ 00740000 * 10 WAMTIPI CHAR(4) BDY(WORD),/* I/O SERVICE COEF. 0097 00741000 * @Z40BPCH*/ 00742000 * 10 WAMTIPM CHAR(4) BDY(WORD),/* MSO SERVICE COEF. 0097 00743000 * @Z40BPCH*/ 00744000 * 10 WAMTNX0 PTR(31), /* OFFST TO WAMPPGP OF PRF GRP 0 */ 00745000 * 10 WAMTNX1 PTR(31), /* OFFST TO WAMPPGP OF PRF GRP 1 */ 00746000 * 10 WAMTR90 FIXED, /* RESERVED @Z40BPCH*/ 00747000 * 10 WAMTEND CHAR(0) BDY(DWORD),/* END OF WAMT */ 00748000 */* THE I'TH POSITION OF THE FOLLOWING ARRAY CONTAINS THE OFFSET */ 00749000 */* FROM THE BEGINNING OF THE WAMT TO THE STARTING POSITION OF */ 00750000 */* THE WAMPPGP'S FOR THE I'TH PERFORMANCE GROUP. */ 00751000 * 0097 00752000 * WAMTNDX(*) DEFINED(WAMTNX1) PTR(31), 0097 00753000 * 0097 00754000 */* THE WAMP ACCUMULATES WORKLOAD INFORMATION FOR ONE PERFORMANCE */ 00755000 */* GROUP PERIOD. THERE MAY BE 1 TO 8 PERIODS FOR ONE GROUP. */ 00756000 * 0097 00757000 * 1 WAMP BASED(WAMPPTR) BDY(WORD), 0097 00758000 * 10 WAMPPGP, /* PERFORMANCE GROUP PERIOD DATA */ 00759000 * 12 WAMPTRN FIXED(32),/* COUNT OF TRANSACTIONS ENDED */ 00760000 * 12 WAMPTAT FIXED(32),/* TOTAL ACTIVE TIME FOR PERIOD 00761000 * 1024 MICROSEC = LOW BIT */ 00762000 * 12 WAMPSRV FIXED(32),/* TOT SERVICE UNITS FOR PERIOD*/ 00763000 * 12 WAMPTET FIXED(32),/* TOT ELAPS TIM OF XACTNS 0097 00764000 * ENDED 1024 MICROSEC = LOW BIT */ 00765000 * 12 WAMPNWL FIXED(31),/* NORMALIZED WORKLOAD LEVEL 0097 00766000 * 1/256TH OF A LEVEL = LOW BIT */ 00767000 * 12 WAMPCPU FIXED(32),/* TOTAL CPU SERVICE UNITS FOR 00768000 * PERIOD @Z40BPCH*/ 00769000 * 12 WAMPIOC FIXED(32),/* TOTAL I/O SERVICE UNITS FOR 00770000 * PERIOD @Z40BPCH*/ 00771000 * 12 WAMPMSO FIXED(32),/* TOTAL MSO SERVICE UNITS FOR 00772000 * PERIOD @Z40BPCH*/ 00773000 * 12 WAMPTRR FIXED(32),/* TOTAL RESIDENT TIME FOR 0097 00774000 * PERIOD @Z40BPCH*/ 00775000 * 12 WAMPSWC FIXED, /* TOTAL SWAP COUNT FOR PERIOD 0097 00776000 * @Z40BPCH*/ 00777000 * 12 WAMPOBJN FIXED(8),/* PERF. OBJ. NO FOR PER 0097 00778000 * @Z40BPCH*/ 00779000 * 12 WAMPDMN FIXED(8),/* DOMAIN NO. FOR PERIOD 0097 00780000 * @Z40BPCH*/ 00781000 * 12 WAMPRSV CHAR(2) BDY(HWORD),/* RESERVED @Z40BPCH*/ 00782000 * 10 WAMPEND CHAR(0) BDY(WORD)/* END OF WAMP */ 00783000 * ; 0097 00784000 * 0097 00785000 * /*****************************************************************/ 00786000 * /* */ 00787000 * /* WORKLOAD MANAGER SPECIFICATION TABLE */ 00788000 * /* */ 00789000 * /*****************************************************************/ 00790000 * 0098 00791000 */* */ 00792000 */* MACCOMP Z-4 SC1CX/PKD16 */ 00793000 */* MACSTAT Z-4 75007/Z40BPSS */ 00794000 */* *************************************************************** */ 00795000 */* */ 00796000 */* MACRO NAME - IRAWMST */ 00797000 */* */ 00798000 */* DESCRIPTIVE NAME - WORKLOAD MANAGER SPECIFICATION TABLE */ 00799000 */* */ 00800000 */* COPYRIGHT - NONE */ 00801000 */* */ 00802000 */* STATUS - OS/VS2 RELEASE 4, 09/17/75, LEVEL=1 */ 00803000 */* */ 00804000 */* FUNCTION - THE WMST COMBINES IN A SINGLE TABLE THE INFORMA- */ 00805000 */* TION REQUIRED BY THE VARIOUS ROUTINES WHICH REFERENCE */ 00806000 */* THE INSTALLATION PERFORMANCE SPECIFICATION. THE WMST */ 00807000 */* RESIDES IN SQA, AND IS DYNAMICALLY CONSTRUCTED DURING */ 00808000 */* SYSTEM INITIALIZATION, AND DURING SET IPS PROCESSING. */ 00809000 */* THE IPS USED BY THE SYSTEM RESOURCES MANAGER MAY BE */ 00810000 */* CHANGED BY SIMPLY SUBSTITUTING THE ADDRESS OF THE NEW */ 00811000 */* WMST INTO -RMCTWMST-. */ 00812000 */* */ 00813000 */* METHOD OF ACCESS - THE ADDRESS OF THE WMST IS CONTAINED IN */ 00814000 */* THE -RMCTWMST- FIELD OF THE SYSTEM RESOURCES MANAGER */ 00815000 */* CONTROL TABLE. */ 00816000 */* */ 00817000 */* *************************************************************** */ 00818000 * 0098 00819000 * DCL 0098 00820000 * 1 WMST BASED(WMSTPTR) BDY(DWORD), 0098 00821000 * 10 WMSTNAME CHAR(4), /* TABLE IDENTIFICATION - 'WMST' */ 00822000 * 10 WMSTID CHAR(2) BDY(WORD),/* PERF SPECIFICATION ID */ 00823000 * 10 WMSTWLLO FIXED(15),/* LOWEST WORKLOAD LEVEL SPEC'D */ 00824000 * 10 WMSTPGVT PTR(31), /* PERF GRP VECTOR TABLE ADDR */ 00825000 * 10 WMSTPGVS FIXED, /* PERF GRP VECTOR TABLE SIZE */ 00826000 * 10 WMSTPGDT PTR(31), /* 1ST PERF GRP DESCRIPTOR ADDR */ 00827000 * 10 WMSTPGDS FIXED, /* TOT PERF GRP DESCRIPTOR SIZE */ 00828000 * 10 WMSTPOVT PTR(31), /* PERF OBJ VECTOR TABLE ADDR */ 00829000 * 10 WMSTPOVS FIXED, /* PERF OBJ VECTOR TABLE SIZE */ 00830000 * 10 WMSTPODT PTR(31), /* 1ST PERF OBJ DESCRIPTOR ADDR */ 00831000 * 10 WMSTPODS FIXED, /* TOT PERF OBJ DESCRIPTOR SIZE */ 00832000 * 10 WMSTDMDT PTR(31), /* FIRST DMN DESC ADDR @Z40BPCH*/ 00833000 * 10 WMSTDMDS FIXED(31),/* TOT DOMAIN DESC SIZE @Z40BPCH*/ 00834000 * 10 WMSTDMVT PTR(31), /* DMN VECTOR TABLE ADDR @Z40BPCH*/ 00835000 * 10 WMSTDMVS FIXED(31),/* DMN VECTOR TABLE SIZE 0098 00836000 * @Z40BPCH*/ 00837000 * 10 WMSTDMDE PTR(31), /* DMN TAB LAST NTRY ADR @Z40BPCH*/ 00838000 * 10 WMSTWLHI FIXED(15),/* HIGHEST WORKLD LEV SP 0098 00839000 * @Z40BPCH*/ 00840000 * 10 WMSTPGHI FIXED(15),/* HIGH PERF GROUP NUMBER */ 00841000 * 10 WMSTPGPC FIXED(15),/* TOTL PERF GROUP PERIOD COUNT */ 00842000 * 10 WMSTDMNC FIXED(15),/* TOT DOMAIN COUNT @Z40BPCH*/ 00843000 * 10 WMSTCPU FIXED, /* CPU SERVICE COEFFICIENT */ 00844000 * 10 WMSTIOC FIXED, /* IOC SERVICE COEFFICIENT */ 00845000 * 10 WMSTMSO FIXED, /* MSO SERVICE COEFFICIENT */ 00846000 * 10 WMSTREAL FIXED(8),/* REAL TIME INDICATOR @ZM43084*/ 00847000 * 10 WMSTRSVD FIXED(24),/* RESERVED @ZM43084*/ 00848000 * 10 WMSTSET PTR(31), /* SET PROCS ROUTINE ADDR */ 00849000 * 10 WMSTSTCB PTR(31), /* SET PROCS TASK ADDRESS */ 00850000 * 10 WMSTNWST PTR(31), /* SET PROCS NXT WMST ADR */ 00851000 * 10 WMSTSECB CHAR(4) BDY(WORD),/* SET PROCS ECB */ 00852000 * 10 WMSTIPC CHAR(4) BDY(WORD),/* CPU SERVICE COEF. 0098 00853000 * @Z40BPCH*/ 00854000 * 10 WMSTIPI CHAR(4) BDY(WORD),/* I/O SERVICE COEF. 0098 00855000 * @Z40BPCH*/ 00856000 * 10 WMSTIPM CHAR(4) BDY(WORD),/* MSO SERVICE COEF. 0098 00857000 * @Z40BPCH*/ 00858000 * 10 WMSTEND CHAR(0) BDY(DWORD)/* END OF WMST */ 00859000 * ; 0098 00860000 * 0099 00861000 */* MISCELLANEOUS DECLARATIONS */ 00862000 * 0099 00863000 * DCL 0099 00864000 * IIRETCOD /* SYSEVENT RETURN CODE */ 00865000 * FIXED(8), 0099 00866000 * 1 IIWAMSRG /* WORKLOAD ACTIVITY STORAGE,WAMT*/ 00867000 * BDY(WORD), 0099 00868000 * 2 IIWAMSP /* WAMT SUBPOOL */ 00869000 * FIXED(8), 0099 00870000 * 2 IIWAMLEN /* WAMT LENGTH */ 00871000 * FIXED(24), 0099 00872000 * IIHPG /* HIGH PGN */ 00873000 * FIXED(31), 0099 00874000 * RMCTPTR PTR(31) DEFINED(CVTOPCTP), 0099 00875000 * WAMTPTR /* WAMT PTR */ 00876000 * PTR(31), 0099 00877000 * WMSTPTR PTR(31) DEFINED(RMCTWMST); 0099 00878000 * DCL 0100 00879000 * CSQA /* SYSTEM QUEUE AREA (FIXED) SP# */ 00880000 * CONSTANT(245); 0100 00881000 * 0101 00882000 */* TRY N TIMES TO GET AN AREA FOR WORKLOAD MEASUREMENTS,IN CASE */ 00883000 */* THE IPS (INSTALLATION PERFORMANCE SPECIFICATION IS CHANGING */ 00884000 */* SIMULTANEOUSLY. THE AREA, WAMT, IS DEPENDENT IN SIZE ON IPS. */ 00885000 * 0101 00886000 * DO I=1 TO 2; /* N TIMES = 2 */ 00887000 * 0101 00888000 LA I,1 0101 00889000 @DL00101 DS 0H 0102 00890000 * /***************************************************************/ 00891000 * /* */ 00892000 * /* GET GLOBAL FIXED STORAGE FOR WORKLOAD ACTIVITY MEASUREMENTS */ 00893000 * /* */ 00894000 * /***************************************************************/ 00895000 * 0102 00896000 * IIWAMSP=CSQA; /* SUBPOOL NUMBER */ 00897000 MVI IIWAMSP,X'F5' 0102 00898000 * IIHPG=WMSTPGHI; /* SAVE HIGH PGN */ 00899000 L @12,CVTPTR 0103 00900000 L @12,RMCTPTR(,@12) 0103 00901000 L @12,WMSTPTR(,@12) 0103 00902000 LH IIHPG,WMSTPGHI(,@12) 0103 00903000 * IIWAMLEN=LENGTH(WAMT)+ /* WAMT DATA WITH PG0 & PG1 */ 00904000 * (IIHPG*LENGTH(WAMTNDX))+ /* + PG INDEX (PGN 2 TO N+1) */ 00905000 * (WMSTPGPC*LENGTH(WAMP)); /* PLUS PGP'S FOR ALL PG'S */ 00906000 * 0104 00907000 LR @11,IIHPG 0104 00908000 SLA @11,2 0104 00909000 AL @11,@CF00861 0104 00910000 LH @12,WMSTPGPC(,@12) 0104 00911000 MH @12,@CH00762 0104 00912000 ALR @11,@12 0104 00913000 STCM @11,7,IIWAMLEN 0104 00914000 * /***************************************************************/ 00915000 * /* */ 00916000 * /* MACDATE Y-2 73018 */ 00917000 * /* */ 00918000 * /***************************************************************/ 00919000 * 0105 00920000 * RESPECIFY 0105 00921000 * (GPR00P, 0105 00922000 * GPR01P, 0105 00923000 * GPR14P, 0105 00924000 * GPR15P) RESTRICTED; 0105 00925000 * GPR00P=IIWAMSRG; /* SUBPOOL & LENGTH FOR GETMAIN */ 00926000 L GPR00P,IIWAMSRG 0106 00927000 * GEN(GETMAIN R,LV=(0)); /* GET WAMT MAIN STOR, R1=ADDR */ 00928000 * 0107 00929000 GETMAIN R,LV=(0) 00930000 * /***************************************************************/ 00931000 * /* */ 00932000 * /* REMEMBER THIS RESOURCE IN STSGT */ 00933000 * /* */ 00934000 * /***************************************************************/ 00935000 * 0108 00936000 * STSGFREE(STRVNSGT)=IIWAMSRG; /* SP&LENGTH TO STSGT */ 00937000 L @12,@PC00001 0108 00938000 L @12,STSMAPTR(,@12) 0108 00939000 L @12,STSMRVT(,@12) 0108 00940000 L @11,STRVNSGT(,@12) 0108 00941000 LR @08,@11 0108 00942000 SLA @08,3 0108 00943000 L @05,STRVSSGT(,@12) 0108 00944000 ST @08,@TF00001 0108 00945000 ALR @08,@05 0108 00946000 AL @08,@CF01371 0108 00947000 MVC STSGFREE(4,@08),IIWAMSRG 0108 00948000 * STSGADD(STRVNSGT)=GPR01P; /* ADDRESS TO STSGT */ 00949000 L @08,@TF00001 0109 00950000 AL @05,@CF01216 0109 00951000 ST GPR01P,STSGADD-4(@08,@05) 0109 00952000 * STRVNSGT=STRVNSGT+1; /* POINT TO NEXT SGT ENTRY */ 00953000 * 0110 00954000 AL @11,@CF00062 0110 00955000 ST @11,STRVNSGT(,@12) 0110 00956000 * /***************************************************************/ 00957000 * /* */ 00958000 * /* INITIALIZE WAMT */ 00959000 * /* */ 00960000 * /***************************************************************/ 00961000 * 0111 00962000 * WAMTPTR=GPR01P; 0111 00963000 LR WAMTPTR,GPR01P 0111 00964000 * WAMT=WAMT&&WAMT; /* ZERO FIXED LENGTH DATA IN WAMT*/ 00965000 XC WAMT(64,WAMTPTR),WAMT(WAMTPTR) 0112 00966000 * WAMTWAR=IIMODEPA; /* ADDR(IRARMWAR) */ 00967000 L @12,@PC00002 0113 00968000 L @12,IIMODEPA(,@12) 0113 00969000 ST @12,WAMTWAR(,WAMTPTR) 0113 00970000 * WAMTSIZ=IIWAMLEN; /* SIZE OF WAMT INCL. WAMPS */ 00971000 L @12,IIWAMLEN-1 0114 00972000 LA @12,0(,@12) 0114 00973000 ST @12,WAMTSIZ(,WAMTPTR) 0114 00974000 * WAMTSPD=LENGTH(WAMP); /* SIZE OF PGP DATA FOR 1 PGP */ 00975000 * 0115 00976000 MVC WAMTSPD(2,WAMTPTR),@CH00762 0115 00977000 * /***************************************************************/ 00978000 * /* */ 00979000 * /* ISSUE SYSEVENT TO INITIALIZE WORKLOAD ACTIVITY DATA */ 00980000 * /* COLLECTION. */ 00981000 * /* */ 00982000 * /***************************************************************/ 00983000 * 0116 00984000 * GEN SETS(IIRETCOD); 0116 00985000 * 0116 00986000 SYSEVENT WKLDINIT,ENTRY=SVC 00987000 STC GPR15P,IIRETCOD 00988000 * /***************************************************************/ 00989000 * /* */ 00990000 * /* MACDATE Y-2 73018 */ 00991000 * /* */ 00992000 * /***************************************************************/ 00993000 * 0117 00994000 * RESPECIFY 0117 00995000 * (GPR00P, 0117 00996000 * GPR01P, 0117 00997000 * GPR14P, 0117 00998000 * GPR15P) UNRESTRICTED; 0117 00999000 * DWWINIPS=CSET; /* FLAG NEW IPS, INTERVAL 0118 01000000 * STARTED, FOR INTERVAL LENGTH 01001000 * CALCULATION */ 01002000 * 0118 01003000 L @12,@PC00001 0118 01004000 L @12,STSMAPTR(,@12) 0118 01005000 L @12,STSMLCOM(,@12) 0118 01006000 OI DWWINIPS(@12),B'10000000' 0118 01007000 * /***************************************************************/ 01008000 * /* */ 01009000 * /* RETURN TO CALLER IF WAMT ACCEPTED, OR IF WORLOAD ACTIVITY */ 01010000 * /* DATA COLLECTION ALREADY (ERRONEOUSLY) ACTIVE. */ 01011000 * /* */ 01012000 * /***************************************************************/ 01013000 * 0119 01014000 * IF IIRETCOD^=8 THEN /* IF UNKNOWN RETURN CODE, CALLER 01015000 * WILL ABEND. 0 - OK, X'20' 0119 01016000 * MEANS ALREADY ACTIVE. */ 01017000 CLI IIRETCOD,8 0119 01018000 BE @RF00119 0119 01019000 * DO; 0120 01020000 * IILENWAM=IIWAMLEN; /* RETURN WAMT LENGTH */ 01021000 L @12,@PC00002+4 0121 01022000 L @11,IIWAMLEN-1 0121 01023000 LA @11,0(,@11) 0121 01024000 ST @11,IILENWAM(,@12) 0121 01025000 * RETURN CODE(IIRETCOD); /* RETURN WITH SYSEVENT CODE */ 01026000 SLR @15,@15 0122 01027000 IC @15,IIRETCOD 0122 01028000 L @14,@SA00002 0122 01029000 LM @00,@12,@SA00002+8 0122 01030000 BR @14 0122 01031000 * END; 0123 01032000 * 0123 01033000 * /***************************************************************/ 01034000 * /* */ 01035000 * /* RETURN CODE 8 MEANS IPS WAS CHANGING. TRY GETTING NEW WAMT */ 01036000 * /* FREE CURRENT AREA GOTTEN FOR WAMT */ 01037000 * /* */ 01038000 * /***************************************************************/ 01039000 * 0124 01040000 * STRVNSGT=STRVNSGT-1; /* POINT TO LAST STSGT ENTRY */ 01041000 * 0124 01042000 @RF00119 L @12,@PC00001 0124 01043000 L @12,STSMAPTR(,@12) 0124 01044000 L @12,STSMRVT(,@12) 0124 01045000 L @11,STRVNSGT(,@12) 0124 01046000 BCTR @11,0 0124 01047000 ST @11,STRVNSGT(,@12) 0124 01048000 * /***************************************************************/ 01049000 * /* */ 01050000 * /* MACDATE Y-2 73018 */ 01051000 * /* */ 01052000 * /***************************************************************/ 01053000 * 0125 01054000 * RESPECIFY 0125 01055000 * (GPR00P, 0125 01056000 * GPR01P, 0125 01057000 * GPR14P, 0125 01058000 * GPR15P) RESTRICTED; 0125 01059000 * GPR00P=STSGFREE(STRVNSGT); /* GET REMEMBERED AREA SP&LENGTH */ 01060000 SLA @11,3 0126 01061000 L @12,STRVSSGT(,@12) 0126 01062000 LA @08,0(@11,@12) 0126 01063000 AL @08,@CF01371 0126 01064000 L GPR00P,STSGFREE(,@08) 0126 01065000 * GPR01P=STSGADD(STRVNSGT); /* GET REMEMBERED AREA ADDRESS */ 01066000 AL @12,@CF01216 0127 01067000 L GPR01P,STSGADD-4(@11,@12) 0127 01068000 * GEN; 0128 01069000 * 0128 01070000 FREEMAIN R,LV=(0),A=(1) 01071000 * /***************************************************************/ 01072000 * /* */ 01073000 * /* MACDATE Y-2 73018 */ 01074000 * /* */ 01075000 * /***************************************************************/ 01076000 * 0129 01077000 * RESPECIFY 0129 01078000 * (GPR00P, 0129 01079000 * GPR01P, 0129 01080000 * GPR14P, 0129 01081000 * GPR15P) UNRESTRICTED; 0129 01082000 * END; /* END DO LOOP */ 01083000 AL I,@CF00062 0130 01084000 C I,@CF00074 0130 01085000 BNH @DL00101 0130 01086000 * RETURN CODE(IIRETCOD); /* N ATTEMPTS FAILED TO GET 0131 01087000 * GLOBAL WAMT ACCEPTED. RETURN */ 01088000 SLR @15,@15 0131 01089000 IC @15,IIRETCOD 0131 01090000 L @14,@SA00002 0131 01091000 LM @00,@12,@SA00002+8 0131 01092000 BR @14 0131 01093000 * END MFIIPSWA; 0132 01094000 * END IRBMFIWK 0133 01095000 * 0133 01096000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01097000 */*%INCLUDE SYSLIB (CVT ) */ 01098000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01099000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01100000 */*%INCLUDE SYSLIB (IRARMCT ) */ 01101000 */*%INCLUDE SYSLIB (IRAWAMT ) */ 01102000 */*%INCLUDE SYSLIB (IRAWMST ) */ 01103000 * 0133 01104000 * ; 0133 01105000 @DATA DS 0H 01106000 @CH00762 DC H'44' 01107000 @DATD DSECT 01108000 DS 0F 01109000 @SA00001 DS 18F 01110000 @PC00001 DS 1F 01111000 @SA00002 DS 15F 01112000 @PC00002 DS 2F 01113000 @AL00001 DS 2A 01114000 @TF00001 DS F 01115000 IRBMFIWK CSECT 01116000 DS 0F 01117000 @CF00062 DC F'1' 01118000 @CF00074 DC F'2' 01119000 @CF00861 DC F'64' 01120000 @CF01374 DC F'-20' 01121000 @CF01372 DC F'-16' 01122000 @CF01371 DC F'-8' 01123000 @CF01216 DC F'-4' 01124000 @CF01218 DC XL4'42000000' 01125000 @DATD DSECT 01126000 DS 0D 01127000 IWLENWAM DS F 01128000 IWMODEPA DS A 01129000 IWPGFECB DS F 01130000 IIRETCOD DS FL1 01131000 DS CL3 01132000 IIWAMSRG DS CL4 01133000 ORG IIWAMSRG 01134000 IIWAMSP DS FL1 01135000 IIWAMLEN DS FL3 01136000 ORG IIWAMSRG+4 01137000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01138000 @ENDDATD EQU * 01139000 IRBMFIWK CSECT 01140000 DS 0F 01141000 @SIZDATD DC AL1(0) 01142000 DC AL3(@ENDDATD-@DATD) 01143000 DS 0D 01144000 @CC01219 DC C'IRARMWAR' 01145000 @CC01222 DC C'IRBMFDWP' 01146000 IWPRTSRG DS CL4 01147000 ORG IWPRTSRG 01148000 IWPRTSP DC AL1(0) 01149000 IWPRTLEN DC AL3(16+16+4) 01150000 ORG IWPRTSRG+4 01151000 IWSGTSRG DS CL4 01152000 ORG IWSGTSRG 01153000 IWSGTSP DC AL1(0) 01154000 IWSGTLEN DC AL3(8+8+8+8+4) 01155000 ORG IWSGTSRG+4 01156000 IWWINSRG DS CL4 01157000 ORG IWWINSRG 01158000 IWWINSP DC AL1(0) 01159000 IWWINLEN DC AL3(16) 01160000 ORG IWWINSRG+4 01161000 IWPATCH DS CL100 01162000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01163000 @01 EQU 01 01164000 @02 EQU 02 01165000 @03 EQU 03 01166000 @04 EQU 04 01167000 @05 EQU 05 01168000 @06 EQU 06 01169000 @07 EQU 07 01170000 @08 EQU 08 01171000 @09 EQU 09 01172000 @10 EQU 10 01173000 @11 EQU 11 01174000 @12 EQU 12 01175000 @13 EQU 13 01176000 @14 EQU 14 01177000 @15 EQU 15 01178000 IIHPG EQU @02 01179000 WAMTPTR EQU @02 01180000 WAMPPTR EQU @02 01181000 I EQU @04 01182000 GPR00P EQU @00 01183000 GPR01P EQU @01 01184000 GPR14P EQU @14 01185000 GPR15P EQU @15 01186000 GPR02P EQU @02 01187000 GPR04P EQU @04 01188000 GPR11P EQU @11 01189000 GPR12P EQU @12 01190000 GPR13P EQU @13 01191000 GPR00F EQU @00 01192000 GPR01F EQU @01 01193000 GPR14F EQU @14 01194000 GPR15F EQU @15 01195000 PSA EQU 0 01196000 FLCRNPSW EQU PSA 01197000 FLCROPSW EQU PSA+8 01198000 FLCICCW2 EQU PSA+16 01199000 FLCCVT EQU FLCICCW2 01200000 PSAEEPSW EQU PSA+132 01201000 PSAESPSW EQU PSA+136 01202000 FLCSVILC EQU PSAESPSW+1 01203000 PSAEPPSW EQU PSA+140 01204000 FLCPIILC EQU PSAEPPSW+1 01205000 FLCPICOD EQU PSAEPPSW+2 01206000 PSAPICOD EQU FLCPICOD+1 01207000 FLCTEA EQU PSAEPPSW+4 01208000 FLCPER EQU PSA+152 01209000 FLCMCLA EQU PSA+168 01210000 FLCIOEL EQU FLCMCLA+4 01211000 FLCIOA EQU FLCMCLA+16 01212000 FLCFSA EQU FLCMCLA+80 01213000 PSAAOLD EQU PSA+548 01214000 PSASUPER EQU PSA+552 01215000 PSASUP1 EQU PSASUPER 01216000 PSASUP2 EQU PSASUPER+1 01217000 PSASUP3 EQU PSASUPER+2 01218000 PSASUP4 EQU PSASUPER+3 01219000 PSACLHT EQU PSA+640 01220000 PSALKSA EQU PSA+696 01221000 PSAHLHI EQU PSA+760 01222000 PSALITA EQU PSA+764 01223000 PSADSSFL EQU PSA+836 01224000 PSADSSF1 EQU PSADSSFL 01225000 PSADSSF3 EQU PSADSSFL+2 01226000 PSADSSF4 EQU PSADSSFL+3 01227000 PSARSVT EQU PSA+896 01228000 CVTMAP EQU 0 01229000 CVTDAR EQU CVTMAP+72 01230000 CVTFLGS1 EQU CVTDAR 01231000 CVTDCB EQU CVTMAP+116 01232000 CVTIERLC EQU CVTMAP+144 01233000 CVTOPTA EQU CVTMAP+182 01234000 CVTOPTB EQU CVTMAP+183 01235000 CVTGTF EQU CVTMAP+236 01236000 CVTGTFST EQU CVTGTF 01237000 CVTGTFS EQU CVTGTFST 01238000 CVTSTATE EQU CVTGTFST 01239000 CVTTMODE EQU CVTGTFST 01240000 CVTFORM EQU CVTGTFST 01241000 CVTAQAVT EQU CVTMAP+240 01242000 CVTTCMFG EQU CVTAQAVT 01243000 CVTVOLM2 EQU CVTMAP+244 01244000 CVTTATA EQU CVTVOLM2 01245000 CVTTSKS EQU CVTTATA 01246000 CVTVOLF2 EQU CVTTSKS 01247000 CVTTAT EQU CVTTATA+1 01248000 CVTATER EQU CVTMAP+248 01249000 CVTEXT1 EQU CVTMAP+252 01250000 CVTPURG EQU CVTMAP+260 01251000 CVTQMSG EQU CVTMAP+268 01252000 CVTDMSR EQU CVTMAP+272 01253000 CVTRSV37 EQU CVTDMSR 01254000 CVTDMSRF EQU CVTRSV37 01255000 CVTERPV EQU CVTMAP+316 01256000 CVTINTLA EQU CVTMAP+320 01257000 CVTAPF EQU CVTMAP+324 01258000 CVTEXT2 EQU CVTMAP+328 01259000 CVTHJES EQU CVTMAP+332 01260000 CVTPGSIA EQU CVTMAP+348 01261000 CVTA1F1 EQU CVTMAP+356 01262000 CVTSYSK EQU CVTMAP+357 01263000 CVTVOLM1 EQU CVTMAP+380 01264000 CVTVOLF1 EQU CVTVOLM1 01265000 CVTATMCT EQU CVTMAP+388 01266000 CVTXTNT1 EQU 0 01267000 CVTXTNT2 EQU 0 01268000 CVTDSSV EQU CVTXTNT2 01269000 CVTFLGBT EQU CVTXTNT2+5 01270000 CVTQID EQU CVTXTNT2+24 01271000 CVTRV400 EQU CVTXTNT2+52 01272000 CVTRV409 EQU CVTXTNT2+53 01273000 CVTATCVT EQU CVTXTNT2+64 01274000 CVTRV429 EQU CVTXTNT2+84 01275000 CVTRV438 EQU CVTXTNT2+85 01276000 CVTRV457 EQU CVTXTNT2+112 01277000 CVTRV466 EQU CVTXTNT2+113 01278000 CVTFIX EQU 0 01279000 CVTRELNO EQU CVTFIX+252 01280000 ASCB EQU 0 01281000 ASCBSUPC EQU ASCB+16 01282000 ASCBFW1 EQU ASCB+100 01283000 ASCBRCTF EQU ASCBFW1+2 01284000 ASCBFLG1 EQU ASCBFW1+3 01285000 ASCBNSWP EQU ASCBFLG1 01286000 ASCBDSP1 EQU ASCB+114 01287000 ASCBFLG2 EQU ASCB+115 01288000 ASCBLKGP EQU ASCB+128 01289000 ASCBSRQ EQU ASCB+180 01290000 ASCBSRQ1 EQU ASCBSRQ 01291000 ASCBSRQ2 EQU ASCBSRQ+1 01292000 ASCBSRQ3 EQU ASCBSRQ+2 01293000 ASCBSRQ4 EQU ASCBSRQ+3 01294000 DWWIN EQU 0 01295000 DWWIWAML EQU DWWIN+8 01296000 DWWINIPS EQU DWWIN+12 01297000 STPRT EQU 0 01298000 STPRNAME EQU STPRT 01299000 STPRADDR EQU STPRT+8 01300000 STPRLGTH EQU STPRT+12 01301000 STRVT EQU 0 01302000 STRVSPRT EQU STRVT 01303000 STRVNPRT EQU STRVT+4 01304000 STRVSSGT EQU STRVT+8 01305000 STRVNSGT EQU STRVT+12 01306000 STSGT EQU 0 01307000 STSGFREE EQU STSGT 01308000 STSGADD EQU STSGT+4 01309000 STSMA EQU 0 01310000 STSMOPT EQU STSMA 01311000 STSMOFLG EQU STSMOPT+3 01312000 STSMINTP EQU STSMA+20 01313000 STSMIGMC EQU STSMA+36 01314000 STSMRVT EQU STSMA+44 01315000 STSMLCOM EQU STSMA+48 01316000 IWSPLEN EQU 0 01317000 IEAVPSIB EQU 0 01318000 RMCT EQU 0 01319000 RMCTWMST EQU RMCT+24 01320000 RMCTFLGS EQU RMCT+148 01321000 WAMT EQU 0 01322000 WAMTWAR EQU WAMT 01323000 WAMTSIZ EQU WAMT+4 01324000 WAMTSPD EQU WAMT+36 01325000 WAMTNX1 EQU WAMT+56 01326000 WAMP EQU 0 01327000 WAMPPGP EQU WAMP 01328000 WMST EQU 0 01329000 WMSTPGHI EQU WMST+62 01330000 WMSTPGPC EQU WMST+64 01331000 IKEBC EQU 0 01332000 IKEBF15 EQU 0 01333000 IKEBF31 EQU 0 01334000 IKEBP15 EQU 0 01335000 IKEBP31 EQU 0 01336000 IKEBP8 EQU 0 01337000 STSMAPTR EQU 0 01338000 IIMODEPA EQU 0 01339000 IILENWAM EQU 0 01340000 CVTPTR EQU FLCCVT 01341000 CVTS01 EQU CVTPGSIA 01342000 CVTLPDIA EQU CVTS01+12 01343000 CVTDIRST EQU CVTLPDIA 01344000 CVTSLIDA EQU CVTS01+24 01345000 CVTCTLFG EQU CVTS01+50 01346000 CVTOPCTP EQU CVTS01+256 01347000 CVTRV210 EQU CVTS01+424 01348000 CVTRV219 EQU CVTS01+425 01349000 CVTRV228 EQU CVTS01+426 01350000 CVTRV237 EQU CVTS01+427 01351000 CVTMFRTR EQU CVTS01+452 01352000 CVTVPSIB EQU CVTS01+456 01353000 CVTRV262 EQU CVTS01+468 01354000 CVTRV271 EQU CVTS01+469 01355000 CVTRV280 EQU CVTS01+470 01356000 CVTRV289 EQU CVTS01+471 01357000 CVTGSDA EQU CVTS01+600 01358000 PSARSVTE EQU PSARSVT 01359000 ASCBPTR EQU PSAAOLD 01360000 STSMB EQU STSMOPT 01361000 @NM00032 EQU STSMB+3 01362000 STSMDEVF EQU @NM00032 01363000 STSMC EQU STSMOPT 01364000 @NM00034 EQU STSMC+3 01365000 STSMWKLD EQU @NM00034 01366000 RMCTPTR EQU CVTOPCTP 01367000 WAMTNDX EQU WAMTNX1 01368000 WMSTPTR EQU RMCTWMST 01369000 FLC EQU PSA 01370000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01371000 @NM00035 EQU @NM00034 01372000 @NM00033 EQU STSMC 01373000 STSMCRDR EQU STSMDEVF 01374000 STSMUNIT EQU STSMDEVF 01375000 STSMGRAP EQU STSMDEVF 01376000 STSMDA EQU STSMDEVF 01377000 STSMTP EQU STSMDEVF 01378000 STSMTAPE EQU STSMDEVF 01379000 @NM00031 EQU STSMB 01380000 PSARSAV EQU PSARSVTE+60 01381000 PSARSTK EQU PSARSVTE+56 01382000 PSAESAV3 EQU PSARSVTE+52 01383000 PSAESTK3 EQU PSARSVTE+48 01384000 PSAESAV2 EQU PSARSVTE+44 01385000 PSAESTK2 EQU PSARSVTE+40 01386000 PSAESAV1 EQU PSARSVTE+36 01387000 PSAESTK1 EQU PSARSVTE+32 01388000 PSAPSAV EQU PSARSVTE+28 01389000 PSAPSTK EQU PSARSVTE+24 01390000 PSAMSAV EQU PSARSVTE+20 01391000 PSAMSTK EQU PSARSVTE+16 01392000 PSASSAV EQU PSARSVTE+12 01393000 PSASSTK EQU PSARSVTE+8 01394000 PSANSTK EQU PSARSVTE+4 01395000 PSACSTK EQU PSARSVTE 01396000 CVTRV628 EQU CVTS01+728 01397000 CVTRV627 EQU CVTS01+724 01398000 CVTRV626 EQU CVTS01+720 01399000 CVTRV625 EQU CVTS01+716 01400000 CVTRV624 EQU CVTS01+712 01401000 CVTRV623 EQU CVTS01+708 01402000 CVTRV622 EQU CVTS01+704 01403000 CVTRV621 EQU CVTS01+700 01404000 CVTIHASU EQU CVTS01+696 01405000 CVTSUSP EQU CVTS01+692 01406000 CVTT6SVC EQU CVTS01+688 01407000 CVTCDAL EQU CVTS01+684 01408000 CVTTCTL EQU CVTS01+680 01409000 CVTRSUME EQU CVTS01+676 01410000 CVTJTERM EQU CVTS01+672 01411000 CVTASMRM EQU CVTS01+668 01412000 CVTTCASP EQU CVTS01+664 01413000 CVT0PT03 EQU CVTS01+660 01414000 CVT0PT0E EQU CVTS01+656 01415000 CVTRV609 EQU CVTS01+652 01416000 CVTCGK EQU CVTS01+648 01417000 CVTRAC EQU CVTS01+644 01418000 CVTRV606 EQU CVTS01+640 01419000 CVTRV605 EQU CVTS01+636 01420000 CVTRV604 EQU CVTS01+632 01421000 CVTEFF02 EQU CVTS01+628 01422000 CVTCBBR EQU CVTS01+624 01423000 CVTSSCR EQU CVTS01+620 01424000 CVTEVENT EQU CVTS01+616 01425000 CVTCRCA EQU CVTS01+612 01426000 CVTTPIO EQU CVTS01+608 01427000 CVTADV EQU CVTS01+604 01428000 CVTGSDAB EQU CVTGSDA 01429000 CVTQV3 EQU CVTS01+596 01430000 CVTQV2 EQU CVTS01+592 01431000 CVTQV1 EQU CVTS01+588 01432000 CVTRPT EQU CVTS01+584 01433000 CVTSSRB EQU CVTS01+580 01434000 CVTCSDRL EQU CVTS01+576 01435000 CVTEXP1 EQU CVTS01+572 01436000 CVTRMPMT EQU CVTS01+568 01437000 CVTRMPTT EQU CVTS01+564 01438000 CVTVPSA EQU CVTS01+560 01439000 CVTVSTOP EQU CVTS01+556 01440000 CVTGTFR8 EQU CVTS01+552 01441000 CVTQUIT EQU CVTS01+548 01442000 CVTVACR EQU CVTS01+544 01443000 CVTWTCB EQU CVTS01+540 01444000 CVTSTPRS EQU CVTS01+536 01445000 CVT0PT02 EQU CVTS01+532 01446000 CVTDARCM EQU CVTS01+528 01447000 CVTIRECM EQU CVTS01+524 01448000 CVTJRECM EQU CVTS01+520 01449000 CVTVEMS0 EQU CVTS01+516 01450000 CVTSPFRR EQU CVTS01+512 01451000 CVTRLSTG EQU CVTS01+508 01452000 CVT0TC0A EQU CVTS01+504 01453000 CVTGMBR EQU CVTS01+500 01454000 CVTLFRM EQU CVTS01+496 01455000 CVTRMBR EQU CVTS01+492 01456000 CVTVIOP EQU CVTS01+488 01457000 CVTRV307 EQU CVTS01+486 01458000 CVTRV306 EQU CVTS01+484 01459000 CVTRV305 EQU CVTS01+482 01460000 CVTRV304 EQU CVTS01+480 01461000 CVTRV303 EQU CVTS01+478 01462000 CVTRV302 EQU CVTS01+476 01463000 CVTTRCA EQU CVTS01+472 01464000 CVTRV297 EQU CVTRV289 01465000 CVTRV296 EQU CVTRV289 01466000 CVTRV295 EQU CVTRV289 01467000 CVTRV294 EQU CVTRV289 01468000 CVTRV293 EQU CVTRV289 01469000 CVTRV292 EQU CVTRV289 01470000 CVTRV291 EQU CVTRV289 01471000 CVTRV290 EQU CVTRV289 01472000 CVTRV288 EQU CVTRV280 01473000 CVTRV287 EQU CVTRV280 01474000 CVTRV286 EQU CVTRV280 01475000 CVTRV285 EQU CVTRV280 01476000 CVTRV284 EQU CVTRV280 01477000 CVTRV283 EQU CVTRV280 01478000 CVTRV282 EQU CVTRV280 01479000 CVTRV281 EQU CVTRV280 01480000 CVTRV279 EQU CVTRV271 01481000 CVTRV278 EQU CVTRV271 01482000 CVTRV277 EQU CVTRV271 01483000 CVTRV276 EQU CVTRV271 01484000 CVTRV275 EQU CVTRV271 01485000 CVTRV274 EQU CVTRV271 01486000 CVTRV273 EQU CVTRV271 01487000 CVTRV272 EQU CVTRV271 01488000 CVTRV270 EQU CVTRV262 01489000 CVTRV269 EQU CVTRV262 01490000 CVTRV268 EQU CVTRV262 01491000 CVTRV267 EQU CVTRV262 01492000 CVTRV266 EQU CVTRV262 01493000 CVTRV265 EQU CVTRV262 01494000 CVTRV264 EQU CVTRV262 01495000 CVTRV263 EQU CVTRV262 01496000 CVTVFP EQU CVTS01+464 01497000 CVTVSI EQU CVTS01+460 01498000 CVTMFACT EQU CVTMFRTR 01499000 CVTMFCTL EQU CVTS01+448 01500000 CVTPVBP EQU CVTS01+444 01501000 CVTPWI EQU CVTS01+440 01502000 CVTRV254 EQU CVTS01+438 01503000 CVTRV253 EQU CVTS01+436 01504000 CVTRV252 EQU CVTS01+434 01505000 CVTRV251 EQU CVTS01+433 01506000 CVTRV250 EQU CVTS01+432 01507000 CVTRV249 EQU CVTS01+431 01508000 CVTRV248 EQU CVTS01+430 01509000 CVTRV247 EQU CVTS01+429 01510000 CVTRV246 EQU CVTS01+428 01511000 CVTRV245 EQU CVTRV237 01512000 CVTRV244 EQU CVTRV237 01513000 CVTRV243 EQU CVTRV237 01514000 CVTRV242 EQU CVTRV237 01515000 CVTRV241 EQU CVTRV237 01516000 CVTRV240 EQU CVTRV237 01517000 CVTRV239 EQU CVTRV237 01518000 CVTRV238 EQU CVTRV237 01519000 CVTRV236 EQU CVTRV228 01520000 CVTRV235 EQU CVTRV228 01521000 CVTRV234 EQU CVTRV228 01522000 CVTRV233 EQU CVTRV228 01523000 CVTRV232 EQU CVTRV228 01524000 CVTRV231 EQU CVTRV228 01525000 CVTRV230 EQU CVTRV228 01526000 CVTRV229 EQU CVTRV228 01527000 CVTRV227 EQU CVTRV219 01528000 CVTRV226 EQU CVTRV219 01529000 CVTRV225 EQU CVTRV219 01530000 CVTRV224 EQU CVTRV219 01531000 CVTRV223 EQU CVTRV219 01532000 CVTRV222 EQU CVTRV219 01533000 CVTRV221 EQU CVTRV219 01534000 CVTRV220 EQU CVTRV219 01535000 CVTRV218 EQU CVTRV210 01536000 CVTRV217 EQU CVTRV210 01537000 CVTRV216 EQU CVTRV210 01538000 CVTRV215 EQU CVTRV210 01539000 CVTRV214 EQU CVTRV210 01540000 CVTRV213 EQU CVTRV210 01541000 CVTRV212 EQU CVTRV210 01542000 CVTRV211 EQU CVTRV210 01543000 CVTLCCAT EQU CVTS01+420 01544000 CVTPCCAT EQU CVTS01+416 01545000 CVTIPCRP EQU CVTS01+412 01546000 CVTIPCRI EQU CVTS01+408 01547000 CVTIPCDS EQU CVTS01+404 01548000 CVTAIDVT EQU CVTS01+400 01549000 CVTSSAP EQU CVTS01+396 01550000 CVTEHCIR EQU CVTS01+392 01551000 CVTEHDEF EQU CVTS01+388 01552000 CVTDAIR EQU CVTS01+384 01553000 CVTPERFM EQU CVTS01+380 01554000 CVT044R2 EQU CVTS01+376 01555000 CVTFETCH EQU CVTS01+372 01556000 CVTRSTWD EQU CVTS01+368 01557000 CVTSPOST EQU CVTS01+364 01558000 CVTIOBP EQU CVTS01+360 01559000 CVTASMVT EQU CVTS01+356 01560000 CVTRECRQ EQU CVTS01+352 01561000 CVTWSAC EQU CVTS01+348 01562000 CVTRV149 EQU CVTS01+344 01563000 CVTWSAL EQU CVTS01+340 01564000 CVTSPSA EQU CVTS01+336 01565000 CVTGLMN EQU CVTS01+332 01566000 CVTVEAC0 EQU CVTS01+328 01567000 CVT062R1 EQU CVTS01+324 01568000 CVTRPOST EQU CVTS01+320 01569000 CVTDQIQE EQU CVTS01+316 01570000 CVTCSD EQU CVTS01+312 01571000 CVTLKRMA EQU CVTS01+308 01572000 CVTRSPIE EQU CVTS01+304 01573000 CVTRENQ EQU CVTS01+300 01574000 CVTLQCB EQU CVTS01+296 01575000 CVTFQCB EQU CVTS01+292 01576000 CVTQCS01 EQU CVTS01+288 01577000 CVTAPFT EQU CVTS01+284 01578000 CVTPARRL EQU CVTS01+280 01579000 CVTVWAIT EQU CVTS01+276 01580000 CVTGSPL EQU CVTS01+272 01581000 CVTLSMQ EQU CVTS01+268 01582000 CVTGSMQ EQU CVTS01+264 01583000 CVTEXPRO EQU CVTS01+260 01584000 CVTSIC EQU CVTS01+252 01585000 CVTTPIOS EQU CVTS01+248 01586000 CVTRTMS EQU CVTS01+244 01587000 CVTSDBF EQU CVTS01+240 01588000 CVTSCBP EQU CVTS01+236 01589000 CVTSDMP EQU CVTS01+232 01590000 CVTSV60 EQU CVTS01+228 01591000 CVTRTMCT EQU CVTS01+224 01592000 CVTASCBL EQU CVTS01+220 01593000 CVTASCBH EQU CVTS01+216 01594000 CVTGDA EQU CVTS01+212 01595000 CVTASVT EQU CVTS01+208 01596000 CVTVVMDI EQU CVTS01+204 01597000 CVTAQTOP EQU CVTS01+200 01598000 CVTIOSCS EQU CVTS01+196 01599000 CVTSDRM EQU CVTS01+192 01600000 CVTOPTE EQU CVTS01+188 01601000 CVTSTXU EQU CVTS01+184 01602000 CVTQUIS EQU CVTS01+180 01603000 CVTPARS EQU CVTS01+176 01604000 CVTS1EE EQU CVTS01+172 01605000 CVTFRAS EQU CVTS01+168 01606000 CVTQSAS EQU CVTS01+164 01607000 CVTCRAS EQU CVTS01+160 01608000 CVTCRMN EQU CVTS01+156 01609000 CVTDELCP EQU CVTS01+152 01610000 CVTFRECL EQU CVTS01+148 01611000 CVTGETCL EQU CVTS01+144 01612000 CVTBLDCP EQU CVTS01+140 01613000 CVTAUTHL EQU CVTS01+136 01614000 CVTSCAN EQU CVTS01+132 01615000 CVTRV144 EQU CVTS01+130 01616000 CVTMAXMP EQU CVTS01+128 01617000 CVTSTCK EQU CVTS01+124 01618000 CVTRV139 EQU CVTS01+123 01619000 CVTDSSAC EQU CVTS01+122 01620000 CVTRV513 EQU CVTS01+121 01621000 CVTIOSPL EQU CVTS01+120 01622000 CVTPTGT EQU CVTS01+116 01623000 CVTCSPIE EQU CVTS01+112 01624000 CVTSMFEX EQU CVTS01+108 01625000 CVTOLT0A EQU CVTS01+104 01626000 CVTSRBRT EQU CVTS01+100 01627000 CVTPUTL EQU CVTS01+96 01628000 CVTASCRL EQU CVTS01+92 01629000 CVTASCRF EQU CVTS01+88 01630000 CVTRV326 EQU CVTS01+84 01631000 CVTRV325 EQU CVTS01+80 01632000 CVTRV324 EQU CVTS01+76 01633000 CVT0VL01 EQU CVTS01+72 01634000 CVTSHRVM EQU CVTS01+68 01635000 CVTRV332 EQU CVTS01+64 01636000 CVTTAS EQU CVTS01+60 01637000 CVTRSCN EQU CVTS01+56 01638000 CVTTRAC2 EQU CVTS01+54 01639000 CVTTRACE EQU CVTS01+52 01640000 CVTAPG EQU CVTS01+51 01641000 CVTSDTRC EQU CVTCTLFG 01642000 CVTGTRCE EQU CVTCTLFG 01643000 CVTNOMP EQU CVTCTLFG 01644000 CVTRSV79 EQU CVTCTLFG 01645000 CVTDSTAT EQU CVTCTLFG 01646000 CVTRSV78 EQU CVTCTLFG 01647000 CVTRV333 EQU CVTCTLFG 01648000 CVTRV323 EQU CVTCTLFG 01649000 CVTSPVLK EQU CVTS01+49 01650000 CVTRSV77 EQU CVTS01+48 01651000 CVTRV331 EQU CVTS01+44 01652000 CVTRV330 EQU CVTS01+40 01653000 CVTRV329 EQU CVTS01+36 01654000 CVTRV328 EQU CVTS01+32 01655000 CVTRV322 EQU CVTS01+28 01656000 CVTSLID EQU CVTSLIDA+1 01657000 CVTSYLK EQU CVTSLIDA 01658000 CVTRV321 EQU CVTS01+20 01659000 CVTRV320 EQU CVTS01+16 01660000 CVTLPDIR EQU CVTLPDIA+1 01661000 CVTRSV69 EQU CVTDIRST 01662000 CVTRSV68 EQU CVTDIRST 01663000 CVTRSV67 EQU CVTDIRST 01664000 CVTRSV66 EQU CVTDIRST 01665000 CVTRSV65 EQU CVTDIRST 01666000 CVTRSV64 EQU CVTDIRST 01667000 CVTRSV63 EQU CVTDIRST 01668000 CVTDICOM EQU CVTDIRST 01669000 CVTPVTP EQU CVTS01+8 01670000 CVTLPDSR EQU CVTS01+4 01671000 CVTGETL EQU CVTS01 01672000 WMSTEND EQU WMST+112 01673000 WMSTIPM EQU WMST+108 01674000 WMSTIPI EQU WMST+104 01675000 WMSTIPC EQU WMST+100 01676000 WMSTSECB EQU WMST+96 01677000 WMSTNWST EQU WMST+92 01678000 WMSTSTCB EQU WMST+88 01679000 WMSTSET EQU WMST+84 01680000 WMSTRSVD EQU WMST+81 01681000 WMSTREAL EQU WMST+80 01682000 WMSTMSO EQU WMST+76 01683000 WMSTIOC EQU WMST+72 01684000 WMSTCPU EQU WMST+68 01685000 WMSTDMNC EQU WMST+66 01686000 WMSTWLHI EQU WMST+60 01687000 WMSTDMDE EQU WMST+56 01688000 WMSTDMVS EQU WMST+52 01689000 WMSTDMVT EQU WMST+48 01690000 WMSTDMDS EQU WMST+44 01691000 WMSTDMDT EQU WMST+40 01692000 WMSTPODS EQU WMST+36 01693000 WMSTPODT EQU WMST+32 01694000 WMSTPOVS EQU WMST+28 01695000 WMSTPOVT EQU WMST+24 01696000 WMSTPGDS EQU WMST+20 01697000 WMSTPGDT EQU WMST+16 01698000 WMSTPGVS EQU WMST+12 01699000 WMSTPGVT EQU WMST+8 01700000 WMSTWLLO EQU WMST+6 01701000 WMSTID EQU WMST+4 01702000 WMSTNAME EQU WMST 01703000 WAMPEND EQU WAMP+44 01704000 WAMPRSV EQU WAMPPGP+42 01705000 WAMPDMN EQU WAMPPGP+41 01706000 WAMPOBJN EQU WAMPPGP+40 01707000 WAMPSWC EQU WAMPPGP+36 01708000 WAMPTRR EQU WAMPPGP+32 01709000 WAMPMSO EQU WAMPPGP+28 01710000 WAMPIOC EQU WAMPPGP+24 01711000 WAMPCPU EQU WAMPPGP+20 01712000 WAMPNWL EQU WAMPPGP+16 01713000 WAMPTET EQU WAMPPGP+12 01714000 WAMPSRV EQU WAMPPGP+8 01715000 WAMPTAT EQU WAMPPGP+4 01716000 WAMPTRN EQU WAMPPGP 01717000 WAMTEND EQU WAMT+64 01718000 WAMTR90 EQU WAMT+60 01719000 WAMTNX0 EQU WAMT+52 01720000 WAMTIPM EQU WAMT+48 01721000 WAMTIPI EQU WAMT+44 01722000 WAMTIPC EQU WAMT+40 01723000 WAMTHPG EQU WAMT+38 01724000 WAMTCPD EQU WAMT+34 01725000 WAMTIPS EQU WAMT+32 01726000 WAMTTCB EQU WAMT+28 01727000 WAMTASD EQU WAMT+24 01728000 WAMTTOC EQU WAMT+16 01729000 WAMTTMA EQU WAMT+8 01730000 RMCTEND EQU RMCT+192 01731000 RMCTR50 EQU RMCT+190 01732000 RMCTDMNC EQU RMCT+188 01733000 RMCTDMDE EQU RMCT+184 01734000 RMCTDMDT EQU RMCT+180 01735000 RMCTSRBT EQU RMCT+176 01736000 RMCTOUXB EQU RMCT+172 01737000 RMCTOUCB EQU RMCT+168 01738000 RMCTTOCI EQU RMCT+160 01739000 RMCTCPID EQU RMCT+156 01740000 RMCTTELM EQU RMCT+152 01741000 RMCTF09 EQU RMCTFLGS+1 01742000 RMCTMFS EQU RMCTFLGS+1 01743000 RMCTF07 EQU RMCTFLGS+1 01744000 RMCTF06 EQU RMCTFLGS 01745000 RMCTRSV2 EQU RMCTFLGS 01746000 RMCTSTW EQU RMCTFLGS 01747000 RMCTRSV1 EQU RMCTFLGS 01748000 RMCTINIT EQU RMCTFLGS 01749000 RMCTF03 EQU RMCTFLGS 01750000 RMCTCPS1 EQU RMCTFLGS 01751000 RMCTMFA EQU RMCTFLGS 01752000 RMCTRQSV EQU RMCT+144 01753000 RMCTALR EQU RMCT+140 01754000 RMCTALA EQU RMCT+136 01755000 RMCTTOC EQU RMCT+128 01756000 RMCTTOD EQU RMCT+124 01757000 RMCTTBS EQU RMCT+120 01758000 RMCTR10 EQU RMCT+116 01759000 RMCTINQE EQU RMCT+112 01760000 RMCTOTQE EQU RMCT+108 01761000 RMCTWTQE EQU RMCT+104 01762000 RMCTAQHD EQU RMCT+100 01763000 RMCTAQCT EQU RMCT+96 01764000 RMCTTMQE EQU RMCT+92 01765000 RMCTWAMT EQU RMCT+88 01766000 RMCTWAST EQU RMCT+84 01767000 RMCTEPPR EQU RMCT+80 01768000 RMCTFLTM EQU RMCT+76 01769000 RMCTEPET EQU RMCT+72 01770000 RMCTITT EQU RMCT+68 01771000 RMCTADJC EQU RMCT+64 01772000 RMCTR05 EQU RMCT+60 01773000 RMCTEPAT EQU RMCT+56 01774000 RMCTEPDT EQU RMCT+52 01775000 RMCTEPPA EQU RMCT+48 01776000 RMCTRMSB EQU RMCT+44 01777000 RMCTRMEX EQU RMCT+40 01778000 RMCTRMPD EQU RMCT+36 01779000 RMCTRMSA EQU RMCT+32 01780000 RMCTRLCT EQU RMCT+28 01781000 RMCTRMCA EQU RMCT+20 01782000 RMCTRMPT EQU RMCT+16 01783000 RMCTMCT EQU RMCT+12 01784000 RMCTICT EQU RMCT+8 01785000 RMCTCCT EQU RMCT+4 01786000 RMCTNAME EQU RMCT 01787000 STSMRSV1 EQU STSMA+53 01788000 STSMSSP EQU STSMA+52 01789000 STSMIADD EQU STSMA+40 01790000 STSMILEN EQU STSMIGMC+1 01791000 STSMISP EQU STSMIGMC 01792000 STSMEDAD EQU STSMA+32 01793000 STSMENTR EQU STSMA+28 01794000 STSMSAVE EQU STSMA+24 01795000 STSMTERM EQU STSMA+12 01796000 STSMINIT EQU STSMA+4 01797000 STSMSTA EQU STSMOFLG 01798000 @NM00030 EQU STSMOFLG 01799000 @NM00029 EQU STSMOPT 01800000 STSGLEN EQU STSGFREE+1 01801000 STSGSP EQU STSGFREE 01802000 @NM00028 EQU DWWIN+13 01803000 @NM00027 EQU DWWIN+12 01804000 DWWITOC EQU DWWIN 01805000 ASCBEND EQU ASCB+208 01806000 ASCBSRBT EQU ASCB+200 01807000 ASCBSWTL EQU ASCB+196 01808000 ASCBRS14 EQU ASCB+195 01809000 ASCBSMCT EQU ASCB+194 01810000 ASCBRS12 EQU ASCB+192 01811000 ASCBPCTT EQU ASCB+188 01812000 ASCBVGTT EQU ASCB+184 01813000 ASCBRV43 EQU ASCBSRQ4 01814000 ASCBRV42 EQU ASCBSRQ4 01815000 ASCBRV41 EQU ASCBSRQ4 01816000 ASCBRV40 EQU ASCBSRQ4 01817000 ASCBRV39 EQU ASCBSRQ4 01818000 ASCBRV38 EQU ASCBSRQ4 01819000 ASCBRV37 EQU ASCBSRQ4 01820000 ASCBRV36 EQU ASCBSRQ4 01821000 ASCBRV35 EQU ASCBSRQ3 01822000 ASCBRV34 EQU ASCBSRQ3 01823000 ASCBRV33 EQU ASCBSRQ3 01824000 ASCBRV32 EQU ASCBSRQ3 01825000 ASCBRV31 EQU ASCBSRQ3 01826000 ASCBRV30 EQU ASCBSRQ3 01827000 ASCBRV29 EQU ASCBSRQ3 01828000 ASCBRV28 EQU ASCBSRQ3 01829000 ASCBRV27 EQU ASCBSRQ2 01830000 ASCBRV26 EQU ASCBSRQ2 01831000 ASCBRV25 EQU ASCBSRQ2 01832000 ASCBRV24 EQU ASCBSRQ2 01833000 ASCBRV23 EQU ASCBSRQ2 01834000 ASCBRV22 EQU ASCBSRQ2 01835000 ASCBRV21 EQU ASCBSRQ2 01836000 ASCBRV20 EQU ASCBSRQ2 01837000 ASCBRV19 EQU ASCBSRQ1 01838000 ASCBRV18 EQU ASCBSRQ1 01839000 ASCBRV17 EQU ASCBSRQ1 01840000 ASCBRV16 EQU ASCBSRQ1 01841000 ASCBRV15 EQU ASCBSRQ1 01842000 ASCBRV14 EQU ASCBSRQ1 01843000 ASCBRV13 EQU ASCBSRQ1 01844000 ASCBSTA EQU ASCBSRQ1 01845000 ASCBJBNS EQU ASCB+176 01846000 ASCBJBNI EQU ASCB+172 01847000 ASCBMCC EQU ASCB+168 01848000 ASCBRTWA EQU ASCB+164 01849000 ASCBIQEA EQU ASCB+160 01850000 ASCBXMPQ EQU ASCB+156 01851000 ASCBRS01 EQU ASCB+154 01852000 ASCBFMCT EQU ASCB+152 01853000 ASCBOUXB EQU ASCB+148 01854000 ASCBOUCB EQU ASCB+144 01855000 ASCBMECB EQU ASCB+140 01856000 ASCBQECB EQU ASCB+136 01857000 ASCBLSQH EQU ASCBLKGP+4 01858000 ASCBLOCK EQU ASCBLKGP 01859000 ASCBTCBS EQU ASCB+124 01860000 ASCBNVSC EQU ASCB+122 01861000 ASCBVSC EQU ASCB+120 01862000 ASCBSRBS EQU ASCB+118 01863000 ASCBSSRB EQU ASCB+116 01864000 ASCBRV06 EQU ASCBFLG2 01865000 ASCBRV05 EQU ASCBFLG2 01866000 ASCBRV04 EQU ASCBFLG2 01867000 ASCBSNQS EQU ASCBFLG2 01868000 ASCBS2S EQU ASCBFLG2 01869000 ASCBCEXT EQU ASCBFLG2 01870000 ASCBPXMT EQU ASCBFLG2 01871000 ASCBXMPT EQU ASCBFLG2 01872000 ASCBRF07 EQU ASCBDSP1 01873000 ASCBRF06 EQU ASCBDSP1 01874000 ASCBRF05 EQU ASCBDSP1 01875000 ASCBRF04 EQU ASCBDSP1 01876000 ASCBRF03 EQU ASCBDSP1 01877000 ASCBRF02 EQU ASCBDSP1 01878000 ASCBFAIL EQU ASCBDSP1 01879000 ASCBNOQ EQU ASCBDSP1 01880000 ASCBSWCT EQU ASCB+112 01881000 ASCBASXB EQU ASCB+108 01882000 ASCBTMCH EQU ASCB+104 01883000 ASCBTYP1 EQU ASCBFLG1 01884000 ASCBSTND EQU ASCBFLG1 01885000 ASCBABNT EQU ASCBFLG1 01886000 ASCBTERM EQU ASCBFLG1 01887000 ASCBS3S EQU ASCBFLG1 01888000 ASCBCMSH EQU ASCBFLG1 01889000 ASCBTOFF EQU ASCBFLG1 01890000 ASCBRF01 EQU ASCBRCTF 01891000 ASCBTMLW EQU ASCBRCTF 01892000 ASCBOUT EQU ASCBRCTF 01893000 ASCBWAIT EQU ASCBRCTF 01894000 ASCBRV08 EQU ASCBRCTF 01895000 ASCBFQU EQU ASCBRCTF 01896000 ASCBFRS EQU ASCBRCTF 01897000 ASCBTMNO EQU ASCBRCTF 01898000 ASCBAFFN EQU ASCBFW1 01899000 ASCBDUMP EQU ASCB+96 01900000 ASCBRV44 EQU ASCB+92 01901000 ASCBUBET EQU ASCB+88 01902000 ASCBECB EQU ASCB+84 01903000 ASCBJSTL EQU ASCB+80 01904000 ASCBEWST EQU ASCB+72 01905000 ASCBEJST EQU ASCB+64 01906000 ASCBTSB EQU ASCB+60 01907000 ASCBCSCB EQU ASCB+56 01908000 ASCBRSM EQU ASCB+52 01909000 ASCBLDA EQU ASCB+48 01910000 ASCBSTOR EQU ASCB+44 01911000 ASCBDP EQU ASCB+43 01912000 ASCBRV07 EQU ASCB+42 01913000 ASCBIOSM EQU ASCB+40 01914000 ASCBSEQN EQU ASCB+38 01915000 ASCBASID EQU ASCB+36 01916000 ASCBCPUS EQU ASCB+32 01917000 ASCBSPL EQU ASCB+28 01918000 ASCBIOSP EQU ASCB+24 01919000 ASCBSYNC EQU ASCBSUPC+4 01920000 ASCBSVRB EQU ASCBSUPC 01921000 ASCBCMSF EQU ASCB+12 01922000 ASCBBWDP EQU ASCB+8 01923000 ASCBFWDP EQU ASCB+4 01924000 ASCBASCB EQU ASCB 01925000 ASCBEGIN EQU ASCB 01926000 CVTLEVL EQU CVTRELNO+2 01927000 CVTNUMB EQU CVTRELNO 01928000 CVTMDL EQU CVTFIX+250 01929000 @NM00002 EQU CVTFIX+248 01930000 @NM00001 EQU CVTFIX 01931000 CVTRV482 EQU CVTXTNT2+128 01932000 CVTRV481 EQU CVTXTNT2+124 01933000 CVTRV480 EQU CVTXTNT2+120 01934000 CVTRV479 EQU CVTXTNT2+118 01935000 CVTRV478 EQU CVTXTNT2+117 01936000 CVTRV477 EQU CVTXTNT2+116 01937000 CVTRV476 EQU CVTXTNT2+115 01938000 CVTRV475 EQU CVTXTNT2+114 01939000 CVTRV474 EQU CVTRV466 01940000 CVTRV473 EQU CVTRV466 01941000 CVTRV472 EQU CVTRV466 01942000 CVTRV471 EQU CVTRV466 01943000 CVTRV470 EQU CVTRV466 01944000 CVTRV469 EQU CVTRV466 01945000 CVTRV468 EQU CVTRV466 01946000 CVTRV467 EQU CVTRV466 01947000 CVTRV465 EQU CVTRV457 01948000 CVTRV464 EQU CVTRV457 01949000 CVTRV463 EQU CVTRV457 01950000 CVTRV462 EQU CVTRV457 01951000 CVTRV461 EQU CVTRV457 01952000 CVTRV460 EQU CVTRV457 01953000 CVTRV459 EQU CVTRV457 01954000 CVTRV458 EQU CVTRV457 01955000 CVTRV456 EQU CVTXTNT2+108 01956000 CVTRV455 EQU CVTXTNT2+104 01957000 CVTRV454 EQU CVTXTNT2+100 01958000 CVTRV453 EQU CVTXTNT2+96 01959000 CVTRV452 EQU CVTXTNT2+94 01960000 CVTRV451 EQU CVTXTNT2+92 01961000 CVTRV450 EQU CVTXTNT2+90 01962000 CVTRV449 EQU CVTXTNT2+88 01963000 CVTRV448 EQU CVTXTNT2+87 01964000 CVTRV447 EQU CVTXTNT2+86 01965000 CVTRV446 EQU CVTRV438 01966000 CVTRV445 EQU CVTRV438 01967000 CVTRV444 EQU CVTRV438 01968000 CVTRV443 EQU CVTRV438 01969000 CVTRV442 EQU CVTRV438 01970000 CVTRV441 EQU CVTRV438 01971000 CVTRV440 EQU CVTRV438 01972000 CVTRV439 EQU CVTRV438 01973000 CVTRV437 EQU CVTRV429 01974000 CVTRV436 EQU CVTRV429 01975000 CVTRV435 EQU CVTRV429 01976000 CVTRV434 EQU CVTRV429 01977000 CVTRV433 EQU CVTRV429 01978000 CVTRV432 EQU CVTRV429 01979000 CVTRV431 EQU CVTRV429 01980000 CVTRV430 EQU CVTRV429 01981000 CVTRV428 EQU CVTXTNT2+80 01982000 CVTRV427 EQU CVTXTNT2+76 01983000 CVTRV426 EQU CVTXTNT2+72 01984000 CVTRV425 EQU CVTXTNT2+68 01985000 CVTATACT EQU CVTATCVT 01986000 CVTRV423 EQU CVTXTNT2+62 01987000 CVTRV422 EQU CVTXTNT2+60 01988000 CVTRV421 EQU CVTXTNT2+58 01989000 CVTRV420 EQU CVTXTNT2+56 01990000 CVTRV419 EQU CVTXTNT2+55 01991000 CVTRV418 EQU CVTXTNT2+54 01992000 CVTRV417 EQU CVTRV409 01993000 CVTRV416 EQU CVTRV409 01994000 CVTRV415 EQU CVTRV409 01995000 CVTRV414 EQU CVTRV409 01996000 CVTRV413 EQU CVTRV409 01997000 CVTRV412 EQU CVTRV409 01998000 CVTRV411 EQU CVTRV409 01999000 CVTRV410 EQU CVTRV409 02000000 CVTRV408 EQU CVTRV400 02001000 CVTRV407 EQU CVTRV400 02002000 CVTRV406 EQU CVTRV400 02003000 CVTRV405 EQU CVTRV400 02004000 CVTRV404 EQU CVTRV400 02005000 CVTRV403 EQU CVTRV400 02006000 CVTRV402 EQU CVTRV400 02007000 CVTRV401 EQU CVTRV400 02008000 CVTICB EQU CVTXTNT2+48 02009000 CVTSKTA EQU CVTXTNT2+44 02010000 CVTRSV99 EQU CVTXTNT2+40 02011000 CVTRSV98 EQU CVTXTNT2+36 02012000 CVTRSV97 EQU CVTXTNT2+34 02013000 CVTRSV96 EQU CVTXTNT2+32 02014000 CVTOLTEP EQU CVTXTNT2+28 02015000 CVTQIDA EQU CVTQID+1 02016000 CVTRSV95 EQU CVTQID 02017000 CVTRSV94 EQU CVTXTNT2+20 02018000 CVTRSV93 EQU CVTXTNT2+16 02019000 CVTRSV92 EQU CVTXTNT2+12 02020000 CVTDEBVR EQU CVTXTNT2+8 02021000 CVTRSV91 EQU CVTXTNT2+6 02022000 CVTRSV9H EQU CVTFLGBT 02023000 CVTRSV9G EQU CVTFLGBT 02024000 CVTRSV9F EQU CVTFLGBT 02025000 CVTRSV9E EQU CVTFLGBT 02026000 CVTRSV9D EQU CVTFLGBT 02027000 CVTRSV9C EQU CVTFLGBT 02028000 CVTVME EQU CVTFLGBT 02029000 CVTNPE EQU CVTFLGBT 02030000 CVTNUCLS EQU CVTXTNT2+4 02031000 CVTDSSVA EQU CVTDSSV+1 02032000 CVTRSV89 EQU CVTDSSV 02033000 CVTRSV88 EQU CVTXTNT1+8 02034000 CVTRSV87 EQU CVTXTNT1+4 02035000 CVTFACHN EQU CVTXTNT1 02036000 CVTRV488 EQU CVTMAP+412 02037000 CVTRV487 EQU CVTMAP+408 02038000 CVTRV486 EQU CVTMAP+404 02039000 CVTRV485 EQU CVTMAP+400 02040000 CVTACTAP EQU CVTMAP+396 02041000 CVTAUTH EQU CVTMAP+392 02042000 CVTATMCA EQU CVTATMCT+1 02043000 CVTATMST EQU CVTATMCT 02044000 CVTRSV61 EQU CVTMAP+384 02045000 CVTVOLT1 EQU CVTVOLM1+1 02046000 CVTVOLI1 EQU CVTVOLF1 02047000 CVTSTOA EQU CVTMAP+376 02048000 CVTRSV58 EQU CVTMAP+374 02049000 CVTRSV57 EQU CVTMAP+372 02050000 CVTDDCE EQU CVTMAP+368 02051000 CVTPNWFR EQU CVTMAP+364 02052000 CVTSMF EQU CVTMAP+360 02053000 CVTSULK EQU CVTMAP+358 02054000 CVTSLKO EQU CVTSYSK 02055000 CVTSLKP EQU CVTSYSK 02056000 CVTSLKQ EQU CVTSYSK 02057000 CVTSLKR EQU CVTSYSK 02058000 CVTRSV56 EQU CVTSYSK 02059000 CVTRSV55 EQU CVTSYSK 02060000 CVTRSV54 EQU CVTSYSK 02061000 CVTRSV53 EQU CVTSYSK 02062000 CVTRSV52 EQU CVTA1F1 02063000 CVTRSV51 EQU CVTA1F1 02064000 CVTRSV50 EQU CVTA1F1 02065000 CVTRSV49 EQU CVTA1F1 02066000 CVTRSV48 EQU CVTA1F1 02067000 CVTRSV47 EQU CVTA1F1 02068000 CVTSRSW EQU CVTA1F1 02069000 CVTPFSW EQU CVTA1F1 02070000 CVTPCVT EQU CVTMAP+352 02071000 CVTRSV46 EQU CVTMAP+344 02072000 CVTRSV45 EQU CVTMAP+340 02073000 CVTRSV44 EQU CVTMAP+338 02074000 CVTRSV43 EQU CVTMAP+336 02075000 CVTHJESA EQU CVTHJES+1 02076000 CVTRSV42 EQU CVTHJES 02077000 CVTEXT2A EQU CVTEXT2+1 02078000 CVTRSV41 EQU CVTEXT2 02079000 CVTAPFA EQU CVTAPF+1 02080000 CVTRSV40 EQU CVTAPF 02081000 CVTRV518 EQU CVTINTLA 02082000 CVTRV517 EQU CVTERPV 02083000 CVTEORM EQU CVTMAP+312 02084000 CVTMCHPR EQU CVTMAP+308 02085000 CVTTZ EQU CVTMAP+304 02086000 CVTJEPS EQU CVTMAP+300 02087000 CVTJESCT EQU CVTMAP+296 02088000 CVTMODE EQU CVTMAP+292 02089000 CVTPTRV EQU CVTMAP+288 02090000 CVTREAL EQU CVTMAP+284 02091000 CVTRSV39 EQU CVTMAP+280 02092000 CVTRSV38 EQU CVTMAP+276 02093000 CVTDMSRA EQU CVTDMSR+1 02094000 CVTRV634 EQU CVTDMSRF 02095000 CVTRV633 EQU CVTDMSRF 02096000 CVTRV632 EQU CVTDMSRF 02097000 CVTRV631 EQU CVTDMSRF 02098000 CVTRV630 EQU CVTDMSRF 02099000 CVTRV629 EQU CVTDMSRF 02100000 CVTUDUMP EQU CVTDMSRF 02101000 CVTSDUMP EQU CVTDMSRF 02102000 CVTQMSGA EQU CVTQMSG+1 02103000 CVTRSV36 EQU CVTQMSG 02104000 CVTAMFF EQU CVTMAP+264 02105000 CVTPURGA EQU CVTPURG+1 02106000 CVTRSV35 EQU CVTPURG 02107000 CVTCBSP EQU CVTMAP+256 02108000 CVTATERA EQU CVTATER+1 02109000 CVTSYST EQU CVTATER 02110000 CVTVOLT2 EQU CVTTAT 02111000 CVTVOLI2 EQU CVTVOLF2 02112000 CVTAQAVB EQU CVTAQAVT+1 02113000 CVTRSV34 EQU CVTTCMFG 02114000 CVTRSV33 EQU CVTTCMFG 02115000 CVTRSV32 EQU CVTTCMFG 02116000 CVTRSV31 EQU CVTTCMFG 02117000 CVTRSV30 EQU CVTTCMFG 02118000 CVTRSV29 EQU CVTTCMFG 02119000 CVTLDEV EQU CVTTCMFG 02120000 CVTTCRDY EQU CVTTCMFG 02121000 CVTGTFA EQU CVTGTF+1 02122000 CVTRSV27 EQU CVTGTFST 02123000 CVTRNIO EQU CVTGTFST 02124000 CVTUSR EQU CVTGTFST 02125000 CVTRV318 EQU CVTFORM 02126000 CVTRV317 EQU CVTTMODE 02127000 CVTRV316 EQU CVTSTATE 02128000 CVTRV315 EQU CVTGTFS 02129000 CVTGTFAV EQU CVTGTFS 02130000 CVT0SCR1 EQU CVTMAP+232 02131000 CVTRV515 EQU CVTMAP+228 02132000 CVTRMS EQU CVTMAP+224 02133000 CVTPATCH EQU CVTMAP+220 02134000 CVTTSCE EQU CVTMAP+216 02135000 CVTLNKSC EQU CVTMAP+214 02136000 CVTQABST EQU CVTMAP+212 02137000 CVTMDLDS EQU CVTMAP+208 02138000 CVTUSER EQU CVTMAP+204 02139000 CVTABEND EQU CVTMAP+200 02140000 CVTSMCA EQU CVTMAP+196 02141000 CVTRSV18 EQU CVTMAP+192 02142000 CVTQLPAQ EQU CVTMAP+188 02143000 CVTQCDSR EQU CVTMAP+184 02144000 CVTRSV17 EQU CVTOPTB 02145000 CVTRSV16 EQU CVTOPTB 02146000 CVTFP EQU CVTOPTB 02147000 CVTAPTHR EQU CVTOPTB 02148000 CVTNLOG EQU CVTOPTB 02149000 CVTTOD EQU CVTOPTB 02150000 CVTCTIMS EQU CVTOPTB 02151000 CVTPROT EQU CVTOPTB 02152000 CVTXPFP EQU CVTOPTA 02153000 CVTASCII EQU CVTOPTA 02154000 CVTRSV13 EQU CVTOPTA 02155000 CVTRSV12 EQU CVTOPTA 02156000 CVTNIP EQU CVTOPTA 02157000 CVTDDR EQU CVTOPTA 02158000 CVTAPR EQU CVTOPTA 02159000 CVTCCH EQU CVTOPTA 02160000 CVTSNCTR EQU CVTMAP+180 02161000 CVTQMWR EQU CVTMAP+176 02162000 CVTQOCR EQU CVTMAP+172 02163000 CVT1EF00 EQU CVTMAP+168 02164000 CVTMZ00 EQU CVTMAP+164 02165000 CVTHEAD EQU CVTMAP+160 02166000 CVTRSV11 EQU CVTMAP+156 02167000 CVT0PT01 EQU CVTMAP+152 02168000 CVTMSER EQU CVTMAP+148 02169000 CVTRV516 EQU CVTIERLC 02170000 CVTILCH EQU CVTMAP+140 02171000 CVT0DS EQU CVTMAP+136 02172000 CVTFBOSV EQU CVTMAP+132 02173000 CVTNUCB EQU CVTMAP+128 02174000 CVTIXAVL EQU CVTMAP+124 02175000 CVTIOQET EQU CVTMAP+120 02176000 CVTDCBA EQU CVTMAP+117 02177000 CVTMVS2 EQU CVTDCB 02178000 CVT6DAT EQU CVTDCB 02179000 CVT4MPS EQU CVTDCB 02180000 CVTRSV09 EQU CVTDCB 02181000 CVT4MS1 EQU CVTDCB 02182000 CVT2SPS EQU CVTDCB 02183000 CVT1SSS EQU CVTDCB 02184000 CVTRSV08 EQU CVTDCB 02185000 CVTSTB EQU CVTMAP+112 02186000 CVTQTD00 EQU CVTMAP+108 02187000 CVTQTE00 EQU CVTMAP+104 02188000 CVTCUCB EQU CVTMAP+100 02189000 CVTSJQ EQU CVTMAP+96 02190000 CVTPBLDL EQU CVTMAP+92 02191000 CVTTPC EQU CVTMAP+88 02192000 CVTSVDCB EQU CVTMAP+84 02193000 CVTBRET EQU CVTMAP+82 02194000 CVTEXIT EQU CVTMAP+80 02195000 CVT0FN00 EQU CVTMAP+76 02196000 CVTDARA EQU CVTDAR+1 02197000 CVTRSV07 EQU CVTFLGS1 02198000 CVTRSV06 EQU CVTFLGS1 02199000 CVTRSV05 EQU CVTFLGS1 02200000 CVTRSV04 EQU CVTFLGS1 02201000 CVTRSV03 EQU CVTFLGS1 02202000 CVTRSV02 EQU CVTFLGS1 02203000 CVTRSV01 EQU CVTFLGS1 02204000 CVTDMPLK EQU CVTFLGS1 02205000 CVTXITP EQU CVTMAP+68 02206000 CVTZDTAB EQU CVTMAP+64 02207000 CVTMSLT EQU CVTMAP+60 02208000 CVTDATE EQU CVTMAP+56 02209000 CVTBTERM EQU CVTMAP+52 02210000 CVTSYSAD EQU CVTMAP+48 02211000 CVTXTLER EQU CVTMAP+44 02212000 CVTILK2 EQU CVTMAP+40 02213000 CVTILK1 EQU CVTMAP+36 02214000 CVTPRLTV EQU CVTMAP+32 02215000 CVTPCNVT EQU CVTMAP+28 02216000 CVT0VL00 EQU CVTMAP+24 02217000 CVTXAPG EQU CVTMAP+20 02218000 CVTBUF EQU CVTMAP+16 02219000 CVTJOB EQU CVTMAP+12 02220000 CVTLINK EQU CVTMAP+8 02221000 CVT0EF00 EQU CVTMAP+4 02222000 CVTTCBP EQU CVTMAP 02223000 CVT EQU CVTMAP 02224000 @NM00026 EQU PSA+3668 02225000 PSASTAK EQU PSA+3072 02226000 @NM00025 EQU PSA+1048 02227000 PSAUSEND EQU PSA+1048 02228000 PSARV062 EQU PSA+1044 02229000 PSACDAL EQU PSA+1040 02230000 PSAWTCOD EQU PSA+1036 02231000 PSAATCVT EQU PSA+1032 02232000 PSAPCPSW EQU PSA+1024 02233000 PSAPIR2 EQU PSA+1020 02234000 PSARV059 EQU PSA+1018 02235000 PSASVC13 EQU PSA+1016 02236000 PSALSFCC EQU PSA+1012 02237000 PSASFACC EQU PSA+1008 02238000 PSASTOP EQU PSA+992 02239000 PSASTART EQU PSA+976 02240000 PSARSPSW EQU PSA+968 02241000 PSASRPSW EQU PSA+960 02242000 PSARV045 EQU PSA+892 02243000 PSARV044 EQU PSA+888 02244000 PSARV043 EQU PSA+884 02245000 PSARV042 EQU PSA+880 02246000 PSARV041 EQU PSA+876 02247000 PSARV040 EQU PSA+872 02248000 PSARV025 EQU PSA+868 02249000 PSADSSED EQU PSA+868 02250000 PSADSSPR EQU PSA+864 02251000 PSADSSFW EQU PSA+860 02252000 PSADSS14 EQU PSA+856 02253000 PSADSSPP EQU PSA+848 02254000 PSADSSRP EQU PSA+840 02255000 PSADSS05 EQU PSADSSF4 02256000 PSADSS10 EQU PSADSSF4 02257000 PSADSSVE EQU PSADSSF4 02258000 PSADSSDE EQU PSADSSF4 02259000 PSADSSC0 EQU PSADSSF4 02260000 PSADSSIE EQU PSADSSF4 02261000 PSADSS12 EQU PSADSSF4 02262000 PSADSSRC EQU PSADSSF4 02263000 PSARV057 EQU PSADSSF3 02264000 PSARV056 EQU PSADSSF3 02265000 PSARV055 EQU PSADSSF3 02266000 PSADSSMC EQU PSADSSF3 02267000 PSADSSRW EQU PSADSSF3 02268000 PSADSSNM EQU PSADSSF3 02269000 PSADSSES EQU PSADSSF3 02270000 PSADSSGP EQU PSADSSF3 02271000 PSADSSF2 EQU PSADSSFL+1 02272000 PSADSSPI EQU PSADSSF1 02273000 PSADSSOI EQU PSADSSF1 02274000 PSADSSSP EQU PSADSSF1 02275000 PSADSSTP EQU PSADSSF1 02276000 PSADSSDW EQU PSADSSF1 02277000 PSADSSDD EQU PSADSSF1 02278000 PSADSSDM EQU PSADSSF1 02279000 PSADSSMV EQU PSADSSF1 02280000 PSADSSTS EQU PSA+816 02281000 PSADSSWK EQU PSA+812 02282000 PSADSSR3 EQU PSA+808 02283000 PSADSSR2 EQU PSA+804 02284000 PSADSSRS EQU PSA+800 02285000 PSASTOR EQU PSA+796 02286000 PSACPUSA EQU PSA+794 02287000 PSAVSTAP EQU PSA+792 02288000 PSAWKVAP EQU PSA+788 02289000 PSAWKRAP EQU PSA+784 02290000 PSAMCHIC EQU PSA+783 02291000 PSARV061 EQU PSA+782 02292000 PSASYMSK EQU PSA+781 02293000 PSAMCHFL EQU PSA+780 02294000 PSACR0 EQU PSA+776 02295000 PSAPSWSV EQU PSA+768 02296000 PSACLHS EQU PSAHLHI 02297000 PSALKR15 EQU PSALKSA+60 02298000 PSALKR14 EQU PSALKSA+56 02299000 PSALKR13 EQU PSALKSA+52 02300000 PSALKR12 EQU PSALKSA+48 02301000 PSALKR11 EQU PSALKSA+44 02302000 PSALKR10 EQU PSALKSA+40 02303000 PSALKR9 EQU PSALKSA+36 02304000 PSALKR8 EQU PSALKSA+32 02305000 PSALKR7 EQU PSALKSA+28 02306000 PSALKR6 EQU PSALKSA+24 02307000 PSALKR5 EQU PSALKSA+20 02308000 PSALKR4 EQU PSALKSA+16 02309000 PSALKR3 EQU PSALKSA+12 02310000 PSALKR2 EQU PSALKSA+8 02311000 PSALKR1 EQU PSALKSA+4 02312000 PSALKR0 EQU PSALKSA 02313000 PSARV023 EQU PSACLHT+52 02314000 PSALOCAL EQU PSACLHT+48 02315000 PSACMSL EQU PSACLHT+44 02316000 PSAOPTL EQU PSACLHT+40 02317000 PSATPACL EQU PSACLHT+36 02318000 PSATPDNL EQU PSACLHT+32 02319000 PSATPNCL EQU PSACLHT+28 02320000 PSAIOSLL EQU PSACLHT+24 02321000 PSAIOSUL EQU PSACLHT+20 02322000 PSAIOSCL EQU PSACLHT+16 02323000 PSAIOSSL EQU PSACLHT+12 02324000 PSASALCL EQU PSACLHT+8 02325000 PSAASML EQU PSACLHT+4 02326000 PSADISPL EQU PSACLHT 02327000 PSASRSA EQU PSA+636 02328000 PSARV050 EQU PSA+634 02329000 PSADSSGO EQU PSA+633 02330000 PSARECUR EQU PSA+632 02331000 PSAHLHIS EQU PSA+628 02332000 PSAIPCSA EQU PSA+624 02333000 @NM00024 EQU PSA+621 02334000 PSAIPCDM EQU PSA+620 02335000 PSAIPCD EQU PSA+616 02336000 @NM00023 EQU PSA+613 02337000 PSAIPCRM EQU PSA+612 02338000 PSAIPCR EQU PSA+608 02339000 PSAMCHEX EQU PSA+600 02340000 PSAMPSW EQU PSA+592 02341000 PSAEXPS2 EQU PSA+584 02342000 PSAEXPS1 EQU PSA+576 02343000 PSAPIREG EQU PSA+572 02344000 PSARSREG EQU PSA+568 02345000 PSAGPREG EQU PSA+556 02346000 PSARV022 EQU PSASUP4 02347000 PSARV021 EQU PSASUP4 02348000 PSARV020 EQU PSASUP4 02349000 PSARV019 EQU PSASUP4 02350000 PSARV018 EQU PSASUP4 02351000 PSARV017 EQU PSASUP4 02352000 PSARV016 EQU PSASUP4 02353000 PSARV015 EQU PSASUP4 02354000 PSARV014 EQU PSASUP3 02355000 PSARV013 EQU PSASUP3 02356000 PSARV012 EQU PSASUP3 02357000 PSAESTA EQU PSASUP3 02358000 PSASPR EQU PSASUP3 02359000 PSAPSREG EQU PSASUP3 02360000 PSAPI2 EQU PSASUP3 02361000 PSAIOSUP EQU PSASUP3 02362000 PSALCR EQU PSASUP2 02363000 PSARTM EQU PSASUP2 02364000 PSAACR EQU PSASUP2 02365000 PSAIPCE2 EQU PSASUP2 02366000 PSAIPCES EQU PSASUP2 02367000 PSAIPCEC EQU PSASUP2 02368000 PSAGTF EQU PSASUP2 02369000 PSAIPCRI EQU PSASUP2 02370000 PSATYPE6 EQU PSASUP1 02371000 PSATCTL EQU PSASUP1 02372000 PSADISP EQU PSASUP1 02373000 PSALOCK EQU PSASUP1 02374000 PSAPI EQU PSASUP1 02375000 PSAEXT EQU PSASUP1 02376000 PSASVC EQU PSASUP1 02377000 PSAIO EQU PSASUP1 02378000 PSAANEW EQU PSA+544 02379000 PSATOLD EQU PSA+540 02380000 PSATNEW EQU PSA+536 02381000 PSALCCAR EQU PSA+532 02382000 PSALCCAV EQU PSA+528 02383000 PSAPCCAR EQU PSA+524 02384000 PSAPCCAV EQU PSA+520 02385000 PSACPULA EQU PSA+518 02386000 PSACPUPA EQU PSA+516 02387000 PSAPSA EQU PSA+512 02388000 FLCHDEND EQU PSA+512 02389000 FLCCRSAV EQU FLCMCLA+280 02390000 FLCGRSAV EQU FLCMCLA+216 02391000 FLCFPSAV EQU FLCMCLA+184 02392000 FLCFLA EQU FLCMCLA+88 02393000 FLCRGNCD EQU FLCMCLA+84 02394000 FLCFSAA EQU FLCFSA+1 02395000 @NM00022 EQU FLCFSA 02396000 @NM00021 EQU FLCMCLA+72 02397000 FLCMCIC EQU FLCMCLA+64 02398000 @NM00020 EQU FLCMCLA+20 02399000 FLCIOAA EQU FLCIOA+1 02400000 @NM00019 EQU FLCIOA 02401000 @NM00018 EQU FLCMCLA+15 02402000 @NM00017 EQU FLCMCLA+14 02403000 @NM00016 EQU FLCMCLA+12 02404000 FLCLCL EQU FLCMCLA+8 02405000 FLCIOELA EQU FLCIOEL+1 02406000 @NM00015 EQU FLCIOEL 02407000 FLCCHNID EQU FLCMCLA 02408000 @NM00014 EQU PSA+160 02409000 FLCMTRCD EQU PSA+157 02410000 @NM00013 EQU PSA+156 02411000 FLCPERA EQU FLCPER+1 02412000 @NM00012 EQU FLCPER 02413000 @NM00011 EQU PSA+151 02414000 FLCPERCD EQU PSA+150 02415000 FLCMCNUM EQU PSA+149 02416000 @NM00010 EQU PSA+148 02417000 FLCTEAA EQU FLCTEA+1 02418000 @NM00009 EQU FLCTEA 02419000 PSAPIPC EQU PSAPICOD 02420000 PSAPIMC EQU PSAPICOD 02421000 PSAPIPER EQU PSAPICOD 02422000 PSARV049 EQU FLCPICOD 02423000 FLCPILCB EQU FLCPIILC 02424000 @NM00008 EQU FLCPIILC 02425000 @NM00007 EQU PSAEPPSW 02426000 FLCSVCN EQU PSAESPSW+2 02427000 FLCSILCB EQU FLCSVILC 02428000 @NM00006 EQU FLCSVILC 02429000 @NM00005 EQU PSAESPSW 02430000 FLCEICOD EQU PSAEEPSW+2 02431000 PSASPAD EQU PSAEEPSW 02432000 @NM00004 EQU PSA+128 02433000 FLCINPSW EQU PSA+120 02434000 FLCMNPSW EQU PSA+112 02435000 FLCPNPSW EQU PSA+104 02436000 FLCSNPSW EQU PSA+96 02437000 FLCENPSW EQU PSA+88 02438000 FLCTRACE EQU PSA+84 02439000 FLCTIMER EQU PSA+80 02440000 FLCCVT2 EQU PSA+76 02441000 FLCCAW EQU PSA+72 02442000 FLCCSW EQU PSA+64 02443000 FLCIOPSW EQU PSA+56 02444000 FLCMOPSW EQU PSA+48 02445000 FLCPOPSW EQU PSA+40 02446000 FLCSOPSW EQU PSA+32 02447000 FLCEOPSW EQU PSA+24 02448000 @NM00003 EQU FLCICCW2+4 02449000 FLCICCW1 EQU FLCROPSW 02450000 FLCIPPSW EQU FLCRNPSW 02451000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02452000 @PB00002 EQU @EL00001 02453000 @ENDDATA EQU * 02454000 END IRBMFIWK,(C'PLS2317',0701,76105) 02455000