TITLE 'IRARMSET - SET TO NEW IPS NON-RESIDENT ACTION ROUTINE *00001000 ' 00002000 IRARMSET CSECT , 00003000 @PSTART DS 0H 00004000 USING @PSTART,@12 00005000 * /* 00006000 STM @00,@14,256+000(@13) SAVE INVOKING RTNE REGS 00007000 LA @12,IRARMSET-@PSTART DISPLACEMENT TO MODULE BASE 00008000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00009000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00010000 * 0038 00011000 */* */ 00012000 */* IF MF/1 IS ACTIVE, A SET TO NEW IPS TERMINATES THE CURRENT */ 00013000 */* WORKLOAD ACTIVITY RECORDING(WAR) INTERVAL. A ROUTINE, LOADED */ 00014000 */* AND FIXED BY MF/1, WILL PERFORM CLEAN-UP FOR THE CURRENT WAR */ 00015000 */* INTERVAL. */ 00016000 */* */ 00017000 * 0039 00018000 * IF RMCTMFA='1'B THEN /* MF/1 DATA COLLECTION ACTIVE */ 00019000 TM RMCTMFA(RMCTPTR),B'10000000' 0039 00020000 BNO @RF00039 0039 00021000 * DO; /* TERMINATE MF/1 DATA COLLECTION*/ 00022000 * RRPAWAR='1'B; /* INDICATE WKLD ACTIVITY RTNE */ 00023000 OI RRPAWAR(RRPAPTR),B'01000000' 0041 00024000 * CALL IRARMWR8; /* UPDATE WORKLOAD ACTIVITY DATA 00025000 * FOR CURRENT IN-CORE INTERVAL */ 00026000 L @11,WAMTPTR(,RMCTPTR) 0042 00027000 L @11,WAMTWAR(,@11) 0042 00028000 L @15,WARTABLE+8(,@11) 0042 00029000 BALR @14,@15 0042 00030000 * RRPAWAR='0'B; /* LEAVE WORKLOD ACTIVITY RTNE */ 00031000 NI RRPAWAR(RRPAPTR),B'10111111' 0043 00032000 * END; 0044 00033000 * IF RRPARFI='1'B|RRPARCI='1'B THEN/* ERROR RECOVERY INVOKED */ 00034000 * 0045 00035000 @RF00039 TM RRPARFI(RRPAPTR),B'00000011' 0045 00036000 BZ @RF00045 0045 00037000 * /***************************************************************/ 00038000 * /* */ 00039000 * /* WILL PERFORM CLEANUP TO RESET USERS TO PREVIOUS IPS */ 00040000 * /* */ 00041000 * /***************************************************************/ 00042000 * 0046 00043000 * DO; 0046 00044000 * WMSTOPTR=RMCTWAST; /* ADDRESS OF PRIOR WMST (IPS) */ 00045000 L WMSTOPTR,RMCTWAST(,RMCTPTR) 0047 00046000 * IF WMSTOPTR=ZERO THEN /* IPS HAS NOT BEEN CHANGED */ 00047000 LTR WMSTOPTR,WMSTOPTR 0048 00048000 BNZ @RF00048 0048 00049000 * WMSTOPTR=RMCTWMST; /* ADDRESS OF CURRENT WMST (IPS) */ 00050000 L WMSTOPTR,RMCTWMST(,RMCTPTR) 0049 00051000 * WMSTNPTR=WMSTOPTR; /* USE PRIOR WMST AS OLD AND NEW */ 00052000 @RF00048 LR WMSTNPTR,WMSTOPTR 0050 00053000 * END; 0051 00054000 * ELSE /* NORMAL ENTRY TO SET IPS PROCS */ 00055000 * DO; 0052 00056000 B @RC00045 0052 00057000 @RF00045 DS 0H 0053 00058000 * WMSTOPTR=RMCTWMST; /* ADDRESS OF CURRENT WMST (IPS) */ 00059000 L WMSTOPTR,RMCTWMST(,RMCTPTR) 0053 00060000 * WMSTNPTR=WMSTOPTR->WMSTNWST;/* ADDRESS OF NEW WMST (IPS) */ 00061000 L WMSTNPTR,WMSTNWST(,WMSTOPTR) 0054 00062000 * END; 0055 00063000 * 0055 00064000 */* */ 00065000 */* PLACE ALL MEMORIES WITHIN A VALID PERFORMANCE */ 00066000 */* GROUP IN THE NEW IPS. FIRST PRIORITY FOR THE PGN @ZA27109*/ 00067000 */* TO USE IS THE RESET VALUE. SECOND IS THE SPECIFIED @ZA27109*/ 00068000 */* PGN VALUE. IF THESE ARE INVALID, A DEFAULT IS @ZA27109*/ 00069000 */* SUPPLIED. @ZA27109*/ 00070000 * 0056 00071000 * DO QPTR=ADDR(RMCTWTQE) /* LOOP THROUGH ALL OUCB QUEUES */ 00072000 * TO ADDR(RMCTINQE) BY LENGTH(RMCTWTQE);/* @Z40BPCH*/ 00073000 @RC00045 LA QPTR,RMCTWTQE(,RMCTPTR) 0056 00074000 B @DE00056 0056 00075000 @DL00056 DS 0H 0057 00076000 * OUCBPTR=QHEADER->OUCBFWD; /* ADDR OF FIRST OUCB ON QUEUE */ 00077000 L @11,QHEADER(,QPTR) 0057 00078000 L OUCBPTR,OUCBFWD(,@11) 0057 00079000 * DO WHILE OUCBNAME='OUCB'; /* PROCESS ALL OUCBS ON THE QUEUE*/ 00080000 B @DE00058 0058 00081000 @DL00058 DS 0H 0059 00082000 * ASCBPTR=OUCBASCB; /* PICK USER ASCB ADDRESS */ 00083000 L ASCBPTR,OUCBASCB(,OUCBPTR) 0059 00084000 * IF OUCBSPG^=ZERO&OUCBPVL='0'B THEN/* RESET TO SPECIFIED 0060 00085000 * @OZ28473*/ 00086000 CLI OUCBSPG(OUCBPTR),0 0060 00087000 BE @RF00060 0060 00088000 TM OUCBPVL(OUCBPTR),B'00000100' 0060 00089000 BNZ @RF00060 0060 00090000 * OUCBNPG=OUCBSPG; /* PERFORMANCE GROUP IN @Z40BPCH 00091000 * CASE DEFAULT WAS SET @Z40BPCH 00092000 * BY PRIOR SET COMMAND @Z40BPCH*/ 00093000 IC @11,OUCBSPG(,OUCBPTR) 0061 00094000 STC @11,OUCBNPG(,OUCBPTR) 0061 00095000 * IF(OUCBRPG^=ZERO& /* RESET PGN OVERRIDES @ZA27109*/ 00096000 * WPGVRENT^=ZERO) THEN /* IF ITS VALID.. @ZA27109*/ 00097000 @RF00060 CLI OUCBRPG(OUCBPTR),0 0062 00098000 BE @RF00062 0062 00099000 SLR @11,@11 0062 00100000 IC @11,OUCBRPG(,OUCBPTR) 0062 00101000 LR @15,@11 0062 00102000 ALR @15,@15 0062 00103000 AL @15,WMSTPGVT(,WMSTNPTR) 0062 00104000 LH @15,WPGVRENT(,@15) 0062 00105000 LTR @15,@15 0062 00106000 BZ @RF00062 0062 00107000 * OUCBNPG=OUCBRPG; /* FILL IN RESET PGN @ZA27109*/ 00108000 STC @11,OUCBNPG(,OUCBPTR) 0063 00109000 * IF(WPGVNENT=ZERO& /* INVALID PGN @ZA27109*/ 00110000 * OUCBNPG^=ZERO) THEN /* IN THIS IPS @ZA27109*/ 00111000 * 0064 00112000 @RF00062 SLR @11,@11 0064 00113000 IC @11,OUCBNPG(,OUCBPTR) 0064 00114000 ALR @11,@11 0064 00115000 AL @11,WMSTPGVT(,WMSTNPTR) 0064 00116000 LH @11,WPGVNENT(,@11) 0064 00117000 LTR @11,@11 0064 00118000 BNZ @RF00064 0064 00119000 CLI OUCBNPG(OUCBPTR),0 0064 00120000 BE @RF00064 0064 00121000 * /***********************************************************/ 00122000 * /* */ 00123000 * /* DETERMINE DEFAULT PERFORMANCE GROUP TO BE USED */ 00124000 * /* */ 00125000 * /***********************************************************/ 00126000 * 0065 00127000 * IF OUCBLOG='1'B THEN /* MEMORY ORIGINATED BY LOGON */ 00128000 TM OUCBLOG(OUCBPTR),B'00100000' 0065 00129000 BNO @RF00065 0065 00130000 * OUCBNPG=RMCALGPG; /* DEFAULT PGN(2) FOR LOGON USER */ 00131000 IC @11,RMCALGPG(,RMCTPTR) 0066 00132000 STC @11,OUCBNPG(,OUCBPTR) 0066 00133000 * ELSE /* MEMORY ORIGINATED BY START */ 00134000 * OUCBNPG=RMCABCPG; /* DEFAULT PGN(1) FOR BATCH USER */ 00135000 * 0067 00136000 B @RC00065 0067 00137000 @RF00065 IC @11,RMCABCPG(,RMCTPTR) 0067 00138000 STC @11,OUCBNPG(,OUCBPTR) 0067 00139000 * /*************************************************************/ 00140000 * /* */ 00141000 * /* START A NEW TRANSACTION FOR EVERY USER. @ZA27109*/ 00142000 * /* ? IRACTLCL EPN(WMN) */ 00143000 * /* */ 00144000 * /*************************************************************/ 00145000 * 0068 00146000 * CALL RMSBWMN->IRARMRTN; /* INVOKE WMN SUBRTN */ 00147000 @RC00065 DS 0H 0068 00148000 @RF00064 L @15,RMSBWMN(,RMCTPTR) 0068 00149000 BALR @14,@15 0068 00150000 * OUCBPGP=WPGPOFST; /* FIRST PERIOD. @ZA27109*/ 00151000 LA @11,12 0069 00152000 STC @11,OUCBPGP(,OUCBPTR) 0069 00153000 * OUCBWMG=WPGVNENT; /* REPLACE OUCB VALUE WITH OFFSET 00154000 * TO WPGD IN NEW IPS @ZA27109*/ 00155000 SLR @09,@09 0070 00156000 IC @09,OUCBNPG(,OUCBPTR) 0070 00157000 ALR @09,@09 0070 00158000 AL @09,WMSTPGVT(,WMSTNPTR) 0070 00159000 LH @09,WPGVNENT(,@09) 0070 00160000 STH @09,OUCBWMG(,OUCBPTR) 0070 00161000 * RESPECIFY 0071 00162000 * WPGPPTR RESTRICTED; /* @Z40BPCH*/ 00163000 * WPGDPTR=WMSTPGDT+OUCBWMG; /* PERF GRP DESC ADDR @Z40BPCH*/ 00164000 AL @09,WMSTPGDT(,WMSTNPTR) 0072 00165000 LR WPGDPTR,@09 0072 00166000 * WPGPPTR=WPGDPTR+OUCBPGP; /* PERF PERIOD ADDR @ZA27109*/ 00167000 SLR @09,@09 0073 00168000 IC @09,OUCBPGP(,OUCBPTR) 0073 00169000 ALR @09,WPGDPTR 0073 00170000 LR WPGPPTR,@09 0073 00171000 * OUCBDMN=WPGPDMN; /* PERF PERIOD DMN # @Z40BPCH*/ 00172000 SLR @09,@09 0074 00173000 IC @09,WPGPDMN(,WPGPPTR) 0074 00174000 STC @09,OUCBDMN(,OUCBPTR) 0074 00175000 * OUCBDMO=WDMVTENT; /* DMDT OFFSET FOR DMN # @Z40BPCH*/ 00176000 * 0075 00177000 ALR @09,@09 0075 00178000 AL @09,WMSTDMVT(,WMSTNPTR) 0075 00179000 LH @09,WDMVTENT(,@09) 0075 00180000 STH @09,OUCBDMO(,OUCBPTR) 0075 00181000 * /*************************************************************/ 00182000 * /* */ 00183000 * /* DON'T ASSOCIATE A USER WHO IS BETWEEN STEPS WITH @ZA11854*/ 00184000 * /* A DOMAIN WHOSE MAX-MPL IS ZERO. THIS IS BECAUSE @ZA11854*/ 00185000 * /* A PERIOD CHANGE CAN NEVER OCCUR TO TAKE THIS USER @ZA11854*/ 00186000 * /* TO A DIFFERENT DOMAIN. @ZA11854*/ 00187000 * /* WHILE LOOPING THROUGH DOMAINS, USE THE NEW @ZA27109*/ 00188000 * /* IPS FOR DOMAIN AND PGN INFORMATION. @ZA27109*/ 00189000 * /* */ 00190000 * /*************************************************************/ 00191000 * 0076 00192000 * RFY 0076 00193000 * DMDT BASED(DMDTPTR2); /* GET ADDRESSABILITY @ZA11854*/ 00194000 * DMDTPTR2=WMSTDMDT+OUCBDMO; /* SET TABLE ADDRESS @ZA11854*/ 00195000 AL @09,WMSTDMDT(,WMSTNPTR) 0077 00196000 LR DMDTPTR2,@09 0077 00197000 * IF OUCBINC='0'B THEN /* BETWEEN STEPS? @ZA11854*/ 00198000 TM OUCBINC(OUCBPTR),B'00000001' 0078 00199000 BNZ @RF00078 0078 00200000 * DO; /* YES..GET FIRST PERIOD @ZA11854*/ 00201000 * DO WHILE(DMDTHI=ZERO&WPGPFIN^='1'B);/* @ZA11854 00202000 * WITH NON-ZERO MAXMPL @ZA11854*/ 00203000 B @DE00080 0080 00204000 @DL00080 DS 0H 0081 00205000 * OUCBPGP=OUCBPGP+LENGTH(WPGP);/* TRY NEXT PERIOD 0081 00206000 * @ZA11854*/ 00207000 LA @09,8 0081 00208000 SLR @15,@15 0081 00209000 IC @15,OUCBPGP(,OUCBPTR) 0081 00210000 ALR @09,@15 0081 00211000 STC @09,OUCBPGP(,OUCBPTR) 0081 00212000 * WPGPPTR=WPGDPTR+OUCBPGP;/* TO NEW PERIOD @ZA11854*/ 00213000 ALR @09,WPGDPTR 0082 00214000 LR WPGPPTR,@09 0082 00215000 * OUCBDMN=WPGPDMN; /* GET NEW DOMAIN @ZA11854*/ 00216000 SLR @09,@09 0083 00217000 IC @09,WPGPDMN(,WPGPPTR) 0083 00218000 STC @09,OUCBDMN(,OUCBPTR) 0083 00219000 * OUCBDMO=WDMVTENT; /* AND NEW OFFSET @ZA11854*/ 00220000 ALR @09,@09 0084 00221000 AL @09,WMSTDMVT(,WMSTNPTR) 0084 00222000 LH @09,WDMVTENT(,@09) 0084 00223000 STH @09,OUCBDMO(,OUCBPTR) 0084 00224000 * DMDTPTR2=WMSTDMDT+OUCBDMO;/* THIS A GOOD DMN? @ZA27109*/ 00225000 AL @09,WMSTDMDT(,WMSTNPTR) 0085 00226000 LR DMDTPTR2,@09 0085 00227000 * END; /* EITHER GOOD DMN OR @ZA11854 00228000 * LAST PERIOD. @ZA11854*/ 00229000 @DE00080 CLI DMDTHI(DMDTPTR2),0 0086 00230000 BNE @DC00080 0086 00231000 TM WPGPFIN(WPGPPTR),B'10000000' 0086 00232000 BNO @DL00080 0086 00233000 @DC00080 DS 0H 0087 00234000 * END; /* END APAR FIX. @ZA11854*/ 00235000 * RFY 0088 00236000 * DMDT BASED(DMDTPTR); /* BACK TO PROPER BASE @ZA11854*/ 00237000 @RF00078 DS 0H 0089 00238000 * IF OUCBAPG='1'B THEN /* AN APG USER? @Z40BPEB*/ 00239000 TM OUCBAPG(OUCBPTR),B'01000000' 0089 00240000 BNO @RF00089 0089 00241000 * IF WPGPAPG='1'B /* NEW PERIOD SPECIFY @Z40BPEB*/ 00242000 * THEN /* AN APG VALUE ? @Z40BPEB*/ 00243000 TM WPGPAPG(WPGPPTR),B'00100000' 0090 00244000 BNO @RF00090 0090 00245000 * OUCBNDP=CCCAPMDP+WPGPAPGV;/* ASSIGN REQUESTED DP @Z40BPEB*/ 00246000 SLR @15,@15 0091 00247000 IC @15,WPGPAPGV(,WPGPPTR) 0091 00248000 AH @15,CCCAPMDP(,RMCTPTR) 0091 00249000 STC @15,OUCBNDP(,OUCBPTR) 0091 00250000 * ELSE /* NO APG VALUE CODED @Z40BPEB*/ 00251000 * OUCBNDP=CCCAPGDP; /* ASSIGN DEFAULT DP @Z40BPEB*/ 00252000 B @RC00090 0092 00253000 @RF00090 LH @15,CCCAPGDP(,RMCTPTR) 0092 00254000 STC @15,OUCBNDP(,OUCBPTR) 0092 00255000 * OUCBPTR=OUCBFWD; /* NEXT OUCB ON THE QUEUE */ 00256000 @RC00090 DS 0H 0093 00257000 @RF00089 L OUCBPTR,OUCBFWD(,OUCBPTR) 0093 00258000 * RESPECIFY 0094 00259000 * WPGPPTR UNRSTD; /* @Z40BPCH*/ 00260000 * END; 0095 00261000 @DE00058 CLC OUCBNAME(4,OUCBPTR),@CC00948 0095 00262000 BE @DL00058 0095 00263000 * END; 0096 00264000 AL QPTR,@CF00035 0096 00265000 @DE00056 LA @11,RMCTINQE(,RMCTPTR) 0096 00266000 CR QPTR,@11 0096 00267000 BNH @DL00056 0096 00268000 * IF RRPARFI='1'B|RRPARCI='1'B THEN/* ERROR RECOVERY INVOKED */ 00269000 TM RRPARFI(RRPAPTR),B'00000011' 0097 00270000 BZ @RF00097 0097 00271000 * DO; /* @ZA27109*/ 00272000 * RMCTWAST=WMSTOPTR->WMSTNWST;/* FREE ATTEMPTED NEW IPS */ 00273000 L @11,WMSTNWST(,WMSTOPTR) 0099 00274000 ST @11,RMCTWAST(,RMCTPTR) 0099 00275000 * RRPARTC=SETERROR; /* LET 812 KNOW TROUBLE @ZA27109*/ 00276000 MVI RRPARTC(RRPAPTR),X'0C' 0100 00277000 * END; /* END OF ERROR RETRY @ZA27109*/ 00278000 * ELSE /* NORMAL ENTRY TO SET IPS PROCS */ 00279000 * RMCTWAST=WMSTOPTR; /* FREE PREVIOUSLY USED IPS */ 00280000 B @RC00097 0102 00281000 @RF00097 ST WMSTOPTR,RMCTWAST(,RMCTPTR) 0102 00282000 * RMCTMFS='1'B; /* INDICATE SET TO NEW IPS 0103 00283000 * OCCURRED FOR TRACE @Z40BPCH*/ 00284000 @RC00097 OI RMCTMFS(RMCTPTR),B'01000000' 0103 00285000 * RESPECIFY 0104 00286000 * QPTR UNRSTD; 0104 00287000 * RMCTWMST=WMSTNPTR; /* UPDATE PTR IN RMCT TO NEW IPS */ 00288000 ST WMSTNPTR,RMCTWMST(,RMCTPTR) 0105 00289000 * RMCTDMDT=WMSTDMDT; /* UPDATE PTR TO NEW DOMAIN TABLE 00290000 * @Z40BPCH*/ 00291000 L @15,WMSTDMDT(,WMSTNPTR) 0106 00292000 ST @15,RMCTDMDT(,RMCTPTR) 0106 00293000 * RMCTDMDE=RMCTDMDT+WMSTDMNC*LENGTH(DMDT)-LENGTH(DMDT);/* ADDRESS 00294000 * OF LAST DOMAIN TABLE ENTRY 0107 00295000 * @Z40BPCH*/ 00296000 LA @14,20 0107 00297000 LH @11,WMSTDMNC(,WMSTNPTR) 0107 00298000 LR @09,@11 0107 00299000 MR @08,@14 0107 00300000 ALR @15,@09 0107 00301000 SLR @15,@14 0107 00302000 ST @15,RMCTDMDE(,RMCTPTR) 0107 00303000 * RMCTDMNC=WMSTDMNC; /* UPDATE NO. OF DOMAINS @Z40BPCH*/ 00304000 STH @11,RMCTDMNC(,RMCTPTR) 0108 00305000 * ICCMAXRV=WMSTWLHI/5; /* HIGHEST WORK LOAD LEV @ZM43079*/ 00306000 LA @15,5 0109 00307000 LH @14,WMSTWLHI(,WMSTNPTR) 0109 00308000 LR @08,@14 0109 00309000 SRDA @08,32 0109 00310000 DR @08,@15 0109 00311000 STH @09,ICCMAXRV(,RMCTPTR) 0109 00312000 * ICCMINRV=-WMSTWLHI/5; /* NEG HIGHEST WLL @ZM43079*/ 00313000 LCR @11,@14 0110 00314000 LR @08,@11 0110 00315000 SRDA @08,32 0110 00316000 DR @08,@15 0110 00317000 STH @09,ICCMINRV(,RMCTPTR) 0110 00318000 * CCCMAXRV=WMSTWLHI/5; /* HIGHEST WORK LOAD LEV @ZM43079*/ 00319000 LR @08,@14 0111 00320000 SRDA @08,32 0111 00321000 DR @08,@15 0111 00322000 STH @09,CCCMAXRV(,RMCTPTR) 0111 00323000 * CCCMINRV=-WMSTWLHI/5; /* NEG HIGHEST WLL @ZM43079*/ 00324000 * 0112 00325000 LR @08,@11 0112 00326000 SRDA @08,32 0112 00327000 DR @08,@15 0112 00328000 STH @09,CCCMINRV(,RMCTPTR) 0112 00329000 * /*****************************************************************/ 00330000 * /* */ 00331000 * /* ? IRACTLEP ENN(SET) */ 00332000 * /* */ 00333000 * /*****************************************************************/ 00334000 * 0113 00335000 * GEN CODE EXIT NOSEQFLOW; 0113 00336000 * /* 00337000 LM @00,@14,256+000(@13) RELOAD INVOKING RTNE REGS 00338000 BR RTNREG RETURN TO INVOKER 00339000 * END IRARMSET 0114 00340000 * 0114 00341000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00342000 */*%INCLUDE SYSLIB (IRACNSMP) */ 00343000 */*%INCLUDE SYSLIB (IRARMCT ) */ 00344000 */*%INCLUDE SYSLIB (IRACCT ) */ 00345000 */*%INCLUDE SYSLIB (IRAICT ) */ 00346000 */*%INCLUDE SYSLIB (IRAMCT ) */ 00347000 */*%INCLUDE SYSLIB (IRARCT ) */ 00348000 */*%INCLUDE SYSLIB (IRARMPT ) */ 00349000 */*%INCLUDE SYSLIB (IRARMCA ) */ 00350000 */*%INCLUDE SYSLIB (IRARMEX ) */ 00351000 */*%INCLUDE SYSLIB (IRARMSB ) */ 00352000 */*%INCLUDE SYSLIB (IRAEPAT ) */ 00353000 */*%INCLUDE SYSLIB (IRAEPDT ) */ 00354000 */*%INCLUDE SYSLIB (IRAEPST ) */ 00355000 */*%INCLUDE SYSLIB (IRARRPA ) */ 00356000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00357000 */*%INCLUDE SYSLIB (IRAOUCB ) */ 00358000 */*%INCLUDE SYSLIB (IHAOUXB ) */ 00359000 */*%INCLUDE SYSLIB (IRARMEP ) */ 00360000 */*%INCLUDE SYSLIB (IRADMDT ) */ 00361000 */*%INCLUDE SYSLIB (IRAWMST ) */ 00362000 */*%INCLUDE SYSLIB (IRAWPGDT) */ 00363000 */*%INCLUDE SYSLIB (IRAWAMT ) */ 00364000 */*%INCLUDE SYSLIB (IRAREGS ) */ 00365000 * 0114 00366000 * ; 0114 00367000 @DATA DS 0H 00368000 DS 0F 00369000 DS 0F 00370000 @CF00035 DC F'4' 00371000 DS 0D 00372000 RMEPPTR DS A 00373000 WMSTPTR DS A 00374000 WPGLPTR DS A 00375000 WAMPPTR DS A 00376000 @CC00948 DC C'OUCB' 00377000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00378000 @01 EQU 01 00379000 @02 EQU 02 00380000 @03 EQU 03 00381000 @04 EQU 04 00382000 @05 EQU 05 00383000 @06 EQU 06 00384000 @07 EQU 07 00385000 @08 EQU 08 00386000 @09 EQU 09 00387000 @10 EQU 10 00388000 @11 EQU 11 00389000 @12 EQU 12 00390000 @13 EQU 13 00391000 @14 EQU 14 00392000 @15 EQU 15 00393000 WPGDPTR EQU @08 00394000 RMCTPTR EQU @02 00395000 RRPAPTR EQU @03 00396000 ASCBPTR EQU @05 00397000 OUCBPTR EQU @04 00398000 OUXBPTR EQU @06 00399000 DMDTPTR EQU @11 00400000 WPGPPTR EQU @11 00401000 R0 EQU @00 00402000 R1 EQU @01 00403000 SVEREG EQU @13 00404000 RTNREG EQU @14 00405000 NTRREG EQU @15 00406000 RTNCOD EQU @15 00407000 DMDTPTR2 EQU @05 00408000 WMSTNPTR EQU @06 00409000 WMSTOPTR EQU @07 00410000 QPTR EQU @10 00411000 RMCT EQU 0 00412000 RMCTWMST EQU RMCT+24 00413000 RMCTWAST EQU RMCT+84 00414000 RMCTWAMT EQU RMCT+88 00415000 RMCTWTQE EQU RMCT+104 00416000 RMCTINQE EQU RMCT+112 00417000 RMCTFLGS EQU RMCT+148 00418000 RMCTMFA EQU RMCTFLGS 00419000 RMCTMFS EQU RMCTFLGS+1 00420000 RMCTDMDT EQU RMCT+180 00421000 RMCTDMDE EQU RMCT+184 00422000 RMCTDMNC EQU RMCT+188 00423000 CCT EQU RMCT+192 00424000 CCCAPMDP EQU CCT+40 00425000 CCCAPGDP EQU CCT+42 00426000 CCCMAXRV EQU CCT+58 00427000 CCCMINRV EQU CCT+60 00428000 CCTFLG1 EQU CCT+124 00429000 ICT EQU RMCT+320 00430000 ICCMAXRV EQU ICT+30 00431000 ICCMINRV EQU ICT+32 00432000 ICTFLAGS EQU ICT+84 00433000 MCT EQU RMCT+408 00434000 MCTSFLGS EQU MCT+64 00435000 MCTOFLGS EQU MCT+65 00436000 RCT EQU RMCT+504 00437000 RMPT EQU RMCT+592 00438000 RMCA EQU RMCT+664 00439000 RMCAFLGS EQU RMCA+36 00440000 RMCALGPG EQU RMCA+72 00441000 RMCABCPG EQU RMCA+73 00442000 RMCASRC EQU RMCA+124 00443000 RMEX EQU RMCT+832 00444000 RMEPBEVT EQU RMEX 00445000 RMEPBCTL EQU RMEX+16 00446000 RMSB EQU RMCT+896 00447000 RMSBWMN EQU RMSB+64 00448000 EPAT EQU RMCT+1016 00449000 EPDT EQU RMCT+1416 00450000 EPST EQU RMCT+1512 00451000 RMEPBWM3 EQU EPST 00452000 RMEPBIL3 EQU EPST+16 00453000 RMEPBCL3 EQU EPST+32 00454000 RMEPBCSO EQU EPST+48 00455000 RMEPBCSI EQU EPST+64 00456000 RRPA EQU 0 00457000 RRPAINC EQU RRPA 00458000 RRPAVPGN EQU RRPAINC+2 00459000 RRPAFLG0 EQU RRPAVPGN 00460000 RRPAINP EQU RRPA+4 00461000 RRPAFLG EQU RRPA+8 00462000 RRPAWAR EQU RRPAFLG+1 00463000 RRPARFI EQU RRPAFLG+1 00464000 RRPARCI EQU RRPAFLG+1 00465000 RRPARTC EQU RRPA+11 00466000 RRPAINS EQU RRPA+16 00467000 ASCB EQU 0 00468000 ASCBSUPC EQU ASCB+16 00469000 ASCBRSM EQU ASCB+52 00470000 ASCBRSMF EQU ASCBRSM 00471000 ASCBFW1 EQU ASCB+100 00472000 ASCBRCTF EQU ASCBFW1+2 00473000 ASCBFLG1 EQU ASCBFW1+3 00474000 ASCBDSP1 EQU ASCB+114 00475000 ASCBFLG2 EQU ASCB+115 00476000 ASCBLKGP EQU ASCB+128 00477000 ASCBSRQ EQU ASCB+180 00478000 ASCBSRQ1 EQU ASCBSRQ 00479000 ASCBSRQ2 EQU ASCBSRQ+1 00480000 ASCBSRQ3 EQU ASCBSRQ+2 00481000 ASCBSRQ4 EQU ASCBSRQ+3 00482000 OUCB EQU 0 00483000 OUCBNAME EQU OUCB 00484000 OUCBFWD EQU OUCB+4 00485000 OUCBQFL EQU OUCB+16 00486000 OUCBSFL EQU OUCB+17 00487000 OUCBPVL EQU OUCBSFL 00488000 OUCBYFL EQU OUCB+18 00489000 OUCBLOG EQU OUCBYFL 00490000 OUCBAFL EQU OUCB+19 00491000 OUCBAPG EQU OUCBAFL 00492000 OUCBTFL EQU OUCB+20 00493000 OUCBINC EQU OUCBTFL 00494000 OUCBEFL EQU OUCB+21 00495000 OUCBUFL EQU OUCB+23 00496000 OUCBNPG EQU OUCB+24 00497000 OUCBRPG EQU OUCB+25 00498000 OUCBNDP EQU OUCB+26 00499000 OUCBSPG EQU OUCB+28 00500000 OUCBPGP EQU OUCB+31 00501000 OUCBWMG EQU OUCB+32 00502000 OUCBDMO EQU OUCB+34 00503000 OUCBDMN EQU OUCB+36 00504000 OUCBASCB EQU OUCB+40 00505000 OUCBCSW EQU OUCB+84 00506000 OUCBCFL EQU OUCBCSW+2 00507000 OUCBPSS EQU OUCB+112 00508000 OUXB EQU 0 00509000 RMEP EQU 0 00510000 RMEPEPB EQU RMEP 00511000 RMEPFLG EQU RMEPEPB+8 00512000 RMEPSCH EQU RMEP+16 00513000 DMDT EQU 0 00514000 DMDTHI EQU DMDT+2 00515000 WMST EQU 0 00516000 WMSTPGVT EQU WMST+8 00517000 WMSTPGDT EQU WMST+16 00518000 WMSTDMDT EQU WMST+40 00519000 WMSTDMVT EQU WMST+48 00520000 WMSTWLHI EQU WMST+60 00521000 WMSTDMNC EQU WMST+66 00522000 WMSTNWST EQU WMST+92 00523000 WPGD EQU 0 00524000 WPGDDFL EQU WPGD+3 00525000 WPGDPGP EQU WPGD+12 00526000 WPGDINDS EQU WPGDPGP+5 00527000 WPGP EQU 0 00528000 WPGPDMN EQU WPGP+1 00529000 WPGPAPGV EQU WPGP+4 00530000 WPGPINDS EQU WPGP+5 00531000 WPGPFIN EQU WPGPINDS 00532000 WPGPAPG EQU WPGPINDS 00533000 WPGL EQU 0 00534000 WPGLISV EQU WPGL 00535000 WAMT EQU 0 00536000 WAMTWAR EQU WAMT 00537000 WAMTNX1 EQU WAMT+56 00538000 WAMP EQU 0 00539000 WAMPPGP EQU WAMP 00540000 IRARMRTN EQU 0 00541000 QHEADER EQU 0 00542000 WPGVRENT EQU 0 00543000 WPGVNENT EQU 0 00544000 WDMVTENT EQU 0 00545000 WARTABLE EQU 0 00546000 IRARMWR8 EQU 0 00547000 IRARMNTR EQU 0 00548000 WAMTPTR EQU RMCTWAMT 00549000 WAMTNDX EQU WAMTNX1 00550000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00551000 WAMPEND EQU WAMP+44 00552000 WAMPRSV EQU WAMPPGP+42 00553000 WAMPDMN EQU WAMPPGP+41 00554000 WAMPOBJN EQU WAMPPGP+40 00555000 WAMPSWC EQU WAMPPGP+36 00556000 WAMPTRR EQU WAMPPGP+32 00557000 WAMPMSO EQU WAMPPGP+28 00558000 WAMPIOC EQU WAMPPGP+24 00559000 WAMPCPU EQU WAMPPGP+20 00560000 WAMPNWL EQU WAMPPGP+16 00561000 WAMPTET EQU WAMPPGP+12 00562000 WAMPSRV EQU WAMPPGP+8 00563000 WAMPTAT EQU WAMPPGP+4 00564000 WAMPTRN EQU WAMPPGP 00565000 WAMTEND EQU WAMT+64 00566000 WAMTR90 EQU WAMT+60 00567000 WAMTNX0 EQU WAMT+52 00568000 WAMTIPM EQU WAMT+48 00569000 WAMTIPI EQU WAMT+44 00570000 WAMTIPC EQU WAMT+40 00571000 WAMTHPG EQU WAMT+38 00572000 WAMTSPD EQU WAMT+36 00573000 WAMTCPD EQU WAMT+34 00574000 WAMTIPS EQU WAMT+32 00575000 WAMTTCB EQU WAMT+28 00576000 WAMTASD EQU WAMT+24 00577000 WAMTTOC EQU WAMT+16 00578000 WAMTTMA EQU WAMT+8 00579000 WAMTSIZ EQU WAMT+4 00580000 WPGLEND EQU WPGL+4 00581000 WPGLDUR EQU WPGLISV 00582000 WPGPEND EQU WPGP+8 00583000 WPGPDURP EQU WPGP+7 00584000 WPGPISVP EQU WPGP+6 00585000 WPGPRTB EQU WPGPINDS 00586000 WPGPRB2 EQU WPGPINDS 00587000 WPGPUNT EQU WPGPINDS 00588000 @NM00004 EQU WPGP+2 00589000 WPGPOBJN EQU WPGP 00590000 WPGDEND EQU WPGD+20 00591000 WPGDPGL EQU WPGD+20 00592000 WPGDDURP EQU WPGDPGP+7 00593000 WPGDISVP EQU WPGDPGP+6 00594000 WPGDRTB EQU WPGDINDS 00595000 WPGDRB2 EQU WPGDINDS 00596000 WPGDAPG EQU WPGDINDS 00597000 WPGDUNT EQU WPGDINDS 00598000 WPGDFIN EQU WPGDINDS 00599000 WPGDAPGV EQU WPGDPGP+4 00600000 @NM00003 EQU WPGDPGP+2 00601000 WPGDDMN EQU WPGDPGP+1 00602000 WPGDOBJN EQU WPGDPGP 00603000 WPGDISV EQU WPGD+8 00604000 WPGDATM EQU WPGD+4 00605000 WPGDRD1 EQU WPGDDFL 00606000 WPGDVLD EQU WPGDDFL 00607000 WPGDR02 EQU WPGD+2 00608000 WPGDSIZ EQU WPGD+1 00609000 WPGDPGN EQU WPGD 00610000 WMSTEND EQU WMST+112 00611000 WMSTIPM EQU WMST+108 00612000 WMSTIPI EQU WMST+104 00613000 WMSTIPC EQU WMST+100 00614000 WMSTSECB EQU WMST+96 00615000 WMSTSTCB EQU WMST+88 00616000 WMSTSET EQU WMST+84 00617000 WMSTRSVD EQU WMST+81 00618000 WMSTREAL EQU WMST+80 00619000 WMSTMSO EQU WMST+76 00620000 WMSTIOC EQU WMST+72 00621000 WMSTCPU EQU WMST+68 00622000 WMSTPGPC EQU WMST+64 00623000 WMSTPGHI EQU WMST+62 00624000 WMSTDMDE EQU WMST+56 00625000 WMSTDMVS EQU WMST+52 00626000 WMSTDMDS EQU WMST+44 00627000 WMSTPODS EQU WMST+36 00628000 WMSTPODT EQU WMST+32 00629000 WMSTPOVS EQU WMST+28 00630000 WMSTPOVT EQU WMST+24 00631000 WMSTPGDS EQU WMST+20 00632000 WMSTPGVS EQU WMST+12 00633000 WMSTWLLO EQU WMST+6 00634000 WMSTID EQU WMST+4 00635000 WMSTNAME EQU WMST 00636000 DMDTEND EQU DMDT+20 00637000 DMDTRUC EQU DMDT+16 00638000 DMDTINCU EQU DMDT+14 00639000 DMDTOUTU EQU DMDT+12 00640000 DMDTCMPL EQU DMDT+10 00641000 DMDTGOOU EQU DMDT+8 00642000 DMDTRUA EQU DMDT+6 00643000 DMDTMPLT EQU DMDT+4 00644000 DMDTWT EQU DMDT+3 00645000 DMDTLO EQU DMDT+1 00646000 DMDTNO EQU DMDT 00647000 RMEPSND EQU RMEP+32 00648000 RMEPINT EQU RMEPSCH+12 00649000 RMEPTME EQU RMEPSCH+8 00650000 RMEPBCK EQU RMEPSCH+4 00651000 RMEPFWD EQU RMEPSCH 00652000 RMEPEND EQU RMEP+16 00653000 RMEPPRV EQU RMEPEPB+12 00654000 RMEPACN EQU RMEPFLG+3 00655000 RMEPTMD EQU RMEPFLG+3 00656000 RMEPRCR EQU RMEPFLG+3 00657000 RMEPVFL EQU RMEPFLG 00658000 RMEPERA EQU RMEPEPB+4 00659000 RMEPEPA EQU RMEPEPB 00660000 OUXBEND EQU OUXB+144 00661000 OUXBTSW EQU OUXB+140 00662000 OUXBFIXC EQU OUXB+138 00663000 OUXBNVC EQU OUXB+136 00664000 OUXBUIC EQU OUXB+134 00665000 OUXBVSC EQU OUXB+132 00666000 OUXBILS EQU OUXB+128 00667000 OUXBRSV1 EQU OUXB+126 00668000 OUXBWCT EQU OUXB+124 00669000 OUXBPRS EQU OUXB+120 00670000 OUXBSTD EQU OUXB+116 00671000 OUXBITD EQU OUXB+112 00672000 OUXBMSS EQU OUXB+104 00673000 OUXBCPS EQU OUXB+96 00674000 OUXBAET EQU OUXB+92 00675000 OUXBTRR EQU OUXB+88 00676000 OUXBJBR EQU OUXB+84 00677000 OUXBTRT EQU OUXB+80 00678000 OUXBTRS EQU OUXB+76 00679000 OUXBJBT EQU OUXB+72 00680000 OUXBJBS EQU OUXB+68 00681000 OUXBTRC EQU OUXB+64 00682000 OUXBNQT EQU OUXB+60 00683000 OUXBIOSM EQU OUXB+56 00684000 OUXBSTC EQU OUXB+54 00685000 OUXBIOS EQU OUXB+52 00686000 OUXBSTCT EQU OUXB+48 00687000 OUXBCAPR EQU OUXB+44 00688000 OUXBCAPI EQU OUXB+40 00689000 OUXBVAMR EQU OUXB+36 00690000 OUXBVAMO EQU OUXB+32 00691000 OUXBVAMI EQU OUXB+28 00692000 OUXBPREC EQU OUXB+24 00693000 OUXBPOUT EQU OUXB+20 00694000 OUXBPIN EQU OUXB+16 00695000 OUXBRSW EQU OUXB+12 00696000 OUXBMET EQU OUXB+8 00697000 OUXBPET EQU OUXB+4 00698000 OUXBNAME EQU OUXB 00699000 OUCBEND EQU OUCB+136 00700000 OUCBNTSP EQU OUCB+134 00701000 OUCBNDS EQU OUCB+132 00702000 OUCBTIO EQU OUCB+128 00703000 OUCBTCP EQU OUCB+124 00704000 OUCBPST EQU OUCB+120 00705000 OUCBPS2 EQU OUCBPSS+4 00706000 OUCBPS1 EQU OUCBPSS 00707000 OUCBIOSM EQU OUCB+108 00708000 OUCBTMP EQU OUCB+104 00709000 OUCBR03 EQU OUCB+102 00710000 OUCBIOR EQU OUCB+100 00711000 OUCBCRV EQU OUCB+98 00712000 OUCBIRV EQU OUCB+96 00713000 OUCBWMR EQU OUCB+92 00714000 OUCBCMRV EQU OUCB+88 00715000 OUCBCF2 EQU OUCBCFL 00716000 OUCBRSM EQU OUCBCFL 00717000 OUCBRDY EQU OUCBCFL 00718000 OUCBACN EQU OUCBCSW 00719000 OUCBACT EQU OUCB+80 00720000 OUCBWSS EQU OUCB+78 00721000 OUCBPSO EQU OUCB+76 00722000 OUCBTMO EQU OUCB+72 00723000 OUCBTMS EQU OUCB+68 00724000 OUCBMSO EQU OUCB+64 00725000 OUCBIOC EQU OUCB+60 00726000 OUCBCPU EQU OUCB+56 00727000 OUCBWMS EQU OUCB+52 00728000 OUCBTMW EQU OUCB+48 00729000 OUCBIMCB EQU OUCB+44 00730000 OUCBSWC EQU OUCB+38 00731000 OUCBSRC EQU OUCB+37 00732000 OUCBR40 EQU OUCB+30 00733000 OUCBR30 EQU OUCB+29 00734000 OUCBRDP EQU OUCB+27 00735000 OUCBUF7 EQU OUCBUFL 00736000 OUCBUF6 EQU OUCBUFL 00737000 OUCBUF5 EQU OUCBUFL 00738000 OUCBTSWC EQU OUCBUFL 00739000 OUCBTSWP EQU OUCBUFL 00740000 OUCBRSWP EQU OUCBUFL 00741000 OUCBJSAS EQU OUCBUFL 00742000 OUCBJSFS EQU OUCBUFL 00743000 OUCBNQC EQU OUCB+22 00744000 OUCBMWT EQU OUCBEFL 00745000 OUCBQSC EQU OUCBEFL 00746000 OUCBQSS EQU OUCBEFL 00747000 OUCBNQF EQU OUCBEFL 00748000 OUCBCIM EQU OUCBEFL 00749000 OUCBOWT EQU OUCBEFL 00750000 OUCBTRM EQU OUCBEFL 00751000 OUCBLWT EQU OUCBEFL 00752000 OUCBINP EQU OUCBTFL 00753000 OUCBMAR EQU OUCBTFL 00754000 OUCBPCH EQU OUCBTFL 00755000 OUCBRTR EQU OUCBTFL 00756000 OUCBNTR EQU OUCBTFL 00757000 OUCBSTR EQU OUCBTFL 00758000 OUCBATR EQU OUCBTFL 00759000 OUCBASW EQU OUCBAFL 00760000 OUCBNWT EQU OUCBAFL 00761000 OUCBR02 EQU OUCBAFL 00762000 OUCBJSR EQU OUCBAFL 00763000 OUCBCPL EQU OUCBAFL 00764000 OUCBRMA EQU OUCBAFL 00765000 OUCBAF0 EQU OUCBAFL 00766000 OUCBFXS EQU OUCBYFL 00767000 OUCBDTA EQU OUCBYFL 00768000 OUCBAXS EQU OUCBYFL 00769000 OUCBPSTR EQU OUCBYFL 00770000 OUCBMNT EQU OUCBYFL 00771000 OUCBSTT EQU OUCBYFL 00772000 OUCBPSTE EQU OUCBYFL 00773000 OUCBSCN EQU OUCBSFL 00774000 OUCBENQ EQU OUCBSFL 00775000 OUCBNSWI EQU OUCBSFL 00776000 OUCBINV EQU OUCBSFL 00777000 OUCBBIB EQU OUCBSFL 00778000 OUCBCTI EQU OUCBSFL 00779000 OUCBNSW EQU OUCBSFL 00780000 OUCBQF7 EQU OUCBQFL 00781000 OUCBQF6 EQU OUCBQFL 00782000 OUCBOUT EQU OUCBQFL 00783000 OUCBOFF EQU OUCBQFL 00784000 OUCBQSFL EQU OUCBQFL 00785000 OUCBGOB EQU OUCBQFL 00786000 OUCBGOI EQU OUCBQFL 00787000 OUCBGOO EQU OUCBQFL 00788000 OUCBTMA EQU OUCB+12 00789000 OUCBBCK EQU OUCB+8 00790000 ASCBEND EQU ASCB+208 00791000 ASCBSRBT EQU ASCB+200 00792000 ASCBSWTL EQU ASCB+196 00793000 ASCBRS14 EQU ASCB+195 00794000 ASCBSMCT EQU ASCB+194 00795000 ASCBRS12 EQU ASCB+192 00796000 ASCBPCTT EQU ASCB+188 00797000 ASCBVGTT EQU ASCB+184 00798000 ASCBRV43 EQU ASCBSRQ4 00799000 ASCBRV42 EQU ASCBSRQ4 00800000 ASCBRV41 EQU ASCBSRQ4 00801000 ASCBRV40 EQU ASCBSRQ4 00802000 ASCBRV39 EQU ASCBSRQ4 00803000 ASCBRV38 EQU ASCBSRQ4 00804000 ASCBRV37 EQU ASCBSRQ4 00805000 ASCBRV36 EQU ASCBSRQ4 00806000 ASCBRV35 EQU ASCBSRQ3 00807000 ASCBRV34 EQU ASCBSRQ3 00808000 ASCBRV33 EQU ASCBSRQ3 00809000 ASCBRV32 EQU ASCBSRQ3 00810000 ASCBRV31 EQU ASCBSRQ3 00811000 ASCBRV30 EQU ASCBSRQ3 00812000 ASCBRV29 EQU ASCBSRQ3 00813000 ASCBRV28 EQU ASCBSRQ3 00814000 ASCBRV27 EQU ASCBSRQ2 00815000 ASCBRV26 EQU ASCBSRQ2 00816000 ASCBRV25 EQU ASCBSRQ2 00817000 ASCBRV24 EQU ASCBSRQ2 00818000 ASCBRV23 EQU ASCBSRQ2 00819000 ASCBRV22 EQU ASCBSRQ2 00820000 ASCBRV21 EQU ASCBSRQ2 00821000 ASCBRV20 EQU ASCBSRQ2 00822000 ASCBRV19 EQU ASCBSRQ1 00823000 ASCBRV18 EQU ASCBSRQ1 00824000 ASCBRV17 EQU ASCBSRQ1 00825000 ASCBRV16 EQU ASCBSRQ1 00826000 ASCBRV15 EQU ASCBSRQ1 00827000 ASCBRV14 EQU ASCBSRQ1 00828000 ASCBRV13 EQU ASCBSRQ1 00829000 ASCBSTA EQU ASCBSRQ1 00830000 ASCBJBNS EQU ASCB+176 00831000 ASCBJBNI EQU ASCB+172 00832000 ASCBMCC EQU ASCB+168 00833000 ASCBRTWA EQU ASCB+164 00834000 ASCBIQEA EQU ASCB+160 00835000 ASCBXMPQ EQU ASCB+156 00836000 ASCBRS01 EQU ASCB+154 00837000 ASCBFMCT EQU ASCB+152 00838000 ASCBOUXB EQU ASCB+148 00839000 ASCBOUCB EQU ASCB+144 00840000 ASCBMECB EQU ASCB+140 00841000 ASCBQECB EQU ASCB+136 00842000 ASCBLSQH EQU ASCBLKGP+4 00843000 ASCBLOCK EQU ASCBLKGP 00844000 ASCBTCBS EQU ASCB+124 00845000 ASCBNVSC EQU ASCB+122 00846000 ASCBVSC EQU ASCB+120 00847000 ASCBSRBS EQU ASCB+118 00848000 ASCBSSRB EQU ASCB+116 00849000 ASCBRV06 EQU ASCBFLG2 00850000 ASCBRV05 EQU ASCBFLG2 00851000 ASCBRV04 EQU ASCBFLG2 00852000 ASCBSNQS EQU ASCBFLG2 00853000 ASCBS2S EQU ASCBFLG2 00854000 ASCBCEXT EQU ASCBFLG2 00855000 ASCBPXMT EQU ASCBFLG2 00856000 ASCBXMPT EQU ASCBFLG2 00857000 ASCBRF07 EQU ASCBDSP1 00858000 ASCBRF06 EQU ASCBDSP1 00859000 ASCBRF05 EQU ASCBDSP1 00860000 ASCBRF04 EQU ASCBDSP1 00861000 ASCBRF03 EQU ASCBDSP1 00862000 ASCBRF02 EQU ASCBDSP1 00863000 ASCBFAIL EQU ASCBDSP1 00864000 ASCBNOQ EQU ASCBDSP1 00865000 ASCBSWCT EQU ASCB+112 00866000 ASCBASXB EQU ASCB+108 00867000 ASCBTMCH EQU ASCB+104 00868000 ASCBNSWP EQU ASCBFLG1 00869000 ASCBTYP1 EQU ASCBFLG1 00870000 ASCBSTND EQU ASCBFLG1 00871000 ASCBABNT EQU ASCBFLG1 00872000 ASCBTERM EQU ASCBFLG1 00873000 ASCBS3S EQU ASCBFLG1 00874000 ASCBCMSH EQU ASCBFLG1 00875000 ASCBTOFF EQU ASCBFLG1 00876000 ASCBRF01 EQU ASCBRCTF 00877000 ASCBTMLW EQU ASCBRCTF 00878000 ASCBOUT EQU ASCBRCTF 00879000 ASCBWAIT EQU ASCBRCTF 00880000 ASCBRV08 EQU ASCBRCTF 00881000 ASCBFQU EQU ASCBRCTF 00882000 ASCBFRS EQU ASCBRCTF 00883000 ASCBTMNO EQU ASCBRCTF 00884000 ASCBAFFN EQU ASCBFW1 00885000 ASCBDUMP EQU ASCB+96 00886000 ASCBRV44 EQU ASCB+92 00887000 ASCBUBET EQU ASCB+88 00888000 ASCBECB EQU ASCB+84 00889000 ASCBJSTL EQU ASCB+80 00890000 ASCBEWST EQU ASCB+72 00891000 ASCBEJST EQU ASCB+64 00892000 ASCBTSB EQU ASCB+60 00893000 ASCBCSCB EQU ASCB+56 00894000 ASCBRSMA EQU ASCBRSM+1 00895000 ASCBRV54 EQU ASCBRSMF 00896000 ASCBRV53 EQU ASCBRSMF 00897000 ASCBRV52 EQU ASCBRSMF 00898000 ASCBRV51 EQU ASCBRSMF 00899000 ASCBVEQR EQU ASCBRSMF 00900000 ASCBN2LP EQU ASCBRSMF 00901000 ASCB1LPU EQU ASCBRSMF 00902000 ASCB2LPU EQU ASCBRSMF 00903000 ASCBLDA EQU ASCB+48 00904000 ASCBSTOR EQU ASCB+44 00905000 ASCBDP EQU ASCB+43 00906000 ASCBRV07 EQU ASCB+42 00907000 ASCBIOSM EQU ASCB+40 00908000 ASCBSEQN EQU ASCB+38 00909000 ASCBASID EQU ASCB+36 00910000 ASCBCPUS EQU ASCB+32 00911000 ASCBSPL EQU ASCB+28 00912000 ASCBIOSP EQU ASCB+24 00913000 ASCBSYNC EQU ASCBSUPC+4 00914000 ASCBSVRB EQU ASCBSUPC 00915000 ASCBCMSF EQU ASCB+12 00916000 ASCBBWDP EQU ASCB+8 00917000 ASCBFWDP EQU ASCB+4 00918000 ASCBASCB EQU ASCB 00919000 ASCBEGIN EQU ASCB 00920000 RRPAEND EQU RRPA+24 00921000 RRPAEPA EQU RRPA+20 00922000 RRPARTN EQU RRPAINS 00923000 RRPATOD EQU RRPA+12 00924000 RRPAKEY EQU RRPA+10 00925000 RRPARTI EQU RRPAFLG+1 00926000 RRPACTL EQU RRPAFLG+1 00927000 RRPAF11 EQU RRPAFLG+1 00928000 RRPAIPS EQU RRPAFLG+1 00929000 RRPAF07 EQU RRPAFLG 00930000 RRPAOPT EQU RRPAFLG 00931000 RRPAF05 EQU RRPAFLG 00932000 RRPAF04 EQU RRPAFLG 00933000 RRPADSP EQU RRPAFLG 00934000 RRPASVC EQU RRPAFLG 00935000 RRPAENB EQU RRPAFLG 00936000 RRPADSB EQU RRPAFLG 00937000 RRPAVLU EQU RRPAINP 00938000 RRPACOD EQU RRPAINC+3 00939000 @NM00002 EQU RRPAFLG0 00940000 RRPANSWI EQU RRPAFLG0 00941000 RRPAASD EQU RRPAINC 00942000 EPSTEND EQU EPST+80 00943000 EPSTCSI EQU RMEPBCSI 00944000 EPSTCSO EQU RMEPBCSO 00945000 EPSTCL3 EQU RMEPBCL3 00946000 EPSTIL3 EQU RMEPBIL3 00947000 EPSTWM3 EQU RMEPBWM3 00948000 EPDTEND EQU EPDT+96 00949000 RMEPBRPS EQU EPDT+80 00950000 RMEPBHIT EQU EPDT+64 00951000 RMEPBUXB EQU EPDT+48 00952000 RMEPBIL4 EQU EPDT+32 00953000 RMEPBDEL EQU EPDT+16 00954000 RMEPBIPS EQU EPDT 00955000 EPATEND EQU EPAT+400 00956000 RMEPBPR1 EQU EPAT+368 00957000 RMEPBEQ1 EQU EPAT+336 00958000 RMEPBAP1 EQU EPAT+304 00959000 RMEPBCL1 EQU EPAT+272 00960000 RMEPBWM2 EQU EPAT+240 00961000 RMEPBIL1 EQU EPAT+208 00962000 RMEPBASM EQU EPAT+176 00963000 RMEPBMS2 EQU EPAT+160 00964000 RMEPBPR5 EQU EPAT+144 00965000 RMEPBMS6 EQU EPAT+112 00966000 RMEPBSQA EQU EPAT+96 00967000 RMEPBRM2 EQU EPAT+64 00968000 RMEPBRM1 EQU EPAT+32 00969000 RMEPBCAP EQU EPAT 00970000 RMSBEND EQU RMSB+120 00971000 RMSBRA9 EQU RMSB+116 00972000 RMSBIL0 EQU RMSB+112 00973000 RMSBCL0 EQU RMSB+108 00974000 RMSBRA6 EQU RMSB+104 00975000 RMSBNOP EQU RMSB+100 00976000 RMSBSET EQU RMSB+96 00977000 RMSBWR6 EQU RMSB+92 00978000 RMSBWR4 EQU RMSB+88 00979000 RMSBTRC EQU RMSB+84 00980000 RMSBWMY EQU RMSB+80 00981000 RMSBWMR EQU RMSB+76 00982000 RMSBWMQ EQU RMSB+72 00983000 RMSBWMO EQU RMSB+68 00984000 RMSBWMK EQU RMSB+60 00985000 RMSBWM4 EQU RMSB+56 00986000 RMSBWM1 EQU RMSB+52 00987000 RMSBWM5 EQU RMSB+48 00988000 RMSBCRY EQU RMSB+44 00989000 RMSBCRN EQU RMSB+40 00990000 RMSBCRL EQU RMSB+36 00991000 RMSBI10 EQU RMSB+32 00992000 RMSBI09 EQU RMSB+28 00993000 RMSBR24 EQU RMSB+24 00994000 RMSBI07 EQU RMSB+20 00995000 RMSBI06 EQU RMSB+16 00996000 RMSBI05 EQU RMSB+12 00997000 RMSBI04 EQU RMSB+8 00998000 RMSBI03 EQU RMSB+4 00999000 RMSBI02 EQU RMSB 01000000 RMEXEND EQU RMEX+64 01001000 RMEXSRE EQU RMEX+60 01002000 RMEXXPE EQU RMEX+56 01003000 RMEXRR2 EQU RMEX+52 01004000 RMEXRR1 EQU RMEX+48 01005000 RMEXI48 EQU RMEX+44 01006000 RMEXCET EQU RMEX+40 01007000 RMEXCXX EQU RMEX+36 01008000 RMEXI01 EQU RMEX+32 01009000 RMEXCTL EQU RMEPBCTL 01010000 RMEXEVT EQU RMEPBEVT 01011000 RMCAEND EQU RMCA+168 01012000 RMCAR90 EQU RMCA+164 01013000 RMCAUSSC EQU RMCASRC+36 01014000 RMCAEXSC EQU RMCASRC+32 01015000 RMCANQSC EQU RMCASRC+28 01016000 RMCARQSC EQU RMCASRC+24 01017000 RMCADWSC EQU RMCASRC+20 01018000 RMCARSSC EQU RMCASRC+16 01019000 RMCAXSSC EQU RMCASRC+12 01020000 RMCALWSC EQU RMCASRC+8 01021000 RMCATISC EQU RMCASRC+4 01022000 RMCATOSC EQU RMCASRC 01023000 RMCACPW1 EQU RMCA+120 01024000 RMCACIUS EQU RMCA+118 01025000 RMCAR14 EQU RMCA+116 01026000 RMCAR13 EQU RMCA+112 01027000 RMCAWKA EQU RMCA+80 01028000 RMCAMAS EQU RMCA+76 01029000 RMCAR20 EQU RMCA+74 01030000 RMCAISV EQU RMCA+70 01031000 RMCAR11 EQU RMCA+68 01032000 RMCAINV EQU RMCA+64 01033000 RMCAR10 EQU RMCA+60 01034000 RMCARSV9 EQU RMCA+56 01035000 RMCACHU EQU RMCA+52 01036000 RMCACHP EQU RMCA+48 01037000 RMCARSV8 EQU RMCA+44 01038000 RMCARSV7 EQU RMCA+40 01039000 RMCARSVF EQU RMCAFLGS 01040000 RMCASAAF EQU RMCAFLGS 01041000 RMCARSV5 EQU RMCA+32 01042000 RMCARSV4 EQU RMCA+28 01043000 RMCARSV3 EQU RMCA+24 01044000 RMCATOI EQU RMCA+20 01045000 RMCATRS EQU RMCA+16 01046000 RMCATQS EQU RMCA+12 01047000 RMCARSV2 EQU RMCA+10 01048000 RMCARSV1 EQU RMCA+8 01049000 RMCAINUS EQU RMCA+6 01050000 RMCAR04 EQU RMCA+4 01051000 RMCANAME EQU RMCA 01052000 RMPTEND EQU RMPT+72 01053000 RMPTOPE EQU RMPT+66 01054000 RMPTOPI EQU RMPT+63 01055000 RMPTOPC EQU RMPT+60 01056000 RMPTIOET EQU RMPT+56 01057000 RMPTCPET EQU RMPT+52 01058000 RMPTWMET EQU RMPT+48 01059000 RMPTSAET EQU RMPT+44 01060000 RMPTXCHT EQU RMPT+40 01061000 RMPTRSV3 EQU RMPT+38 01062000 RMPTRSV2 EQU RMPT+36 01063000 RMPTRSV1 EQU RMPT+32 01064000 RMPTTOL EQU RMPT+28 01065000 RMPTTOM EQU RMPT+24 01066000 RMPTTCS EQU RMPT+20 01067000 RMPTIMN EQU RMPT+16 01068000 RMPTERV EQU RMPT+12 01069000 RMPTIOC EQU RMPT+8 01070000 RMPTCPU EQU RMPT+4 01071000 RMPTNAME EQU RMPT 01072000 RCTEND EQU RCT+88 01073000 RCVRSVF3 EQU RCT+84 01074000 RCVRSVF2 EQU RCT+80 01075000 RCVTAPAD EQU RCT+76 01076000 RCVRSVF1 EQU RCT+74 01077000 RCVTOTDF EQU RCT+72 01078000 RCVBPTTM EQU RCT+68 01079000 RCVBPTCT EQU RCT+64 01080000 RCVASMQ EQU RCT+60 01081000 RCVAVQP EQU RCT+56 01082000 RCVCPUC EQU RCT+52 01083000 RCVUICC EQU RCT+48 01084000 RCVPTR EQU RCT+46 01085000 RCVASMQA EQU RCT+44 01086000 RCVAVQC EQU RCT+42 01087000 RCVCPUA EQU RCT+40 01088000 RCVUICA EQU RCT+38 01089000 RCVCTMC EQU RCT+36 01090000 RCCRSVF3 EQU RCT+32 01091000 RCCRSVF2 EQU RCT+28 01092000 RCCRSVF1 EQU RCT+26 01093000 RCCLCHRR EQU RCT+24 01094000 RCCLCHUT EQU RCT+22 01095000 RCCTOTUT EQU RCT+20 01096000 RCCASMTH EQU RCT+18 01097000 RCCASMTL EQU RCT+16 01098000 RCCPTRTH EQU RCT+14 01099000 RCCPTRTL EQU RCT+12 01100000 RCCCPUTH EQU RCT+10 01101000 RCCCPUTL EQU RCT+8 01102000 RCCUICTH EQU RCT+6 01103000 RCCUICTL EQU RCT+4 01104000 RCTRCT EQU RCT 01105000 MCTEND EQU MCT+96 01106000 MCVRSVF3 EQU MCT+92 01107000 MCVRSVF2 EQU MCT+88 01108000 MCVRSVF1 EQU MCT+84 01109000 MCCINTMX EQU MCT+80 01110000 MCCPR1IN EQU MCT+76 01111000 MCCUICIN EQU MCT+72 01112000 MCCUICBD EQU MCT+68 01113000 MCTRSVB1 EQU MCT+67 01114000 MCTXRSVD EQU MCT+66 01115000 MCTFX2 EQU MCTOFLGS 01116000 MCTFX1 EQU MCTOFLGS 01117000 MCTSMS2 EQU MCTOFLGS 01118000 MCTSMS1 EQU MCTOFLGS 01119000 MCTAMS2 EQU MCTOFLGS 01120000 @NM00001 EQU MCTOFLGS 01121000 MCTASM2 EQU MCTOFLGS 01122000 MCTASM1 EQU MCTOFLGS 01123000 MCTSF04 EQU MCTSFLGS 01124000 MCTFAVQ EQU MCTSFLGS 01125000 MCTAVQ1 EQU MCTSFLGS 01126000 MCTSQA2 EQU MCTSFLGS 01127000 MCTSQA1 EQU MCTSFLGS 01128000 MCVAVQC EQU MCT+60 01129000 MCVFRCNT EQU MCT+58 01130000 MCVSTCRI EQU MCT+56 01131000 MCCEND EQU MCT+56 01132000 MCCASMT2 EQU MCT+54 01133000 MCCASMT1 EQU MCT+52 01134000 MCCRSVH1 EQU MCT+50 01135000 MCCPLUS EQU MCT+48 01136000 MCCMS403 EQU MCT+44 01137000 MCCMS402 EQU MCT+40 01138000 MCCMS401 EQU MCT+36 01139000 MCCMS400 EQU MCT+32 01140000 MCCMS203 EQU MCT+28 01141000 MCCMS202 EQU MCT+24 01142000 MCCMS201 EQU MCT+20 01143000 MCCMS200 EQU MCT+16 01144000 MCCMS102 EQU MCT+12 01145000 MCCMS101 EQU MCT+8 01146000 MCCMS100 EQU MCT+4 01147000 MCTMCT EQU MCT 01148000 ICTEND EQU ICT+88 01149000 ICTRSVB3 EQU ICT+87 01150000 ICTRSVB2 EQU ICT+86 01151000 ICTRSVB1 EQU ICT+85 01152000 ICT003 EQU ICTFLAGS 01153000 ICTIOOT EQU ICTFLAGS 01154000 ICTIOL EQU ICTFLAGS 01155000 ICTDRSV4 EQU ICTFLAGS 01156000 ICVIRSV3 EQU ICT+80 01157000 ICVULCBT EQU ICT+76 01158000 ICVOLCBT EQU ICT+72 01159000 ICVLCBPT EQU ICT+68 01160000 ICVLUTBT EQU ICT+64 01161000 ICCEND EQU ICT+64 01162000 ICCRSV01 EQU ICT+62 01163000 ICCEDSUT EQU ICT+60 01164000 ICCSRSV2 EQU ICT+58 01165000 ICCSIGUP EQU ICT+56 01166000 ICCINDAT EQU ICT+52 01167000 ICCINLOT EQU ICT+48 01168000 ICCINHIT EQU ICT+44 01169000 ICCDAUTH EQU ICT+42 01170000 ICCLOUTH EQU ICT+40 01171000 ICCHIUTH EQU ICT+38 01172000 ICCDASF2 EQU ICT+36 01173000 ICCDASF1 EQU ICT+34 01174000 ICCRVSCF EQU ICT+28 01175000 ICCMNIOR EQU ICT+26 01176000 ICCLCHN EQU ICT+24 01177000 ICCLCLST EQU ICT+20 01178000 ICCMNSWP EQU ICT+16 01179000 ICCMNUIN EQU ICT+12 01180000 ICCMXICT EQU ICT+8 01181000 ICCMRSV1 EQU ICT+4 01182000 ICTICT EQU ICT 01183000 CCVEND EQU CCT+128 01184000 CCTFLG2 EQU CCT+125 01185000 CCTCPUOT EQU CCTFLG1 01186000 CCTALL EQU CCTFLG1 01187000 CCVCPUCT EQU CCT+122 01188000 CCVENQCT EQU CCT+120 01189000 CCVLGFMC EQU CCT+118 01190000 CCVLGUTL EQU CCT+116 01191000 CCVR07 EQU CCT+114 01192000 CCVR06 EQU CCT+112 01193000 CCVUTILP EQU CCT+110 01194000 CCVR05 EQU CCT+108 01195000 CCVIMBBT EQU CCT+104 01196000 CCVEJST EQU CCT+100 01197000 CCVPGCPF EQU CCT+96 01198000 CCVRVSWF EQU CCT+92 01199000 CCVRBSTD EQU CCT+88 01200000 CCVR04 EQU CCT+84 01201000 CCVRBSWT EQU CCT+80 01202000 CCVR03 EQU CCT+76 01203000 CCCEND EQU CCT+76 01204000 CCCRSVH1 EQU CCT+74 01205000 CCCSCFC2 EQU CCT+72 01206000 CCCSCFC1 EQU CCT+70 01207000 CCCR02 EQU CCT+68 01208000 CCCSIGUR EQU CCT+66 01209000 CCCSIGDP EQU CCT+64 01210000 CCCSCFAC EQU CCT+62 01211000 CCCLOSCF EQU CCT+56 01212000 CCCHISCF EQU CCT+54 01213000 CCCUTLOT EQU CCT+52 01214000 CCCUTHIT EQU CCT+50 01215000 CCCAPRHT EQU CCT+48 01216000 CCCAPRLT EQU CCT+46 01217000 CCCR01 EQU CCT+44 01218000 CCCAPLDP EQU CCT+38 01219000 CCCAPBDP EQU CCT+36 01220000 CCCAPROT EQU CCT+34 01221000 CCCAPDIV EQU CCT+32 01222000 CCCRSVF1 EQU CCT+28 01223000 CCCMNSIN EQU CCT+24 01224000 CCCMNUIN EQU CCT+20 01225000 CCCAPDEL EQU CCT+16 01226000 CCCAPMAX EQU CCT+12 01227000 CCCAPMIN EQU CCT+8 01228000 CCCAPMET EQU CCT+4 01229000 CCTCCT EQU CCT 01230000 RMCTEND EQU RMCT+192 01231000 RMCTR50 EQU RMCT+190 01232000 RMCTSRBT EQU RMCT+176 01233000 RMCTOUXB EQU RMCT+172 01234000 RMCTOUCB EQU RMCT+168 01235000 RMCTTOCI EQU RMCT+160 01236000 RMCTCPID EQU RMCT+156 01237000 RMCTTELM EQU RMCT+152 01238000 RMCTF09 EQU RMCTFLGS+1 01239000 RMCTF07 EQU RMCTFLGS+1 01240000 RMCTF06 EQU RMCTFLGS 01241000 RMCTRSV2 EQU RMCTFLGS 01242000 RMCTSTW EQU RMCTFLGS 01243000 RMCTRSV1 EQU RMCTFLGS 01244000 RMCTINIT EQU RMCTFLGS 01245000 RMCTF03 EQU RMCTFLGS 01246000 RMCTCPS1 EQU RMCTFLGS 01247000 RMCTRQSV EQU RMCT+144 01248000 RMCTALR EQU RMCT+140 01249000 RMCTALA EQU RMCT+136 01250000 RMCTTOC EQU RMCT+128 01251000 RMCTTOD EQU RMCT+124 01252000 RMCTTBS EQU RMCT+120 01253000 RMCTR10 EQU RMCT+116 01254000 RMCTOTQE EQU RMCT+108 01255000 RMCTAQHD EQU RMCT+100 01256000 RMCTAQCT EQU RMCT+96 01257000 RMCTTMQE EQU RMCT+92 01258000 RMCTEPPR EQU RMCT+80 01259000 RMCTFLTM EQU RMCT+76 01260000 RMCTEPET EQU RMCT+72 01261000 RMCTITT EQU RMCT+68 01262000 RMCTADJC EQU RMCT+64 01263000 RMCTEPBG EQU RMCT+60 01264000 RMCTEPAT EQU RMCT+56 01265000 RMCTEPDT EQU RMCT+52 01266000 RMCTEPPA EQU RMCT+48 01267000 RMCTRMSB EQU RMCT+44 01268000 RMCTRMEX EQU RMCT+40 01269000 RMCTRMPD EQU RMCT+36 01270000 RMCTRMSA EQU RMCT+32 01271000 RMCTRLCT EQU RMCT+28 01272000 RMCTRMCA EQU RMCT+20 01273000 RMCTRMPT EQU RMCT+16 01274000 RMCTMCT EQU RMCT+12 01275000 RMCTICT EQU RMCT+8 01276000 RMCTCCT EQU RMCT+4 01277000 RMCTNAME EQU RMCT 01278000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01279000 @ENDDATA EQU * 01280000 END IRARMSET,(C'PLS1744',0701,78116) 01281000