TITLE 'IRARMCPM - SYSTEM RESOURCES MANAGEMENT CPU MANAGEMENT *00001000 ' 00002000 IRARMCPM CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * 0034 00007000 * /* 00008000 ENTRY IRARMAP1 00009000 IRARMAP1 DS 0H 00010000 STM @00,@14,000+000(@13) SAVE INVOKING RTNE REGS 00011000 ST @01,RRPAEPA(,RRPAPTR) INDICATE NEW CURRENT RMEP 00012000 LA @12,IRARMAP1-@PSTART DISPLACEMENT TO MODULE BASE 00013000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00014000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00015000 */* */ 00016000 */* BEFORE ASCBS ARE REORDERED ON THE DISPATCHING QUEUE */ 00017000 */* DETERMINE WHETHER LOWEST PRIORITY ASCB WAS DISPATCHED */ 00018000 */* OR NOT AS A SERVICE FOR CPU LOAD BALANCING */ 00019000 */* */ 00020000 * 0035 00021000 * IF CVTASCBL /* IF ELAPSED JOB STEP TIME */ 00022000 * ->CPASCBET= /* OF LOWEST PRIORITY USER IS */ 00023000 * CCVEJST THEN /* UNCHANGED SINCE LAST AP1 CALL */ 00024000 L @07,CVTPTR 0035 00025000 L @07,CVTASCBL(,@07) 0035 00026000 CLC CPASCBET(4,@07),CCVEJST(RMCTPTR) 0035 00027000 BNE @RF00035 0035 00028000 * CCTALL='1'B; /* SET CPU ALL USED UP FLAG */ 00029000 OI CCTALL(RMCTPTR),B'10000000' 0036 00030000 * ELSE /* ELSE */ 00031000 * CCTALL='0'B; /* SET FLAG OFF */ 00032000 B @RC00035 0037 00033000 @RF00035 NI CCTALL(RMCTPTR),B'01111111' 0037 00034000 */* */ 00035000 */* COMPUTE NEW DISPATCHING PRIORITY FOR EACH APG USER IN */ 00036000 */* MAIN STORAGE BASED ON USER MEAN TIME TO WAIT */ 00037000 */* */ 00038000 * 0038 00039000 * APOUCB=I0; /* CLEAR POINTER TO APG USER WITH*/ 00040000 @RC00035 SLR @07,@07 0038 00041000 ST @07,APOUCB 0038 00042000 * APCPR=I0; /* LOWEST COMPUTED MEAN TIME TO 00043000 * WAIT */ 00044000 STH @07,APCPR 0039 00045000 * ROTACT=I0; /* CLR ROTATE USER COUNT @Z40BPEB*/ 00046000 STH @07,ROTACT 0040 00047000 * ROTASQN=I0; /* CLR DP SEQN NUMBER @Z40BPEB*/ 00048000 STH @07,ROTASQN 0041 00049000 * ROTAOUCB=I0; /* CLR OUCB TO BE CHAPPED@Z40BPEB*/ 00050000 ST @07,ROTAOUCB 0042 00051000 * OUCBPTR=RMCTINQE; /* SET UP ADDRESSING TO INQUEUE */ 00052000 L OUCBPTR,RMCTINQE(,RMCTPTR) 0043 00053000 * OUCBPTR=OUCBFWD; /* POINT TO FIRST USER ON QUEUE */ 00054000 L OUCBPTR,OUCBFWD(,OUCBPTR) 0044 00055000 * DO WHILE OUCBNAME='OUCB'; /* EXAMINE EACH USER ON IN QUEUE */ 00056000 B @DE00045 0045 00057000 @DL00045 DS 0H 0046 00058000 * IF OUCBGOO='0'B /* IGNORE USERS WITHOUT CURRENT */ 00059000 * &OUCBGOI='0'B /* OUXBS */ 00060000 * &OUCBGOB='0'B /* */ 00061000 * &OUCBOUT='0'B /* */ 00062000 * &OUCBAPG='1'B THEN /* OR NON APG USERS */ 00063000 TM OUCBGOO(OUCBPTR),B'11100100' 0046 00064000 BNZ @RF00046 0046 00065000 TM OUCBAPG(OUCBPTR),B'01000000' 0046 00066000 BNO @RF00046 0046 00067000 * DO; /* FOR SELECTED USER */ 00068000 * ASCBPTR=OUCBASCB; /* SET UP ADDRESSING TO ASCB */ 00069000 L ASCBPTR,OUCBASCB(,OUCBPTR) 0048 00070000 * IF OUCBNDP=CCCAPMDP+CCCAPROT/* USER IS IN @Z40BPEB*/ 00071000 * THEN /* ROTATE APG @Z40BPEB*/ 00072000 LH @07,CCCAPMDP(,RMCTPTR) 0049 00073000 AH @07,CCCAPROT(,RMCTPTR) 0049 00074000 SLR @15,@15 0049 00075000 IC @15,OUCBNDP(,OUCBPTR) 0049 00076000 CR @07,@15 0049 00077000 BNE @RF00049 0049 00078000 * DO; /* @Z40BPEB*/ 00079000 * ROTACT=ROTACT+I1; /* INCREMENT CT @Z40BPEB*/ 00080000 LH @07,ROTACT 0051 00081000 LA @07,1(,@07) 0051 00082000 STH @07,ROTACT 0051 00083000 * IF ROTASQN=I0| /* FIRST ROTATE? @Z40BPEB*/ 00084000 * (ROTASQN>ASCBSEQN&/* LOWER ON Q & @Z40BPEB*/ 00085000 * ASCBTCBS^=I0) /* DISPATCHABLE @Z40BPEB*/ 00086000 * THEN /* @Z40BPEB*/ 00087000 LH @07,ROTASQN 0052 00088000 SLR @15,@15 0052 00089000 CR @07,@15 0052 00090000 BE @RT00052 0052 00091000 CH @07,ASCBSEQN(,ASCBPTR) 0052 00092000 BNH @RF00052 0052 00093000 C @15,ASCBTCBS(,ASCBPTR) 0052 00094000 BE @RF00052 0052 00095000 @RT00052 DS 0H 0053 00096000 * DO; /* @Z40BPEB*/ 00097000 * ROTASQN=ASCBSEQN; /* SAVE @Z40BPEB*/ 00098000 LH @07,ASCBSEQN(,ASCBPTR) 0054 00099000 STH @07,ROTASQN 0054 00100000 * ROTAOUCB=OUCBPTR; /* SAVE USER @Z40BPEB*/ 00101000 ST OUCBPTR,ROTAOUCB 0055 00102000 * END; /* @Z40BPEB*/ 00103000 * END; /* END ROTATE @Z40BPEB*/ 00104000 * ELSE /* NOT IN ROTATE @Z40BPEB*/ 00105000 * IF OUCBNDP<=CCCAPGDP /* IN MEAN-TIME- @Z40BPEB*/ 00106000 * THEN /* TO-WAIT @Z40BPEB*/ 00107000 B @RC00049 0058 00108000 @RF00049 SLR @07,@07 0058 00109000 IC @07,OUCBNDP(,OUCBPTR) 0058 00110000 CH @07,CCCAPGDP(,RMCTPTR) 0058 00111000 BH @RF00058 0058 00112000 * CALL NEWDP; /* GET NEW MTW DP @Z40BPEB*/ 00113000 BAL @14,NEWDP 0059 00114000 * END; 0060 00115000 @RF00058 DS 0H 0060 00116000 @RC00049 DS 0H 0061 00117000 * OUCBPTR=OUCBFWD; /* POINT TO NEXT OUCB */ 00118000 @RF00046 L OUCBPTR,OUCBFWD(,OUCBPTR) 0061 00119000 * END; 0062 00120000 * 0062 00121000 @DE00045 CLC OUCBNAME(4,OUCBPTR),@CC02226 0062 00122000 BE @DL00045 0062 00123000 */* */ 00124000 */* IF CPU UTILIZATION IS UP TO 100 PERCENT, MOVE LOWEST */ 00125000 */* PRIORITY APG USER WHO RECEIVED THE MINIMUM APG EXECUTION */ 00126000 */* INTERVAL TO THE BOTTOM OF THE APG GROUP */ 00127000 */* */ 00128000 * 0063 00129000 * IF CCTALL='1'B /* IF SOME USERS ARE NOT GETTING */ 00130000 * &CCVUTILP>=I100 /* DISPATCHED DUE TO HEAVY CPU */ 00131000 * &APOUCB^=I0 THEN /* UTILIZATION, SET DP OF LOWEST */ 00132000 TM CCTALL(RMCTPTR),B'10000000' 0063 00133000 BNO @RF00063 0063 00134000 LH @07,CCVUTILP(,RMCTPTR) 0063 00135000 C @07,@CF02218 0063 00136000 BL @RF00063 0063 00137000 L @07,APOUCB 0063 00138000 LTR @07,@07 0063 00139000 BZ @RF00063 0063 00140000 * APOUCB->OUCBNDP=CCCAPMDP; /* EXECUTING APG USER TO MINIMUM */ 00141000 LH @15,CCCAPMDP(,RMCTPTR) 0064 00142000 STC @15,OUCBNDP(,@07) 0064 00143000 */* */ 00144000 */* REQUEST CHAPPING OF THOSE APG USERS IN MAIN STORAGE */ 00145000 */* WHOSE DISPATCHING PRIORITY HAS CHANGED */ 00146000 */* */ 00147000 * 0065 00148000 * APX=ADDR(RCHAPLST); /* INDEX POINTS TO FIRST ENTRY */ 00149000 @RF00063 LA @11,RCHAPLST 0065 00150000 ST @11,APX 0065 00151000 * APCHAPCT=I0; /* ZERO CHAP COUNT */ 00152000 SLR APCHAPCT,APCHAPCT 0066 00153000 * APUSRCT=I0; /* ZERO APG INCORE USER COUNT */ 00154000 SLR APUSRCT,APUSRCT 0067 00155000 * OUCBPTR=RMCTINQE; /* POINT TO IN QUEUE */ 00156000 L OUCBPTR,RMCTINQE(,RMCTPTR) 0068 00157000 * CALL CHAP; /* GO TO CHAP SUBROUTINE */ 00158000 BAL @14,CHAP 0069 00159000 */* */ 00160000 */* CLEAR CHAP LIST IF PARTIALLY FILLED */ 00161000 */* */ 00162000 * 0070 00163000 * RESPECIFY 0070 00164000 * RCHAPPTR RESTRICTED; 0070 00165000 * RCHAPPTR=ADDR(RCHAPLST); /* PARM REG POINTS TO CHAP LIST */ 00166000 LA RCHAPPTR,RCHAPLST 0071 00167000 * IF APX^=RCHAPPTR THEN /* IF LIST NOT FULL, */ 00168000 L @11,APX 0072 00169000 CR @11,RCHAPPTR 0072 00170000 BE @RF00072 0072 00171000 * DO; 0073 00172000 * APX=APX-RCHAPLEN; /* POINT TO LAST VALID ENTRY */ 00173000 SH @11,RCHAPLEN 0074 00174000 ST @11,APX 0074 00175000 * RCHAPEND='1'B; /* INDICATE END OF CHAP LIST */ 00176000 * 0075 00177000 OI RCHAPEND(@11),B'10000000' 0075 00178000 * /*************************************************************/ 00179000 * /* */ 00180000 * /* ? IRACTLCL EPN(I02) */ 00181000 * /* */ 00182000 * /*************************************************************/ 00183000 * 0076 00184000 * CALL RMSBI02->IRARMRTN; /* INVOKE I02 SUBRTN */ 00185000 * 0076 00186000 L @15,RMSBI02(,RMCTPTR) 0076 00187000 BALR @14,@15 0076 00188000 * /*************************************************************/ 00189000 * /* */ 00190000 * /* INVOKE ASCBCHAP */ 00191000 * /* */ 00192000 * /*************************************************************/ 00193000 * 0077 00194000 * END; 0077 00195000 * RESPECIFY 0078 00196000 * RCHAPPTR UNRESTRICTED; 0078 00197000 * 0078 00198000 @RF00072 DS 0H 0079 00199000 */* */ 00200000 */* COMPUTE TIME INTERVAL FOR NEXT APG INVOCATION BASED ON */ 00201000 */* PERCENTAGE OF APG USERS CHAPPED */ 00202000 */* */ 00203000 * 0079 00204000 * IF APCHAPCT=I0 THEN /* IF NO USERS WERE CHAPPED */ 00205000 SLR @11,@11 0079 00206000 CR APCHAPCT,@11 0079 00207000 BNE @RF00079 0079 00208000 * APCHAPPR=I0; /* CHAP PERCENTAGE IS ZERO */ 00209000 ST @11,APCHAPPR 0080 00210000 * ELSE /* OTHERWISE */ 00211000 * APCHAPPR= /* CHAP PERCENTAGE */ 00212000 * APCHAPCT*I100 /* = NUMBER OF CHAPS */ 00213000 * /APUSRCT; /* OVER NUMBER OF APG USERS */ 00214000 B @RC00079 0081 00215000 @RF00079 LR @01,APCHAPCT 0081 00216000 M @00,@CF02218 0081 00217000 DR @00,APUSRCT 0081 00218000 ST @01,APCHAPPR 0081 00219000 * APINT=RMEPINT; /* GET CURRENT APG INTERVAL */ 00220000 @RC00079 L @01,RMEPPTR(,RRPAPTR) 0082 00221000 L APINT,RMEPINT(,@01) 0082 00222000 * IF APCHAPPR>CCCAPRHT THEN /* IF THE NUMBER OF CHAPS WAS 0083 00223000 * HIGH */ 00224000 L @15,APCHAPPR 0083 00225000 CH @15,CCCAPRHT(,RMCTPTR) 0083 00226000 BNH @RF00083 0083 00227000 * APINT=MAX(CCCAPMIN, /* SHORTEN APG INVOCATION */ 00228000 * APINT-CCCAPDEL); /* INTERVAL */ 00229000 LR @15,APINT 0084 00230000 SL @15,CCCAPDEL(,RMCTPTR) 0084 00231000 L @14,CCCAPMIN(,RMCTPTR) 0084 00232000 CR @14,@15 0084 00233000 BNL *+6 00234000 LR @14,@15 0084 00235000 LR APINT,@14 0084 00236000 * ELSE /* OTHERWISE */ 00237000 * IF APCHAPPRCPASCBET; /* PRIORITY USER */ 00262000 L @07,CVTPTR 0088 00263000 L @07,CVTASCBL(,@07) 0088 00264000 MVC CCVEJST(4,RMCTPTR),CPASCBET(@07) 0088 00265000 */* ? IRACTLEP ENN(AP1) */ 00266000 * 0089 00267000 * GEN CODE EXIT NOSEQFLOW; 0089 00268000 * /* 00269000 LM @00,@14,000+000(@13) RELOAD INVOKING RTNE REGS 00270000 BR RTNREG RETURN TO INVOKER 00271000 * 0090 00272000 */********************************************************************/ 00273000 */* */ 00274000 */* ENTRY POINT NAME = IRARMEQ1 */ 00275000 */* */ 00276000 */* DESCRIPTIVE NAME = ENQHOLD MONITORING */ 00277000 */* */ 00278000 */* FUNCTION = STOP GIVING EXTRA CPU SERVICE TO USERS WITH ENQHOLD */ 00279000 */* SYSEVENTS OUTSTANDING WHICH HAVE ALREADY RECEIVED */ 00280000 */* THEIR GUARANTEED SPURT OF CPU SERVICE */ 00281000 */* */ 00282000 */* CALLER = IRARMCTL - SRM CONTROL MODULE */ 00283000 */* TIME QUEUE PROCESSOR */ 00284000 */* */ 00285000 */* INPUT = R2 = RMCT ADDRESS */ 00286000 */* R3 = RRPA ADDRESS */ 00287000 */* */ 00288000 */* OUTPUT = NONE */ 00289000 */* */ 00290000 */********************************************************************/ 00291000 */* ? IRACTLEP EPN(EQ1) */ 00292000 * 0090 00293000 * DCL 0090 00294000 * IRARMEQ1 ENTRY INT; 0090 00295000 * GEN CODE REFS(RRPAEPA) DEFS(IRARMEQ1) NOEXIT SEQFLOW; 0091 00296000 * 0091 00297000 * /* 00298000 ENTRY IRARMEQ1 00299000 IRARMEQ1 DS 0H 00300000 STM @00,@14,000+000(@13) SAVE INVOKING RTNE REGS 00301000 ST @01,RRPAEPA(,RRPAPTR) INDICATE NEW CURRENT RMEP 00302000 LA @12,IRARMEQ1-@PSTART DISPLACEMENT TO MODULE BASE 00303000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00304000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00305000 */* */ 00306000 */* STOP GIVING EXTRA CPU SERVICE TO USERS WITH ENQHOLD */ 00307000 */* SYSEVENTS OUTSTANDING WHICH HAVE ALREADY RECEIVED THEIR */ 00308000 */* GUARANTEED SPURT OF CPU SERVICE */ 00309000 */* */ 00310000 * 0092 00311000 * IF CCVENQCT^=I0 THEN /* IF THERE ARE USERS MARKED */ 00312000 LH @07,CCVENQCT(,RMCTPTR) 0092 00313000 LTR @07,@07 0092 00314000 BZ @RF00092 0092 00315000 * DO; /* NON-SWAPPABLE FOR ENQ REASONS,*/ 00316000 * OUCBPTR=RMCTINQE; /* SEARCH OUCB IN QUEUE */ 00317000 L OUCBPTR,RMCTINQE(,RMCTPTR) 0094 00318000 * OUCBPTR=OUCBFWD; /* POINT TO FIRST USER */ 00319000 L OUCBPTR,OUCBFWD(,OUCBPTR) 0095 00320000 * DO WHILE OUCBNAME='OUCB'; /* LOOK AT EACH USER */ 00321000 B @DE00096 0096 00322000 @DL00096 DS 0H 0097 00323000 * IF OUCBENQ='1'B /* IGNORE USER IF NOT ENQUEUED, */ 00324000 * &OUCBOUT='0'B /* OR IF OUXB IS NOT AVAILABLE */ 00325000 * &OUCBGOB='0'B /* */ 00326000 * &OUCBGOO='0'B /* */ 00327000 * &OUCBGOI='0'B THEN /* */ 00328000 TM OUCBENQ(OUCBPTR),B'00000010' 0097 00329000 BNO @RF00097 0097 00330000 TM OUCBOUT(OUCBPTR),B'11100100' 0097 00331000 BNZ @RF00097 0097 00332000 * DO; /* */ 00333000 * ASCBPTR=OUCBASCB; /* SET UP ADDRESSING TO ASCB */ 00334000 L ASCBPTR,OUCBASCB(,OUCBPTR) 0099 00335000 * OUXBPTR=ASCBOUXB; /* SET UP ADDRESSING TO OUXB */ 00336000 L OUXBPTR,ASCBOUXB(,ASCBPTR) 0100 00337000 * RESPECIFY 0101 00338000 * (ENQJST1, 0101 00339000 * ENQJST2) RESTRICTED; 0101 00340000 * IF OUCBNQF='1'B THEN /* IF BASE ENQ TIME IS NOT VALID,*/ 00341000 TM OUCBNQF(OUCBPTR),B'00001000' 0102 00342000 BNO @RF00102 0102 00343000 * DO; /* GET BASE ENQ TIME FROM CP */ 00344000 * GENERATE CODE REFS(OUXBCPS); 0104 00345000 LM ENQJST1,ENQJST2,OUXBCPS(OUXBPTR) 00346000 SRDL ENQJST1,S22 00347000 * OUXBNQT=ENQJST2; /* SERVICE BASE AT LAST SWAP IN */ 00348000 ST ENQJST2,OUXBNQT(,OUXBPTR) 0105 00349000 * OUCBNQF='0'B; /* MARK ENQ BASE TIME VALID */ 00350000 NI OUCBNQF(OUCBPTR),B'11110111' 0106 00351000 * END; /* GET CURRENT USER EXECUTION 0107 00352000 * TIME */ 00353000 * GENERATE CODE REFS(ASCBEJST); 0108 00354000 @RF00102 DS 0H 0108 00355000 LM ENQJST1,ENQJST2,ASCBEJST(ASCBPTR) 00356000 SRDL ENQJST1,S22 00357000 * IF(ENQJST2-OUXBNQT) /* IF USER CPU SERVICE SINCE ENQH*/ 00358000 * >RMPTERV THEN /* EVENT GREATER THAN THRESHOLD */ 00359000 LR @07,ENQJST2 0109 00360000 SL @07,OUXBNQT(,OUXBPTR) 0109 00361000 C @07,RMPTERV(,RMCTPTR) 0109 00362000 BNH @RF00109 0109 00363000 * DO; /* */ 00364000 * OUCBENQ='0'B; /* MARK USER SWAPPABLE AGAIN */ 00365000 NI OUCBENQ(OUCBPTR),B'11111101' 0111 00366000 * CCVENQCT= /* REMOVE USER FROM GROUP OF ENQ */ 00367000 * CCVENQCT-I1; /* NON-SWAPPABLE USERS NOTIFY 0112 00368000 * ANALYSIS OF USERS STATUS 0112 00369000 * CHANGE */ 00370000 * 0112 00371000 LH @07,CCVENQCT(,RMCTPTR) 0112 00372000 BCTR @07,0 0112 00373000 STH @07,CCVENQCT(,RMCTPTR) 0112 00374000 * /***************************************************/ 00375000 * /* */ 00376000 * /* ? IRACTLCL EPN(WM3) */ 00377000 * /* */ 00378000 * /***************************************************/ 00379000 * 0113 00380000 * CALL EPSTWM3->IRARMRTN;/* INVOKE WM3 ACTION */ 00381000 L @15,EPSTWM3(,RMCTPTR) 0113 00382000 BALR @14,@15 0113 00383000 * END; 0114 00384000 * RESPECIFY 0115 00385000 * (ENQJST1, 0115 00386000 * ENQJST2) UNRESTRICTED; 0115 00387000 @RF00109 DS 0H 0116 00388000 * END; 0116 00389000 * OUCBPTR=OUCBFWD; /* POINT TO NEXT USER */ 00390000 @RF00097 L OUCBPTR,OUCBFWD(,OUCBPTR) 0117 00391000 * END; 0118 00392000 @DE00096 CLC OUCBNAME(4,OUCBPTR),@CC02226 0118 00393000 BE @DL00096 0118 00394000 * END; 0119 00395000 * 0119 00396000 */* ? IRACTLEP ENN(EQ1) */ 00397000 * 0120 00398000 * GEN CODE EXIT NOSEQFLOW; 0120 00399000 @RF00092 DS 0H 0120 00400000 * /* 00401000 LM @00,@14,000+000(@13) RELOAD INVOKING RTNE REGS 00402000 BR RTNREG RETURN TO INVOKER 00403000 * 0121 00404000 */********************************************************************/ 00405000 */* */ 00406000 */* ENTRY POINT NAME = IRARMCL0 */ 00407000 */* */ 00408000 */* DESCRIPTIVE NAME = CPU LOAD BALANCING SYSTEM PROFILE ADJUSTMENT */ 00409000 */* */ 00410000 */* FUNCTION = COMPUTE USER CPU USAGE PROFILE AT QSCECMP SYSEVENT. */ 00411000 */* */ 00412000 */* CALLER = IRARMEVT - SRM SYSEVENT MODULE */ 00413000 */* QSCECMP SYSEVENT */ 00414000 */* */ 00415000 */* INPUT = R2 = RMCT ADDRESS */ 00416000 */* R3 = RRPA ADDRESS */ 00417000 */* R4 = OUCB ADDRESS */ 00418000 */* R5 = ASCB ADDRESS */ 00419000 */* */ 00420000 */* OUTPUT = NONE */ 00421000 */* */ 00422000 */********************************************************************/ 00423000 */* ? IRACTLEP EPN(CL0) */ 00424000 * 0121 00425000 * DCL 0121 00426000 * IRARMCL0 ENTRY INT; 0121 00427000 * GEN CODE DEFS(IRARMCL0) NOEXIT SEQFLOW; 0122 00428000 * /* 00429000 ENTRY IRARMCL0 00430000 IRARMCL0 DS 0H 00431000 STM @00,@14,128+000(@13) SAVE INVOKING RTNE REGS 00432000 LA @12,IRARMCL0-@PSTART DISPLACEMENT TO MODULE BASE 00433000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00434000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00435000 * CALL NEWDP; /* MEAN TIME TO WAIT AS COMPUTED 00436000 * FOR APG IS USED AS THE CPU 0123 00437000 * LOAD BALANCING USER CPU 0123 00438000 * PROFILE */ 00439000 BAL @14,NEWDP 0123 00440000 */* ? IRACTLEP ENN(CL0) */ 00441000 * 0124 00442000 * GEN CODE EXIT NOSEQFLOW; 0124 00443000 * /* 00444000 LM @00,@14,128+000(@13) RELOAD INVOKING RTNE REGS 00445000 BR RTNREG RETURN TO INVOKER 00446000 * 0125 00447000 */********************************************************************/ 00448000 */* */ 00449000 */* ENTRY POINT NAME = IRARMCL1 */ 00450000 */* */ 00451000 */* DESCRIPTIVE NAME = CPU UTILIZATION MONITORING */ 00452000 */* */ 00453000 */* FUNCTION = COMPUTE CPU UTILIZATION VARIABLES FOR CPU LOAD */ 00454000 */* BALANCING AND RESOURCE MANAGEMENT ALGORITHMS. @Z40BPRH*/ 00455000 */* */ 00456000 */* CALLER = IRARMCTL - SRM CONTROL MODULE */ 00457000 */* TIME QUEUE PROCESSOR */ 00458000 */* */ 00459000 */* INPUT = R2 = RMCT ADDRESS */ 00460000 */* R3 = RRPA ADDRESS */ 00461000 */* */ 00462000 */* OUTPUT = NONE */ 00463000 */* */ 00464000 */********************************************************************/ 00465000 */* ? IRACTLEP EPN(CL1) */ 00466000 * 0125 00467000 * DCL 0125 00468000 * IRARMCL1 ENTRY INT; 0125 00469000 * GEN CODE REFS(RRPAEPA) DEFS(IRARMCL1) NOEXIT SEQFLOW; 0126 00470000 * 0126 00471000 * /* 00472000 ENTRY IRARMCL1 00473000 IRARMCL1 DS 0H 00474000 STM @00,@14,000+000(@13) SAVE INVOKING RTNE REGS 00475000 ST @01,RRPAEPA(,RRPAPTR) INDICATE NEW CURRENT RMEP 00476000 LA @12,IRARMCL1-@PSTART DISPLACEMENT TO MODULE BASE 00477000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00478000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00479000 */* */ 00480000 */* COMPUTE RECENT SYSTEM WAIT PERCENTAGE */ 00481000 */* */ 00482000 * 0127 00483000 * CALL CPUWAIT; /* GET TOTAL CPU WAIT 0127 00484000 * ACCUMULATION */ 00485000 BAL @14,CPUWAIT 0127 00486000 */* */ 00487000 */* COMPUTE SYSTEM WAIT FACTOR FOR CPU LOAD BALANCING */ 00488000 */* RECOMMENDATION VALUE COMPUTATION */ 00489000 */* */ 00490000 * 0128 00491000 * CALL CPLRVSWF; 0128 00492000 * 0128 00493000 BAL @14,CPLRVSWF 0128 00494000 */* */ 00495000 */* COMPUTE LONG RANGE SYSTEM CPU WAIT PERCENTAGE */ 00496000 */* */ 00497000 * 0129 00498000 * CCVLGUTL= /* UTILIZATION OVER A LONG */ 00499000 * ((CCVLGUTL /* INTERVAL EQUALS RECENT */ 00500000 * *CCCSCFC1) /* UTILIZATION FACTORED INTO A */ 00501000 * +(CPUTL /* LONG TERM AVERAGE */ 00502000 * *I256)) /* */ 00503000 * /CCCSCFC2; /* */ 00504000 LH @07,CCVLGUTL(,RMCTPTR) 0129 00505000 MH @07,CCCSCFC1(,RMCTPTR) 0129 00506000 LH @15,CPUTL 0129 00507000 LR @14,@15 0129 00508000 SLA @14,8 0129 00509000 ALR @07,@14 0129 00510000 LR @00,@07 0129 00511000 SRDA @00,32 0129 00512000 LH @07,CCCSCFC2(,RMCTPTR) 0129 00513000 DR @00,@07 0129 00514000 STH @01,CCVLGUTL(,RMCTPTR) 0129 00515000 */* */ 00516000 */* IF CPU IS HEAVILY UTILIZED, RECOMMEND THAT HEAVY @Z40BPRH*/ 00517000 */* CPU USERS BE SWAPPED OUT. @Z40BPRH*/ 00518000 */* */ 00519000 * 0130 00520000 * IF CPUTL>CCCUTHIT THEN /* IF CPU IS OVERUTILIZED, SEARCH*/ 00521000 CH @15,CCCUTHIT(,RMCTPTR) 0130 00522000 BNH @RF00130 0130 00523000 * DO; /* IN QUEUE FOR HEAVY CPU */ 00524000 * OUCBPTR=RMCTINQE; /* USERS TO SWAP OUT */ 00525000 L OUCBPTR,RMCTINQE(,RMCTPTR) 0132 00526000 * OUCBPTR=OUCBFWD; /* */ 00527000 L OUCBPTR,OUCBFWD(,OUCBPTR) 0133 00528000 * CCTCPUOT='1'B; /* INDICATE CPU OUT OF BALANCE 0134 00529000 * @Z40BPRH*/ 00530000 OI CCTCPUOT(RMCTPTR),B'01000000' 0134 00531000 * END; /* */ 00532000 * ELSE /* IF CPU IS UNDERUTILIZED, */ 00533000 * IF CPUTLI0 THEN /* HAS IMPROVED, ON HOW OUT OF */ 00668000 B @RC00162 0164 00669000 @RF00162 L @07,CCVRVSWF(,RMCTPTR) 0164 00670000 LTR @07,@07 0164 00671000 BNP @RF00164 0164 00672000 * CPRV=MAX(CCVRVSWF,OUCBCRV);/* BALANCE CPU WAS AT TIME OF 0165 00673000 * LAST RECOMMENDATION @Z40BPRH*/ 00674000 L @15,CCVRVSWF(,RMCTPTR) 0165 00675000 LH CPRV,OUCBCRV(,OUCBPTR) 0165 00676000 CR @15,CPRV 0165 00677000 BNL *+6 00678000 LR @15,CPRV 0165 00679000 LR CPRV,@15 0165 00680000 * ELSE /* */ 00681000 * CPRV=OUCBCRV; /* @Z40BPRH*/ 00682000 B @RC00164 0166 00683000 @RF00164 LH CPRV,OUCBCRV(,OUCBPTR) 0166 00684000 * ELSE /* IF USER IS NOT SIGNIFICANT */ 00685000 * CPRV=I0; /* RECOMMENDATION IS ZERO */ 00686000 B @RC00161 0167 00687000 @RF00161 SLR CPRV,CPRV 0167 00688000 * IF CPRV>CCCMAXRV THEN /* INSURE THAT THE RECOMMENDATION*/ 00689000 @RC00161 LH @15,CCCMAXRV(,RMCTPTR) 0168 00690000 CR CPRV,@15 0168 00691000 BNH @RF00168 0168 00692000 * CPRV=CCCMAXRV; /* DOES NOT EXCEED MAXIMUM */ 00693000 LR CPRV,@15 0169 00694000 * ELSE /* */ 00695000 * IF CPRVI1&OUCBPTR=ROTAOUCB)/* OR MORE THAN 1 USER 0184 00764000 * @Z40BPEB 00765000 * IN ROTATE &THIS IS THE 0184 00766000 * @Z40BPEB 00767000 * PICKED ONE TO CHAP @Z40BPEB*/ 00768000 * THEN 0184 00769000 CLC OUCBNDP(1,OUCBPTR),ASCBDP(ASCBPTR) 0184 00770000 BNE @RT00184 0184 00771000 CH @15,ROTACT 0184 00772000 BNL @RF00184 0184 00773000 C OUCBPTR,ROTAOUCB 0184 00774000 BNE @RF00184 0184 00775000 @RT00184 DS 0H 0185 00776000 * DO; 0185 00777000 * 0185 00778000 */* */ 00779000 */* ADD USER TO CHAP LIST */ 00780000 */* */ 00781000 * 0186 00782000 * RCHAPFLG=I0; /* CLEAR PREVIOUS CHAP FLAGS */ 00783000 L @15,APX 0186 00784000 MVI RCHAPFLG(@15),X'00' 0186 00785000 * RCHAPDP=OUCBNDP; /* GET NEW DISPATCHING PRIORITY */ 00786000 SLR @11,@11 0187 00787000 IC @11,OUCBNDP(,OUCBPTR) 0187 00788000 STH @11,RCHAPDP(,@15) 0187 00789000 * RCHAPUSR=ASCBPTR; /* POINT TO ASCB */ 00790000 ST ASCBPTR,RCHAPUSR(,@15) 0188 00791000 * APCHAPCT=APCHAPCT+I1; /* INCREMENT CHAP COUNT */ 00792000 AL APCHAPCT,@CF00090 0189 00793000 */* */ 00794000 */* IF LIST IS FULL, CALL ASCBCHAP */ 00795000 */* */ 00796000 * 0190 00797000 * IF APX=RCHAPFUL THEN /* IF LIST IS FULL, */ 00798000 C @15,RCHAPFUL 0190 00799000 BNE @RF00190 0190 00800000 * DO; 0191 00801000 * RCHAPEND='1'B; /* INDICATE LAST ENTRY */ 00802000 OI RCHAPEND(@15),B'10000000' 0192 00803000 * RCHAPPTR= /* REG1 POINTS TO INTERFACE LIST */ 00804000 * ADDR(RCHAPLST); 0193 00805000 LA RCHAPPTR,RCHAPLST 0193 00806000 * APX=RTNREG; /* SAVE RETURN POINTER INVOKE 0194 00807000 * ASCBCHAP */ 00808000 * 0194 00809000 ST RTNREG,APX 0194 00810000 * /***************************************************/ 00811000 * /* */ 00812000 * /* ? IRACTLCL EPN(I02) */ 00813000 * /* */ 00814000 * /***************************************************/ 00815000 * 0195 00816000 * CALL RMSBI02->IRARMRTN;/* INVOKE I02 SUBRTN */ 00817000 L @15,RMSBI02(,RMCTPTR) 0195 00818000 BALR @14,@15 0195 00819000 * RTNREG=APX; /* RESTORE RETURN REGISTER */ 00820000 L RTNREG,APX 0196 00821000 * APX=RCHAPPTR; /* RESET ENTRY PTR TO BEGINNING */ 00822000 ST RCHAPPTR,APX 0197 00823000 * END; 0198 00824000 * ELSE /* OTHERWISE, */ 00825000 * APX=APX /* POINT TO NEXT ENTRY */ 00826000 * +RCHAPLEN; 0199 00827000 B @RC00190 0199 00828000 @RF00190 LH @15,RCHAPLEN 0199 00829000 AL @15,APX 0199 00830000 ST @15,APX 0199 00831000 * END; 0200 00832000 @RC00190 DS 0H 0201 00833000 * END; 0201 00834000 @RF00184 DS 0H 0202 00835000 * OUCBPTR=OUCBFWD; /* POINT TO NEXT USER */ 00836000 @RF00180 L OUCBPTR,OUCBFWD(,OUCBPTR) 0202 00837000 * END; 0203 00838000 @DE00179 CLC OUCBNAME(4,OUCBPTR),@CC02226 0203 00839000 BE @DL00179 0203 00840000 * RESPECIFY 0204 00841000 * RCHAPPTR UNRESTRICTED; 0204 00842000 * RESPECIFY 0205 00843000 * RTNREG UNRESTRICTED; 0205 00844000 * END CHAP; 0206 00845000 @EL00002 DS 0H 0206 00846000 @EF00002 DS 0H 0206 00847000 @ER00002 BR @14 0206 00848000 * 0207 00849000 */********************************************************************/ 00850000 */* */ 00851000 */* CPLRVSWF - IRARMCPM INTERNAL SUBROUTINE */ 00852000 */* */ 00853000 */* FUNCTION */ 00854000 */* 1) COMPUTE SYSTEM WAIT FACTOR FOR CPU LOAD BALANCING */ 00855000 */* RECOMMENDATION VALUE COMPUTATION */ 00856000 */* */ 00857000 */* INPUT - */ 00858000 */* 1) CPUTL - RECENT CPU UTILIZATION */ 00859000 */* 2) CCCUTLOT,CCCUTHIT - CPU UTILIZATION THRESHOLDS */ 00860000 */* */ 00861000 */* OUTPUT - */ 00862000 */* 1) CCVRVSWF - CPL RECOMMENDATION VALUE COMPUTATION */ 00863000 */* SYSTEM WAIT FACTOR */ 00864000 */* */ 00865000 */********************************************************************/ 00866000 * 0207 00867000 *CPLRVSWF: 0207 00868000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0207 00869000 CPLRVSWF DS 0H 0208 00870000 * RESPECIFY 0208 00871000 * RTNREG RESTRICTED; /* RESTRICT RETURN REGISTER */ 00872000 * IF CPUTLCCCUTHIT THEN /* IF UTILIZATION IS HIGH */ 00887000 B @RC00209 0215 00888000 @RF00209 LH @15,CCCUTHIT(,RMCTPTR) 0215 00889000 CH @15,CPUTL 0215 00890000 BNL @RF00215 0215 00891000 * DO; /* */ 00892000 * CCVIMBBT=RMCTTOD; /* REMEMBER TIME OF IMBALANCE */ 00893000 L @09,RMCTTOD(,RMCTPTR) 0217 00894000 ST @09,CCVIMBBT(,RMCTPTR) 0217 00895000 * CPSWF=CCCUTHIT; /* SAVE HIGH THRESHOLD */ 00896000 LR CPSWF,@15 0218 00897000 * CPSCF=CCCHISCF; /* USE HIGH THRESHOLD SCALING */ 00898000 LH CPSCF,CCCHISCF(,RMCTPTR) 0219 00899000 * END; /* FACTOR */ 00900000 * ELSE /* ELSE */ 00901000 * DO; 0221 00902000 B @RC00215 0221 00903000 @RF00215 DS 0H 0222 00904000 * CPSWF=CPUTL; /* SAVE CPU UTILIZATION */ 00905000 LH CPSWF,CPUTL 0222 00906000 * CPSCF=I0; /* SET SCALING FACTOR TO ZERO 0223 00907000 * @Z40BPRH*/ 00908000 SLR CPSCF,CPSCF 0223 00909000 * END; 0224 00910000 * CPSWF=CPSWF-CPUTL; /* SYSTEM WAIT FACTOR EQUALS 0225 00911000 * DIFFERENCE BETWEEN THRESHOLD */ 00912000 @RC00215 DS 0H 0225 00913000 @RC00209 SH CPSWF,CPUTL 0225 00914000 * CCVRVSWF=ABS(CPSWF) /* AND UTILIZATION SQUARED */ 00915000 * *CPSWF /* TIMES SCALING FACTOR */ 00916000 * *CPSCF /* WITH SIGN OF THE DIFFERENCE */ 00917000 * /CCCSCFAC; /* DIVIDED BY SCALING FACTOR */ 00918000 LPR @01,CPSWF 0226 00919000 MR @00,CPSWF 0226 00920000 MR @00,CPSCF 0226 00921000 LR @10,@01 0226 00922000 SRDA @10,32 0226 00923000 LH @15,CCCSCFAC(,RMCTPTR) 0226 00924000 DR @10,@15 0226 00925000 ST @11,CCVRVSWF(,RMCTPTR) 0226 00926000 * RESPECIFY 0227 00927000 * RTNREG UNRESTRICTED; 0227 00928000 * END CPLRVSWF; 0228 00929000 @EL00003 DS 0H 0228 00930000 @EF00003 DS 0H 0228 00931000 @ER00003 BR @14 0228 00932000 * 0229 00933000 */********************************************************************/ 00934000 */* */ 00935000 */* CPUWAIT - IRARMCPM INTERNAL SUBROUTINE */ 00936000 */* */ 00937000 */* FUNCTION - */ 00938000 */* 1) COMPUTE ACCUMULATED SYSTEM WAIT TIME TOTAL FOR */ 00939000 */* ALL CPUS */ 00940000 */* 2) COMPUTE RECENT CPU UTILIZATION */ 00941000 */* */ 00942000 */* OUTPUT - */ 00943000 */* 1) CPWTIM = ACCUMULATED SYSTEM WAIT TOTAL */ 00944000 */* 2) CPUTL - RECENT CPU UTILIZATION */ 00945000 */* */ 00946000 */********************************************************************/ 00947000 * 0229 00948000 *CPUWAIT: 0229 00949000 * PROC; 0229 00950000 * 0229 00951000 CPUWAIT STM @14,@12,@SA00004 0229 00952000 */* */ 00953000 */* COMPUTE ACCUMULATED SYSTEM WAIT TIME TOTAL FOR ALL CPUS */ 00954000 */* */ 00955000 * 0230 00956000 * CPUCT=I0; /* ZERO CPU LOOKED AT COUNT */ 00957000 SLR CPUCT,CPUCT 0230 00958000 * CPWTIM=I0; /* ZERO WAIT TIME ACCUMULATOR */ 00959000 SLR CPWTIM,CPWTIM 0231 00960000 * CPBX='8000'X; /* INITIALIZE CPU BIT INDEX */ 00961000 MVC CPBX(2),@CB02251 0232 00962000 * DO CPX=I1 TO I16 BY I1 /* LOOK AT EACH POSSIBLE CPU */ 00963000 * WHILE CPUCT=I100 THEN /* IF UTILIZATION IS 100 ( OR */ 01128000 B @RC00265 0267 01129000 @RF00265 LH @15,CPUTL 0267 01130000 C @15,@CF02218 0267 01131000 BL @RF00267 0267 01132000 * IF CCTALL='1'B THEN /* GREATER ) AND SOME USERS WERE */ 01133000 TM CCTALL(RMCTPTR),B'10000000' 0268 01134000 BNO @RF00268 0268 01135000 * CPUTL=I101; /* NOT DISPATCHED, SET 0269 01136000 * UTILIZATION */ 01137000 MVC CPUTL(2),@CH02220 0269 01138000 * ELSE /* TO 101 PERCENT */ 01139000 * CPUTL=I100; /* OTHERWISE LEAVE AT 100 PERCENT*/ 01140000 B @RC00268 0270 01141000 @RF00268 MVC CPUTL(2),@CH02218 0270 01142000 * END; 0271 01143000 @EL00005 DS 0H 0271 01144000 @EF00005 DS 0H 0271 01145000 @ER00005 BR @14 0271 01146000 * RESPECIFY 0272 01147000 * RTNREG UNRESTRICTED; 0272 01148000 * 0273 01149000 */********************************************************************/ 01150000 */* */ 01151000 */* NEWDP - IRARMCPM INTERNAL SUBROUTINE */ 01152000 */* */ 01153000 */* FUNCTION - */ 01154000 */* COMPUTE MEAN TIME TO WAIT AND NEW DISPATCHING PRIORITY */ 01155000 */* FOR APG USER */ 01156000 */* */ 01157000 */* INPUT - */ 01158000 */* 1) REG4 = OUCB ADDRESS */ 01159000 */* 2) REG5 = ASCB ADDRESS */ 01160000 */* */ 01161000 */* OUTPUT - */ 01162000 */* 1) OUCBNDP = NEW DISPATCHING PRIORITY */ 01163000 */* */ 01164000 */********************************************************************/ 01165000 * 0273 01166000 *NEWDP: 0273 01167000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0273 01168000 NEWDP DS 0H 0274 01169000 * RESPECIFY 0274 01170000 * (APGJST1, 0274 01171000 * APGJST2, 0274 01172000 * RTNREG) RESTRICTED; 0274 01173000 * 0274 01174000 */* GET CURRENT JOB STEP TIME IN MILLISECONDS IN REGISTER WITH */ 01175000 */* HIGH ORDER BIT SET TO ZERO */ 01176000 * 0275 01177000 * GENERATE CODE REFS(ASCBEJST); 0275 01178000 LM APGJST1,APGJST2,ASCBEJST(ASCBPTR) 01179000 SRDL APGJST1,S22 01180000 * APEJST=APGJST2; /* SAVE TASK COMPONENT OF TIME */ 01181000 LR APEJST,APGJST2 0276 01182000 * GENERATE CODE REFS(ASCBSRBT); 0277 01183000 LM APGJST1,APGJST2,ASCBSRBT(ASCBPTR) 01184000 SRDL APGJST1,S22 01185000 * RESPECIFY 0278 01186000 * APGJST1 UNRESTRICTED; 0278 01187000 * APGJST2=APGJST2+APEJST; /* ADD SRB COMPONENT OF JOB TIME */ 01188000 ALR APGJST2,APEJST 0279 01189000 * OUXBPTR=ASCBOUXB; /* ESTABLISH ADDRESSIBILITY TO 0280 01190000 * OUXB */ 01191000 L OUXBPTR,ASCBOUXB(,ASCBPTR) 0280 01192000 * APEJST=APGJST2-OUXBAET; /* GET RECENT USER EXECUTION TIME*/ 01193000 LR APEJST,APGJST2 0281 01194000 SL APEJST,OUXBAET(,OUXBPTR) 0281 01195000 * IF APEJST>CCCAPMET THEN /* IF EXECUTION TIME ABOVE 0282 01196000 * MININUM */ 01197000 C APEJST,CCCAPMET(,RMCTPTR) 0282 01198000 BNH @RF00282 0282 01199000 * DO; /* COMPUTE NEW DISPATCHING PRTY */ 01200000 * APSWCT=ASCBSWCT /* FIRST COMPUTE RECENT SHORT */ 01201000 * -OUXBWCT; /* WAIT COUNT */ 01202000 LH @15,ASCBSWCT(,ASCBPTR) 0284 01203000 SH @15,OUXBWCT(,OUXBPTR) 0284 01204000 STH @15,APSWCT 0284 01205000 * IF APSWCT=I0 THEN /* USER HAS NOT GONE INTO WAIT */ 01206000 LTR @15,@15 0285 01207000 BNZ @RF00285 0285 01208000 * DO; /* DURING THE MEASUREMENT 0286 01209000 * INTERVAL */ 01210000 * OUCBCPL='1'B; /* SET SIGNIFICANT CPU USER FLAG */ 01211000 OI OUCBCPL(OUCBPTR),B'00010000' 0287 01212000 * IF OUCBAPG='1'B& /* IF USER IS IN APG @Z40BPEB*/ 01213000 * OUCBNDP<=CCCAPGDP THEN/* IN MEAN TIME TO WAIT 0288 01214000 * @Z40BPEB*/ 01215000 TM OUCBAPG(OUCBPTR),B'01000000' 0288 01216000 BNO @RF00288 0288 01217000 SLR @15,@15 0288 01218000 IC @15,OUCBNDP(,OUCBPTR) 0288 01219000 CH @15,CCCAPGDP(,RMCTPTR) 0288 01220000 BH @RF00288 0288 01221000 * DO; /* @YM05632*/ 01222000 * APOUCB=OUCBPTR; /* THIS IS MEMORY WITH LARGEST */ 01223000 ST OUCBPTR,APOUCB 0290 01224000 * APCPR=APMXMTW; /* MEAN TIME TO WAIT */ 01225000 MVC APCPR(2),@CH02212 0291 01226000 * OUCBNDP=CCCAPMDP; /* AND DISPATCHING PRIORITY TO 0292 01227000 * MIN */ 01228000 LH @15,CCCAPMDP(,RMCTPTR) 0292 01229000 STC @15,OUCBNDP(,OUCBPTR) 0292 01230000 * END; /* @YM05632*/ 01231000 * END; /* */ 01232000 * ELSE /* */ 01233000 * DO; /* OTHERWISE */ 01234000 B @RC00285 0295 01235000 @RF00285 DS 0H 0296 01236000 * APDEL=APEJST/APSWCT; /* COMPUTE MEAN TIME TO WAIT */ 01237000 LR @10,APEJST 0296 01238000 SRDA @10,32 0296 01239000 LH @15,APSWCT 0296 01240000 DR @10,@15 0296 01241000 ST @11,APDEL 0296 01242000 * IF APDEL>CCCSIGUR THEN /* IF USER HAS A SIGNIFICANT MTW */ 01243000 CH @11,CCCSIGUR(,RMCTPTR) 0297 01244000 BNH @RF00297 0297 01245000 * OUCBCPL='1'B; /* SET USER CPU LOAD BALANCING */ 01246000 OI OUCBCPL(OUCBPTR),B'00010000' 0298 01247000 * ELSE /* FLAG, */ 01248000 * OUCBCPL='0'B; /* OTHERWISE RESET CPL FLAG */ 01249000 B @RC00297 0299 01250000 @RF00297 NI OUCBCPL(OUCBPTR),B'11101111' 0299 01251000 * IF OUCBAPG='1'B& /* IF USER IS IN APG @Z40BPEB*/ 01252000 * OUCBNDP<=CCCAPGDP THEN/* IN MEAN TIME TO WAIT 0300 01253000 * @Z40BPEB*/ 01254000 @RC00297 TM OUCBAPG(OUCBPTR),B'01000000' 0300 01255000 BNO @RF00300 0300 01256000 SLR @15,@15 0300 01257000 IC @15,OUCBNDP(,OUCBPTR) 0300 01258000 CH @15,CCCAPGDP(,RMCTPTR) 0300 01259000 BH @RF00300 0300 01260000 * DO; /* @YM05632*/ 01261000 * IF APDEL>APCPR THEN /* SAVE POINTER TO APG USER */ 01262000 L @15,APDEL 0302 01263000 CH @15,APCPR 0302 01264000 BNH @RF00302 0302 01265000 * DO; /* WITH THE LARGEST */ 01266000 * APOUCB=OUCBPTR; /* MEASURED MEAN TIME */ 01267000 ST OUCBPTR,APOUCB 0304 01268000 * APCPR=APDEL; /* TO WAIT */ 01269000 STH @15,APCPR 0305 01270000 * END; /* */ 01271000 * APDEL=APDEL /* NEXT COMPUTE DELTA FROM MTW TO*/ 01272000 * /CCCAPDIV; /* SUBTRACT FROM APG BASE 0307 01273000 * PRIORITY */ 01274000 @RF00302 L @08,APDEL 0307 01275000 SRDA @08,32 0307 01276000 LH @15,CCCAPDIV(,RMCTPTR) 0307 01277000 DR @08,@15 0307 01278000 ST @09,APDEL 0307 01279000 * IF APDEL>CCCAPGDP-CCCAPMDP THEN/* INSURE THAT DELTA 01280000 * DOES NOT @Z40BPEB*/ 01281000 LH @15,CCCAPGDP(,RMCTPTR) 0308 01282000 SH @15,CCCAPMDP(,RMCTPTR) 0308 01283000 CR @09,@15 0308 01284000 BNH @RF00308 0308 01285000 * APDEL=CCCAPGDP-CCCAPMDP;/* EXCEED MAXIMUM VALUE 0309 01286000 * @Z40BPEB*/ 01287000 ST @15,APDEL 0309 01288000 * OUCBNDP=CCCAPGDP /* NEW DISPATCHING PRIORITY = 0310 01289000 * BASE @Z40BPEB*/ 01290000 * -APDEL; /* APG PRIORITY MINUS DELTA */ 01291000 @RF00308 LH @15,CCCAPGDP(,RMCTPTR) 0310 01292000 SL @15,APDEL 0310 01293000 STC @15,OUCBNDP(,OUCBPTR) 0310 01294000 * END; /* @YM05632*/ 01295000 * OUXBWCT=ASCBSWCT; /* RESET SHORT WAIT COUNT */ 01296000 @RF00300 LH @15,ASCBSWCT(,ASCBPTR) 0312 01297000 STH @15,OUXBWCT(,OUXBPTR) 0312 01298000 * END; /* */ 01299000 * OUXBAET=APGJST2; /* RESET BASE USER EXECUTION TIME*/ 01300000 @RC00285 ST APGJST2,OUXBAET(,OUXBPTR) 0314 01301000 * END; 0315 01302000 * ELSE /* IF USER IS AT MINIMUM APG */ 01303000 * IF ASCBDP=CCCAPMDP THEN /* PRIORITY ROTATE USER */ 01304000 B @RC00282 0316 01305000 @RF00282 SLR @15,@15 0316 01306000 IC @15,ASCBDP(,ASCBPTR) 0316 01307000 CH @15,CCCAPMDP(,RMCTPTR) 0316 01308000 BNE @RF00316 0316 01309000 * OUCBNDP=CCCAPLDP; /* CHAP TO ONE ABOVE MINIMUM */ 01310000 LH @15,CCCAPLDP(,RMCTPTR) 0317 01311000 STC @15,OUCBNDP(,OUCBPTR) 0317 01312000 * RESPECIFY /* FREE REGISTERS TO COMPILER */ 01313000 * (APGJST2, 0318 01314000 * RTNREG) UNRESTRICTED; 0318 01315000 * END NEWDP; 0319 01316000 @EL00006 DS 0H 0319 01317000 @EF00006 DS 0H 0319 01318000 @ER00006 BR @14 0319 01319000 * END IRARMCPM 0320 01320000 * 0320 01321000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01322000 */*%INCLUDE SYSUT5 (IRACPCOM) */ 01323000 */*%INCLUDE SYSLIB (IRAREGS ) */ 01324000 */*%INCLUDE SYSLIB (IRACNSMP) */ 01325000 */*%INCLUDE SYSLIB (IRARMCT ) */ 01326000 */*%INCLUDE SYSLIB (IRACCT ) */ 01327000 */*%INCLUDE SYSLIB (IRAICT ) */ 01328000 */*%INCLUDE SYSLIB (IRAMCT ) */ 01329000 */*%INCLUDE SYSLIB (IRARCT ) */ 01330000 */*%INCLUDE SYSLIB (IRARMPT ) */ 01331000 */*%INCLUDE SYSLIB (IRARMCA ) */ 01332000 */*%INCLUDE SYSLIB (IRARMEX ) */ 01333000 */*%INCLUDE SYSLIB (IRARMSB ) */ 01334000 */*%INCLUDE SYSLIB (IRAEPAT ) */ 01335000 */*%INCLUDE SYSLIB (IRAEPDT ) */ 01336000 */*%INCLUDE SYSLIB (IRAEPST ) */ 01337000 */*%INCLUDE SYSLIB (IRARRPA ) */ 01338000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01339000 */*%INCLUDE SYSLIB (IRAOUCB ) */ 01340000 */*%INCLUDE SYSLIB (IHAOUXB ) */ 01341000 */*%INCLUDE SYSLIB (IRARMEP ) */ 01342000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01343000 */*%INCLUDE SYSLIB (IHALCCA ) */ 01344000 */*%INCLUDE SYSLIB (IHALCCAT) */ 01345000 */*%INCLUDE SYSLIB (IHACSD ) */ 01346000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01347000 */*%INCLUDE SYSLIB (CVT ) */ 01348000 */*%INCLUDE SYSUT5 (IRARMCWA) */ 01349000 */*%INCLUDE SYSUT5 (IRARMAP0) */ 01350000 */*%INCLUDE SYSUT5 (IRARMAP1) */ 01351000 */*%INCLUDE SYSUT5 (IRARMEQ1) */ 01352000 */*%INCLUDE SYSUT5 (IRARMCL0) */ 01353000 */*%INCLUDE SYSUT5 (IRARMCL1) */ 01354000 */*%INCLUDE SYSUT5 (IRARMCL3) */ 01355000 */*%INCLUDE SYSUT5 (CHAP ) */ 01356000 */*%INCLUDE SYSUT5 (CPLRVSWF) */ 01357000 */*%INCLUDE SYSUT5 (CPUWAIT ) */ 01358000 */*%INCLUDE SYSUT5 (CPWTPCK ) */ 01359000 */*%INCLUDE SYSUT5 (NEWDP ) */ 01360000 * 0320 01361000 * ; 0320 01362000 @DATA DS 0H 01363000 @CH02220 DC H'101' 01364000 @CH02212 DC H'32767' 01365000 DS 0F 01366000 @SA00004 DS 15F 01367000 @TF00001 DS F 01368000 DS 0F 01369000 @CF00090 DC F'1' 01370000 @CF00338 DC F'16' 01371000 @CF02218 DC F'100' 01372000 @CH02218 EQU @CF02218+2 01373000 @CF02277 DC F'-4' 01374000 DS 0D 01375000 RCHAPFUL DC AL4(RCHAPLST+19*8) 01376000 APX DC A(0) 01377000 APDEL DC F'0' 01378000 APCHAPPR DC F'0' 01379000 APOUCB DC A(0) 01380000 ROTAOUCB DC A(0) 01381000 RCHAPLEN DC AL2(8) 01382000 APSWCT DC H'0' 01383000 APCPR DC H'0' 01384000 ROTACT DC H'0' 01385000 ROTASQN DC H'0' 01386000 CPUTL DC H'0' 01387000 @TS00001 DS CL2 01388000 @CC02226 DC C'OUCB' 01389000 @CB02251 DC X'8000' 01390000 @CB02252 DC X'0000' 01391000 CPBX DS BL2 01392000 RCHAPLST DS 20BL8 01393000 IRARMCPM CSECT 01394000 * /* 01395000 S1 EQU 1 SHIFT VALUE 1 01396000 S21 EQU 21 SHIFT VALUE 21 01397000 S22 EQU 22 SHIFT VALUE 22 01398000 IRARMCPM CSECT 01399000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01400000 @01 EQU 01 01401000 @02 EQU 02 01402000 @03 EQU 03 01403000 @04 EQU 04 01404000 @05 EQU 05 01405000 @06 EQU 06 01406000 @07 EQU 07 01407000 @08 EQU 08 01408000 @09 EQU 09 01409000 @10 EQU 10 01410000 @11 EQU 11 01411000 @12 EQU 12 01412000 @13 EQU 13 01413000 @14 EQU 14 01414000 @15 EQU 15 01415000 CPSCF EQU @08 01416000 CPSWF EQU @07 01417000 CPETIM EQU @07 01418000 CPUCT EQU @07 01419000 CPX EQU @09 01420000 CPRV EQU @07 01421000 CPWTIM EQU @08 01422000 APINT EQU @07 01423000 APUSRCT EQU @10 01424000 APCHAPCT EQU @08 01425000 APEJST EQU @08 01426000 R0 EQU @00 01427000 R1 EQU @01 01428000 RMCTPTR EQU @02 01429000 RRPAPTR EQU @03 01430000 OUCBPTR EQU @04 01431000 ASCBPTR EQU @05 01432000 OUXBPTR EQU @06 01433000 SVEREG EQU @13 01434000 RTNREG EQU @14 01435000 NTRREG EQU @15 01436000 RTNCOD EQU @15 01437000 LCCAPTR EQU @06 01438000 RCHAPPTR EQU @01 01439000 APGJST1 EQU @00 01440000 APGJST2 EQU @01 01441000 CPWTIMR1 EQU @04 01442000 CPWTIMR2 EQU @05 01443000 ENQJST1 EQU @00 01444000 ENQJST2 EQU @01 01445000 CPJST1 EQU @00 01446000 CPJST2 EQU @01 01447000 PSA EQU 0 01448000 FLCRNPSW EQU PSA 01449000 FLCROPSW EQU PSA+8 01450000 FLCICCW2 EQU PSA+16 01451000 FLCCVT EQU FLCICCW2 01452000 PSAEEPSW EQU PSA+132 01453000 PSAESPSW EQU PSA+136 01454000 FLCSVILC EQU PSAESPSW+1 01455000 PSAEPPSW EQU PSA+140 01456000 FLCPIILC EQU PSAEPPSW+1 01457000 FLCPICOD EQU PSAEPPSW+2 01458000 PSAPICOD EQU FLCPICOD+1 01459000 FLCTEA EQU PSAEPPSW+4 01460000 FLCPER EQU PSA+152 01461000 FLCMCLA EQU PSA+168 01462000 FLCIOEL EQU FLCMCLA+4 01463000 FLCIOA EQU FLCMCLA+16 01464000 FLCFSA EQU FLCMCLA+80 01465000 PSASUPER EQU PSA+552 01466000 PSASUP1 EQU PSASUPER 01467000 PSASUP2 EQU PSASUPER+1 01468000 PSASUP3 EQU PSASUPER+2 01469000 PSASUP4 EQU PSASUPER+3 01470000 PSACLHT EQU PSA+640 01471000 PSALKSA EQU PSA+696 01472000 PSAHLHI EQU PSA+760 01473000 PSADSSFL EQU PSA+836 01474000 PSADSSF1 EQU PSADSSFL 01475000 PSADSSF3 EQU PSADSSFL+2 01476000 PSADSSF4 EQU PSADSSFL+3 01477000 PSARSVT EQU PSA+896 01478000 IRARMRTN EQU 0 01479000 RMCT EQU 0 01480000 RMCTINQE EQU RMCT+112 01481000 RMCTTOD EQU RMCT+124 01482000 RMCTFLGS EQU RMCT+148 01483000 CCT EQU RMCT+192 01484000 CCCAPMET EQU CCT+4 01485000 CCCAPMIN EQU CCT+8 01486000 CCCAPMAX EQU CCT+12 01487000 CCCAPDEL EQU CCT+16 01488000 CCCMNSIN EQU CCT+24 01489000 CCCAPDIV EQU CCT+32 01490000 CCCAPROT EQU CCT+34 01491000 CCCAPLDP EQU CCT+38 01492000 CCCAPMDP EQU CCT+40 01493000 CCCAPGDP EQU CCT+42 01494000 CCCAPRLT EQU CCT+46 01495000 CCCAPRHT EQU CCT+48 01496000 CCCUTHIT EQU CCT+50 01497000 CCCUTLOT EQU CCT+52 01498000 CCCHISCF EQU CCT+54 01499000 CCCLOSCF EQU CCT+56 01500000 CCCMAXRV EQU CCT+58 01501000 CCCMINRV EQU CCT+60 01502000 CCCSCFAC EQU CCT+62 01503000 CCCSIGUR EQU CCT+66 01504000 CCCSCFC1 EQU CCT+70 01505000 CCCSCFC2 EQU CCT+72 01506000 CCVRBSWT EQU CCT+80 01507000 CCVRBSTD EQU CCT+88 01508000 CCVRVSWF EQU CCT+92 01509000 CCVEJST EQU CCT+100 01510000 CCVIMBBT EQU CCT+104 01511000 CCVUTILP EQU CCT+110 01512000 CCVLGUTL EQU CCT+116 01513000 CCVENQCT EQU CCT+120 01514000 CCTFLG1 EQU CCT+124 01515000 CCTALL EQU CCTFLG1 01516000 CCTCPUOT EQU CCTFLG1 01517000 ICT EQU RMCT+320 01518000 ICTFLAGS EQU ICT+84 01519000 MCT EQU RMCT+408 01520000 MCTSFLGS EQU MCT+64 01521000 MCTOFLGS EQU MCT+65 01522000 RCT EQU RMCT+504 01523000 RMPT EQU RMCT+592 01524000 RMPTERV EQU RMPT+12 01525000 RMCA EQU RMCT+664 01526000 RMCAFLGS EQU RMCA+36 01527000 RMCASRC EQU RMCA+124 01528000 RMEX EQU RMCT+832 01529000 RMEPBEVT EQU RMEX 01530000 RMEPBCTL EQU RMEX+16 01531000 RMSB EQU RMCT+896 01532000 RMSBI02 EQU RMSB 01533000 EPAT EQU RMCT+1016 01534000 EPDT EQU RMCT+1416 01535000 EPST EQU RMCT+1512 01536000 RMEPBWM3 EQU EPST 01537000 EPSTWM3 EQU RMEPBWM3 01538000 RMEPBIL3 EQU EPST+16 01539000 RMEPBCL3 EQU EPST+32 01540000 RMEPBCSO EQU EPST+48 01541000 RMEPBCSI EQU EPST+64 01542000 RRPA EQU 0 01543000 RRPAINC EQU RRPA 01544000 RRPAVPGN EQU RRPAINC+2 01545000 RRPAFLG0 EQU RRPAVPGN 01546000 RRPAINP EQU RRPA+4 01547000 RRPAFLG EQU RRPA+8 01548000 RRPATOD EQU RRPA+12 01549000 RRPAINS EQU RRPA+16 01550000 RRPAEPA EQU RRPA+20 01551000 ASCB EQU 0 01552000 ASCBSUPC EQU ASCB+16 01553000 ASCBSEQN EQU ASCB+38 01554000 ASCBDP EQU ASCB+43 01555000 ASCBRSM EQU ASCB+52 01556000 ASCBRSMF EQU ASCBRSM 01557000 ASCBEJST EQU ASCB+64 01558000 ASCBFW1 EQU ASCB+100 01559000 ASCBRCTF EQU ASCBFW1+2 01560000 ASCBFLG1 EQU ASCBFW1+3 01561000 ASCBSWCT EQU ASCB+112 01562000 ASCBDSP1 EQU ASCB+114 01563000 ASCBFLG2 EQU ASCB+115 01564000 ASCBTCBS EQU ASCB+124 01565000 ASCBLKGP EQU ASCB+128 01566000 ASCBOUXB EQU ASCB+148 01567000 ASCBSRQ EQU ASCB+180 01568000 ASCBSRQ1 EQU ASCBSRQ 01569000 ASCBSRQ2 EQU ASCBSRQ+1 01570000 ASCBSRQ3 EQU ASCBSRQ+2 01571000 ASCBSRQ4 EQU ASCBSRQ+3 01572000 ASCBSRBT EQU ASCB+200 01573000 OUCB EQU 0 01574000 OUCBNAME EQU OUCB 01575000 OUCBFWD EQU OUCB+4 01576000 OUCBQFL EQU OUCB+16 01577000 OUCBGOO EQU OUCBQFL 01578000 OUCBGOI EQU OUCBQFL 01579000 OUCBGOB EQU OUCBQFL 01580000 OUCBOUT EQU OUCBQFL 01581000 OUCBSFL EQU OUCB+17 01582000 OUCBNSW EQU OUCBSFL 01583000 OUCBBIB EQU OUCBSFL 01584000 OUCBPVL EQU OUCBSFL 01585000 OUCBENQ EQU OUCBSFL 01586000 OUCBYFL EQU OUCB+18 01587000 OUCBAFL EQU OUCB+19 01588000 OUCBAPG EQU OUCBAFL 01589000 OUCBRMA EQU OUCBAFL 01590000 OUCBCPL EQU OUCBAFL 01591000 OUCBTFL EQU OUCB+20 01592000 OUCBEFL EQU OUCB+21 01593000 OUCBNQF EQU OUCBEFL 01594000 OUCBUFL EQU OUCB+23 01595000 OUCBNDP EQU OUCB+26 01596000 OUCBASCB EQU OUCB+40 01597000 OUCBCSW EQU OUCB+84 01598000 OUCBCFL EQU OUCBCSW+2 01599000 OUCBCRV EQU OUCB+98 01600000 OUCBPSS EQU OUCB+112 01601000 OUCBTCP EQU OUCB+124 01602000 OUXB EQU 0 01603000 OUXBNQT EQU OUXB+60 01604000 OUXBAET EQU OUXB+92 01605000 OUXBCPS EQU OUXB+96 01606000 OUXBWCT EQU OUXB+124 01607000 RMEP EQU 0 01608000 RMEPEPB EQU RMEP 01609000 RMEPFLG EQU RMEPEPB+8 01610000 RMEPSCH EQU RMEP+16 01611000 RMEPINT EQU RMEPSCH+12 01612000 PVT EQU 0 01613000 PVTFLAG1 EQU PVT 01614000 PVTFLAG2 EQU PVT+1 01615000 PVTQS EQU PVT+304 01616000 PVTWSAX EQU PVT+344 01617000 LCCA EQU 0 01618000 LCCAIHRC EQU LCCA+520 01619000 LCCAIHR1 EQU LCCAIHRC 01620000 LCCAIHR2 EQU LCCAIHRC+1 01621000 LCCAIHR3 EQU LCCAIHRC+2 01622000 LCCAIHR4 EQU LCCAIHRC+3 01623000 LCCASPIN EQU LCCA+524 01624000 LCCASPN1 EQU LCCASPIN 01625000 LCCASPN2 EQU LCCASPIN+1 01626000 LCCASPN3 EQU LCCASPIN+2 01627000 LCCASPN4 EQU LCCASPIN+3 01628000 LCCADSF1 EQU LCCA+540 01629000 LCCADSF2 EQU LCCA+541 01630000 LCCASPSA EQU LCCA+544 01631000 LCCAWTIM EQU LCCA+616 01632000 LCCACRFL EQU LCCA+692 01633000 LCCACREX EQU LCCA+693 01634000 LCCALKFG EQU LCCA+694 01635000 LCCASRBF EQU LCCA+720 01636000 LCCAVT EQU 0 01637000 LCCAT00P EQU LCCAVT 01638000 CSD EQU 0 01639000 CSDCPUAL EQU CSD+8 01640000 CSDCPUOL EQU CSD+10 01641000 CSDSCWRD EQU CSD+12 01642000 CSDSCFL1 EQU CSDSCWRD 01643000 CSDSCFL2 EQU CSDSCWRD+1 01644000 CSDSCFL3 EQU CSDSCWRD+2 01645000 CSDSCFL4 EQU CSDSCWRD+3 01646000 CSDFLAGS EQU CSD+23 01647000 CVTMAP EQU 0 01648000 CVTDAR EQU CVTMAP+72 01649000 CVTFLGS1 EQU CVTDAR 01650000 CVTDCB EQU CVTMAP+116 01651000 CVTIOQET EQU CVTMAP+120 01652000 CVTIERLC EQU CVTMAP+144 01653000 CVTHEAD EQU CVTMAP+160 01654000 CVTSV76C EQU CVTHEAD 01655000 CVTOPTA EQU CVTMAP+182 01656000 CVTOPTB EQU CVTMAP+183 01657000 CVTGTF EQU CVTMAP+236 01658000 CVTGTFST EQU CVTGTF 01659000 CVTGTFS EQU CVTGTFST 01660000 CVTSTATE EQU CVTGTFST 01661000 CVTTMODE EQU CVTGTFST 01662000 CVTFORM EQU CVTGTFST 01663000 CVTAQAVT EQU CVTMAP+240 01664000 CVTTCMFG EQU CVTAQAVT 01665000 CVTVOLM2 EQU CVTMAP+244 01666000 CVTTATA EQU CVTVOLM2 01667000 CVTTSKS EQU CVTTATA 01668000 CVTVOLF2 EQU CVTTSKS 01669000 CVTTAT EQU CVTTATA+1 01670000 CVTATER EQU CVTMAP+248 01671000 CVTEXT1 EQU CVTMAP+252 01672000 CVTPURG EQU CVTMAP+260 01673000 CVTQMSG EQU CVTMAP+268 01674000 CVTDMSR EQU CVTMAP+272 01675000 CVTRSV37 EQU CVTDMSR 01676000 CVTDMSRF EQU CVTRSV37 01677000 CVTERPV EQU CVTMAP+316 01678000 CVTINTLA EQU CVTMAP+320 01679000 CVTAPF EQU CVTMAP+324 01680000 CVTEXT2 EQU CVTMAP+328 01681000 CVTHJES EQU CVTMAP+332 01682000 CVTPGSIA EQU CVTMAP+348 01683000 CVTA1F1 EQU CVTMAP+356 01684000 CVTSYSK EQU CVTMAP+357 01685000 CVTVOLM1 EQU CVTMAP+380 01686000 CVTVOLF1 EQU CVTVOLM1 01687000 CVTATMCT EQU CVTMAP+388 01688000 CVTXTNT1 EQU 0 01689000 CVTXTNT2 EQU 0 01690000 CVTDSSV EQU CVTXTNT2 01691000 CVTFLGBT EQU CVTXTNT2+5 01692000 CVTQID EQU CVTXTNT2+24 01693000 CVTRV400 EQU CVTXTNT2+52 01694000 CVTRV409 EQU CVTXTNT2+53 01695000 CVTATCVT EQU CVTXTNT2+64 01696000 CVTRV429 EQU CVTXTNT2+84 01697000 CVTRV438 EQU CVTXTNT2+85 01698000 CVTRV457 EQU CVTXTNT2+112 01699000 CVTRV466 EQU CVTXTNT2+113 01700000 CVTFIX EQU 0 01701000 CVTRELNO EQU CVTFIX+252 01702000 RCHAPINT EQU 0 01703000 RCHAPFLG EQU RCHAPINT 01704000 RCHAPEND EQU RCHAPFLG 01705000 RCHAPDP EQU RCHAPINT+2 01706000 RCHAPUSR EQU RCHAPINT+4 01707000 IRARMNTR EQU 0 01708000 RMEPPTR EQU RRPAEPA 01709000 CVTS01 EQU CVTPGSIA 01710000 CVTPVTP EQU CVTS01+8 01711000 CVTLPDIA EQU CVTS01+12 01712000 CVTDIRST EQU CVTLPDIA 01713000 CVTSLIDA EQU CVTS01+24 01714000 CVTCTLFG EQU CVTS01+50 01715000 CVTASCBL EQU CVTS01+220 01716000 CVTCSD EQU CVTS01+312 01717000 CVTLCCAT EQU CVTS01+420 01718000 CVTRV210 EQU CVTS01+424 01719000 CVTRV219 EQU CVTS01+425 01720000 CVTRV228 EQU CVTS01+426 01721000 CVTRV237 EQU CVTS01+427 01722000 CVTMFRTR EQU CVTS01+452 01723000 CVTRV262 EQU CVTS01+468 01724000 CVTRV271 EQU CVTS01+469 01725000 CVTRV280 EQU CVTS01+470 01726000 CVTRV289 EQU CVTS01+471 01727000 CVTGSDA EQU CVTS01+600 01728000 PVTPTR EQU CVTPVTP 01729000 PSARSVTE EQU PSARSVT 01730000 CVTPTR EQU FLCCVT 01731000 CPASCBET EQU ASCBEJST+2 01732000 FLC EQU PSA 01733000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01734000 PSARSAV EQU PSARSVTE+60 01735000 PSARSTK EQU PSARSVTE+56 01736000 PSAESAV3 EQU PSARSVTE+52 01737000 PSAESTK3 EQU PSARSVTE+48 01738000 PSAESAV2 EQU PSARSVTE+44 01739000 PSAESTK2 EQU PSARSVTE+40 01740000 PSAESAV1 EQU PSARSVTE+36 01741000 PSAESTK1 EQU PSARSVTE+32 01742000 PSAPSAV EQU PSARSVTE+28 01743000 PSAPSTK EQU PSARSVTE+24 01744000 PSAMSAV EQU PSARSVTE+20 01745000 PSAMSTK EQU PSARSVTE+16 01746000 PSASSAV EQU PSARSVTE+12 01747000 PSASSTK EQU PSARSVTE+8 01748000 PSANSTK EQU PSARSVTE+4 01749000 PSACSTK EQU PSARSVTE 01750000 CVTRV628 EQU CVTS01+728 01751000 CVTRV627 EQU CVTS01+724 01752000 CVTRV626 EQU CVTS01+720 01753000 CVTRV625 EQU CVTS01+716 01754000 CVTRV624 EQU CVTS01+712 01755000 CVTRV623 EQU CVTS01+708 01756000 CVTRV622 EQU CVTS01+704 01757000 CVTRV621 EQU CVTS01+700 01758000 CVTIHASU EQU CVTS01+696 01759000 CVTSUSP EQU CVTS01+692 01760000 CVTT6SVC EQU CVTS01+688 01761000 CVTCDAL EQU CVTS01+684 01762000 CVTTCTL EQU CVTS01+680 01763000 CVTRSUME EQU CVTS01+676 01764000 CVTJTERM EQU CVTS01+672 01765000 CVTASMRM EQU CVTS01+668 01766000 CVTTCASP EQU CVTS01+664 01767000 CVT0PT03 EQU CVTS01+660 01768000 CVT0PT0E EQU CVTS01+656 01769000 CVTRV609 EQU CVTS01+652 01770000 CVTCGK EQU CVTS01+648 01771000 CVTRAC EQU CVTS01+644 01772000 CVTHSM EQU CVTS01+640 01773000 CVTRV605 EQU CVTS01+636 01774000 CVTRV604 EQU CVTS01+632 01775000 CVTEFF02 EQU CVTS01+628 01776000 CVTCBBR EQU CVTS01+624 01777000 CVTSSCR EQU CVTS01+620 01778000 CVTEVENT EQU CVTS01+616 01779000 CVTCRCA EQU CVTS01+612 01780000 CVTTPIO EQU CVTS01+608 01781000 CVTADV EQU CVTS01+604 01782000 CVTGSDAB EQU CVTGSDA 01783000 CVTQV3 EQU CVTS01+596 01784000 CVTQV2 EQU CVTS01+592 01785000 CVTQV1 EQU CVTS01+588 01786000 CVTRPT EQU CVTS01+584 01787000 CVTSSRB EQU CVTS01+580 01788000 CVTCSDRL EQU CVTS01+576 01789000 CVTEXP1 EQU CVTS01+572 01790000 CVTRMPMT EQU CVTS01+568 01791000 CVTRMPTT EQU CVTS01+564 01792000 CVTVPSA EQU CVTS01+560 01793000 CVTVSTOP EQU CVTS01+556 01794000 CVTGTFR8 EQU CVTS01+552 01795000 CVTQUIT EQU CVTS01+548 01796000 CVTVACR EQU CVTS01+544 01797000 CVTWTCB EQU CVTS01+540 01798000 CVTSTPRS EQU CVTS01+536 01799000 CVT0PT02 EQU CVTS01+532 01800000 CVTDARCM EQU CVTS01+528 01801000 CVTIRECM EQU CVTS01+524 01802000 CVTJRECM EQU CVTS01+520 01803000 CVTVEMS0 EQU CVTS01+516 01804000 CVTSPFRR EQU CVTS01+512 01805000 CVTRLSTG EQU CVTS01+508 01806000 CVT0TC0A EQU CVTS01+504 01807000 CVTGMBR EQU CVTS01+500 01808000 CVTLFRM EQU CVTS01+496 01809000 CVTRMBR EQU CVTS01+492 01810000 CVTVIOP EQU CVTS01+488 01811000 CVTRV307 EQU CVTS01+486 01812000 CVTRV306 EQU CVTS01+484 01813000 CVTRV305 EQU CVTS01+482 01814000 CVTRV304 EQU CVTS01+480 01815000 CVTRV303 EQU CVTS01+478 01816000 CVTRV302 EQU CVTS01+476 01817000 CVTTRCA EQU CVTS01+472 01818000 CVTRV297 EQU CVTRV289 01819000 CVTRV296 EQU CVTRV289 01820000 CVTRV295 EQU CVTRV289 01821000 CVTRV294 EQU CVTRV289 01822000 CVTRV293 EQU CVTRV289 01823000 CVTRV292 EQU CVTRV289 01824000 CVTRV291 EQU CVTRV289 01825000 CVTRV290 EQU CVTRV289 01826000 CVTRV288 EQU CVTRV280 01827000 CVTRV287 EQU CVTRV280 01828000 CVTRV286 EQU CVTRV280 01829000 CVTRV285 EQU CVTRV280 01830000 CVTRV284 EQU CVTRV280 01831000 CVTRV283 EQU CVTRV280 01832000 CVTRV282 EQU CVTRV280 01833000 CVTRV281 EQU CVTRV280 01834000 CVTRV279 EQU CVTRV271 01835000 CVTRV278 EQU CVTRV271 01836000 CVTRV277 EQU CVTRV271 01837000 CVTRV276 EQU CVTRV271 01838000 CVTRV275 EQU CVTRV271 01839000 CVTRV274 EQU CVTRV271 01840000 CVTRV273 EQU CVTRV271 01841000 CVTRV272 EQU CVTRV271 01842000 CVTRV270 EQU CVTRV262 01843000 CVTRV269 EQU CVTRV262 01844000 CVTRV268 EQU CVTRV262 01845000 CVTRV267 EQU CVTRV262 01846000 CVTRV266 EQU CVTRV262 01847000 CVTRV265 EQU CVTRV262 01848000 CVTRV264 EQU CVTRV262 01849000 CVTRV263 EQU CVTRV262 01850000 CVTVFP EQU CVTS01+464 01851000 CVTVSI EQU CVTS01+460 01852000 CVTVPSIB EQU CVTS01+456 01853000 CVTMFACT EQU CVTMFRTR 01854000 CVTMFCTL EQU CVTS01+448 01855000 CVTPVBP EQU CVTS01+444 01856000 CVTPWI EQU CVTS01+440 01857000 CVTRV254 EQU CVTS01+438 01858000 CVTRV253 EQU CVTS01+436 01859000 CVTRV252 EQU CVTS01+434 01860000 CVTRV251 EQU CVTS01+433 01861000 CVTRV250 EQU CVTS01+432 01862000 CVTRV249 EQU CVTS01+431 01863000 CVTRV248 EQU CVTS01+430 01864000 CVTRV247 EQU CVTS01+429 01865000 CVTRV246 EQU CVTS01+428 01866000 CVTRV245 EQU CVTRV237 01867000 CVTRV244 EQU CVTRV237 01868000 CVTRV243 EQU CVTRV237 01869000 CVTRV242 EQU CVTRV237 01870000 CVTRV241 EQU CVTRV237 01871000 CVTRV240 EQU CVTRV237 01872000 CVTRV239 EQU CVTRV237 01873000 CVTRV238 EQU CVTRV237 01874000 CVTRV236 EQU CVTRV228 01875000 CVTRV235 EQU CVTRV228 01876000 CVTRV234 EQU CVTRV228 01877000 CVTRV233 EQU CVTRV228 01878000 CVTRV232 EQU CVTRV228 01879000 CVTRV231 EQU CVTRV228 01880000 CVTRV230 EQU CVTRV228 01881000 CVTRV229 EQU CVTRV228 01882000 CVTRV227 EQU CVTRV219 01883000 CVTRV226 EQU CVTRV219 01884000 CVTRV225 EQU CVTRV219 01885000 CVTRV224 EQU CVTRV219 01886000 CVTRV223 EQU CVTRV219 01887000 CVTRV222 EQU CVTRV219 01888000 CVTRV221 EQU CVTRV219 01889000 CVTRV220 EQU CVTRV219 01890000 CVTRV218 EQU CVTRV210 01891000 CVTRV217 EQU CVTRV210 01892000 CVTRV216 EQU CVTRV210 01893000 CVTRV215 EQU CVTRV210 01894000 CVTRV214 EQU CVTRV210 01895000 CVTRV213 EQU CVTRV210 01896000 CVTRV212 EQU CVTRV210 01897000 CVTRV211 EQU CVTRV210 01898000 CVTPCCAT EQU CVTS01+416 01899000 CVTIPCRP EQU CVTS01+412 01900000 CVTIPCRI EQU CVTS01+408 01901000 CVTIPCDS EQU CVTS01+404 01902000 CVTAIDVT EQU CVTS01+400 01903000 CVTSSAP EQU CVTS01+396 01904000 CVTEHCIR EQU CVTS01+392 01905000 CVTEHDEF EQU CVTS01+388 01906000 CVTDAIR EQU CVTS01+384 01907000 CVTPERFM EQU CVTS01+380 01908000 CVT044R2 EQU CVTS01+376 01909000 CVTFETCH EQU CVTS01+372 01910000 CVTRSTWD EQU CVTS01+368 01911000 CVTSPOST EQU CVTS01+364 01912000 CVTIOBP EQU CVTS01+360 01913000 CVTASMVT EQU CVTS01+356 01914000 CVTRECRQ EQU CVTS01+352 01915000 CVTWSAC EQU CVTS01+348 01916000 CVTRV149 EQU CVTS01+344 01917000 CVTWSAL EQU CVTS01+340 01918000 CVTSPSA EQU CVTS01+336 01919000 CVTGLMN EQU CVTS01+332 01920000 CVTVEAC0 EQU CVTS01+328 01921000 CVT062R1 EQU CVTS01+324 01922000 CVTRPOST EQU CVTS01+320 01923000 CVTDQIQE EQU CVTS01+316 01924000 CVTLKRMA EQU CVTS01+308 01925000 CVTRSPIE EQU CVTS01+304 01926000 CVTRENQ EQU CVTS01+300 01927000 CVTLQCB EQU CVTS01+296 01928000 CVTFQCB EQU CVTS01+292 01929000 CVTQCS01 EQU CVTS01+288 01930000 CVTAPFT EQU CVTS01+284 01931000 CVTPARRL EQU CVTS01+280 01932000 CVTVWAIT EQU CVTS01+276 01933000 CVTGSPL EQU CVTS01+272 01934000 CVTLSMQ EQU CVTS01+268 01935000 CVTGSMQ EQU CVTS01+264 01936000 CVTEXPRO EQU CVTS01+260 01937000 CVTOPCTP EQU CVTS01+256 01938000 CVTSIC EQU CVTS01+252 01939000 CVTTPIOS EQU CVTS01+248 01940000 CVTRTMS EQU CVTS01+244 01941000 CVTSDBF EQU CVTS01+240 01942000 CVTSCBP EQU CVTS01+236 01943000 CVTSDMP EQU CVTS01+232 01944000 CVTSV60 EQU CVTS01+228 01945000 CVTRTMCT EQU CVTS01+224 01946000 CVTASCBH EQU CVTS01+216 01947000 CVTGDA EQU CVTS01+212 01948000 CVTASVT EQU CVTS01+208 01949000 CVTVVMDI EQU CVTS01+204 01950000 CVTAQTOP EQU CVTS01+200 01951000 CVTIOSCS EQU CVTS01+196 01952000 CVTSDRM EQU CVTS01+192 01953000 CVTOPTE EQU CVTS01+188 01954000 CVTSTXU EQU CVTS01+184 01955000 CVTQUIS EQU CVTS01+180 01956000 CVTPARS EQU CVTS01+176 01957000 CVTS1EE EQU CVTS01+172 01958000 CVTFRAS EQU CVTS01+168 01959000 CVTQSAS EQU CVTS01+164 01960000 CVTCRAS EQU CVTS01+160 01961000 CVTCRMN EQU CVTS01+156 01962000 CVTDELCP EQU CVTS01+152 01963000 CVTFRECL EQU CVTS01+148 01964000 CVTGETCL EQU CVTS01+144 01965000 CVTBLDCP EQU CVTS01+140 01966000 CVTAUTHL EQU CVTS01+136 01967000 CVTSCAN EQU CVTS01+132 01968000 CVTRV144 EQU CVTS01+130 01969000 CVTMAXMP EQU CVTS01+128 01970000 CVTSTCK EQU CVTS01+124 01971000 CVTRV139 EQU CVTS01+123 01972000 CVTDSSAC EQU CVTS01+122 01973000 CVTRV513 EQU CVTS01+121 01974000 CVTIOSPL EQU CVTS01+120 01975000 CVTPTGT EQU CVTS01+116 01976000 CVTCSPIE EQU CVTS01+112 01977000 CVTSMFEX EQU CVTS01+108 01978000 CVTOLT0A EQU CVTS01+104 01979000 CVTSRBRT EQU CVTS01+100 01980000 CVTPUTL EQU CVTS01+96 01981000 CVTASCRL EQU CVTS01+92 01982000 CVTASCRF EQU CVTS01+88 01983000 CVTRV326 EQU CVTS01+84 01984000 CVTRV325 EQU CVTS01+80 01985000 CVTRV324 EQU CVTS01+76 01986000 CVT0VL01 EQU CVTS01+72 01987000 CVTSHRVM EQU CVTS01+68 01988000 CVTRV332 EQU CVTS01+64 01989000 CVTTAS EQU CVTS01+60 01990000 CVTRSCN EQU CVTS01+56 01991000 CVTTRAC2 EQU CVTS01+54 01992000 CVTTRACE EQU CVTS01+52 01993000 CVTAPG EQU CVTS01+51 01994000 CVTSDTRC EQU CVTCTLFG 01995000 CVTGTRCE EQU CVTCTLFG 01996000 CVTNOMP EQU CVTCTLFG 01997000 CVTRSV79 EQU CVTCTLFG 01998000 CVTDSTAT EQU CVTCTLFG 01999000 CVTRSV78 EQU CVTCTLFG 02000000 CVTRV333 EQU CVTCTLFG 02001000 CVTRV323 EQU CVTCTLFG 02002000 CVTSPVLK EQU CVTS01+49 02003000 CVTRSV77 EQU CVTS01+48 02004000 CVTRV331 EQU CVTS01+44 02005000 CVTRV330 EQU CVTS01+40 02006000 CVTRV329 EQU CVTS01+36 02007000 CVTRV328 EQU CVTS01+32 02008000 CVTRV322 EQU CVTS01+28 02009000 CVTSLID EQU CVTSLIDA+1 02010000 CVTSYLK EQU CVTSLIDA 02011000 CVTRV321 EQU CVTS01+20 02012000 CVTRV320 EQU CVTS01+16 02013000 CVTLPDIR EQU CVTLPDIA+1 02014000 CVTRSV69 EQU CVTDIRST 02015000 CVTRSV68 EQU CVTDIRST 02016000 CVTRSV67 EQU CVTDIRST 02017000 CVTRSV66 EQU CVTDIRST 02018000 CVTRSV65 EQU CVTDIRST 02019000 CVTRSV64 EQU CVTDIRST 02020000 CVTRSV63 EQU CVTDIRST 02021000 CVTDICOM EQU CVTDIRST 02022000 CVTLPDSR EQU CVTS01+4 02023000 CVTGETL EQU CVTS01 02024000 RCHAPRSV EQU RCHAPINT+1 02025000 RCHAPNRQ EQU RCHAPFLG 02026000 CVTLEVL EQU CVTRELNO+2 02027000 CVTNUMB EQU CVTRELNO 02028000 CVTMDL EQU CVTFIX+250 02029000 @NM00030 EQU CVTFIX+248 02030000 @NM00029 EQU CVTFIX 02031000 CVTRV482 EQU CVTXTNT2+128 02032000 CVTRV481 EQU CVTXTNT2+124 02033000 CVTRV480 EQU CVTXTNT2+120 02034000 CVTRV479 EQU CVTXTNT2+118 02035000 CVTRV478 EQU CVTXTNT2+117 02036000 CVTRV477 EQU CVTXTNT2+116 02037000 CVTRV476 EQU CVTXTNT2+115 02038000 CVTRV475 EQU CVTXTNT2+114 02039000 CVTRV474 EQU CVTRV466 02040000 CVTRV473 EQU CVTRV466 02041000 CVTRV472 EQU CVTRV466 02042000 CVTRV471 EQU CVTRV466 02043000 CVTRV470 EQU CVTRV466 02044000 CVTRV469 EQU CVTRV466 02045000 CVTRV468 EQU CVTRV466 02046000 CVTRV467 EQU CVTRV466 02047000 CVTRV465 EQU CVTRV457 02048000 CVTRV464 EQU CVTRV457 02049000 CVTRV463 EQU CVTRV457 02050000 CVTRV462 EQU CVTRV457 02051000 CVTRV461 EQU CVTRV457 02052000 CVTRV460 EQU CVTRV457 02053000 CVTRV459 EQU CVTRV457 02054000 CVTRV458 EQU CVTRV457 02055000 CVTRV456 EQU CVTXTNT2+108 02056000 CVTRV455 EQU CVTXTNT2+104 02057000 CVTRV454 EQU CVTXTNT2+100 02058000 CVTRV453 EQU CVTXTNT2+96 02059000 CVTRV452 EQU CVTXTNT2+94 02060000 CVTRV451 EQU CVTXTNT2+92 02061000 CVTRV450 EQU CVTXTNT2+90 02062000 CVTRV449 EQU CVTXTNT2+88 02063000 CVTRV448 EQU CVTXTNT2+87 02064000 CVTRV447 EQU CVTXTNT2+86 02065000 CVTRV446 EQU CVTRV438 02066000 CVTRV445 EQU CVTRV438 02067000 CVTRV444 EQU CVTRV438 02068000 CVTRV443 EQU CVTRV438 02069000 CVTRV442 EQU CVTRV438 02070000 CVTRV441 EQU CVTRV438 02071000 CVTRV440 EQU CVTRV438 02072000 CVTRV439 EQU CVTRV438 02073000 CVTRV437 EQU CVTRV429 02074000 CVTRV436 EQU CVTRV429 02075000 CVTRV435 EQU CVTRV429 02076000 CVTRV434 EQU CVTRV429 02077000 CVTRV433 EQU CVTRV429 02078000 CVTRV432 EQU CVTRV429 02079000 CVTRV431 EQU CVTRV429 02080000 CVTRV430 EQU CVTRV429 02081000 CVTRV428 EQU CVTXTNT2+80 02082000 CVTRV427 EQU CVTXTNT2+76 02083000 CVTRV426 EQU CVTXTNT2+72 02084000 CVTRV425 EQU CVTXTNT2+68 02085000 CVTATACT EQU CVTATCVT 02086000 CVTRV423 EQU CVTXTNT2+62 02087000 CVTRV422 EQU CVTXTNT2+60 02088000 CVTRV421 EQU CVTXTNT2+58 02089000 CVTRV420 EQU CVTXTNT2+56 02090000 CVTRV419 EQU CVTXTNT2+55 02091000 CVTRV418 EQU CVTXTNT2+54 02092000 CVTRV417 EQU CVTRV409 02093000 CVTRV416 EQU CVTRV409 02094000 CVTRV415 EQU CVTRV409 02095000 CVTRV414 EQU CVTRV409 02096000 CVTRV413 EQU CVTRV409 02097000 CVTRV412 EQU CVTRV409 02098000 CVTRV411 EQU CVTRV409 02099000 CVTRV410 EQU CVTRV409 02100000 CVTRV408 EQU CVTRV400 02101000 CVTRV407 EQU CVTRV400 02102000 CVTRV406 EQU CVTRV400 02103000 CVTRV405 EQU CVTRV400 02104000 CVTRV404 EQU CVTRV400 02105000 CVTRV403 EQU CVTRV400 02106000 CVTRV402 EQU CVTRV400 02107000 CVTRV401 EQU CVTRV400 02108000 CVTICB EQU CVTXTNT2+48 02109000 CVTSKTA EQU CVTXTNT2+44 02110000 CVTCCVT EQU CVTXTNT2+40 02111000 CVTRSV98 EQU CVTXTNT2+36 02112000 CVTRSV97 EQU CVTXTNT2+34 02113000 CVTRSV96 EQU CVTXTNT2+32 02114000 CVTOLTEP EQU CVTXTNT2+28 02115000 CVTQIDA EQU CVTQID+1 02116000 CVTRSV95 EQU CVTQID 02117000 CVTRSV94 EQU CVTXTNT2+20 02118000 CVTRSV93 EQU CVTXTNT2+16 02119000 CVTRSV92 EQU CVTXTNT2+12 02120000 CVTDEBVR EQU CVTXTNT2+8 02121000 CVTRSV91 EQU CVTXTNT2+6 02122000 CVTRSV9H EQU CVTFLGBT 02123000 CVTRSV9G EQU CVTFLGBT 02124000 CVTRSV9F EQU CVTFLGBT 02125000 CVTRSV9E EQU CVTFLGBT 02126000 CVTRSV9D EQU CVTFLGBT 02127000 CVTRSV9C EQU CVTFLGBT 02128000 CVTVME EQU CVTFLGBT 02129000 CVTNPE EQU CVTFLGBT 02130000 CVTNUCLS EQU CVTXTNT2+4 02131000 CVTDSSVA EQU CVTDSSV+1 02132000 CVTRSV89 EQU CVTDSSV 02133000 CVTRSV88 EQU CVTXTNT1+8 02134000 CVTRSV87 EQU CVTXTNT1+4 02135000 CVTFACHN EQU CVTXTNT1 02136000 CVTRV488 EQU CVTMAP+412 02137000 CVTRV487 EQU CVTMAP+408 02138000 CVTRV486 EQU CVTMAP+404 02139000 CVTRV485 EQU CVTMAP+400 02140000 CVTACTAP EQU CVTMAP+396 02141000 CVTAUTH EQU CVTMAP+392 02142000 CVTATMCA EQU CVTATMCT+1 02143000 CVTATMST EQU CVTATMCT 02144000 CVTRSV61 EQU CVTMAP+384 02145000 CVTVOLT1 EQU CVTVOLM1+1 02146000 CVTVOLI1 EQU CVTVOLF1 02147000 CVTSTOA EQU CVTMAP+376 02148000 CVTRSV58 EQU CVTMAP+374 02149000 CVTRSV57 EQU CVTMAP+372 02150000 CVTDDCE EQU CVTMAP+368 02151000 CVTPNWFR EQU CVTMAP+364 02152000 CVTSMF EQU CVTMAP+360 02153000 CVTSULK EQU CVTMAP+358 02154000 CVTSLKO EQU CVTSYSK 02155000 CVTSLKP EQU CVTSYSK 02156000 CVTSLKQ EQU CVTSYSK 02157000 CVTSLKR EQU CVTSYSK 02158000 CVTRSV56 EQU CVTSYSK 02159000 CVTRSV55 EQU CVTSYSK 02160000 CVTRSV54 EQU CVTSYSK 02161000 CVTRSV53 EQU CVTSYSK 02162000 CVTRSV52 EQU CVTA1F1 02163000 CVTRSV51 EQU CVTA1F1 02164000 CVTRSV50 EQU CVTA1F1 02165000 CVTRSV49 EQU CVTA1F1 02166000 CVTRSV48 EQU CVTA1F1 02167000 CVTRSV47 EQU CVTA1F1 02168000 CVTSRSW EQU CVTA1F1 02169000 CVTPFSW EQU CVTA1F1 02170000 CVTPCVT EQU CVTMAP+352 02171000 CVTRSV46 EQU CVTMAP+344 02172000 CVTRSV45 EQU CVTMAP+340 02173000 CVTRSV44 EQU CVTMAP+338 02174000 CVTRSV43 EQU CVTMAP+336 02175000 CVTHJESA EQU CVTHJES+1 02176000 CVTRSV42 EQU CVTHJES 02177000 CVTEXT2A EQU CVTEXT2+1 02178000 CVTRSV41 EQU CVTEXT2 02179000 CVTAPFA EQU CVTAPF+1 02180000 CVTRSV40 EQU CVTAPF 02181000 CVTRV518 EQU CVTINTLA 02182000 CVTRV517 EQU CVTERPV 02183000 CVTEORM EQU CVTMAP+312 02184000 CVTMCHPR EQU CVTMAP+308 02185000 CVTTZ EQU CVTMAP+304 02186000 CVTJEPS EQU CVTMAP+300 02187000 CVTJESCT EQU CVTMAP+296 02188000 CVTMODE EQU CVTMAP+292 02189000 CVTPTRV EQU CVTMAP+288 02190000 CVTREAL EQU CVTMAP+284 02191000 CVTRSV39 EQU CVTMAP+280 02192000 CVTRSV38 EQU CVTMAP+276 02193000 CVTDMSRA EQU CVTDMSR+1 02194000 CVTRV634 EQU CVTDMSRF 02195000 CVTRV633 EQU CVTDMSRF 02196000 CVTRV632 EQU CVTDMSRF 02197000 CVTRV631 EQU CVTDMSRF 02198000 CVTRV630 EQU CVTDMSRF 02199000 CVTRV629 EQU CVTDMSRF 02200000 CVTUDUMP EQU CVTDMSRF 02201000 CVTSDUMP EQU CVTDMSRF 02202000 CVTQMSGA EQU CVTQMSG+1 02203000 CVTRSV36 EQU CVTQMSG 02204000 CVTAMFF EQU CVTMAP+264 02205000 CVTPURGA EQU CVTPURG+1 02206000 CVTRSV35 EQU CVTPURG 02207000 CVTCBSP EQU CVTMAP+256 02208000 CVTATERA EQU CVTATER+1 02209000 CVTSYST EQU CVTATER 02210000 CVTVOLT2 EQU CVTTAT 02211000 CVTVOLI2 EQU CVTVOLF2 02212000 CVTAQAVB EQU CVTAQAVT+1 02213000 CVTRSV34 EQU CVTTCMFG 02214000 CVTRSV33 EQU CVTTCMFG 02215000 CVTRSV32 EQU CVTTCMFG 02216000 CVTRSV31 EQU CVTTCMFG 02217000 CVTRSV30 EQU CVTTCMFG 02218000 CVTRSV29 EQU CVTTCMFG 02219000 CVTLDEV EQU CVTTCMFG 02220000 CVTTCRDY EQU CVTTCMFG 02221000 CVTGTFA EQU CVTGTF+1 02222000 CVTRSV27 EQU CVTGTFST 02223000 CVTRNIO EQU CVTGTFST 02224000 CVTUSR EQU CVTGTFST 02225000 CVTRV318 EQU CVTFORM 02226000 CVTRV317 EQU CVTTMODE 02227000 CVTRV316 EQU CVTSTATE 02228000 CVTRV315 EQU CVTGTFS 02229000 CVTGTFAV EQU CVTGTFS 02230000 CVT0SCR1 EQU CVTMAP+232 02231000 CVTRV515 EQU CVTMAP+228 02232000 CVTRMS EQU CVTMAP+224 02233000 CVTPATCH EQU CVTMAP+220 02234000 CVTTSCE EQU CVTMAP+216 02235000 CVTLNKSC EQU CVTMAP+214 02236000 CVTQABST EQU CVTMAP+212 02237000 CVTMDLDS EQU CVTMAP+208 02238000 CVTUSER EQU CVTMAP+204 02239000 CVTABEND EQU CVTMAP+200 02240000 CVTSMCA EQU CVTMAP+196 02241000 CVTRSV18 EQU CVTMAP+192 02242000 CVTQLPAQ EQU CVTMAP+188 02243000 CVTQCDSR EQU CVTMAP+184 02244000 CVTRSV17 EQU CVTOPTB 02245000 CVTRSV16 EQU CVTOPTB 02246000 CVTFP EQU CVTOPTB 02247000 CVTAPTHR EQU CVTOPTB 02248000 CVTNLOG EQU CVTOPTB 02249000 CVTTOD EQU CVTOPTB 02250000 CVTCTIMS EQU CVTOPTB 02251000 CVTPROT EQU CVTOPTB 02252000 CVTXPFP EQU CVTOPTA 02253000 CVTASCII EQU CVTOPTA 02254000 CVTRSV13 EQU CVTOPTA 02255000 CVTRSV12 EQU CVTOPTA 02256000 CVTNIP EQU CVTOPTA 02257000 CVTDDR EQU CVTOPTA 02258000 CVTAPR EQU CVTOPTA 02259000 CVTCCH EQU CVTOPTA 02260000 CVTSNCTR EQU CVTMAP+180 02261000 CVTQMWR EQU CVTMAP+176 02262000 CVTQOCR EQU CVTMAP+172 02263000 CVT1EF00 EQU CVTMAP+168 02264000 CVTMZ00 EQU CVTMAP+164 02265000 CVTSV76Q EQU CVTSV76C 02266000 CVTRSV11 EQU CVTMAP+156 02267000 CVT0PT01 EQU CVTMAP+152 02268000 CVTMSER EQU CVTMAP+148 02269000 CVTRV516 EQU CVTIERLC 02270000 CVTILCH EQU CVTMAP+140 02271000 CVT0DS EQU CVTMAP+136 02272000 CVTFBOSV EQU CVTMAP+132 02273000 CVTNUCB EQU CVTMAP+128 02274000 CVTIXAVL EQU CVTMAP+124 02275000 CVTSV76M EQU CVTIOQET 02276000 CVTDCBA EQU CVTMAP+117 02277000 CVTMVS2 EQU CVTDCB 02278000 CVT6DAT EQU CVTDCB 02279000 CVT4MPS EQU CVTDCB 02280000 CVTRSV09 EQU CVTDCB 02281000 CVT4MS1 EQU CVTDCB 02282000 CVT2SPS EQU CVTDCB 02283000 CVT1SSS EQU CVTDCB 02284000 CVTRSV08 EQU CVTDCB 02285000 CVTSTB EQU CVTMAP+112 02286000 CVTQTD00 EQU CVTMAP+108 02287000 CVTQTE00 EQU CVTMAP+104 02288000 CVTCUCB EQU CVTMAP+100 02289000 CVTSJQ EQU CVTMAP+96 02290000 CVTPBLDL EQU CVTMAP+92 02291000 CVTTPC EQU CVTMAP+88 02292000 CVTSVDCB EQU CVTMAP+84 02293000 CVTBRET EQU CVTMAP+82 02294000 CVTEXIT EQU CVTMAP+80 02295000 CVT0FN00 EQU CVTMAP+76 02296000 CVTDARA EQU CVTDAR+1 02297000 CVTRSV07 EQU CVTFLGS1 02298000 CVTRSV06 EQU CVTFLGS1 02299000 CVTRSV05 EQU CVTFLGS1 02300000 CVTRSV04 EQU CVTFLGS1 02301000 CVTRSV03 EQU CVTFLGS1 02302000 CVTRSV02 EQU CVTFLGS1 02303000 CVTRSV01 EQU CVTFLGS1 02304000 CVTDMPLK EQU CVTFLGS1 02305000 CVTXITP EQU CVTMAP+68 02306000 CVTZDTAB EQU CVTMAP+64 02307000 CVTMSLT EQU CVTMAP+60 02308000 CVTDATE EQU CVTMAP+56 02309000 CVTBTERM EQU CVTMAP+52 02310000 CVTSYSAD EQU CVTMAP+48 02311000 CVTXTLER EQU CVTMAP+44 02312000 CVTILK2 EQU CVTMAP+40 02313000 CVTILK1 EQU CVTMAP+36 02314000 CVTPRLTV EQU CVTMAP+32 02315000 CVTPCNVT EQU CVTMAP+28 02316000 CVT0VL00 EQU CVTMAP+24 02317000 CVTXAPG EQU CVTMAP+20 02318000 CVTBUF EQU CVTMAP+16 02319000 CVTJOB EQU CVTMAP+12 02320000 CVTLINK EQU CVTMAP+8 02321000 CVT0EF00 EQU CVTMAP+4 02322000 CVTTCBP EQU CVTMAP 02323000 CVT EQU CVTMAP 02324000 @NM00004 EQU CSD+160 02325000 CSDMASK EQU CSD+128 02326000 CSDUCNT EQU CSD+124 02327000 CSDTCNT EQU CSD+120 02328000 CSDGDTOD EQU CSD+116 02329000 CSDGDINT EQU CSD+112 02330000 CSDGDCC EQU CSD+108 02331000 CSDDDRCT EQU CSD+106 02332000 CSDRV044 EQU CSD+104 02333000 CSDMAFF EQU CSD+24 02334000 CSDRV038 EQU CSDFLAGS 02335000 CSDRV037 EQU CSDFLAGS 02336000 CSDRV036 EQU CSDFLAGS 02337000 CSDRV035 EQU CSDFLAGS 02338000 CSDRV034 EQU CSDFLAGS 02339000 CSDRV033 EQU CSDFLAGS 02340000 CSDRV032 EQU CSDFLAGS 02341000 CSDMP EQU CSDFLAGS 02342000 CSDACR EQU CSD+22 02343000 CSDMF1CP EQU CSD+20 02344000 CSDRV043 EQU CSD+16 02345000 CSDRV030 EQU CSDSCFL4 02346000 CSDRV029 EQU CSDSCFL4 02347000 CSDRV028 EQU CSDSCFL4 02348000 CSDRV027 EQU CSDSCFL4 02349000 CSDRV026 EQU CSDSCFL4 02350000 CSDRV025 EQU CSDSCFL4 02351000 CSDRV024 EQU CSDSCFL4 02352000 CSDRV023 EQU CSDSCFL4 02353000 CSDRV022 EQU CSDSCFL3 02354000 CSDRV021 EQU CSDSCFL3 02355000 CSDRV020 EQU CSDSCFL3 02356000 CSDRV019 EQU CSDSCFL3 02357000 CSDRV018 EQU CSDSCFL3 02358000 CSDRV017 EQU CSDSCFL3 02359000 CSDRV016 EQU CSDSCFL3 02360000 CSDRV015 EQU CSDSCFL3 02361000 CSDRV014 EQU CSDSCFL2 02362000 CSDRV013 EQU CSDSCFL2 02363000 CSDRV012 EQU CSDSCFL2 02364000 CSDRV011 EQU CSDSCFL2 02365000 CSDRV010 EQU CSDSCFL2 02366000 CSDRV009 EQU CSDSCFL2 02367000 CSDRV008 EQU CSDSCFL2 02368000 CSDRV007 EQU CSDSCFL2 02369000 CSDRV006 EQU CSDSCFL1 02370000 CSDRV005 EQU CSDSCFL1 02371000 CSDRV004 EQU CSDSCFL1 02372000 CSDRV003 EQU CSDSCFL1 02373000 CSDRV002 EQU CSDSCFL1 02374000 CSDRV001 EQU CSDSCFL1 02375000 CSDSYSND EQU CSDSCFL1 02376000 CSDRV042 EQU CSDSCFL1 02377000 CSDSAFF EQU CSDCPUAL 02378000 CSDCHAD EQU CSD+6 02379000 CSDCPUJS EQU CSD+4 02380000 CSDCSD EQU CSD 02381000 LCCAR125 EQU LCCA+964 02382000 LCCAR124 EQU LCCA+960 02383000 LCCASGPR EQU LCCA+896 02384000 LCCADRT2 EQU LCCA+888 02385000 LCCADRT1 EQU LCCA+880 02386000 LCCAR103 EQU LCCA+876 02387000 LCCAESS2 EQU LCCA+872 02388000 LCCASPLJ EQU LCCA+868 02389000 LCCASMQJ EQU LCCA+864 02390000 LCCAIRT EQU LCCA+736 02391000 LCCAASID EQU LCCA+732 02392000 LCCARV89 EQU LCCA+728 02393000 LCCAPGTA EQU LCCASRBF+2 02394000 LCCASAFN EQU LCCASRBF 02395000 LCCAECSA EQU LCCA+716 02396000 LCCAICR0 EQU LCCA+712 02397000 LCCALWTM EQU LCCA+704 02398000 LCCARV78 EQU LCCA+700 02399000 LCCAPINV EQU LCCA+696 02400000 LCCARV88 EQU LCCA+695 02401000 LCCARV87 EQU LCCALKFG 02402000 LCCARV86 EQU LCCALKFG 02403000 LCCARV85 EQU LCCALKFG 02404000 LCCARV84 EQU LCCALKFG 02405000 LCCALKRD EQU LCCALKFG 02406000 LCCALKAQ EQU LCCALKFG 02407000 LCCALKSA EQU LCCALKFG 02408000 LCCALKDP EQU LCCALKFG 02409000 LCCACRST EQU LCCACREX 02410000 LCCACRDP EQU LCCACREX 02411000 LCCACRLM EQU LCCACREX 02412000 LCCACRIN EQU LCCACREX 02413000 LCCACRRT EQU LCCACREX 02414000 LCCACRLE EQU LCCACREX 02415000 LCCACRRM EQU LCCACREX 02416000 LCCACREF EQU LCCACREX 02417000 LCCAVARY EQU LCCACRFL 02418000 LCCARV73 EQU LCCACRFL 02419000 LCCARV72 EQU LCCACRFL 02420000 LCCARV71 EQU LCCACRFL 02421000 LCCARV70 EQU LCCACRFL 02422000 LCCARV69 EQU LCCACRFL 02423000 LCCACLMS EQU LCCACRFL 02424000 LCCACRTM EQU LCCACRFL 02425000 LCCALCR0 EQU LCCA+688 02426000 LCCACRLC EQU LCCA+684 02427000 LCCARCPU EQU LCCA+680 02428000 LCCADCPU EQU LCCA+676 02429000 LCCASRBJ EQU LCCA+672 02430000 LCCADSSR EQU LCCA+668 02431000 LCCADSSC EQU LCCA+660 02432000 LCCADSS3 EQU LCCA+648 02433000 LCCADSS2 EQU LCCA+636 02434000 LCCADSS1 EQU LCCA+624 02435000 LCCAITOD EQU LCCA+608 02436000 LCCADTOD EQU LCCA+600 02437000 LCCASTOD EQU LCCA+592 02438000 LCCARIR5 EQU LCCASPSA+44 02439000 LCCARIR4 EQU LCCASPSA+40 02440000 LCCARIR3 EQU LCCASPSA+36 02441000 LCCARIR2 EQU LCCASPSA+32 02442000 LCCARPR5 EQU LCCASPSA+28 02443000 LCCARPR4 EQU LCCASPSA+24 02444000 LCCARPR3 EQU LCCASPSA+20 02445000 LCCARPR2 EQU LCCASPSA+16 02446000 LCCADSR5 EQU LCCASPSA+12 02447000 LCCADSR4 EQU LCCASPSA+8 02448000 LCCADSR3 EQU LCCASPSA+4 02449000 LCCADSR2 EQU LCCASPSA 02450000 LCCARV68 EQU LCCA+543 02451000 LCCAPSMK EQU LCCA+542 02452000 LCCARV67 EQU LCCADSF2 02453000 LCCARV66 EQU LCCADSF2 02454000 LCCARV65 EQU LCCADSF2 02455000 LCCARV64 EQU LCCADSF2 02456000 LCCADSRW EQU LCCADSF2 02457000 LCCADSPL EQU LCCADSF2 02458000 LCCAGSRB EQU LCCADSF2 02459000 LCCASRBM EQU LCCADSF2 02460000 LCCARV61 EQU LCCADSF1 02461000 LCCARV60 EQU LCCADSF1 02462000 LCCARV59 EQU LCCADSF1 02463000 LCCARV58 EQU LCCADSF1 02464000 LCCATIMR EQU LCCADSF1 02465000 LCCADSS EQU LCCADSF1 02466000 LCCAVCPU EQU LCCADSF1 02467000 LCCAACR EQU LCCADSF1 02468000 LCCACPUS EQU LCCA+536 02469000 LCCAASCP EQU LCCA+532 02470000 LCCAESSA EQU LCCA+528 02471000 LCCARV55 EQU LCCASPN4 02472000 LCCARV54 EQU LCCASPN4 02473000 LCCARV53 EQU LCCASPN4 02474000 LCCARV52 EQU LCCASPN4 02475000 LCCARV51 EQU LCCASPN4 02476000 LCCARV50 EQU LCCASPN4 02477000 LCCARV49 EQU LCCASPN4 02478000 LCCARV48 EQU LCCASPN4 02479000 LCCARV47 EQU LCCASPN3 02480000 LCCARV46 EQU LCCASPN3 02481000 LCCARV45 EQU LCCASPN3 02482000 LCCARV44 EQU LCCASPN3 02483000 LCCARV43 EQU LCCASPN3 02484000 LCCARV42 EQU LCCASPN3 02485000 LCCARV41 EQU LCCASPN3 02486000 LCCARV40 EQU LCCASPN3 02487000 LCCARV39 EQU LCCASPN2 02488000 LCCARV38 EQU LCCASPN2 02489000 LCCARV37 EQU LCCASPN2 02490000 LCCARV36 EQU LCCASPN2 02491000 LCCARV35 EQU LCCASPN2 02492000 LCCARV34 EQU LCCASPN2 02493000 LCCARV33 EQU LCCASPN2 02494000 LCCARV32 EQU LCCASPN2 02495000 LCCARV31 EQU LCCASPN1 02496000 LCCARV30 EQU LCCASPN1 02497000 LCCAMFIO EQU LCCASPN1 02498000 LCCARSTR EQU LCCASPN1 02499000 LCCATSPN EQU LCCASPN1 02500000 LCCALOCK EQU LCCASPN1 02501000 LCCASIGP EQU LCCASPN1 02502000 LCCAPTLB EQU LCCASPN1 02503000 LCCARV27 EQU LCCAIHR4 02504000 LCCARV26 EQU LCCAIHR4 02505000 LCCARV25 EQU LCCAIHR4 02506000 LCCARV24 EQU LCCAIHR4 02507000 LCCARV23 EQU LCCAIHR4 02508000 LCCARV22 EQU LCCAIHR4 02509000 LCCARV21 EQU LCCAIHR4 02510000 LCCARV20 EQU LCCAIHR4 02511000 LCCARV19 EQU LCCAIHR3 02512000 LCCARV18 EQU LCCAIHR3 02513000 LCCARV17 EQU LCCAIHR3 02514000 LCCARV16 EQU LCCAIHR3 02515000 LCCARV15 EQU LCCAIHR3 02516000 LCCARV14 EQU LCCAIHR3 02517000 LCCARV13 EQU LCCAIHR3 02518000 LCCARV12 EQU LCCAIHR3 02519000 LCCARV11 EQU LCCAIHR2 02520000 LCCARV10 EQU LCCAIHR2 02521000 LCCARV09 EQU LCCAIHR2 02522000 LCCARV08 EQU LCCAIHR2 02523000 LCCARV07 EQU LCCAIHR2 02524000 LCCARV06 EQU LCCAIHR2 02525000 LCCARV05 EQU LCCAIHR2 02526000 LCCARV04 EQU LCCAIHR2 02527000 LCCARV03 EQU LCCAIHR1 02528000 LCCARV02 EQU LCCAIHR1 02529000 LCCARV01 EQU LCCAIHR1 02530000 LCCAPPIE EQU LCCAIHR1 02531000 LCCAPSG1 EQU LCCAIHR1 02532000 LCCAPDAT EQU LCCAIHR1 02533000 LCCAXRC2 EQU LCCAIHR1 02534000 LCCAXRC1 EQU LCCAIHR1 02535000 LCCAIOPS EQU LCCA+512 02536000 LCCAGPGR EQU LCCA+448 02537000 LCCAR133 EQU LCCA+444 02538000 LCCAR132 EQU LCCA+440 02539000 LCCAR131 EQU LCCA+436 02540000 LCCAR130 EQU LCCA+432 02541000 LCCAR129 EQU LCCA+428 02542000 LCCAR128 EQU LCCA+424 02543000 LCCAR127 EQU LCCA+420 02544000 LCCAR126 EQU LCCA+416 02545000 LCCARSGR EQU LCCA+352 02546000 LCCAXGR3 EQU LCCA+288 02547000 LCCAXGR2 EQU LCCA+224 02548000 LCCAXGR1 EQU LCCA+160 02549000 LCCACR0 EQU LCCA+156 02550000 LCCAMCR1 EQU LCCA+152 02551000 LCCAPVAD EQU LCCA+148 02552000 LCCAPINT EQU LCCA+144 02553000 LCCAPPSW EQU LCCA+136 02554000 LCCAPGR2 EQU LCCA+72 02555000 LCCAPGR1 EQU LCCA+8 02556000 LCCARV77 EQU LCCA+6 02557000 LCCACPUA EQU LCCA+4 02558000 LCCALCCA EQU LCCA 02559000 PVTEND EQU PVT+1848 02560000 PVTTASID EQU PVT+1846 02561000 PVTXXXXX EQU PVT+1844 02562000 PVTMVCLC EQU PVT+1840 02563000 PVTSPARE EQU PVT+1838 02564000 PVTCHUIC EQU PVT+1836 02565000 PVTCOMFX EQU PVT+1834 02566000 PVTSQAFX EQU PVT+1832 02567000 PVTCNTFX EQU PVT+1830 02568000 PVTDEFFX EQU PVT+1828 02569000 PVTFIXOK EQU PVT+1826 02570000 PVTPEROK EQU PVT+1824 02571000 PVTMAXFX EQU PVT+1822 02572000 PVTPERFX EQU PVT+1820 02573000 PVTRSRB EQU PVT+1776 02574000 PVTRESV5 EQU PVT+1773 02575000 PVTSRBS EQU PVT+1772 02576000 PVTSSRB EQU PVT+1768 02577000 PVTACA EQU PVTWSAX+1400 02578000 PVTSAVE EQU PVTWSAX+1328 02579000 PVTWSA18 EQU PVTWSAX+1256 02580000 PVTWSA17 EQU PVTWSAX+1184 02581000 PVTWSA16 EQU PVTWSAX+1112 02582000 PVTWSA15 EQU PVTWSAX+1040 02583000 PVTWSA14 EQU PVTWSAX+968 02584000 PVTWSA13 EQU PVTWSAX+896 02585000 PVTWSA12 EQU PVTWSAX+824 02586000 PVTWSA11 EQU PVTWSAX+752 02587000 PVTWSA10 EQU PVTWSAX+672 02588000 PVTWSA9 EQU PVTWSAX+592 02589000 PVTWSA8 EQU PVTWSAX+504 02590000 PVTWSA7 EQU PVTWSAX+432 02591000 PVTWSA6 EQU PVTWSAX+360 02592000 PVTWSA5 EQU PVTWSAX+288 02593000 PVTWSA4 EQU PVTWSAX+216 02594000 PVTWSA3 EQU PVTWSAX+144 02595000 PVTWSA2 EQU PVTWSAX+72 02596000 PVTWSA1 EQU PVTWSAX 02597000 PVTCIOQL EQU PVTQS+36 02598000 PVTCIOQF EQU PVTQS+32 02599000 PVTGFADL EQU PVTQS+28 02600000 PVTGFADF EQU PVTQS+24 02601000 PVTFPCBL EQU PVTQS+20 02602000 PVTFPCBF EQU PVTQS+16 02603000 PVTSQAQL EQU PVTQS+14 02604000 PVTSQAQF EQU PVTQS+12 02605000 PVTCFQL EQU PVTQS+10 02606000 PVTCFQF EQU PVTQS+8 02607000 PVTRSRVL EQU PVTQS+6 02608000 PVTRSRVF EQU PVTQS+4 02609000 PVTAFQL EQU PVTQS+2 02610000 PVTAFQF EQU PVTQS 02611000 PVTSPFR EQU PVT+302 02612000 PVTCFMCT EQU PVT+300 02613000 PVTSPREC EQU PVT+296 02614000 PVTCAREC EQU PVT+292 02615000 PVTCAOUT EQU PVT+288 02616000 PVTCAIN EQU PVT+284 02617000 PVTNSWPS EQU PVT+280 02618000 PVTNPREC EQU PVT+276 02619000 PVTSPOUT EQU PVT+272 02620000 PVTSPIN EQU PVT+268 02621000 PVTVAMR EQU PVT+264 02622000 PVTVAMO EQU PVT+260 02623000 PVTVAMI EQU PVT+256 02624000 PVTNPOUT EQU PVT+252 02625000 PVTNPIN EQU PVT+248 02626000 PVTPRSET EQU PVT+244 02627000 PVTFRSLT EQU PVT+240 02628000 PVTPAGIO EQU PVT+236 02629000 PVTSWPIO EQU PVT+232 02630000 PVTPSWPP EQU PVT+228 02631000 PVTPPREF EQU PVT+224 02632000 PVTPOPBR EQU PVT+220 02633000 PVTPRELF EQU PVT+216 02634000 PVTPRELV EQU PVT+212 02635000 PVTPFREE EQU PVT+208 02636000 PVTPRELS EQU PVT+204 02637000 PVTPOUT EQU PVT+200 02638000 PVTPFXLD EQU PVT+196 02639000 PVTPITAS EQU PVT+192 02640000 PVTPSRBP EQU PVT+188 02641000 PVTPDSEG EQU PVT+184 02642000 PVTPCSGB EQU PVT+180 02643000 PVTPCSEG EQU PVT+176 02644000 PVTPINV EQU PVT+172 02645000 PVTPSWPC EQU PVT+168 02646000 PVTPSOUT EQU PVT+164 02647000 PVTPSWIN EQU PVT+160 02648000 PVTPRCV EQU PVT+156 02649000 PVTPRCFI EQU PVT+152 02650000 PVTPRCF EQU PVT+148 02651000 PVTPVRC EQU PVT+144 02652000 PVTPVRIN EQU PVT+140 02653000 PVTPVRLS EQU PVT+136 02654000 PVTPVEQR EQU PVT+132 02655000 PVTPPIOI EQU PVT+128 02656000 PVTPVRPO EQU PVT+124 02657000 PVTPRFR EQU PVT+120 02658000 PVTPFP2 EQU PVT+116 02659000 PVTPFP EQU PVT+112 02660000 PVTPFTE EQU PVT+108 02661000 PVTPCB EQU PVT+104 02662000 PVTREP2 EQU PVT+100 02663000 PVTPIOCP EQU PVT+96 02664000 PVTPIOP EQU PVT+92 02665000 PVTPGFAD EQU PVT+88 02666000 PVTPGFA EQU PVT+84 02667000 PVTPSQA EQU PVT+80 02668000 PVTPSINT EQU PVT+76 02669000 PVTPSIB EQU PVT+72 02670000 PVTSRBID EQU PVT+68 02671000 PVTPCIWA EQU PVT+64 02672000 PVTHQSA EQU PVT+62 02673000 PVTLQSA EQU PVT+60 02674000 PVTOROOT EQU PVT+56 02675000 PVTPRCA EQU PVT+52 02676000 PVTREUS EQU PVT+48 02677000 PVTSQNPC EQU PVT+47 02678000 PVTSQVRC EQU PVT+46 02679000 PVTRSUS EQU PVT+44 02680000 PVTVROOT EQU PVT+40 02681000 PVTPCBLO EQU PVT+38 02682000 PVTPCBCT EQU PVT+36 02683000 PVTDFRS EQU PVT+34 02684000 PVTRSQA EQU PVT+32 02685000 PVTPTLB EQU PVT+31 02686000 PVTPCBNO EQU PVT+30 02687000 PVTSRBNO EQU PVT+29 02688000 PVTSQDC EQU PVT+28 02689000 PVTLCSA EQU PVT+26 02690000 PVTLPRIV EQU PVT+24 02691000 PVTLVR EQU PVT+22 02692000 PVTFVR EQU PVT+20 02693000 PVTLPFN EQU PVT+18 02694000 PVTFPFN EQU PVT+16 02695000 PVTPFTP EQU PVT+12 02696000 PVTSSPIN EQU PVT+11 02697000 PVTPCBS EQU PVT+10 02698000 PVTPOOL EQU PVT+8 02699000 PVTAFCOK EQU PVT+6 02700000 PVTAFCLO EQU PVT+4 02701000 PVTAFC EQU PVT+2 02702000 @NM00003 EQU PVTFLAG2 02703000 PVTRSMGM EQU PVTFLAG2 02704000 PVTDUMP EQU PVTFLAG1 02705000 PVTSIT EQU PVTFLAG1 02706000 PVTLSI EQU PVTFLAG1 02707000 PVTAPREF EQU PVTFLAG1 02708000 PVTPCBLT EQU PVTFLAG1 02709000 PVTSRBIU EQU PVTFLAG1 02710000 PVTBGMS EQU PVTFLAG1 02711000 PVTPMSG EQU PVTFLAG1 02712000 RMEPSND EQU RMEP+32 02713000 RMEPTME EQU RMEPSCH+8 02714000 RMEPBCK EQU RMEPSCH+4 02715000 RMEPFWD EQU RMEPSCH 02716000 RMEPEND EQU RMEP+16 02717000 RMEPPRV EQU RMEPEPB+12 02718000 RMEPACN EQU RMEPFLG+3 02719000 RMEPTMD EQU RMEPFLG+3 02720000 RMEPRCR EQU RMEPFLG+3 02721000 RMEPVFL EQU RMEPFLG 02722000 RMEPERA EQU RMEPEPB+4 02723000 RMEPEPA EQU RMEPEPB 02724000 OUXBEND EQU OUXB+144 02725000 OUXBTSW EQU OUXB+140 02726000 OUXBFIXC EQU OUXB+138 02727000 OUXBNVC EQU OUXB+136 02728000 OUXBUIC EQU OUXB+134 02729000 OUXBVSC EQU OUXB+132 02730000 OUXBILS EQU OUXB+128 02731000 OUXBRSV1 EQU OUXB+126 02732000 OUXBPRS EQU OUXB+120 02733000 OUXBSTD EQU OUXB+116 02734000 OUXBITD EQU OUXB+112 02735000 OUXBMSS EQU OUXB+104 02736000 OUXBTRR EQU OUXB+88 02737000 OUXBJBR EQU OUXB+84 02738000 OUXBTRT EQU OUXB+80 02739000 OUXBTRS EQU OUXB+76 02740000 OUXBJBT EQU OUXB+72 02741000 OUXBJBS EQU OUXB+68 02742000 OUXBTRC EQU OUXB+64 02743000 OUXBIOSM EQU OUXB+56 02744000 OUXBSTC EQU OUXB+54 02745000 OUXBIOS EQU OUXB+52 02746000 OUXBSTCT EQU OUXB+48 02747000 OUXBCAPR EQU OUXB+44 02748000 OUXBCAPI EQU OUXB+40 02749000 OUXBVAMR EQU OUXB+36 02750000 OUXBVAMO EQU OUXB+32 02751000 OUXBVAMI EQU OUXB+28 02752000 OUXBPREC EQU OUXB+24 02753000 OUXBPOUT EQU OUXB+20 02754000 OUXBPIN EQU OUXB+16 02755000 OUXBRSW EQU OUXB+12 02756000 OUXBMET EQU OUXB+8 02757000 OUXBPET EQU OUXB+4 02758000 OUXBNAME EQU OUXB 02759000 OUCBEND EQU OUCB+136 02760000 OUCBNTSP EQU OUCB+134 02761000 OUCBNDS EQU OUCB+132 02762000 OUCBTIO EQU OUCB+128 02763000 OUCBPST EQU OUCB+120 02764000 OUCBPS2 EQU OUCBPSS+4 02765000 OUCBPS1 EQU OUCBPSS 02766000 OUCBIOSM EQU OUCB+108 02767000 OUCBTMP EQU OUCB+104 02768000 OUCBR03 EQU OUCB+102 02769000 OUCBIOR EQU OUCB+100 02770000 OUCBIRV EQU OUCB+96 02771000 OUCBWMR EQU OUCB+92 02772000 OUCBCMRV EQU OUCB+88 02773000 OUCBCF2 EQU OUCBCFL 02774000 OUCBRSM EQU OUCBCFL 02775000 OUCBRDY EQU OUCBCFL 02776000 OUCBACN EQU OUCBCSW 02777000 OUCBACT EQU OUCB+80 02778000 OUCBWSS EQU OUCB+78 02779000 OUCBPSO EQU OUCB+76 02780000 OUCBTMO EQU OUCB+72 02781000 OUCBTMS EQU OUCB+68 02782000 OUCBMSO EQU OUCB+64 02783000 OUCBIOC EQU OUCB+60 02784000 OUCBCPU EQU OUCB+56 02785000 OUCBWMS EQU OUCB+52 02786000 OUCBTMW EQU OUCB+48 02787000 OUCBIMCB EQU OUCB+44 02788000 OUCBSWC EQU OUCB+38 02789000 OUCBSRC EQU OUCB+37 02790000 OUCBDMN EQU OUCB+36 02791000 OUCBDMO EQU OUCB+34 02792000 OUCBWMG EQU OUCB+32 02793000 OUCBPGP EQU OUCB+31 02794000 OUCBR40 EQU OUCB+30 02795000 OUCBR30 EQU OUCB+29 02796000 OUCBSPG EQU OUCB+28 02797000 OUCBRDP EQU OUCB+27 02798000 OUCBRPG EQU OUCB+25 02799000 OUCBNPG EQU OUCB+24 02800000 OUCBUF7 EQU OUCBUFL 02801000 OUCBUF6 EQU OUCBUFL 02802000 OUCBUF5 EQU OUCBUFL 02803000 OUCBTSWC EQU OUCBUFL 02804000 OUCBTSWP EQU OUCBUFL 02805000 OUCBRSWP EQU OUCBUFL 02806000 OUCBJSAS EQU OUCBUFL 02807000 OUCBJSFS EQU OUCBUFL 02808000 OUCBNQC EQU OUCB+22 02809000 OUCBMWT EQU OUCBEFL 02810000 OUCBQSC EQU OUCBEFL 02811000 OUCBQSS EQU OUCBEFL 02812000 OUCBCIM EQU OUCBEFL 02813000 OUCBOWT EQU OUCBEFL 02814000 OUCBTRM EQU OUCBEFL 02815000 OUCBLWT EQU OUCBEFL 02816000 OUCBINC EQU OUCBTFL 02817000 OUCBINP EQU OUCBTFL 02818000 OUCBMAR EQU OUCBTFL 02819000 OUCBPCH EQU OUCBTFL 02820000 OUCBRTR EQU OUCBTFL 02821000 OUCBNTR EQU OUCBTFL 02822000 OUCBSTR EQU OUCBTFL 02823000 OUCBATR EQU OUCBTFL 02824000 OUCBASW EQU OUCBAFL 02825000 OUCBNWT EQU OUCBAFL 02826000 OUCBR02 EQU OUCBAFL 02827000 OUCBJSR EQU OUCBAFL 02828000 OUCBAF0 EQU OUCBAFL 02829000 OUCBFXS EQU OUCBYFL 02830000 OUCBDTA EQU OUCBYFL 02831000 OUCBAXS EQU OUCBYFL 02832000 OUCBPSTR EQU OUCBYFL 02833000 OUCBMNT EQU OUCBYFL 02834000 OUCBLOG EQU OUCBYFL 02835000 OUCBSTT EQU OUCBYFL 02836000 OUCBPSTE EQU OUCBYFL 02837000 OUCBSCN EQU OUCBSFL 02838000 OUCBNSWI EQU OUCBSFL 02839000 OUCBINV EQU OUCBSFL 02840000 OUCBCTI EQU OUCBSFL 02841000 OUCBQF7 EQU OUCBQFL 02842000 OUCBQF6 EQU OUCBQFL 02843000 OUCBOFF EQU OUCBQFL 02844000 OUCBQF3 EQU OUCBQFL 02845000 OUCBTMA EQU OUCB+12 02846000 OUCBBCK EQU OUCB+8 02847000 ASCBEND EQU ASCB+208 02848000 ASCBSWTL EQU ASCB+196 02849000 ASCBRS14 EQU ASCB+195 02850000 ASCBSMCT EQU ASCB+194 02851000 ASCBRS12 EQU ASCB+192 02852000 ASCBPCTT EQU ASCB+188 02853000 ASCBVGTT EQU ASCB+184 02854000 ASCBRV43 EQU ASCBSRQ4 02855000 ASCBRV42 EQU ASCBSRQ4 02856000 ASCBRV41 EQU ASCBSRQ4 02857000 ASCBRV40 EQU ASCBSRQ4 02858000 ASCBRV39 EQU ASCBSRQ4 02859000 ASCBRV38 EQU ASCBSRQ4 02860000 ASCBRV37 EQU ASCBSRQ4 02861000 ASCBRV36 EQU ASCBSRQ4 02862000 ASCBRV35 EQU ASCBSRQ3 02863000 ASCBRV34 EQU ASCBSRQ3 02864000 ASCBRV33 EQU ASCBSRQ3 02865000 ASCBRV32 EQU ASCBSRQ3 02866000 ASCBRV31 EQU ASCBSRQ3 02867000 ASCBRV30 EQU ASCBSRQ3 02868000 ASCBRV29 EQU ASCBSRQ3 02869000 ASCBRV28 EQU ASCBSRQ3 02870000 ASCBRV27 EQU ASCBSRQ2 02871000 ASCBRV26 EQU ASCBSRQ2 02872000 ASCBRV25 EQU ASCBSRQ2 02873000 ASCBRV24 EQU ASCBSRQ2 02874000 ASCBRV23 EQU ASCBSRQ2 02875000 ASCBRV22 EQU ASCBSRQ2 02876000 ASCBRV21 EQU ASCBSRQ2 02877000 ASCBRV20 EQU ASCBSRQ2 02878000 ASCBRV19 EQU ASCBSRQ1 02879000 ASCBRV18 EQU ASCBSRQ1 02880000 ASCBRV17 EQU ASCBSRQ1 02881000 ASCBRV16 EQU ASCBSRQ1 02882000 ASCBRV15 EQU ASCBSRQ1 02883000 ASCBRV14 EQU ASCBSRQ1 02884000 ASCBRV13 EQU ASCBSRQ1 02885000 ASCBSTA EQU ASCBSRQ1 02886000 ASCBJBNS EQU ASCB+176 02887000 ASCBJBNI EQU ASCB+172 02888000 ASCBMCC EQU ASCB+168 02889000 ASCBRTWA EQU ASCB+164 02890000 ASCBIQEA EQU ASCB+160 02891000 ASCBXMPQ EQU ASCB+156 02892000 ASCBRS01 EQU ASCB+154 02893000 ASCBFMCT EQU ASCB+152 02894000 ASCBOUCB EQU ASCB+144 02895000 ASCBMECB EQU ASCB+140 02896000 ASCBQECB EQU ASCB+136 02897000 ASCBLSQH EQU ASCBLKGP+4 02898000 ASCBLOCK EQU ASCBLKGP 02899000 ASCBNVSC EQU ASCB+122 02900000 ASCBVSC EQU ASCB+120 02901000 ASCBSRBS EQU ASCB+118 02902000 ASCBSSRB EQU ASCB+116 02903000 ASCBRV06 EQU ASCBFLG2 02904000 ASCBRV05 EQU ASCBFLG2 02905000 ASCBRV04 EQU ASCBFLG2 02906000 ASCBSNQS EQU ASCBFLG2 02907000 ASCBS2S EQU ASCBFLG2 02908000 ASCBCEXT EQU ASCBFLG2 02909000 ASCBPXMT EQU ASCBFLG2 02910000 ASCBXMPT EQU ASCBFLG2 02911000 ASCBRF07 EQU ASCBDSP1 02912000 ASCBRF06 EQU ASCBDSP1 02913000 ASCBRF05 EQU ASCBDSP1 02914000 ASCBRF04 EQU ASCBDSP1 02915000 ASCBRF03 EQU ASCBDSP1 02916000 ASCBRF02 EQU ASCBDSP1 02917000 ASCBFAIL EQU ASCBDSP1 02918000 ASCBNOQ EQU ASCBDSP1 02919000 ASCBASXB EQU ASCB+108 02920000 ASCBTMCH EQU ASCB+104 02921000 ASCBNSWP EQU ASCBFLG1 02922000 ASCBTYP1 EQU ASCBFLG1 02923000 ASCBSTND EQU ASCBFLG1 02924000 ASCBABNT EQU ASCBFLG1 02925000 ASCBTERM EQU ASCBFLG1 02926000 ASCBS3S EQU ASCBFLG1 02927000 ASCBCMSH EQU ASCBFLG1 02928000 ASCBTOFF EQU ASCBFLG1 02929000 ASCBRF01 EQU ASCBRCTF 02930000 ASCBTMLW EQU ASCBRCTF 02931000 ASCBOUT EQU ASCBRCTF 02932000 ASCBWAIT EQU ASCBRCTF 02933000 ASCBRV08 EQU ASCBRCTF 02934000 ASCBFQU EQU ASCBRCTF 02935000 ASCBFRS EQU ASCBRCTF 02936000 ASCBTMNO EQU ASCBRCTF 02937000 ASCBAFFN EQU ASCBFW1 02938000 ASCBDUMP EQU ASCB+96 02939000 ASCBRV44 EQU ASCB+92 02940000 ASCBUBET EQU ASCB+88 02941000 ASCBECB EQU ASCB+84 02942000 ASCBJSTL EQU ASCB+80 02943000 ASCBEWST EQU ASCB+72 02944000 ASCBTSB EQU ASCB+60 02945000 ASCBCSCB EQU ASCB+56 02946000 ASCBRSMA EQU ASCBRSM+1 02947000 ASCBRV54 EQU ASCBRSMF 02948000 ASCBRV53 EQU ASCBRSMF 02949000 ASCBRV52 EQU ASCBRSMF 02950000 ASCBRV51 EQU ASCBRSMF 02951000 ASCBVEQR EQU ASCBRSMF 02952000 ASCBN2LP EQU ASCBRSMF 02953000 ASCB1LPU EQU ASCBRSMF 02954000 ASCB2LPU EQU ASCBRSMF 02955000 ASCBLDA EQU ASCB+48 02956000 ASCBSTOR EQU ASCB+44 02957000 ASCBRV07 EQU ASCB+42 02958000 ASCBIOSM EQU ASCB+40 02959000 ASCBASID EQU ASCB+36 02960000 ASCBCPUS EQU ASCB+32 02961000 ASCBSPL EQU ASCB+28 02962000 ASCBIOSP EQU ASCB+24 02963000 ASCBSYNC EQU ASCBSUPC+4 02964000 ASCBSVRB EQU ASCBSUPC 02965000 ASCBCMSF EQU ASCB+12 02966000 ASCBBWDP EQU ASCB+8 02967000 ASCBFWDP EQU ASCB+4 02968000 ASCBASCB EQU ASCB 02969000 ASCBEGIN EQU ASCB 02970000 RRPAEND EQU RRPA+24 02971000 RRPARTN EQU RRPAINS 02972000 RRPARTC EQU RRPA+11 02973000 RRPAKEY EQU RRPA+10 02974000 RRPARCI EQU RRPAFLG+1 02975000 RRPARFI EQU RRPAFLG+1 02976000 RRPARTI EQU RRPAFLG+1 02977000 RRPACTL EQU RRPAFLG+1 02978000 RRPAF11 EQU RRPAFLG+1 02979000 RRPAIPS EQU RRPAFLG+1 02980000 RRPAWAR EQU RRPAFLG+1 02981000 RRPAF07 EQU RRPAFLG 02982000 RRPAOPT EQU RRPAFLG 02983000 RRPAF05 EQU RRPAFLG 02984000 RRPAF04 EQU RRPAFLG 02985000 RRPADSP EQU RRPAFLG 02986000 RRPASVC EQU RRPAFLG 02987000 RRPAENB EQU RRPAFLG 02988000 RRPADSB EQU RRPAFLG 02989000 RRPAVLU EQU RRPAINP 02990000 RRPACOD EQU RRPAINC+3 02991000 @NM00002 EQU RRPAFLG0 02992000 RRPANSWI EQU RRPAFLG0 02993000 RRPAASD EQU RRPAINC 02994000 EPSTEND EQU EPST+80 02995000 EPSTCSI EQU RMEPBCSI 02996000 EPSTCSO EQU RMEPBCSO 02997000 EPSTCL3 EQU RMEPBCL3 02998000 EPSTIL3 EQU RMEPBIL3 02999000 EPDTEND EQU EPDT+96 03000000 RMEPBRPS EQU EPDT+80 03001000 RMEPBHIT EQU EPDT+64 03002000 RMEPBUXB EQU EPDT+48 03003000 RMEPBIL4 EQU EPDT+32 03004000 RMEPBDEL EQU EPDT+16 03005000 RMEPBIPS EQU EPDT 03006000 EPATEND EQU EPAT+400 03007000 RMEPBPR1 EQU EPAT+368 03008000 RMEPBEQ1 EQU EPAT+336 03009000 RMEPBAP1 EQU EPAT+304 03010000 RMEPBCL1 EQU EPAT+272 03011000 RMEPBWM2 EQU EPAT+240 03012000 RMEPBIL1 EQU EPAT+208 03013000 RMEPBASM EQU EPAT+176 03014000 RMEPBMS2 EQU EPAT+160 03015000 RMEPBPR5 EQU EPAT+144 03016000 RMEPBMS6 EQU EPAT+112 03017000 RMEPBSQA EQU EPAT+96 03018000 RMEPBRM2 EQU EPAT+64 03019000 RMEPBRM1 EQU EPAT+32 03020000 RMEPBCAP EQU EPAT 03021000 RMSBEND EQU RMSB+120 03022000 RMSBRA9 EQU RMSB+116 03023000 RMSBIL0 EQU RMSB+112 03024000 RMSBCL0 EQU RMSB+108 03025000 RMSBRA6 EQU RMSB+104 03026000 RMSBNOP EQU RMSB+100 03027000 RMSBSET EQU RMSB+96 03028000 RMSBWR6 EQU RMSB+92 03029000 RMSBWR4 EQU RMSB+88 03030000 RMSBTRC EQU RMSB+84 03031000 RMSBWMY EQU RMSB+80 03032000 RMSBWMR EQU RMSB+76 03033000 RMSBWMQ EQU RMSB+72 03034000 RMSBWMO EQU RMSB+68 03035000 RMSBWMN EQU RMSB+64 03036000 RMSBWMK EQU RMSB+60 03037000 RMSBWM4 EQU RMSB+56 03038000 RMSBWM1 EQU RMSB+52 03039000 RMSBWM5 EQU RMSB+48 03040000 RMSBCRY EQU RMSB+44 03041000 RMSBCRN EQU RMSB+40 03042000 RMSBCRL EQU RMSB+36 03043000 RMSBI10 EQU RMSB+32 03044000 RMSBI09 EQU RMSB+28 03045000 RMSBR24 EQU RMSB+24 03046000 RMSBI07 EQU RMSB+20 03047000 RMSBI06 EQU RMSB+16 03048000 RMSBI05 EQU RMSB+12 03049000 RMSBI04 EQU RMSB+8 03050000 RMSBI03 EQU RMSB+4 03051000 RMEXEND EQU RMEX+64 03052000 RMEXSRE EQU RMEX+60 03053000 RMEXXPE EQU RMEX+56 03054000 RMEXRR2 EQU RMEX+52 03055000 RMEXRR1 EQU RMEX+48 03056000 RMEXI48 EQU RMEX+44 03057000 RMEXCET EQU RMEX+40 03058000 RMEXCXX EQU RMEX+36 03059000 RMEXI01 EQU RMEX+32 03060000 RMEXCTL EQU RMEPBCTL 03061000 RMEXEVT EQU RMEPBEVT 03062000 RMCAEND EQU RMCA+168 03063000 RMCAR90 EQU RMCA+164 03064000 RMCAUSSC EQU RMCASRC+36 03065000 RMCAEXSC EQU RMCASRC+32 03066000 RMCANQSC EQU RMCASRC+28 03067000 RMCARQSC EQU RMCASRC+24 03068000 RMCADWSC EQU RMCASRC+20 03069000 RMCARSSC EQU RMCASRC+16 03070000 RMCAXSSC EQU RMCASRC+12 03071000 RMCALWSC EQU RMCASRC+8 03072000 RMCATISC EQU RMCASRC+4 03073000 RMCATOSC EQU RMCASRC 03074000 RMCACPW1 EQU RMCA+120 03075000 RMCACIUS EQU RMCA+118 03076000 RMCAR14 EQU RMCA+116 03077000 RMCAR13 EQU RMCA+112 03078000 RMCAWKA EQU RMCA+80 03079000 RMCAMAS EQU RMCA+76 03080000 RMCAR20 EQU RMCA+74 03081000 RMCABCPG EQU RMCA+73 03082000 RMCALGPG EQU RMCA+72 03083000 RMCAISV EQU RMCA+70 03084000 RMCAR11 EQU RMCA+68 03085000 RMCAINV EQU RMCA+64 03086000 RMCAR10 EQU RMCA+60 03087000 RMCARSV9 EQU RMCA+56 03088000 RMCACHU EQU RMCA+52 03089000 RMCACHP EQU RMCA+48 03090000 RMCARSV8 EQU RMCA+44 03091000 RMCARSV7 EQU RMCA+40 03092000 RMCARSVF EQU RMCAFLGS 03093000 RMCASAAF EQU RMCAFLGS 03094000 RMCARSV5 EQU RMCA+32 03095000 RMCARSV4 EQU RMCA+28 03096000 RMCARSV3 EQU RMCA+24 03097000 RMCATOI EQU RMCA+20 03098000 RMCATRS EQU RMCA+16 03099000 RMCATQS EQU RMCA+12 03100000 RMCARSV2 EQU RMCA+10 03101000 RMCARSV1 EQU RMCA+8 03102000 RMCAINUS EQU RMCA+6 03103000 RMCAR04 EQU RMCA+4 03104000 RMCANAME EQU RMCA 03105000 RMPTEND EQU RMPT+72 03106000 RMPTOPE EQU RMPT+66 03107000 RMPTOPI EQU RMPT+63 03108000 RMPTOPC EQU RMPT+60 03109000 RMPTIOET EQU RMPT+56 03110000 RMPTCPET EQU RMPT+52 03111000 RMPTWMET EQU RMPT+48 03112000 RMPTSAET EQU RMPT+44 03113000 RMPTXCHT EQU RMPT+40 03114000 RMPTRSV3 EQU RMPT+38 03115000 RMPTRSV2 EQU RMPT+36 03116000 RMPTRSV1 EQU RMPT+32 03117000 RMPTTOL EQU RMPT+28 03118000 RMPTTOM EQU RMPT+24 03119000 RMPTTCS EQU RMPT+20 03120000 RMPTIMN EQU RMPT+16 03121000 RMPTIOC EQU RMPT+8 03122000 RMPTCPU EQU RMPT+4 03123000 RMPTNAME EQU RMPT 03124000 RCTEND EQU RCT+88 03125000 RCVRSVF3 EQU RCT+84 03126000 RCVRSVF2 EQU RCT+80 03127000 RCVTAPAD EQU RCT+76 03128000 RCVRSVF1 EQU RCT+74 03129000 RCVTOTDF EQU RCT+72 03130000 RCVBPTTM EQU RCT+68 03131000 RCVBPTCT EQU RCT+64 03132000 RCVASMQ EQU RCT+60 03133000 RCVAVQP EQU RCT+56 03134000 RCVCPUC EQU RCT+52 03135000 RCVUICC EQU RCT+48 03136000 RCVPTR EQU RCT+46 03137000 RCVASMQA EQU RCT+44 03138000 RCVAVQC EQU RCT+42 03139000 RCVCPUA EQU RCT+40 03140000 RCVUICA EQU RCT+38 03141000 RCVCTMC EQU RCT+36 03142000 RCCRSVF3 EQU RCT+32 03143000 RCCRSVF2 EQU RCT+28 03144000 RCCRSVF1 EQU RCT+26 03145000 RCCLCHRR EQU RCT+24 03146000 RCCLCHUT EQU RCT+22 03147000 RCCTOTUT EQU RCT+20 03148000 RCCASMTH EQU RCT+18 03149000 RCCASMTL EQU RCT+16 03150000 RCCPTRTH EQU RCT+14 03151000 RCCPTRTL EQU RCT+12 03152000 RCCCPUTH EQU RCT+10 03153000 RCCCPUTL EQU RCT+8 03154000 RCCUICTH EQU RCT+6 03155000 RCCUICTL EQU RCT+4 03156000 RCTRCT EQU RCT 03157000 MCTEND EQU MCT+96 03158000 MCVRSVF3 EQU MCT+92 03159000 MCVRSVF2 EQU MCT+88 03160000 MCVRSVF1 EQU MCT+84 03161000 MCCINTMX EQU MCT+80 03162000 MCCPR1IN EQU MCT+76 03163000 MCCUICIN EQU MCT+72 03164000 MCCUICBD EQU MCT+68 03165000 MCTRSVB1 EQU MCT+67 03166000 MCTXRSVD EQU MCT+66 03167000 MCTFX2 EQU MCTOFLGS 03168000 MCTFX1 EQU MCTOFLGS 03169000 MCTSMS2 EQU MCTOFLGS 03170000 MCTSMS1 EQU MCTOFLGS 03171000 MCTAMS2 EQU MCTOFLGS 03172000 @NM00001 EQU MCTOFLGS 03173000 MCTASM2 EQU MCTOFLGS 03174000 MCTASM1 EQU MCTOFLGS 03175000 MCTSF04 EQU MCTSFLGS 03176000 MCTFAVQ EQU MCTSFLGS 03177000 MCTAVQ1 EQU MCTSFLGS 03178000 MCTSQA2 EQU MCTSFLGS 03179000 MCTSQA1 EQU MCTSFLGS 03180000 MCVAVQC EQU MCT+60 03181000 MCVFRCNT EQU MCT+58 03182000 MCVSTCRI EQU MCT+56 03183000 MCCEND EQU MCT+56 03184000 MCCASMT2 EQU MCT+54 03185000 MCCASMT1 EQU MCT+52 03186000 MCCRSVH1 EQU MCT+50 03187000 MCCPLUS EQU MCT+48 03188000 MCCMS403 EQU MCT+44 03189000 MCCMS402 EQU MCT+40 03190000 MCCMS401 EQU MCT+36 03191000 MCCMS400 EQU MCT+32 03192000 MCCMS203 EQU MCT+28 03193000 MCCMS202 EQU MCT+24 03194000 MCCMS201 EQU MCT+20 03195000 MCCMS200 EQU MCT+16 03196000 MCCMS102 EQU MCT+12 03197000 MCCMS101 EQU MCT+8 03198000 MCCMS100 EQU MCT+4 03199000 MCTMCT EQU MCT 03200000 ICTEND EQU ICT+88 03201000 ICTRSVB3 EQU ICT+87 03202000 ICTRSVB2 EQU ICT+86 03203000 ICTRSVB1 EQU ICT+85 03204000 ICT003 EQU ICTFLAGS 03205000 ICTIOOT EQU ICTFLAGS 03206000 ICTIOL EQU ICTFLAGS 03207000 ICTDRSV4 EQU ICTFLAGS 03208000 ICVIRSV3 EQU ICT+80 03209000 ICVULCBT EQU ICT+76 03210000 ICVOLCBT EQU ICT+72 03211000 ICVLCBPT EQU ICT+68 03212000 ICVLUTBT EQU ICT+64 03213000 ICCEND EQU ICT+64 03214000 ICCRSV01 EQU ICT+62 03215000 ICCEDSUT EQU ICT+60 03216000 ICCSRSV2 EQU ICT+58 03217000 ICCSIGUP EQU ICT+56 03218000 ICCINDAT EQU ICT+52 03219000 ICCINLOT EQU ICT+48 03220000 ICCINHIT EQU ICT+44 03221000 ICCDAUTH EQU ICT+42 03222000 ICCLOUTH EQU ICT+40 03223000 ICCHIUTH EQU ICT+38 03224000 ICCDASF2 EQU ICT+36 03225000 ICCDASF1 EQU ICT+34 03226000 ICCMINRV EQU ICT+32 03227000 ICCMAXRV EQU ICT+30 03228000 ICCRVSCF EQU ICT+28 03229000 ICCMNIOR EQU ICT+26 03230000 ICCLCHN EQU ICT+24 03231000 ICCLCLST EQU ICT+20 03232000 ICCMNSWP EQU ICT+16 03233000 ICCMNUIN EQU ICT+12 03234000 ICCMXICT EQU ICT+8 03235000 ICCMRSV1 EQU ICT+4 03236000 ICTICT EQU ICT 03237000 CCVEND EQU CCT+128 03238000 CCTFLG2 EQU CCT+125 03239000 CCVCPUCT EQU CCT+122 03240000 CCVLGFMC EQU CCT+118 03241000 CCVR07 EQU CCT+114 03242000 CCVR06 EQU CCT+112 03243000 CCVR05 EQU CCT+108 03244000 CCVPGCPF EQU CCT+96 03245000 CCVR04 EQU CCT+84 03246000 CCVR03 EQU CCT+76 03247000 CCCEND EQU CCT+76 03248000 CCCRSVH1 EQU CCT+74 03249000 CCCR02 EQU CCT+68 03250000 CCCSIGDP EQU CCT+64 03251000 CCCR01 EQU CCT+44 03252000 CCCAPBDP EQU CCT+36 03253000 CCCRSVF1 EQU CCT+28 03254000 CCCMNUIN EQU CCT+20 03255000 CCTCCT EQU CCT 03256000 RMCTEND EQU RMCT+192 03257000 RMCTR50 EQU RMCT+190 03258000 RMCTDMNC EQU RMCT+188 03259000 RMCTDMDE EQU RMCT+184 03260000 RMCTDMDT EQU RMCT+180 03261000 RMCTSRBT EQU RMCT+176 03262000 RMCTOUXB EQU RMCT+172 03263000 RMCTOUCB EQU RMCT+168 03264000 RMCTTOCI EQU RMCT+160 03265000 RMCTCPID EQU RMCT+156 03266000 RMCTTELM EQU RMCT+152 03267000 RMCTF09 EQU RMCTFLGS+1 03268000 RMCTMFS EQU RMCTFLGS+1 03269000 RMCTF07 EQU RMCTFLGS+1 03270000 RMCTF06 EQU RMCTFLGS 03271000 RMCTRSV2 EQU RMCTFLGS 03272000 RMCTSTW EQU RMCTFLGS 03273000 RMCTRSV1 EQU RMCTFLGS 03274000 RMCTINIT EQU RMCTFLGS 03275000 RMCTF03 EQU RMCTFLGS 03276000 RMCTCPS1 EQU RMCTFLGS 03277000 RMCTMFA EQU RMCTFLGS 03278000 RMCTRQSV EQU RMCT+144 03279000 RMCTALR EQU RMCT+140 03280000 RMCTALA EQU RMCT+136 03281000 RMCTTOC EQU RMCT+128 03282000 RMCTTBS EQU RMCT+120 03283000 RMCTR10 EQU RMCT+116 03284000 RMCTOTQE EQU RMCT+108 03285000 RMCTWTQE EQU RMCT+104 03286000 RMCTAQHD EQU RMCT+100 03287000 RMCTAQCT EQU RMCT+96 03288000 RMCTTMQE EQU RMCT+92 03289000 RMCTWAMT EQU RMCT+88 03290000 RMCTWAST EQU RMCT+84 03291000 RMCTEPPR EQU RMCT+80 03292000 RMCTFLTM EQU RMCT+76 03293000 RMCTEPET EQU RMCT+72 03294000 RMCTITT EQU RMCT+68 03295000 RMCTADJC EQU RMCT+64 03296000 RMCTEPBG EQU RMCT+60 03297000 RMCTEPAT EQU RMCT+56 03298000 RMCTEPDT EQU RMCT+52 03299000 RMCTEPPA EQU RMCT+48 03300000 RMCTRMSB EQU RMCT+44 03301000 RMCTRMEX EQU RMCT+40 03302000 RMCTRMPD EQU RMCT+36 03303000 RMCTRMSA EQU RMCT+32 03304000 RMCTRLCT EQU RMCT+28 03305000 RMCTWMST EQU RMCT+24 03306000 RMCTRMCA EQU RMCT+20 03307000 RMCTRMPT EQU RMCT+16 03308000 RMCTMCT EQU RMCT+12 03309000 RMCTICT EQU RMCT+8 03310000 RMCTCCT EQU RMCT+4 03311000 RMCTNAME EQU RMCT 03312000 @NM00028 EQU PSA+3668 03313000 PSASTAK EQU PSA+3072 03314000 @NM00027 EQU PSA+1048 03315000 PSAUSEND EQU PSA+1048 03316000 PSARV062 EQU PSA+1044 03317000 PSACDAL EQU PSA+1040 03318000 PSAWTCOD EQU PSA+1036 03319000 PSAATCVT EQU PSA+1032 03320000 PSAPCPSW EQU PSA+1024 03321000 PSAPIR2 EQU PSA+1020 03322000 PSARV059 EQU PSA+1018 03323000 PSASVC13 EQU PSA+1016 03324000 PSALSFCC EQU PSA+1012 03325000 PSASFACC EQU PSA+1008 03326000 PSASTOP EQU PSA+992 03327000 PSASTART EQU PSA+976 03328000 PSARSPSW EQU PSA+968 03329000 PSASRPSW EQU PSA+960 03330000 PSARV045 EQU PSA+892 03331000 PSARV044 EQU PSA+888 03332000 PSARV043 EQU PSA+884 03333000 PSARV042 EQU PSA+880 03334000 PSARV041 EQU PSA+876 03335000 PSARV040 EQU PSA+872 03336000 PSARV025 EQU PSA+868 03337000 PSADSSED EQU PSA+868 03338000 PSADSSPR EQU PSA+864 03339000 PSADSSFW EQU PSA+860 03340000 PSADSS14 EQU PSA+856 03341000 PSADSSPP EQU PSA+848 03342000 PSADSSRP EQU PSA+840 03343000 PSADSS05 EQU PSADSSF4 03344000 PSADSS10 EQU PSADSSF4 03345000 PSADSSVE EQU PSADSSF4 03346000 PSADSSDE EQU PSADSSF4 03347000 PSADSSC0 EQU PSADSSF4 03348000 PSADSSIE EQU PSADSSF4 03349000 PSADSS12 EQU PSADSSF4 03350000 PSADSSRC EQU PSADSSF4 03351000 PSARV057 EQU PSADSSF3 03352000 PSARV056 EQU PSADSSF3 03353000 PSARV055 EQU PSADSSF3 03354000 PSADSSMC EQU PSADSSF3 03355000 PSADSSRW EQU PSADSSF3 03356000 PSADSSNM EQU PSADSSF3 03357000 PSADSSES EQU PSADSSF3 03358000 PSADSSGP EQU PSADSSF3 03359000 PSADSSF2 EQU PSADSSFL+1 03360000 PSADSSPI EQU PSADSSF1 03361000 PSADSSOI EQU PSADSSF1 03362000 PSADSSSP EQU PSADSSF1 03363000 PSADSSTP EQU PSADSSF1 03364000 PSADSSDW EQU PSADSSF1 03365000 PSADSSDD EQU PSADSSF1 03366000 PSADSSDM EQU PSADSSF1 03367000 PSADSSMV EQU PSADSSF1 03368000 PSADSSTS EQU PSA+816 03369000 PSADSSWK EQU PSA+812 03370000 PSADSSR3 EQU PSA+808 03371000 PSADSSR2 EQU PSA+804 03372000 PSADSSRS EQU PSA+800 03373000 PSASTOR EQU PSA+796 03374000 PSACPUSA EQU PSA+794 03375000 PSAVSTAP EQU PSA+792 03376000 PSAWKVAP EQU PSA+788 03377000 PSAWKRAP EQU PSA+784 03378000 PSAMCHIC EQU PSA+783 03379000 PSARV061 EQU PSA+782 03380000 PSASYMSK EQU PSA+781 03381000 PSAMCHFL EQU PSA+780 03382000 PSACR0 EQU PSA+776 03383000 PSAPSWSV EQU PSA+768 03384000 PSALITA EQU PSA+764 03385000 PSACLHS EQU PSAHLHI 03386000 PSALKR15 EQU PSALKSA+60 03387000 PSALKR14 EQU PSALKSA+56 03388000 PSALKR13 EQU PSALKSA+52 03389000 PSALKR12 EQU PSALKSA+48 03390000 PSALKR11 EQU PSALKSA+44 03391000 PSALKR10 EQU PSALKSA+40 03392000 PSALKR9 EQU PSALKSA+36 03393000 PSALKR8 EQU PSALKSA+32 03394000 PSALKR7 EQU PSALKSA+28 03395000 PSALKR6 EQU PSALKSA+24 03396000 PSALKR5 EQU PSALKSA+20 03397000 PSALKR4 EQU PSALKSA+16 03398000 PSALKR3 EQU PSALKSA+12 03399000 PSALKR2 EQU PSALKSA+8 03400000 PSALKR1 EQU PSALKSA+4 03401000 PSALKR0 EQU PSALKSA 03402000 PSARV023 EQU PSACLHT+52 03403000 PSALOCAL EQU PSACLHT+48 03404000 PSACMSL EQU PSACLHT+44 03405000 PSAOPTL EQU PSACLHT+40 03406000 PSATPACL EQU PSACLHT+36 03407000 PSATPDNL EQU PSACLHT+32 03408000 PSATPNCL EQU PSACLHT+28 03409000 PSAIOSLL EQU PSACLHT+24 03410000 PSAIOSUL EQU PSACLHT+20 03411000 PSAIOSCL EQU PSACLHT+16 03412000 PSAIOSSL EQU PSACLHT+12 03413000 PSASALCL EQU PSACLHT+8 03414000 PSAASML EQU PSACLHT+4 03415000 PSADISPL EQU PSACLHT 03416000 PSASRSA EQU PSA+636 03417000 PSARV050 EQU PSA+634 03418000 PSADSSGO EQU PSA+633 03419000 PSARECUR EQU PSA+632 03420000 PSAHLHIS EQU PSA+628 03421000 PSAIPCSA EQU PSA+624 03422000 @NM00026 EQU PSA+621 03423000 PSAIPCDM EQU PSA+620 03424000 PSAIPCD EQU PSA+616 03425000 @NM00025 EQU PSA+613 03426000 PSAIPCRM EQU PSA+612 03427000 PSAIPCR EQU PSA+608 03428000 PSAMCHEX EQU PSA+600 03429000 PSAMPSW EQU PSA+592 03430000 PSAEXPS2 EQU PSA+584 03431000 PSAEXPS1 EQU PSA+576 03432000 PSAPIREG EQU PSA+572 03433000 PSARSREG EQU PSA+568 03434000 PSAGPREG EQU PSA+556 03435000 PSARV022 EQU PSASUP4 03436000 PSARV021 EQU PSASUP4 03437000 PSARV020 EQU PSASUP4 03438000 PSARV019 EQU PSASUP4 03439000 PSARV018 EQU PSASUP4 03440000 PSARV017 EQU PSASUP4 03441000 PSARV016 EQU PSASUP4 03442000 PSARV015 EQU PSASUP4 03443000 PSARV014 EQU PSASUP3 03444000 PSAULCMS EQU PSASUP3 03445000 PSARV012 EQU PSASUP3 03446000 PSAESTA EQU PSASUP3 03447000 PSASPR EQU PSASUP3 03448000 PSAPSREG EQU PSASUP3 03449000 PSAPI2 EQU PSASUP3 03450000 PSAIOSUP EQU PSASUP3 03451000 PSALCR EQU PSASUP2 03452000 PSARTM EQU PSASUP2 03453000 PSAACR EQU PSASUP2 03454000 PSAIPCE2 EQU PSASUP2 03455000 PSAIPCES EQU PSASUP2 03456000 PSAIPCEC EQU PSASUP2 03457000 PSAGTF EQU PSASUP2 03458000 PSAIPCRI EQU PSASUP2 03459000 PSATYPE6 EQU PSASUP1 03460000 PSATCTL EQU PSASUP1 03461000 PSADISP EQU PSASUP1 03462000 PSALOCK EQU PSASUP1 03463000 PSAPI EQU PSASUP1 03464000 PSAEXT EQU PSASUP1 03465000 PSASVC EQU PSASUP1 03466000 PSAIO EQU PSASUP1 03467000 PSAAOLD EQU PSA+548 03468000 PSAANEW EQU PSA+544 03469000 PSATOLD EQU PSA+540 03470000 PSATNEW EQU PSA+536 03471000 PSALCCAR EQU PSA+532 03472000 PSALCCAV EQU PSA+528 03473000 PSAPCCAR EQU PSA+524 03474000 PSAPCCAV EQU PSA+520 03475000 PSACPULA EQU PSA+518 03476000 PSACPUPA EQU PSA+516 03477000 PSAPSA EQU PSA+512 03478000 FLCHDEND EQU PSA+512 03479000 FLCCRSAV EQU FLCMCLA+280 03480000 FLCGRSAV EQU FLCMCLA+216 03481000 FLCFPSAV EQU FLCMCLA+184 03482000 FLCFLA EQU FLCMCLA+88 03483000 FLCRGNCD EQU FLCMCLA+84 03484000 FLCFSAA EQU FLCFSA+1 03485000 @NM00024 EQU FLCFSA 03486000 @NM00023 EQU FLCMCLA+72 03487000 FLCMCIC EQU FLCMCLA+64 03488000 @NM00022 EQU FLCMCLA+20 03489000 FLCIOAA EQU FLCIOA+1 03490000 @NM00021 EQU FLCIOA 03491000 @NM00020 EQU FLCMCLA+15 03492000 @NM00019 EQU FLCMCLA+14 03493000 @NM00018 EQU FLCMCLA+12 03494000 FLCLCL EQU FLCMCLA+8 03495000 FLCIOELA EQU FLCIOEL+1 03496000 @NM00017 EQU FLCIOEL 03497000 FLCCHNID EQU FLCMCLA 03498000 @NM00016 EQU PSA+160 03499000 FLCMTRCD EQU PSA+157 03500000 @NM00015 EQU PSA+156 03501000 FLCPERA EQU FLCPER+1 03502000 @NM00014 EQU FLCPER 03503000 @NM00013 EQU PSA+151 03504000 FLCPERCD EQU PSA+150 03505000 FLCMCNUM EQU PSA+149 03506000 @NM00012 EQU PSA+148 03507000 FLCTEAA EQU FLCTEA+1 03508000 @NM00011 EQU FLCTEA 03509000 PSAPIPC EQU PSAPICOD 03510000 PSAPIMC EQU PSAPICOD 03511000 PSAPIPER EQU PSAPICOD 03512000 PSARV049 EQU FLCPICOD 03513000 FLCPILCB EQU FLCPIILC 03514000 @NM00010 EQU FLCPIILC 03515000 @NM00009 EQU PSAEPPSW 03516000 FLCSVCN EQU PSAESPSW+2 03517000 FLCSILCB EQU FLCSVILC 03518000 @NM00008 EQU FLCSVILC 03519000 @NM00007 EQU PSAESPSW 03520000 FLCEICOD EQU PSAEEPSW+2 03521000 PSASPAD EQU PSAEEPSW 03522000 @NM00006 EQU PSA+128 03523000 FLCINPSW EQU PSA+120 03524000 FLCMNPSW EQU PSA+112 03525000 FLCPNPSW EQU PSA+104 03526000 FLCSNPSW EQU PSA+96 03527000 FLCENPSW EQU PSA+88 03528000 FLCTRACE EQU PSA+84 03529000 FLCTIMER EQU PSA+80 03530000 FLCCVT2 EQU PSA+76 03531000 FLCCAW EQU PSA+72 03532000 FLCCSW EQU PSA+64 03533000 FLCIOPSW EQU PSA+56 03534000 FLCMOPSW EQU PSA+48 03535000 FLCPOPSW EQU PSA+40 03536000 FLCSOPSW EQU PSA+32 03537000 FLCEOPSW EQU PSA+24 03538000 @NM00005 EQU FLCICCW2+4 03539000 FLCICCW1 EQU FLCROPSW 03540000 FLCIPPSW EQU FLCRNPSW 03541000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03542000 @RF00052 EQU @RC00049 03543000 @RC00164 EQU @RC00161 03544000 @RC00162 EQU @RC00161 03545000 @RC00246 EQU @EL00004 03546000 @RC00268 EQU @EL00005 03547000 @RF00267 EQU @EL00005 03548000 @RC00265 EQU @EL00005 03549000 @RF00288 EQU @RC00285 03550000 @RF00316 EQU @EL00006 03551000 @RC00282 EQU @EL00006 03552000 @RC00251 EQU @RC00246 03553000 @ENDDATA EQU * 03554000 END IRARMCPM,(C'PLS2132',0701,78024) 03555000