TITLE 'IRARMWAR - WORKLOAD ACTIVITY RECORDING ROUTINE *00001000 ' 00002000 * /* 00003000 IRARMWAR CSECT , 00004000 * ADDRESS TABLE TO PROVIDE ROUTINE ADDRESSES AFTER IRARMWAR IS 00005000 * LOADED AND FIXED BY MF/1. 00006000 ENTRY WARTABLE 00007000 WARTABLE DS 0F 00008000 DC A(IRARMWR1) WAR INITIALIZATION 00009000 DC A(IRARMWR3) WAR COLLECTION 00010000 DC A(IRARMWR8) WAR IPS CHANGE PROCESSING 00011000 @PSTART DS 0H 00012000 USING @PSTART,@12 00013000 * ; 0057 00014000 * 0058 00015000 */* **************************************************************** */ 00016000 */* */ 00017000 */* ROUTINE NAME - IRARMWR1 */ 00018000 */* */ 00019000 */* DESCRIPTIVE NAME - SRM WORKLOAD ACTIVITY RECORDING */ 00020000 */* INITIALIZATION SUBROUTINE */ 00021000 */* */ 00022000 */* FUNCTION - TO CONSTRUCT AND INITIALIZE THE WORKLOAD ACTIVITY */ 00023000 */* MEASUREMENT TABLE(WAMT) IN THE BUFFER(STORAGE FROM */ 00024000 */* SQA) OBTAINED BY MF/1 AND INPUT WITH SYSEVENT 45. */ 00025000 */* */ 00026000 */* INPUT - REG 6 CONTAINS THE ADDRESS OF THE DATA COLLECTION AREA */ 00027000 */* */ 00028000 */* OUTPUT- NONE */ 00029000 */* */ 00030000 */* EXIT - RETURN VIA REG 14 */ 00031000 */* RETURN CODES */ 00032000 */* REG 15, BYTE 3 - X'00' - DATA AREA ACCEPTED AND */ 00033000 */* INITIALIZED(REG 1 SET TO 0) */ 00034000 */* X'08' - LENGTH OF DATA AREA INCORRECT*/ 00035000 */* */ 00036000 */* **************************************************************** */ 00037000 * 0058 00038000 * GEN CODE DEFS(IRARMWR1) NOEXIT SEQFLOW; 0058 00039000 * /* 00040000 ENTRY IRARMWR1 WAR INITIALIZATION 00041000 IRARMWR1 DS 0H 00042000 STM @00,@14,LEVEL3(@13) SAVE INVOKING RTN REGS 00043000 LEVEL3 EQU 128 THIRD LEVEL SRM SAVE AREA 00044000 LA @12,IRARMWR1-@PSTART DISPLACEMENT TO MODULE BASE 00045000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00046000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00047000 * WMSTPTR=RMCTWMST; /* ADDRESSABILITY TO WMST */ 00048000 L WMSTPTR,RMCTWMST(,RMCTPTR) 0059 00049000 */* */ 00050000 */* COMPARE THE LENGTH OF THE WAMT INPUT WITH THAT CALCULATED FROM */ 00051000 */* INFORMATION WITHIN THE CURRENT IPS. */ 00052000 */* */ 00053000 * 0060 00054000 * IF WAMTSIZ^=LENGTH(WAMT)+WMSTPGHI*LENGTH(WAMTNDX)+WMSTPGPC*WAMTSPD 00055000 * THEN 0060 00056000 LH @09,WMSTPGHI(,WMSTPTR) 0060 00057000 SLA @09,2 0060 00058000 AL @09,@CF00070 0060 00059000 LH @08,WMSTPGPC(,WMSTPTR) 0060 00060000 MH @08,WAMTSPD(,WAMTPTR) 0060 00061000 ALR @09,@08 0060 00062000 C @09,WAMTSIZ(,WAMTPTR) 0060 00063000 BE @RF00060 0060 00064000 * RRPARTC=XCON8; /* LENGTH OF WAMT INCORRECT */ 00065000 MVI RRPARTC(RRPAPTR),X'08' 0061 00066000 * ELSE /* LENGTH OF WAMT CORRECT, */ 00067000 * DO; /* CONTINUE INITIALIZATION */ 00068000 B @RC00060 0062 00069000 @RF00060 DS 0H 0063 00070000 * WAMTCPD=WMSTPGPC; /* NO. OF PGPS IN THIS IPS */ 00071000 LH @09,WMSTPGPC(,WMSTPTR) 0063 00072000 STH @09,WAMTCPD(,WAMTPTR) 0063 00073000 * WAMTTMA=RMCTTOC; /* TIME DATA COLLECTION ACTIVATED*/ 00074000 MVC WAMTTMA(8,WAMTPTR),RMCTTOC(RMCTPTR) 0064 00075000 * WAMTIPS=WMSTID; /* IPS ID */ 00076000 MVC WAMTIPS(2,WAMTPTR),WMSTID(WMSTPTR) 0065 00077000 * WAMTHPG=WMSTPGHI; /* HIGHEST PGN IN IPS */ 00078000 LH @09,WMSTPGHI(,WMSTPTR) 0066 00079000 STH @09,WAMTHPG(,WAMTPTR) 0066 00080000 * WAMTIPC=WMSTIPC; /* CPU SERVICE COEF. @Z40BPCH*/ 00081000 MVC WAMTIPC(4,WAMTPTR),WMSTIPC(WMSTPTR) 0067 00082000 * WAMTIPI=WMSTIPI; /* I/O SERVICE COEF. @Z40BPCH*/ 00083000 MVC WAMTIPI(4,WAMTPTR),WMSTIPI(WMSTPTR) 0068 00084000 * WAMTIPM=WMSTIPM; /* MSO SERVICE COEF. @Z40BPCH*/ 00085000 MVC WAMTIPM(4,WAMTPTR),WMSTIPM(WMSTPTR) 0069 00086000 * WAMTASD(17:32)=RRPAASD; /* MF/1 ASID FOR RECOVERY */ 00087000 MVC WAMTASD+2(2,WAMTPTR),RRPAASD(RRPAPTR) 0070 00088000 * WAMTTCB=PSATOLD; /* MF/1 TCB ADDRESS FOR RECOVERY */ 00089000 L @09,PSATOLD 0071 00090000 ST @09,WAMTTCB(,WAMTPTR) 0071 00091000 * RMCTWAMT=WAMTPTR; /* DATA COLLECTION AREA ADDRESS */ 00092000 ST WAMTPTR,RMCTWAMT(,RMCTPTR) 0072 00093000 * CALL IRARMWR2; /* BUILD WAMTNDX ARRAY AND INIT- 00094000 * IALIZE DATA COLLECTION BUFFER */ 00095000 BAL @14,IRARMWR2 0073 00096000 * RESPECIFY 0074 00097000 * (R10, 0074 00098000 * R11) UNRSTD; 0074 00099000 * ASVTPTR=CVTASVT; /* ADDRESS SPACE VECTOR TABLE ADR*/ 00100000 L @11,CVTPTR 0075 00101000 L ASVTPTR,CVTASVT(,@11) 0075 00102000 * ASVTSTP=ASVTPTR+ /* CALCULATE SCAN END ADDRESS */ 00103000 * ASVTMAXU*LENGTH(ASVTENTY); 0076 00104000 L ASVTSTP,ASVTMAXU(,ASVTPTR) 0076 00105000 SLA ASVTSTP,2 0076 00106000 ALR ASVTSTP,ASVTPTR 0076 00107000 * DO ASVTPTR=ASVTPTR /* STEP THRU ALL ASCBS IN ASVT */ 00108000 * BY LENGTH(ASVTENTY) WHILE(ASVTPTRASCBOUCB WHILE(OUCBNAME/* VALIDATE OUCB */ 00116000 * ='OUCB'&OUCBINV='0'B);/* @Z40BPCH*/ 00117000 L @11,ASVTENTY(,ASVTPTR) 0079 00118000 L OUCBPTR,ASCBOUCB(,@11) 0079 00119000 CLC OUCBNAME(4,OUCBPTR),@CC01893 0079 00120000 BNE @DC00079 0079 00121000 TM OUCBINV(OUCBPTR),B'00010000' 0079 00122000 BNZ @DC00079 0079 00123000 * IF OUCBATR='1'B& /* ACTIVE TRANSACTION FOR MEMORY */ 00124000 * OUCBINC='1'B& /* SESSION NOT BETWEEN STEPS */ 00125000 * (OUCBRDY='1'B| /* TRANSACTION NOT SUSPENDED */ 00126000 * OUCBOUT='0'B) THEN/* TRANSACTION NOW EXECUTING */ 00127000 TM OUCBATR(OUCBPTR),B'10000001' 0080 00128000 BNO @RF00080 0080 00129000 TM OUCBRDY(OUCBPTR),B'10000000' 0080 00130000 BO @RT00080 0080 00131000 TM OUCBOUT(OUCBPTR),B'00000100' 0080 00132000 BNZ @RF00080 0080 00133000 @RT00080 DS 0H 0081 00134000 * DO; /* ADJUST WKLD ACTIVITY TOTALS 0081 00135000 * FOR APPROPRIATE PGP */ 00136000 * IF OUCBOUT='0'B THEN/* MEMORY NOT SWAPPED OUT */ 00137000 * 0082 00138000 TM OUCBOUT(OUCBPTR),B'00000100' 0082 00139000 BNZ @RF00082 0082 00140000 * /*************************************************/ 00141000 * /* */ 00142000 * /* ? IRACTLCL EPN(WM1) */ 00143000 * /* */ 00144000 * /*************************************************/ 00145000 * 0083 00146000 * CALL RMSBWM1->IRARMRTN;/* INVOKE WM1 SUBRTN */ 00147000 L @15,RMSBWM1(,RMCTPTR) 0083 00148000 BALR @14,@15 0083 00149000 */* OBTAIN SERVICE ACCUMULATED 0084 00150000 * FOR CURRENT IN-CORE INTERVAL */ 00151000 * 0084 00152000 * OUCBMAR='1'B; /* SET ENTRY UPDATE TO SUBTRACT */ 00153000 @RF00082 OI OUCBMAR(OUCBPTR),B'00000100' 0084 00154000 * CALL IRARMWR4; /* SUBTRACT PREV SERVICE, TIME */ 00155000 LA @15,IRARMWR4 0085 00156000 BALR @14,@15 0085 00157000 * OUCBMAR='0'B; /* RESET ENTRY UPDATE TO ADD */ 00158000 NI OUCBMAR(OUCBPTR),B'11111011' 0086 00159000 * END; 0087 00160000 * END; 0088 00161000 @RF00080 DS 0H 0088 00162000 @DC00079 DS 0H 0089 00163000 * END; 0089 00164000 @RF00078 AL ASVTPTR,@CF00035 0089 00165000 @DE00077 CR ASVTPTR,ASVTSTP 0089 00166000 BL @DL00077 0089 00167000 * RESPECIFY 0090 00168000 * (R10, 0090 00169000 * R11) RSTD; 0090 00170000 * RRPAINP=ZERO; /* WAMT HAS BEEN ACCEPTED */ 00171000 SLR @09,@09 0091 00172000 ST @09,RRPAINP(,RRPAPTR) 0091 00173000 * RRPARTC=ZERO; /* INITIALIZATION SUCCESSFUL */ 00174000 MVI RRPARTC(RRPAPTR),X'00' 0092 00175000 * RMSBWR4=ADDR(IRARMWR4); /* INITIALIZE SERVICE UPDATE 0093 00176000 * ENTRY POINT */ 00177000 LA @09,IRARMWR4 0093 00178000 ST @09,RMSBWR4(,RMCTPTR) 0093 00179000 * RMSBWR6=ADDR(IRARMWR6); /* INITIALIZE TRANSACTION 0094 00180000 * TERMINATION ENTRY POINT */ 00181000 LA @09,IRARMWR6 0094 00182000 ST @09,RMSBWR6(,RMCTPTR) 0094 00183000 * RMCTMFA='1'B; /* MF/1 DATA COLLECTION ACTIVE */ 00184000 OI RMCTMFA(RMCTPTR),B'10000000' 0095 00185000 * END; 0096 00186000 * GEN CODE EXIT NOSEQFLOW; 0097 00187000 @RC00060 DS 0H 0097 00188000 * /* 00189000 LM @00,@14,LEVEL3(@13) RELOAD INVOKING RTN REGS 00190000 BR RTNREG RETURN TO INVOKER 00191000 * 0098 00192000 */* **************************************************************** */ 00193000 */* */ 00194000 */* ROUTINE NAME - IRARMWR2 */ 00195000 */* */ 00196000 */* DESCRIPTIVE NAME - SRM WORKLOAD ACTIVITY RECORDING */ 00197000 */* WAMT INITIALIZATION SUBROUTINE */ 00198000 */* */ 00199000 */* FUNCTION - TO BUILD THE WAMT IN A FORMAT ACCEPTABLE TO BE */ 00200000 */* UPDATED BY THE SRM. */ 00201000 */* */ 00202000 */* INPUT - REG 6 CONTAINS THE ADDRESS OF THE DATA COLLECTION AREA */ 00203000 */* */ 00204000 */* OUTPUT - NONE */ 00205000 */* */ 00206000 */* EXIT - RETURN VIA REG 14 */ 00207000 */* */ 00208000 */* **************************************************************** */ 00209000 * 0098 00210000 *IRARMWR2: 0098 00211000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0098 00212000 * 0098 00213000 IRARMWR2 DS 0H 0099 00214000 */* */ 00215000 */* CLEAR DATA COLLECTION AREA IN WAMT. */ 00216000 */* */ 00217000 * 0099 00218000 * NTRREG=LENGTH(WAMT)+ /* OFFSET IN WAMT TO START */ 00219000 * (WAMTHPG* /* OF DATA COLLECTION AREA */ 00220000 * LENGTH(WAMTNDX)); 0099 00221000 LH NTRREG,WAMTHPG(,WAMTPTR) 0099 00222000 SLA NTRREG,2 0099 00223000 AL NTRREG,@CF00070 0099 00224000 * R10=WAMTPTR+NTRREG; /* START ADDRESS OF DATA 0100 00225000 * COLLECTION AREA IN WAMT */ 00226000 LR R10,WAMTPTR 0100 00227000 ALR R10,NTRREG 0100 00228000 * R11=ZERO; /* FOR MVCL INSTR TO CLEAR AREA */ 00229000 SLR R11,R11 0101 00230000 * R0=R10; 0102 00231000 LR R0,R10 0102 00232000 * R1=WAMTCPD*WAMTSPD; /* LENGTH OF STORAGE TO CLEAR */ 00233000 LH R1,WAMTCPD(,WAMTPTR) 0103 00234000 MH R1,WAMTSPD(,WAMTPTR) 0103 00235000 * GENERATE CODE REFS(R10,R11) SETS(R0,R1); 0104 00236000 * 0104 00237000 MVCL R0,R10 00238000 */* */ 00239000 */* BUILD THE WAMTNDX ARRAY WHOSE I'TH POSITION CONTAINS THE OFFSET*/ 00240000 */* TO THE START OF THE WAMPPGP'S FOR THE I'TH PERFORMANCE GROUP. */ 00241000 */* THE PERFORMANCE GROUP VECTOR TABLE(PGVT) AND PERFORMANCE GROUP */ 00242000 */* DESCRIPTOR TABLE(PGDT) OF THE IPS ARE USED TO CONSTRUCT THE */ 00243000 */* WAMTNDX. EACH ENTRY IN THE PGVT IS EXAMINED AND THE CURRENT */ 00244000 */* POINTER VALUE IN THE WORKLOAD ACTIVITY DATA AREA IS SAVED IN */ 00245000 */* THE WAMTNDX ENTRY ASSOCIATED WITH THE PG. A NON-ZERO ENTRY IN */ 00246000 */* THE PGVT INDICATES THE EXISTENCE OF THE PERFORMANCE GROUP(PG) */ 00247000 */* WITHIN THE IPS. THE PERFORMANCE GROUP DESCRIPTOR TABLE(PGDT) */ 00248000 */* ENTRY ASSOCIATED WITH THE PG IS SEARCHED TO CALCULATE THE NUM- */ 00249000 */* BER OF PG PERIODS IN THE PG. STORAGE IS SET ASIDE IN THE DATA */ 00250000 */* COLLECTION BUFFER TO ACCOMODATE THE WORKLOAD INFORMATION FOR */ 00251000 */* EACH PGP IN THE PG. THE DATA AREA POINTER VALUE IS INCREMENTED*/ 00252000 */* BY THE LENGTH OF STORAGE SET ASIDE. A ZERO ENTRY IN THE PGVT */ 00253000 */* INDICATES A NON-EXISTANT PG. UNLIKE THE PGVT ENTRY, THE */ 00254000 */* WAMTNDX ENTRY FOR THAT PG IS SET TO THE CURRENT POINTER VALUE */ 00255000 */* IN THE DATA COLLECTION AREA. */ 00256000 */* */ 00257000 * 0105 00258000 * RESPECIFY 0105 00259000 * (R0, 0105 00260000 * R1, 0105 00261000 * ASVTPTR, 0105 00262000 * OUCBPTR, 0105 00263000 * R11) UNRSTD; 0105 00264000 * WAMTNX0=NTRREG; /* OFFSET FOR PG 0 */ 00265000 ST NTRREG,WAMTNX0(,WAMTPTR) 0106 00266000 * NTRREG=NTRREG+WAMTSPD; /* INCREMENT OFFSET IN WAMP BY 0107 00267000 * THE LENGTH OF A WAMPPGP */ 00268000 AH NTRREG,WAMTSPD(,WAMTPTR) 0107 00269000 * WAMTXPTR=ADDR(WAMTNDX(ONE)); /* ADDRESS OF FIRST WAMTNDX ENTRY*/ 00270000 LA @11,WAMTNDX(,WAMTPTR) 0108 00271000 ST @11,WAMTXPTR(,RMCTPTR) 0108 00272000 * DO WPGNNUM=ONE BY ONE /* STEP THRU ALL PERFORMANCE */ 00273000 * TO WMSTPGHI; /* GROUPS IN THE IPS */ 00274000 LA @11,1 0109 00275000 ST @11,WPGNNUM(,RMCTPTR) 0109 00276000 B @DE00109 0109 00277000 @DL00109 DS 0H 0110 00278000 * WAMTXNTR=NTRREG; /* OFFSET TO START OF THE WAMPPGP 00279000 * FOR THE CURRENT WAMTNDX ARRAY 00280000 * ENTRY */ 00281000 L @11,WAMTXPTR(,RMCTPTR) 0110 00282000 ST NTRREG,WAMTXNTR(,@11) 0110 00283000 * IF WPGVTENT^=ZERO THEN /* PGN EXISTS IN IPS */ 00284000 SLR @11,@11 0111 00285000 L @04,WPGNNUM(,RMCTPTR) 0111 00286000 ALR @04,@04 0111 00287000 AL @04,WMSTPGVT(,WMSTPTR) 0111 00288000 LH @04,WPGVTENT(,@04) 0111 00289000 CR @04,@11 0111 00290000 BE @RF00111 0111 00291000 * DO; 0112 00292000 * WPGDPTR=WMSTPGDT+ /* PICK DESCRIPTR FOR PERF GROUP */ 00293000 * WPGVTENT; 0113 00294000 AL @04,WMSTPGDT(,WMSTPTR) 0113 00295000 ST @04,WPGDPTR(,RMCTPTR) 0113 00296000 * WAMPPTR=WAMTPTR+NTRREG; /* PTR TO WAMP FOR THIS PERIOD 0114 00297000 * @Z40BPCH*/ 00298000 LR WAMPPTR,WAMTPTR 0114 00299000 ALR WAMPPTR,NTRREG 0114 00300000 * WPGDSTP=ZERO; /* MARK PGD END NOT REACHED */ 00301000 ST @11,WPGDSTP(,RMCTPTR) 0115 00302000 * DO WPGPPTR=ADDR(WPGDPGP) /* PROCESS ALL PERIODS */ 00303000 * BY LENGTH(WPGP) /* WITHIN A PERFORMANCE GROUP */ 00304000 * WHILE(WPGDSTP=ZERO); 0116 00305000 LA WPGPPTR,WPGDPGP(,@04) 0116 00306000 B @DE00116 0116 00307000 @DL00116 DS 0H 0117 00308000 * WAMPDMN=WPGPDMN; /* PERF GROUP PERIOD DOMAIN 0117 00309000 * NUMBER @Z40BPCH*/ 00310000 IC @11,WPGPDMN(,WPGPPTR) 0117 00311000 STC @11,WAMPDMN(,WAMPPTR) 0117 00312000 * WAMPOBJN=WPGPOBJN; /* PERF GROUP PERIOD OBJECTIVE 0118 00313000 * NUMBER @Z40BPCH*/ 00314000 IC @11,WPGPOBJN(,WPGPPTR) 0118 00315000 STC @11,WAMPOBJN(,WAMPPTR) 0118 00316000 * NTRREG=NTRREG+ /* INCREMENT OFFSET BY THE */ 00317000 * WAMTSPD; /* LENGTH OF THE WAMPPGP */ 00318000 LH @11,WAMTSPD(,WAMTPTR) 0119 00319000 ALR NTRREG,@11 0119 00320000 * WAMPPTR=WAMPPTR+WAMTSPD;/* UPDATE PTR TO NEXT WAMP FOR 0120 00321000 * THE NEXT PERIOD @Z40BPCH*/ 00322000 ALR WAMPPTR,@11 0120 00323000 * IF WPGPFIN='1'B THEN /* LAST PERF PERIOD REACHED */ 00324000 TM WPGPFIN(WPGPPTR),B'10000000' 0121 00325000 BNO @RF00121 0121 00326000 * WPGDSTP=CON4; /* FORCE EXIT FROM PERF GRP SCAN */ 00327000 MVC WPGDSTP(4,RMCTPTR),@CF00035 0122 00328000 * END; 0123 00329000 @RF00121 AL WPGPPTR,@CF00150 0123 00330000 @DE00116 L @11,WPGDSTP(,RMCTPTR) 0123 00331000 LTR @11,@11 0123 00332000 BZ @DL00116 0123 00333000 * END; 0124 00334000 * WAMTXPTR=WAMTXPTR+ /* POINT TO NEXT ENTRY IN */ 00335000 * LENGTH(WAMTNDX); /* THE WAMTNDX */ 00336000 @RF00111 LA @11,4 0125 00337000 AL @11,WAMTXPTR(,RMCTPTR) 0125 00338000 ST @11,WAMTXPTR(,RMCTPTR) 0125 00339000 * END; 0126 00340000 LA @11,1 0126 00341000 AL @11,WPGNNUM(,RMCTPTR) 0126 00342000 ST @11,WPGNNUM(,RMCTPTR) 0126 00343000 @DE00109 CH @11,WMSTPGHI(,WMSTPTR) 0126 00344000 BNH @DL00109 0126 00345000 * WAMTXNTR=NTRREG; /* OFFSET OF LAST WAMTNDX ENTRY */ 00346000 L @11,WAMTXPTR(,RMCTPTR) 0127 00347000 ST NTRREG,WAMTXNTR(,@11) 0127 00348000 * RESPECIFY 0128 00349000 * (R0, 0128 00350000 * R1, 0128 00351000 * ASVTPTR, 0128 00352000 * OUCBPTR, 0128 00353000 * R11) RSTD; 0128 00354000 * END IRARMWR2; 0129 00355000 @EL00002 DS 0H 0129 00356000 @EF00002 DS 0H 0129 00357000 @ER00002 BR @14 0129 00358000 * 0130 00359000 */* **************************************************************** */ 00360000 */* */ 00361000 */* ROUTINE NAME - IRARMWR3 */ 00362000 */* */ 00363000 */* DESCRIPTIVE NAME - SRM WORKLOAD ACTIVITY RECORDING */ 00364000 */* DATA COLLECTION SUBROUTINE */ 00365000 */* */ 00366000 */* FUNCTION - TO MOVE THE CONTENTS OF THE WAMT INTO A COLLECTION */ 00367000 */* BUFFER CAPABLE OF CONTAINING THE DATA. NOTE: THE */ 00368000 */* BUFFER IS OBTAINED BY MF/1 FROM LSQA, STORAGE KEY 0, */ 00369000 */* AND MUST BE FIXED IN CORE. */ 00370000 */* IF THE IPS HAS NOT BEEN CHANGED, THEN ADD THE TRANS- */ 00371000 */* ACTION DATA FOR THE CURRENT IN-CORE INTERVAL OF */ 00372000 */* EACH IN-CORE MEMORY WITH AN ACTIVE TRANSACTION TO THE */ 00373000 */* COLLECTED DATA, RE-INITIALIZE THE DATA COLLECTION */ 00374000 */* BUFFER FOR THE NEXT COLLECTION INTERVAL AND CALCULATE */ 00375000 */* THE NORMALIZED WORKLOAD LEVEL FOR EACH PERFORMANCE */ 00376000 */* GROUP PERIOD THAT CONTAINS TRANSACTION DATA. */ 00377000 */* */ 00378000 */* INPUT - REG 6 CONTAINS THE ADDRESS OF THE WAMT */ 00379000 */* RRPAINP CONTAINS THE BUFFER ADDRESS INTO WHICH THE */ 00380000 */* WORKLOAD ACTIVITY DATA IS TO BE COPIED */ 00381000 */* */ 00382000 */* OUTPUT - NONE */ 00383000 */* EXIT - RETURN VIA REG 14 */ 00384000 */* RETURN CODES */ 00385000 */* REG 15, BYTE 3 - X'00' - SUCCESSFUL DATA COLLECTION */ 00386000 */* X'04' - SUCCESSFUL DATA COLLECTION */ 00387000 */* BUT AN IPS CHANGE OCCURRED */ 00388000 */* DURING THE CURRENT INTERVAL */ 00389000 */* TERMINATING DATA COLLECTION */ 00390000 */* X'40' - DATA COLLECTION NOT ACTIVE, */ 00391000 */* OR DATA BUFFER NON-EXISTANT, */ 00392000 */* OR COPY BUFFER INCORRECT SIZE*/ 00393000 */* */ 00394000 */* **************************************************************** */ 00395000 * 0130 00396000 * GEN CODE DEFS(IRARMWR3) NOEXIT SEQFLOW; 0130 00397000 * 0130 00398000 * /* 00399000 ENTRY IRARMWR3 WAR COLLECTION 00400000 IRARMWR3 DS 0H 00401000 STM @00,@14,LEVEL3(@13) SAVE INVOKING RTN REGS 00402000 LA @12,IRARMWR3-@PSTART DISPLACEMENT TO MODULE BASE 00403000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00404000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00405000 */* */ 00406000 */* CHECK THAT THE SIZE OF THE BUFFER INTO WHICH THE COLLECTED */ 00407000 */* DATA IS TO BE COPIED IS LARGE ENOUGH TO ACCOMODATE THE DATA. */ 00408000 */* */ 00409000 * 0131 00410000 * R10=RRPAINP; /* ADDRESS OF COPY BUFFER */ 00411000 L R10,RRPAINP(,RRPAPTR) 0131 00412000 * R11=R10->WAMTSIZ; /* SIZE OF COPY BUFFER */ 00413000 L R11,WAMTSIZ(,R10) 0132 00414000 * R0=WAMTPTR; /* ADDRESS OF COLLECTION BUFFER */ 00415000 LR R0,WAMTPTR 0133 00416000 * R1=WAMTPTR->WAMTSIZ; /* SIZE OF COLLECTION BUFFER */ 00417000 L R1,WAMTSIZ(,WAMTPTR) 0134 00418000 * IF R11=R1 THEN /* BUFFERS ARE EQUAL */ 00419000 CR R11,R1 0135 00420000 BNE @RF00135 0135 00421000 * DO; 0136 00422000 * GENERATE CODE SETS(R0,R1,R10,R11); 0137 00423000 * 0137 00424000 * /* COPY COLLECTED DATA */ 00425000 MVCL R10,R0 00426000 * /*************************************************************/ 00427000 * /* */ 00428000 * /* IF THE IPS HAS NOT BEEN CHANGED, THEN RE-INITIALIZE THE */ 00429000 * /* DATA COLLECTION BUFFER FOR THE NEXT MF/1 INTERVAL. CAL- */ 00430000 * /* CULATE THE SERVICE ACCUMULATED AND THE TRANSACTION ACTIVE */ 00431000 * /* TIME FOR THE CURRENT IN-CORE INTERVAL FOR EACH MEMORY WITH*/ 00432000 * /* AN ACTIVE TRANSACTION. ADD THESE VALUES TO THE TOTALS IN */ 00433000 * /* THE DATA COLLECTION BUFFER TO REFLECT DATA UP TO THE */ 00434000 * /* OCCURRENCE OF THE COLLECTION SYSEVENT. TO PROVIDE ACCURATE*/ 00435000 * /* DATA FOR THE NEXT MF/1 INTERVAL, SUBTRACT THESE VALUES */ 00436000 * /* FROM THE CORRECT PGP IN THE COLLECTION BUFFER BECAUSE THE */ 00437000 * /* INFOMATION WILL BE ADDED AGAIN WHEN THE CURRENT IN-CORE */ 00438000 * /* INTERVAL OR THE TRANSACTION ENDS. IF AN IPS CHANGE HAS */ 00439000 * /* OCCURRED, MF/1 DATA COLLECTION WAS TERMINATED AND THE */ 00440000 * /* WORK- LOAD ACTIVITY DATA AREA UPDATED WHEN THE SET TO NEW */ 00441000 * /* IPS SYSEVENT WAS PROCESSED. */ 00442000 * /* */ 00443000 * /*************************************************************/ 00444000 * 0138 00445000 * IF RMCTSTW='0'B THEN /* SET TO NEW IPS DID NOT OCCUR */ 00446000 TM RMCTSTW(RMCTPTR),B'00000100' 0138 00447000 BNZ @RF00138 0138 00448000 * DO; 0139 00449000 * RRPAINP->WAMTTOC= /* TIME DATA COLLECTION OCCURRED */ 00450000 * RMCTTOC; 0140 00451000 * 0140 00452000 L @09,RRPAINP(,RRPAPTR) 0140 00453000 MVC WAMTTOC(8,@09),RMCTTOC(RMCTPTR) 0140 00454000 * /*********************************************************/ 00455000 * /* */ 00456000 * /* RE-INITIALIZE WORKLOAD ACTIVITY DATA COLLECTION BUFFER*/ 00457000 * /* FOR NEXT MF/1 INTERVAL. */ 00458000 * /* */ 00459000 * /*********************************************************/ 00460000 * 0141 00461000 * WMSTPTR=RMCTWMST; /* ADDRESSABILITY TO WMST 0141 00462000 * @Z40BPCH*/ 00463000 L WMSTPTR,RMCTWMST(,RMCTPTR) 0141 00464000 * CALL IRARMWR2; /* REINIT BUFFER @Z40BPCH*/ 00465000 * 0142 00466000 BAL @14,IRARMWR2 0142 00467000 * /*********************************************************/ 00468000 * /* */ 00469000 * /* FOR EACH IN-CORE MEMORY WITH AN ACTIVE TRANSACTION, */ 00470000 * /* OBTAIN THE SERVICE AND TRANSACTION ACTIVE TIME FOR THE*/ 00471000 * /* CURRENT IN-CORE INTERVAL. ACCUMULATE THESE VALUES IN */ 00472000 * /* IN THE PGP IN WHICH THE MEMORY IS EXECUTING. */ 00473000 * /* */ 00474000 * /*********************************************************/ 00475000 * 0143 00476000 * RESPECIFY 0143 00477000 * (RTNREG, 0143 00478000 * NTRREG, 0143 00479000 * RTNCOD) UNRSTD; 0143 00480000 * ASVTPTR=CVTASVT; /* ACCESS ADDRS SPAC VECTOR TBL */ 00481000 L @15,CVTPTR 0144 00482000 L ASVTPTR,CVTASVT(,@15) 0144 00483000 * ASVTSTP=ASVTPTR+ /* SAVE SCAN END POSITION */ 00484000 * ASVTMAXU*LENGTH(ASVTENTY); 0145 00485000 L ASVTSTP,ASVTMAXU(,ASVTPTR) 0145 00486000 SLA ASVTSTP,2 0145 00487000 ALR ASVTSTP,ASVTPTR 0145 00488000 * DO ASVTPTR=ASVTPTR BY /* STEP THRU ALL SLOTS IN TABLE */ 00489000 * LENGTH(ASVTENTY) WHILE(ASVTPTR/* PICK USER, CHK IF VALID */ 00496000 * ASCBOUCB WHILE(OUCBNAME='OUCB'&OUCBINV='0'B);/* 00497000 * @Z40BPCH*/ 00498000 L @15,ASVTENTY(,ASVTPTR) 0148 00499000 L OUCBPTR,ASCBOUCB(,@15) 0148 00500000 CLC OUCBNAME(4,OUCBPTR),@CC01893 0148 00501000 BNE @DC00148 0148 00502000 TM OUCBINV(OUCBPTR),B'00010000' 0148 00503000 BNZ @DC00148 0148 00504000 * IF OUCBATR='1'B& /* ACTIVE TRANSACTION IN MEMORY */ 00505000 * OUCBINC='1'B& /* SESSION NOT BETWEEN STEPS */ 00506000 * (OUCBRDY='1'B|/* TRANSACTION NOT SUSPENDED */ 00507000 * OUCBOUT='0'B) THEN/* TRANSACTN CURR EXECUTING */ 00508000 TM OUCBATR(OUCBPTR),B'10000001' 0149 00509000 BNO @RF00149 0149 00510000 TM OUCBRDY(OUCBPTR),B'10000000' 0149 00511000 BO @RT00149 0149 00512000 TM OUCBOUT(OUCBPTR),B'00000100' 0149 00513000 BNZ @RF00149 0149 00514000 @RT00149 DS 0H 0150 00515000 * DO; /* ADJUST WKLD ACTIVITY TOTALS 0150 00516000 * FOR APPROPRIATE PGP */ 00517000 * IF OUCBOUT='0'B THEN/* MEMORY NOT SWAPPED OUT */ 00518000 * 0151 00519000 TM OUCBOUT(OUCBPTR),B'00000100' 0151 00520000 BNZ @RF00151 0151 00521000 * /*********************************************/ 00522000 * /* */ 00523000 * /* ? IRACTLCL EPN(WM1) */ 00524000 * /* */ 00525000 * /*********************************************/ 00526000 * 0152 00527000 * CALL RMSBWM1->IRARMRTN;/* INVOKE WM1 SUBRTN */ 00528000 L @15,RMSBWM1(,RMCTPTR) 0152 00529000 BALR @14,@15 0152 00530000 */* OBTAIN SERVICE ACCUMULATED 0153 00531000 * FOR CURRENT IN-CORE INTERVAL */ 00532000 * 0153 00533000 * OUCBMAR='1'B; /* SET ENTRY UPDATE TO SUBTRACT */ 00534000 @RF00151 OI OUCBMAR(OUCBPTR),B'00000100' 0153 00535000 * CALL IRARMWR4;/* SUBTRACT PREV SERVICE, TIME */ 00536000 LA @15,IRARMWR4 0154 00537000 BALR @14,@15 0154 00538000 * OUCBMAR='0'B; /* RESET ENTRY UPDATE TO ADD */ 00539000 NI OUCBMAR(OUCBPTR),B'11111011' 0155 00540000 * R10=RMCTWAMT; /* SAVE ORIGINAL COLLECT, COPY */ 00541000 L R10,RMCTWAMT(,RMCTPTR) 0156 00542000 * R11=RRPAINP; 0157 00543000 L R11,RRPAINP(,RRPAPTR) 0157 00544000 * RMCTWAMT=R11; /* INTERCHANGE COLLECT, COPY */ 00545000 ST R11,RMCTWAMT(,RMCTPTR) 0158 00546000 * RRPAINP=R10; 0159 00547000 ST R10,RRPAINP(,RRPAPTR) 0159 00548000 * CALL IRARMWR4;/* ADD FROM USER TO COPY BUFFER */ 00549000 LA @15,IRARMWR4 0160 00550000 BALR @14,@15 0160 00551000 * RMCTWAMT=R10; 0161 00552000 ST R10,RMCTWAMT(,RMCTPTR) 0161 00553000 * RRPAINP=R11; /* RESTORE ORIG COLLECT, COPY */ 00554000 ST R11,RRPAINP(,RRPAPTR) 0162 00555000 * END; 0163 00556000 * END; 0164 00557000 @RF00149 DS 0H 0164 00558000 @DC00148 DS 0H 0165 00559000 * END; 0165 00560000 @RF00147 AL ASVTPTR,@CF00035 0165 00561000 @DE00146 CR ASVTPTR,ASVTSTP 0165 00562000 BL @DL00146 0165 00563000 * RESPECIFY 0166 00564000 * (RTNREG, 0166 00565000 * NTRREG, 0166 00566000 * RTNCOD) RSTD; 0166 00567000 * WAMTTMA=RMCTTOC; /* TIME DATA COLLECTION BEGUN */ 00568000 * 0167 00569000 MVC WAMTTMA(8,WAMTPTR),RMCTTOC(RMCTPTR) 0167 00570000 * /*********************************************************/ 00571000 * /* */ 00572000 * /* CALCULATE NORMALIZED WORKLOAD LEVEL FOR EACH */ 00573000 * /* PERFORMANCE PERIOD WITHIN THE WAMT. */ 00574000 * /* */ 00575000 * /*********************************************************/ 00576000 * 0168 00577000 * WAMTPTR=RRPAINP; /* ADDRESS OF COPY BUFFER */ 00578000 L WAMTPTR,RRPAINP(,RRPAPTR) 0168 00579000 * CALL IRARMWR5; /* CALCULATE NORMALIZED WKLD LEVL*/ 00580000 BAL @14,IRARMWR5 0169 00581000 * RRPARTC=ZERO; /* SUCCESSFUL DATA COLLECTION */ 00582000 MVI RRPARTC(RRPAPTR),X'00' 0170 00583000 * END; 0171 00584000 * ELSE /* IPS HAS BEEN CHANGED */ 00585000 * RRPARTC=XCON4; /* INDICATE IPS CHANGE OCCURRED 00586000 * TERMINATING WORKLOAD ACTIVITY 00587000 * DATA COLLECTION */ 00588000 B @RC00138 0172 00589000 @RF00138 MVI RRPARTC(RRPAPTR),X'04' 0172 00590000 * END; 0173 00591000 * ELSE /* BUFFERS NOT EQUAL */ 00592000 * RRPARTC=XCON40; /* UNSUCCESSFUL DATA COLLECTION */ 00593000 B @RC00135 0174 00594000 @RF00135 MVI RRPARTC(RRPAPTR),X'40' 0174 00595000 * GEN CODE EXIT NOSEQFLOW; 0175 00596000 @RC00135 DS 0H 0175 00597000 * /* 00598000 LM @00,@14,LEVEL3(@13) RELOAD INVOKING RTN REGS 00599000 BR RTNREG RETURN TO INVOKER 00600000 * 0176 00601000 */* **************************************************************** */ 00602000 */* */ 00603000 */* ROUTINE NAME - IRARMWR4 */ 00604000 */* */ 00605000 */* DESCRIPTIVE NAME - SRM WORKLOAD ACTIVITY RECORDING */ 00606000 */* TRANSACTION DATA UPDATE SUBROUTINE */ 00607000 */* */ 00608000 */* FUNCTION - TO ADD THE SERVICE AND TRANSACTION ACTIVE TIME TO THE */ 00609000 */* APPROPRIATE WAMT PERFORMANCE GROUP PERIOD ACCUMULATOR */ 00610000 */* IN THE DATA COLLECTION BUFFER. */ 00611000 */* */ 00612000 */* INPUT - REG 4 CONTAINS THE ADDRESS OF THE OUCB FROM WHICH THE */ 00613000 */* TRANSACTION AND PERFORMANCE GROUP DATA IS OBTAINED */ 00614000 */* */ 00615000 */* OUTPUT - NONE */ 00616000 */* */ 00617000 */* EXIT - RETURN VIA REG 14 */ 00618000 */* */ 00619000 */* **************************************************************** */ 00620000 * 0176 00621000 * /*****************************************************************/ 00622000 * /* */ 00623000 * /* ? IRACTLEP EPN(WR4) */ 00624000 * /* */ 00625000 * /*****************************************************************/ 00626000 * 0176 00627000 * DCL 0176 00628000 * IRARMWR4 ENTRY INT; 0176 00629000 * GEN CODE REFS(RMCTRMSA) NOEXIT SEQFLOW DEFS(IRARMWR4); 0177 00630000 * /* 00631000 ENTRY IRARMWR4 00632000 IRARMWR4 DS 0H 00633000 L @15,RMCTRMSA(,RMCTPTR) SRM SAVE AREA START ADDRESS 00634000 STM @00,@14,192+000(@15) SAVE INVOKING RTNE REGS 00635000 LR @13,@15 ROUTINE SAVE AREA ADDRESS 00636000 BALR @15,0 SETUP ENTRY ADDRESSABILITY 00637000 LA @12,*-@PSTART DISPLACEMENT TO MODULE BASE 00638000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00639000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00640000 * RESPECIFY 0178 00641000 * (R0, 0178 00642000 * R1, 0178 00643000 * ASVTPTR) UNRSTD; 0178 00644000 * WAMTPTR=RMCTWAMT; /* ADDRESS OF WAMT */ 00645000 L WAMTPTR,RMCTWAMT(,RMCTPTR) 0179 00646000 * CALL IRARMWR7; /* OFFSET INTO WORKLOAD ACTIVITY 00647000 * MEASUREMENT TABLE OF PGP FOR 00648000 * CURRENT MEMORY */ 00649000 BAL @14,IRARMWR7 0180 00650000 * IF OUCBMAR='0'B THEN /* TRANSACTION DATA TO BE ADDED */ 00651000 TM OUCBMAR(OUCBPTR),B'00000100' 0181 00652000 BNZ @RF00181 0181 00653000 * DO; 0182 00654000 * WAMPTAT=WAMPTAT+ /* UPDATE TRANSACTN ACTIVE TIME */ 00655000 * (RRPATOD-OUCBTMS); 0183 00656000 L @09,RRPATOD(,RRPAPTR) 0183 00657000 SL @09,OUCBTMS(,OUCBPTR) 0183 00658000 L @08,WAMPTAT(,WAMPPTR) 0183 00659000 ALR @08,@09 0183 00660000 ST @08,WAMPTAT(,WAMPPTR) 0183 00661000 * IF OUCBOUT='0'B THEN /* USER CURRENTLY RECEIV SERVIC */ 00662000 TM OUCBOUT(OUCBPTR),B'00000100' 0184 00663000 BNZ @RF00184 0184 00664000 * DO; /* @Z40BPCH*/ 00665000 * WAMPSRV=WAMPSRV+ /* UPDATE SERVICE ACCUMULATED */ 00666000 * OUCBWMS; 0186 00667000 L @08,WAMPSRV(,WAMPPTR) 0186 00668000 AL @08,OUCBWMS(,OUCBPTR) 0186 00669000 ST @08,WAMPSRV(,WAMPPTR) 0186 00670000 * WAMPCPU=WAMPCPU+OUCBCPU;/* UPDATE CPU SERVICE @Z40BPCH*/ 00671000 L @08,WAMPCPU(,WAMPPTR) 0187 00672000 AL @08,OUCBCPU(,OUCBPTR) 0187 00673000 ST @08,WAMPCPU(,WAMPPTR) 0187 00674000 * WAMPIOC=WAMPIOC+OUCBIOC;/* UPDATE I/O SERVICE @Z40BPCH*/ 00675000 L @08,WAMPIOC(,WAMPPTR) 0188 00676000 AL @08,OUCBIOC(,OUCBPTR) 0188 00677000 ST @08,WAMPIOC(,WAMPPTR) 0188 00678000 * WAMPMSO=WAMPMSO+OUCBMSO;/* UPDATE MSO SERVICE @Z40BPCH*/ 00679000 L @08,WAMPMSO(,WAMPPTR) 0189 00680000 AL @08,OUCBMSO(,OUCBPTR) 0189 00681000 ST @08,WAMPMSO(,WAMPPTR) 0189 00682000 * IF RRPACOD^=RSTORCMP THEN/* IF NOT RESTORE CMPLT @Z40BPCH*/ 00683000 CLI RRPACOD(RRPAPTR),19 0190 00684000 BE @RF00190 0190 00685000 * WAMPTRR=WAMPTRR+(RRPATOD-OUCBTMS);/* UPDATE TRANS 0191 00686000 * RESIDENT TIME @Z40BPCH*/ 00687000 AL @09,WAMPTRR(,WAMPPTR) 0191 00688000 ST @09,WAMPTRR(,WAMPPTR) 0191 00689000 * IF RRPACOD=QSCECMP THEN /* QUIESCE COMPLETE @Z40BPCH*/ 00690000 @RF00190 CLI RRPACOD(RRPAPTR),13 0192 00691000 BNE @RF00192 0192 00692000 * WAMPSWC=WAMPSWC+ONE; /* UPDATE PERIOD SWP CNT @Z40BPCH*/ 00693000 LA @09,1 0193 00694000 AL @09,WAMPSWC(,WAMPPTR) 0193 00695000 ST @09,WAMPSWC(,WAMPPTR) 0193 00696000 * END; /* @Z40BPCH*/ 00697000 * END; 0195 00698000 * ELSE /* XACTN DATA TO BE SUBTRACTED */ 00699000 * DO; 0196 00700000 B @RC00181 0196 00701000 @RF00181 DS 0H 0197 00702000 * WAMPTAT=WAMPTAT- /* SUBTRACT PREVIOUS TRANSACTN */ 00703000 * (RRPATOD-OUCBTMS); /* ACTIVE TIME FROM NEW PERIOD */ 00704000 L @09,RRPATOD(,RRPAPTR) 0197 00705000 SL @09,OUCBTMS(,OUCBPTR) 0197 00706000 L @08,WAMPTAT(,WAMPPTR) 0197 00707000 SLR @08,@09 0197 00708000 ST @08,WAMPTAT(,WAMPPTR) 0197 00709000 * IF OUCBOUT='0'B THEN /* USER CURRENTLY RECEIV SERVC */ 00710000 TM OUCBOUT(OUCBPTR),B'00000100' 0198 00711000 BNZ @RF00198 0198 00712000 * DO; /* @Z40BPCH*/ 00713000 * WAMPSRV=WAMPSRV- /* SUBTRACT SERVICE PREV RECVD */ 00714000 * OUCBWMS; /* FROM NEW PERIOD ENTRY */ 00715000 L @08,WAMPSRV(,WAMPPTR) 0200 00716000 SL @08,OUCBWMS(,OUCBPTR) 0200 00717000 ST @08,WAMPSRV(,WAMPPTR) 0200 00718000 * WAMPCPU=WAMPCPU-OUCBCPU;/* SUBTRACT PREV CPU SERV 0201 00719000 * @Z40BPCH*/ 00720000 L @08,WAMPCPU(,WAMPPTR) 0201 00721000 SL @08,OUCBCPU(,OUCBPTR) 0201 00722000 ST @08,WAMPCPU(,WAMPPTR) 0201 00723000 * WAMPIOC=WAMPIOC-OUCBIOC;/* SUBTRACT PREV I/O SERV 0202 00724000 * @Z40BPCH*/ 00725000 L @08,WAMPIOC(,WAMPPTR) 0202 00726000 SL @08,OUCBIOC(,OUCBPTR) 0202 00727000 ST @08,WAMPIOC(,WAMPPTR) 0202 00728000 * WAMPMSO=WAMPMSO-OUCBMSO;/* SUBTRACT PREV MSO SERV 0203 00729000 * @Z40BPCH*/ 00730000 L @08,WAMPMSO(,WAMPPTR) 0203 00731000 SL @08,OUCBMSO(,OUCBPTR) 0203 00732000 ST @08,WAMPMSO(,WAMPPTR) 0203 00733000 * IF RRPACOD^=RSTORCMP THEN/* NOT RESTORE CMPLT @Z40BPCH*/ 00734000 CLI RRPACOD(RRPAPTR),19 0204 00735000 BE @RF00204 0204 00736000 * WAMPTRR=WAMPTRR-(RRPATOD-OUCBTMS);/* UPDATE TRANSACTION 00737000 * RESIDENT TIME @Z40BPCH*/ 00738000 LCR @09,@09 0205 00739000 AL @09,WAMPTRR(,WAMPPTR) 0205 00740000 ST @09,WAMPTRR(,WAMPPTR) 0205 00741000 * END; /* @Z40BPCH*/ 00742000 @RF00204 DS 0H 0207 00743000 * END; 0207 00744000 * 0207 00745000 @RF00198 DS 0H 0208 00746000 * /*****************************************************************/ 00747000 * /* */ 00748000 * /* ? IRACTLEP ENN(WR4) */ 00749000 * /* */ 00750000 * /*****************************************************************/ 00751000 * 0208 00752000 * GEN CODE EXIT NOSEQFLOW; 0208 00753000 @RC00181 DS 0H 0208 00754000 * /* 00755000 LM @00,@14,192+000(@13) RELOAD INVOKING RTNE REGS 00756000 BR RTNREG RETURN TO INVOKER 00757000 * RESPECIFY 0209 00758000 * (R0, 0209 00759000 * R1, 0209 00760000 * ASVTPTR) RSTD; 0209 00761000 * 0210 00762000 */* **************************************************************** */ 00763000 */* */ 00764000 */* ROUTINE NAME - IRARMWR5 */ 00765000 */* */ 00766000 */* DESCRIPTIVE NAME - SRM WORKLOAD ACTIVITY RECORDING NORMALIZED */ 00767000 */* WORKLOAD LEVEL CALCULATION SUBROUTINE */ 00768000 */* */ 00769000 */* FUNCTION - TO CALCULATE THE NORMALIZED WORKLOAD LEVEL FOR EACH */ 00770000 */* WAMT PERFORMANCE GROUP PERIOD ENTRY IN WHICH TRANS- */ 00771000 */* ACTION DATA HAS BEEN ACCUMULATED DURING THE LAST */ 00772000 */* DATA COLLECTION INTERVAL. */ 00773000 */* NOTE: FOR THOSE WAMT ENTRIES IN WHICH THE SERVICE */ 00774000 */* RATE CALCULATED CAN BE ASSOCIATED WITH MULTIPLE*/ 00775000 */* NORMALIZED WORKLOAD LEVELS OR IS ZERO EVEN */ 00776000 */* THOUGH AT LEAST ONE TRANSACTION HAS BEEN ACTIVE*/ 00777000 */* DURING THE DATA COLLECTION INTERVAL, THE */ 00778000 */* NEGATIVE VALUE OF THE NORMALIZED WORKLOAD LEVEL*/ 00779000 */* WILL BE CALCULATED TO INDICATE TO MF/1 AN */ 00780000 */* ESTIMATED VALUE. */ 00781000 */* */ 00782000 */* INPUT - REG 6 CONTAINS THE ADDRESS OF THE WAMT */ 00783000 */* */ 00784000 */* OUTPUT - NONE */ 00785000 */* */ 00786000 */* EXIT - RETURN VIA REG 14 */ 00787000 */* */ 00788000 */* **************************************************************** */ 00789000 * 0210 00790000 *IRARMWR5: 0210 00791000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0210 00792000 IRARMWR5 DS 0H 0211 00793000 * DCL 0211 00794000 * RTNSAV REG(11) PTR(31); /* RETURN POINT SAVE */ 00795000 * RTNSAV=RTNREG; /* SAVE RETURN POINT ADDRESS */ 00796000 LR RTNSAV,RTNREG 0212 00797000 * RESPECIFY 0213 00798000 * (RTNREG, 0213 00799000 * NTRREG, 0213 00800000 * RTNCOD) UNRSTD; 0213 00801000 * RESPECIFY 0214 00802000 * (R0, 0214 00803000 * R1, 0214 00804000 * ASVTPTR, 0214 00805000 * OUCBPTR) UNRSTD; 0214 00806000 * WMSTPTR=RMCTWMST; /* ADDRESS OF WMST */ 00807000 L WMSTPTR,RMCTWMST(,RMCTPTR) 0215 00808000 * WAMPPTR=WAMTPTR+ /* PICK 1ST WAMP ENTRY */ 00809000 * WAMTNX1; 0216 00810000 LR WAMPPTR,WAMTPTR 0216 00811000 AL WAMPPTR,WAMTNX1(,WAMTPTR) 0216 00812000 * DO WPGNNUM=ONE BY ONE /* STEP THRU ALL PERFORMANCE */ 00813000 * TO WMSTPGHI; /* GROUPS IN THE IPS */ 00814000 LA @04,1 0217 00815000 ST @04,WPGNNUM(,RMCTPTR) 0217 00816000 B @DE00217 0217 00817000 @DL00217 DS 0H 0218 00818000 * IF WPGVTENT^=ZERO THEN /* BYPASS GROUPS NOT SPECIFIED */ 00819000 SLR @04,@04 0218 00820000 L @15,WPGNNUM(,RMCTPTR) 0218 00821000 ALR @15,@15 0218 00822000 AL @15,WMSTPGVT(,WMSTPTR) 0218 00823000 LH @15,WPGVTENT(,@15) 0218 00824000 CR @15,@04 0218 00825000 BE @RF00218 0218 00826000 * DO; 0219 00827000 * WPGDPTR=WMSTPGDT+ /* PICK DESCRIPTR FOR PERF GROUP */ 00828000 * WPGVTENT; 0220 00829000 AL @15,WMSTPGDT(,WMSTPTR) 0220 00830000 ST @15,WPGDPTR(,RMCTPTR) 0220 00831000 * WPGDSTP=ZERO; /* MARK PGD END NOT REACHED */ 00832000 ST @04,WPGDSTP(,RMCTPTR) 0221 00833000 * DO WPGPPTR=ADDR(WPGDPGP) /* PROCESS ALL PERIODS */ 00834000 * BY LENGTH(WPGP) /* WITHIN A PERFORMANCE GROUP */ 00835000 * WHILE(WPGDSTP=ZERO); 0222 00836000 LA WPGPPTR,WPGDPGP(,@15) 0222 00837000 B @DE00222 0222 00838000 @DL00222 DS 0H 0223 00839000 * IF WAMPSVZERO THEN /* IF TRANSACTION ACTIVE TIME */ 00882000 @RF00235 L @04,WAMPTAT(,WAMPPTR) 0237 00883000 CL @04,@CF00100 0237 00884000 BNH @RF00237 0237 00885000 * DO; /* POSITIVE, PERFORM CALCULATION */ 00886000 * RESPECIFY 0239 00887000 * (R0, 0239 00888000 * R1, 0239 00889000 * ASVTPTR, 0239 00890000 * OUCBPTR) RSTD; 0239 00891000 * OUCBPTR=RMCTOUCB; /* DUMMY OUCB ADDRESS */ 00892000 L OUCBPTR,RMCTOUCB(,RMCTPTR) 0240 00893000 * R0=WAMPSRV*RMTMFCT/ /* SERVICE RATE PER SECOND */ 00894000 * WAMPTAT; 0241 00895000 L R0,WAMPSRV(,WAMPPTR) 0241 00896000 MH R0,@CH01858 0241 00897000 L @15,WAMPTAT(,WAMPPTR) 0241 00898000 LR @09,R0 0241 00899000 SLR @08,@08 0241 00900000 DR @08,@15 0241 00901000 LR R0,@09 0241 00902000 * WPODPTR=WMSTPODT+ /* PERF OBJECTIVE DESCRPT ADDRESS*/ 00903000 * WPOVTENT; 0242 00904000 * 0242 00905000 SLR @15,@15 0242 00906000 IC @15,WPGPOBJN(,WPGPPTR) 0242 00907000 ALR @15,@15 0242 00908000 AL @15,WMSTPOVT(,WMSTPTR) 0242 00909000 LH WPODPTR,WPOVTENT(,@15) 0242 00910000 AL WPODPTR,WMSTPODT(,WMSTPTR) 0242 00911000 * /*****************************************************/ 00912000 * /* */ 00913000 * /* CALCULATE NORMALIZED WORKLOAD LEVEL. ? IRACTLCL */ 00914000 * /* EPN(WM4) */ 00915000 * /* */ 00916000 * /*****************************************************/ 00917000 * 0243 00918000 * CALL RMSBWM4->IRARMRTN;/* INVOKE WM4 SUBRTN */ 00919000 L @15,RMSBWM4(,RMCTPTR) 0243 00920000 BALR @14,@15 0243 00921000 * WAMPNWL=R0; /* NORM. WORKLOAD LEVEL @Z40BPCH*/ 00922000 ST R0,WAMPNWL(,WAMPPTR) 0244 00923000 * IF(WPOSSRVWMSTPGDT+OUCBWMG); 0272 01098000 * 0272 01099000 */* */ 01100000 */* OBTAIN THE PERFORMANCE GROUP AND PERFORMANCE GROUP PERIOD IN */ 01101000 */* WHICH THE MEMORY IS CURRENTLY EXECUTING. */ 01102000 */* */ 01103000 * 0273 01104000 * WAMPPTR=WAMTPTR+WAMTNDX(WPGDPGN)+/* OFFSET IN WAMT TO PGP ENTRY 01105000 * TO ACCUMULATE CURRENT INCORE 01106000 * DATA */ 01107000 * (OUCBPGP-WPGDCOM)*WAMTSPD/LENGTH(WPGP); 0273 01108000 L @15,RMCTWMST(,RMCTPTR) 0273 01109000 LH @11,OUCBWMG(,OUCBPTR) 0273 01110000 AL @11,WMSTPGDT(,@15) 0273 01111000 SLR @15,@15 0273 01112000 IC @15,WPGDPGN(,@11) 0273 01113000 SLA @15,2 0273 01114000 LR WAMPPTR,WAMTPTR 0273 01115000 AL WAMPPTR,WAMTNDX-4(@15,WAMTPTR) 0273 01116000 SLR @09,@09 0273 01117000 IC @09,OUCBPGP(,OUCBPTR) 0273 01118000 SH @09,WPGDCOM 0273 01119000 LH @15,WAMTSPD(,WAMTPTR) 0273 01120000 MR @08,@15 0273 01121000 D @08,@CF00150 0273 01122000 ALR WAMPPTR,@09 0273 01123000 * RESPECIFY 0274 01124000 * WPGD BASED(WPGDPTR); 0274 01125000 * RESPECIFY 0275 01126000 * (R10, 0275 01127000 * R11, 0275 01128000 * NTRREG, 0275 01129000 * RTNCOD) RSTD; 0275 01130000 * END IRARMWR7; 0276 01131000 @EL00004 DS 0H 0276 01132000 @EF00004 DS 0H 0276 01133000 @ER00004 BR @14 0276 01134000 * 0277 01135000 */* **************************************************************** */ 01136000 */* */ 01137000 */* ROUTINE NAME - IRARMWR8 */ 01138000 */* */ 01139000 */* DESCRIPTIVE NAME - SRM WORKLOAD ACTIVITY RECORDING */ 01140000 */* IPS CHANGE SUBROUTINE */ 01141000 */* */ 01142000 */* FUNCTION - TO TERMINATE WORKLOAD ACTIVITY DATA COLLECTION */ 01143000 */* WHENEVER AN IPS CHANGE OCCURS. */ 01144000 */* */ 01145000 */* INPUT - NONE */ 01146000 */* */ 01147000 */* OUTPUT - NONE */ 01148000 */* */ 01149000 */* EXIT - RETURN VIA REG 14 */ 01150000 */* */ 01151000 */* **************************************************************** */ 01152000 * 0277 01153000 * GEN CODE DEFS(IRARMWR8) NOEXIT SEQFLOW; 0277 01154000 * /* 01155000 ENTRY IRARMWR8 WAR IPS CHANGE PROCESSING 01156000 IRARMWR8 DS 0H 01157000 STM @00,@14,LEVEL3(@13) SAVE INVOKING RTN REGS 01158000 LA @12,IRARMWR8-@PSTART DISPLACEMENT TO MODULE BASE 01159000 LCR @12,@12 NEGATIVE FOR SUBTRACT 01160000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 01161000 * WAMTPTR=RMCTWAMT; /* WAMT ADDRESS */ 01162000 L WAMTPTR,RMCTWAMT(,RMCTPTR) 0278 01163000 * RMCTMFA='0'B; /* DE-ACTIVATE WORKLOAD ACTIVITY 01164000 * DATA COLLECTION */ 01165000 * RMCTSTW='1'B; /* SET TO NEW IPS TERMINATED WAR 01166000 * DATA COLLECTION */ 01167000 OI RMCTSTW(RMCTPTR),B'00000100' 0280 01168000 NI RMCTMFA(RMCTPTR),B'01111111' 0280 01169000 * RMCTMFS='1'B; /* SET TO NEW IPS TERMINATED WAR 01170000 * DATA COLLECTION @Z40BPCH*/ 01171000 OI RMCTMFS(RMCTPTR),B'01000000' 0281 01172000 * RESPECIFY 0282 01173000 * (R10, 0282 01174000 * R11) UNRSTD; 0282 01175000 * ASVTPTR=CVTASVT; /* ADDRESS SPACE VECTOR TABLE ADR*/ 01176000 L @11,CVTPTR 0283 01177000 L ASVTPTR,CVTASVT(,@11) 0283 01178000 * ASVTSTP=ASVTPTR+ /* CALCULATE SCAN END ADDRESS */ 01179000 * ASVTMAXU*LENGTH(ASVTENTY); 0284 01180000 L ASVTSTP,ASVTMAXU(,ASVTPTR) 0284 01181000 SLA ASVTSTP,2 0284 01182000 ALR ASVTSTP,ASVTPTR 0284 01183000 * DO ASVTPTR=ASVTPTR /* STEP THRU ALL ASCBS IN ASVT */ 01184000 * BY LENGTH(ASVTENTY) WHILE(ASVTPTR /* ADDRESSABILITY TO OUCB */ 01191000 * ASCBOUCB WHILE(OUCBNAME=/* VALIDATE OUCB */ 01192000 * 'OUCB'&OUCBINV='0'B); /* @Z40BPCH*/ 01193000 L @11,ASVTENTY(,ASVTPTR) 0287 01194000 L OUCBPTR,ASCBOUCB(,@11) 0287 01195000 CLC OUCBNAME(4,OUCBPTR),@CC01893 0287 01196000 BNE @DC00287 0287 01197000 TM OUCBINV(OUCBPTR),B'00010000' 0287 01198000 BNZ @DC00287 0287 01199000 * IF OUCBATR='1'B& /* ACTIVE TRANSACTION FOR MEMORY */ 01200000 * OUCBINC='1'B& /* SESSION NOT BETWEEN STEPS */ 01201000 * (OUCBRDY='1'B| /* TRANSACTION NOT SUSPENDED */ 01202000 * OUCBOUT='0'B) THEN /* TRANSACTION NOW EXECUTING */ 01203000 TM OUCBATR(OUCBPTR),B'10000001' 0288 01204000 BNO @RF00288 0288 01205000 TM OUCBRDY(OUCBPTR),B'10000000' 0288 01206000 BO @RT00288 0288 01207000 TM OUCBOUT(OUCBPTR),B'00000100' 0288 01208000 BNZ @RF00288 0288 01209000 @RT00288 DS 0H 0289 01210000 * DO; /* ADJUST WKLD ACTIVITY TOTALS 0289 01211000 * FOR APPROPRIATE PGP */ 01212000 * IF OUCBOUT='0'B THEN /* MEMORY NOT SWAPPED OUT */ 01213000 * 0290 01214000 TM OUCBOUT(OUCBPTR),B'00000100' 0290 01215000 BNZ @RF00290 0290 01216000 * /*****************************************************/ 01217000 * /* */ 01218000 * /* ? IRACTLCL EPN(WM1) */ 01219000 * /* */ 01220000 * /*****************************************************/ 01221000 * 0291 01222000 * CALL RMSBWM1->IRARMRTN;/* INVOKE WM1 SUBRTN */ 01223000 * 0291 01224000 L @15,RMSBWM1(,RMCTPTR) 0291 01225000 BALR @14,@15 0291 01226000 * /*******************************************************/ 01227000 * /* */ 01228000 * /* OBTAIN SERVICE ACCUMULATED FOR CURRENT IN-CORE */ 01229000 * /* INTERVAL */ 01230000 * /* */ 01231000 * /*******************************************************/ 01232000 * 0292 01233000 * CALL IRARMWR4; /* ADD IN CURRENT SERVICE, TIME */ 01234000 @RF00290 LA @15,IRARMWR4 0292 01235000 BALR @14,@15 0292 01236000 * END; 0293 01237000 * END; 0294 01238000 @RF00288 DS 0H 0294 01239000 @DC00287 DS 0H 0295 01240000 * END; 0295 01241000 @RF00286 AL ASVTPTR,@CF00035 0295 01242000 @DE00285 CR ASVTPTR,ASVTSTP 0295 01243000 BL @DL00285 0295 01244000 * RESPECIFY 0296 01245000 * (R10, 0296 01246000 * R11) RSTD; 0296 01247000 * WAMTTOC=RMCTTOC; /* TIME DATA COLLECTION STOPPED */ 01248000 MVC WAMTTOC(8,WAMTPTR),RMCTTOC(RMCTPTR) 0297 01249000 */* */ 01250000 */* CALCULATE NORMALIZED WORKLOAD LEVEL FOR EACH PERFORMANCE */ 01251000 */* GROUP PERIOD WITHIN THE WORKLOAD ACTIVITY MEASUREMENT TABLE. */ 01252000 */* */ 01253000 * 0298 01254000 * CALL IRARMWR5; 0298 01255000 BAL @14,IRARMWR5 0298 01256000 * GEN CODE EXIT NOSEQFLOW; 0299 01257000 * /* 01258000 LM @00,@14,LEVEL3(@13) RELOAD INVOKING RTN REGS 01259000 BR RTNREG RETURN TO INVOKER 01260000 * END IRARMWAR 0300 01261000 * 0300 01262000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01263000 */*%INCLUDE SYSLIB (IRACNSMP) */ 01264000 */*%INCLUDE SYSLIB (IRARMCT ) */ 01265000 */*%INCLUDE SYSLIB (IRACCT ) */ 01266000 */*%INCLUDE SYSLIB (IRAICT ) */ 01267000 */*%INCLUDE SYSLIB (IRAMCT ) */ 01268000 */*%INCLUDE SYSLIB (IRARCT ) */ 01269000 */*%INCLUDE SYSLIB (IRARMPT ) */ 01270000 */*%INCLUDE SYSLIB (IRARMCA ) */ 01271000 */*%INCLUDE SYSLIB (IRARMEX ) */ 01272000 */*%INCLUDE SYSLIB (IRARMSB ) */ 01273000 */*%INCLUDE SYSLIB (IRAEPAT ) */ 01274000 */*%INCLUDE SYSLIB (IRAEPDT ) */ 01275000 */*%INCLUDE SYSLIB (IRAEPST ) */ 01276000 */*%INCLUDE SYSLIB (IRARRPA ) */ 01277000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01278000 */*%INCLUDE SYSLIB (IRAOUCB ) */ 01279000 */*%INCLUDE SYSLIB (IHAOUXB ) */ 01280000 */*%INCLUDE SYSLIB (IHAASVT ) */ 01281000 */*%INCLUDE SYSLIB (IRAWAMT ) */ 01282000 */*%INCLUDE SYSLIB (IRAWMST ) */ 01283000 */*%INCLUDE SYSLIB (IRAWPGDT) */ 01284000 */*%INCLUDE SYSLIB (IRAWPODT) */ 01285000 */*%INCLUDE SYSLIB (CVT ) */ 01286000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01287000 */*%INCLUDE SYSLIB (IRAREGS ) */ 01288000 * 0300 01289000 * ; 0300 01290000 @DATA DS 0H 01291000 @CH01858 DC H'976' 01292000 DS 0F 01293000 DS 0F 01294000 @CF00100 DC F'0' 01295000 @CF00035 DC F'4' 01296000 @CF00150 DC F'8' 01297000 @CF00070 DC F'64' 01298000 DS 0D 01299000 WPGDCOM DC AL2(20-8) 01300000 @CC01893 DC C'OUCB' 01301000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01302000 @01 EQU 01 01303000 @02 EQU 02 01304000 @03 EQU 03 01305000 @04 EQU 04 01306000 @05 EQU 05 01307000 @06 EQU 06 01308000 @07 EQU 07 01309000 @08 EQU 08 01310000 @09 EQU 09 01311000 @10 EQU 10 01312000 @11 EQU 11 01313000 @12 EQU 12 01314000 @13 EQU 13 01315000 @14 EQU 14 01316000 @15 EQU 15 01317000 RMCTPTR EQU @02 01318000 RRPAPTR EQU @03 01319000 ASCBPTR EQU @05 01320000 OUCBPTR EQU @04 01321000 OUXBPTR EQU @06 01322000 ASVTPTR EQU @01 01323000 WAMTPTR EQU @06 01324000 WAMPPTR EQU @07 01325000 WMSTPTR EQU @05 01326000 WPGPPTR EQU @10 01327000 WPGLPTR EQU @15 01328000 WPODPTR EQU @01 01329000 R0 EQU @00 01330000 R1 EQU @01 01331000 SVEREG EQU @13 01332000 RTNREG EQU @14 01333000 NTRREG EQU @15 01334000 RTNCOD EQU @15 01335000 ASVTSTP EQU @07 01336000 R10 EQU @10 01337000 R11 EQU @11 01338000 RTNSAV EQU @11 01339000 PSA EQU 0 01340000 FLCRNPSW EQU PSA 01341000 FLCROPSW EQU PSA+8 01342000 FLCICCW2 EQU PSA+16 01343000 FLCCVT EQU FLCICCW2 01344000 PSAEEPSW EQU PSA+132 01345000 PSAESPSW EQU PSA+136 01346000 FLCSVILC EQU PSAESPSW+1 01347000 PSAEPPSW EQU PSA+140 01348000 FLCPIILC EQU PSAEPPSW+1 01349000 FLCPICOD EQU PSAEPPSW+2 01350000 PSAPICOD EQU FLCPICOD+1 01351000 FLCTEA EQU PSAEPPSW+4 01352000 FLCPER EQU PSA+152 01353000 FLCMCLA EQU PSA+168 01354000 FLCIOEL EQU FLCMCLA+4 01355000 FLCIOA EQU FLCMCLA+16 01356000 FLCFSA EQU FLCMCLA+80 01357000 PSATOLD EQU PSA+540 01358000 PSASUPER EQU PSA+552 01359000 PSASUP1 EQU PSASUPER 01360000 PSASUP2 EQU PSASUPER+1 01361000 PSASUP3 EQU PSASUPER+2 01362000 PSASUP4 EQU PSASUPER+3 01363000 PSACLHT EQU PSA+640 01364000 PSALKSA EQU PSA+696 01365000 PSAHLHI EQU PSA+760 01366000 PSADSSFL EQU PSA+836 01367000 PSADSSF1 EQU PSADSSFL 01368000 PSADSSF3 EQU PSADSSFL+2 01369000 PSADSSF4 EQU PSADSSFL+3 01370000 PSARSVT EQU PSA+896 01371000 RMCT EQU 0 01372000 RMCTWMST EQU RMCT+24 01373000 RMCTRMSA EQU RMCT+32 01374000 RMCTWAMT EQU RMCT+88 01375000 RMCTTOC EQU RMCT+128 01376000 RMCTFLGS EQU RMCT+148 01377000 RMCTMFA EQU RMCTFLGS 01378000 RMCTSTW EQU RMCTFLGS 01379000 RMCTMFS EQU RMCTFLGS+1 01380000 RMCTOUCB EQU RMCT+168 01381000 CCT EQU RMCT+192 01382000 CCTFLG1 EQU CCT+124 01383000 ICT EQU RMCT+320 01384000 ICTFLAGS EQU ICT+84 01385000 MCT EQU RMCT+408 01386000 MCTSFLGS EQU MCT+64 01387000 MCTOFLGS EQU MCT+65 01388000 RCT EQU RMCT+504 01389000 RMPT EQU RMCT+592 01390000 RMCA EQU RMCT+664 01391000 RMCAFLGS EQU RMCA+36 01392000 RMCAWKA EQU RMCA+80 01393000 RMCASRC EQU RMCA+124 01394000 RMEX EQU RMCT+832 01395000 RMEPBEVT EQU RMEX 01396000 RMEPBCTL EQU RMEX+16 01397000 RMSB EQU RMCT+896 01398000 RMSBWM1 EQU RMSB+52 01399000 RMSBWM4 EQU RMSB+56 01400000 RMSBWR4 EQU RMSB+88 01401000 RMSBWR6 EQU RMSB+92 01402000 EPAT EQU RMCT+1016 01403000 EPDT EQU RMCT+1416 01404000 EPST EQU RMCT+1512 01405000 RMEPBWM3 EQU EPST 01406000 RMEPBIL3 EQU EPST+16 01407000 RMEPBCL3 EQU EPST+32 01408000 RMEPBCSO EQU EPST+48 01409000 RMEPBCSI EQU EPST+64 01410000 RRPA EQU 0 01411000 RRPAINC EQU RRPA 01412000 RRPAASD EQU RRPAINC 01413000 RRPAVPGN EQU RRPAINC+2 01414000 RRPAFLG0 EQU RRPAVPGN 01415000 RRPACOD EQU RRPAINC+3 01416000 RRPAINP EQU RRPA+4 01417000 RRPAFLG EQU RRPA+8 01418000 RRPARTC EQU RRPA+11 01419000 RRPATOD EQU RRPA+12 01420000 RRPAINS EQU RRPA+16 01421000 ASCB EQU 0 01422000 ASCBSUPC EQU ASCB+16 01423000 ASCBRSM EQU ASCB+52 01424000 ASCBRSMF EQU ASCBRSM 01425000 ASCBFW1 EQU ASCB+100 01426000 ASCBRCTF EQU ASCBFW1+2 01427000 ASCBFLG1 EQU ASCBFW1+3 01428000 ASCBDSP1 EQU ASCB+114 01429000 ASCBFLG2 EQU ASCB+115 01430000 ASCBLKGP EQU ASCB+128 01431000 ASCBOUCB EQU ASCB+144 01432000 ASCBSRQ EQU ASCB+180 01433000 ASCBSRQ1 EQU ASCBSRQ 01434000 ASCBSRQ2 EQU ASCBSRQ+1 01435000 ASCBSRQ3 EQU ASCBSRQ+2 01436000 ASCBSRQ4 EQU ASCBSRQ+3 01437000 OUCB EQU 0 01438000 OUCBNAME EQU OUCB 01439000 OUCBQFL EQU OUCB+16 01440000 OUCBOUT EQU OUCBQFL 01441000 OUCBSFL EQU OUCB+17 01442000 OUCBINV EQU OUCBSFL 01443000 OUCBYFL EQU OUCB+18 01444000 OUCBAFL EQU OUCB+19 01445000 OUCBTFL EQU OUCB+20 01446000 OUCBATR EQU OUCBTFL 01447000 OUCBNTR EQU OUCBTFL 01448000 OUCBMAR EQU OUCBTFL 01449000 OUCBINC EQU OUCBTFL 01450000 OUCBEFL EQU OUCB+21 01451000 OUCBUFL EQU OUCB+23 01452000 OUCBPGP EQU OUCB+31 01453000 OUCBWMG EQU OUCB+32 01454000 OUCBWMS EQU OUCB+52 01455000 OUCBCPU EQU OUCB+56 01456000 OUCBIOC EQU OUCB+60 01457000 OUCBMSO EQU OUCB+64 01458000 OUCBTMS EQU OUCB+68 01459000 OUCBTMO EQU OUCB+72 01460000 OUCBCSW EQU OUCB+84 01461000 OUCBCFL EQU OUCBCSW+2 01462000 OUCBRDY EQU OUCBCFL 01463000 OUCBPSS EQU OUCB+112 01464000 OUXB EQU 0 01465000 ASVT EQU 0 01466000 ASVTMAXU EQU ASVT+516 01467000 ASVTFRST EQU ASVT+524 01468000 ASVTENTY EQU ASVT+528 01469000 ASVTAVAL EQU ASVTENTY 01470000 WAMT EQU 0 01471000 WAMTSIZ EQU WAMT+4 01472000 WAMTTMA EQU WAMT+8 01473000 WAMTTOC EQU WAMT+16 01474000 WAMTASD EQU WAMT+24 01475000 WAMTTCB EQU WAMT+28 01476000 WAMTIPS EQU WAMT+32 01477000 WAMTCPD EQU WAMT+34 01478000 WAMTSPD EQU WAMT+36 01479000 WAMTHPG EQU WAMT+38 01480000 WAMTIPC EQU WAMT+40 01481000 WAMTIPI EQU WAMT+44 01482000 WAMTIPM EQU WAMT+48 01483000 WAMTNX0 EQU WAMT+52 01484000 WAMTNX1 EQU WAMT+56 01485000 WAMP EQU 0 01486000 WAMPPGP EQU WAMP 01487000 WAMPTRN EQU WAMPPGP 01488000 WAMPTAT EQU WAMPPGP+4 01489000 WAMPSRV EQU WAMPPGP+8 01490000 WAMPTET EQU WAMPPGP+12 01491000 WAMPNWL EQU WAMPPGP+16 01492000 WAMPCPU EQU WAMPPGP+20 01493000 WAMPIOC EQU WAMPPGP+24 01494000 WAMPMSO EQU WAMPPGP+28 01495000 WAMPTRR EQU WAMPPGP+32 01496000 WAMPSWC EQU WAMPPGP+36 01497000 WAMPOBJN EQU WAMPPGP+40 01498000 WAMPDMN EQU WAMPPGP+41 01499000 WMST EQU 0 01500000 WMSTID EQU WMST+4 01501000 WMSTPGVT EQU WMST+8 01502000 WMSTPGDT EQU WMST+16 01503000 WMSTPOVT EQU WMST+24 01504000 WMSTPODT EQU WMST+32 01505000 WMSTPGHI EQU WMST+62 01506000 WMSTPGPC EQU WMST+64 01507000 WMSTIPC EQU WMST+100 01508000 WMSTIPI EQU WMST+104 01509000 WMSTIPM EQU WMST+108 01510000 WPGD EQU 0 01511000 WPGDPGN EQU WPGD 01512000 WPGDDFL EQU WPGD+3 01513000 WPGDPGP EQU WPGD+12 01514000 WPGDINDS EQU WPGDPGP+5 01515000 WPGP EQU 0 01516000 WPGPOBJN EQU WPGP 01517000 WPGPDMN EQU WPGP+1 01518000 WPGPINDS EQU WPGP+5 01519000 WPGPFIN EQU WPGPINDS 01520000 WPGL EQU 0 01521000 WPGLISV EQU WPGL 01522000 WPOD EQU 0 01523000 WPOP EQU WPOD 01524000 WPOPSRV EQU WPOP 01525000 WPOS EQU WPOD+4 01526000 WPOSSRV EQU WPOS 01527000 CVTMAP EQU 0 01528000 CVTDAR EQU CVTMAP+72 01529000 CVTFLGS1 EQU CVTDAR 01530000 CVTDCB EQU CVTMAP+116 01531000 CVTIOQET EQU CVTMAP+120 01532000 CVTIERLC EQU CVTMAP+144 01533000 CVTHEAD EQU CVTMAP+160 01534000 CVTSV76C EQU CVTHEAD 01535000 CVTOPTA EQU CVTMAP+182 01536000 CVTOPTB EQU CVTMAP+183 01537000 CVTGTF EQU CVTMAP+236 01538000 CVTGTFST EQU CVTGTF 01539000 CVTGTFS EQU CVTGTFST 01540000 CVTSTATE EQU CVTGTFST 01541000 CVTTMODE EQU CVTGTFST 01542000 CVTFORM EQU CVTGTFST 01543000 CVTAQAVT EQU CVTMAP+240 01544000 CVTTCMFG EQU CVTAQAVT 01545000 CVTVOLM2 EQU CVTMAP+244 01546000 CVTTATA EQU CVTVOLM2 01547000 CVTTSKS EQU CVTTATA 01548000 CVTVOLF2 EQU CVTTSKS 01549000 CVTTAT EQU CVTTATA+1 01550000 CVTATER EQU CVTMAP+248 01551000 CVTEXT1 EQU CVTMAP+252 01552000 CVTPURG EQU CVTMAP+260 01553000 CVTQMSG EQU CVTMAP+268 01554000 CVTDMSR EQU CVTMAP+272 01555000 CVTRSV37 EQU CVTDMSR 01556000 CVTDMSRF EQU CVTRSV37 01557000 CVTERPV EQU CVTMAP+316 01558000 CVTINTLA EQU CVTMAP+320 01559000 CVTAPF EQU CVTMAP+324 01560000 CVTEXT2 EQU CVTMAP+328 01561000 CVTHJES EQU CVTMAP+332 01562000 CVTPGSIA EQU CVTMAP+348 01563000 CVTA1F1 EQU CVTMAP+356 01564000 CVTSYSK EQU CVTMAP+357 01565000 CVTVOLM1 EQU CVTMAP+380 01566000 CVTVOLF1 EQU CVTVOLM1 01567000 CVTATMCT EQU CVTMAP+388 01568000 CVTXTNT1 EQU 0 01569000 CVTXTNT2 EQU 0 01570000 CVTDSSV EQU CVTXTNT2 01571000 CVTFLGBT EQU CVTXTNT2+5 01572000 CVTQID EQU CVTXTNT2+24 01573000 CVTRV400 EQU CVTXTNT2+52 01574000 CVTRV409 EQU CVTXTNT2+53 01575000 CVTATCVT EQU CVTXTNT2+64 01576000 CVTRV429 EQU CVTXTNT2+84 01577000 CVTRV438 EQU CVTXTNT2+85 01578000 CVTRV457 EQU CVTXTNT2+112 01579000 CVTRV466 EQU CVTXTNT2+113 01580000 CVTFIX EQU 0 01581000 CVTRELNO EQU CVTFIX+252 01582000 IRARMRTN EQU 0 01583000 WAMTXNTR EQU 0 01584000 WPGVTENT EQU 0 01585000 WPOVTENT EQU 0 01586000 IRARMNTR EQU 0 01587000 WAMTNDX EQU WAMTNX1 01588000 CVTPTR EQU FLCCVT 01589000 CVTS01 EQU CVTPGSIA 01590000 CVTLPDIA EQU CVTS01+12 01591000 CVTDIRST EQU CVTLPDIA 01592000 CVTSLIDA EQU CVTS01+24 01593000 CVTCTLFG EQU CVTS01+50 01594000 CVTASVT EQU CVTS01+208 01595000 CVTRV210 EQU CVTS01+424 01596000 CVTRV219 EQU CVTS01+425 01597000 CVTRV228 EQU CVTS01+426 01598000 CVTRV237 EQU CVTS01+427 01599000 CVTMFRTR EQU CVTS01+452 01600000 CVTRV262 EQU CVTS01+468 01601000 CVTRV271 EQU CVTS01+469 01602000 CVTRV280 EQU CVTS01+470 01603000 CVTRV289 EQU CVTS01+471 01604000 CVTGSDA EQU CVTS01+600 01605000 PSARSVTE EQU PSARSVT 01606000 WARWRKA EQU RMCAWKA 01607000 WAMTXPTR EQU WARWRKA 01608000 WPGNNUM EQU WARWRKA+4 01609000 WPGDSTP EQU WARWRKA+8 01610000 WPGDPTR EQU WARWRKA+12 01611000 WAMPSV EQU WAMPSRV 01612000 WAMPCU EQU WAMPCPU 01613000 WAMPIC EQU WAMPIOC 01614000 WAMPMO EQU WAMPMSO 01615000 WAMPTR EQU WAMPTRR 01616000 WAMPSW EQU WAMPSWC 01617000 WAMPET EQU WAMPTET 01618000 FLC EQU PSA 01619000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01620000 PSARSAV EQU PSARSVTE+60 01621000 PSARSTK EQU PSARSVTE+56 01622000 PSAESAV3 EQU PSARSVTE+52 01623000 PSAESTK3 EQU PSARSVTE+48 01624000 PSAESAV2 EQU PSARSVTE+44 01625000 PSAESTK2 EQU PSARSVTE+40 01626000 PSAESAV1 EQU PSARSVTE+36 01627000 PSAESTK1 EQU PSARSVTE+32 01628000 PSAPSAV EQU PSARSVTE+28 01629000 PSAPSTK EQU PSARSVTE+24 01630000 PSAMSAV EQU PSARSVTE+20 01631000 PSAMSTK EQU PSARSVTE+16 01632000 PSASSAV EQU PSARSVTE+12 01633000 PSASSTK EQU PSARSVTE+8 01634000 PSANSTK EQU PSARSVTE+4 01635000 PSACSTK EQU PSARSVTE 01636000 CVTRV628 EQU CVTS01+728 01637000 CVTRV627 EQU CVTS01+724 01638000 CVTRV626 EQU CVTS01+720 01639000 CVTRV625 EQU CVTS01+716 01640000 CVTRV624 EQU CVTS01+712 01641000 CVTRV623 EQU CVTS01+708 01642000 CVTRV622 EQU CVTS01+704 01643000 CVTRV621 EQU CVTS01+700 01644000 CVTIHASU EQU CVTS01+696 01645000 CVTSUSP EQU CVTS01+692 01646000 CVTT6SVC EQU CVTS01+688 01647000 CVTCDAL EQU CVTS01+684 01648000 CVTTCTL EQU CVTS01+680 01649000 CVTRSUME EQU CVTS01+676 01650000 CVTJTERM EQU CVTS01+672 01651000 CVTASMRM EQU CVTS01+668 01652000 CVTTCASP EQU CVTS01+664 01653000 CVT0PT03 EQU CVTS01+660 01654000 CVT0PT0E EQU CVTS01+656 01655000 CVTRV609 EQU CVTS01+652 01656000 CVTCGK EQU CVTS01+648 01657000 CVTRAC EQU CVTS01+644 01658000 CVTHSM EQU CVTS01+640 01659000 CVTRV605 EQU CVTS01+636 01660000 CVTRV604 EQU CVTS01+632 01661000 CVTEFF02 EQU CVTS01+628 01662000 CVTCBBR EQU CVTS01+624 01663000 CVTSSCR EQU CVTS01+620 01664000 CVTEVENT EQU CVTS01+616 01665000 CVTCRCA EQU CVTS01+612 01666000 CVTTPIO EQU CVTS01+608 01667000 CVTADV EQU CVTS01+604 01668000 CVTGSDAB EQU CVTGSDA 01669000 CVTQV3 EQU CVTS01+596 01670000 CVTQV2 EQU CVTS01+592 01671000 CVTQV1 EQU CVTS01+588 01672000 CVTRPT EQU CVTS01+584 01673000 CVTSSRB EQU CVTS01+580 01674000 CVTCSDRL EQU CVTS01+576 01675000 CVTEXP1 EQU CVTS01+572 01676000 CVTRMPMT EQU CVTS01+568 01677000 CVTRMPTT EQU CVTS01+564 01678000 CVTVPSA EQU CVTS01+560 01679000 CVTVSTOP EQU CVTS01+556 01680000 CVTGTFR8 EQU CVTS01+552 01681000 CVTQUIT EQU CVTS01+548 01682000 CVTVACR EQU CVTS01+544 01683000 CVTWTCB EQU CVTS01+540 01684000 CVTSTPRS EQU CVTS01+536 01685000 CVT0PT02 EQU CVTS01+532 01686000 CVTDARCM EQU CVTS01+528 01687000 CVTIRECM EQU CVTS01+524 01688000 CVTJRECM EQU CVTS01+520 01689000 CVTVEMS0 EQU CVTS01+516 01690000 CVTSPFRR EQU CVTS01+512 01691000 CVTRLSTG EQU CVTS01+508 01692000 CVT0TC0A EQU CVTS01+504 01693000 CVTGMBR EQU CVTS01+500 01694000 CVTLFRM EQU CVTS01+496 01695000 CVTRMBR EQU CVTS01+492 01696000 CVTVIOP EQU CVTS01+488 01697000 CVTRV307 EQU CVTS01+486 01698000 CVTRV306 EQU CVTS01+484 01699000 CVTRV305 EQU CVTS01+482 01700000 CVTRV304 EQU CVTS01+480 01701000 CVTRV303 EQU CVTS01+478 01702000 CVTRV302 EQU CVTS01+476 01703000 CVTTRCA EQU CVTS01+472 01704000 CVTRV297 EQU CVTRV289 01705000 CVTRV296 EQU CVTRV289 01706000 CVTRV295 EQU CVTRV289 01707000 CVTRV294 EQU CVTRV289 01708000 CVTRV293 EQU CVTRV289 01709000 CVTRV292 EQU CVTRV289 01710000 CVTRV291 EQU CVTRV289 01711000 CVTRV290 EQU CVTRV289 01712000 CVTRV288 EQU CVTRV280 01713000 CVTRV287 EQU CVTRV280 01714000 CVTRV286 EQU CVTRV280 01715000 CVTRV285 EQU CVTRV280 01716000 CVTRV284 EQU CVTRV280 01717000 CVTRV283 EQU CVTRV280 01718000 CVTRV282 EQU CVTRV280 01719000 CVTRV281 EQU CVTRV280 01720000 CVTRV279 EQU CVTRV271 01721000 CVTRV278 EQU CVTRV271 01722000 CVTRV277 EQU CVTRV271 01723000 CVTRV276 EQU CVTRV271 01724000 CVTRV275 EQU CVTRV271 01725000 CVTRV274 EQU CVTRV271 01726000 CVTRV273 EQU CVTRV271 01727000 CVTRV272 EQU CVTRV271 01728000 CVTRV270 EQU CVTRV262 01729000 CVTRV269 EQU CVTRV262 01730000 CVTRV268 EQU CVTRV262 01731000 CVTRV267 EQU CVTRV262 01732000 CVTRV266 EQU CVTRV262 01733000 CVTRV265 EQU CVTRV262 01734000 CVTRV264 EQU CVTRV262 01735000 CVTRV263 EQU CVTRV262 01736000 CVTVFP EQU CVTS01+464 01737000 CVTVSI EQU CVTS01+460 01738000 CVTVPSIB EQU CVTS01+456 01739000 CVTMFACT EQU CVTMFRTR 01740000 CVTMFCTL EQU CVTS01+448 01741000 CVTPVBP EQU CVTS01+444 01742000 CVTPWI EQU CVTS01+440 01743000 CVTRV254 EQU CVTS01+438 01744000 CVTRV253 EQU CVTS01+436 01745000 CVTRV252 EQU CVTS01+434 01746000 CVTRV251 EQU CVTS01+433 01747000 CVTRV250 EQU CVTS01+432 01748000 CVTRV249 EQU CVTS01+431 01749000 CVTRV248 EQU CVTS01+430 01750000 CVTRV247 EQU CVTS01+429 01751000 CVTRV246 EQU CVTS01+428 01752000 CVTRV245 EQU CVTRV237 01753000 CVTRV244 EQU CVTRV237 01754000 CVTRV243 EQU CVTRV237 01755000 CVTRV242 EQU CVTRV237 01756000 CVTRV241 EQU CVTRV237 01757000 CVTRV240 EQU CVTRV237 01758000 CVTRV239 EQU CVTRV237 01759000 CVTRV238 EQU CVTRV237 01760000 CVTRV236 EQU CVTRV228 01761000 CVTRV235 EQU CVTRV228 01762000 CVTRV234 EQU CVTRV228 01763000 CVTRV233 EQU CVTRV228 01764000 CVTRV232 EQU CVTRV228 01765000 CVTRV231 EQU CVTRV228 01766000 CVTRV230 EQU CVTRV228 01767000 CVTRV229 EQU CVTRV228 01768000 CVTRV227 EQU CVTRV219 01769000 CVTRV226 EQU CVTRV219 01770000 CVTRV225 EQU CVTRV219 01771000 CVTRV224 EQU CVTRV219 01772000 CVTRV223 EQU CVTRV219 01773000 CVTRV222 EQU CVTRV219 01774000 CVTRV221 EQU CVTRV219 01775000 CVTRV220 EQU CVTRV219 01776000 CVTRV218 EQU CVTRV210 01777000 CVTRV217 EQU CVTRV210 01778000 CVTRV216 EQU CVTRV210 01779000 CVTRV215 EQU CVTRV210 01780000 CVTRV214 EQU CVTRV210 01781000 CVTRV213 EQU CVTRV210 01782000 CVTRV212 EQU CVTRV210 01783000 CVTRV211 EQU CVTRV210 01784000 CVTLCCAT EQU CVTS01+420 01785000 CVTPCCAT EQU CVTS01+416 01786000 CVTIPCRP EQU CVTS01+412 01787000 CVTIPCRI EQU CVTS01+408 01788000 CVTIPCDS EQU CVTS01+404 01789000 CVTAIDVT EQU CVTS01+400 01790000 CVTSSAP EQU CVTS01+396 01791000 CVTEHCIR EQU CVTS01+392 01792000 CVTEHDEF EQU CVTS01+388 01793000 CVTDAIR EQU CVTS01+384 01794000 CVTPERFM EQU CVTS01+380 01795000 CVT044R2 EQU CVTS01+376 01796000 CVTFETCH EQU CVTS01+372 01797000 CVTRSTWD EQU CVTS01+368 01798000 CVTSPOST EQU CVTS01+364 01799000 CVTIOBP EQU CVTS01+360 01800000 CVTASMVT EQU CVTS01+356 01801000 CVTRECRQ EQU CVTS01+352 01802000 CVTWSAC EQU CVTS01+348 01803000 CVTRV149 EQU CVTS01+344 01804000 CVTWSAL EQU CVTS01+340 01805000 CVTSPSA EQU CVTS01+336 01806000 CVTGLMN EQU CVTS01+332 01807000 CVTVEAC0 EQU CVTS01+328 01808000 CVT062R1 EQU CVTS01+324 01809000 CVTRPOST EQU CVTS01+320 01810000 CVTDQIQE EQU CVTS01+316 01811000 CVTCSD EQU CVTS01+312 01812000 CVTLKRMA EQU CVTS01+308 01813000 CVTRSPIE EQU CVTS01+304 01814000 CVTRENQ EQU CVTS01+300 01815000 CVTLQCB EQU CVTS01+296 01816000 CVTFQCB EQU CVTS01+292 01817000 CVTQCS01 EQU CVTS01+288 01818000 CVTAPFT EQU CVTS01+284 01819000 CVTPARRL EQU CVTS01+280 01820000 CVTVWAIT EQU CVTS01+276 01821000 CVTGSPL EQU CVTS01+272 01822000 CVTLSMQ EQU CVTS01+268 01823000 CVTGSMQ EQU CVTS01+264 01824000 CVTEXPRO EQU CVTS01+260 01825000 CVTOPCTP EQU CVTS01+256 01826000 CVTSIC EQU CVTS01+252 01827000 CVTTPIOS EQU CVTS01+248 01828000 CVTRTMS EQU CVTS01+244 01829000 CVTSDBF EQU CVTS01+240 01830000 CVTSCBP EQU CVTS01+236 01831000 CVTSDMP EQU CVTS01+232 01832000 CVTSV60 EQU CVTS01+228 01833000 CVTRTMCT EQU CVTS01+224 01834000 CVTASCBL EQU CVTS01+220 01835000 CVTASCBH EQU CVTS01+216 01836000 CVTGDA EQU CVTS01+212 01837000 CVTVVMDI EQU CVTS01+204 01838000 CVTAQTOP EQU CVTS01+200 01839000 CVTIOSCS EQU CVTS01+196 01840000 CVTSDRM EQU CVTS01+192 01841000 CVTOPTE EQU CVTS01+188 01842000 CVTSTXU EQU CVTS01+184 01843000 CVTQUIS EQU CVTS01+180 01844000 CVTPARS EQU CVTS01+176 01845000 CVTS1EE EQU CVTS01+172 01846000 CVTFRAS EQU CVTS01+168 01847000 CVTQSAS EQU CVTS01+164 01848000 CVTCRAS EQU CVTS01+160 01849000 CVTCRMN EQU CVTS01+156 01850000 CVTDELCP EQU CVTS01+152 01851000 CVTFRECL EQU CVTS01+148 01852000 CVTGETCL EQU CVTS01+144 01853000 CVTBLDCP EQU CVTS01+140 01854000 CVTAUTHL EQU CVTS01+136 01855000 CVTSCAN EQU CVTS01+132 01856000 CVTRV144 EQU CVTS01+130 01857000 CVTMAXMP EQU CVTS01+128 01858000 CVTSTCK EQU CVTS01+124 01859000 CVTRV139 EQU CVTS01+123 01860000 CVTDSSAC EQU CVTS01+122 01861000 CVTRV513 EQU CVTS01+121 01862000 CVTIOSPL EQU CVTS01+120 01863000 CVTPTGT EQU CVTS01+116 01864000 CVTCSPIE EQU CVTS01+112 01865000 CVTSMFEX EQU CVTS01+108 01866000 CVTOLT0A EQU CVTS01+104 01867000 CVTSRBRT EQU CVTS01+100 01868000 CVTPUTL EQU CVTS01+96 01869000 CVTASCRL EQU CVTS01+92 01870000 CVTASCRF EQU CVTS01+88 01871000 CVTRV326 EQU CVTS01+84 01872000 CVTRV325 EQU CVTS01+80 01873000 CVTRV324 EQU CVTS01+76 01874000 CVT0VL01 EQU CVTS01+72 01875000 CVTSHRVM EQU CVTS01+68 01876000 CVTRV332 EQU CVTS01+64 01877000 CVTTAS EQU CVTS01+60 01878000 CVTRSCN EQU CVTS01+56 01879000 CVTTRAC2 EQU CVTS01+54 01880000 CVTTRACE EQU CVTS01+52 01881000 CVTAPG EQU CVTS01+51 01882000 CVTSDTRC EQU CVTCTLFG 01883000 CVTGTRCE EQU CVTCTLFG 01884000 CVTNOMP EQU CVTCTLFG 01885000 CVTRSV79 EQU CVTCTLFG 01886000 CVTDSTAT EQU CVTCTLFG 01887000 CVTRSV78 EQU CVTCTLFG 01888000 CVTRV333 EQU CVTCTLFG 01889000 CVTRV323 EQU CVTCTLFG 01890000 CVTSPVLK EQU CVTS01+49 01891000 CVTRSV77 EQU CVTS01+48 01892000 CVTRV331 EQU CVTS01+44 01893000 CVTRV330 EQU CVTS01+40 01894000 CVTRV329 EQU CVTS01+36 01895000 CVTRV328 EQU CVTS01+32 01896000 CVTRV322 EQU CVTS01+28 01897000 CVTSLID EQU CVTSLIDA+1 01898000 CVTSYLK EQU CVTSLIDA 01899000 CVTRV321 EQU CVTS01+20 01900000 CVTRV320 EQU CVTS01+16 01901000 CVTLPDIR EQU CVTLPDIA+1 01902000 CVTRSV69 EQU CVTDIRST 01903000 CVTRSV68 EQU CVTDIRST 01904000 CVTRSV67 EQU CVTDIRST 01905000 CVTRSV66 EQU CVTDIRST 01906000 CVTRSV65 EQU CVTDIRST 01907000 CVTRSV64 EQU CVTDIRST 01908000 CVTRSV63 EQU CVTDIRST 01909000 CVTDICOM EQU CVTDIRST 01910000 CVTPVTP EQU CVTS01+8 01911000 CVTLPDSR EQU CVTS01+4 01912000 CVTGETL EQU CVTS01 01913000 CVTLEVL EQU CVTRELNO+2 01914000 CVTNUMB EQU CVTRELNO 01915000 CVTMDL EQU CVTFIX+250 01916000 @NM00007 EQU CVTFIX+248 01917000 @NM00006 EQU CVTFIX 01918000 CVTRV482 EQU CVTXTNT2+128 01919000 CVTRV481 EQU CVTXTNT2+124 01920000 CVTRV480 EQU CVTXTNT2+120 01921000 CVTRV479 EQU CVTXTNT2+118 01922000 CVTRV478 EQU CVTXTNT2+117 01923000 CVTRV477 EQU CVTXTNT2+116 01924000 CVTRV476 EQU CVTXTNT2+115 01925000 CVTRV475 EQU CVTXTNT2+114 01926000 CVTRV474 EQU CVTRV466 01927000 CVTRV473 EQU CVTRV466 01928000 CVTRV472 EQU CVTRV466 01929000 CVTRV471 EQU CVTRV466 01930000 CVTRV470 EQU CVTRV466 01931000 CVTRV469 EQU CVTRV466 01932000 CVTRV468 EQU CVTRV466 01933000 CVTRV467 EQU CVTRV466 01934000 CVTRV465 EQU CVTRV457 01935000 CVTRV464 EQU CVTRV457 01936000 CVTRV463 EQU CVTRV457 01937000 CVTRV462 EQU CVTRV457 01938000 CVTRV461 EQU CVTRV457 01939000 CVTRV460 EQU CVTRV457 01940000 CVTRV459 EQU CVTRV457 01941000 CVTRV458 EQU CVTRV457 01942000 CVTRV456 EQU CVTXTNT2+108 01943000 CVTRV455 EQU CVTXTNT2+104 01944000 CVTRV454 EQU CVTXTNT2+100 01945000 CVTRV453 EQU CVTXTNT2+96 01946000 CVTRV452 EQU CVTXTNT2+94 01947000 CVTRV451 EQU CVTXTNT2+92 01948000 CVTRV450 EQU CVTXTNT2+90 01949000 CVTRV449 EQU CVTXTNT2+88 01950000 CVTRV448 EQU CVTXTNT2+87 01951000 CVTRV447 EQU CVTXTNT2+86 01952000 CVTRV446 EQU CVTRV438 01953000 CVTRV445 EQU CVTRV438 01954000 CVTRV444 EQU CVTRV438 01955000 CVTRV443 EQU CVTRV438 01956000 CVTRV442 EQU CVTRV438 01957000 CVTRV441 EQU CVTRV438 01958000 CVTRV440 EQU CVTRV438 01959000 CVTRV439 EQU CVTRV438 01960000 CVTRV437 EQU CVTRV429 01961000 CVTRV436 EQU CVTRV429 01962000 CVTRV435 EQU CVTRV429 01963000 CVTRV434 EQU CVTRV429 01964000 CVTRV433 EQU CVTRV429 01965000 CVTRV432 EQU CVTRV429 01966000 CVTRV431 EQU CVTRV429 01967000 CVTRV430 EQU CVTRV429 01968000 CVTRV428 EQU CVTXTNT2+80 01969000 CVTRV427 EQU CVTXTNT2+76 01970000 CVTRV426 EQU CVTXTNT2+72 01971000 CVTRV425 EQU CVTXTNT2+68 01972000 CVTATACT EQU CVTATCVT 01973000 CVTRV423 EQU CVTXTNT2+62 01974000 CVTRV422 EQU CVTXTNT2+60 01975000 CVTRV421 EQU CVTXTNT2+58 01976000 CVTRV420 EQU CVTXTNT2+56 01977000 CVTRV419 EQU CVTXTNT2+55 01978000 CVTRV418 EQU CVTXTNT2+54 01979000 CVTRV417 EQU CVTRV409 01980000 CVTRV416 EQU CVTRV409 01981000 CVTRV415 EQU CVTRV409 01982000 CVTRV414 EQU CVTRV409 01983000 CVTRV413 EQU CVTRV409 01984000 CVTRV412 EQU CVTRV409 01985000 CVTRV411 EQU CVTRV409 01986000 CVTRV410 EQU CVTRV409 01987000 CVTRV408 EQU CVTRV400 01988000 CVTRV407 EQU CVTRV400 01989000 CVTRV406 EQU CVTRV400 01990000 CVTRV405 EQU CVTRV400 01991000 CVTRV404 EQU CVTRV400 01992000 CVTRV403 EQU CVTRV400 01993000 CVTRV402 EQU CVTRV400 01994000 CVTRV401 EQU CVTRV400 01995000 CVTICB EQU CVTXTNT2+48 01996000 CVTSKTA EQU CVTXTNT2+44 01997000 CVTCCVT EQU CVTXTNT2+40 01998000 CVTRSV98 EQU CVTXTNT2+36 01999000 CVTRSV97 EQU CVTXTNT2+34 02000000 CVTRSV96 EQU CVTXTNT2+32 02001000 CVTOLTEP EQU CVTXTNT2+28 02002000 CVTQIDA EQU CVTQID+1 02003000 CVTRSV95 EQU CVTQID 02004000 CVTRSV94 EQU CVTXTNT2+20 02005000 CVTRSV93 EQU CVTXTNT2+16 02006000 CVTRSV92 EQU CVTXTNT2+12 02007000 CVTDEBVR EQU CVTXTNT2+8 02008000 CVTRSV91 EQU CVTXTNT2+6 02009000 CVTRSV9H EQU CVTFLGBT 02010000 CVTRSV9G EQU CVTFLGBT 02011000 CVTRSV9F EQU CVTFLGBT 02012000 CVTRSV9E EQU CVTFLGBT 02013000 CVTRSV9D EQU CVTFLGBT 02014000 CVTRSV9C EQU CVTFLGBT 02015000 CVTVME EQU CVTFLGBT 02016000 CVTNPE EQU CVTFLGBT 02017000 CVTNUCLS EQU CVTXTNT2+4 02018000 CVTDSSVA EQU CVTDSSV+1 02019000 CVTRSV89 EQU CVTDSSV 02020000 CVTRSV88 EQU CVTXTNT1+8 02021000 CVTRSV87 EQU CVTXTNT1+4 02022000 CVTFACHN EQU CVTXTNT1 02023000 CVTRV488 EQU CVTMAP+412 02024000 CVTRV487 EQU CVTMAP+408 02025000 CVTRV486 EQU CVTMAP+404 02026000 CVTRV485 EQU CVTMAP+400 02027000 CVTACTAP EQU CVTMAP+396 02028000 CVTAUTH EQU CVTMAP+392 02029000 CVTATMCA EQU CVTATMCT+1 02030000 CVTATMST EQU CVTATMCT 02031000 CVTRSV61 EQU CVTMAP+384 02032000 CVTVOLT1 EQU CVTVOLM1+1 02033000 CVTVOLI1 EQU CVTVOLF1 02034000 CVTSTOA EQU CVTMAP+376 02035000 CVTRSV58 EQU CVTMAP+374 02036000 CVTRSV57 EQU CVTMAP+372 02037000 CVTDDCE EQU CVTMAP+368 02038000 CVTPNWFR EQU CVTMAP+364 02039000 CVTSMF EQU CVTMAP+360 02040000 CVTSULK EQU CVTMAP+358 02041000 CVTSLKO EQU CVTSYSK 02042000 CVTSLKP EQU CVTSYSK 02043000 CVTSLKQ EQU CVTSYSK 02044000 CVTSLKR EQU CVTSYSK 02045000 CVTRSV56 EQU CVTSYSK 02046000 CVTRSV55 EQU CVTSYSK 02047000 CVTRSV54 EQU CVTSYSK 02048000 CVTRSV53 EQU CVTSYSK 02049000 CVTRSV52 EQU CVTA1F1 02050000 CVTRSV51 EQU CVTA1F1 02051000 CVTRSV50 EQU CVTA1F1 02052000 CVTRSV49 EQU CVTA1F1 02053000 CVTRSV48 EQU CVTA1F1 02054000 CVTRSV47 EQU CVTA1F1 02055000 CVTSRSW EQU CVTA1F1 02056000 CVTPFSW EQU CVTA1F1 02057000 CVTPCVT EQU CVTMAP+352 02058000 CVTRSV46 EQU CVTMAP+344 02059000 CVTRSV45 EQU CVTMAP+340 02060000 CVTRSV44 EQU CVTMAP+338 02061000 CVTRSV43 EQU CVTMAP+336 02062000 CVTHJESA EQU CVTHJES+1 02063000 CVTRSV42 EQU CVTHJES 02064000 CVTEXT2A EQU CVTEXT2+1 02065000 CVTRSV41 EQU CVTEXT2 02066000 CVTAPFA EQU CVTAPF+1 02067000 CVTRSV40 EQU CVTAPF 02068000 CVTRV518 EQU CVTINTLA 02069000 CVTRV517 EQU CVTERPV 02070000 CVTEORM EQU CVTMAP+312 02071000 CVTMCHPR EQU CVTMAP+308 02072000 CVTTZ EQU CVTMAP+304 02073000 CVTJEPS EQU CVTMAP+300 02074000 CVTJESCT EQU CVTMAP+296 02075000 CVTMODE EQU CVTMAP+292 02076000 CVTPTRV EQU CVTMAP+288 02077000 CVTREAL EQU CVTMAP+284 02078000 CVTRSV39 EQU CVTMAP+280 02079000 CVTRSV38 EQU CVTMAP+276 02080000 CVTDMSRA EQU CVTDMSR+1 02081000 CVTRV634 EQU CVTDMSRF 02082000 CVTRV633 EQU CVTDMSRF 02083000 CVTRV632 EQU CVTDMSRF 02084000 CVTRV631 EQU CVTDMSRF 02085000 CVTRV630 EQU CVTDMSRF 02086000 CVTRV629 EQU CVTDMSRF 02087000 CVTUDUMP EQU CVTDMSRF 02088000 CVTSDUMP EQU CVTDMSRF 02089000 CVTQMSGA EQU CVTQMSG+1 02090000 CVTRSV36 EQU CVTQMSG 02091000 CVTAMFF EQU CVTMAP+264 02092000 CVTPURGA EQU CVTPURG+1 02093000 CVTRSV35 EQU CVTPURG 02094000 CVTCBSP EQU CVTMAP+256 02095000 CVTATERA EQU CVTATER+1 02096000 CVTSYST EQU CVTATER 02097000 CVTVOLT2 EQU CVTTAT 02098000 CVTVOLI2 EQU CVTVOLF2 02099000 CVTAQAVB EQU CVTAQAVT+1 02100000 CVTRSV34 EQU CVTTCMFG 02101000 CVTRSV33 EQU CVTTCMFG 02102000 CVTRSV32 EQU CVTTCMFG 02103000 CVTRSV31 EQU CVTTCMFG 02104000 CVTRSV30 EQU CVTTCMFG 02105000 CVTRSV29 EQU CVTTCMFG 02106000 CVTLDEV EQU CVTTCMFG 02107000 CVTTCRDY EQU CVTTCMFG 02108000 CVTGTFA EQU CVTGTF+1 02109000 CVTRSV27 EQU CVTGTFST 02110000 CVTRNIO EQU CVTGTFST 02111000 CVTUSR EQU CVTGTFST 02112000 CVTRV318 EQU CVTFORM 02113000 CVTRV317 EQU CVTTMODE 02114000 CVTRV316 EQU CVTSTATE 02115000 CVTRV315 EQU CVTGTFS 02116000 CVTGTFAV EQU CVTGTFS 02117000 CVT0SCR1 EQU CVTMAP+232 02118000 CVTRV515 EQU CVTMAP+228 02119000 CVTRMS EQU CVTMAP+224 02120000 CVTPATCH EQU CVTMAP+220 02121000 CVTTSCE EQU CVTMAP+216 02122000 CVTLNKSC EQU CVTMAP+214 02123000 CVTQABST EQU CVTMAP+212 02124000 CVTMDLDS EQU CVTMAP+208 02125000 CVTUSER EQU CVTMAP+204 02126000 CVTABEND EQU CVTMAP+200 02127000 CVTSMCA EQU CVTMAP+196 02128000 CVTRSV18 EQU CVTMAP+192 02129000 CVTQLPAQ EQU CVTMAP+188 02130000 CVTQCDSR EQU CVTMAP+184 02131000 CVTRSV17 EQU CVTOPTB 02132000 CVTRSV16 EQU CVTOPTB 02133000 CVTFP EQU CVTOPTB 02134000 CVTAPTHR EQU CVTOPTB 02135000 CVTNLOG EQU CVTOPTB 02136000 CVTTOD EQU CVTOPTB 02137000 CVTCTIMS EQU CVTOPTB 02138000 CVTPROT EQU CVTOPTB 02139000 CVTXPFP EQU CVTOPTA 02140000 CVTASCII EQU CVTOPTA 02141000 CVTRSV13 EQU CVTOPTA 02142000 CVTRSV12 EQU CVTOPTA 02143000 CVTNIP EQU CVTOPTA 02144000 CVTDDR EQU CVTOPTA 02145000 CVTAPR EQU CVTOPTA 02146000 CVTCCH EQU CVTOPTA 02147000 CVTSNCTR EQU CVTMAP+180 02148000 CVTQMWR EQU CVTMAP+176 02149000 CVTQOCR EQU CVTMAP+172 02150000 CVT1EF00 EQU CVTMAP+168 02151000 CVTMZ00 EQU CVTMAP+164 02152000 CVTSV76Q EQU CVTSV76C 02153000 CVTRSV11 EQU CVTMAP+156 02154000 CVT0PT01 EQU CVTMAP+152 02155000 CVTMSER EQU CVTMAP+148 02156000 CVTRV516 EQU CVTIERLC 02157000 CVTILCH EQU CVTMAP+140 02158000 CVT0DS EQU CVTMAP+136 02159000 CVTFBOSV EQU CVTMAP+132 02160000 CVTNUCB EQU CVTMAP+128 02161000 CVTIXAVL EQU CVTMAP+124 02162000 CVTSV76M EQU CVTIOQET 02163000 CVTDCBA EQU CVTMAP+117 02164000 CVTMVS2 EQU CVTDCB 02165000 CVT6DAT EQU CVTDCB 02166000 CVT4MPS EQU CVTDCB 02167000 CVTRSV09 EQU CVTDCB 02168000 CVT4MS1 EQU CVTDCB 02169000 CVT2SPS EQU CVTDCB 02170000 CVT1SSS EQU CVTDCB 02171000 CVTRSV08 EQU CVTDCB 02172000 CVTSTB EQU CVTMAP+112 02173000 CVTQTD00 EQU CVTMAP+108 02174000 CVTQTE00 EQU CVTMAP+104 02175000 CVTCUCB EQU CVTMAP+100 02176000 CVTSJQ EQU CVTMAP+96 02177000 CVTPBLDL EQU CVTMAP+92 02178000 CVTTPC EQU CVTMAP+88 02179000 CVTSVDCB EQU CVTMAP+84 02180000 CVTBRET EQU CVTMAP+82 02181000 CVTEXIT EQU CVTMAP+80 02182000 CVT0FN00 EQU CVTMAP+76 02183000 CVTDARA EQU CVTDAR+1 02184000 CVTRSV07 EQU CVTFLGS1 02185000 CVTRSV06 EQU CVTFLGS1 02186000 CVTRSV05 EQU CVTFLGS1 02187000 CVTRSV04 EQU CVTFLGS1 02188000 CVTRSV03 EQU CVTFLGS1 02189000 CVTRSV02 EQU CVTFLGS1 02190000 CVTRSV01 EQU CVTFLGS1 02191000 CVTDMPLK EQU CVTFLGS1 02192000 CVTXITP EQU CVTMAP+68 02193000 CVTZDTAB EQU CVTMAP+64 02194000 CVTMSLT EQU CVTMAP+60 02195000 CVTDATE EQU CVTMAP+56 02196000 CVTBTERM EQU CVTMAP+52 02197000 CVTSYSAD EQU CVTMAP+48 02198000 CVTXTLER EQU CVTMAP+44 02199000 CVTILK2 EQU CVTMAP+40 02200000 CVTILK1 EQU CVTMAP+36 02201000 CVTPRLTV EQU CVTMAP+32 02202000 CVTPCNVT EQU CVTMAP+28 02203000 CVT0VL00 EQU CVTMAP+24 02204000 CVTXAPG EQU CVTMAP+20 02205000 CVTBUF EQU CVTMAP+16 02206000 CVTJOB EQU CVTMAP+12 02207000 CVTLINK EQU CVTMAP+8 02208000 CVT0EF00 EQU CVTMAP+4 02209000 CVTTCBP EQU CVTMAP 02210000 CVT EQU CVTMAP 02211000 WPOSEND EQU WPOD+8 02212000 WPOSWKL EQU WPOS+2 02213000 WPODEND EQU WPOD+4 02214000 WPOPWKL EQU WPOP+2 02215000 WPGLEND EQU WPGL+4 02216000 WPGLDUR EQU WPGLISV 02217000 WPGPEND EQU WPGP+8 02218000 WPGPDURP EQU WPGP+7 02219000 WPGPISVP EQU WPGP+6 02220000 WPGPRTB EQU WPGPINDS 02221000 WPGPRB2 EQU WPGPINDS 02222000 WPGPAPG EQU WPGPINDS 02223000 WPGPUNT EQU WPGPINDS 02224000 WPGPAPGV EQU WPGP+4 02225000 @NM00005 EQU WPGP+2 02226000 WPGDEND EQU WPGD+20 02227000 WPGDPGL EQU WPGD+20 02228000 WPGDDURP EQU WPGDPGP+7 02229000 WPGDISVP EQU WPGDPGP+6 02230000 WPGDRTB EQU WPGDINDS 02231000 WPGDRB2 EQU WPGDINDS 02232000 WPGDAPG EQU WPGDINDS 02233000 WPGDUNT EQU WPGDINDS 02234000 WPGDFIN EQU WPGDINDS 02235000 WPGDAPGV EQU WPGDPGP+4 02236000 @NM00004 EQU WPGDPGP+2 02237000 WPGDDMN EQU WPGDPGP+1 02238000 WPGDOBJN EQU WPGDPGP 02239000 WPGDISV EQU WPGD+8 02240000 WPGDATM EQU WPGD+4 02241000 WPGDRD1 EQU WPGDDFL 02242000 WPGDVLD EQU WPGDDFL 02243000 WPGDR02 EQU WPGD+2 02244000 WPGDSIZ EQU WPGD+1 02245000 WMSTEND EQU WMST+112 02246000 WMSTSECB EQU WMST+96 02247000 WMSTNWST EQU WMST+92 02248000 WMSTSTCB EQU WMST+88 02249000 WMSTSET EQU WMST+84 02250000 WMSTRSVD EQU WMST+81 02251000 WMSTREAL EQU WMST+80 02252000 WMSTMSO EQU WMST+76 02253000 WMSTIOC EQU WMST+72 02254000 WMSTCPU EQU WMST+68 02255000 WMSTDMNC EQU WMST+66 02256000 WMSTWLHI EQU WMST+60 02257000 WMSTDMDE EQU WMST+56 02258000 WMSTDMVS EQU WMST+52 02259000 WMSTDMVT EQU WMST+48 02260000 WMSTDMDS EQU WMST+44 02261000 WMSTDMDT EQU WMST+40 02262000 WMSTPODS EQU WMST+36 02263000 WMSTPOVS EQU WMST+28 02264000 WMSTPGDS EQU WMST+20 02265000 WMSTPGVS EQU WMST+12 02266000 WMSTWLLO EQU WMST+6 02267000 WMSTNAME EQU WMST 02268000 WAMPEND EQU WAMP+44 02269000 WAMPRSV EQU WAMPPGP+42 02270000 WAMTEND EQU WAMT+64 02271000 WAMTR90 EQU WAMT+60 02272000 WAMTWAR EQU WAMT 02273000 ASVTEND EQU ASVT+528 02274000 ASVTAVAI EQU ASVTFRST 02275000 ASVTRS00 EQU ASVT+520 02276000 ASVTASVT EQU ASVT+512 02277000 ASVTBEGN EQU ASVT+512 02278000 @NM00003 EQU ASVT 02279000 OUXBEND EQU OUXB+144 02280000 OUXBTSW EQU OUXB+140 02281000 OUXBFIXC EQU OUXB+138 02282000 OUXBNVC EQU OUXB+136 02283000 OUXBUIC EQU OUXB+134 02284000 OUXBVSC EQU OUXB+132 02285000 OUXBILS EQU OUXB+128 02286000 OUXBRSV1 EQU OUXB+126 02287000 OUXBWCT EQU OUXB+124 02288000 OUXBPRS EQU OUXB+120 02289000 OUXBSTD EQU OUXB+116 02290000 OUXBITD EQU OUXB+112 02291000 OUXBMSS EQU OUXB+104 02292000 OUXBCPS EQU OUXB+96 02293000 OUXBAET EQU OUXB+92 02294000 OUXBTRR EQU OUXB+88 02295000 OUXBJBR EQU OUXB+84 02296000 OUXBTRT EQU OUXB+80 02297000 OUXBTRS EQU OUXB+76 02298000 OUXBJBT EQU OUXB+72 02299000 OUXBJBS EQU OUXB+68 02300000 OUXBTRC EQU OUXB+64 02301000 OUXBNQT EQU OUXB+60 02302000 OUXBIOSM EQU OUXB+56 02303000 OUXBSTC EQU OUXB+54 02304000 OUXBIOS EQU OUXB+52 02305000 OUXBSTCT EQU OUXB+48 02306000 OUXBCAPR EQU OUXB+44 02307000 OUXBCAPI EQU OUXB+40 02308000 OUXBVAMR EQU OUXB+36 02309000 OUXBVAMO EQU OUXB+32 02310000 OUXBVAMI EQU OUXB+28 02311000 OUXBPREC EQU OUXB+24 02312000 OUXBPOUT EQU OUXB+20 02313000 OUXBPIN EQU OUXB+16 02314000 OUXBRSW EQU OUXB+12 02315000 OUXBMET EQU OUXB+8 02316000 OUXBPET EQU OUXB+4 02317000 OUXBNAME EQU OUXB 02318000 OUCBEND EQU OUCB+136 02319000 OUCBNTSP EQU OUCB+134 02320000 OUCBNDS EQU OUCB+132 02321000 OUCBTIO EQU OUCB+128 02322000 OUCBTCP EQU OUCB+124 02323000 OUCBPST EQU OUCB+120 02324000 OUCBPS2 EQU OUCBPSS+4 02325000 OUCBPS1 EQU OUCBPSS 02326000 OUCBIOSM EQU OUCB+108 02327000 OUCBTMP EQU OUCB+104 02328000 OUCBR03 EQU OUCB+102 02329000 OUCBIOR EQU OUCB+100 02330000 OUCBCRV EQU OUCB+98 02331000 OUCBIRV EQU OUCB+96 02332000 OUCBWMR EQU OUCB+92 02333000 OUCBCMRV EQU OUCB+88 02334000 OUCBCF2 EQU OUCBCFL 02335000 OUCBRSM EQU OUCBCFL 02336000 OUCBACN EQU OUCBCSW 02337000 OUCBACT EQU OUCB+80 02338000 OUCBWSS EQU OUCB+78 02339000 OUCBPSO EQU OUCB+76 02340000 OUCBTMW EQU OUCB+48 02341000 OUCBIMCB EQU OUCB+44 02342000 OUCBASCB EQU OUCB+40 02343000 OUCBSWC EQU OUCB+38 02344000 OUCBSRC EQU OUCB+37 02345000 OUCBDMN EQU OUCB+36 02346000 OUCBDMO EQU OUCB+34 02347000 OUCBR40 EQU OUCB+30 02348000 OUCBR30 EQU OUCB+29 02349000 OUCBSPG EQU OUCB+28 02350000 OUCBRDP EQU OUCB+27 02351000 OUCBNDP EQU OUCB+26 02352000 OUCBRPG EQU OUCB+25 02353000 OUCBNPG EQU OUCB+24 02354000 OUCBUF7 EQU OUCBUFL 02355000 OUCBUF6 EQU OUCBUFL 02356000 OUCBUF5 EQU OUCBUFL 02357000 OUCBTSWC EQU OUCBUFL 02358000 OUCBTSWP EQU OUCBUFL 02359000 OUCBRSWP EQU OUCBUFL 02360000 OUCBJSAS EQU OUCBUFL 02361000 OUCBJSFS EQU OUCBUFL 02362000 OUCBNQC EQU OUCB+22 02363000 OUCBMWT EQU OUCBEFL 02364000 OUCBQSC EQU OUCBEFL 02365000 OUCBQSS EQU OUCBEFL 02366000 OUCBNQF EQU OUCBEFL 02367000 OUCBCIM EQU OUCBEFL 02368000 OUCBOWT EQU OUCBEFL 02369000 OUCBTRM EQU OUCBEFL 02370000 OUCBLWT EQU OUCBEFL 02371000 OUCBINP EQU OUCBTFL 02372000 OUCBPCH EQU OUCBTFL 02373000 OUCBRTR EQU OUCBTFL 02374000 OUCBSTR EQU OUCBTFL 02375000 OUCBASW EQU OUCBAFL 02376000 OUCBNWT EQU OUCBAFL 02377000 OUCBR02 EQU OUCBAFL 02378000 OUCBJSR EQU OUCBAFL 02379000 OUCBCPL EQU OUCBAFL 02380000 OUCBRMA EQU OUCBAFL 02381000 OUCBAPG EQU OUCBAFL 02382000 OUCBAF0 EQU OUCBAFL 02383000 OUCBFXS EQU OUCBYFL 02384000 OUCBDTA EQU OUCBYFL 02385000 OUCBAXS EQU OUCBYFL 02386000 OUCBPSTR EQU OUCBYFL 02387000 OUCBMNT EQU OUCBYFL 02388000 OUCBLOG EQU OUCBYFL 02389000 OUCBSTT EQU OUCBYFL 02390000 OUCBPSTE EQU OUCBYFL 02391000 OUCBSCN EQU OUCBSFL 02392000 OUCBENQ EQU OUCBSFL 02393000 OUCBPVL EQU OUCBSFL 02394000 OUCBNSWI EQU OUCBSFL 02395000 OUCBBIB EQU OUCBSFL 02396000 OUCBCTI EQU OUCBSFL 02397000 OUCBNSW EQU OUCBSFL 02398000 OUCBQF7 EQU OUCBQFL 02399000 OUCBQF6 EQU OUCBQFL 02400000 OUCBOFF EQU OUCBQFL 02401000 OUCBQF3 EQU OUCBQFL 02402000 OUCBGOB EQU OUCBQFL 02403000 OUCBGOI EQU OUCBQFL 02404000 OUCBGOO EQU OUCBQFL 02405000 OUCBTMA EQU OUCB+12 02406000 OUCBBCK EQU OUCB+8 02407000 OUCBFWD EQU OUCB+4 02408000 ASCBEND EQU ASCB+208 02409000 ASCBSRBT EQU ASCB+200 02410000 ASCBSWTL EQU ASCB+196 02411000 ASCBRS14 EQU ASCB+195 02412000 ASCBSMCT EQU ASCB+194 02413000 ASCBRS12 EQU ASCB+192 02414000 ASCBPCTT EQU ASCB+188 02415000 ASCBVGTT EQU ASCB+184 02416000 ASCBRV43 EQU ASCBSRQ4 02417000 ASCBRV42 EQU ASCBSRQ4 02418000 ASCBRV41 EQU ASCBSRQ4 02419000 ASCBRV40 EQU ASCBSRQ4 02420000 ASCBRV39 EQU ASCBSRQ4 02421000 ASCBRV38 EQU ASCBSRQ4 02422000 ASCBRV37 EQU ASCBSRQ4 02423000 ASCBRV36 EQU ASCBSRQ4 02424000 ASCBRV35 EQU ASCBSRQ3 02425000 ASCBRV34 EQU ASCBSRQ3 02426000 ASCBRV33 EQU ASCBSRQ3 02427000 ASCBRV32 EQU ASCBSRQ3 02428000 ASCBRV31 EQU ASCBSRQ3 02429000 ASCBRV30 EQU ASCBSRQ3 02430000 ASCBRV29 EQU ASCBSRQ3 02431000 ASCBRV28 EQU ASCBSRQ3 02432000 ASCBRV27 EQU ASCBSRQ2 02433000 ASCBRV26 EQU ASCBSRQ2 02434000 ASCBRV25 EQU ASCBSRQ2 02435000 ASCBRV24 EQU ASCBSRQ2 02436000 ASCBRV23 EQU ASCBSRQ2 02437000 ASCBRV22 EQU ASCBSRQ2 02438000 ASCBRV21 EQU ASCBSRQ2 02439000 ASCBRV20 EQU ASCBSRQ2 02440000 ASCBRV19 EQU ASCBSRQ1 02441000 ASCBRV18 EQU ASCBSRQ1 02442000 ASCBRV17 EQU ASCBSRQ1 02443000 ASCBRV16 EQU ASCBSRQ1 02444000 ASCBRV15 EQU ASCBSRQ1 02445000 ASCBRV14 EQU ASCBSRQ1 02446000 ASCBRV13 EQU ASCBSRQ1 02447000 ASCBSTA EQU ASCBSRQ1 02448000 ASCBJBNS EQU ASCB+176 02449000 ASCBJBNI EQU ASCB+172 02450000 ASCBMCC EQU ASCB+168 02451000 ASCBRTWA EQU ASCB+164 02452000 ASCBIQEA EQU ASCB+160 02453000 ASCBXMPQ EQU ASCB+156 02454000 ASCBRS01 EQU ASCB+154 02455000 ASCBFMCT EQU ASCB+152 02456000 ASCBOUXB EQU ASCB+148 02457000 ASCBMECB EQU ASCB+140 02458000 ASCBQECB EQU ASCB+136 02459000 ASCBLSQH EQU ASCBLKGP+4 02460000 ASCBLOCK EQU ASCBLKGP 02461000 ASCBTCBS EQU ASCB+124 02462000 ASCBNVSC EQU ASCB+122 02463000 ASCBVSC EQU ASCB+120 02464000 ASCBSRBS EQU ASCB+118 02465000 ASCBSSRB EQU ASCB+116 02466000 ASCBRV06 EQU ASCBFLG2 02467000 ASCBRV05 EQU ASCBFLG2 02468000 ASCBRV04 EQU ASCBFLG2 02469000 ASCBSNQS EQU ASCBFLG2 02470000 ASCBS2S EQU ASCBFLG2 02471000 ASCBCEXT EQU ASCBFLG2 02472000 ASCBPXMT EQU ASCBFLG2 02473000 ASCBXMPT EQU ASCBFLG2 02474000 ASCBRF07 EQU ASCBDSP1 02475000 ASCBRF06 EQU ASCBDSP1 02476000 ASCBRF05 EQU ASCBDSP1 02477000 ASCBRF04 EQU ASCBDSP1 02478000 ASCBRF03 EQU ASCBDSP1 02479000 ASCBRF02 EQU ASCBDSP1 02480000 ASCBFAIL EQU ASCBDSP1 02481000 ASCBNOQ EQU ASCBDSP1 02482000 ASCBSWCT EQU ASCB+112 02483000 ASCBASXB EQU ASCB+108 02484000 ASCBTMCH EQU ASCB+104 02485000 ASCBNSWP EQU ASCBFLG1 02486000 ASCBTYP1 EQU ASCBFLG1 02487000 ASCBSTND EQU ASCBFLG1 02488000 ASCBABNT EQU ASCBFLG1 02489000 ASCBTERM EQU ASCBFLG1 02490000 ASCBS3S EQU ASCBFLG1 02491000 ASCBCMSH EQU ASCBFLG1 02492000 ASCBTOFF EQU ASCBFLG1 02493000 ASCBRF01 EQU ASCBRCTF 02494000 ASCBTMLW EQU ASCBRCTF 02495000 ASCBOUT EQU ASCBRCTF 02496000 ASCBWAIT EQU ASCBRCTF 02497000 ASCBRV08 EQU ASCBRCTF 02498000 ASCBFQU EQU ASCBRCTF 02499000 ASCBFRS EQU ASCBRCTF 02500000 ASCBTMNO EQU ASCBRCTF 02501000 ASCBAFFN EQU ASCBFW1 02502000 ASCBDUMP EQU ASCB+96 02503000 ASCBRV44 EQU ASCB+92 02504000 ASCBUBET EQU ASCB+88 02505000 ASCBECB EQU ASCB+84 02506000 ASCBJSTL EQU ASCB+80 02507000 ASCBEWST EQU ASCB+72 02508000 ASCBEJST EQU ASCB+64 02509000 ASCBTSB EQU ASCB+60 02510000 ASCBCSCB EQU ASCB+56 02511000 ASCBRSMA EQU ASCBRSM+1 02512000 ASCBRV54 EQU ASCBRSMF 02513000 ASCBRV53 EQU ASCBRSMF 02514000 ASCBRV52 EQU ASCBRSMF 02515000 ASCBRV51 EQU ASCBRSMF 02516000 ASCBVEQR EQU ASCBRSMF 02517000 ASCBN2LP EQU ASCBRSMF 02518000 ASCB1LPU EQU ASCBRSMF 02519000 ASCB2LPU EQU ASCBRSMF 02520000 ASCBLDA EQU ASCB+48 02521000 ASCBSTOR EQU ASCB+44 02522000 ASCBDP EQU ASCB+43 02523000 ASCBRV07 EQU ASCB+42 02524000 ASCBIOSM EQU ASCB+40 02525000 ASCBSEQN EQU ASCB+38 02526000 ASCBASID EQU ASCB+36 02527000 ASCBCPUS EQU ASCB+32 02528000 ASCBSPL EQU ASCB+28 02529000 ASCBIOSP EQU ASCB+24 02530000 ASCBSYNC EQU ASCBSUPC+4 02531000 ASCBSVRB EQU ASCBSUPC 02532000 ASCBCMSF EQU ASCB+12 02533000 ASCBBWDP EQU ASCB+8 02534000 ASCBFWDP EQU ASCB+4 02535000 ASCBASCB EQU ASCB 02536000 ASCBEGIN EQU ASCB 02537000 RRPAEND EQU RRPA+24 02538000 RRPAEPA EQU RRPA+20 02539000 RRPARTN EQU RRPAINS 02540000 RRPAKEY EQU RRPA+10 02541000 RRPARCI EQU RRPAFLG+1 02542000 RRPARFI EQU RRPAFLG+1 02543000 RRPARTI EQU RRPAFLG+1 02544000 RRPACTL EQU RRPAFLG+1 02545000 RRPAF11 EQU RRPAFLG+1 02546000 RRPAIPS EQU RRPAFLG+1 02547000 RRPAWAR EQU RRPAFLG+1 02548000 RRPAF07 EQU RRPAFLG 02549000 RRPAOPT EQU RRPAFLG 02550000 RRPAF05 EQU RRPAFLG 02551000 RRPAF04 EQU RRPAFLG 02552000 RRPADSP EQU RRPAFLG 02553000 RRPASVC EQU RRPAFLG 02554000 RRPAENB EQU RRPAFLG 02555000 RRPADSB EQU RRPAFLG 02556000 RRPAVLU EQU RRPAINP 02557000 @NM00002 EQU RRPAFLG0 02558000 RRPANSWI EQU RRPAFLG0 02559000 EPSTEND EQU EPST+80 02560000 EPSTCSI EQU RMEPBCSI 02561000 EPSTCSO EQU RMEPBCSO 02562000 EPSTCL3 EQU RMEPBCL3 02563000 EPSTIL3 EQU RMEPBIL3 02564000 EPSTWM3 EQU RMEPBWM3 02565000 EPDTEND EQU EPDT+96 02566000 RMEPBRPS EQU EPDT+80 02567000 RMEPBHIT EQU EPDT+64 02568000 RMEPBUXB EQU EPDT+48 02569000 RMEPBIL4 EQU EPDT+32 02570000 RMEPBDEL EQU EPDT+16 02571000 RMEPBIPS EQU EPDT 02572000 EPATEND EQU EPAT+400 02573000 RMEPBPR1 EQU EPAT+368 02574000 RMEPBEQ1 EQU EPAT+336 02575000 RMEPBAP1 EQU EPAT+304 02576000 RMEPBCL1 EQU EPAT+272 02577000 RMEPBWM2 EQU EPAT+240 02578000 RMEPBIL1 EQU EPAT+208 02579000 RMEPBASM EQU EPAT+176 02580000 RMEPBMS2 EQU EPAT+160 02581000 RMEPBPR5 EQU EPAT+144 02582000 RMEPBMS6 EQU EPAT+112 02583000 RMEPBSQA EQU EPAT+96 02584000 RMEPBRM2 EQU EPAT+64 02585000 RMEPBRM1 EQU EPAT+32 02586000 RMEPBCAP EQU EPAT 02587000 RMSBEND EQU RMSB+120 02588000 RMSBRA9 EQU RMSB+116 02589000 RMSBIL0 EQU RMSB+112 02590000 RMSBCL0 EQU RMSB+108 02591000 RMSBRA6 EQU RMSB+104 02592000 RMSBNOP EQU RMSB+100 02593000 RMSBSET EQU RMSB+96 02594000 RMSBTRC EQU RMSB+84 02595000 RMSBWMY EQU RMSB+80 02596000 RMSBWMR EQU RMSB+76 02597000 RMSBWMQ EQU RMSB+72 02598000 RMSBWMO EQU RMSB+68 02599000 RMSBWMN EQU RMSB+64 02600000 RMSBWMK EQU RMSB+60 02601000 RMSBWM5 EQU RMSB+48 02602000 RMSBCRY EQU RMSB+44 02603000 RMSBCRN EQU RMSB+40 02604000 RMSBCRL EQU RMSB+36 02605000 RMSBI10 EQU RMSB+32 02606000 RMSBI09 EQU RMSB+28 02607000 RMSBR24 EQU RMSB+24 02608000 RMSBI07 EQU RMSB+20 02609000 RMSBI06 EQU RMSB+16 02610000 RMSBI05 EQU RMSB+12 02611000 RMSBI04 EQU RMSB+8 02612000 RMSBI03 EQU RMSB+4 02613000 RMSBI02 EQU RMSB 02614000 RMEXEND EQU RMEX+64 02615000 RMEXSRE EQU RMEX+60 02616000 RMEXXPE EQU RMEX+56 02617000 RMEXRR2 EQU RMEX+52 02618000 RMEXRR1 EQU RMEX+48 02619000 RMEXI48 EQU RMEX+44 02620000 RMEXCET EQU RMEX+40 02621000 RMEXCXX EQU RMEX+36 02622000 RMEXI01 EQU RMEX+32 02623000 RMEXCTL EQU RMEPBCTL 02624000 RMEXEVT EQU RMEPBEVT 02625000 RMCAEND EQU RMCA+168 02626000 RMCAR90 EQU RMCA+164 02627000 RMCAUSSC EQU RMCASRC+36 02628000 RMCAEXSC EQU RMCASRC+32 02629000 RMCANQSC EQU RMCASRC+28 02630000 RMCARQSC EQU RMCASRC+24 02631000 RMCADWSC EQU RMCASRC+20 02632000 RMCARSSC EQU RMCASRC+16 02633000 RMCAXSSC EQU RMCASRC+12 02634000 RMCALWSC EQU RMCASRC+8 02635000 RMCATISC EQU RMCASRC+4 02636000 RMCATOSC EQU RMCASRC 02637000 RMCACPW1 EQU RMCA+120 02638000 RMCACIUS EQU RMCA+118 02639000 RMCAR14 EQU RMCA+116 02640000 RMCAR13 EQU RMCA+112 02641000 RMCAMAS EQU RMCA+76 02642000 RMCAR20 EQU RMCA+74 02643000 RMCABCPG EQU RMCA+73 02644000 RMCALGPG EQU RMCA+72 02645000 RMCAISV EQU RMCA+70 02646000 RMCAR11 EQU RMCA+68 02647000 RMCAINV EQU RMCA+64 02648000 RMCAR10 EQU RMCA+60 02649000 RMCARSV9 EQU RMCA+56 02650000 RMCACHU EQU RMCA+52 02651000 RMCACHP EQU RMCA+48 02652000 RMCARSV8 EQU RMCA+44 02653000 RMCARSV7 EQU RMCA+40 02654000 RMCARSVF EQU RMCAFLGS 02655000 RMCASAAF EQU RMCAFLGS 02656000 RMCARSV5 EQU RMCA+32 02657000 RMCARSV4 EQU RMCA+28 02658000 RMCARSV3 EQU RMCA+24 02659000 RMCATOI EQU RMCA+20 02660000 RMCATRS EQU RMCA+16 02661000 RMCATQS EQU RMCA+12 02662000 RMCARSV2 EQU RMCA+10 02663000 RMCARSV1 EQU RMCA+8 02664000 RMCAINUS EQU RMCA+6 02665000 RMCAR04 EQU RMCA+4 02666000 RMCANAME EQU RMCA 02667000 RMPTEND EQU RMPT+72 02668000 RMPTOPE EQU RMPT+66 02669000 RMPTOPI EQU RMPT+63 02670000 RMPTOPC EQU RMPT+60 02671000 RMPTIOET EQU RMPT+56 02672000 RMPTCPET EQU RMPT+52 02673000 RMPTWMET EQU RMPT+48 02674000 RMPTSAET EQU RMPT+44 02675000 RMPTXCHT EQU RMPT+40 02676000 RMPTRSV3 EQU RMPT+38 02677000 RMPTRSV2 EQU RMPT+36 02678000 RMPTRSV1 EQU RMPT+32 02679000 RMPTTOL EQU RMPT+28 02680000 RMPTTOM EQU RMPT+24 02681000 RMPTTCS EQU RMPT+20 02682000 RMPTIMN EQU RMPT+16 02683000 RMPTERV EQU RMPT+12 02684000 RMPTIOC EQU RMPT+8 02685000 RMPTCPU EQU RMPT+4 02686000 RMPTNAME EQU RMPT 02687000 RCTEND EQU RCT+88 02688000 RCVRSVF3 EQU RCT+84 02689000 RCVRSVF2 EQU RCT+80 02690000 RCVTAPAD EQU RCT+76 02691000 RCVRSVF1 EQU RCT+74 02692000 RCVTOTDF EQU RCT+72 02693000 RCVBPTTM EQU RCT+68 02694000 RCVBPTCT EQU RCT+64 02695000 RCVASMQ EQU RCT+60 02696000 RCVAVQP EQU RCT+56 02697000 RCVCPUC EQU RCT+52 02698000 RCVUICC EQU RCT+48 02699000 RCVPTR EQU RCT+46 02700000 RCVASMQA EQU RCT+44 02701000 RCVAVQC EQU RCT+42 02702000 RCVCPUA EQU RCT+40 02703000 RCVUICA EQU RCT+38 02704000 RCVCTMC EQU RCT+36 02705000 RCCRSVF3 EQU RCT+32 02706000 RCCRSVF2 EQU RCT+28 02707000 RCCRSVF1 EQU RCT+26 02708000 RCCLCHRR EQU RCT+24 02709000 RCCLCHUT EQU RCT+22 02710000 RCCTOTUT EQU RCT+20 02711000 RCCASMTH EQU RCT+18 02712000 RCCASMTL EQU RCT+16 02713000 RCCPTRTH EQU RCT+14 02714000 RCCPTRTL EQU RCT+12 02715000 RCCCPUTH EQU RCT+10 02716000 RCCCPUTL EQU RCT+8 02717000 RCCUICTH EQU RCT+6 02718000 RCCUICTL EQU RCT+4 02719000 RCTRCT EQU RCT 02720000 MCTEND EQU MCT+96 02721000 MCVRSVF3 EQU MCT+92 02722000 MCVRSVF2 EQU MCT+88 02723000 MCVRSVF1 EQU MCT+84 02724000 MCCINTMX EQU MCT+80 02725000 MCCPR1IN EQU MCT+76 02726000 MCCUICIN EQU MCT+72 02727000 MCCUICBD EQU MCT+68 02728000 MCTRSVB1 EQU MCT+67 02729000 MCTXRSVD EQU MCT+66 02730000 MCTFX2 EQU MCTOFLGS 02731000 MCTFX1 EQU MCTOFLGS 02732000 MCTSMS2 EQU MCTOFLGS 02733000 MCTSMS1 EQU MCTOFLGS 02734000 MCTAMS2 EQU MCTOFLGS 02735000 @NM00001 EQU MCTOFLGS 02736000 MCTASM2 EQU MCTOFLGS 02737000 MCTASM1 EQU MCTOFLGS 02738000 MCTSF04 EQU MCTSFLGS 02739000 MCTFAVQ EQU MCTSFLGS 02740000 MCTAVQ1 EQU MCTSFLGS 02741000 MCTSQA2 EQU MCTSFLGS 02742000 MCTSQA1 EQU MCTSFLGS 02743000 MCVAVQC EQU MCT+60 02744000 MCVFRCNT EQU MCT+58 02745000 MCVSTCRI EQU MCT+56 02746000 MCCEND EQU MCT+56 02747000 MCCASMT2 EQU MCT+54 02748000 MCCASMT1 EQU MCT+52 02749000 MCCRSVH1 EQU MCT+50 02750000 MCCPLUS EQU MCT+48 02751000 MCCMS403 EQU MCT+44 02752000 MCCMS402 EQU MCT+40 02753000 MCCMS401 EQU MCT+36 02754000 MCCMS400 EQU MCT+32 02755000 MCCMS203 EQU MCT+28 02756000 MCCMS202 EQU MCT+24 02757000 MCCMS201 EQU MCT+20 02758000 MCCMS200 EQU MCT+16 02759000 MCCMS102 EQU MCT+12 02760000 MCCMS101 EQU MCT+8 02761000 MCCMS100 EQU MCT+4 02762000 MCTMCT EQU MCT 02763000 ICTEND EQU ICT+88 02764000 ICTRSVB3 EQU ICT+87 02765000 ICTRSVB2 EQU ICT+86 02766000 ICTRSVB1 EQU ICT+85 02767000 ICT003 EQU ICTFLAGS 02768000 ICTIOOT EQU ICTFLAGS 02769000 ICTIOL EQU ICTFLAGS 02770000 ICTDRSV4 EQU ICTFLAGS 02771000 ICVIRSV3 EQU ICT+80 02772000 ICVULCBT EQU ICT+76 02773000 ICVOLCBT EQU ICT+72 02774000 ICVLCBPT EQU ICT+68 02775000 ICVLUTBT EQU ICT+64 02776000 ICCEND EQU ICT+64 02777000 ICCRSV01 EQU ICT+62 02778000 ICCEDSUT EQU ICT+60 02779000 ICCSRSV2 EQU ICT+58 02780000 ICCSIGUP EQU ICT+56 02781000 ICCINDAT EQU ICT+52 02782000 ICCINLOT EQU ICT+48 02783000 ICCINHIT EQU ICT+44 02784000 ICCDAUTH EQU ICT+42 02785000 ICCLOUTH EQU ICT+40 02786000 ICCHIUTH EQU ICT+38 02787000 ICCDASF2 EQU ICT+36 02788000 ICCDASF1 EQU ICT+34 02789000 ICCMINRV EQU ICT+32 02790000 ICCMAXRV EQU ICT+30 02791000 ICCRVSCF EQU ICT+28 02792000 ICCMNIOR EQU ICT+26 02793000 ICCLCHN EQU ICT+24 02794000 ICCLCLST EQU ICT+20 02795000 ICCMNSWP EQU ICT+16 02796000 ICCMNUIN EQU ICT+12 02797000 ICCMXICT EQU ICT+8 02798000 ICCMRSV1 EQU ICT+4 02799000 ICTICT EQU ICT 02800000 CCVEND EQU CCT+128 02801000 CCTFLG2 EQU CCT+125 02802000 CCTCPUOT EQU CCTFLG1 02803000 CCTALL EQU CCTFLG1 02804000 CCVCPUCT EQU CCT+122 02805000 CCVENQCT EQU CCT+120 02806000 CCVLGFMC EQU CCT+118 02807000 CCVLGUTL EQU CCT+116 02808000 CCVR07 EQU CCT+114 02809000 CCVR06 EQU CCT+112 02810000 CCVUTILP EQU CCT+110 02811000 CCVR05 EQU CCT+108 02812000 CCVIMBBT EQU CCT+104 02813000 CCVEJST EQU CCT+100 02814000 CCVPGCPF EQU CCT+96 02815000 CCVRVSWF EQU CCT+92 02816000 CCVRBSTD EQU CCT+88 02817000 CCVR04 EQU CCT+84 02818000 CCVRBSWT EQU CCT+80 02819000 CCVR03 EQU CCT+76 02820000 CCCEND EQU CCT+76 02821000 CCCRSVH1 EQU CCT+74 02822000 CCCSCFC2 EQU CCT+72 02823000 CCCSCFC1 EQU CCT+70 02824000 CCCR02 EQU CCT+68 02825000 CCCSIGUR EQU CCT+66 02826000 CCCSIGDP EQU CCT+64 02827000 CCCSCFAC EQU CCT+62 02828000 CCCMINRV EQU CCT+60 02829000 CCCMAXRV EQU CCT+58 02830000 CCCLOSCF EQU CCT+56 02831000 CCCHISCF EQU CCT+54 02832000 CCCUTLOT EQU CCT+52 02833000 CCCUTHIT EQU CCT+50 02834000 CCCAPRHT EQU CCT+48 02835000 CCCAPRLT EQU CCT+46 02836000 CCCR01 EQU CCT+44 02837000 CCCAPGDP EQU CCT+42 02838000 CCCAPMDP EQU CCT+40 02839000 CCCAPLDP EQU CCT+38 02840000 CCCAPBDP EQU CCT+36 02841000 CCCAPROT EQU CCT+34 02842000 CCCAPDIV EQU CCT+32 02843000 CCCRSVF1 EQU CCT+28 02844000 CCCMNSIN EQU CCT+24 02845000 CCCMNUIN EQU CCT+20 02846000 CCCAPDEL EQU CCT+16 02847000 CCCAPMAX EQU CCT+12 02848000 CCCAPMIN EQU CCT+8 02849000 CCCAPMET EQU CCT+4 02850000 CCTCCT EQU CCT 02851000 RMCTEND EQU RMCT+192 02852000 RMCTR50 EQU RMCT+190 02853000 RMCTDMNC EQU RMCT+188 02854000 RMCTDMDE EQU RMCT+184 02855000 RMCTDMDT EQU RMCT+180 02856000 RMCTSRBT EQU RMCT+176 02857000 RMCTOUXB EQU RMCT+172 02858000 RMCTTOCI EQU RMCT+160 02859000 RMCTCPID EQU RMCT+156 02860000 RMCTTELM EQU RMCT+152 02861000 RMCTF09 EQU RMCTFLGS+1 02862000 RMCTF07 EQU RMCTFLGS+1 02863000 RMCTF06 EQU RMCTFLGS 02864000 RMCTRSV2 EQU RMCTFLGS 02865000 RMCTRSV1 EQU RMCTFLGS 02866000 RMCTINIT EQU RMCTFLGS 02867000 RMCTF03 EQU RMCTFLGS 02868000 RMCTCPS1 EQU RMCTFLGS 02869000 RMCTRQSV EQU RMCT+144 02870000 RMCTALR EQU RMCT+140 02871000 RMCTALA EQU RMCT+136 02872000 RMCTTOD EQU RMCT+124 02873000 RMCTTBS EQU RMCT+120 02874000 RMCTR10 EQU RMCT+116 02875000 RMCTINQE EQU RMCT+112 02876000 RMCTOTQE EQU RMCT+108 02877000 RMCTWTQE EQU RMCT+104 02878000 RMCTAQHD EQU RMCT+100 02879000 RMCTAQCT EQU RMCT+96 02880000 RMCTTMQE EQU RMCT+92 02881000 RMCTWAST EQU RMCT+84 02882000 RMCTEPPR EQU RMCT+80 02883000 RMCTFLTM EQU RMCT+76 02884000 RMCTEPET EQU RMCT+72 02885000 RMCTITT EQU RMCT+68 02886000 RMCTADJC EQU RMCT+64 02887000 RMCTEPBG EQU RMCT+60 02888000 RMCTEPAT EQU RMCT+56 02889000 RMCTEPDT EQU RMCT+52 02890000 RMCTEPPA EQU RMCT+48 02891000 RMCTRMSB EQU RMCT+44 02892000 RMCTRMEX EQU RMCT+40 02893000 RMCTRMPD EQU RMCT+36 02894000 RMCTRLCT EQU RMCT+28 02895000 RMCTRMCA EQU RMCT+20 02896000 RMCTRMPT EQU RMCT+16 02897000 RMCTMCT EQU RMCT+12 02898000 RMCTICT EQU RMCT+8 02899000 RMCTCCT EQU RMCT+4 02900000 RMCTNAME EQU RMCT 02901000 @NM00031 EQU PSA+3668 02902000 PSASTAK EQU PSA+3072 02903000 @NM00030 EQU PSA+1048 02904000 PSAUSEND EQU PSA+1048 02905000 PSARV062 EQU PSA+1044 02906000 PSACDAL EQU PSA+1040 02907000 PSAWTCOD EQU PSA+1036 02908000 PSAATCVT EQU PSA+1032 02909000 PSAPCPSW EQU PSA+1024 02910000 PSAPIR2 EQU PSA+1020 02911000 PSARV059 EQU PSA+1018 02912000 PSASVC13 EQU PSA+1016 02913000 PSALSFCC EQU PSA+1012 02914000 PSASFACC EQU PSA+1008 02915000 PSASTOP EQU PSA+992 02916000 PSASTART EQU PSA+976 02917000 PSARSPSW EQU PSA+968 02918000 PSASRPSW EQU PSA+960 02919000 PSARV045 EQU PSA+892 02920000 PSARV044 EQU PSA+888 02921000 PSARV043 EQU PSA+884 02922000 PSARV042 EQU PSA+880 02923000 PSARV041 EQU PSA+876 02924000 PSARV040 EQU PSA+872 02925000 PSARV025 EQU PSA+868 02926000 PSADSSED EQU PSA+868 02927000 PSADSSPR EQU PSA+864 02928000 PSADSSFW EQU PSA+860 02929000 PSADSS14 EQU PSA+856 02930000 PSADSSPP EQU PSA+848 02931000 PSADSSRP EQU PSA+840 02932000 PSADSS05 EQU PSADSSF4 02933000 PSADSS10 EQU PSADSSF4 02934000 PSADSSVE EQU PSADSSF4 02935000 PSADSSDE EQU PSADSSF4 02936000 PSADSSC0 EQU PSADSSF4 02937000 PSADSSIE EQU PSADSSF4 02938000 PSADSS12 EQU PSADSSF4 02939000 PSADSSRC EQU PSADSSF4 02940000 PSARV057 EQU PSADSSF3 02941000 PSARV056 EQU PSADSSF3 02942000 PSARV055 EQU PSADSSF3 02943000 PSADSSMC EQU PSADSSF3 02944000 PSADSSRW EQU PSADSSF3 02945000 PSADSSNM EQU PSADSSF3 02946000 PSADSSES EQU PSADSSF3 02947000 PSADSSGP EQU PSADSSF3 02948000 PSADSSF2 EQU PSADSSFL+1 02949000 PSADSSPI EQU PSADSSF1 02950000 PSADSSOI EQU PSADSSF1 02951000 PSADSSSP EQU PSADSSF1 02952000 PSADSSTP EQU PSADSSF1 02953000 PSADSSDW EQU PSADSSF1 02954000 PSADSSDD EQU PSADSSF1 02955000 PSADSSDM EQU PSADSSF1 02956000 PSADSSMV EQU PSADSSF1 02957000 PSADSSTS EQU PSA+816 02958000 PSADSSWK EQU PSA+812 02959000 PSADSSR3 EQU PSA+808 02960000 PSADSSR2 EQU PSA+804 02961000 PSADSSRS EQU PSA+800 02962000 PSASTOR EQU PSA+796 02963000 PSACPUSA EQU PSA+794 02964000 PSAVSTAP EQU PSA+792 02965000 PSAWKVAP EQU PSA+788 02966000 PSAWKRAP EQU PSA+784 02967000 PSAMCHIC EQU PSA+783 02968000 PSARV061 EQU PSA+782 02969000 PSASYMSK EQU PSA+781 02970000 PSAMCHFL EQU PSA+780 02971000 PSACR0 EQU PSA+776 02972000 PSAPSWSV EQU PSA+768 02973000 PSALITA EQU PSA+764 02974000 PSACLHS EQU PSAHLHI 02975000 PSALKR15 EQU PSALKSA+60 02976000 PSALKR14 EQU PSALKSA+56 02977000 PSALKR13 EQU PSALKSA+52 02978000 PSALKR12 EQU PSALKSA+48 02979000 PSALKR11 EQU PSALKSA+44 02980000 PSALKR10 EQU PSALKSA+40 02981000 PSALKR9 EQU PSALKSA+36 02982000 PSALKR8 EQU PSALKSA+32 02983000 PSALKR7 EQU PSALKSA+28 02984000 PSALKR6 EQU PSALKSA+24 02985000 PSALKR5 EQU PSALKSA+20 02986000 PSALKR4 EQU PSALKSA+16 02987000 PSALKR3 EQU PSALKSA+12 02988000 PSALKR2 EQU PSALKSA+8 02989000 PSALKR1 EQU PSALKSA+4 02990000 PSALKR0 EQU PSALKSA 02991000 PSARV023 EQU PSACLHT+52 02992000 PSALOCAL EQU PSACLHT+48 02993000 PSACMSL EQU PSACLHT+44 02994000 PSAOPTL EQU PSACLHT+40 02995000 PSATPACL EQU PSACLHT+36 02996000 PSATPDNL EQU PSACLHT+32 02997000 PSATPNCL EQU PSACLHT+28 02998000 PSAIOSLL EQU PSACLHT+24 02999000 PSAIOSUL EQU PSACLHT+20 03000000 PSAIOSCL EQU PSACLHT+16 03001000 PSAIOSSL EQU PSACLHT+12 03002000 PSASALCL EQU PSACLHT+8 03003000 PSAASML EQU PSACLHT+4 03004000 PSADISPL EQU PSACLHT 03005000 PSASRSA EQU PSA+636 03006000 PSARV050 EQU PSA+634 03007000 PSADSSGO EQU PSA+633 03008000 PSARECUR EQU PSA+632 03009000 PSAHLHIS EQU PSA+628 03010000 PSAIPCSA EQU PSA+624 03011000 @NM00029 EQU PSA+621 03012000 PSAIPCDM EQU PSA+620 03013000 PSAIPCD EQU PSA+616 03014000 @NM00028 EQU PSA+613 03015000 PSAIPCRM EQU PSA+612 03016000 PSAIPCR EQU PSA+608 03017000 PSAMCHEX EQU PSA+600 03018000 PSAMPSW EQU PSA+592 03019000 PSAEXPS2 EQU PSA+584 03020000 PSAEXPS1 EQU PSA+576 03021000 PSAPIREG EQU PSA+572 03022000 PSARSREG EQU PSA+568 03023000 PSAGPREG EQU PSA+556 03024000 PSARV022 EQU PSASUP4 03025000 PSARV021 EQU PSASUP4 03026000 PSARV020 EQU PSASUP4 03027000 PSARV019 EQU PSASUP4 03028000 PSARV018 EQU PSASUP4 03029000 PSARV017 EQU PSASUP4 03030000 PSARV016 EQU PSASUP4 03031000 PSARV015 EQU PSASUP4 03032000 PSARV014 EQU PSASUP3 03033000 PSAULCMS EQU PSASUP3 03034000 PSARV012 EQU PSASUP3 03035000 PSAESTA EQU PSASUP3 03036000 PSASPR EQU PSASUP3 03037000 PSAPSREG EQU PSASUP3 03038000 PSAPI2 EQU PSASUP3 03039000 PSAIOSUP EQU PSASUP3 03040000 PSALCR EQU PSASUP2 03041000 PSARTM EQU PSASUP2 03042000 PSAACR EQU PSASUP2 03043000 PSAIPCE2 EQU PSASUP2 03044000 PSAIPCES EQU PSASUP2 03045000 PSAIPCEC EQU PSASUP2 03046000 PSAGTF EQU PSASUP2 03047000 PSAIPCRI EQU PSASUP2 03048000 PSATYPE6 EQU PSASUP1 03049000 PSATCTL EQU PSASUP1 03050000 PSADISP EQU PSASUP1 03051000 PSALOCK EQU PSASUP1 03052000 PSAPI EQU PSASUP1 03053000 PSAEXT EQU PSASUP1 03054000 PSASVC EQU PSASUP1 03055000 PSAIO EQU PSASUP1 03056000 PSAAOLD EQU PSA+548 03057000 PSAANEW EQU PSA+544 03058000 PSATNEW EQU PSA+536 03059000 PSALCCAR EQU PSA+532 03060000 PSALCCAV EQU PSA+528 03061000 PSAPCCAR EQU PSA+524 03062000 PSAPCCAV EQU PSA+520 03063000 PSACPULA EQU PSA+518 03064000 PSACPUPA EQU PSA+516 03065000 PSAPSA EQU PSA+512 03066000 FLCHDEND EQU PSA+512 03067000 FLCCRSAV EQU FLCMCLA+280 03068000 FLCGRSAV EQU FLCMCLA+216 03069000 FLCFPSAV EQU FLCMCLA+184 03070000 FLCFLA EQU FLCMCLA+88 03071000 FLCRGNCD EQU FLCMCLA+84 03072000 FLCFSAA EQU FLCFSA+1 03073000 @NM00027 EQU FLCFSA 03074000 @NM00026 EQU FLCMCLA+72 03075000 FLCMCIC EQU FLCMCLA+64 03076000 @NM00025 EQU FLCMCLA+20 03077000 FLCIOAA EQU FLCIOA+1 03078000 @NM00024 EQU FLCIOA 03079000 @NM00023 EQU FLCMCLA+15 03080000 @NM00022 EQU FLCMCLA+14 03081000 @NM00021 EQU FLCMCLA+12 03082000 FLCLCL EQU FLCMCLA+8 03083000 FLCIOELA EQU FLCIOEL+1 03084000 @NM00020 EQU FLCIOEL 03085000 FLCCHNID EQU FLCMCLA 03086000 @NM00019 EQU PSA+160 03087000 FLCMTRCD EQU PSA+157 03088000 @NM00018 EQU PSA+156 03089000 FLCPERA EQU FLCPER+1 03090000 @NM00017 EQU FLCPER 03091000 @NM00016 EQU PSA+151 03092000 FLCPERCD EQU PSA+150 03093000 FLCMCNUM EQU PSA+149 03094000 @NM00015 EQU PSA+148 03095000 FLCTEAA EQU FLCTEA+1 03096000 @NM00014 EQU FLCTEA 03097000 PSAPIPC EQU PSAPICOD 03098000 PSAPIMC EQU PSAPICOD 03099000 PSAPIPER EQU PSAPICOD 03100000 PSARV049 EQU FLCPICOD 03101000 FLCPILCB EQU FLCPIILC 03102000 @NM00013 EQU FLCPIILC 03103000 @NM00012 EQU PSAEPPSW 03104000 FLCSVCN EQU PSAESPSW+2 03105000 FLCSILCB EQU FLCSVILC 03106000 @NM00011 EQU FLCSVILC 03107000 @NM00010 EQU PSAESPSW 03108000 FLCEICOD EQU PSAEEPSW+2 03109000 PSASPAD EQU PSAEEPSW 03110000 @NM00009 EQU PSA+128 03111000 FLCINPSW EQU PSA+120 03112000 FLCMNPSW EQU PSA+112 03113000 FLCPNPSW EQU PSA+104 03114000 FLCSNPSW EQU PSA+96 03115000 FLCENPSW EQU PSA+88 03116000 FLCTRACE EQU PSA+84 03117000 FLCTIMER EQU PSA+80 03118000 FLCCVT2 EQU PSA+76 03119000 FLCCAW EQU PSA+72 03120000 FLCCSW EQU PSA+64 03121000 FLCIOPSW EQU PSA+56 03122000 FLCMOPSW EQU PSA+48 03123000 FLCPOPSW EQU PSA+40 03124000 FLCSOPSW EQU PSA+32 03125000 FLCEOPSW EQU PSA+24 03126000 @NM00008 EQU FLCICCW2+4 03127000 FLCICCW1 EQU FLCROPSW 03128000 FLCIPPSW EQU FLCRNPSW 03129000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03130000 @RC00138 EQU @RC00135 03131000 @RF00184 EQU @RC00181 03132000 @RF00192 EQU @RC00181 03133000 @ENDDATA EQU * 03134000 END IRARMWAR,(C'PLS2210',0701,78024) 03135000