TITLE 'IRARMIOM - SYSTEM RESOURCES MANAGEMENT I/O MANAGEMENT *00001000 ' 00002000 IRARMIOM CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * /* 00007000 ENTRY IRARMIL0 00008000 IRARMIL0 DS 0H 00009000 STM @00,@14,128+000(@13) SAVE INVOKING RTNE REGS 00010000 LA @12,IRARMIL0-@PSTART DISPLACEMENT TO MODULE BASE 00011000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00012000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00013000 * IF ICTIOL='0'B THEN /* DONT BOTHER IF I/O LOAD */ 00014000 TM ICTIOL(RMCTPTR),B'01000000' 0060 00015000 BZ @RT00060 0060 00016000 * GO TO IL0END; /* BALANCING IS NOT ACTIVE */ 00017000 * OUXBPTR=ASCBOUXB; /* ESTABLISH OUXB ADDRESSIBILITY */ 00018000 L OUXBPTR,ASCBOUXB(,ASCBPTR) 0062 00019000 * ILTIME=RMCTTOD /* COMPUTE ELAPSED TIME SINCE 0063 00020000 * LAST */ 00021000 * -OUXBITD; /* USER I/O RATE COMPUTATION */ 00022000 L @07,RMCTTOD(,RMCTPTR) 0063 00023000 SL @07,OUXBITD(,OUXBPTR) 0063 00024000 ST @07,ILTIME 0063 00025000 */* */ 00026000 */* FIRST CHECK IF USER I/O MEASUREMENT CONTROL BLOCK */ 00027000 */* ALREADY EXISTS */ 00028000 */* */ 00029000 * 0064 00030000 * IF OUCBIMCB^=I0 THEN /* IF TCTIOT COUNTS HAVE 0064 00031000 * PREVIOUSLY BEEN MONITORED */ 00032000 L @11,OUCBIMCB(,OUCBPTR) 0064 00033000 LTR @11,@11 0064 00034000 BZ @RF00064 0064 00035000 * IF ILTIME<=ICCMNUIN THEN /* AND USER HAS NOT EXECUTED VERY 00036000 * MUCH SINCE THEN */ 00037000 C @07,ICCMNUIN(,RMCTPTR) 0065 00038000 BNH @RT00065 0065 00039000 * GOTO IL0END; /* RETURN IMMEDIATELY */ 00040000 * ELSE 0067 00041000 * ; /* IF IMCB DOES EXIST AND ENOUGH 00042000 * TIME HAS PASSED GO DIRECTLY TO 00043000 * ACCUMULATE TCTIOT COUNTS */ 00044000 */* */ 00045000 */* IF IMCB DOES NOT EXIST FOR USER, DETERMINE WHETHER ONE */ 00046000 */* SHOULD BE INITIALIZED BASED ON USERS MEASURED I/O ACTIVITY */ 00047000 */* AND LOGICAL CHANNEL ALLOCATION PATTERN */ 00048000 */* */ 00049000 * 0068 00050000 * ELSE /* OTHERWISE */ 00051000 * DO; /* */ 00052000 B @RC00064 0068 00053000 @RF00064 DS 0H 0069 00054000 * IF ILTIME>ICCMNUIN THEN /* IF ELAPSED TIME IS LONG ENOUGH*/ 00055000 L @07,ILTIME 0069 00056000 C @07,ICCMNUIN(,RMCTPTR) 0069 00057000 BNH @RF00069 0069 00058000 * DO; /* */ 00059000 * OUCBIOR /* COMPUTE USER I/O REQUEST RATE */ 00060000 * =(OUCBIOSM+DAIOSM /* IN TERMS OF REQUESTS PER 0071 00061000 * @ZA10808*/ 00062000 * -OUXBILS) /* SECOND OF ELAPSED TIME */ 00063000 * *I1000 /* */ 00064000 * /ILTIME; /* */ 00065000 LH @11,DAIOSM(,ASCBPTR) 0071 00066000 N @11,@CF03075 0071 00067000 AL @11,OUCBIOSM(,OUCBPTR) 0071 00068000 LR @08,@11 0071 00069000 SL @08,OUXBILS(,OUXBPTR) 0071 00070000 ST @11,@TF00001 0071 00071000 LR @11,@08 0071 00072000 M @10,@CF02921 0071 00073000 DR @10,@07 0071 00074000 STH @11,OUCBIOR(,OUCBPTR) 0071 00075000 * OUXBILS=OUCBIOSM+DAIOSM;/* RESET BASE REQUEST COUNT 0072 00076000 * @ZA10808*/ 00077000 L @07,@TF00001 0072 00078000 ST @07,OUXBILS(,OUXBPTR) 0072 00079000 * OUXBITD=RMCTTOD; /* RESET BASE TIME OF DAY */ 00080000 L @07,RMCTTOD(,RMCTPTR) 0073 00081000 ST @07,OUXBITD(,OUXBPTR) 0073 00082000 * END; 0074 00083000 * IF OUCBIOR>ICCMNIOR THEN /* IF USER I/O RATE IS HIGH */ 00084000 @RF00069 LH @07,OUCBIOR(,OUCBPTR) 0075 00085000 CH @07,ICCMNIOR(,RMCTPTR) 0075 00086000 BNH @RF00075 0075 00087000 * DO; /* GET AND INITIALIZE IMCB */ 00088000 * ILGT0=LENGTH(OUXB); /* SET UP GETMAIN PARM REGS TO */ 00089000 LA ILGT0,144 0077 00090000 * ILGT1=I0; /* OBTAIN ONE. INVOKE GETMAIN VIA 00091000 * INTERFACE PR */ 00092000 * 0078 00093000 SLR ILGT1,ILGT1 0078 00094000 * /*********************************************************/ 00095000 * /* */ 00096000 * /* ? IRACTLCL EPN(I04) */ 00097000 * /* */ 00098000 * /*********************************************************/ 00099000 * 0079 00100000 * CALL RMSBI04->IRARMRTN; /* INVOKE I04 SUBRTN */ 00101000 L @15,RMSBI04(,RMCTPTR) 0079 00102000 BALR @14,@15 0079 00103000 * IF ILGT15^=I0 THEN /* IF GETMAIN FAILS, */ 00104000 SLR @07,@07 0080 00105000 CR ILGT15,@07 0080 00106000 BNE @RT00080 0080 00107000 * GOTO IL0END; /* GIVE UP */ 00108000 * ELSE /* OTHERWISE INITIALIZE IMCB. */ 00109000 * DO; 0082 00110000 * RESPECIFY 0083 00111000 * IMCB BASED(ILGT1); 0083 00112000 * OUCBIMCB=ILGT1; /* SAVE IMCB ADDRESS IN OUCB */ 00113000 ST ILGT1,OUCBIMCB(,OUCBPTR) 0084 00114000 * IMCBIMCB='IMCB'; /* PUT IN IMCB MNEUMONIC */ 00115000 MVC IMCBIMCB(4,ILGT1),@CC02927 0085 00116000 * IMCBLBGN= /* INDICATE IMCB LCH ENTRIES 0086 00117000 * EMPTY */ 00118000 * ADDR(IMCB)+LENGTH(OUXB); 0086 00119000 LA @08,144 0086 00120000 ALR @08,ILGT1 0086 00121000 ST @08,IMCBLBGN(,ILGT1) 0086 00122000 * IMCBLEND=IMCBLBGN /* INIDICATE IMCBLCH ENTRIES 0087 00123000 * EMPTY */ 00124000 * -LENGTH(IMCBLCH); 0087 00125000 SL @08,@CF00164 0087 00126000 ST @08,IMCBLEND(,ILGT1) 0087 00127000 * IMCBRV=I0; /* ZERO RECOMMENDATION SAVE AREA */ 00128000 STH @07,IMCBRV(,ILGT1) 0088 00129000 * RESPECIFY 0089 00130000 * IMCB BASED(IMCBPTR); 0089 00131000 * END; 0090 00132000 * END; /* */ 00133000 * ELSE /* IF IMCB WAS NOT INITIALIZED */ 00134000 * GOTO IL0END; /* RETURN TO CALLER */ 00135000 * END; /* */ 00136000 * RESPECIFY 0094 00137000 * (ILGT0, 0094 00138000 * ILGT1, 0094 00139000 * ILGT15) UNRESTRICTED; 0094 00140000 @RC00064 DS 0H 0095 00141000 * 0095 00142000 */* */ 00143000 */* CLEAR LCH EXCP COUNT ACCUMULATORS */ 00144000 */* */ 00145000 * 0095 00146000 * DO RLCTPTR=RMCTRLCT /* SET UP ADDRESSIBILITY TO */ 00147000 * TO ICCLCLST BY RLCHLEN; /* EACH LCH TABLE ENTRY */ 00148000 L RLCTPTR,RMCTRLCT(,RMCTPTR) 0095 00149000 B @DE00095 0095 00150000 @DL00095 DS 0H 0096 00151000 * RLCTUMWA=I0; /* CLEAR EXCP COUNT ACCUMULATOR */ 00152000 SLR @07,@07 0096 00153000 ST @07,RLCTUMWA(,RLCTPTR) 0096 00154000 * END; 0097 00155000 * 0097 00156000 AH RLCTPTR,RLCHLEN 0097 00157000 @DE00095 C RLCTPTR,ICCLCLST(,RMCTPTR) 0097 00158000 BNH @DL00095 0097 00159000 */* */ 00160000 */* ACCUMULATE USER EXCP COUNTS BY LOGICAL CHANNEL */ 00161000 */* */ 00162000 * 0098 00163000 * RESPECIFY 0098 00164000 * (ILLUPTR, 0098 00165000 * ILCTPTR, 0098 00166000 * ILSCTR) RESTRICTED; 0098 00167000 * RESPECIFY 0099 00168000 * RLCT BASED /* BASE RLCT ON UCB LCH INDEX */ 00169000 * (EVAL(RMCTRLCT+UCBLCI*RLCHLEN)); 0099 00170000 * RESPECIFY 0100 00171000 * UCBOB BASED(TCTUCBP); /* BASE UCB ON TCT DD ENTRY UCB 00172000 * POINTER */ 00173000 * TCBPTR=ASXBLTCB; /* POINT TO LOWEST USER TCB */ 00174000 L @11,ASXBPTR(,ASCBPTR) 0101 00175000 L TCBPTR,ASXBLTCB(,@11) 0101 00176000 * TCBPTR=TCBJSTCB; /* POINT TO JOB STEP TCB */ 00177000 L TCBPTR,TCBJSTCB(,TCBPTR) 0102 00178000 * IF TCBTCT^=I0& /* IF TCT AND */ 00179000 * TCTIOTBL^=I0 THEN /* TCTIOT EXIST */ 00180000 SLR @08,@08 0103 00181000 L @11,TCBTCT(,TCBPTR) 0103 00182000 CR @11,@08 0103 00183000 BE @RF00103 0103 00184000 L @11,TCTIOTBL(,@11) 0103 00185000 CR @11,@08 0103 00186000 BE @RF00103 0103 00187000 * DO; 0104 00188000 * ILLUPTR=ADDR(TCTTIOT)+I8; /* POINT TO FIRST TCT DD LOOKUP 00189000 * TABLE ENTRY */ 00190000 AL @11,@CF00164 0105 00191000 LR ILLUPTR,@11 0105 00192000 * DO WHILE TCTIOTSD^=I0; /* LOOK AT EACH DD ENTRY */ 00193000 B @DE00106 0106 00194000 @DL00106 DS 0H 0107 00195000 * ILCTPTR=ADDR(TCTTIOT) /* POINT TO CURRENT DO ENTRY */ 00196000 * +TCTIOTSD; 0107 00197000 L @08,TCBTCT(,TCBPTR) 0107 00198000 LH ILCTPTR,TCTIOTSD(,ILLUPTR) 0107 00199000 AL ILCTPTR,TCTIOTBL(,@08) 0107 00200000 * IF TCTSCTR^='FF'X THEN /* LOOK AT EACH NON-SYSIN DD 0108 00201000 * ENTRY */ 00202000 CLI TCTSCTR(ILCTPTR),255 0108 00203000 BE @RF00108 0108 00204000 * DO ILSCTR=TCTSCTR /* LOOK AT EACH DEVICE ASSOCIATED*/ 00205000 * TO I1 BY-I1; /* WITH DATA SET */ 00206000 SLR ILSCTR,ILSCTR 0109 00207000 IC ILSCTR,TCTSCTR(,ILCTPTR) 0109 00208000 B @DE00109 0109 00209000 @DL00109 DS 0H 0110 00210000 * IF TCTUCBP^=I0 THEN /* IF DATA SET ASSOCIATED WITH A */ 00211000 LH @08,TCTUCBP(,ILCTPTR) 0110 00212000 N @08,@CF03075 0110 00213000 LTR @08,@08 0110 00214000 BZ @RF00110 0110 00215000 * RLCTUMWA=RLCTUMWA /* SPECIFIC DEVICE INCLUDE EXCP */ 00216000 * +TCTDCTR; /* COUNT IN THE LCH ACCUMULATION */ 00217000 L @11,RMCTRLCT(,RMCTPTR) 0111 00218000 SLR @10,@10 0111 00219000 IC @10,UCBLCI(,@08) 0111 00220000 MH @10,RLCHLEN 0111 00221000 LR @08,@11 0111 00222000 ALR @08,@10 0111 00223000 ALR @11,@10 0111 00224000 L @11,RLCTUMWA(,@11) 0111 00225000 AL @11,TCTDCTR(,ILCTPTR) 0111 00226000 ST @11,RLCTUMWA(,@08) 0111 00227000 * ILCTPTR=ILCTPTR+I8; /* POINT TO NEXT DEVICE ENTRY */ 00228000 @RF00110 AL ILCTPTR,@CF00164 0112 00229000 * END; 0113 00230000 BCTR ILSCTR,0 0113 00231000 @DE00109 LTR ILSCTR,ILSCTR 0113 00232000 BP @DL00109 0113 00233000 * ILLUPTR=ILLUPTR+I4; /* POINT TO NEXT DD ENTRY IN */ 00234000 @RF00108 AL ILLUPTR,@CF00050 0114 00235000 * END; /* LOOKUP TABLE */ 00236000 @DE00106 LH @08,TCTIOTSD(,ILLUPTR) 0115 00237000 LTR @08,@08 0115 00238000 BNZ @DL00106 0115 00239000 * END; 0116 00240000 * RESPECIFY 0117 00241000 * (ILLUPTR, 0117 00242000 * ILCTPTR, 0117 00243000 * ILSCTR) UNRESTRICTED; 0117 00244000 @RF00103 DS 0H 0118 00245000 * 0118 00246000 */* */ 00247000 */* INITIALIZE USER LOGICAL CHANNEL TABLE ENTRIES */ 00248000 */* */ 00249000 * 0118 00250000 * RESPECIFY 0118 00251000 * IMCBLPTR RESTRICTED; 0118 00252000 * RESPECIFY 0119 00253000 * RLCT BASED(RLCTPTR); 0119 00254000 * IMCBPTR=OUCBIMCB; /* INITIALIZE IMCB BASE REGISTER */ 00255000 L IMCBPTR,OUCBIMCB(,OUCBPTR) 0120 00256000 * IMCBLPTR=IMCBLEND; /* POINT TO LAST IMCB LCH ENTRY */ 00257000 L IMCBLPTR,IMCBLEND(,IMCBPTR) 0121 00258000 * ILCBEND=ADDR(IMCBLCHT) /* SET LIMIT TO IMCB LCH TABLE */ 00259000 * +LENGTH(IMCBLCH); /* SIZE */ 00260000 LA @11,IMCBLCHT(,IMCBPTR) 0122 00261000 AL @11,@CF00164 0122 00262000 ST @11,ILCBEND 0122 00263000 * IMCBSLCB=I0; /* CLEAR SIGNIFICANT LCH USAGE 0123 00264000 * BIT PATTERN */ 00265000 SLR @11,@11 0123 00266000 ST @11,IMCBSLCB(,IMCBPTR) 0123 00267000 * DO RLCTPTR=ICCLCLST /* LOOK AT EACH LOGICAL CHANNEL */ 00268000 * TO RMCTRLCT BY-RLCHLEN; /* STARTING FROM END OF TABLE */ 00269000 L RLCTPTR,ICCLCLST(,RMCTPTR) 0124 00270000 B @DE00124 0124 00271000 @DL00124 DS 0H 0125 00272000 * RLCTX=RLCTPTR-RMCTRLCT; /* COMPUTE OFFSET OF RLCT ENTRY */ 00273000 LR RLCTX,RLCTPTR 0125 00274000 SL RLCTX,RMCTRLCT(,RMCTPTR) 0125 00275000 */* */ 00276000 */* IF LOGICAL CHANNEL ALREADY HAS AN ENTRY IN THE USER */ 00277000 */* IMCB, COMPUTE USER EXCP RATES ON THE LCH AND -- */ 00278000 */* */ 00279000 * 0126 00280000 * IF RLCTX=IMCBLCTX THEN /* IF LCH IS REPRESENTED IN THE */ 00281000 CH RLCTX,IMCBLCTX(,IMCBLPTR) 0126 00282000 BNE @RF00126 0126 00283000 * DO; /* IMCB THEN */ 00284000 * ILUR= /* LCH EXCP RATE EQUALS */ 00285000 * (RLCTUMWA /* RECENT EXCP */ 00286000 * -IMCBBLCC) /* COUNT */ 00287000 * *I1000 /* TIMES 1000 FOR EXCPS / SEC */ 00288000 * /ILTIME; /* DIVIDED BY ELAPSED TIME */ 00289000 L @11,RLCTUMWA(,RLCTPTR) 0128 00290000 LR @08,@11 0128 00291000 SL @08,IMCBBLCC(,IMCBLPTR) 0128 00292000 LR @11,@08 0128 00293000 M @10,@CF02921 0128 00294000 D @10,ILTIME 0128 00295000 LR ILUR,@11 0128 00296000 * IMCBBLCC=RLCTUMWA; /* SAVE NEW BASE EXCP COUNT */ 00297000 L @08,RLCTUMWA(,RLCTPTR) 0129 00298000 ST @08,IMCBBLCC(,IMCBLPTR) 0129 00299000 * IMCBLCUR=ILUR; /* SAVE NEWLY COMPUTED RATE */ 00300000 STH ILUR,IMCBLCUR(,IMCBLPTR) 0130 00301000 */* */ 00302000 */* -- IF USER IS A HEAVY USER OF THE LCH SET LCH BIT IN THE */ 00303000 */* IMCB SIGNIFICANT LCH USE BIT PATTERN */ 00304000 */* */ 00305000 * 0131 00306000 * IF ILUR*I100 /* IF THIS USERS SHARE OF 0131 00307000 * REQUESTS */ 00308000 * /MAX(RLCTRQRT,I1) /* TO THIS LCH IS GREATER THAT */ 00309000 * >ICCSIGUP THEN /* A SIGNIFICANT PERCENTAGE, */ 00310000 LR @08,ILUR 0131 00311000 MH @08,@CH02918 0131 00312000 LH @11,RLCTRQRT(,RLCTPTR) 0131 00313000 LA @10,1 0131 00314000 CR @11,@10 0131 00315000 BNL *+6 00316000 LR @11,@10 0131 00317000 LR @10,@08 0131 00318000 ST @11,@TF00001 0131 00319000 SRDA @10,32 0131 00320000 D @10,@TF00001 0131 00321000 CH @11,ICCSIGUP(,RMCTPTR) 0131 00322000 BNH @RF00131 0131 00323000 * IMCBSLCB=IMCBSLCB /* SET LCH BIT ON IN IMCB */ 00324000 * |RLCTBIT; /* SIGNIFICANT LCH USE PATTERN */ 00325000 OC IMCBSLCB(4,IMCBPTR),RLCTBIT(RLCTPTR) 0132 00326000 * IMCBLPTR=IMCBLPTR /* POINT TO NEXT IMCB LCH ENTRY */ 00327000 * -LENGTH(IMCBLCH); /* */ 00328000 @RF00131 SL IMCBLPTR,@CF00164 0133 00329000 * END; 0134 00330000 * 0134 00331000 */* */ 00332000 */* OTHERWISE */ 00333000 */* IF THE LCH DOES NOT HAVE AN ENTRY IN THE IMCB AND THE */ 00334000 */* USER IS ACTIVE ON THE LCH, CREATE A NEW IMCB LCH ENTRY */ 00335000 */* */ 00336000 * 0135 00337000 * ELSE 0135 00338000 * IF RLCTUMWA^=I0 /* IF USER IS ACTIVE ON THIS LCH */ 00339000 * &IMCBLBGN>=ILCBEND /* AND THERE IS ROOM IN THE */ 00340000 * THEN /* IMCB, */ 00341000 B @RC00126 0135 00342000 @RF00126 L @08,RLCTUMWA(,RLCTPTR) 0135 00343000 LTR @08,@08 0135 00344000 BZ @RF00135 0135 00345000 L @08,IMCBLBGN(,IMCBPTR) 0135 00346000 C @08,ILCBEND 0135 00347000 BL @RF00135 0135 00348000 * DO; /* */ 00349000 * IMCBLBGN=IMCBLBGN /* COMPUTE NEW ADDRESS OF FIRST */ 00350000 * -LENGTH(IMCBLCH); /* LCH ENTRY */ 00351000 SL @08,@CF00164 0137 00352000 ST @08,IMCBLBGN(,IMCBPTR) 0137 00353000 * IF IMCBLPTR> /* IF NEW ENTRY GOES INTO MIDDLE */ 00354000 * IMCBLBGN THEN /* OF IMCB LCH TABLE */ 00355000 CR IMCBLPTR,@08 0138 00356000 BNH @RF00138 0138 00357000 * DO; /* MOVE PRIOR ENTRIES TO MAKE 0139 00358000 * ROOM */ 00359000 * RESPECIFY 0140 00360000 * ILMVCL RESTRICTED; 0140 00361000 * ILMVCL=IMCBLPTR /* COMPUTE LENGTH OF MOVE */ 00362000 * -ADDR(IMCBLCHT)+I7; 0141 00363000 LA ILMVCL,IMCBLCHT(,IMCBPTR) 0141 00364000 LCR ILMVCL,ILMVCL 0141 00365000 ALR ILMVCL,IMCBLPTR 0141 00366000 AL ILMVCL,@CF00450 0141 00367000 * GENERATE(EX ILMVCL,ILMOVE);/* EXECUTE */ 00368000 EX ILMVCL,ILMOVE 00369000 * GENERATE DATA REFS(IMCBLCHT); 0143 00370000 * RESPECIFY 0144 00371000 * ILMVCL UNRESTRICTED; 0144 00372000 * END; 0145 00373000 * IMCBLCTX=RLCTX; /* SAVE RLCT OFFSET AS ID */ 00374000 @RF00138 STH RLCTX,IMCBLCTX(,IMCBLPTR) 0146 00375000 * IMCBBLCC=RLCTUMWA; /* SAVE BASE EXCP COUNTS */ 00376000 L @11,RLCTUMWA(,RLCTPTR) 0147 00377000 ST @11,IMCBBLCC(,IMCBLPTR) 0147 00378000 * IMCBLCUR=I0; /* ZERO LCH USAGE RATE */ 00379000 SLR @11,@11 0148 00380000 STH @11,IMCBLCUR(,IMCBLPTR) 0148 00381000 * IMCBLPTR=IMCBLPTR /* POINT TO NEXT IMCB LCH ENTRY */ 00382000 * -LENGTH(IMCBLCH); 0149 00383000 SL IMCBLPTR,@CF00164 0149 00384000 * END; 0150 00385000 * END; 0151 00386000 @RF00135 DS 0H 0151 00387000 @RC00126 LH @11,RLCHLEN 0151 00388000 LCR @11,@11 0151 00389000 ALR RLCTPTR,@11 0151 00390000 @DE00124 C RLCTPTR,RMCTRLCT(,RMCTPTR) 0151 00391000 BNL @DL00124 0151 00392000 * ASCBPTR=OUCBASCB; /* ESTABLISH ASCB BASE ADDRESS */ 00393000 L ASCBPTR,OUCBASCB(,OUCBPTR) 0152 00394000 * OUXBPTR=ASCBOUXB; /* ESTABLISH OUXB BASE ADDRESS */ 00395000 L OUXBPTR,ASCBOUXB(,ASCBPTR) 0153 00396000 * OUXBITD=RMCTTOD; /* SAVE NEW RATE BASE TIME */ 00397000 L @11,RMCTTOD(,RMCTPTR) 0154 00398000 ST @11,OUXBITD(,OUXBPTR) 0154 00399000 * OUXBILS=OUCBIOSM+DAIOSM; /* RESET I.O SERVICE BASE COUNT 00400000 * @ZA10808*/ 00401000 LH @11,DAIOSM(,ASCBPTR) 0155 00402000 N @11,@CF03075 0155 00403000 AL @11,OUCBIOSM(,OUCBPTR) 0155 00404000 ST @11,OUXBILS(,OUXBPTR) 0155 00405000 * RESPECIFY 0156 00406000 * IMCBLPTR UNRESTRICTED; 0156 00407000 *IL0END: /* IL0 MONITORING BYPASS POINT */ 00408000 */* ? IRACTLEP ENN(IL0) */ 00409000 * 0157 00410000 * GEN CODE EXIT NOSEQFLOW; 0157 00411000 IL0END DS 0H 0157 00412000 * /* 00413000 LM @00,@14,128+000(@13) RELOAD INVOKING RTNE REGS 00414000 BR RTNREG RETURN TO INVOKER 00415000 * 0158 00416000 */********************************************************************/ 00417000 */* */ 00418000 */* ENTRY POINT NAME = IRARMIL1 */ 00419000 */* */ 00420000 */* DESCRIPTIVE NAME = I/O LOAD BALANCING LOGICAL CHANNEL */ 00421000 */* UTILIZATION MONITORING */ 00422000 */* */ 00423000 */* FUNCTION = COMPUTE LOGICAL CHANNEL UTILIZATION VALUES FOR I/O */ 00424000 */* LOAD BALANCING AND PAGE REPLACEMENT ALGORITHMS AND */ 00425000 */* DEVICE ALLOCATION SYSEVENT. INVOKE USER I/O */ 00426000 */* MONITORING FOR HEAVY USERS OF OUT OF BALANCE LOGICAL */ 00427000 */* CHANNELS IS THE USER I/O PROFILE IS OUT OF DATE */ 00428000 */* */ 00429000 */* CALLER = IRARMCTL - SRM CONTROL MODULE */ 00430000 */* TIME QUEUE PROCESSOR */ 00431000 */* */ 00432000 */* INPUT = R2 = RMCT ADDRESS */ 00433000 */* R3 = RRPA ADDRESS */ 00434000 */* */ 00435000 */* OUTPUT = NONE */ 00436000 */* */ 00437000 */********************************************************************/ 00438000 */* ? IRACTLEP EPN(IL1) */ 00439000 * 0158 00440000 * DCL 0158 00441000 * IRARMIL1 ENTRY INT; 0158 00442000 * GEN CODE REFS(RRPAEPA) DEFS(IRARMIL1) NOEXIT SEQFLOW; 0159 00443000 * /* 00444000 ENTRY IRARMIL1 00445000 IRARMIL1 DS 0H 00446000 STM @00,@14,000+000(@13) SAVE INVOKING RTNE REGS 00447000 ST @01,RRPAEPA(,RRPAPTR) INDICATE NEW CURRENT RMEP 00448000 LA @12,IRARMIL1-@PSTART DISPLACEMENT TO MODULE BASE 00449000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00450000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00451000 * IF RMPTIOC=I0| /* IF I/O LOAD BALANCING IS OFF */ 00452000 * (SMCAOPT2='0'B /* OR USER DATA SET ACTIVITY */ 00453000 * &SMCADSA='0'B) THEN /* STATISTICS ARE NOT BEING KEPT */ 00454000 L @07,RMPTIOC(,RMCTPTR) 0160 00455000 LTR @07,@07 0160 00456000 BZ @RT00160 0160 00457000 L @07,CVTPTR 0160 00458000 L @07,CVTSMCA(,@07) 0160 00459000 TM SMCAOPT2(@07),B'01010000' 0160 00460000 BNZ @RF00160 0160 00461000 @RT00160 DS 0H 0161 00462000 * ICTIOL='0'B; /* SET LOAD BALANCING FLAG OFF */ 00463000 NI ICTIOL(RMCTPTR),B'10111111' 0161 00464000 * ELSE /* OTHERWISE */ 00465000 * ICTIOL='1'B; /* SET FLAG ON */ 00466000 B @RC00160 0162 00467000 @RF00160 OI ICTIOL(RMCTPTR),B'01000000' 0162 00468000 */* */ 00469000 */* FOR EACH LOGICAL CHANNEL IN SYSTEM COMPUTE RECENT */ 00470000 */* UTILIZATION AND REQUEST RATE AND CHECK FOR LCH */ 00471000 */* IMBALANCES */ 00472000 */* */ 00473000 * 0163 00474000 * RESPECIFY 0163 00475000 * LCHPTR RESTRICTED; 0163 00476000 @RC00160 DS 0H 0164 00477000 * ILLCHPT='FFFFFFFF'X; /* REQUEST UTILIZATION 0164 00478000 * COMPUTATION FOR ALL LCHS */ 00479000 MVC ILLCHPT(4),@CB02942 0164 00480000 * CALL LCHUSE; /* CALL LCH UTILIZATION 0165 00481000 * COMPUTATION */ 00482000 BAL @14,LCHUSE 0165 00483000 */* */ 00484000 */* COMPUTE LONG RANGE UTILIZATION COMPUTATION FOR DEVICE */ 00485000 */* ALLOCATION AND PAGE REPLACEMENT. ALSO RESET LCH BASE VALUES */ 00486000 */* */ 00487000 * 0166 00488000 * LCHPTR=CVTILCH; /* IOS LCH TABLE ENTRY POINTER */ 00489000 L @11,CVTPTR 0166 00490000 L LCHPTR,CVTILCH(,@11) 0166 00491000 * DO RLCTPTR=RMCTRLCT /* LOOK AT EACH LCH TABLE ENTRY */ 00492000 * TO ICCLCLST /* */ 00493000 * BY RLCHLEN; /* */ 00494000 L RLCTPTR,RMCTRLCT(,RMCTPTR) 0167 00495000 B @DE00167 0167 00496000 @DL00167 DS 0H 0168 00497000 * RLCTUTDA= /* LONG RANGE LCH UTILIZATION IS */ 00498000 * ((RLCTUTDA /* COMPUTED BY FACTORING RECENT */ 00499000 * *ICCDASF1) /* LCH UTILIZATION INTO LONG */ 00500000 * +RLCTUTIL /* LONG TERM AVERAGE */ 00501000 * *I256) /* */ 00502000 * /ICCDASF2; /* */ 00503000 LH @11,RLCTUTDA(,RLCTPTR) 0168 00504000 MH @11,ICCDASF1(,RMCTPTR) 0168 00505000 LH @10,RLCTUTIL(,RLCTPTR) 0168 00506000 SLA @10,8 0168 00507000 ALR @11,@10 0168 00508000 LR @08,@11 0168 00509000 SRDA @08,32 0168 00510000 LH @11,ICCDASF2(,RMCTPTR) 0168 00511000 DR @08,@11 0168 00512000 STH @09,RLCTUTDA(,RLCTPTR) 0168 00513000 * RLCTRQCT=LCHTOTCT; /* RESET REQUEST */ 00514000 LH @11,LCHTOTCT(,LCHPTR) 0169 00515000 N @11,@CF03075 0169 00516000 STH @11,RLCTRQCT(,RLCTPTR) 0169 00517000 * RLCTDDCT=LCHLGBCT; /* AND DELAY */ 00518000 LH @11,LCHLGBCT(,LCHPTR) 0170 00519000 N @11,@CF03075 0170 00520000 STH @11,RLCTDDCT(,RLCTPTR) 0170 00521000 * RLCTPDCT=LCHPYBCT; /* COUNTS */ 00522000 LH @11,LCHPYBCT(,LCHPTR) 0171 00523000 N @11,@CF03075 0171 00524000 STH @11,RLCTPDCT(,RLCTPTR) 0171 00525000 * LCHPTR=LCHPTR+ /* POINT TO NEXT LCH TABLE ENTRY */ 00526000 * LCHLEN; /* */ 00527000 AH LCHPTR,LCHLEN 0172 00528000 * END; 0173 00529000 AH RLCTPTR,RLCHLEN 0173 00530000 @DE00167 C RLCTPTR,ICCLCLST(,RMCTPTR) 0173 00531000 BNH @DL00167 0173 00532000 * ICVLUTBT=RMCTTOD; /* RESET BASE TIME FOR 0174 00533000 * UTILIZATION COMPUTATION */ 00534000 L @11,RMCTTOD(,RMCTPTR) 0174 00535000 ST @11,ICVLUTBT(,RMCTPTR) 0174 00536000 * RESPECIFY 0175 00537000 * LCHPTR UNRESTRICTED; 0175 00538000 * 0176 00539000 */* */ 00540000 */* INVOKE USER I/O MONITORING FOR HEAVY USERS OF OUT OF */ 00541000 */* BALANCE LOGICAL CHANNELS IF USER I/O PROFILE IS OUT */ 00542000 */* OF DATE */ 00543000 */* */ 00544000 * 0176 00545000 * RESPECIFY 0176 00546000 * R1 RESTRICTED; 0176 00547000 * IF ICVLCBPT^=I0 THEN /* DO NOTHING IF THERE IS NO LCH */ 00548000 L @07,ICVLCBPT(,RMCTPTR) 0177 00549000 LTR @07,@07 0177 00550000 BZ @RF00177 0177 00551000 * DO; /* IMBALANCE */ 00552000 * ICTIOOT='1'B; /* INDICATE IO OUT OF BALLANCE 0179 00553000 * @Z40BPRH*/ 00554000 OI ICTIOOT(RMCTPTR),B'00100000' 0179 00555000 * OUCBPTR=RMCTINQE; /* SEARCH IN QUEUE */ 00556000 L OUCBPTR,RMCTINQE(,RMCTPTR) 0180 00557000 * OUCBPTR=OUCBFWD; /* START WITH FIRST OUCB */ 00558000 L OUCBPTR,OUCBFWD(,OUCBPTR) 0181 00559000 * DO WHILE OUCBNAME='OUCB'; /* LOOK AT EACH OUCB ON QUEUE */ 00560000 B @DE00182 0182 00561000 @DL00182 DS 0H 0183 00562000 * IF OUCBNSW='0'B /* BYPASS NON-SWAPPABLE USERS, */ 00563000 * &OUCBPVL='0'B /* PRIVILIGED USERS, */ 00564000 * &OUCBOUT='0'B /* AND USERS WITHOUT */ 00565000 * &OUCBGOO='0'B /* VALID OUXBS */ 00566000 * &OUCBGOI='0'B /* */ 00567000 * &OUCBGOB='0'B /* */ 00568000 * &OUCBBIB='0'B /* AND NOT BRING IN MEMORY 0183 00569000 * @Z40BPRH*/ 00570000 * &OUCBRMA='1'B /* IGNORE USERS WITH RTB OF 0 */ 00571000 * &RMCTTOD-OUCBTMS /* IGNORE USERS THAT HAVEN'T BEEN*/ 00572000 * >ICCMXICT THEN /* IN CORE LONG ENOUGH */ 00573000 TM OUCBNSW(OUCBPTR),B'10000100' 0183 00574000 BNZ @RF00183 0183 00575000 TM OUCBOUT(OUCBPTR),B'11100100' 0183 00576000 BNZ @RF00183 0183 00577000 TM OUCBBIB(OUCBPTR),B'00100000' 0183 00578000 BNZ @RF00183 0183 00579000 TM OUCBRMA(OUCBPTR),B'00100000' 0183 00580000 BNO @RF00183 0183 00581000 L @07,RMCTTOD(,RMCTPTR) 0183 00582000 LR @11,@07 0183 00583000 SL @11,OUCBTMS(,OUCBPTR) 0183 00584000 L @10,ICCMXICT(,RMCTPTR) 0183 00585000 CLR @11,@10 0183 00586000 BNH @RF00183 0183 00587000 * DO; 0184 00588000 * ASCBPTR=OUCBASCB; /* SET UP ADDRESSING TO ASCB */ 00589000 L ASCBPTR,OUCBASCB(,OUCBPTR) 0185 00590000 * OUXBPTR=ASCBOUXB; /* SET UP ADDRESSING TO OUXB */ 00591000 L OUXBPTR,ASCBOUXB(,ASCBPTR) 0186 00592000 * ILETIM=RMCTTOD /* COMPUTE ELAPSED TIME FOR USER */ 00593000 * -OUXBITD; /* I/O REQUEST RATE COMPUTATION */ 00594000 L @11,RMCTTOD(,RMCTPTR) 0187 00595000 SL @11,OUXBITD(,OUXBPTR) 0187 00596000 LR ILETIM,@11 0187 00597000 * IF ILETIM>ICCMXICT /* IGNORE USERS WHICH HAVEN'T */ 00598000 * THEN /* EXECUTED ENOUGH SINCE LAST I/O 00599000 * RATE COMPUTATION */ 00600000 CR ILETIM,@10 0188 00601000 BNH @RF00188 0188 00602000 * DO; /* FOR USERS WHICH PASS THESE */ 00603000 * OUCBIOR= /* TESTS, */ 00604000 * (OUCBIOSM+DAIOSM/* COMPUTE RECENT I/O @ZA10808*/ 00605000 * -OUXBILS) /* REQUEST RATE */ 00606000 * *I1000 /* IN REQUESTS / SEC. */ 00607000 * /ILETIM; /* */ 00608000 LH @08,DAIOSM(,ASCBPTR) 0190 00609000 N @08,@CF03075 0190 00610000 AL @08,OUCBIOSM(,OUCBPTR) 0190 00611000 SL @08,OUXBILS(,OUXBPTR) 0190 00612000 LR @11,@08 0190 00613000 M @10,@CF02921 0190 00614000 DR @10,ILETIM 0190 00615000 STH @11,OUCBIOR(,OUCBPTR) 0190 00616000 * IF OUCBIOR> /* IF RECENT I/O RATE LARGE */ 00617000 * ICCMNIOR| /* ENOUGH OR IF */ 00618000 * OUCBIMCB^=I0 /* USER HAS BEEN MONITORED */ 00619000 * THEN /* PREVIOUSLY */ 00620000 CH @11,ICCMNIOR(,RMCTPTR) 0191 00621000 BH @RT00191 0191 00622000 L @07,OUCBIMCB(,OUCBPTR) 0191 00623000 LTR @07,@07 0191 00624000 BZ @RF00191 0191 00625000 @RT00191 DS 0H 0192 00626000 * DO; /* MONITOR USER IO */ 00627000 * OUCBCTI='1'B; /* IN USERS ADDRESS SPACE */ 00628000 * 0193 00629000 OI OUCBCTI(OUCBPTR),B'01000000' 0193 00630000 * /***********************************************/ 00631000 * /* */ 00632000 * /* ? IRACTLCL EPN(CSO) */ 00633000 * /* */ 00634000 * /***********************************************/ 00635000 * 0194 00636000 * DO; 0194 00637000 * R1=ADDR(RMEPBCSO);/* CSO REQUEST IS PARAM */ 00638000 LA R1,RMEPBCSO(,RMCTPTR) 0195 00639000 * CALL RMSBCRY->IRARMRTN;/* ACTION INVK FUNCT */ 00640000 L @15,RMSBCRY(,RMCTPTR) 0196 00641000 BALR @14,@15 0196 00642000 * END; 0197 00643000 * END; 0198 00644000 * ELSE /* IF USER SHOULD NOT BE */ 00645000 * DO; /* MONITORED, RESET */ 00646000 B @RC00191 0199 00647000 @RF00191 DS 0H 0200 00648000 * OUXBILS= /* BASE USER I/O COUNT */ 00649000 * OUCBIOSM+DAIOSM;/* @ZA10808*/ 00650000 LH @07,DAIOSM(,ASCBPTR) 0200 00651000 N @07,@CF03075 0200 00652000 AL @07,OUCBIOSM(,OUCBPTR) 0200 00653000 ST @07,OUXBILS(,OUXBPTR) 0200 00654000 * OUXBITD= /* AND BASE TIME OF DAY */ 00655000 * RMCTTOD; /* */ 00656000 L @07,RMCTTOD(,RMCTPTR) 0201 00657000 ST @07,OUXBITD(,OUXBPTR) 0201 00658000 * END; /* */ 00659000 * END; 0203 00660000 @RC00191 DS 0H 0204 00661000 * END; 0204 00662000 @RF00188 DS 0H 0205 00663000 * OUCBPTR=OUCBFWD; /* LOOK AT NEXT OUCB */ 00664000 @RF00183 L OUCBPTR,OUCBFWD(,OUCBPTR) 0205 00665000 * END; 0206 00666000 @DE00182 CLC OUCBNAME(4,OUCBPTR),@CC02944 0206 00667000 BE @DL00182 0206 00668000 * END; 0207 00669000 * ELSE 0208 00670000 * ICTIOOT='0'B; /* INDICATE NO IO IMBALANCE 0208 00671000 * @Z40BPRH*/ 00672000 B @RC00177 0208 00673000 @RF00177 NI ICTIOOT(RMCTPTR),B'11011111' 0208 00674000 * RESPECIFY 0209 00675000 * R1 UNRESTRICTED; 0209 00676000 * 0209 00677000 @RC00177 DS 0H 0210 00678000 */* ? IRACTLEP ENN(IL1) */ 00679000 * 0210 00680000 * GEN CODE EXIT NOSEQFLOW; 0210 00681000 * /* 00682000 LM @00,@14,000+000(@13) RELOAD INVOKING RTNE REGS 00683000 BR RTNREG RETURN TO INVOKER 00684000 * 0211 00685000 */********************************************************************/ 00686000 */* */ 00687000 */* ENTRY POINT NAME = IRARMIL3 */ 00688000 */* */ 00689000 */* DESCRIPTIVE NAME = I/O LOAD BALANCING USER SWAP EVALUATION */ 00690000 */* */ 00691000 */* FUNCTION = COMPUTE NUMERICAL RECOMMENDATION VALUE WHICH REFLECTS */ 00692000 */* DESIREABILITY OF SWAPPING A USER BASED ON THE USERS */ 00693000 */* EFFECT ON SYSTEM I/O UTILIZATION */ 00694000 */* */ 00695000 */* CALLER = IRARMCTL - SRM CONTROL MODULE */ 00696000 */* PARTIAL ANLYSIS PROCESSOR */ 00697000 */* */ 00698000 */* INPUT = R2 = RMCT ADDRESS */ 00699000 */* R3 = RRPA ADDRESS */ 00700000 */* R4 = OUCB ADDRESS */ 00701000 */* R5 = ASCB ADDRESS */ 00702000 */* */ 00703000 */* OUTPUT = OUCBIRV = RECOMMENDATION VALUE REFLECTING @Z40BPRH*/ 00704000 */* DESIREABILITY OF SWAPPING A SPECIFIC @Z40BPRH*/ 00705000 */* USER @Z40BPRH*/ 00706000 */* */ 00707000 */********************************************************************/ 00708000 */* ? IRACTLEP EPN(IL3) */ 00709000 * 0211 00710000 * DCL 0211 00711000 * IRARMIL3 ENTRY INT; 0211 00712000 * GEN CODE DEFS(IRARMIL3) NOEXIT SEQFLOW; 0212 00713000 * /* 00714000 ENTRY IRARMIL3 00715000 IRARMIL3 DS 0H 00716000 STM @00,@14,128+000(@13) SAVE INVOKING RTNE REGS 00717000 LA @12,IRARMIL3-@PSTART DISPLACEMENT TO MODULE BASE 00718000 LCR @12,@12 NEGATIVE FOR SUBTRACT 00719000 ALR @12,@15 SETUP MODULE ADDRESSABILITY 00720000 * RESPECIFY 0213 00721000 * IMCBLPTR RESTRICTED; 0213 00722000 * IMCBPTR=OUCBIMCB; /* ESTABLISH IMCB BASE REGISTER */ 00723000 L IMCBPTR,OUCBIMCB(,OUCBPTR) 0214 00724000 * ILRV=I0; /* INITIALIZE RECOMMENDATION 0215 00725000 * VALUE */ 00726000 SLR ILRV,ILRV 0215 00727000 * IF IMCBPTR^=I0&^ /* RV REMAINS ZERO IF NO USER I/O*/ 00728000 * ((IMCBSLCB& /* MONITORING HAS BEEN DONE OR IF*/ 00729000 * ICVOLCBT)^=I0 /* USER IS A SIGNIFICANT USER OF */ 00730000 * &(IMCBSLCB& /* BOTH OVER AND UNDERUTILIZED */ 00731000 * ICVULCBT)^=I0) THEN /* LCHS */ 00732000 SLR @08,@08 0216 00733000 CR IMCBPTR,@08 0216 00734000 BE @RF00216 0216 00735000 L @01,IMCBSLCB(,IMCBPTR) 0216 00736000 LR @11,@01 0216 00737000 N @11,ICVOLCBT(,RMCTPTR) 0216 00738000 CLR @11,@08 0216 00739000 BE @RT00216 0216 00740000 N @01,ICVULCBT(,RMCTPTR) 0216 00741000 CLR @01,@08 0216 00742000 BNE @RF00216 0216 00743000 @RT00216 DS 0H 0217 00744000 * DO; /* */ 00745000 * DO IMCBLPTR=IMCBLBGN /* LOOK AT EACH IMCB */ 00746000 * TO IMCBLEND /* LCH ENTRY */ 00747000 * BY LENGTH(IMCBLCH); /* */ 00748000 L IMCBLPTR,IMCBLBGN(,IMCBPTR) 0218 00749000 B @DE00218 0218 00750000 @DL00218 DS 0H 0219 00751000 * RLCTPTR=RMCTRLCT /* SET UP BASE ADDRESS TO */ 00752000 * +IMCBLCTX; /* LCH RLCT */ 00753000 LH RLCTPTR,IMCBLCTX(,IMCBLPTR) 0219 00754000 AL RLCTPTR,RMCTRLCT(,RMCTPTR) 0219 00755000 * IF RLCTOVER='1'B /* IF LCH IS OUT OF BALANCE */ 00756000 * |RLCTUNDR='1'B THEN /* */ 00757000 TM RLCTOVER(RLCTPTR),B'11000000' 0220 00758000 BZ @RF00220 0220 00759000 * DO; /* */ 00760000 * IF OUCBOUT='0'B THEN /* IF USER IS IN, */ 00761000 TM OUCBOUT(OUCBPTR),B'00000100' 0222 00762000 BNZ @RF00222 0222 00763000 * ILRV=ILRV+ /* ADD RECOMMENDATION FOR THIS */ 00764000 * (MAX(I0, /* LCH TO COMPOSITE */ 00765000 * MIN(IMCBLCUR, /* RECOMMENDATION */ 00766000 * RLCTRQRT- /* FIFTY USER GETS HIGHEST */ 00767000 * IMCBLCUR)) /* RECOMMENDATION */ 00768000 * *RLCTRVUF) /* RECOMMENDATION ALSO VARIES */ 00769000 * /MAX(I1, /* WITH DEGREE OF IMBALANCE */ 00770000 * (RLCTRQRT /* */ 00771000 * *ICCRVSCF)); /* */ 00772000 LH @08,IMCBLCUR(,IMCBLPTR) 0223 00773000 LH @01,RLCTRQRT(,RLCTPTR) 0223 00774000 LR @11,@01 0223 00775000 SLR @11,@08 0223 00776000 ST @11,@TF00001 0223 00777000 LR @11,@08 0223 00778000 L @08,@TF00001 0223 00779000 CR @11,@08 0223 00780000 BNH *+6 00781000 LR @11,@08 0223 00782000 SLR @08,@08 0223 00783000 CR @11,@08 0223 00784000 BNL *+6 00785000 LR @11,@08 0223 00786000 MH @11,RLCTRVUF(,RLCTPTR) 0223 00787000 MH @01,ICCRVSCF(,RMCTPTR) 0223 00788000 LA @08,1 0223 00789000 CR @01,@08 0223 00790000 BNL *+6 00791000 LR @01,@08 0223 00792000 LR @10,@11 0223 00793000 SRA @10,31 0223 00794000 DR @10,@01 0223 00795000 ALR ILRV,@11 0223 00796000 * ELSE /* IF USER IS OUT, ADD */ 00797000 * ILRV=ILRV+ /* RECOMMENDATION FOR THIS LCH TO*/ 00798000 * (IMCBLCUR /* COMPOSITE RECOMMENDATION */ 00799000 * *RLCTRVUF) /* RECOMMENDATION VARIES WITH */ 00800000 * /MAX(I1, /* DEGREE OF IMBALANCE AND */ 00801000 * ((RLCTRQRT /* PERCENT OF LCH ACTIVITY */ 00802000 * +IMCBLCUR) /* ATTRIBUTABLE TO THIS USER */ 00803000 * *ICCRVSCF)); /* */ 00804000 B @RC00222 0224 00805000 @RF00222 LH @08,IMCBLCUR(,IMCBLPTR) 0224 00806000 LR @01,@08 0224 00807000 MH @01,RLCTRVUF(,RLCTPTR) 0224 00808000 LR @11,@08 0224 00809000 AH @11,RLCTRQRT(,RLCTPTR) 0224 00810000 MH @11,ICCRVSCF(,RMCTPTR) 0224 00811000 LA @08,1 0224 00812000 CR @11,@08 0224 00813000 BNL *+6 00814000 LR @11,@08 0224 00815000 LR @10,@01 0224 00816000 ST @11,@TF00001 0224 00817000 SRDA @10,32 0224 00818000 D @10,@TF00001 0224 00819000 ALR ILRV,@11 0224 00820000 * END; /* */ 00821000 @RC00222 DS 0H 0226 00822000 * END; /* */ 00823000 @RF00220 AL IMCBLPTR,@CF00164 0226 00824000 @DE00218 C IMCBLPTR,IMCBLEND(,IMCBPTR) 0226 00825000 BNH @DL00218 0226 00826000 * IF ILRV>ICCMAXRV THEN /* INSURE THAT RECOMMENDATION */ 00827000 LH @08,ICCMAXRV(,RMCTPTR) 0227 00828000 CR ILRV,@08 0227 00829000 BNH @RF00227 0227 00830000 * ILRV=ICCMAXRV; /* DOES NOT EXCEED MAXIMUM OR */ 00831000 LR ILRV,@08 0228 00832000 * ELSE /* MINIMUM VALUES */ 00833000 * IF ILRV=I0 THEN /* AND SITUATION IS IMPROVED */ 00851000 LTR ILRV,ILRV 0233 00852000 BM @RF00233 0233 00853000 * ILRV=MAX(ILRV,IMCBRV);/* CONTINUE GIVING OLD */ 00854000 LH @08,IMCBRV(,IMCBPTR) 0234 00855000 CR ILRV,@08 0234 00856000 BNL *+6 00857000 LR ILRV,@08 0234 00858000 * ELSE /* RECOMMENDATION */ 00859000 * ; /* */ 00860000 @RF00233 DS 0H 0236 00861000 * ELSE /* IF USER IS OUT */ 00862000 * IF ILRV<=I0| /* AND SITUATION IS IMPROVED OR */ 00863000 * IMCBRVIRARMRTN; /* INVOKE I04 SUBRTN */ 00965000 L @15,RMSBI04(,RMCTPTR) 0252 00966000 BALR @14,@15 0252 00967000 * END; 0253 00968000 * RESPECIFY /* PROGRAM */ 00969000 * (ILGT0, 0254 00970000 * ILGT1, 0254 00971000 * ILGT15) UNRESTRICTED; 0254 00972000 * 0254 00973000 @RF00249 DS 0H 0255 00974000 */* ? IRACTLEP ENN(IL4) */ 00975000 * 0255 00976000 * GEN CODE EXIT NOSEQFLOW; 0255 00977000 * /* 00978000 MVC RRPAEPA(4,RRPAPTR),064+060(@13) RESTORE PREV RMEP 00979000 LM @00,@14,064+000(@13) RELOAD INVOKING RTNE REGS 00980000 BR RTNREG RETURN TO INVOKER 00981000 * 0256 00982000 */********************************************************************/ 00983000 */* */ 00984000 */* LCHUSE - IRARMIOM INTERNAL SUBROUTINE */ 00985000 */* */ 00986000 */* FUNCTION - FOR EACH LOGICAL CHANNEL FLAGGED IN INPUT */ 00987000 */* BIT PATTERN COMPUTE */ 00988000 */* 1) LOGICAL CHANNEL UTILIZATION */ 00989000 */* 2) LOGICAL CHANNEL REQUEST RATE */ 00990000 */* 3) I/O LOAD BALANCING RECOMMENDATION VALUE */ 00991000 */* COMPUTATION LOGICAL CHANNEL UTILIZATION FACTOR */ 00992000 */* */ 00993000 */* INPUT - */ 00994000 */* 1) ILLCHPT - BIT PATTERN OF LCHS TO CHECK */ 00995000 */* */ 00996000 */********************************************************************/ 00997000 */* */ 00998000 * 0256 00999000 *LCHUSE: 0256 01000000 * PROC OPTIONS(NOSAVE); 0256 01001000 @EL00001 DS 0H 0256 01002000 @EF00001 DS 0H 0256 01003000 @ER00001 BR @14 0256 01004000 LCHUSE DS 0H 0257 01005000 * RESPECIFY 0257 01006000 * (LCHPTR, 0257 01007000 * RTNREG) RESTRICTED; 0257 01008000 * ILTIM=RMCTTOD-ICVLUTBT; /* TIME DELTA SINCE LAST LCHUSE 01009000 * COMPUTATION. @Z40BPEB*/ 01010000 L @01,RMCTTOD(,RMCTPTR) 0258 01011000 SL @01,ICVLUTBT(,RMCTPTR) 0258 01012000 ST @01,ILTIM 0258 01013000 * LCHPTR=CVTILCH; /* POINT TO FIRST IOS LCH ENTRY */ 01014000 L @01,CVTPTR 0259 01015000 L LCHPTR,CVTILCH(,@01) 0259 01016000 * ILLCBPT=I0; /* CLEAR LCH IMBALANCE BIT 0260 01017000 * PATTERN */ 01018000 SLR @01,@01 0260 01019000 ST @01,ILLCBPT 0260 01020000 * ICVOLCBT=I0; /* CLEAR OVERUTILIZED BIT PATTERN*/ 01021000 ST @01,ICVOLCBT(,RMCTPTR) 0261 01022000 * ICVULCBT=I0; /* CLEAR UNDERUTILIZED BIT 0262 01023000 * PATTERN */ 01024000 ST @01,ICVULCBT(,RMCTPTR) 0262 01025000 * DO RLCTPTR=RMCTRLCT /* LOOK AT EACH LOGICAL CHANNEL */ 01026000 * TO ICCLCLST /* ENTRY */ 01027000 * BY RLCHLEN; /* */ 01028000 L RLCTPTR,RMCTRLCT(,RMCTPTR) 0263 01029000 B @DE00263 0263 01030000 @DL00263 DS 0H 0264 01031000 * IF(ILLCHPT&RLCTBIT) /* COMPUTE UTILIZATION IF LCH */ 01032000 * ^=I0 THEN /* FLAGGED IN INPUT PATTERN */ 01033000 SLR @01,@01 0264 01034000 L @11,ILLCHPT 0264 01035000 N @11,RLCTBIT(,RLCTPTR) 0264 01036000 CLR @11,@01 0264 01037000 BE @RF00264 0264 01038000 * DO; 0265 01039000 * 0265 01040000 */* */ 01041000 */* COMPUTE LCH UTILIZATION */ 01042000 */* */ 01043000 * 0266 01044000 * ILREQ=LCHTOTCT /* COMPUTE RECENT REQUESTS TO */ 01045000 * -RLCTRQCT; /* LOGICAL CHANNEL */ 01046000 LH ILREQ,LCHTOTCT(,LCHPTR) 0266 01047000 N ILREQ,@CF03075 0266 01048000 LH @08,RLCTRQCT(,RLCTPTR) 0266 01049000 N @08,@CF03075 0266 01050000 SLR ILREQ,@08 0266 01051000 * IF ILREQ<=I0 THEN /* IF NO REQS WERE MADE @ZM43081*/ 01052000 CLR ILREQ,@01 0267 01053000 BH @RF00267 0267 01054000 * DO; /* OR WRAP OF LCHTOTCT */ 01055000 * RLCTUTIL=I0; /* UTILIZATION = ZERO */ 01056000 STH @01,RLCTUTIL(,RLCTPTR) 0269 01057000 * RLCTRQRT=I0; /* REQUEST RATE = ZERO */ 01058000 STH @01,RLCTRQRT(,RLCTPTR) 0270 01059000 * END; /* */ 01060000 * ELSE /* OTHERWISE IF THERE */ 01061000 * DO; /* WAS LCH ACTIVITY */ 01062000 B @RC00267 0272 01063000 @RF00267 DS 0H 0273 01064000 * RLCTUTIL= /* LCH UTILIZATION EQUALS */ 01065000 * (LCHLGBCT /* */ 01066000 * +LCHPYBCT /* RECENT DELAY COUNTS */ 01067000 * -RLCTDDCT /* */ 01068000 * -RLCTPDCT) /* */ 01069000 * *I100 /* TIMES 100 FOR PERCENT */ 01070000 * /ILREQ; /* DEVIDED BY RECENT REQUEST 0273 01071000 * TOTAL */ 01072000 LH @10,LCHLGBCT(,LCHPTR) 0273 01073000 N @10,@CF03075 0273 01074000 LH @08,LCHPYBCT(,LCHPTR) 0273 01075000 N @08,@CF03075 0273 01076000 ALR @10,@08 0273 01077000 LH @08,RLCTDDCT(,RLCTPTR) 0273 01078000 N @08,@CF03075 0273 01079000 SLR @10,@08 0273 01080000 LH @08,RLCTPDCT(,RLCTPTR) 0273 01081000 N @08,@CF03075 0273 01082000 SLR @10,@08 0273 01083000 LR @11,@10 0273 01084000 M @10,@CF02918 0273 01085000 DR @10,ILREQ 0273 01086000 STH @11,RLCTUTIL(,RLCTPTR) 0273 01087000 * IF RLCTUTIL /* IF LCH UTILIZATION > HIGH */ 01122000 * ICCHIUTH THEN /* IMBALANCE THRESHOLD */ 01123000 LH @01,ICCHIUTH(,RMCTPTR) 0282 01124000 CH @01,RLCTUTIL(,RLCTPTR) 0282 01125000 BNL @RF00282 0282 01126000 * DO; 0283 01127000 * ILDIF=ICCHIUTH; /* SAVE HIGH THRESHOLD VALUE */ 01128000 LR ILDIF,@01 0284 01129000 * ILLCBPT=ILLCBPT /* REMEMBER LCH IS OUT OF BALANCE*/ 01130000 * |RLCTBIT; /* */ 01131000 OC ILLCBPT(4),RLCTBIT(RLCTPTR) 0285 01132000 * ICVOLCBT= /* REMEMBER LCH IS OVERUTILIZED */ 01133000 * ICVOLCBT /* */ 01134000 * |RLCTBIT; /* */ 01135000 OC ICVOLCBT(4,RMCTPTR),RLCTBIT(RLCTPTR) 0286 01136000 * RLCTOVER='1'B; /* INDICATE LCH IS OVER UTILIZED */ 01137000 OI RLCTOVER(RLCTPTR),B'10000000' 0287 01138000 * END; 0288 01139000 * ELSE /* OTHERWIZE IF LCH UTILIZATION */ 01140000 * IF RLCTUTIL< /* LESS THAN LOW IMBALANCE */ 01141000 * ICCLOUTH THEN /* THRESHOLD, */ 01142000 B @RC00282 0289 01143000 @RF00282 LH @01,ICCLOUTH(,RMCTPTR) 0289 01144000 CH @01,RLCTUTIL(,RLCTPTR) 0289 01145000 BNH @RF00289 0289 01146000 * DO; 0290 01147000 * ILDIF= /* SAVE LOW THRESHOLD */ 01148000 * ICCLOUTH; 0291 01149000 LR ILDIF,@01 0291 01150000 * ILLCBPT=ILLCBPT|RLCTBIT;/* REMEMBER LCH IS OUT OF 01151000 * BALANCE */ 01152000 OC ILLCBPT(4),RLCTBIT(RLCTPTR) 0292 01153000 * ICVULCBT= /* REMEMBER LCH IS UNDERUTILIZED */ 01154000 * ICVULCBT /* */ 01155000 * |RLCTBIT; /* */ 01156000 OC ICVULCBT(4,RMCTPTR),RLCTBIT(RLCTPTR) 0293 01157000 * RLCTUNDR='1'B; /* INDICATE LCH IS UNDER UTILIZED*/ 01158000 OI RLCTUNDR(RLCTPTR),B'01000000' 0294 01159000 * END; 0295 01160000 * ELSE /* OTHERWIZE */ 01161000 * ILDIF=RLCTUTIL; /* INSURE ZERO LCH UTILIZATION 0296 01162000 * FACTOR */ 01163000 B @RC00289 0296 01164000 @RF00289 LH ILDIF,RLCTUTIL(,RLCTPTR) 0296 01165000 * ILDIF=ILDIF /* COMPUTE DIFFERENCE BETWEEN */ 01166000 * -RLCTUTIL; /* UTILIZATION AND THRESHOLD */ 01167000 @RC00289 DS 0H 0297 01168000 @RC00282 SH ILDIF,RLCTUTIL(,RLCTPTR) 0297 01169000 * RLCTRVUF= /* UTILIZATION FACTOR IS SQUARE 01170000 * OF */ 01171000 * ABS(ILDIF) /* THE DIFFERENCE WITH SAME SIGN */ 01172000 * *ILDIF; /* AS DIFFERENCE */ 01173000 LPR @11,ILDIF 0298 01174000 MR @10,ILDIF 0298 01175000 STH @11,RLCTRVUF(,RLCTPTR) 0298 01176000 * END; /* */ 01177000 * END; 0300 01178000 @RF00280 DS 0H 0301 01179000 * LCHPTR=LCHPTR /* POINT TO NEXT IOS LCH TABLE */ 01180000 * +LCHLEN; /* ENTRY */ 01181000 @RF00264 AH LCHPTR,LCHLEN 0301 01182000 * END; 0302 01183000 AH RLCTPTR,RLCHLEN 0302 01184000 @DE00263 C RLCTPTR,ICCLCLST(,RMCTPTR) 0302 01185000 BNH @DL00263 0302 01186000 * ICVLCBPT=ILLCBPT; /* REMEMBER OUT OF BALANCE LCHS */ 01187000 MVC ICVLCBPT(4,RMCTPTR),ILLCBPT 0303 01188000 * RESPECIFY 0304 01189000 * (LCHPTR, 0304 01190000 * RTNREG) UNRESTRICTED; 0304 01191000 * END LCHUSE; 0305 01192000 @EL00002 DS 0H 0305 01193000 @EF00002 DS 0H 0305 01194000 @ER00002 BR @14 0305 01195000 * 0306 01196000 */* **************************************************************** */ 01197000 */* */ 01198000 */* ENTRY POINT NAME = IRARME28 (MOVED FROM IRARMEVT) @ZA20975*/ 01199000 */* */ 01200000 */* DESCRIPTIVE NAME = DEVICE ALLOCATION SYSEVENT */ 01201000 */* */ 01202000 */* CALLER = IRARMEVT VIA THE 'SYSEVENT DEVALLOC' MACRO */ 01203000 */* */ 01204000 */* INPUT = R2 - RMCT ADDRESS */ 01205000 */* R3 - RRPA ADDRESS (RRPA HAS POINTER TO PARAMETER LIST) */ 01206000 */* R5 - ASCB ADDRESS */ 01207000 */* */ 01208000 */* **************************************************************** */ 01209000 * 0306 01210000 *IRARME28: /* SYSEVENT 28 - DEVALLOC */ 01211000 *DEVALLOC: 0306 01212000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0306 01213000 IRARME28 DS 0H 0306 01214000 DEVALLOC DS 0H 0307 01215000 * GENERATE CODE; 0307 01216000 ENTRY IRARME28 ENTRY TO SYSEVENT 28 - DEVALLOC 01217000 BALR @12,0 GETS NEXT ADDRESS 01218000 LA @15,*-@PSTART DISPLACEMENT FROM BEGINNING 01219000 SLR @12,@15 MODULE ADRESSABILITY 01220000 * RESPECIFY 0308 01221000 * (RTNREG, 0308 01222000 * NTRREG, 0308 01223000 * RLCTPTR, 0308 01224000 * IMCBPTR) /* FREE REGS FOR USE BY @ZA20975*/ 01225000 * UNRESTRICTED; /* DEVALLOC @ZA20975*/ 01226000 * GEN DATA; 0309 01227000 * 0310 01228000 */* */ 01229000 */* */ 01230000 */********************************************************************/ 01231000 */* */ 01232000 */* DEVICE ALLOCATION INPUT AND WORKAREA DEFINITIONS */ 01233000 */* */ 01234000 */* DEVICE ALLOCATION DECLARE STATEMENTS DEFINE SIX LISTS: */ 01235000 */* */ 01236000 */* 1) DEVUCBL1 - INPUT CANDIDATE LIST CONSISTING OF */ 01237000 */* FULL WORD UCB POINTERS PLUS NUMBER OF ENTRIES */ 01238000 */* 2) DEVUCBL2 - INPUT ALLOCATED UCB LIST CONSISTING OF */ 01239000 */* FULL WORD POINTERS TO UCBS ALREADY ALLOCATED TO THE */ 01240000 */* USER PLUS NUMBER OF ENTRIES IN LIST */ 01241000 */* 3) RLCT LIST - LIST OF FULLWORD POINTERS TO SRM LOGICAL */ 01242000 */* CHANNEL TABLE ENTRIES. EACH FULL WORD PTR POINTS TO */ 01243000 */* THE RLCT ENTRY FOR THE LOGICAL CHANNEL OF THE UCB AT */ 01244000 */* THE CORRESPONDING OFFSET IN THE INPUT CANDIDATE LIST */ 01245000 */* 4) IDX LIST - PRIMARY INDEX LIST OF CANDIDATES STILL */ 01246000 */* IN THE RUNNING FOR ALLOCATION. EACH HALFWORD ENTRY IN*/ 01247000 */* THE LIST DEFINES AN INDEX INTO THE CANDIDATE AND RLCT */ 01248000 */* LISTS */ 01249000 */* 5) JDX LIST - SECONDARY INDEX LIST OF CANDIDATES BEING */ 01250000 */* CHOSEN FROM THE CURRENT IDX LIST BY APPLICATION OF */ 01251000 */* A CANDIDATE ELIMINATION RULE. */ 01252000 */* 6) DEVEP LIST - LIST OF DEVICE ALLOCATION INTERNAL */ 01253000 */* PROCEDURES REPRESENTING RULES APPLIED IN */ 01254000 */* CHOOSING ONE UCB FROM THE INPUT CANDIDATE LIST */ 01255000 */* */ 01256000 */********************************************************************/ 01257000 */* */ 01258000 */* INPUT LIST DEFINITIONS */ 01259000 */* */ 01260000 * 0310 01261000 * DECLARE 0310 01262000 * 1 DEVINPUT BASED(RRPAINP), /* INPUT PARAMETER LIST */ 01263000 * 2 DEVIN1 PTR(31), /* CANDIDATE LIST POINTER */ 01264000 * 2 DEVIN2 PTR(31), /* ALLOCATED UCB LIST POINTER */ 01265000 * 2 DEVIN3 PTR(31), /* RETURN AREA POINTER */ 01266000 * 1 DEVUCBL1 BASED(DEVIN1), /* CANDIDATE LIST */ 01267000 * 2 DEVCT1 FIXED(31), /* NUMBER OF ENTRIES */ 01268000 * 2 DEVPTR1(*) PTR(31), /* CANDIDATE UCB POINTERS */ 01269000 * 1 DEVUCBL2 BASED(DEVIN2), /* ALLOCATED UCB LIST */ 01270000 * 2 DEVCT2 FIXED(31), /* NUMBER OF ENTRIES */ 01271000 * 2 DEVPTR2(*) PTR(31), /* ALLOCATED UCB POINTERS */ 01272000 * 1 DEVRETRN BASED(DEVIN3), /* RETURN AREA */ 01273000 * 2 DEVUCB PTR(31), /* POINTER TO SELECTED UCB */ 01274000 * 2 DEVRTC FIXED(31), /* RETURN CODE */ 01275000 * DEVX1 PTR(31), /* CANDIDATE LIST INDEX */ 01276000 * DEVST1 PTR(31), /* FIRST ENTRY IN CANDIDATE LIST */ 01277000 * DEVEND1 PTR(31), /* LAST ENTRY IN CANDIDATE LIST */ 01278000 * DEVUCB1 PTR(31) BASED(DEVX1), /* CANDIDATE LIST ENTRY */ 01279000 * DEVX2 PTR(31) REG(1) /* ALLOCATED UCB LIST INDEX */ 01280000 * RESTRICTED, 0310 01281000 * DEVST2 PTR(31), /* FIRST ENTRY IN ALLOCATED LIST */ 01282000 * DEVEND2 PTR(31), /* LAST ENTRY IN ALLOCATED LIST */ 01283000 * DEVUCB2 PTR(31) BASED(DEVX2), /* ALLOCATED UCB LIST ENTRY */ 01284000 * DEVPTR REG(6) PTR(31) /* POINTER TO ADDRESS OF */ 01285000 * RESTRICTED, /* SELECTED UCB */ 01286000 * DEVXLEN FIXED(31) INIT(4), /* LIST ENTRY LENGTH */ 01287000 * UCBPTR2 PTR(31) /* DEFINE UCBPTR AS DEVLST1 ENTRY*/ 01288000 * BASED(EVAL(DEVST1+IDXPTR)),/* @ZA20975*/ 01289000 * R10 REG(10) PTR(31), /* REG FOR SUBROUTINES @ZA20975*/ 01290000 * R11 REG(11) PTR(31), /* REG FOR SUBROUTINES @ZA20975*/ 01291000 * R14 REG(14) PTR(31), /* REG FOR SUBROUTINES @ZA20975*/ 01292000 * ZERO FIXED(8) CONSTANT(0), /* CONSTANT 0 @ZA20975*/ 01293000 * ONE FIXED(8) CONSTANT(1), /* CONSTANT 1 @ZA20975*/ 01294000 * TWO FIXED(8) CONSTANT(2), /* CONSTANT 2 @ZA20975*/ 01295000 * CON8 FIXED(8) CONSTANT(8), /* CONSTANT 8 @ZA20975*/ 01296000 * CON256 FIXED(15) CONSTANT(256),/* CONSTANT 256 @ZA20975*/ 01297000 * CON4096 FIXED(31) CONSTANT(4096),/* CONSTANT 4096 @ZA20975*/ 01298000 * MAXCUA FIXED(31) CONSTANT(131072),/* MAXIMUM POSSIBLE TAPE 0310 01299000 * CHANNEL UNIT ADDRESS @ZA20975*/ 01300000 */* */ 01301000 */* */ 01302000 */* RLCT LIST DEFINITIONS */ 01303000 */* */ 01304000 * 0310 01305000 * RLCTST PTR(31), /* RLCT LIST START ADDRESS */ 01306000 * RLCTPTR2 PTR(31) /* RLCT ENTRY BASE ADDRESS */ 01307000 * BASED(EVAL(RLCTST+IDXPTR)),/* @ZA20975*/ 01308000 * RLCTSPTR PTR(31) REG(11), /* ALTERNATE RLCT BASE @Z30WIAW*/ 01309000 */* IDX LIST DEFINITIONS */ 01310000 */* */ 01311000 * 0310 01312000 * IDX REG(4) PTR(31) RESTRICTED,/* PRIMARY INDEX LIST INDEX */ 01313000 * IDXST REG(7) PTR(31) /* PRIMARY INDEX LIST START */ 01314000 * RESTRICTED, 0310 01315000 * IDXEND PTR(31) REG(1) /* PRIMARY INDEX LIST END */ 01316000 * RESTRICTED, 0310 01317000 * IDXPTR PTR(15) BASED(IDX), /* PRIMARY INDEX LIST ENTRY */ 01318000 * IDXLEN FIXED(31) REG(0) /* LENGTH OF INDEX LIST ENTRY */ 01319000 * RESTRICTED, 0310 01320000 * 0310 01321000 */* */ 01322000 */* JDX LIST DEFINITIONS */ 01323000 */* */ 01324000 * 0310 01325000 * JDX REG(6) PTR(31) RESTRICTED,/* SECONDARY INDEX LIST INDEX */ 01326000 * JDXST REG(9) PTR(31) /* SECONDARY INDEX LIST START */ 01327000 * RESTRICTED, /* (CHGD TO REGISTER 9) @ZA20975*/ 01328000 * JDXPTR PTR(15) BASED(JDX), /* SECONDARY INDEX LIST ENTRY */ 01329000 */* */ 01330000 */* DEVEP LIST DEFINITIONS */ 01331000 */* */ 01332000 * 0310 01333000 * DEVEP ENTRY BASED(DEVEPA) /* RULE ENTRY POINT @Z30WIMG*/ 01334000 * VALUERANGE(DEVRULE1,DEVRULE2,DEVRULE3,/* @Z30WIAW*/ 01335000 * DEVRULE4,DEVRULE5), /* @Z30WIAW*/ 01336000 * DEVEPTAB(5) PTR(31) INIT( /* DEVICE ALLOCATION @ZA00252*/ 01337000 * ADDR(DEVRULE1), /* ENTRY POINT TABLE @ZA00252*/ 01338000 * ADDR(DEVRULE2), /* */ 01339000 * ADDR(DEVRULE3), /* */ 01340000 * ADDR(DEVRULE4), /* */ 01341000 * ADDR(DEVRULE5)), /* @Z30WIAW*/ 01342000 * DEVEPX PTR(31), /* ENTRY TABLE INDEX */ 01343000 * DEVEPST PTR(31) /* ENTRY TABLE START */ 01344000 * INIT(ADDR(DEVEPTAB)), /* */ 01345000 * DEVEPEND PTR(31) /* ENTRY TABLE END */ 01346000 * INIT(ADDR(DEVEPTAB) /* */ 01347000 * +4*LENGTH(DEVEPTAB)), /* @Z30WIAW*/ 01348000 * DEVEPRST PTR(31) /* ENTRY TABLE LOOP */ 01349000 * INIT(ADDR(DEVEPTAB)- /* RESTART ADDRESS */ 01350000 * LENGTH(DEVEPTAB)), /* */ 01351000 * DEVEPA PTR(31) BASED(DEVEPX), /* ENTRY POINT TABLE ENTRY */ 01352000 */* */ 01353000 */* RLCT, IDX, AND JDX LIST BUFFER DEFINITIONS */ 01354000 */* */ 01355000 * 0310 01356000 * 1 DEVWA BDY(WORD), /* PERMANENTLY ALLOCATED */ 01357000 * 2 DEVWABUF(32) FIXED, /* DEVICE ALLOCATION WORKAREA */ 01358000 * DEVWALEN FIXED(15) /* LENGTH OF PERMANENTLY */ 01359000 * INIT(LENGTH(DEVWA)), /* ALLOCATED WORKAREA */ 01360000 * DEVLEN FIXED(15) REG(5) /* LENGTH OF REQUIRED WORKAREA */ 01361000 * RESTRICTED, 0310 01362000 * DEVGTPTR PTR(31), /* ADDRESS OF GETMAINED WORKAREA */ 01363000 * DEVGTLEN PTR(31), /* LENGTH OF GETMAINED WORKAREA */ 01364000 * DEVPR0 REG(0) FIXED(31), /* GETMAIN */ 01365000 * DEVPR1 REG(1) PTR(31), /* PARAMETER */ 01366000 * DEVPR15 REG(15) FIXED(31), /* REGISTERS */ 01367000 */* */ 01368000 */* OTHER DEVICE ALLOCATION WORKING VARIABLES */ 01369000 */* */ 01370000 * 0310 01371000 * DEVLCB BIT(32) BDY(WORD), /* USER LCH BIT PATTERN */ 01372000 * DEVDUP BIT(1), /* FLAG - UCBS ALREADY ALLOCATED 01373000 * TO USER HAVE BEEN REMOVED FROM 01374000 * CANDIDATE LIST */ 01375000 * DEVSAVE FIXED(31) REG(5) /* TEMPORARY VALUE HOLDING AREA */ 01376000 * RESTRICTED, 0310 01377000 * DEVOUXB PTR(31), /* OUXB POINTER SAVE AREA */ 01378000 * DEVRV BIT(32) /* RANDOM VARIABLE */ 01379000 * DEF(RMCTTOCI) POS(33); /* */ 01380000 * 0311 01381000 */* */ 01382000 */* INITIALIZE LCH BIT PATTERN REPRESENTING LOGICAL CHANNELS */ 01383000 */* ON WHICH THE USER HAS DATA SETS ALLOCATED */ 01384000 */* */ 01385000 * 0311 01386000 * RESPECIFY 0311 01387000 * UCBOB BASED(DEVUCB2); /* BASE UCB ON ALLOCATED LIST */ 01388000 * DEVOUXB=ASCBOUXB; /* SAVE PTR TO OUXB */ 01389000 L @08,ASCBOUXB(,ASCBPTR) 0312 01390000 ST @08,DEVOUXB 0312 01391000 * DEVLCB=ZERO; /* CLEAR LCH BIT PATTERN */ 01392000 SLR @08,@08 0313 01393000 ST @08,DEVLCB 0313 01394000 * IF RRPARCI='1'B THEN /* IF SYSEVENT BEING RETRIED */ 01395000 TM RRPARCI(RRPAPTR),B'00000001' 0314 01396000 BNO @RF00314 0314 01397000 * DO; /* DURING ERROR RECOVERY, */ 01398000 * DEVPTR=ADDR(DEVPTR1); /* PICK FIRST CANDIDATE AND */ 01399000 L @08,RRPAINP(,RRPAPTR) 0316 01400000 L DEVPTR,DEVIN1(,@08) 0316 01401000 LA DEVPTR,DEVPTR1(,DEVPTR) 0316 01402000 * GOTO DEVBYPAS; /* BYPASS LIST REDUCTION */ 01403000 B DEVBYPAS 0317 01404000 * END; /* PROCESSING */ 01405000 * RESPECIFY 0319 01406000 * RLCT BASED(RLCTSPTR); /* TEMP RLCT BASE @Z30WIAW*/ 01407000 @RF00314 DS 0H 0320 01408000 * RESPECIFY 0320 01409000 * RLCTSPTR RSTD; /* DON-T TOUCH IT, PLS. @Z30WIAW*/ 01410000 * DO RLCTSPTR=RMCTRLCT /* STEP THRU ALL RLCT, @Z30WIAW*/ 01411000 * TO ICCLCLST /* INITLIZING RLCTUMWA @Z30WIAW*/ 01412000 * BY LENGTH(RLCT); /* FOR USE IN RULE 2 @Z30WIAW*/ 01413000 L RLCTSPTR,RMCTRLCT(,RMCTPTR) 0321 01414000 B @DE00321 0321 01415000 @DL00321 DS 0H 0322 01416000 * RLCTUMWA=RLCTUTDA; /* TO ESTIMATE LCH UTIL @Z30WIAW*/ 01417000 LH @10,RLCTUTDA(,RLCTSPTR) 0322 01418000 ST @10,RLCTUMWA(,RLCTSPTR) 0322 01419000 * END; /* INCLUDING NEW USER. @Z30WIAW*/ 01420000 AL RLCTSPTR,@CF03067 0323 01421000 @DE00321 C RLCTSPTR,ICCLCLST(,RMCTPTR) 0323 01422000 BNH @DL00321 0323 01423000 * RESPECIFY 0324 01424000 * RLCTSPTR UNRSTD; /* @Z30WIAW*/ 01425000 * IF DEVCT2>ZERO THEN /* IF DATA SETS HAVE BEEN */ 01426000 L @08,RRPAINP(,RRPAPTR) 0325 01427000 L @08,DEVIN2(,@08) 0325 01428000 L @15,DEVCT2(,@08) 0325 01429000 LTR @15,@15 0325 01430000 BNP @RF00325 0325 01431000 * DO; /* PREVIOUSLY ALLOCATED TO USER, */ 01432000 * RESPECIFY 0327 01433000 * RLCT BASED /* BASE RLCT OFF UCB LCH INDEX */ 01434000 * (EVAL(RMCTRLCT+UCBLCI*LENGTH(RLCT)));/* @Z30WIAW*/ 01435000 * DEVST2=ADDR(DEVPTR2); /* POINT TO START OF ALLOCATED 0328 01436000 * LST */ 01437000 LA @08,DEVPTR2(,@08) 0328 01438000 ST @08,DEVST2 0328 01439000 * DEVEND2=DEVST2+ /* POINT TO END OF ALLOCATED LIST*/ 01440000 * (DEVCT2-ONE)*DEVXLEN; 0329 01441000 BCTR @15,0 0329 01442000 M @14,DEVXLEN 0329 01443000 ALR @15,@08 0329 01444000 ST @15,DEVEND2 0329 01445000 * DO DEVX2=DEVST2 TO /* LOOK AT EACH ALLOCATED UCB */ 01446000 * DEVEND2 BY DEVXLEN; /* LIST ENTRY */ 01447000 LR DEVX2,@08 0330 01448000 B @DE00330 0330 01449000 @DL00330 DS 0H 0331 01450000 * DEVLCB=DEVLCB /* SET FLAG IN BIT PATTERN */ 01451000 * |RLCTBIT; /* CORRESPONDING TO LOGICAL 0331 01452000 * CHANNEL OF CURRENT UCB */ 01453000 L @08,RMCTRLCT(,RMCTPTR) 0331 01454000 L @15,DEVUCB2(,DEVX2) 0331 01455000 SLR @14,@14 0331 01456000 IC @14,UCBLCI(,@15) 0331 01457000 MH @14,@CH03067 0331 01458000 LR @15,@08 0331 01459000 ALR @15,@14 0331 01460000 OC DEVLCB(4),RLCTBIT(@15) 0331 01461000 * RLCTUMWA=RLCTUMWA /* ADD ESTIM LCH UTIL @Z30WIAW*/ 01462000 * +ICCEDSUT; /* IMPACT OF ONE DD. @Z30WIAW*/ 01463000 LR @15,@08 0332 01464000 ALR @15,@14 0332 01465000 ALR @08,@14 0332 01466000 LH @14,ICCEDSUT(,RMCTPTR) 0332 01467000 AL @14,RLCTUMWA(,@08) 0332 01468000 ST @14,RLCTUMWA(,@15) 0332 01469000 * END; /* */ 01470000 AL DEVX2,DEVXLEN 0333 01471000 @DE00330 C DEVX2,DEVEND2 0333 01472000 BNH @DL00330 0333 01473000 * END; /* */ 01474000 * 0335 01475000 */* */ 01476000 */* CHECK IF THERE ARE CANDIDATES FOR ALLOCATION */ 01477000 */* */ 01478000 * 0335 01479000 * IF DEVIN1=ZERO| /* IF THERE ARE */ 01480000 * DEVCT1=ZERO THEN /* NO CANDIDATES, */ 01481000 @RF00325 SLR @08,@08 0335 01482000 L @15,RRPAINP(,RRPAPTR) 0335 01483000 L @15,DEVIN1(,@15) 0335 01484000 CR @15,@08 0335 01485000 BE @RT00335 0335 01486000 C @08,DEVCT1(,@15) 0335 01487000 BNE @RF00335 0335 01488000 @RT00335 DS 0H 0336 01489000 * DEVPTR=DEVIN1; /* POINT BACK TO LIST START */ 01490000 L @08,RRPAINP(,RRPAPTR) 0336 01491000 L DEVPTR,DEVIN1(,@08) 0336 01492000 * ELSE /* OTHERWISE */ 01493000 * DO; /* CHOOSE CANDIDATE */ 01494000 B @RC00335 0337 01495000 @RF00335 DS 0H 0338 01496000 */* */ 01497000 */* INITIALIZE BUFFERS WHICH CONTAIN IDX AND JDX LISTS */ 01498000 */* */ 01499000 * 0338 01500000 * DEVGTPTR=ZERO; /* CLEAR GETMAINED WORK AREA PTR */ 01501000 SLR @08,@08 0338 01502000 ST @08,DEVGTPTR 0338 01503000 * RLCTST=ADDR(DEVWA); /* ASSUME LISTS WILL BE IN 0339 01504000 * STANDARD WORKAREA */ 01505000 LA @08,DEVWA 0339 01506000 ST @08,RLCTST 0339 01507000 * DEVLEN=DEVCT1*CON8; /* CALCULATE SIZE OF REQ WORKAREA*/ 01508000 L @08,RRPAINP(,RRPAPTR) 0340 01509000 L @08,DEVIN1(,@08) 0340 01510000 L DEVLEN,DEVCT1(,@08) 0340 01511000 SLA DEVLEN,3 0340 01512000 * IF DEVLEN>DEVWALEN THEN /* IF STANDARD WORKAREA IS NOT */ 01513000 CH DEVLEN,DEVWALEN 0341 01514000 BNH @RF00341 0341 01515000 * DO; /* LARGE ENOUGH */ 01516000 * RESPECIFY /* RESTRICT GETMAIN PARAMETER */ 01517000 * (DEVPR0, /* REGISTERS */ 01518000 * DEVPR1, /* */ 01519000 * DEVPR15) /* */ 01520000 * RESTRICTED; /* */ 01521000 * DEVPR0=DEVLEN; /* INDICATE LENGTH OF AREA TO */ 01522000 LR DEVPR0,DEVLEN 0344 01523000 * DEVPR1=ZERO; /* GETMAIN INVOKE GETMAIN THROUGH 01524000 * INTERFACE PROGRAM */ 01525000 * 0345 01526000 SLR DEVPR1,DEVPR1 0345 01527000 * /*********************************************************/ 01528000 * /* */ 01529000 * /* ? IRACTLCL EPN(I04) */ 01530000 * /* */ 01531000 * /*********************************************************/ 01532000 * 0346 01533000 * CALL RMSBI04->IRARMRTN; /* INVOKE I04 SUBRTN */ 01534000 L @15,RMSBI04(,RMCTPTR) 0346 01535000 BALR @14,@15 0346 01536000 * IF DEVPR15=ZERO THEN /* IF GETMAIN SUCCESSFUL, */ 01537000 LTR DEVPR15,DEVPR15 0347 01538000 BNZ @RF00347 0347 01539000 * DO; 0348 01540000 * DEVGTPTR=DEVPR1; /* SAVE ADDRESS OF GETMAINED AREA*/ 01541000 ST DEVPR1,DEVGTPTR 0349 01542000 * RLCTST=DEVPR1; /* PUT LISTS IN GETMAINED AREA */ 01543000 ST DEVPR1,RLCTST 0350 01544000 * DEVGTLEN=DEVLEN; /* SAVE LENGTH OF GETMAINED AREA */ 01545000 ST DEVLEN,DEVGTLEN 0351 01546000 * END; 0352 01547000 * ELSE /* OTHERWISE ONLY CONSIDER AS 0353 01548000 * MANY */ 01549000 * DEVLEN=DEVWALEN; /* CANDIDATES AS CAN FIT IN 0353 01550000 * STANDARD WORKAREA */ 01551000 B @RC00347 0353 01552000 @RF00347 LH DEVLEN,DEVWALEN 0353 01553000 * RESPECIFY /* RELEASE PARAMETER REGISTERS */ 01554000 * (DEVPR0, 0354 01555000 * DEVPR1, 0354 01556000 * DEVPR15) UNRESTRICTED; 0354 01557000 @RC00347 DS 0H 0355 01558000 * END; 0355 01559000 * 0356 01560000 */* */ 01561000 */* INITIALIZE PRIMARY (IDX) INDEX LIST */ 01562000 */* */ 01563000 * 0356 01564000 * RESPECIFY 0356 01565000 * UCBOB BASED(DEVUCB1); /* BASE UCB ON CANDIDATE LIST */ 01566000 @RF00341 DS 0H 0357 01567000 * DEVLEN=DEVLEN/TWO; /* LENGTH OF RLCT LIST */ 01568000 LA @08,2 0357 01569000 LR @10,DEVLEN 0357 01570000 SRDA @10,32 0357 01571000 DR @10,@08 0357 01572000 LR DEVLEN,@11 0357 01573000 * IDXST=RLCTST+DEVLEN; /* INITIALIZE PRIMARY INDEX LIST 01574000 * START POINTER */ 01575000 LR IDXST,DEVLEN 0358 01576000 AL IDXST,RLCTST 0358 01577000 * IDXLEN=TWO; /* INITIALIZE LENGTH REGISTER */ 01578000 LR IDXLEN,@08 0359 01579000 * DEVST1=ADDR(DEVPTR1); /* POINT TO START OF CANDIDATE 0360 01580000 * LST */ 01581000 L @08,RRPAINP(,RRPAPTR) 0360 01582000 L @08,DEVIN1(,@08) 0360 01583000 LA @08,DEVPTR1(,@08) 0360 01584000 ST @08,DEVST1 0360 01585000 * DEVEND1=DEVST1 /* POINT TO END OF CANDIDATE LIST*/ 01586000 * +DEVLEN-DEVXLEN; /* */ 01587000 LR @15,DEVLEN 0361 01588000 ALR @15,@08 0361 01589000 SL @15,DEVXLEN 0361 01590000 ST @15,DEVEND1 0361 01591000 * IDX=IDXST; /* INITIALIZE PRIMARY INDEX 0362 01592000 * INITIALIZE PRIMARY LIST 0362 01593000 * ENTRIES */ 01594000 LR IDX,IDXST 0362 01595000 * DO DEVX1=DEVST1 /* SET UP LIST ENTRIES FOR */ 01596000 * TO DEVEND1 BY DEVXLEN;/* EACH CANDIDATE */ 01597000 B @DE00363 0363 01598000 @DL00363 DS 0H 0364 01599000 * IDXPTR=DEVX1-DEVST1; /* COMPUTE INDEX TO UCBPTR */ 01600000 LR @15,@08 0364 01601000 SL @15,DEVST1 0364 01602000 STH @15,IDXPTR(,IDX) 0364 01603000 * RLCTPTR2=RMCTRLCT /* COMPUTE RLCTPTR FOR UCB */ 01604000 * +UCBLCI*LENGTH(RLCT); /* LOGICAL CHANNEL TABLE ENTRY 0365 01605000 * (CHGD TO USE RLCTPTR2) 0365 01606000 * @ZA20975*/ 01607000 AL @15,RLCTST 0365 01608000 L @14,DEVUCB1(,@08) 0365 01609000 SLR @11,@11 0365 01610000 IC @11,UCBLCI(,@14) 0365 01611000 MH @11,@CH03067 0365 01612000 AL @11,RMCTRLCT(,RMCTPTR) 0365 01613000 ST @11,RLCTPTR2(,@15) 0365 01614000 * IDX=IDX+IDXLEN; /* POINT TO NEXT INDEX LIST ENTRY*/ 01615000 ALR IDX,IDXLEN 0366 01616000 * END; 0367 01617000 AL @08,DEVXLEN 0367 01618000 @DE00363 ST @08,DEVX1 0367 01619000 C @08,DEVEND1 0367 01620000 BNH @DL00363 0367 01621000 * JDXST=IDXST+DEVLEN/TWO; /* INITIALIZE JDX START POINTER */ 01622000 LR @08,DEVLEN 0368 01623000 SRDA @08,32 0368 01624000 D @08,@CF00188 0368 01625000 ALR JDXST,IDXST 0368 01626000 * IDXEND=JDXST-IDXLEN; /* INITIALIZE IDX END PTR */ 01627000 LR IDXEND,JDXST 0369 01628000 SLR IDXEND,IDXLEN 0369 01629000 * 0370 01630000 */* */ 01631000 */* SELECT ONE CANDIDATE FROM INPUT CANDIDATE LIST */ 01632000 */* BY APPLYING SELECTION RULES */ 01633000 */* */ 01634000 * 0370 01635000 * /*************************************************************/ 01636000 * /* */ 01637000 * /* USE BASED VARIABLES RLCTPTR2 AND UCBPTR2 INSTEAD OF THE */ 01638000 * /* NORMAL RLCTPTR AND UCBPTR. @ZA20975*/ 01639000 * /* */ 01640000 * /*************************************************************/ 01641000 * 0370 01642000 * RESPECIFY 0370 01643000 * RLCT BASED(RLCTPTR2); /* (CHGD BASING) @ZA20975*/ 01644000 * RESPECIFY 0371 01645000 * UCBOB BASED(UCBPTR2); /* BASE UCB ON IDX UCB POINTER 0371 01646000 * (CHGD BASING) @ZA20975*/ 01647000 * DEVDUP='0'B; /* INDICATE ALL CANDIDATES IN 0372 01648000 * LIST */ 01649000 NI DEVDUP,B'01111111' 0372 01650000 * DO DEVEPX=DEVEPST /* APPLY EACH RULE TO CANDIDATE */ 01651000 * TO DEVEPEND BY DEVXLEN;/* LIST IN TURN */ 01652000 L @08,DEVEPST 0373 01653000 B @DE00373 0373 01654000 @DL00373 DS 0H 0374 01655000 * JDX=JDXST; /* INITIALIZE SECONDARY INDEX PTR*/ 01656000 LR JDX,JDXST 0374 01657000 * IF IDXST=IDXEND THEN /* IF ONLY ONE CANDIDATE REMAINS */ 01658000 CR IDXST,IDXEND 0375 01659000 BNE @RF00375 0375 01660000 * DEVEPX=DEVEPEND; /* INVOKE LAST RULE IMMEDIATELY */ 01661000 L @08,DEVEPEND 0376 01662000 ST @08,DEVEPX 0376 01663000 * RESPECIFY /* MAKE SURE REGISTERS @Z30WIMG*/ 01664000 * (R10, /* ARE AVAILABLE @Z30WIMG*/ 01665000 * R11) RESTRICTED; /* TO RULES @Z30WIMG*/ 01666000 @RF00375 DS 0H 0378 01667000 * CALL DEVEP; /* APPLY RULE */ 01668000 L @08,DEVEPX 0378 01669000 L @15,DEVEPA(,@08) 0378 01670000 BALR @14,@15 0378 01671000 * RESPECIFY 0379 01672000 * (R10, 0379 01673000 * R11) UNRESTRICTED; /* @Z30WIMG*/ 01674000 * IF JDX^=JDXST THEN /* IF APPLICATION OF RULE HAS NOT*/ 01675000 CR JDX,JDXST 0380 01676000 BE @RF00380 0380 01677000 * DO; /* ELIMINATED ALL CANDIDATES IN 01678000 * THE PRIMARY LIST, */ 01679000 * DEVSAVE=IDXST; /* THEN SECONDARY LIST BECOMES */ 01680000 LR DEVSAVE,IDXST 0382 01681000 * IDXST=JDXST; /* THE NEW PRIMARY LIST FOR THE */ 01682000 LR IDXST,JDXST 0383 01683000 * JDXST=DEVSAVE; /* NEXT RULE */ 01684000 LR JDXST,DEVSAVE 0384 01685000 * IDXEND=JDX-IDXLEN; /* */ 01686000 LR IDXEND,JDX 0385 01687000 SLR IDXEND,IDXLEN 0385 01688000 * END; 0386 01689000 * END; 0387 01690000 @RF00380 L @08,DEVEPX 0387 01691000 AL @08,DEVXLEN 0387 01692000 @DE00373 ST @08,DEVEPX 0387 01693000 C @08,DEVEPEND 0387 01694000 BNH @DL00373 0387 01695000 * IDX=IDXST; /* IDXPTR INDICATES SELECTED UCB */ 01696000 LR IDX,IDXST 0388 01697000 * IF UCB3TAPE='1'B /* CHOICE WAS TAPE @ZM43099*/ 01698000 * THEN 0389 01699000 LH @08,IDXPTR(,IDX) 0389 01700000 AL @08,DEVST1 0389 01701000 L @08,UCBPTR2(,@08) 0389 01702000 TM UCB3TAPE(@08),B'10000000' 0389 01703000 BNO @RF00389 0389 01704000 * RCVTAPAD=UCBPTR2; /* SAVE ADDR FOR NEXT EVT 0390 01705000 * @ZM43099 01706000 * (USE UCBPTR2) @ZA20975*/ 01707000 ST @08,RCVTAPAD(,RMCTPTR) 0390 01708000 * DEVPTR=ADDR(UCBPTR2); /* POINT TO SELECTED CANDIDATE 0391 01709000 * (USE UCBPTR2) @ZA20975*/ 01710000 @RF00389 LH @08,IDXPTR(,IDX) 0391 01711000 L DEVPTR,DEVST1 0391 01712000 ALR DEVPTR,@08 0391 01713000 * DEVLCB=DEVLCB|RLCTBIT; /* REMEMBER LCH OF CHOSEN UCB */ 01714000 AL @08,RLCTST 0392 01715000 L @08,RLCTPTR2(,@08) 0392 01716000 OC DEVLCB(4),RLCTBIT(@08) 0392 01717000 * 0393 01718000 */* */ 01719000 */* FREE GETMAINED WORKAREA */ 01720000 */* */ 01721000 * 0393 01722000 * RESPECIFY /* RESTRICT FREEMAIN */ 01723000 * (DEVPR0, /* PARAMETER REGISTERS */ 01724000 * DEVPR1) /* */ 01725000 * RESTRICTED; /* */ 01726000 * IF DEVGTPTR^=ZERO THEN /* IF WORKAREA WAS GETMAINED */ 01727000 L @08,DEVGTPTR 0394 01728000 LTR @08,@08 0394 01729000 BZ @RF00394 0394 01730000 * DO; 0395 01731000 * DEVPR0=DEVGTLEN; /* PUT LENGTH IN PARM REG */ 01732000 L DEVPR0,DEVGTLEN 0396 01733000 * DEVPR1=DEVGTPTR; /* PUT ADDRESS IN PARM REG INVOKE 01734000 * FREEMAIN VIA INTERFACE */ 01735000 * 0397 01736000 LR DEVPR1,@08 0397 01737000 * /*********************************************************/ 01738000 * /* */ 01739000 * /* ? IRACTLCL EPN(I04) */ 01740000 * /* */ 01741000 * /*********************************************************/ 01742000 * 0398 01743000 * CALL RMSBI04->IRARMRTN; /* INVOKE I04 SUBRTN */ 01744000 L @15,RMSBI04(,RMCTPTR) 0398 01745000 BALR @14,@15 0398 01746000 * END; /* PROGRAM */ 01747000 * RESPECIFY /* RELEASE PARAMETER REGISTERS */ 01748000 * (DEVPR0, /* */ 01749000 * DEVPR1) /* */ 01750000 * UNRESTRICTED; /* */ 01751000 @RF00394 DS 0H 0401 01752000 * END; 0401 01753000 * 0402 01754000 */* */ 01755000 */* STORE CANDIDATE POINTER AND RETURN CODE IN USERS */ 01756000 */* RETURN AREA WITH USERS PROTECTION KEY */ 01757000 */* */ 01758000 * 0402 01759000 *DEVBYPAS: /* BYPASS ENTRY FOR SIMPLIFIED 0402 01760000 * ERROR PATH */ 01761000 * RESPECIFY /* RESTRICT REGISTERS USED */ 01762000 * (DEVPR0, /* BY MODESET */ 01763000 * DEVPR1, /* */ 01764000 * DEVPR15) /* */ 01765000 * RESTRICTED; /* */ 01766000 @RC00335 DS 0H 0402 01767000 DEVBYPAS DS 0H 0403 01768000 * IF RRPASVC='0'B THEN /* IF BRANCH ENTERED, */ 01769000 TM RRPASVC(RRPAPTR),B'00100000' 0403 01770000 BNZ @RF00403 0403 01771000 * DO; /* MODESET KEYADDR(RRPAKEY) */ 01772000 * SPKA(RRPAKEY); /* SET PSW KEY */ 01773000 SLR @14,@14 0405 01774000 IC @14,RRPAKEY(,RRPAPTR) 0405 01775000 SPKA 0(@14) 0405 01776000 * END; /* MODESET KEYADDR(RRPAKEY) 0406 01777000 * @Z30WIMG*/ 01778000 * ELSE /* OTHERWISE, */ 01779000 * DO; /* SWITCH TO PROTECT KEY */ 01780000 B @RC00403 0407 01781000 @RF00403 DS 0H 0408 01782000 * DEVPR1=PSATOLD; /* CURRENT TCB @Z30WIMG*/ 01783000 L DEVPR1,PSATOLD 0408 01784000 * GENERATE REFS(TCBRBP); 0409 01785000 * /* @ZA20975*/ 01786000 USING TCB,DEVPR1 01787000 MODESET EXTKEY=RBT1,WORKREG=15 01788000 DROP DEVPR1 01789000 * END; /* */ 01790000 * DEVRTC=ZERO; /* STORE RETURN CODE */ 01791000 @RC00403 L @14,RRPAINP(,RRPAPTR) 0411 01792000 L @14,DEVIN3(,@14) 0411 01793000 SLR @08,@08 0411 01794000 ST @08,DEVRTC(,@14) 0411 01795000 * DEVUCB=DEVPTR; /* STORE POINTER TO CANDIDATE */ 01796000 ST DEVPTR,DEVUCB(,@14) 0412 01797000 * GENERATE; 0413 01798000 * /*RETURN TO SRM PROTECT KEY */ 01799000 MODESET EXTKEY=SRM,WORKREG=15 01800000 * RESPECIFY /* RELEASE REGISTERS USED */ 01801000 * (DEVPR0, /* BY MODESET */ 01802000 * DEVPR1, /* */ 01803000 * DEVPR15) /* */ 01804000 * UNRESTRICTED; /* */ 01805000 * RESPECIFY 0415 01806000 * OUXBPTR RESTRICTED; 0415 01807000 * OUXBPTR=DEVOUXB; /* SET UP ADDRESSING TO OUXB */ 01808000 L OUXBPTR,DEVOUXB 0416 01809000 * RESPECIFY 0417 01810000 * OUXBPTR UNRESTRICTED; 0417 01811000 * RRPARTC=ZERO; /* SAVE RETURN CODE */ 01812000 MVI RRPARTC(RRPAPTR),X'00' 0418 01813000 * IF RRPARCI='1'B THEN /* IF ON ERROR PATH RETURN TO INT*/ 01814000 * 0419 01815000 TM RRPARCI(RRPAPTR),B'00000001' 0419 01816000 BNO @RF00419 0419 01817000 * /***************************************************************/ 01818000 * /* */ 01819000 * /* ? IRACTLCL EPN(I01) */ 01820000 * /* */ 01821000 * /***************************************************************/ 01822000 * 0420 01823000 * GOTO RMEXI01->IRARMNTR; /* EXIT TO I01 FUNCT */ 01824000 L @08,RMEXI01(,RMCTPTR) 0420 01825000 BR @08 0420 01826000 * ELSE /* OTHERWISE GO TO CONTROL */ 01827000 * 0421 01828000 * /***************************************************************/ 01829000 * /* */ 01830000 * /* ? IRACTLCL EPN(CTL) */ 01831000 * /* */ 01832000 * /***************************************************************/ 01833000 * 0421 01834000 * GOTO RMEXCTL->IRARMNTR; /* EXIT TO CTL FUNCT */ 01835000 @RF00419 L @08,RMEXCTL(,RMCTPTR) 0421 01836000 BR @08 0421 01837000 * RESPECIFY 0422 01838000 * R14 RESTRICTED; 0422 01839000 * 0423 01840000 */***********************************************************@ZA00252*/ 01841000 */* @ZA00252*/ 01842000 */* DEVRULE1 - DEVALLOC INTERNAL SUBROUTINE @Z30WIAW*/ 01843000 */* @ZA00252*/ 01844000 */* FUNCTION - @ZA00252*/ 01845000 */* ELIMINATES ALL CANDIDATES ON READY DEVICES @ZA00252*/ 01846000 */* ( PRESUMABLY PREMOUNTED ) @ZA00252*/ 01847000 */* @ZA00252*/ 01848000 */***********************************************************@ZA00252*/ 01849000 * 0423 01850000 *DEVRULE1: 0423 01851000 * PROC OPTIONS(NOSAVE); /* @Z30WIAW*/ 01852000 DEVRULE1 DS 0H 0424 01853000 * DO IDX=IDXST /* LOOK AT EACH CANDIDATE 0424 01854000 * @ZA00252*/ 01855000 * TO IDXEND BY IDXLEN; /* ON PRIMARY LIST. @ZA00252*/ 01856000 LR IDX,IDXST 0424 01857000 B @DE00424 0424 01858000 @DL00424 DS 0H 0425 01859000 * IF UCBNOTRD='1'B THEN /* DEVICE NOT READY @ZA00252*/ 01860000 LH @15,IDXPTR(,IDX) 0425 01861000 L @08,DEVST1 0425 01862000 ALR @08,@15 0425 01863000 L @08,UCBPTR2(,@08) 0425 01864000 TM UCBNOTRD(@08),B'01000000' 0425 01865000 BNO @RF00425 0425 01866000 * DO; /* IS PREFERRED. @ZA00252*/ 01867000 * JDXPTR=IDXPTR; /* MOVE CANDIDATE ON FOR @ZA00252*/ 01868000 STH @15,JDXPTR(,JDX) 0427 01869000 * JDX=JDX+IDXLEN; /* NEXT ELIMINATION RULE. 0428 01870000 * @ZA00252*/ 01871000 ALR JDX,IDXLEN 0428 01872000 * END; /* @ZA00252*/ 01873000 * END; /* @ZA00252*/ 01874000 @RF00425 ALR IDX,IDXLEN 0430 01875000 @DE00424 CR IDX,IDXEND 0430 01876000 BNH @DL00424 0430 01877000 * IDX=IDXST; /* THIS IS FOR UCB BASING FOR THE 01878000 * TEST OF THE TAPE BIT @Z40BPEB*/ 01879000 LR IDX,IDXST 0431 01880000 * IF JDX=JDXST& /* IF THE SECONDARY LIST IS EMPTY 01881000 * AND, @Z40BPJE*/ 01882000 * UCB3TAPE='1'B THEN /* THIS IS A TAPE REQUEST 0432 01883000 * @Z40BPJE*/ 01884000 CR JDX,JDXST 0432 01885000 BNE @RF00432 0432 01886000 LH @15,IDXPTR(,IDX) 0432 01887000 AL @15,DEVST1 0432 01888000 L @15,UCBPTR2(,@15) 0432 01889000 TM UCB3TAPE(@15),B'10000000' 0432 01890000 BNO @RF00432 0432 01891000 * DO IDX=IDXST /* GO THRU PRIMARY CANDIDATE */ 01892000 * TO IDXEND BY IDXLEN; /* LIST @Z40BPJE*/ 01893000 LR IDX,IDXST 0433 01894000 B @DE00433 0433 01895000 @DL00433 DS 0H 0434 01896000 * IF UCBBPRV='0'B& /* LOOKING FOR NON-PRIVATE AND */ 01897000 * UCBMONT='0'B THEN /* NON PASSED CANDIDATE @Z40BPJE*/ 01898000 LH @15,IDXPTR(,IDX) 0434 01899000 L @08,DEVST1 0434 01900000 ALR @08,@15 0434 01901000 L @08,UCBPTR2(,@08) 0434 01902000 TM UCBBPRV(@08),B'00010000' 0434 01903000 BNZ @RF00434 0434 01904000 TM UCBMONT(@08),B'00000001' 0434 01905000 BNZ @RF00434 0434 01906000 * DO; /* IF FOUND MOVE @Z40BPJE*/ 01907000 * JDXPTR=IDXPTR; /* CANDIDATE TO THE @Z40BPJE*/ 01908000 STH @15,JDXPTR(,JDX) 0436 01909000 * JDX=JDX+IDXLEN; /* SECONDARY LIST. @Z40BPJE*/ 01910000 ALR JDX,IDXLEN 0437 01911000 * END; /* @Z40BPJE*/ 01912000 * END; /* @Z40BPJE*/ 01913000 @RF00434 ALR IDX,IDXLEN 0439 01914000 @DE00433 CR IDX,IDXEND 0439 01915000 BNH @DL00433 0439 01916000 * END DEVRULE1; /* @Z30WIAW*/ 01917000 @EL00004 DS 0H 0440 01918000 @EF00004 DS 0H 0440 01919000 @ER00004 BR @14 0440 01920000 * 0441 01921000 */********************************************************************/ 01922000 */* */ 01923000 */* DEVRULE2 - DEVALLOC INTERNAL SUBROUTINE @Z30WIAW*/ 01924000 */* */ 01925000 */* FUNCTION - */ 01926000 */* CHOOSE CANDIDATES ON LOGICAL CHANNEL WITH */ 01927000 */* LOWEST UTILIZATION, ADDING ASSUMED DELTA IF @Z40BPEB */ 01928000 */* ANY DD WAS PREVIOUSLY ALLOCATED TO THE USER @Z40BPEB */ 01929000 */* ON THE SAME LCH. @Z30WIAW*/ 01930000 */* */ 01931000 */********************************************************************/ 01932000 * 0441 01933000 *DEVRULE2: 0441 01934000 * PROC OPTIONS(NOSAVE); /* @Z30WIAW*/ 01935000 DEVRULE2 DS 0H 0442 01936000 * DEVSAVE='7FFFFFFF'X; /* GET INIT UTILIZATION > MAX */ 01937000 L DEVSAVE,@CF03053 0442 01938000 * DO IDX=IDXST /* LOOK AT EACH CANDIDATE ON */ 01939000 * TO IDXEND BY IDXLEN; /* PRIMARY LIST */ 01940000 LR IDX,IDXST 0443 01941000 B @DE00443 0443 01942000 @DL00443 DS 0H 0444 01943000 * IF RLCTUMWA<= /* IF LCH UTIL FOR THIS @Z30WIAW*/ 01944000 * DEVSAVE THEN /* CANDIDATE IS <= LOWEST SO FAR */ 01945000 LH @15,IDXPTR(,IDX) 0444 01946000 AL @15,RLCTST 0444 01947000 L @15,RLCTPTR2(,@15) 0444 01948000 L @15,RLCTUMWA(,@15) 0444 01949000 CR @15,DEVSAVE 0444 01950000 BH @RF00444 0444 01951000 * DO; /* THEN */ 01952000 * IF RLCTUMWA< /* LCH UTIL < OLD LOW @Z30WIAW*/ 01953000 * DEVSAVE THEN /* THEN */ 01954000 CR @15,DEVSAVE 0446 01955000 BNL @RF00446 0446 01956000 * DO; 0447 01957000 * JDX=JDXST; /* START NEW SECONDARY LIST */ 01958000 LR JDX,JDXST 0448 01959000 * DEVSAVE=RLCTUMWA; /* SAVE NEW LOW UTIL. @Z30WIAW*/ 01960000 LR DEVSAVE,@15 0449 01961000 * END; 0450 01962000 * JDXPTR=IDXPTR; /* MOVE CANDIDATE TO */ 01963000 @RF00446 LH @15,IDXPTR(,IDX) 0451 01964000 STH @15,JDXPTR(,JDX) 0451 01965000 * JDX=JDX+IDXLEN; /* SECONDARY LIST */ 01966000 ALR JDX,IDXLEN 0452 01967000 * END; 0453 01968000 * END; 0454 01969000 @RF00444 ALR IDX,IDXLEN 0454 01970000 @DE00443 CR IDX,IDXEND 0454 01971000 BNH @DL00443 0454 01972000 * END DEVRULE2; /* @Z30WIAW*/ 01973000 @EL00005 DS 0H 0455 01974000 @EF00005 DS 0H 0455 01975000 @ER00005 BR @14 0455 01976000 * 0456 01977000 */********************************************************************/ 01978000 */* */ 01979000 */* DEVRULE3 - DEVALLOC INTERNAL SUBROUTINE @Z30WIAW*/ 01980000 */* */ 01981000 */* FUNCTION - */ 01982000 */* CHOOSE DIRECT ACCESS UCBS WITH LOWEST ALLOCATED */ 01983000 */* USER COUNT */ 01984000 */* FOR TAPE CANDIDATES, PICK THE DEVICE WITH UCB @ZM43099*/ 01985000 */* ADDRESS THAT IS HIGHER THAN, AND NEAREST TO, @ZM43099*/ 01986000 */* THE LAST PREVIOUSLY ASSIGNED TAPE. @ZM43099*/ 01987000 */* IF NO HIGHER UCB ADDRESS EXISTS, PICK THE UCB @ZM43099*/ 01988000 */* WITH THE LOWEST ADDRESS. @ZM43099*/ 01989000 */********************************************************************/ 01990000 * 0456 01991000 *DEVRULE3: 0456 01992000 * PROC OPTIONS(NOSAVE); /* @Z30WIAW*/ 01993000 DEVRULE3 DS 0H 0457 01994000 * DEVSAVE=CON256; /* INIT USER COUNT > MAX POSSIBLE*/ 01995000 LA DEVSAVE,256 0457 01996000 * IDX=IDXST; /* SET UP ADDRESSING TO FIRST UCB*/ 01997000 LR IDX,IDXST 0458 01998000 * IF UCB3DACC='1'B THEN /* IF THE CANDIDATES ARE DA, */ 01999000 LH @15,IDXPTR(,IDX) 0459 02000000 AL @15,DEVST1 0459 02001000 L @15,UCBPTR2(,@15) 0459 02002000 TM UCB3DACC(@15),B'00100000' 0459 02003000 BNO @RF00459 0459 02004000 * DO IDX=IDX /* LOOK AT EACH CANDIDATE ON */ 02005000 * TO IDXEND BY IDXLEN; /* PRIMARY LIST */ 02006000 B @DE00460 0460 02007000 @DL00460 DS 0H 0461 02008000 * IF UCBUSER<=DEVSAVE THEN /* IF UCB USER COUNT IS <= */ 02009000 LH @15,IDXPTR(,IDX) 0461 02010000 AL @15,DEVST1 0461 02011000 L @15,UCBPTR2(,@15) 0461 02012000 SLR @08,@08 0461 02013000 IC @08,UCBUSER(,@15) 0461 02014000 CR @08,DEVSAVE 0461 02015000 BH @RF00461 0461 02016000 * DO; /* LOWEST SO FAR THEN */ 02017000 * IF UCBUSER MAX PTR. @ZM43099*/ 02047000 L DEVSAVE,@CF02998 0474 02048000 * DO IDX=IDX TO IDXEND /* LOOK THROUGH PRIMARY @ZM43099*/ 02049000 * BY IDXLEN; /* LIST @ZM43099*/ 02050000 B @DE00475 0475 02051000 @DL00475 DS 0H 0476 02052000 * IF UCBPTR2>RCVTAPAD& /* HIGHER PTR THAN LAST, @ZA20975*/ 02053000 * UCBPTR2DEVEND2 THEN /* IF THERE IS NOT A MATCH */ 02227000 C DEVX2,DEVEND2 0514 02228000 BNH @RF00514 0514 02229000 * DO; /* */ 02230000 * JDXPTR= /* COMPUTE INDEX INTO DEV LIST */ 02231000 * DEVX1-DEVST1; 0516 02232000 L @15,DEVX1 0516 02233000 SL @15,DEVST1 0516 02234000 STH @15,JDXPTR(,JDX) 0516 02235000 * JDX=JDX+IDXLEN; /* POINT TO NEXT ENTRY IN SEC LST*/ 02236000 ALR JDX,IDXLEN 0517 02237000 * END; 0518 02238000 * END; /* */ 02239000 @RF00514 L @15,DEVX1 0519 02240000 AL @15,DEVXLEN 0519 02241000 @DE00510 ST @15,DEVX1 0519 02242000 C @15,DEVEND1 0519 02243000 BNH @DL00510 0519 02244000 * DEVDUP='1'B; /* ALLOCATED DEVICES HAVE BEEN 0520 02245000 * REMOVED FROM LIST.... @ZM43099*/ 02246000 OI DEVDUP,B'10000000' 0520 02247000 * IF JDX^=JDXST THEN /* SOME UNALLOCATED CANDIDATES...*/ 02248000 CR JDX,JDXST 0521 02249000 BE @RF00521 0521 02250000 * DEVEPX=DEVEPRST; /* APPLY ALL RULES TO SHORT LIST */ 02251000 L @15,DEVEPRST 0522 02252000 ST @15,DEVEPX 0522 02253000 * ELSE /* ALL CANDIDATES HAVE @ZM43099*/ 02254000 * DO; /* ALREADY BEEN ALLOC. @ZM43099*/ 02255000 B @RC00521 0523 02256000 @RF00521 DS 0H 0524 02257000 * DEVEPX=ADDR(DEVEPTAB(3));/* PREPARE RULE 4 @ZM43099*/ 02258000 LA @15,DEVEPTAB+8 0524 02259000 ST @15,DEVEPX 0524 02260000 * DO DEVX1=DEVST1 TO DEVEND1/* USING ENTIRE @ZM43099*/ 02261000 * BY DEVXLEN; /* ORIGINAL CANDIDATE @ZM43099*/ 02262000 L @15,DEVST1 0525 02263000 B @DE00525 0525 02264000 @DL00525 DS 0H 0526 02265000 * JDXPTR=DEVX1-DEVST1;/* LIST TO FORM THE @ZM43099*/ 02266000 LR @08,@15 0526 02267000 SL @08,DEVST1 0526 02268000 STH @08,JDXPTR(,JDX) 0526 02269000 * JDX=JDX+IDXLEN; /* NEW PRIMARY LIST. @ZM43099*/ 02270000 ALR JDX,IDXLEN 0527 02271000 * END; /* LIST IS DONE. @ZM43099*/ 02272000 AL @15,DEVXLEN 0528 02273000 @DE00525 ST @15,DEVX1 0528 02274000 C @15,DEVEND1 0528 02275000 BNH @DL00525 0528 02276000 * END; /* READY FOR RULE 4 @ZM43099*/ 02277000 * END; 0530 02278000 * END; 0531 02279000 * END DEVRULE5; /* @Z30WIAW*/ 02280000 @EL00008 DS 0H 0532 02281000 @EF00008 DS 0H 0532 02282000 @ER00008 BR @14 0532 02283000 * RESPECIFY 0533 02284000 * R14 UNRESTRICTED; 0533 02285000 * RESPECIFY 0534 02286000 * (R1, 0534 02287000 * RTNREG, 0534 02288000 * NTRREG, 0534 02289000 * RLCTPTR, 0534 02290000 * IMCBPTR) /* PROTECT REGS AGAIN @ZA20975*/ 02291000 * RESTRICTED; 0534 02292000 * RESPECIFY 0535 02293000 * UCBOB BASED(UCBPTR); /* NORMAL BASING @ZA20975*/ 02294000 * RESPECIFY 0536 02295000 * RLCT BASED(RLCTPTR); /* NORMAL BASING @ZA20975*/ 02296000 * END IRARME28; 0537 02297000 * END IRARMIOM 0538 02298000 * 0538 02299000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02300000 */*%INCLUDE SYSUT5 (IRAIOCOM) */ 02301000 */*%INCLUDE SYSLIB (IRAREGS ) */ 02302000 */*%INCLUDE SYSLIB (IRACNSMP) */ 02303000 */*%INCLUDE SYSLIB (IRARMCT ) */ 02304000 */*%INCLUDE SYSLIB (IRACCT ) */ 02305000 */*%INCLUDE SYSLIB (IRAICT ) */ 02306000 */*%INCLUDE SYSLIB (IRAMCT ) */ 02307000 */*%INCLUDE SYSLIB (IRARCT ) */ 02308000 */*%INCLUDE SYSLIB (IRARMPT ) */ 02309000 */*%INCLUDE SYSLIB (IRARMCA ) */ 02310000 */*%INCLUDE SYSLIB (IRARMEX ) */ 02311000 */*%INCLUDE SYSLIB (IRARMSB ) */ 02312000 */*%INCLUDE SYSLIB (IRAEPAT ) */ 02313000 */*%INCLUDE SYSLIB (IRAEPDT ) */ 02314000 */*%INCLUDE SYSLIB (IRAEPST ) */ 02315000 */*%INCLUDE SYSLIB (IRARRPA ) */ 02316000 */*%INCLUDE SYSLIB (IHAASCB ) */ 02317000 */*%INCLUDE SYSLIB (IRAOUCB ) */ 02318000 */*%INCLUDE SYSLIB (IHAOUXB ) */ 02319000 */*%INCLUDE SYSLIB (IRARMEP ) */ 02320000 */*%INCLUDE SYSLIB (IRARLCT ) */ 02321000 */*%INCLUDE SYSLIB (IRAIMCB ) */ 02322000 */*%INCLUDE SYSLIB (IHAASXB ) */ 02323000 */*%INCLUDE SYSLIB (IKJTCB ) */ 02324000 */*%INCLUDE SYSLIB (IEFTCT ) */ 02325000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 02326000 */*%INCLUDE SYSLIB (IEESMCA ) */ 02327000 */*%INCLUDE SYSLIB (IECDLCH ) */ 02328000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02329000 */*%INCLUDE SYSLIB (CVT ) */ 02330000 */*%INCLUDE SYSUT5 (IRARMIWA) */ 02331000 */*%INCLUDE SYSUT5 (IRARMIL0) */ 02332000 */*%INCLUDE SYSUT5 (IRARMIL1) */ 02333000 */*%INCLUDE SYSUT5 (IRARMIL3) */ 02334000 */*%INCLUDE SYSUT5 (IRARMIL4) */ 02335000 */*%INCLUDE SYSUT5 (LCHUSE ) */ 02336000 */*%INCLUDE SYSUT5 (IRARME28) */ 02337000 * 0538 02338000 * ; 0538 02339000 @DATA DS 0H 02340000 DS 0F 02341000 @TF00001 DS F 02342000 DS 0F 02343000 @CF00188 DC F'2' 02344000 @CF00050 DC F'4' 02345000 @CF00450 DC F'7' 02346000 @CF00164 DC F'8' 02347000 @CF03067 DC F'36' 02348000 @CH03067 EQU @CF03067+2 02349000 @CF02918 DC F'100' 02350000 @CH02918 EQU @CF02918+2 02351000 @CF02921 DC F'1000' 02352000 @CF02998 DC F'131072' 02353000 @CF03053 DC XL4'7FFFFFFF' 02354000 @CF03075 DC XL4'0000FFFF' 02355000 DS 0D 02356000 UCBPTR DS A 02357000 ILCBEND DS A 02358000 ILTIME DS F 02359000 ILTIM DS F 02360000 DEVX1 DS A 02361000 DEVST1 DS A 02362000 DEVEND1 DS A 02363000 DEVST2 DS A 02364000 DEVEND2 DS A 02365000 DEVXLEN DC F'4' 02366000 RLCTST DS A 02367000 DEVEPX DS A 02368000 DEVEPST DC AL4(DEVEPTAB) 02369000 DEVEPEND DC AL4(DEVEPTAB+4*4) 02370000 DEVEPRST DC AL4(DEVEPTAB-4) 02371000 DEVGTPTR DS A 02372000 DEVGTLEN DS A 02373000 DEVOUXB DS A 02374000 LCHLEN DC AL2(32) 02375000 RLCHLEN DC AL2(36) 02376000 DEVWALEN DC AL2(128) 02377000 @CC02927 DC C'IMCB' 02378000 @CC02944 DC C'OUCB' 02379000 @CB02942 DC X'FFFFFFFF' 02380000 DS CL2 02381000 ILLCHPT DS BL4 02382000 ILLCBPT DS BL4 02383000 DEVWA DS CL128 02384000 ORG DEVWA 02385000 DEVWABUF DS 32F 02386000 ORG DEVWA+128 02387000 DEVLCB DS BL4 02388000 DEVDUP DS BL1 02389000 DS CL3 02390000 DEVEPTAB DC AL4(DEVRULE1) 02391000 DC AL4(DEVRULE2) 02392000 DC AL4(DEVRULE3) 02393000 DC AL4(DEVRULE4) 02394000 DC AL4(DEVRULE5) 02395000 IRARMIOM CSECT 02396000 * /* MOVE INSTRTUCTION */ 02397000 L0 EQU 0 LENGTH ZERO 02398000 L8 EQU 8 LENGTH EIGHT 02399000 ILMOVE MVC IMCBLCHT(L0,IMCBPTR),IMCBLCHT+L8(IMCBPTR) 02400000 IRARMIOM CSECT 02401000 * /* 02402000 IHARB 02403000 IRARMIOM CSECT 02404000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02405000 @01 EQU 01 02406000 @02 EQU 02 02407000 @03 EQU 03 02408000 @04 EQU 04 02409000 @05 EQU 05 02410000 @06 EQU 06 02411000 @07 EQU 07 02412000 @08 EQU 08 02413000 @09 EQU 09 02414000 @10 EQU 10 02415000 @11 EQU 11 02416000 @12 EQU 12 02417000 @13 EQU 13 02418000 @14 EQU 14 02419000 @15 EQU 15 02420000 ILDIF EQU @09 02421000 ILREQ EQU @09 02422000 ILRV EQU @09 02423000 ILETIM EQU @07 02424000 ILUR EQU @09 02425000 RLCTX EQU @09 02426000 TCBPTR EQU @09 02427000 R0 EQU @00 02428000 R1 EQU @01 02429000 RMCTPTR EQU @02 02430000 RRPAPTR EQU @03 02431000 OUCBPTR EQU @04 02432000 ASCBPTR EQU @05 02433000 OUXBPTR EQU @06 02434000 SVEREG EQU @13 02435000 RTNREG EQU @14 02436000 NTRREG EQU @15 02437000 RTNCOD EQU @15 02438000 RLCTPTR EQU @06 02439000 IMCBPTR EQU @05 02440000 IMCBLPTR EQU @07 02441000 ILLUPTR EQU @06 02442000 ILCTPTR EQU @07 02443000 LCHPTR EQU @07 02444000 ILGT0 EQU @00 02445000 ILGT1 EQU @01 02446000 ILGT15 EQU @15 02447000 ILMVCL EQU @01 02448000 ILSCTR EQU @01 02449000 DEVX2 EQU @01 02450000 DEVPTR EQU @06 02451000 R10 EQU @10 02452000 R11 EQU @11 02453000 R14 EQU @14 02454000 RLCTSPTR EQU @11 02455000 IDX EQU @04 02456000 IDXST EQU @07 02457000 IDXEND EQU @01 02458000 IDXLEN EQU @00 02459000 JDX EQU @06 02460000 JDXST EQU @09 02461000 DEVLEN EQU @05 02462000 DEVPR0 EQU @00 02463000 DEVPR1 EQU @01 02464000 DEVPR15 EQU @15 02465000 DEVSAVE EQU @05 02466000 PSA EQU 0 02467000 FLCRNPSW EQU PSA 02468000 FLCROPSW EQU PSA+8 02469000 FLCICCW2 EQU PSA+16 02470000 FLCCVT EQU FLCICCW2 02471000 PSAEEPSW EQU PSA+132 02472000 PSAESPSW EQU PSA+136 02473000 FLCSVILC EQU PSAESPSW+1 02474000 PSAEPPSW EQU PSA+140 02475000 FLCPIILC EQU PSAEPPSW+1 02476000 FLCPICOD EQU PSAEPPSW+2 02477000 PSAPICOD EQU FLCPICOD+1 02478000 FLCTEA EQU PSAEPPSW+4 02479000 FLCPER EQU PSA+152 02480000 FLCMCLA EQU PSA+168 02481000 FLCIOEL EQU FLCMCLA+4 02482000 FLCIOA EQU FLCMCLA+16 02483000 FLCFSA EQU FLCMCLA+80 02484000 PSATOLD EQU PSA+540 02485000 PSASUPER EQU PSA+552 02486000 PSASUP1 EQU PSASUPER 02487000 PSASUP2 EQU PSASUPER+1 02488000 PSASUP3 EQU PSASUPER+2 02489000 PSASUP4 EQU PSASUPER+3 02490000 PSACLHT EQU PSA+640 02491000 PSALKSA EQU PSA+696 02492000 PSAHLHI EQU PSA+760 02493000 PSADSSFL EQU PSA+836 02494000 PSADSSF1 EQU PSADSSFL 02495000 PSADSSF3 EQU PSADSSFL+2 02496000 PSADSSF4 EQU PSADSSFL+3 02497000 PSARSVT EQU PSA+896 02498000 IRARMNTR EQU 0 02499000 IRARMRTN EQU 0 02500000 RMCT EQU 0 02501000 RMCTRLCT EQU RMCT+28 02502000 RMCTRMSA EQU RMCT+32 02503000 RMCTINQE EQU RMCT+112 02504000 RMCTTOD EQU RMCT+124 02505000 RMCTFLGS EQU RMCT+148 02506000 RMCTTOCI EQU RMCT+160 02507000 CCT EQU RMCT+192 02508000 CCTFLG1 EQU CCT+124 02509000 ICT EQU RMCT+320 02510000 ICCMXICT EQU ICT+8 02511000 ICCMNUIN EQU ICT+12 02512000 ICCMNSWP EQU ICT+16 02513000 ICCLCLST EQU ICT+20 02514000 ICCMNIOR EQU ICT+26 02515000 ICCRVSCF EQU ICT+28 02516000 ICCMAXRV EQU ICT+30 02517000 ICCMINRV EQU ICT+32 02518000 ICCDASF1 EQU ICT+34 02519000 ICCDASF2 EQU ICT+36 02520000 ICCHIUTH EQU ICT+38 02521000 ICCLOUTH EQU ICT+40 02522000 ICCSIGUP EQU ICT+56 02523000 ICCEDSUT EQU ICT+60 02524000 ICVLUTBT EQU ICT+64 02525000 ICVLCBPT EQU ICT+68 02526000 ICVOLCBT EQU ICT+72 02527000 ICVULCBT EQU ICT+76 02528000 ICTFLAGS EQU ICT+84 02529000 ICTIOL EQU ICTFLAGS 02530000 ICTIOOT EQU ICTFLAGS 02531000 MCT EQU RMCT+408 02532000 MCTSFLGS EQU MCT+64 02533000 MCTOFLGS EQU MCT+65 02534000 RCT EQU RMCT+504 02535000 RCVTAPAD EQU RCT+76 02536000 RMPT EQU RMCT+592 02537000 RMPTIOC EQU RMPT+8 02538000 RMCA EQU RMCT+664 02539000 RMCAFLGS EQU RMCA+36 02540000 RMCASRC EQU RMCA+124 02541000 RMEX EQU RMCT+832 02542000 RMEPBEVT EQU RMEX 02543000 RMEPBCTL EQU RMEX+16 02544000 RMEXCTL EQU RMEPBCTL 02545000 RMEXI01 EQU RMEX+32 02546000 RMSB EQU RMCT+896 02547000 RMSBI04 EQU RMSB+8 02548000 RMSBCRY EQU RMSB+44 02549000 EPAT EQU RMCT+1016 02550000 EPDT EQU RMCT+1416 02551000 EPST EQU RMCT+1512 02552000 RMEPBWM3 EQU EPST 02553000 RMEPBIL3 EQU EPST+16 02554000 RMEPBCL3 EQU EPST+32 02555000 RMEPBCSO EQU EPST+48 02556000 RMEPBCSI EQU EPST+64 02557000 RRPA EQU 0 02558000 RRPAINC EQU RRPA 02559000 RRPAVPGN EQU RRPAINC+2 02560000 RRPAFLG0 EQU RRPAVPGN 02561000 RRPAINP EQU RRPA+4 02562000 RRPAFLG EQU RRPA+8 02563000 RRPASVC EQU RRPAFLG 02564000 RRPARCI EQU RRPAFLG+1 02565000 RRPAKEY EQU RRPA+10 02566000 RRPARTC EQU RRPA+11 02567000 RRPATOD EQU RRPA+12 02568000 RRPAINS EQU RRPA+16 02569000 RRPAEPA EQU RRPA+20 02570000 ASCB EQU 0 02571000 ASCBSUPC EQU ASCB+16 02572000 ASCBIOSM EQU ASCB+40 02573000 ASCBRSM EQU ASCB+52 02574000 ASCBRSMF EQU ASCBRSM 02575000 ASCBFW1 EQU ASCB+100 02576000 ASCBRCTF EQU ASCBFW1+2 02577000 ASCBFLG1 EQU ASCBFW1+3 02578000 ASCBASXB EQU ASCB+108 02579000 ASCBDSP1 EQU ASCB+114 02580000 ASCBFLG2 EQU ASCB+115 02581000 ASCBLKGP EQU ASCB+128 02582000 ASCBOUXB EQU ASCB+148 02583000 ASCBSRQ EQU ASCB+180 02584000 ASCBSRQ1 EQU ASCBSRQ 02585000 ASCBSRQ2 EQU ASCBSRQ+1 02586000 ASCBSRQ3 EQU ASCBSRQ+2 02587000 ASCBSRQ4 EQU ASCBSRQ+3 02588000 OUCB EQU 0 02589000 OUCBNAME EQU OUCB 02590000 OUCBFWD EQU OUCB+4 02591000 OUCBQFL EQU OUCB+16 02592000 OUCBGOO EQU OUCBQFL 02593000 OUCBGOI EQU OUCBQFL 02594000 OUCBGOB EQU OUCBQFL 02595000 OUCBOUT EQU OUCBQFL 02596000 OUCBSFL EQU OUCB+17 02597000 OUCBNSW EQU OUCBSFL 02598000 OUCBCTI EQU OUCBSFL 02599000 OUCBBIB EQU OUCBSFL 02600000 OUCBPVL EQU OUCBSFL 02601000 OUCBYFL EQU OUCB+18 02602000 OUCBAFL EQU OUCB+19 02603000 OUCBRMA EQU OUCBAFL 02604000 OUCBTFL EQU OUCB+20 02605000 OUCBEFL EQU OUCB+21 02606000 OUCBUFL EQU OUCB+23 02607000 OUCBASCB EQU OUCB+40 02608000 OUCBIMCB EQU OUCB+44 02609000 OUCBTMS EQU OUCB+68 02610000 OUCBCSW EQU OUCB+84 02611000 OUCBCFL EQU OUCBCSW+2 02612000 OUCBIRV EQU OUCB+96 02613000 OUCBIOR EQU OUCB+100 02614000 OUCBIOSM EQU OUCB+108 02615000 OUCBPSS EQU OUCB+112 02616000 OUCBTIO EQU OUCB+128 02617000 OUXB EQU 0 02618000 OUXBITD EQU OUXB+112 02619000 OUXBILS EQU OUXB+128 02620000 RMEP EQU 0 02621000 RMEPEPB EQU RMEP 02622000 RMEPFLG EQU RMEPEPB+8 02623000 RMEPSCH EQU RMEP+16 02624000 RLCT EQU 0 02625000 RLCTBIT EQU RLCT 02626000 RLCTUMWA EQU RLCT+12 02627000 RLCTRQCT EQU RLCT+20 02628000 RLCTPDCT EQU RLCT+22 02629000 RLCTDDCT EQU RLCT+24 02630000 RLCTUTIL EQU RLCT+26 02631000 RLCTUTDA EQU RLCT+28 02632000 RLCTRQRT EQU RLCT+30 02633000 RLCTRVUF EQU RLCT+32 02634000 RLCTFLGS EQU RLCT+34 02635000 RLCTOVER EQU RLCTFLGS 02636000 RLCTUNDR EQU RLCTFLGS 02637000 IMCB EQU 0 02638000 IMCBIMCB EQU IMCB 02639000 IMCBLBGN EQU IMCB+4 02640000 IMCBLEND EQU IMCB+8 02641000 IMCBSLCB EQU IMCB+12 02642000 IMCBRV EQU IMCB+20 02643000 IMCBFLGS EQU IMCB+22 02644000 IMCBLCHT EQU IMCB+24 02645000 IMCBLCH EQU 0 02646000 IMCBLCTX EQU IMCBLCH 02647000 IMCBLCUR EQU IMCBLCH+2 02648000 IMCBBLCC EQU IMCBLCH+4 02649000 ASXB EQU 0 02650000 ASXBLTCB EQU ASXB+8 02651000 ASXBAEQ EQU ASXB+168 02652000 ASXBSECR EQU ASXB+199 02653000 ASCBSFLG EQU ASXBSECR 02654000 ASXBCASW EQU ASXB+216 02655000 ASXBCRB1 EQU ASXBCASW 02656000 TCBFIX EQU 0 02657000 TCBFRS EQU TCBFIX 02658000 TCB EQU 0 02659000 TCBRBP EQU TCB 02660000 TCBPIE EQU TCB+4 02661000 TCBPMASK EQU TCBPIE 02662000 TCBCMP EQU TCB+16 02663000 TCBCMPF EQU TCBCMP 02664000 TCBCPP EQU TCBCMPF 02665000 TCBSTCC EQU TCBCMPF 02666000 TCBCDBL EQU TCBCMPF 02667000 TCBCWTO EQU TCBCMPF 02668000 TCBCIND EQU TCBCMPF 02669000 TCBCMSG EQU TCBCMPF 02670000 TCBTRN EQU TCB+20 02671000 TCBABF EQU TCBTRN 02672000 TCBMSS EQU TCB+24 02673000 TCBPKF EQU TCB+28 02674000 TCBFLGS EQU TCB+29 02675000 TCBFLGS1 EQU TCBFLGS 02676000 TCBFLGS2 EQU TCBFLGS+1 02677000 TCBFLGS3 EQU TCBFLGS+2 02678000 TCBFLGS4 EQU TCBFLGS+3 02679000 TCBFLGS5 EQU TCBFLGS+4 02680000 TCBABWF EQU TCBFLGS5 02681000 TCBJPQ EQU TCB+44 02682000 TCBPURGE EQU TCBJPQ 02683000 TCBGRS EQU TCB+48 02684000 TCBFSA EQU TCB+112 02685000 TCBTME EQU TCB+120 02686000 TCBJSTCB EQU TCB+124 02687000 TCBTSFLG EQU TCB+148 02688000 TCBTSTSK EQU TCBTSFLG 02689000 TCBSTAB EQU TCB+160 02690000 TCBNSTAE EQU TCBSTAB 02691000 TCBTCT EQU TCB+164 02692000 TCBTCTGF EQU TCBTCT 02693000 TCBSCNDY EQU TCB+172 02694000 TCBNDSP EQU TCBSCNDY 02695000 TCBNDSP1 EQU TCBNDSP+1 02696000 TCBNDSP2 EQU TCBNDSP+2 02697000 TCBNDSP3 EQU TCBNDSP+3 02698000 TCBJSCB EQU TCB+180 02699000 TCBRECDE EQU TCBJSCB 02700000 TCBEXT1 EQU TCB+196 02701000 TCBBITS EQU TCB+200 02702000 TCBNDSP4 EQU TCBBITS 02703000 TCBNDSP5 EQU TCBBITS+1 02704000 TCBFLGS6 EQU TCBBITS+2 02705000 TCBFLGS7 EQU TCBBITS+3 02706000 TCBDAR EQU TCB+204 02707000 TCBDARC EQU TCBDAR 02708000 TCBEXT2 EQU TCB+208 02709000 TCBXSCT EQU TCB+240 02710000 TCBXSCT1 EQU TCBXSCT 02711000 TCBFOE EQU TCB+244 02712000 TCBSTAWA EQU TCB+252 02713000 TCBESTAE EQU TCB+264 02714000 TCBESTRM EQU TCBESTAE+1 02715000 TCBFBYT1 EQU TCB+276 02716000 TCBFBYT2 EQU TCB+277 02717000 TCBRV124 EQU TCB+278 02718000 TCBRV133 EQU TCB+279 02719000 TCBXTNT2 EQU 0 02720000 TCBGTF EQU TCBXTNT2 02721000 TCBTFLG EQU TCBGTF 02722000 TCBRV146 EQU TCBXTNT2+28 02723000 TCBRV155 EQU TCBXTNT2+29 02724000 TCBRV164 EQU TCBXTNT2+30 02725000 TCBRV173 EQU TCBXTNT2+31 02726000 SMFTCT EQU 0 02727000 TCTSW EQU SMFTCT+3 02728000 TCTCRTBL EQU SMFTCT+8 02729000 TCTIOTBL EQU SMFTCT+12 02730000 TCTPOOL EQU SMFTCT+16 02731000 TCTJSTX EQU SMFTCT+36 02732000 TCTTJLM EQU SMFTCT+40 02733000 TCTPGSMF EQU SMFTCT+64 02734000 TCTPGIN EQU TCTPGSMF 02735000 TCTPGOUT EQU TCTPGSMF+4 02736000 TCTRGNS EQU TCTPGSMF+8 02737000 TCTCORE EQU 0 02738000 TCTTIOT EQU 0 02739000 TCTPLEXT EQU TCTTIOT 02740000 TCTIODSP EQU 0 02741000 TCTIOTSD EQU TCTIODSP+2 02742000 TCTDDENT EQU 0 02743000 TCTUCBP EQU TCTDDENT 02744000 TCTSCTR EQU TCTDDENT+2 02745000 TCTFLGS EQU TCTDDENT+3 02746000 TCTDCTR EQU TCTDDENT+4 02747000 UCB EQU 0 02748000 UCBOB EQU 0 02749000 UCBJBNR EQU UCBOB 02750000 UCBMONT EQU UCBJBNR 02751000 UCBFL5 EQU UCBOB+1 02752000 UCBAF EQU UCBFL5 02753000 UCBSTAT EQU UCBOB+3 02754000 UCBCHAN EQU UCBOB+4 02755000 UCBSFLS EQU UCBOB+6 02756000 UCBFLA EQU UCBSFLS 02757000 UCBFL1 EQU UCBFLA 02758000 UCBBSY EQU UCBFL1 02759000 UCBNRY EQU UCBFL1 02760000 UCBNOTRD EQU UCBNRY 02761000 UCBPST EQU UCBFL1 02762000 UCBCUB EQU UCBFL1 02763000 UCBFLB EQU UCBSFLS+1 02764000 UCBCHM EQU UCBOB+8 02765000 UCBCHM1 EQU UCBCHM 02766000 UCBPTH0 EQU UCBCHM1 02767000 UCBPTH1 EQU UCBCHM1 02768000 UCBLCI EQU UCBOB+10 02769000 UCBWGT EQU UCBOB+12 02770000 UCBTYP EQU UCBOB+16 02771000 UCBTBYT1 EQU UCBTYP 02772000 UCB1FEA5 EQU UCBTBYT1 02773000 UCB1FEA6 EQU UCBTBYT1 02774000 UCBTBYT2 EQU UCBTYP+1 02775000 UCB2OPT2 EQU UCBTBYT2 02776000 UCBDUDN1 EQU UCB2OPT2 02777000 UCB2OPT3 EQU UCBTBYT2 02778000 UCBDUDN2 EQU UCB2OPT3 02779000 UCB2OPT4 EQU UCBTBYT2 02780000 UCBRWTAU EQU UCB2OPT4 02781000 UCB2OPT6 EQU UCBTBYT2 02782000 UCB2OPT7 EQU UCBTBYT2 02783000 UCBTBYT3 EQU UCBTYP+2 02784000 UCBDVCLS EQU UCBTBYT3 02785000 UCB3TAPE EQU UCBDVCLS 02786000 UCB3DACC EQU UCBDVCLS 02787000 UCBTBYT4 EQU UCBTYP+3 02788000 UCBEXTPT EQU UCBOB+20 02789000 UCBFLC EQU UCBEXTPT 02790000 UCBDEV EQU UCBOB+24 02791000 UCBCMEXT EQU 0 02792000 UCBATI EQU UCBCMEXT+3 02793000 @NM00012 EQU UCBATI 02794000 UCBFLP1 EQU UCBCMEXT+5 02795000 UCBMT EQU 0 02796000 UCBOCR EQU 0 02797000 UCB3540X EQU 0 02798000 UCBDKBYT EQU UCB3540X+6 02799000 UCB3800X EQU 0 02800000 UCBOPTNS EQU UCB3800X 02801000 UCBACTIV EQU UCB3800X+3 02802000 UCBMDRBF EQU UCB3800X+36 02803000 UCBUCS EQU 0 02804000 UCBUCSOP EQU UCBUCS+4 02805000 UCBFCBOP EQU UCBUCS+5 02806000 SMCABASE EQU 0 02807000 SMCAOPT EQU SMCABASE 02808000 SMCAOPT2 EQU SMCAOPT 02809000 SMCADSA EQU SMCAOPT 02810000 SMCAMISC EQU SMCABASE+1 02811000 SMCABUF EQU SMCABASE+12 02812000 SMCAPSTA EQU SMCABASE+30 02813000 SMCAPLBL EQU SMCABASE+34 02814000 SMCASTA EQU SMCABASE+46 02815000 SMCAALBL EQU SMCABASE+50 02816000 SMCAENTY EQU SMCABASE+80 02817000 SMCAENDI EQU SMCAENTY 02818000 SMCAFOPT EQU SMCABASE+82 02819000 SMCASWA EQU SMCABASE+104 02820000 SMCAASCB EQU SMCABASE+120 02821000 SMCAPGIN EQU SMCABASE+136 02822000 SMCAPGOT EQU SMCABASE+140 02823000 LCH EQU 0 02824000 LCHENTRY EQU LCH 02825000 LCHFLA EQU LCH+21 02826000 CVTMAP EQU 0 02827000 CVTDAR EQU CVTMAP+72 02828000 CVTFLGS1 EQU CVTDAR 02829000 CVTDCB EQU CVTMAP+116 02830000 CVTIOQET EQU CVTMAP+120 02831000 CVTILCH EQU CVTMAP+140 02832000 CVTIERLC EQU CVTMAP+144 02833000 CVTHEAD EQU CVTMAP+160 02834000 CVTSV76C EQU CVTHEAD 02835000 CVTOPTA EQU CVTMAP+182 02836000 CVTOPTB EQU CVTMAP+183 02837000 CVTSMCA EQU CVTMAP+196 02838000 CVTGTF EQU CVTMAP+236 02839000 CVTGTFST EQU CVTGTF 02840000 CVTGTFS EQU CVTGTFST 02841000 CVTSTATE EQU CVTGTFST 02842000 CVTTMODE EQU CVTGTFST 02843000 CVTFORM EQU CVTGTFST 02844000 CVTAQAVT EQU CVTMAP+240 02845000 CVTTCMFG EQU CVTAQAVT 02846000 CVTVOLM2 EQU CVTMAP+244 02847000 CVTTATA EQU CVTVOLM2 02848000 CVTTSKS EQU CVTTATA 02849000 CVTVOLF2 EQU CVTTSKS 02850000 CVTTAT EQU CVTTATA+1 02851000 CVTATER EQU CVTMAP+248 02852000 CVTEXT1 EQU CVTMAP+252 02853000 CVTPURG EQU CVTMAP+260 02854000 CVTQMSG EQU CVTMAP+268 02855000 CVTDMSR EQU CVTMAP+272 02856000 CVTRSV37 EQU CVTDMSR 02857000 CVTDMSRF EQU CVTRSV37 02858000 CVTERPV EQU CVTMAP+316 02859000 CVTINTLA EQU CVTMAP+320 02860000 CVTAPF EQU CVTMAP+324 02861000 CVTEXT2 EQU CVTMAP+328 02862000 CVTHJES EQU CVTMAP+332 02863000 CVTPGSIA EQU CVTMAP+348 02864000 CVTA1F1 EQU CVTMAP+356 02865000 CVTSYSK EQU CVTMAP+357 02866000 CVTVOLM1 EQU CVTMAP+380 02867000 CVTVOLF1 EQU CVTVOLM1 02868000 CVTATMCT EQU CVTMAP+388 02869000 CVTXTNT1 EQU 0 02870000 CVTXTNT2 EQU 0 02871000 CVTDSSV EQU CVTXTNT2 02872000 CVTFLGBT EQU CVTXTNT2+5 02873000 CVTQID EQU CVTXTNT2+24 02874000 CVTRV400 EQU CVTXTNT2+52 02875000 CVTRV409 EQU CVTXTNT2+53 02876000 CVTATCVT EQU CVTXTNT2+64 02877000 CVTRV429 EQU CVTXTNT2+84 02878000 CVTRV438 EQU CVTXTNT2+85 02879000 CVTRV457 EQU CVTXTNT2+112 02880000 CVTRV466 EQU CVTXTNT2+113 02881000 CVTFIX EQU 0 02882000 CVTRELNO EQU CVTFIX+252 02883000 LCHTAB EQU 0 02884000 LCHTOTCT EQU LCHTAB+24 02885000 LCHLGBCT EQU LCHTAB+28 02886000 LCHPYBCT EQU LCHTAB+30 02887000 DEVINPUT EQU 0 02888000 DEVIN1 EQU DEVINPUT 02889000 DEVIN2 EQU DEVINPUT+4 02890000 DEVIN3 EQU DEVINPUT+8 02891000 DEVUCBL1 EQU 0 02892000 DEVCT1 EQU DEVUCBL1 02893000 DEVPTR1 EQU DEVUCBL1+4 02894000 DEVUCBL2 EQU 0 02895000 DEVCT2 EQU DEVUCBL2 02896000 DEVPTR2 EQU DEVUCBL2+4 02897000 DEVRETRN EQU 0 02898000 DEVUCB EQU DEVRETRN 02899000 DEVRTC EQU DEVRETRN+4 02900000 DEVUCB1 EQU 0 02901000 DEVUCB2 EQU 0 02902000 UCBPTR2 EQU 0 02903000 IDXPTR EQU 0 02904000 RLCTPTR2 EQU 0 02905000 JDXPTR EQU 0 02906000 DEVEP EQU 0 02907000 DEVEPA EQU 0 02908000 UCBBGN EQU 0 02909000 RMEPPTR EQU RRPAEPA 02910000 ASXBPTR EQU ASCBASXB 02911000 UCBOBS01 EQU UCBDEV 02912000 UCBSTAB EQU UCBOBS01+10 02913000 UCBBSVL EQU UCBSTAB 02914000 UCBPRSRS EQU UCBSTAB 02915000 UCBBPRV EQU UCBSTAB 02916000 UCBDMCT EQU UCBOBS01+11 02917000 UCBFL4 EQU UCBOBS01+13 02918000 UCBUSER EQU UCBOBS01+14 02919000 UCBOBS02 EQU UCBDEV 02920000 UCBTFL1 EQU UCBOBS02+19 02921000 UCBXTN EQU UCBOBS02+20 02922000 UCBVOPT EQU UCBXTN 02923000 UCBOBS03 EQU UCBDEV 02924000 UCBXTADR EQU UCBOBS03 02925000 UCBOBS04 EQU UCBDEV 02926000 UCBBTA EQU UCBOBS04+12 02927000 UCBOBS06 EQU UCBDEV 02928000 UCBAOF EQU UCBOBS06 02929000 UCBAOF1 EQU UCBAOF 02930000 UCBAOF2 EQU UCBAOF+1 02931000 @NM00011 EQU UCBOBS06+3 02932000 UCBIRB EQU UCBOBS06+4 02933000 UCBGRAF EQU UCBIRB 02934000 UCBLDNCA EQU UCBOBS06+8 02935000 UCBRDYQ EQU UCBLDNCA 02936000 UCBIRLN EQU UCBRDYQ 02937000 UCBLDNCB EQU UCBRDYQ+1 02938000 UCBCTLNK EQU UCBOBS06+12 02939000 UCBOBS07 EQU UCBDEV 02940000 UCBOBS08 EQU UCBDEV 02941000 UCBCTCAD EQU UCBOBS08 02942000 UCBCTCF1 EQU UCBOBS08+4 02943000 UCBOBS09 EQU UCBDEV 02944000 PSARSVTE EQU PSARSVT 02945000 CVTPTR EQU FLCCVT 02946000 CVTS01 EQU CVTPGSIA 02947000 CVTLPDIA EQU CVTS01+12 02948000 CVTDIRST EQU CVTLPDIA 02949000 CVTSLIDA EQU CVTS01+24 02950000 CVTCTLFG EQU CVTS01+50 02951000 CVTRV210 EQU CVTS01+424 02952000 CVTRV219 EQU CVTS01+425 02953000 CVTRV228 EQU CVTS01+426 02954000 CVTRV237 EQU CVTS01+427 02955000 CVTMFRTR EQU CVTS01+452 02956000 CVTRV262 EQU CVTS01+468 02957000 CVTRV271 EQU CVTS01+469 02958000 CVTRV280 EQU CVTS01+470 02959000 CVTRV289 EQU CVTS01+471 02960000 CVTGSDA EQU CVTS01+600 02961000 DAIOSM EQU ASCBIOSM 02962000 DEVRV EQU RMCTTOCI+4 02963000 FLC EQU PSA 02964000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02965000 CVTRV628 EQU CVTS01+728 02966000 CVTRV627 EQU CVTS01+724 02967000 CVTRV626 EQU CVTS01+720 02968000 CVTRV625 EQU CVTS01+716 02969000 CVTRV624 EQU CVTS01+712 02970000 CVTRV623 EQU CVTS01+708 02971000 CVTRV622 EQU CVTS01+704 02972000 CVTRV621 EQU CVTS01+700 02973000 CVTIHASU EQU CVTS01+696 02974000 CVTSUSP EQU CVTS01+692 02975000 CVTT6SVC EQU CVTS01+688 02976000 CVTCDAL EQU CVTS01+684 02977000 CVTTCTL EQU CVTS01+680 02978000 CVTRSUME EQU CVTS01+676 02979000 CVTJTERM EQU CVTS01+672 02980000 CVTASMRM EQU CVTS01+668 02981000 CVTTCASP EQU CVTS01+664 02982000 CVT0PT03 EQU CVTS01+660 02983000 CVT0PT0E EQU CVTS01+656 02984000 CVTRV609 EQU CVTS01+652 02985000 CVTCGK EQU CVTS01+648 02986000 CVTRAC EQU CVTS01+644 02987000 CVTHSM EQU CVTS01+640 02988000 CVTRV605 EQU CVTS01+636 02989000 CVTRV604 EQU CVTS01+632 02990000 CVTEFF02 EQU CVTS01+628 02991000 CVTCBBR EQU CVTS01+624 02992000 CVTSSCR EQU CVTS01+620 02993000 CVTEVENT EQU CVTS01+616 02994000 CVTCRCA EQU CVTS01+612 02995000 CVTTPIO EQU CVTS01+608 02996000 CVTADV EQU CVTS01+604 02997000 CVTGSDAB EQU CVTGSDA 02998000 CVTQV3 EQU CVTS01+596 02999000 CVTQV2 EQU CVTS01+592 03000000 CVTQV1 EQU CVTS01+588 03001000 CVTRPT EQU CVTS01+584 03002000 CVTSSRB EQU CVTS01+580 03003000 CVTCSDRL EQU CVTS01+576 03004000 CVTEXP1 EQU CVTS01+572 03005000 CVTRMPMT EQU CVTS01+568 03006000 CVTRMPTT EQU CVTS01+564 03007000 CVTVPSA EQU CVTS01+560 03008000 CVTVSTOP EQU CVTS01+556 03009000 CVTGTFR8 EQU CVTS01+552 03010000 CVTQUIT EQU CVTS01+548 03011000 CVTVACR EQU CVTS01+544 03012000 CVTWTCB EQU CVTS01+540 03013000 CVTSTPRS EQU CVTS01+536 03014000 CVT0PT02 EQU CVTS01+532 03015000 CVTDARCM EQU CVTS01+528 03016000 CVTIRECM EQU CVTS01+524 03017000 CVTJRECM EQU CVTS01+520 03018000 CVTVEMS0 EQU CVTS01+516 03019000 CVTSPFRR EQU CVTS01+512 03020000 CVTRLSTG EQU CVTS01+508 03021000 CVT0TC0A EQU CVTS01+504 03022000 CVTGMBR EQU CVTS01+500 03023000 CVTLFRM EQU CVTS01+496 03024000 CVTRMBR EQU CVTS01+492 03025000 CVTVIOP EQU CVTS01+488 03026000 CVTRV307 EQU CVTS01+486 03027000 CVTRV306 EQU CVTS01+484 03028000 CVTRV305 EQU CVTS01+482 03029000 CVTRV304 EQU CVTS01+480 03030000 CVTRV303 EQU CVTS01+478 03031000 CVTRV302 EQU CVTS01+476 03032000 CVTTRCA EQU CVTS01+472 03033000 CVTRV297 EQU CVTRV289 03034000 CVTRV296 EQU CVTRV289 03035000 CVTRV295 EQU CVTRV289 03036000 CVTRV294 EQU CVTRV289 03037000 CVTRV293 EQU CVTRV289 03038000 CVTRV292 EQU CVTRV289 03039000 CVTRV291 EQU CVTRV289 03040000 CVTRV290 EQU CVTRV289 03041000 CVTRV288 EQU CVTRV280 03042000 CVTRV287 EQU CVTRV280 03043000 CVTRV286 EQU CVTRV280 03044000 CVTRV285 EQU CVTRV280 03045000 CVTRV284 EQU CVTRV280 03046000 CVTRV283 EQU CVTRV280 03047000 CVTRV282 EQU CVTRV280 03048000 CVTRV281 EQU CVTRV280 03049000 CVTRV279 EQU CVTRV271 03050000 CVTRV278 EQU CVTRV271 03051000 CVTRV277 EQU CVTRV271 03052000 CVTRV276 EQU CVTRV271 03053000 CVTRV275 EQU CVTRV271 03054000 CVTRV274 EQU CVTRV271 03055000 CVTRV273 EQU CVTRV271 03056000 CVTRV272 EQU CVTRV271 03057000 CVTRV270 EQU CVTRV262 03058000 CVTRV269 EQU CVTRV262 03059000 CVTRV268 EQU CVTRV262 03060000 CVTRV267 EQU CVTRV262 03061000 CVTRV266 EQU CVTRV262 03062000 CVTRV265 EQU CVTRV262 03063000 CVTRV264 EQU CVTRV262 03064000 CVTRV263 EQU CVTRV262 03065000 CVTVFP EQU CVTS01+464 03066000 CVTVSI EQU CVTS01+460 03067000 CVTVPSIB EQU CVTS01+456 03068000 CVTMFACT EQU CVTMFRTR 03069000 CVTMFCTL EQU CVTS01+448 03070000 CVTPVBP EQU CVTS01+444 03071000 CVTPWI EQU CVTS01+440 03072000 CVTRV254 EQU CVTS01+438 03073000 CVTRV253 EQU CVTS01+436 03074000 CVTRV252 EQU CVTS01+434 03075000 CVTRV251 EQU CVTS01+433 03076000 CVTRV250 EQU CVTS01+432 03077000 CVTRV249 EQU CVTS01+431 03078000 CVTRV248 EQU CVTS01+430 03079000 CVTRV247 EQU CVTS01+429 03080000 CVTRV246 EQU CVTS01+428 03081000 CVTRV245 EQU CVTRV237 03082000 CVTRV244 EQU CVTRV237 03083000 CVTRV243 EQU CVTRV237 03084000 CVTRV242 EQU CVTRV237 03085000 CVTRV241 EQU CVTRV237 03086000 CVTRV240 EQU CVTRV237 03087000 CVTRV239 EQU CVTRV237 03088000 CVTRV238 EQU CVTRV237 03089000 CVTRV236 EQU CVTRV228 03090000 CVTRV235 EQU CVTRV228 03091000 CVTRV234 EQU CVTRV228 03092000 CVTRV233 EQU CVTRV228 03093000 CVTRV232 EQU CVTRV228 03094000 CVTRV231 EQU CVTRV228 03095000 CVTRV230 EQU CVTRV228 03096000 CVTRV229 EQU CVTRV228 03097000 CVTRV227 EQU CVTRV219 03098000 CVTRV226 EQU CVTRV219 03099000 CVTRV225 EQU CVTRV219 03100000 CVTRV224 EQU CVTRV219 03101000 CVTRV223 EQU CVTRV219 03102000 CVTRV222 EQU CVTRV219 03103000 CVTRV221 EQU CVTRV219 03104000 CVTRV220 EQU CVTRV219 03105000 CVTRV218 EQU CVTRV210 03106000 CVTRV217 EQU CVTRV210 03107000 CVTRV216 EQU CVTRV210 03108000 CVTRV215 EQU CVTRV210 03109000 CVTRV214 EQU CVTRV210 03110000 CVTRV213 EQU CVTRV210 03111000 CVTRV212 EQU CVTRV210 03112000 CVTRV211 EQU CVTRV210 03113000 CVTLCCAT EQU CVTS01+420 03114000 CVTPCCAT EQU CVTS01+416 03115000 CVTIPCRP EQU CVTS01+412 03116000 CVTIPCRI EQU CVTS01+408 03117000 CVTIPCDS EQU CVTS01+404 03118000 CVTAIDVT EQU CVTS01+400 03119000 CVTSSAP EQU CVTS01+396 03120000 CVTEHCIR EQU CVTS01+392 03121000 CVTEHDEF EQU CVTS01+388 03122000 CVTDAIR EQU CVTS01+384 03123000 CVTPERFM EQU CVTS01+380 03124000 CVT044R2 EQU CVTS01+376 03125000 CVTFETCH EQU CVTS01+372 03126000 CVTRSTWD EQU CVTS01+368 03127000 CVTSPOST EQU CVTS01+364 03128000 CVTIOBP EQU CVTS01+360 03129000 CVTASMVT EQU CVTS01+356 03130000 CVTRECRQ EQU CVTS01+352 03131000 CVTWSAC EQU CVTS01+348 03132000 CVTRV149 EQU CVTS01+344 03133000 CVTWSAL EQU CVTS01+340 03134000 CVTSPSA EQU CVTS01+336 03135000 CVTGLMN EQU CVTS01+332 03136000 CVTVEAC0 EQU CVTS01+328 03137000 CVT062R1 EQU CVTS01+324 03138000 CVTRPOST EQU CVTS01+320 03139000 CVTDQIQE EQU CVTS01+316 03140000 CVTCSD EQU CVTS01+312 03141000 CVTLKRMA EQU CVTS01+308 03142000 CVTRSPIE EQU CVTS01+304 03143000 CVTRENQ EQU CVTS01+300 03144000 CVTLQCB EQU CVTS01+296 03145000 CVTFQCB EQU CVTS01+292 03146000 CVTQCS01 EQU CVTS01+288 03147000 CVTAPFT EQU CVTS01+284 03148000 CVTPARRL EQU CVTS01+280 03149000 CVTVWAIT EQU CVTS01+276 03150000 CVTGSPL EQU CVTS01+272 03151000 CVTLSMQ EQU CVTS01+268 03152000 CVTGSMQ EQU CVTS01+264 03153000 CVTEXPRO EQU CVTS01+260 03154000 CVTOPCTP EQU CVTS01+256 03155000 CVTSIC EQU CVTS01+252 03156000 CVTTPIOS EQU CVTS01+248 03157000 CVTRTMS EQU CVTS01+244 03158000 CVTSDBF EQU CVTS01+240 03159000 CVTSCBP EQU CVTS01+236 03160000 CVTSDMP EQU CVTS01+232 03161000 CVTSV60 EQU CVTS01+228 03162000 CVTRTMCT EQU CVTS01+224 03163000 CVTASCBL EQU CVTS01+220 03164000 CVTASCBH EQU CVTS01+216 03165000 CVTGDA EQU CVTS01+212 03166000 CVTASVT EQU CVTS01+208 03167000 CVTVVMDI EQU CVTS01+204 03168000 CVTAQTOP EQU CVTS01+200 03169000 CVTIOSCS EQU CVTS01+196 03170000 CVTSDRM EQU CVTS01+192 03171000 CVTOPTE EQU CVTS01+188 03172000 CVTSTXU EQU CVTS01+184 03173000 CVTQUIS EQU CVTS01+180 03174000 CVTPARS EQU CVTS01+176 03175000 CVTS1EE EQU CVTS01+172 03176000 CVTFRAS EQU CVTS01+168 03177000 CVTQSAS EQU CVTS01+164 03178000 CVTCRAS EQU CVTS01+160 03179000 CVTCRMN EQU CVTS01+156 03180000 CVTDELCP EQU CVTS01+152 03181000 CVTFRECL EQU CVTS01+148 03182000 CVTGETCL EQU CVTS01+144 03183000 CVTBLDCP EQU CVTS01+140 03184000 CVTAUTHL EQU CVTS01+136 03185000 CVTSCAN EQU CVTS01+132 03186000 CVTRV144 EQU CVTS01+130 03187000 CVTMAXMP EQU CVTS01+128 03188000 CVTSTCK EQU CVTS01+124 03189000 CVTRV139 EQU CVTS01+123 03190000 CVTDSSAC EQU CVTS01+122 03191000 CVTRV513 EQU CVTS01+121 03192000 CVTIOSPL EQU CVTS01+120 03193000 CVTPTGT EQU CVTS01+116 03194000 CVTCSPIE EQU CVTS01+112 03195000 CVTSMFEX EQU CVTS01+108 03196000 CVTOLT0A EQU CVTS01+104 03197000 CVTSRBRT EQU CVTS01+100 03198000 CVTPUTL EQU CVTS01+96 03199000 CVTASCRL EQU CVTS01+92 03200000 CVTASCRF EQU CVTS01+88 03201000 CVTRV326 EQU CVTS01+84 03202000 CVTRV325 EQU CVTS01+80 03203000 CVTRV324 EQU CVTS01+76 03204000 CVT0VL01 EQU CVTS01+72 03205000 CVTSHRVM EQU CVTS01+68 03206000 CVTRV332 EQU CVTS01+64 03207000 CVTTAS EQU CVTS01+60 03208000 CVTRSCN EQU CVTS01+56 03209000 CVTTRAC2 EQU CVTS01+54 03210000 CVTTRACE EQU CVTS01+52 03211000 CVTAPG EQU CVTS01+51 03212000 CVTSDTRC EQU CVTCTLFG 03213000 CVTGTRCE EQU CVTCTLFG 03214000 CVTNOMP EQU CVTCTLFG 03215000 CVTRSV79 EQU CVTCTLFG 03216000 CVTDSTAT EQU CVTCTLFG 03217000 CVTRSV78 EQU CVTCTLFG 03218000 CVTRV333 EQU CVTCTLFG 03219000 CVTRV323 EQU CVTCTLFG 03220000 CVTSPVLK EQU CVTS01+49 03221000 CVTRSV77 EQU CVTS01+48 03222000 CVTRV331 EQU CVTS01+44 03223000 CVTRV330 EQU CVTS01+40 03224000 CVTRV329 EQU CVTS01+36 03225000 CVTRV328 EQU CVTS01+32 03226000 CVTRV322 EQU CVTS01+28 03227000 CVTSLID EQU CVTSLIDA+1 03228000 CVTSYLK EQU CVTSLIDA 03229000 CVTRV321 EQU CVTS01+20 03230000 CVTRV320 EQU CVTS01+16 03231000 CVTLPDIR EQU CVTLPDIA+1 03232000 CVTRSV69 EQU CVTDIRST 03233000 CVTRSV68 EQU CVTDIRST 03234000 CVTRSV67 EQU CVTDIRST 03235000 CVTRSV66 EQU CVTDIRST 03236000 CVTRSV65 EQU CVTDIRST 03237000 CVTRSV64 EQU CVTDIRST 03238000 CVTRSV63 EQU CVTDIRST 03239000 CVTDICOM EQU CVTDIRST 03240000 CVTPVTP EQU CVTS01+8 03241000 CVTLPDSR EQU CVTS01+4 03242000 CVTGETL EQU CVTS01 03243000 PSARSAV EQU PSARSVTE+60 03244000 PSARSTK EQU PSARSVTE+56 03245000 PSAESAV3 EQU PSARSVTE+52 03246000 PSAESTK3 EQU PSARSVTE+48 03247000 PSAESAV2 EQU PSARSVTE+44 03248000 PSAESTK2 EQU PSARSVTE+40 03249000 PSAESAV1 EQU PSARSVTE+36 03250000 PSAESTK1 EQU PSARSVTE+32 03251000 PSAPSAV EQU PSARSVTE+28 03252000 PSAPSTK EQU PSARSVTE+24 03253000 PSAMSAV EQU PSARSVTE+20 03254000 PSAMSTK EQU PSARSVTE+16 03255000 PSASSAV EQU PSARSVTE+12 03256000 PSASSTK EQU PSARSVTE+8 03257000 PSANSTK EQU PSARSVTE+4 03258000 PSACSTK EQU PSARSVTE 03259000 UCBRV066 EQU UCBOBS09+4 03260000 UCBIOSBA EQU UCBOBS09 03261000 UCBRV042 EQU UCBOBS08+5 03262000 UCBRV082 EQU UCBCTCF1 03263000 UCBRV081 EQU UCBCTCF1 03264000 UCBRV080 EQU UCBCTCF1 03265000 UCBRV079 EQU UCBCTCF1 03266000 UCBRV078 EQU UCBCTCF1 03267000 UCBRV077 EQU UCBCTCF1 03268000 UCBRV076 EQU UCBCTCF1 03269000 UCBCTC80 EQU UCBCTCF1 03270000 UCBCTCAL EQU UCBCTCAD 03271000 UCBICNCB EQU UCBOBS07+4 03272000 UCBRV040 EQU UCBOBS07 03273000 UCBCTLNA EQU UCBCTLNK+1 03274000 UCBRLN EQU UCBCTLNK 03275000 UCBRDYQA EQU UCBLDNCB 03276000 UCBINRLN EQU UCBIRLN 03277000 UCBIRBA EQU UCBIRB+1 03278000 UCBRV039 EQU UCBGRAF 03279000 UCBDWNR EQU UCBGRAF 03280000 UCBRPND EQU UCBGRAF 03281000 UCBUPM EQU UCBGRAF 03282000 UCBBTAM EQU UCBGRAF 03283000 UCBDRNO EQU UCBGRAF 03284000 UCBDRO EQU UCBGRAF 03285000 UCBOIP EQU UCBGRAF 03286000 UCBATRCD EQU @NM00011 03287000 UCBSKPFG EQU @NM00011 03288000 UCBRIPND EQU @NM00011 03289000 UCBRTIAC EQU @NM00011 03290000 UCBRSV79 EQU @NM00011 03291000 UCBRSV78 EQU @NM00011 03292000 UCBRSV77 EQU @NM00011 03293000 UCBOLTEP EQU @NM00011 03294000 UCBATNCT EQU UCBOBS06+2 03295000 UCBRSV76 EQU UCBAOF2 03296000 UCBRSV75 EQU UCBAOF2 03297000 UCBRSV74 EQU UCBAOF2 03298000 UCBRSV73 EQU UCBAOF2 03299000 UCBRSV72 EQU UCBAOF2 03300000 UCBRSV71 EQU UCBAOF2 03301000 UCBRSV70 EQU UCBAOF2 03302000 UCBRSV69 EQU UCBAOF2 03303000 UCBRSV68 EQU UCBAOF1 03304000 UCBRSV67 EQU UCBAOF1 03305000 UCBRSV66 EQU UCBAOF1 03306000 UCBRSV65 EQU UCBAOF1 03307000 UCBRSV64 EQU UCBAOF1 03308000 UCBOFNL EQU UCBAOF1 03309000 UCBOFSP EQU UCBAOF1 03310000 UCBOFMCR EQU UCBAOF1 03311000 UCBBTB EQU UCBBTA+1 03312000 UCBDI EQU UCBBTA 03313000 UCBSNS EQU UCBOBS04+8 03314000 UCBTEB EQU UCBOBS04+4 03315000 UCBGCB EQU UCBOBS04+3 03316000 UCBOPEN EQU UCBOBS04+2 03317000 UCBSTART EQU UCBOBS04 03318000 UCBXTNB EQU UCBXTN+1 03319000 UCBRSV22 EQU UCBVOPT 03320000 UCBRSV21 EQU UCBVOPT 03321000 UCBRSV20 EQU UCBVOPT 03322000 UCBESVE EQU UCBVOPT 03323000 UCBERPC EQU UCBVOPT 03324000 UCBESVC EQU UCBVOPT 03325000 UCBEVA EQU UCBVOPT 03326000 UCBESV EQU UCBVOPT 03327000 UCBRV009 EQU UCBTFL1 03328000 UCBRV008 EQU UCBTFL1 03329000 UCBRV007 EQU UCBTFL1 03330000 UCBRV006 EQU UCBTFL1 03331000 UCBRV005 EQU UCBTFL1 03332000 UCBDQDSP EQU UCBTFL1 03333000 UCBNSLTP EQU UCBTFL1 03334000 UCBNLTP EQU UCBTFL1 03335000 UCBRES1B EQU UCBOBS02+18 03336000 UCBFSER EQU UCBOBS02+12 03337000 @NM00010 EQU UCBOBS02+4 03338000 UCBFSEQ EQU UCBOBS02+2 03339000 UCBFSCT EQU UCBOBS02 03340000 UCBNEXP EQU UCBOBS01+20 03341000 UCBBASE EQU UCBOBS01+16 03342000 UCBRES1A EQU UCBOBS01+15 03343000 UCBFL47 EQU UCBFL4 03344000 UCBFL46 EQU UCBFL4 03345000 UCBFL45 EQU UCBFL4 03346000 UCBRV065 EQU UCBFL4 03347000 UCBDSS EQU UCBFL4 03348000 UCBRESVP EQU UCBFL4 03349000 UCBWDAV EQU UCBFL4 03350000 UCBDAVV EQU UCBFL4 03351000 UCBSQC EQU UCBOBS01+12 03352000 UCBDATP EQU UCBOBS01+12 03353000 UCBDMC EQU UCBDMCT 03354000 UCBMOUNT EQU UCBDMCT 03355000 UCBBNUL EQU UCBSTAB 03356000 UCBSHAR EQU UCBSTAB 03357000 UCBBSTR EQU UCBSTAB 03358000 UCBBPUB EQU UCBSTAB 03359000 UCBBALB EQU UCBPRSRS 03360000 UCBPGFL EQU UCBSTAB 03361000 UCBDVSHR EQU UCBBSVL 03362000 UCBVOLI EQU UCBOBS01+4 03363000 UCBVTOC EQU UCBOBS01 03364000 @NM00042 EQU LCHTAB+26 03365000 @NM00041 EQU LCHTAB 03366000 CVTLEVL EQU CVTRELNO+2 03367000 CVTNUMB EQU CVTRELNO 03368000 CVTMDL EQU CVTFIX+250 03369000 @NM00040 EQU CVTFIX+248 03370000 @NM00039 EQU CVTFIX 03371000 CVTRV482 EQU CVTXTNT2+128 03372000 CVTRV481 EQU CVTXTNT2+124 03373000 CVTRV480 EQU CVTXTNT2+120 03374000 CVTRV479 EQU CVTXTNT2+118 03375000 CVTRV478 EQU CVTXTNT2+117 03376000 CVTRV477 EQU CVTXTNT2+116 03377000 CVTRV476 EQU CVTXTNT2+115 03378000 CVTRV475 EQU CVTXTNT2+114 03379000 CVTRV474 EQU CVTRV466 03380000 CVTRV473 EQU CVTRV466 03381000 CVTRV472 EQU CVTRV466 03382000 CVTRV471 EQU CVTRV466 03383000 CVTRV470 EQU CVTRV466 03384000 CVTRV469 EQU CVTRV466 03385000 CVTRV468 EQU CVTRV466 03386000 CVTRV467 EQU CVTRV466 03387000 CVTRV465 EQU CVTRV457 03388000 CVTRV464 EQU CVTRV457 03389000 CVTRV463 EQU CVTRV457 03390000 CVTRV462 EQU CVTRV457 03391000 CVTRV461 EQU CVTRV457 03392000 CVTRV460 EQU CVTRV457 03393000 CVTRV459 EQU CVTRV457 03394000 CVTRV458 EQU CVTRV457 03395000 CVTRV456 EQU CVTXTNT2+108 03396000 CVTRV455 EQU CVTXTNT2+104 03397000 CVTRV454 EQU CVTXTNT2+100 03398000 CVTRV453 EQU CVTXTNT2+96 03399000 CVTRV452 EQU CVTXTNT2+94 03400000 CVTRV451 EQU CVTXTNT2+92 03401000 CVTRV450 EQU CVTXTNT2+90 03402000 CVTRV449 EQU CVTXTNT2+88 03403000 CVTRV448 EQU CVTXTNT2+87 03404000 CVTRV447 EQU CVTXTNT2+86 03405000 CVTRV446 EQU CVTRV438 03406000 CVTRV445 EQU CVTRV438 03407000 CVTRV444 EQU CVTRV438 03408000 CVTRV443 EQU CVTRV438 03409000 CVTRV442 EQU CVTRV438 03410000 CVTRV441 EQU CVTRV438 03411000 CVTRV440 EQU CVTRV438 03412000 CVTRV439 EQU CVTRV438 03413000 CVTRV437 EQU CVTRV429 03414000 CVTRV436 EQU CVTRV429 03415000 CVTRV435 EQU CVTRV429 03416000 CVTRV434 EQU CVTRV429 03417000 CVTRV433 EQU CVTRV429 03418000 CVTRV432 EQU CVTRV429 03419000 CVTRV431 EQU CVTRV429 03420000 CVTRV430 EQU CVTRV429 03421000 CVTRV428 EQU CVTXTNT2+80 03422000 CVTRV427 EQU CVTXTNT2+76 03423000 CVTRV426 EQU CVTXTNT2+72 03424000 CVTRV425 EQU CVTXTNT2+68 03425000 CVTATACT EQU CVTATCVT 03426000 CVTRV423 EQU CVTXTNT2+62 03427000 CVTRV422 EQU CVTXTNT2+60 03428000 CVTRV421 EQU CVTXTNT2+58 03429000 CVTRV420 EQU CVTXTNT2+56 03430000 CVTRV419 EQU CVTXTNT2+55 03431000 CVTRV418 EQU CVTXTNT2+54 03432000 CVTRV417 EQU CVTRV409 03433000 CVTRV416 EQU CVTRV409 03434000 CVTRV415 EQU CVTRV409 03435000 CVTRV414 EQU CVTRV409 03436000 CVTRV413 EQU CVTRV409 03437000 CVTRV412 EQU CVTRV409 03438000 CVTRV411 EQU CVTRV409 03439000 CVTRV410 EQU CVTRV409 03440000 CVTRV408 EQU CVTRV400 03441000 CVTRV407 EQU CVTRV400 03442000 CVTRV406 EQU CVTRV400 03443000 CVTRV405 EQU CVTRV400 03444000 CVTRV404 EQU CVTRV400 03445000 CVTRV403 EQU CVTRV400 03446000 CVTRV402 EQU CVTRV400 03447000 CVTRV401 EQU CVTRV400 03448000 CVTICB EQU CVTXTNT2+48 03449000 CVTSKTA EQU CVTXTNT2+44 03450000 CVTCCVT EQU CVTXTNT2+40 03451000 CVTRSV98 EQU CVTXTNT2+36 03452000 CVTRSV97 EQU CVTXTNT2+34 03453000 CVTRSV96 EQU CVTXTNT2+32 03454000 CVTOLTEP EQU CVTXTNT2+28 03455000 CVTQIDA EQU CVTQID+1 03456000 CVTRSV95 EQU CVTQID 03457000 CVTRSV94 EQU CVTXTNT2+20 03458000 CVTRSV93 EQU CVTXTNT2+16 03459000 CVTRSV92 EQU CVTXTNT2+12 03460000 CVTDEBVR EQU CVTXTNT2+8 03461000 CVTRSV91 EQU CVTXTNT2+6 03462000 CVTRSV9H EQU CVTFLGBT 03463000 CVTRSV9G EQU CVTFLGBT 03464000 CVTRSV9F EQU CVTFLGBT 03465000 CVTRSV9E EQU CVTFLGBT 03466000 CVTRSV9D EQU CVTFLGBT 03467000 CVTRSV9C EQU CVTFLGBT 03468000 CVTVME EQU CVTFLGBT 03469000 CVTNPE EQU CVTFLGBT 03470000 CVTNUCLS EQU CVTXTNT2+4 03471000 CVTDSSVA EQU CVTDSSV+1 03472000 CVTRSV89 EQU CVTDSSV 03473000 CVTRSV88 EQU CVTXTNT1+8 03474000 CVTRSV87 EQU CVTXTNT1+4 03475000 CVTFACHN EQU CVTXTNT1 03476000 CVTRV488 EQU CVTMAP+412 03477000 CVTRV487 EQU CVTMAP+408 03478000 CVTRV486 EQU CVTMAP+404 03479000 CVTRV485 EQU CVTMAP+400 03480000 CVTACTAP EQU CVTMAP+396 03481000 CVTAUTH EQU CVTMAP+392 03482000 CVTATMCA EQU CVTATMCT+1 03483000 CVTATMST EQU CVTATMCT 03484000 CVTRSV61 EQU CVTMAP+384 03485000 CVTVOLT1 EQU CVTVOLM1+1 03486000 CVTVOLI1 EQU CVTVOLF1 03487000 CVTSTOA EQU CVTMAP+376 03488000 CVTRSV58 EQU CVTMAP+374 03489000 CVTRSV57 EQU CVTMAP+372 03490000 CVTDDCE EQU CVTMAP+368 03491000 CVTPNWFR EQU CVTMAP+364 03492000 CVTSMF EQU CVTMAP+360 03493000 CVTSULK EQU CVTMAP+358 03494000 CVTSLKO EQU CVTSYSK 03495000 CVTSLKP EQU CVTSYSK 03496000 CVTSLKQ EQU CVTSYSK 03497000 CVTSLKR EQU CVTSYSK 03498000 CVTRSV56 EQU CVTSYSK 03499000 CVTRSV55 EQU CVTSYSK 03500000 CVTRSV54 EQU CVTSYSK 03501000 CVTRSV53 EQU CVTSYSK 03502000 CVTRSV52 EQU CVTA1F1 03503000 CVTRSV51 EQU CVTA1F1 03504000 CVTRSV50 EQU CVTA1F1 03505000 CVTRSV49 EQU CVTA1F1 03506000 CVTRSV48 EQU CVTA1F1 03507000 CVTRSV47 EQU CVTA1F1 03508000 CVTSRSW EQU CVTA1F1 03509000 CVTPFSW EQU CVTA1F1 03510000 CVTPCVT EQU CVTMAP+352 03511000 CVTRSV46 EQU CVTMAP+344 03512000 CVTRSV45 EQU CVTMAP+340 03513000 CVTRSV44 EQU CVTMAP+338 03514000 CVTRSV43 EQU CVTMAP+336 03515000 CVTHJESA EQU CVTHJES+1 03516000 CVTRSV42 EQU CVTHJES 03517000 CVTEXT2A EQU CVTEXT2+1 03518000 CVTRSV41 EQU CVTEXT2 03519000 CVTAPFA EQU CVTAPF+1 03520000 CVTRSV40 EQU CVTAPF 03521000 CVTRV518 EQU CVTINTLA 03522000 CVTRV517 EQU CVTERPV 03523000 CVTEORM EQU CVTMAP+312 03524000 CVTMCHPR EQU CVTMAP+308 03525000 CVTTZ EQU CVTMAP+304 03526000 CVTJEPS EQU CVTMAP+300 03527000 CVTJESCT EQU CVTMAP+296 03528000 CVTMODE EQU CVTMAP+292 03529000 CVTPTRV EQU CVTMAP+288 03530000 CVTREAL EQU CVTMAP+284 03531000 CVTRSV39 EQU CVTMAP+280 03532000 CVTRSV38 EQU CVTMAP+276 03533000 CVTDMSRA EQU CVTDMSR+1 03534000 CVTRV634 EQU CVTDMSRF 03535000 CVTRV633 EQU CVTDMSRF 03536000 CVTRV632 EQU CVTDMSRF 03537000 CVTRV631 EQU CVTDMSRF 03538000 CVTRV630 EQU CVTDMSRF 03539000 CVTRV629 EQU CVTDMSRF 03540000 CVTUDUMP EQU CVTDMSRF 03541000 CVTSDUMP EQU CVTDMSRF 03542000 CVTQMSGA EQU CVTQMSG+1 03543000 CVTRSV36 EQU CVTQMSG 03544000 CVTAMFF EQU CVTMAP+264 03545000 CVTPURGA EQU CVTPURG+1 03546000 CVTRSV35 EQU CVTPURG 03547000 CVTCBSP EQU CVTMAP+256 03548000 CVTATERA EQU CVTATER+1 03549000 CVTSYST EQU CVTATER 03550000 CVTVOLT2 EQU CVTTAT 03551000 CVTVOLI2 EQU CVTVOLF2 03552000 CVTAQAVB EQU CVTAQAVT+1 03553000 CVTRSV34 EQU CVTTCMFG 03554000 CVTRSV33 EQU CVTTCMFG 03555000 CVTRSV32 EQU CVTTCMFG 03556000 CVTRSV31 EQU CVTTCMFG 03557000 CVTRSV30 EQU CVTTCMFG 03558000 CVTRSV29 EQU CVTTCMFG 03559000 CVTLDEV EQU CVTTCMFG 03560000 CVTTCRDY EQU CVTTCMFG 03561000 CVTGTFA EQU CVTGTF+1 03562000 CVTRSV27 EQU CVTGTFST 03563000 CVTRNIO EQU CVTGTFST 03564000 CVTUSR EQU CVTGTFST 03565000 CVTRV318 EQU CVTFORM 03566000 CVTRV317 EQU CVTTMODE 03567000 CVTRV316 EQU CVTSTATE 03568000 CVTRV315 EQU CVTGTFS 03569000 CVTGTFAV EQU CVTGTFS 03570000 CVT0SCR1 EQU CVTMAP+232 03571000 CVTRV515 EQU CVTMAP+228 03572000 CVTRMS EQU CVTMAP+224 03573000 CVTPATCH EQU CVTMAP+220 03574000 CVTTSCE EQU CVTMAP+216 03575000 CVTLNKSC EQU CVTMAP+214 03576000 CVTQABST EQU CVTMAP+212 03577000 CVTMDLDS EQU CVTMAP+208 03578000 CVTUSER EQU CVTMAP+204 03579000 CVTABEND EQU CVTMAP+200 03580000 CVTRSV18 EQU CVTMAP+192 03581000 CVTQLPAQ EQU CVTMAP+188 03582000 CVTQCDSR EQU CVTMAP+184 03583000 CVTRSV17 EQU CVTOPTB 03584000 CVTRSV16 EQU CVTOPTB 03585000 CVTFP EQU CVTOPTB 03586000 CVTAPTHR EQU CVTOPTB 03587000 CVTNLOG EQU CVTOPTB 03588000 CVTTOD EQU CVTOPTB 03589000 CVTCTIMS EQU CVTOPTB 03590000 CVTPROT EQU CVTOPTB 03591000 CVTXPFP EQU CVTOPTA 03592000 CVTASCII EQU CVTOPTA 03593000 CVTRSV13 EQU CVTOPTA 03594000 CVTRSV12 EQU CVTOPTA 03595000 CVTNIP EQU CVTOPTA 03596000 CVTDDR EQU CVTOPTA 03597000 CVTAPR EQU CVTOPTA 03598000 CVTCCH EQU CVTOPTA 03599000 CVTSNCTR EQU CVTMAP+180 03600000 CVTQMWR EQU CVTMAP+176 03601000 CVTQOCR EQU CVTMAP+172 03602000 CVT1EF00 EQU CVTMAP+168 03603000 CVTMZ00 EQU CVTMAP+164 03604000 CVTSV76Q EQU CVTSV76C 03605000 CVTRSV11 EQU CVTMAP+156 03606000 CVT0PT01 EQU CVTMAP+152 03607000 CVTMSER EQU CVTMAP+148 03608000 CVTRV516 EQU CVTIERLC 03609000 CVT0DS EQU CVTMAP+136 03610000 CVTFBOSV EQU CVTMAP+132 03611000 CVTNUCB EQU CVTMAP+128 03612000 CVTIXAVL EQU CVTMAP+124 03613000 CVTSV76M EQU CVTIOQET 03614000 CVTDCBA EQU CVTMAP+117 03615000 CVTMVS2 EQU CVTDCB 03616000 CVT6DAT EQU CVTDCB 03617000 CVT4MPS EQU CVTDCB 03618000 CVTRSV09 EQU CVTDCB 03619000 CVT4MS1 EQU CVTDCB 03620000 CVT2SPS EQU CVTDCB 03621000 CVT1SSS EQU CVTDCB 03622000 CVTRSV08 EQU CVTDCB 03623000 CVTSTB EQU CVTMAP+112 03624000 CVTQTD00 EQU CVTMAP+108 03625000 CVTQTE00 EQU CVTMAP+104 03626000 CVTCUCB EQU CVTMAP+100 03627000 CVTSJQ EQU CVTMAP+96 03628000 CVTPBLDL EQU CVTMAP+92 03629000 CVTTPC EQU CVTMAP+88 03630000 CVTSVDCB EQU CVTMAP+84 03631000 CVTBRET EQU CVTMAP+82 03632000 CVTEXIT EQU CVTMAP+80 03633000 CVT0FN00 EQU CVTMAP+76 03634000 CVTDARA EQU CVTDAR+1 03635000 CVTRSV07 EQU CVTFLGS1 03636000 CVTRSV06 EQU CVTFLGS1 03637000 CVTRSV05 EQU CVTFLGS1 03638000 CVTRSV04 EQU CVTFLGS1 03639000 CVTRSV03 EQU CVTFLGS1 03640000 CVTRSV02 EQU CVTFLGS1 03641000 CVTRSV01 EQU CVTFLGS1 03642000 CVTDMPLK EQU CVTFLGS1 03643000 CVTXITP EQU CVTMAP+68 03644000 CVTZDTAB EQU CVTMAP+64 03645000 CVTMSLT EQU CVTMAP+60 03646000 CVTDATE EQU CVTMAP+56 03647000 CVTBTERM EQU CVTMAP+52 03648000 CVTSYSAD EQU CVTMAP+48 03649000 CVTXTLER EQU CVTMAP+44 03650000 CVTILK2 EQU CVTMAP+40 03651000 CVTILK1 EQU CVTMAP+36 03652000 CVTPRLTV EQU CVTMAP+32 03653000 CVTPCNVT EQU CVTMAP+28 03654000 CVT0VL00 EQU CVTMAP+24 03655000 CVTXAPG EQU CVTMAP+20 03656000 CVTBUF EQU CVTMAP+16 03657000 CVTJOB EQU CVTMAP+12 03658000 CVTLINK EQU CVTMAP+8 03659000 CVT0EF00 EQU CVTMAP+4 03660000 CVTTCBP EQU CVTMAP 03661000 CVT EQU CVTMAP 03662000 LCHEND EQU LCH+32 03663000 LCHPYBSY EQU LCH+30 03664000 LCHLGBSY EQU LCH+28 03665000 LCHRSV03 EQU LCH+26 03666000 LCHTOTAL EQU LCH+24 03667000 LCHRSV02 EQU LCH+22 03668000 @NM00014 EQU LCHFLA 03669000 LCHLKHLD EQU LCHFLA 03670000 LCHCHCNT EQU LCH+20 03671000 LCHTCH EQU LCH+16 03672000 LCHRSV01 EQU LCH+12 03673000 LCHLOCK EQU LCH+8 03674000 LCHLST EQU LCH+4 03675000 LCHFST EQU LCHENTRY 03676000 SMCASTCB EQU SMCABASE+176 03677000 SMCAWTCB EQU SMCABASE+172 03678000 SMCAU83 EQU SMCABASE+168 03679000 SMCAPGM EQU SMCABASE+164 03680000 SMCARGNM EQU SMCABASE+160 03681000 SMCASPOT EQU SMCABASE+156 03682000 SMCASPIN EQU SMCABASE+152 03683000 SMCARGNS EQU SMCABASE+148 03684000 SMCAPGRL EQU SMCABASE+144 03685000 SMCADOMY EQU SMCAPGOT 03686000 SMCADOMX EQU SMCAPGIN 03687000 SMCATEXP EQU SMCABASE+132 03688000 SMCASAVE EQU SMCABASE+128 03689000 SMCARS21 EQU SMCABASE+124 03690000 SMCATJID EQU SMCAASCB+2 03691000 SMCAPOST EQU SMCAASCB 03692000 SMCADSCT EQU SMCABASE+116 03693000 SMCADSTM EQU SMCABASE+108 03694000 SMCASWD EQU SMCABASE+107 03695000 SMCASWC EQU SMCABASE+106 03696000 SMCASWB EQU SMCABASE+105 03697000 SMCADSSW EQU SMCASWA 03698000 SMCADSSP EQU SMCASWA 03699000 SMCAZEOD EQU SMCASWA 03700000 SMCANAVL EQU SMCASWA 03701000 SMCANADA EQU SMCASWA 03702000 SMCAOPFL EQU SMCASWA 03703000 SMCADSTR EQU SMCASWA 03704000 SMCASWAR EQU SMCASWA 03705000 SMCAXNAM EQU SMCABASE+96 03706000 @NM00013 EQU SMCABASE+92 03707000 SMCAXCTL EQU SMCABASE+88 03708000 SMCAWRTP EQU SMCABASE+84 03709000 SMCAENAL EQU SMCABASE+83 03710000 SMCAFGN EQU SMCAFOPT 03711000 SMCAFTDS EQU SMCAFOPT 03712000 SMCAFR01 EQU SMCAFOPT 03713000 SMCAFVOL EQU SMCAFOPT 03714000 SMCAFDSA EQU SMCAFOPT 03715000 SMCAFEXT EQU SMCAFOPT 03716000 SMCAFOP2 EQU SMCAFOPT 03717000 SMCAFOP1 EQU SMCAFOPT 03718000 SMCAENOP EQU SMCAENTY+1 03719000 SMCADSNF EQU SMCAENDI 03720000 SMCARS20 EQU SMCAENDI 03721000 SMCARS19 EQU SMCAENDI 03722000 SMCARS18 EQU SMCAENDI 03723000 SMCARS17 EQU SMCAENDI 03724000 SMCARS16 EQU SMCAENDI 03725000 SMCARS15 EQU SMCAENDI 03726000 SMCARS14 EQU SMCAENDI 03727000 SMCAWAIT EQU SMCABASE+72 03728000 SMCASGFT EQU SMCABASE+68 03729000 SMCASGWR EQU SMCABASE+64 03730000 SMCABECB EQU SMCABASE+60 03731000 SMCAWECB EQU SMCABASE+56 03732000 SMCAADCB EQU SMCABASE+52 03733000 SMCAYORX EQU SMCABASE+51 03734000 SMCAANL EQU SMCAALBL 03735000 SMCAASL EQU SMCAALBL 03736000 SMCAANSL EQU SMCAALBL 03737000 SMCARS13 EQU SMCAALBL 03738000 SMCARS12 EQU SMCAALBL 03739000 SMCARS11 EQU SMCAALBL 03740000 SMCARS10 EQU SMCAALBL 03741000 SMCARS09 EQU SMCAALBL 03742000 SMCAADAR EQU SMCABASE+47 03743000 SMCAAVOL EQU SMCASTA 03744000 SMCAAUNT EQU SMCASTA 03745000 SMCARS08 EQU SMCASTA 03746000 SMCAAMOD EQU SMCASTA 03747000 SMCAAMTY EQU SMCASTA 03748000 SMCAADA EQU SMCASTA 03749000 SMCAATAP EQU SMCASTA 03750000 SMCAANAV EQU SMCASTA 03751000 SMCAADEV EQU SMCABASE+40 03752000 SMCAPDCB EQU SMCABASE+36 03753000 SMCAXORY EQU SMCABASE+35 03754000 SMCAPNL EQU SMCAPLBL 03755000 SMCAPSL EQU SMCAPLBL 03756000 SMCAPNSL EQU SMCAPLBL 03757000 SMCARS07 EQU SMCAPLBL 03758000 SMCARS06 EQU SMCAPLBL 03759000 SMCARS05 EQU SMCAPLBL 03760000 SMCARS04 EQU SMCAPLBL 03761000 SMCARS03 EQU SMCAPLBL 03762000 SMCAPDAR EQU SMCABASE+31 03763000 SMCAPVOL EQU SMCAPSTA 03764000 SMCAPUNT EQU SMCAPSTA 03765000 SMCARS02 EQU SMCAPSTA 03766000 SMCAMOD EQU SMCAPSTA 03767000 SMCAPMTY EQU SMCAPSTA 03768000 SMCAPDA EQU SMCAPSTA 03769000 SMCAPTAP EQU SMCAPSTA 03770000 SMCAPNAV EQU SMCAPSTA 03771000 SMCAPDEV EQU SMCABASE+24 03772000 SMCABUFP EQU SMCABASE+20 03773000 SMCASID EQU SMCABASE+16 03774000 SMCABSIZ EQU SMCABUF 03775000 SMCAJWT EQU SMCABASE+8 03776000 SMCATIOT EQU SMCABASE+4 03777000 SMCATOFF EQU SMCABASE+2 03778000 SMCADUMP EQU SMCAMISC 03779000 SMCABSW EQU SMCAMISC 03780000 SMCADBSY EQU SMCAMISC 03781000 SMCAPSDP EQU SMCAMISC 03782000 SMCAFIRT EQU SMCAMISC 03783000 SMCAOPI EQU SMCAMISC 03784000 SMCAMAN EQU SMCAMISC 03785000 SMCAUSER EQU SMCAMISC 03786000 SMCAFGND EQU SMCAOPT 03787000 SMCATDS EQU SMCAOPT 03788000 SMCARS01 EQU SMCAOPT 03789000 SMCAVOL EQU SMCAOPT 03790000 SMCAEXT EQU SMCAOPT 03791000 SMCAOPT1 EQU SMCAOPT 03792000 UCBERADR EQU UCBUCS+12 03793000 UCBFCBID EQU UCBUCS+8 03794000 UCBERCNT EQU UCBUCS+7 03795000 UCBRSV51 EQU UCBUCS+6 03796000 UCBFCBPE EQU UCBFCBOP 03797000 UCBRSV49 EQU UCBFCBOP 03798000 UCBRSV48 EQU UCBFCBOP 03799000 UCBRSV47 EQU UCBFCBOP 03800000 UCBRSV46 EQU UCBFCBOP 03801000 UCBRSV45 EQU UCBFCBOP 03802000 UCBRSV44 EQU UCBFCBOP 03803000 UCBFCBO1 EQU UCBFCBOP 03804000 UCBUCSPE EQU UCBUCSOP 03805000 UCBRSV43 EQU UCBUCSOP 03806000 UCBRSV42 EQU UCBUCSOP 03807000 UCBRSV41 EQU UCBUCSOP 03808000 UCBRSV40 EQU UCBUCSOP 03809000 UCBRSV39 EQU UCBUCSOP 03810000 UCBUCSO2 EQU UCBUCSOP 03811000 UCBUCSO1 EQU UCBUCSOP 03812000 UCBUCSID EQU UCBUCS 03813000 UCBMDRBA EQU UCBMDRBF+1 03814000 UCBRV075 EQU UCBMDRBF 03815000 UCBRV074 EQU UCB3800X+32 03816000 UCBIMAGE EQU UCB3800X+28 03817000 UCBFCBNM EQU UCB3800X+24 03818000 UCBCHAR4 EQU UCB3800X+20 03819000 UCBCHAR3 EQU UCB3800X+16 03820000 UCBCHAR2 EQU UCB3800X+12 03821000 UCBCHAR1 EQU UCB3800X+8 03822000 UCBCGMID EQU UCB3800X+4 03823000 UCBBRSTA EQU UCBACTIV 03824000 UCBRV063 EQU UCBACTIV 03825000 UCBRV062 EQU UCBACTIV 03826000 UCBRV061 EQU UCBACTIV 03827000 UCBRV060 EQU UCBACTIV 03828000 UCBRV059 EQU UCBACTIV 03829000 UCBRV058 EQU UCBACTIV 03830000 UCBRV057 EQU UCBACTIV 03831000 UCBRV050 EQU UCB3800X+2 03832000 UCBCGMNO EQU UCB3800X+1 03833000 UCBRV083 EQU UCBOPTNS 03834000 UCBBRSTR EQU UCBOPTNS 03835000 UCBRV056 EQU UCBOPTNS 03836000 UCBRV055 EQU UCBOPTNS 03837000 UCBRV054 EQU UCBOPTNS 03838000 UCBRV053 EQU UCBOPTNS 03839000 UCBRV052 EQU UCBOPTNS 03840000 UCBRV051 EQU UCBOPTNS 03841000 UCBRV073 EQU UCB3540X+7 03842000 UCBRV072 EQU UCBDKBYT 03843000 UCBRV071 EQU UCBDKBYT 03844000 UCBRV070 EQU UCBDKBYT 03845000 UCBRV069 EQU UCBDKBYT 03846000 UCBRV068 EQU UCBDKBYT 03847000 UCBRV067 EQU UCBDKBYT 03848000 UCBVLVER EQU UCBDKBYT 03849000 UCBDKAMX EQU UCBDKBYT 03850000 UCBVLSER EQU UCB3540X 03851000 UCBRDATA EQU UCBOCR+4 03852000 UCBFRID EQU UCBOCR 03853000 UCBCLN EQU UCBMT+14 03854000 UCBERG EQU UCBMT+12 03855000 UCBMS EQU UCBMT+11 03856000 UCBNB EQU UCBMT+10 03857000 UCBPW EQU UCBMT+9 03858000 UCBPR EQU UCBMT+8 03859000 UCBSIO EQU UCBMT+6 03860000 UCBTW EQU UCBMT+5 03861000 UCBTR EQU UCBMT+4 03862000 UCBTWT EQU UCBMT+3 03863000 UCBTRT EQU UCBMT+2 03864000 UCBCTD EQU UCBMT 03865000 UCBWTOID EQU UCBCMEXT+17 03866000 UCBRV043 EQU UCBCMEXT+16 03867000 UCBASID EQU UCBCMEXT+14 03868000 UCBMFCNT EQU UCBCMEXT+12 03869000 UCBPMSK EQU UCBCMEXT+10 03870000 UCBCCWOF EQU UCBCMEXT+8 03871000 UCBRV041 EQU UCBCMEXT+6 03872000 UCBRV036 EQU UCBFLP1 03873000 UCBRV035 EQU UCBFLP1 03874000 UCBERLOG EQU UCBFLP1 03875000 UCBRV033 EQU UCBFLP1 03876000 UCBINHIO EQU UCBFLP1 03877000 UCBNSWAP EQU UCBFLP1 03878000 UCBSHRUP EQU UCBFLP1 03879000 UCBNSRCH EQU UCBFLP1 03880000 UCBSNSCT EQU UCBCMEXT+4 03881000 UCBHPDV EQU @NM00012 03882000 UCBHALI EQU @NM00012 03883000 UCBRSV09 EQU @NM00012 03884000 UCBRSV08 EQU @NM00012 03885000 UCBRSV07 EQU @NM00012 03886000 UCBRSV06 EQU @NM00012 03887000 UCBRSV05 EQU @NM00012 03888000 UCBRSV04 EQU @NM00012 03889000 UCBDTI EQU UCBCMEXT+2 03890000 UCBSTI EQU UCBCMEXT+1 03891000 UCBETI EQU UCBCMEXT 03892000 UCBEXTP EQU UCBEXTPT+1 03893000 UCBDDRSW EQU UCBFLC 03894000 UCBTICBT EQU UCBFLC 03895000 UCBIVRR EQU UCBFLC 03896000 UCBIVRS EQU UCBFLC 03897000 UCBITF EQU UCBFLC 03898000 UCBUDE EQU UCBFLC 03899000 UCBWAA EQU UCBFLC 03900000 UCBATTP EQU UCBFLC 03901000 UCBUNTYP EQU UCBTBYT4 03902000 UCBRSV11 EQU UCBDVCLS 03903000 UCBRSV10 EQU UCBDVCLS 03904000 UCB3CHAR EQU UCBDVCLS 03905000 UCB3UREC EQU UCBDVCLS 03906000 UCB3DISP EQU UCBDVCLS 03907000 UCB3COMM EQU UCBDVCLS 03908000 UCBDVPWR EQU UCB2OPT7 03909000 UCBVLPWR EQU UCB2OPT6 03910000 UCB2OPT5 EQU UCBTBYT2 03911000 UCBRVDEV EQU UCBRWTAU 03912000 UCBRPS EQU UCBDUDN2 03913000 UCBRR EQU UCBDUDN1 03914000 UCB2OPT1 EQU UCBTBYT2 03915000 UCB2OPT0 EQU UCBTBYT2 03916000 UCB1FEA7 EQU UCBTBYT1 03917000 UCBD6250 EQU UCB1FEA6 03918000 UCBD1600 EQU UCB1FEA5 03919000 UCB1FEA4 EQU UCBTBYT1 03920000 UCB1FEA3 EQU UCBTBYT1 03921000 UCB1FEA2 EQU UCBTBYT1 03922000 UCB1FEA1 EQU UCBTBYT1 03923000 UCB1FEA0 EQU UCBTBYT1 03924000 UCBNAME EQU UCBOB+13 03925000 UCBRV029 EQU UCBWGT 03926000 UCBVHRSN EQU UCBWGT 03927000 UCBVORSN EQU UCBWGT 03928000 UCBMTPXP EQU UCBWGT 03929000 UCBREW EQU UCBWGT 03930000 UCBPUB EQU UCBWGT 03931000 UCBOUT EQU UCBWGT 03932000 UCBIN EQU UCBWGT 03933000 UCBCPU EQU UCBOB+11 03934000 UCBCNT EQU UCBOB+9 03935000 UCBRV017 EQU UCBCHM1 03936000 UCBRV016 EQU UCBCHM1 03937000 UCBRV015 EQU UCBCHM1 03938000 UCBRV014 EQU UCBCHM1 03939000 UCBSPB EQU UCBPTH1 03940000 UCBPPB EQU UCBPTH1 03941000 UCBSPA EQU UCBPTH0 03942000 UCBPPA EQU UCBPTH0 03943000 UCBSIGP EQU UCBFLB 03944000 UCBVALPH EQU UCBFLB 03945000 UCBCRHSN EQU UCBFLB 03946000 UCBCRHRV EQU UCBFLB 03947000 UCBRESVH EQU UCBFLB 03948000 UCBSPST EQU UCBFLB 03949000 UCBASNS EQU UCBFLB 03950000 UCBIORST EQU UCBFLB 03951000 UCBQISCE EQU UCBFL1 03952000 UCBACTV EQU UCBFL1 03953000 UCBSAP EQU UCBFL1 03954000 UCBNOTRC EQU UCBCUB 03955000 UCBPSNS EQU UCBFL1 03956000 UCBUSING EQU UCBPST 03957000 UCBBUSYD EQU UCBBSY 03958000 UCBUA EQU UCBCHAN+1 03959000 UCBCHA EQU UCBCHAN 03960000 UCBDADI EQU UCBSTAT 03961000 UCBSYSR EQU UCBSTAT 03962000 UCBPRES EQU UCBSTAT 03963000 UCBALOC EQU UCBSTAT 03964000 UCBUNLD EQU UCBSTAT 03965000 UCBRESV EQU UCBSTAT 03966000 UCBCHGS EQU UCBSTAT 03967000 UCBONLI EQU UCBSTAT 03968000 UCBID EQU UCBOB+2 03969000 UCBALTPH EQU UCBFL5 03970000 UCBALTCU EQU UCBFL5 03971000 UCBNALOC EQU UCBFL5 03972000 UCBENVRD EQU UCBFL5 03973000 UCBVSDR EQU UCBFL5 03974000 UCBSASK EQU UCBFL5 03975000 UCBAMV EQU UCBAF 03976000 UCBDCC EQU UCBFL5 03977000 UCBRV011 EQU UCBJBNR 03978000 UCBMMSGP EQU UCBJBNR 03979000 UCBOLDSM EQU UCBJBNR 03980000 UCBRV003 EQU UCBJBNR 03981000 UCBDUC EQU UCBJBNR 03982000 UCBJES3 EQU UCBJBNR 03983000 UCBVRDEV EQU UCBJBNR 03984000 UCBCMSEG EQU UCBOB 03985000 UCBPFXND EQU UCB+512 03986000 UCBIOQ EQU UCB+508 03987000 UCBLOCK EQU UCB+504 03988000 UCBPXST EQU UCB+504 03989000 @NM00009 EQU UCB 03990000 TCTTKRLD EQU TCTDDENT+13 03991000 TCTEXRLD EQU TCTDDENT+12 03992000 TCTRSV10 EQU TCTDDENT+8 03993000 TCTRSV26 EQU TCTFLGS 03994000 TCTRSV25 EQU TCTFLGS 03995000 TCTRSV24 EQU TCTFLGS 03996000 TCTRSV23 EQU TCTFLGS 03997000 TCTRSV22 EQU TCTFLGS 03998000 TCTNOCNT EQU TCTFLGS 03999000 TCTVAMDS EQU TCTFLGS 04000000 TCTDDIND EQU TCTFLGS 04001000 TCTDCBLE EQU TCTIODSP+4 04002000 TCTDCBTD EQU TCTIODSP 04003000 TCTRSV11 EQU TCTTIOT+6 04004000 TCTSZLKP EQU TCTTIOT+4 04005000 TCTSZEXT EQU TCTPLEXT+2 04006000 @NM00008 EQU TCTPLEXT 04007000 TCTLCS EQU TCTCORE+16 04008000 TCTRBA EQU TCTCORE+12 04009000 TCTRSZ EQU TCTCORE+10 04010000 TCTMINC EQU TCTCORE+8 04011000 TCTHWM EQU TCTCORE+4 04012000 TCTLWM EQU TCTCORE 04013000 TCTSOUT EQU TCTPGSMF+16 04014000 TCTSIN EQU TCTPGSMF+12 04015000 TCTATR EQU TCTRGNS 04016000 TCTACT EQU TCTPGOUT 04017000 TCTAJS EQU TCTPGIN 04018000 TCTPPST EQU SMFTCT+60 04019000 TCTAST EQU SMFTCT+56 04020000 TCTLOUT EQU SMFTCT+52 04021000 TCTLIN EQU SMFTCT+48 04022000 TCTWLMT EQU SMFTCT+44 04023000 TCTSACT EQU TCTTJLM 04024000 TCTSTOF EQU TCTJSTX 04025000 TCTRSV08 EQU SMFTCT+32 04026000 TCTJMR EQU SMFTCT+28 04027000 TCTUDATA EQU SMFTCT+24 04028000 TCTUTL EQU SMFTCT+20 04029000 TCTSZE EQU TCTPOOL+2 04030000 @NM00007 EQU TCTPOOL 04031000 TCTTCB EQU SMFTCT+4 04032000 TCTRSV07 EQU TCTSW 04033000 TCTRSV06 EQU TCTSW 04034000 TCTRSV05 EQU TCTSW 04035000 TCTRSV04 EQU TCTSW 04036000 TCTRSV03 EQU TCTSW 04037000 TCTRSV02 EQU TCTSW 04038000 TCTIEX EQU TCTSW 04039000 TCTJSTI EQU TCTSW 04040000 TCTQA EQU SMFTCT 04041000 @NM00006 EQU TCBXTNT2+32 04042000 TCBRV181 EQU TCBRV173 04043000 TCBRV180 EQU TCBRV173 04044000 TCBRV179 EQU TCBRV173 04045000 TCBRV178 EQU TCBRV173 04046000 TCBRV177 EQU TCBRV173 04047000 TCBRV176 EQU TCBRV173 04048000 TCBRV175 EQU TCBRV173 04049000 TCBRV174 EQU TCBRV173 04050000 TCBRV172 EQU TCBRV164 04051000 TCBRV171 EQU TCBRV164 04052000 TCBRV170 EQU TCBRV164 04053000 TCBRV169 EQU TCBRV164 04054000 TCBRV168 EQU TCBRV164 04055000 TCBRV167 EQU TCBRV164 04056000 TCBRV166 EQU TCBRV164 04057000 TCBRV165 EQU TCBRV164 04058000 TCBRV163 EQU TCBRV155 04059000 TCBRV162 EQU TCBRV155 04060000 TCBRV161 EQU TCBRV155 04061000 TCBRV160 EQU TCBRV155 04062000 TCBRV159 EQU TCBRV155 04063000 TCBRV158 EQU TCBRV155 04064000 TCBRV157 EQU TCBRV155 04065000 TCBRV156 EQU TCBRV155 04066000 TCBRV154 EQU TCBRV146 04067000 TCBRV153 EQU TCBRV146 04068000 TCBRV152 EQU TCBRV146 04069000 TCBRV151 EQU TCBRV146 04070000 TCBRV150 EQU TCBRV146 04071000 TCBRV149 EQU TCBRV146 04072000 TCBRV148 EQU TCBRV146 04073000 TCBRV147 EQU TCBRV146 04074000 TCBRV145 EQU TCBXTNT2+26 04075000 TCBRV144 EQU TCBXTNT2+24 04076000 TCBCAUF EQU TCBXTNT2+20 04077000 TCBRV142 EQU TCBXTNT2+16 04078000 TCBRSV49 EQU TCBXTNT2+12 04079000 TCBEVENT EQU TCBXTNT2+8 04080000 TCBRCMP EQU TCBXTNT2+5 04081000 TCBRSVAB EQU TCBXTNT2+4 04082000 TCBGTFA EQU TCBGTF+1 04083000 TCBRSV47 EQU TCBTFLG 04084000 TCBRSV46 EQU TCBTFLG 04085000 TCBRSV45 EQU TCBTFLG 04086000 TCBRSV44 EQU TCBTFLG 04087000 TCBRSV43 EQU TCBTFLG 04088000 TCBDSPIT EQU TCBTFLG 04089000 TCBERRTN EQU TCBTFLG 04090000 TCBASYNC EQU TCBTFLG 04091000 @NM00005 EQU TCB+296 04092000 TCBSVCA2 EQU TCB+292 04093000 TCBSWASA EQU TCB+288 04094000 TCBDBTB EQU TCB+284 04095000 TCBRPT EQU TCB+280 04096000 TCBRV141 EQU TCBRV133 04097000 TCBRV140 EQU TCBRV133 04098000 TCBRV139 EQU TCBRV133 04099000 TCBRV138 EQU TCBRV133 04100000 TCBRV137 EQU TCBRV133 04101000 TCBRV136 EQU TCBRV133 04102000 TCBRV135 EQU TCBRV133 04103000 TCBRV134 EQU TCBRV133 04104000 TCBRV132 EQU TCBRV124 04105000 TCBRV131 EQU TCBRV124 04106000 TCBRV130 EQU TCBRV124 04107000 TCBRV129 EQU TCBRV124 04108000 TCBRV128 EQU TCBRV124 04109000 TCBRV127 EQU TCBRV124 04110000 TCBRV126 EQU TCBRV124 04111000 TCBRV125 EQU TCBRV124 04112000 TCBRV123 EQU TCBFBYT2 04113000 TCBRV122 EQU TCBFBYT2 04114000 TCBECBNV EQU TCBFBYT2 04115000 TCBSSSYN EQU TCBFBYT2 04116000 TCBFPRAP EQU TCBFBYT2 04117000 TCBFDW EQU TCBFBYT2 04118000 TCBFMW EQU TCBFBYT2 04119000 TCBCNCB EQU TCBFBYT2 04120000 TCBLLH EQU TCBFBYT1 04121000 TCBRV113 EQU TCBFBYT1 04122000 TCBEOT EQU TCBFBYT1 04123000 TCBRTM2 EQU TCBFBYT1 04124000 TCBPGNLY EQU TCBFBYT1 04125000 TCBNDIOS EQU TCBFBYT1 04126000 TCBRV327 EQU TCBFBYT1 04127000 TCBEOTFM EQU TCBFBYT1 04128000 TCBAFFN EQU TCB+274 04129000 TCBRV326 EQU TCB+272 04130000 TCBUKYSP EQU TCB+268 04131000 TCBMODE EQU TCBESTAE+3 04132000 TCBERTYP EQU TCBESTAE+2 04133000 TCBRV314 EQU TCBESTRM 04134000 TCBRV313 EQU TCBESTRM 04135000 TCBRV312 EQU TCBESTRM 04136000 TCBRV311 EQU TCBESTRM 04137000 TCBRV310 EQU TCBESTRM 04138000 TCBRV309 EQU TCBESTRM 04139000 TCBRV308 EQU TCBESTRM 04140000 TCBETERM EQU TCBESTRM 04141000 TCBSCBKY EQU TCBESTAE 04142000 TCBRTM12 EQU TCB+260 04143000 TCBTCBID EQU TCB+256 04144000 TCBSTAFX EQU TCBSTAWA 04145000 TCBSWA EQU TCB+248 04146000 TCBFOEA EQU TCBFOE+1 04147000 TCBRSV42 EQU TCBFOE 04148000 TCBCCPVI EQU TCBXSCT+2 04149000 TCBRV325 EQU TCBXSCT+1 04150000 TCBRV324 EQU TCBXSCT1 04151000 TCBRV323 EQU TCBXSCT1 04152000 TCBRV322 EQU TCBXSCT1 04153000 TCBRV321 EQU TCBXSCT1 04154000 TCBRV320 EQU TCBXSCT1 04155000 TCBRV319 EQU TCBXSCT1 04156000 TCBS3A EQU TCBXSCT1 04157000 TCBACTIV EQU TCBXSCT1 04158000 TCBRSV41 EQU TCB+239 04159000 TCBTID EQU TCB+238 04160000 TCBRSVAA EQU TCB+237 04161000 TCBABCUR EQU TCB+236 04162000 TCBTMSAV EQU TCB+232 04163000 TCBIOTIM EQU TCB+228 04164000 TCBRTWA EQU TCB+224 04165000 TCBBACK EQU TCB+220 04166000 TCBTIRB EQU TCB+216 04167000 TCBAECB EQU TCB+212 04168000 TCBEXT2A EQU TCBEXT2+1 04169000 TCBRSV39 EQU TCBEXT2 04170000 TCBSTMCT EQU TCB+207 04171000 TCBSYSCT EQU TCB+206 04172000 TCBRSV37 EQU TCB+205 04173000 TCBEXSVC EQU TCBDAR 04174000 TCBDARMS EQU TCBDAR 04175000 TCBDARWT EQU TCBDAR 04176000 TCBDARO EQU TCBDAR 04177000 TCBDARMC EQU TCBDARC 04178000 TCBDARD EQU TCBDAR 04179000 TCBDARS EQU TCBDAR 04180000 TCBDARP EQU TCBDAR 04181000 TCBGTOFM EQU TCBFLGS7 04182000 TCBADMP EQU TCBFLGS7 04183000 TCBRSTSK EQU TCBFLGS7 04184000 TCBSVCS EQU TCBFLGS7 04185000 TCBSTACK EQU TCBFLGS7 04186000 TCBRSV34 EQU TCBFLGS7 04187000 TCBRSV33 EQU TCBFLGS7 04188000 TCBGPECB EQU TCBFLGS7 04189000 TCBNTJS EQU TCBFLGS6 04190000 TCBAPG EQU TCBFLGS6 04191000 TCBMIGR EQU TCBFLGS6 04192000 TCBRV303 EQU TCBFLGS6 04193000 TCBSPVLK EQU TCBFLGS6 04194000 TCBCPU EQU TCBFLGS6 04195000 TCBPIE17 EQU TCBFLGS6 04196000 TCBRV EQU TCBFLGS6 04197000 TCBRSV79 EQU TCBNDSP5 04198000 TCBRSV78 EQU TCBNDSP5 04199000 TCBRSV77 EQU TCBNDSP5 04200000 TCBRSV76 EQU TCBNDSP5 04201000 TCBRSV75 EQU TCBNDSP5 04202000 TCBRSV74 EQU TCBNDSP5 04203000 TCBRSV95 EQU TCBNDSP5 04204000 TCBRSV94 EQU TCBNDSP5 04205000 TCBRSV93 EQU TCBNDSP4 04206000 TCBRSV92 EQU TCBNDSP4 04207000 TCBRSV91 EQU TCBNDSP4 04208000 TCBRSV90 EQU TCBNDSP4 04209000 TCBRSV89 EQU TCBNDSP4 04210000 TCBRSV88 EQU TCBNDSP4 04211000 TCBRSV87 EQU TCBNDSP4 04212000 TCBRSV86 EQU TCBNDSP4 04213000 TCBEXT1A EQU TCBEXT1+1 04214000 TCBRSV32 EQU TCBEXT1 04215000 TCBEXCPD EQU TCB+192 04216000 TCBIOBRC EQU TCB+188 04217000 TCBDDWTC EQU TCB+186 04218000 TCBDDEXC EQU TCB+184 04219000 TCBJSCBB EQU TCBJSCB+1 04220000 @NM00004 EQU TCBRECDE 04221000 TCBREC EQU TCBRECDE 04222000 TCBMDIDS EQU TCB+176 04223000 TCBNDINT EQU TCBNDSP3 04224000 TCBRSV27 EQU TCBNDSP3 04225000 TCBRSV26 EQU TCBNDSP3 04226000 TCBRSV25 EQU TCBNDSP3 04227000 TCBRSV24 EQU TCBNDSP3 04228000 TCBSRBND EQU TCBNDSP3 04229000 TCBRV302 EQU TCBNDSP3 04230000 TCBLJSND EQU TCBNDSP3 04231000 TCBABE EQU TCBNDSP2 04232000 TCBDSS EQU TCBNDSP2 04233000 TCBOWAIT EQU TCBNDSP2 04234000 TCBIWAIT EQU TCBNDSP2 04235000 TCBNDTS EQU TCBNDSP2 04236000 TCBNDSVC EQU TCBNDSP2 04237000 TCBSTPP EQU TCBNDSP2 04238000 TCBABD EQU TCBNDSP2 04239000 TCBRSV22 EQU TCBNDSP1 04240000 TCBPIEND EQU TCBNDSP1 04241000 TCBTPSP EQU TCBNDSP1 04242000 TCBDDRND EQU TCBNDSP1 04243000 TCBRSPND EQU TCBNDSP1 04244000 TCBRSTND EQU TCBNDSP1 04245000 TCBDARPN EQU TCBNDSP1 04246000 TCBDARTN EQU TCBNDSP1 04247000 TCBNDSP0 EQU TCBNDSP 04248000 TCBUSER EQU TCB+168 04249000 TCBTCTB EQU TCBTCT+1 04250000 TCBRSV9C EQU TCBTCTGF 04251000 TCBRSV9B EQU TCBTCTGF 04252000 TCBRSV9A EQU TCBTCTGF 04253000 TCBRSV99 EQU TCBTCTGF 04254000 TCBRSV98 EQU TCBTCTGF 04255000 TCBRSV97 EQU TCBTCTGF 04256000 TCBRSV20 EQU TCBTCTGF 04257000 TCBSMFGF EQU TCBTCTGF 04258000 TCBSTABB EQU TCBSTAB+1 04259000 TCBSTCUR EQU TCBNSTAE 04260000 TCBRV301 EQU TCBNSTAE 04261000 TCBSYNCH EQU TCBNSTAE 04262000 TCBHALT EQU TCBNSTAE 04263000 TCBPPSUP EQU TCBNSTAE 04264000 TCB33E EQU TCBNSTAE 04265000 TCBQUIES EQU TCBNSTAE 04266000 TCBSTABE EQU TCBNSTAE 04267000 TCBAQE EQU TCB+156 04268000 TCBPQE EQU TCB+152 04269000 TCBTSDP EQU TCB+151 04270000 TCBTSLP EQU TCB+150 04271000 TCBSTPCT EQU TCB+149 04272000 TCBCPUBN EQU TCBTSFLG 04273000 TCBDYDSP EQU TCBTSFLG 04274000 TCBRSV18 EQU TCBTSFLG 04275000 TCBRSV17 EQU TCBTSFLG 04276000 TCBTIOTG EQU TCBTSFLG 04277000 TCBATT EQU TCBTSFLG 04278000 TCBSTPPR EQU TCBTSFLG 04279000 TCBRV300 EQU TCBTSTSK 04280000 TCBECB EQU TCB+144 04281000 TCBIQE EQU TCB+140 04282000 TCBLTC EQU TCB+136 04283000 TCBOTC EQU TCB+132 04284000 TCBNTC EQU TCB+128 04285000 TCBJSTCA EQU TCBJSTCB+1 04286000 TCBRSV16 EQU TCBJSTCB 04287000 TCBTQET EQU TCBTME 04288000 TCBTCB EQU TCB+116 04289000 TCBFSAB EQU TCBFSA+1 04290000 TCBQEL EQU TCBFSA 04291000 TCBGRS15 EQU TCBGRS+60 04292000 TCBGRS14 EQU TCBGRS+56 04293000 TCBGRS13 EQU TCBGRS+52 04294000 TCBGRS12 EQU TCBGRS+48 04295000 TCBGRS11 EQU TCBGRS+44 04296000 TCBGRS10 EQU TCBGRS+40 04297000 TCBGRS9 EQU TCBGRS+36 04298000 TCBGRS8 EQU TCBGRS+32 04299000 TCBGRS7 EQU TCBGRS+28 04300000 TCBGRS6 EQU TCBGRS+24 04301000 TCBGRS5 EQU TCBGRS+20 04302000 TCBGRS4 EQU TCBGRS+16 04303000 TCBGRS3 EQU TCBGRS+12 04304000 TCBGRS2 EQU TCBGRS+8 04305000 TCBGRS1 EQU TCBGRS+4 04306000 TCBGRS0 EQU TCBGRS 04307000 TCBJPQB EQU TCBJPQ+1 04308000 TCBRSV15 EQU TCBPURGE 04309000 TCBRSV14 EQU TCBPURGE 04310000 TCBRSV13 EQU TCBPURGE 04311000 TCBRSV12 EQU TCBPURGE 04312000 TCBRSV11 EQU TCBPURGE 04313000 TCBRSV10 EQU TCBPURGE 04314000 TCBRSV09 EQU TCBPURGE 04315000 TCBJPQF EQU TCBPURGE 04316000 TCBJLB EQU TCB+40 04317000 TCBLLS EQU TCB+36 04318000 TCBDSP EQU TCB+35 04319000 TCBLMP EQU TCB+34 04320000 TCBPNDSP EQU TCBFLGS5 04321000 TCBFCD1 EQU TCBFLGS5 04322000 TCBSTP EQU TCBFLGS5 04323000 TCBSYS EQU TCBFLGS5 04324000 TCBANDSP EQU TCBFLGS5 04325000 TCBPAGE EQU TCBFLGS5 04326000 TCBUXNDF EQU TCBABWF 04327000 TCBFC EQU TCBFLGS5 04328000 TCBONDSP EQU TCBFLGS4 04329000 TCBMPCND EQU TCBFLGS4 04330000 TCBMPCVQ EQU TCBFLGS4 04331000 TCBUXNDV EQU TCBFLGS4 04332000 TCBHNDSP EQU TCBFLGS4 04333000 TCBRQENA EQU TCBFLGS4 04334000 TCBSER EQU TCBFLGS4 04335000 TCBNDUMP EQU TCBFLGS4 04336000 TCBDWSTA EQU TCBFLGS3 04337000 TCBRSV08 EQU TCBFLGS3 04338000 TCBRSV07 EQU TCBFLGS3 04339000 TCBRSV06 EQU TCBFLGS3 04340000 TCBABGM EQU TCBFLGS3 04341000 TCBABTRM EQU TCBFLGS3 04342000 TCBADINP EQU TCBFLGS3 04343000 TCBFSM EQU TCBFLGS3 04344000 TCBFTS EQU TCBFLGS2 04345000 TCBFETXR EQU TCBFLGS2 04346000 TCBFDSOP EQU TCBFLGS2 04347000 TCBFJMC EQU TCBFLGS2 04348000 TCBFSMC EQU TCBFLGS2 04349000 TCBFABOP EQU TCBFLGS2 04350000 TCBFSTI EQU TCBFLGS2 04351000 TCBFOINP EQU TCBFLGS2 04352000 TCBFX EQU TCBFLGS1 04353000 TCBFS EQU TCBFLGS1 04354000 TCBFT EQU TCBFLGS1 04355000 TCBPDUMP EQU TCBFLGS1 04356000 TCBNONPR EQU TCBFLGS1 04357000 TCBFERA EQU TCBFLGS1 04358000 TCBFE EQU TCBFLGS1 04359000 TCBFA EQU TCBFLGS1 04360000 TCBZERO EQU TCBPKF 04361000 TCBFLAG EQU TCBPKF 04362000 TCBMSSB EQU TCBMSS+1 04363000 TCBRSV03 EQU TCBMSS 04364000 TCBTRNB EQU TCBTRN+1 04365000 TCBRSV02 EQU TCBABF 04366000 TCBOLTEP EQU TCBABF 04367000 TCBTCP EQU TCBABF 04368000 TCBTCPP EQU TCBABF 04369000 TCBRSV01 EQU TCBABF 04370000 TCBGRPH EQU TCBABF 04371000 TCBNOCHK EQU TCBABF 04372000 TCBMOD91 EQU TCBABF 04373000 TCBCMPC EQU TCBCMP+1 04374000 TCBRV318 EQU TCBCMSG 04375000 TCBRV317 EQU TCBCIND 04376000 TCBRV316 EQU TCBCWTO 04377000 TCBCASID EQU TCBCDBL 04378000 TCBNOCC EQU TCBSTCC 04379000 TCBDMPO EQU TCBCPP 04380000 TCBCSTEP EQU TCBCMPF 04381000 TCBCREQ EQU TCBCMPF 04382000 TCBTIO EQU TCB+12 04383000 TCBDEB EQU TCB+8 04384000 TCBPIEA EQU TCBPIE+1 04385000 TCBPM EQU TCBPMASK 04386000 @NM00003 EQU TCBPMASK 04387000 TCBFRS6 EQU TCBFRS+24 04388000 TCBFRS4 EQU TCBFRS+16 04389000 TCBFRS2 EQU TCBFRS+8 04390000 TCBFRS0 EQU TCBFRS 04391000 ASXBEND EQU ASXB+232 04392000 ASXBRV25 EQU ASXB+228 04393000 ASXBRV24 EQU ASXB+224 04394000 ASXBPT0E EQU ASXB+220 04395000 ASXBCRB4 EQU ASXBCASW+3 04396000 ASXBCRB3 EQU ASXBCASW+2 04397000 ASXBCRB2 EQU ASXBCASW+1 04398000 ASXBCR06 EQU ASXBCRB1 04399000 ASXBCR05 EQU ASXBCRB1 04400000 ASXBCR04 EQU ASXBCRB1 04401000 ASXBCR03 EQU ASXBCRB1 04402000 ASXBCR02 EQU ASXBCRB1 04403000 ASXBCR01 EQU ASXBCRB1 04404000 ASXBTFD EQU ASXBCRB1 04405000 ASXBPIP EQU ASXBCRB1 04406000 ASXBCTDC EQU ASXB+212 04407000 ASXBTDCB EQU ASXB+208 04408000 ASXBRV19 EQU ASXB+204 04409000 ASXBSENV EQU ASXBSECR+1 04410000 ASXBRV34 EQU ASCBSFLG 04411000 ASXBRV33 EQU ASCBSFLG 04412000 ASXBRV32 EQU ASCBSFLG 04413000 ASXBRV31 EQU ASCBSFLG 04414000 ASXBRV30 EQU ASCBSFLG 04415000 ASXBRV29 EQU ASCBSFLG 04416000 ASXBRV28 EQU ASCBSFLG 04417000 ASXBRV27 EQU ASCBSFLG 04418000 ASXBUSER EQU ASXB+192 04419000 ASXBLSRB EQU ASXBAEQ+20 04420000 ASXBFSRB EQU ASXBAEQ+16 04421000 ASXBLRQE EQU ASXBAEQ+12 04422000 ASXBFRQE EQU ASXBAEQ+8 04423000 ASXBLIQE EQU ASXBAEQ+4 04424000 ASXBFIQE EQU ASXBAEQ 04425000 ASXBETSK EQU ASXB+164 04426000 ASXBSIRB EQU ASXB+160 04427000 ASXBPSWD EQU ASXB+152 04428000 ASXBPRG EQU ASXB+136 04429000 ASXBRV26 EQU ASXB+132 04430000 ASXBOUSB EQU ASXB+128 04431000 ASXBDDR EQU ASXB+124 04432000 ASXBRCTD EQU ASXB+120 04433000 ASXBRSMD EQU ASXB+116 04434000 ASXBSPSA EQU ASXB+112 04435000 ASXBFRWA EQU ASXB+108 04436000 ASXBFLSA EQU ASXB+36 04437000 ASXBIHSA EQU ASXB+32 04438000 ASXBRV15 EQU ASXB+28 04439000 ASXBRV14 EQU ASXB+24 04440000 ASXBLWA EQU ASXB+20 04441000 ASXBMPST EQU ASXB+16 04442000 ASXBRS00 EQU ASXB+14 04443000 ASXBTCBS EQU ASXB+12 04444000 ASXBFTCB EQU ASXB+4 04445000 ASXBASXB EQU ASXB 04446000 ASXBEGIN EQU ASXB 04447000 IMCBEND2 EQU IMCBLCH+8 04448000 IMCBEND EQU IMCB+24 04449000 IMCBINIT EQU IMCBFLGS 04450000 IMCBRSV EQU IMCB+16 04451000 RLCTEND EQU RLCT+36 04452000 RLCTRSRF EQU RLCTFLGS 04453000 RLCTURT2 EQU RLCT+18 04454000 RLCTURT1 EQU RLCT+16 04455000 RLCTUSR2 EQU RLCT+8 04456000 RLCTUSR1 EQU RLCT+4 04457000 RMEPSND EQU RMEP+32 04458000 RMEPINT EQU RMEPSCH+12 04459000 RMEPTME EQU RMEPSCH+8 04460000 RMEPBCK EQU RMEPSCH+4 04461000 RMEPFWD EQU RMEPSCH 04462000 RMEPEND EQU RMEP+16 04463000 RMEPPRV EQU RMEPEPB+12 04464000 RMEPACN EQU RMEPFLG+3 04465000 RMEPTMD EQU RMEPFLG+3 04466000 RMEPRCR EQU RMEPFLG+3 04467000 RMEPVFL EQU RMEPFLG 04468000 RMEPERA EQU RMEPEPB+4 04469000 RMEPEPA EQU RMEPEPB 04470000 OUXBEND EQU OUXB+144 04471000 OUXBTSW EQU OUXB+140 04472000 OUXBFIXC EQU OUXB+138 04473000 OUXBNVC EQU OUXB+136 04474000 OUXBUIC EQU OUXB+134 04475000 OUXBVSC EQU OUXB+132 04476000 OUXBRSV1 EQU OUXB+126 04477000 OUXBWCT EQU OUXB+124 04478000 OUXBPRS EQU OUXB+120 04479000 OUXBSTD EQU OUXB+116 04480000 OUXBMSS EQU OUXB+104 04481000 OUXBCPS EQU OUXB+96 04482000 OUXBAET EQU OUXB+92 04483000 OUXBTRR EQU OUXB+88 04484000 OUXBJBR EQU OUXB+84 04485000 OUXBTRT EQU OUXB+80 04486000 OUXBTRS EQU OUXB+76 04487000 OUXBJBT EQU OUXB+72 04488000 OUXBJBS EQU OUXB+68 04489000 OUXBTRC EQU OUXB+64 04490000 OUXBNQT EQU OUXB+60 04491000 OUXBIOSM EQU OUXB+56 04492000 OUXBSTC EQU OUXB+54 04493000 OUXBIOS EQU OUXB+52 04494000 OUXBSTCT EQU OUXB+48 04495000 OUXBCAPR EQU OUXB+44 04496000 OUXBCAPI EQU OUXB+40 04497000 OUXBVAMR EQU OUXB+36 04498000 OUXBVAMO EQU OUXB+32 04499000 OUXBVAMI EQU OUXB+28 04500000 OUXBPREC EQU OUXB+24 04501000 OUXBPOUT EQU OUXB+20 04502000 OUXBPIN EQU OUXB+16 04503000 OUXBRSW EQU OUXB+12 04504000 OUXBMET EQU OUXB+8 04505000 OUXBPET EQU OUXB+4 04506000 OUXBNAME EQU OUXB 04507000 OUCBEND EQU OUCB+136 04508000 OUCBNTSP EQU OUCB+134 04509000 OUCBNDS EQU OUCB+132 04510000 OUCBTCP EQU OUCB+124 04511000 OUCBPST EQU OUCB+120 04512000 OUCBPS2 EQU OUCBPSS+4 04513000 OUCBPS1 EQU OUCBPSS 04514000 OUCBTMP EQU OUCB+104 04515000 OUCBR03 EQU OUCB+102 04516000 OUCBCRV EQU OUCB+98 04517000 OUCBWMR EQU OUCB+92 04518000 OUCBCMRV EQU OUCB+88 04519000 OUCBCF2 EQU OUCBCFL 04520000 OUCBRSM EQU OUCBCFL 04521000 OUCBRDY EQU OUCBCFL 04522000 OUCBACN EQU OUCBCSW 04523000 OUCBACT EQU OUCB+80 04524000 OUCBWSS EQU OUCB+78 04525000 OUCBPSO EQU OUCB+76 04526000 OUCBTMO EQU OUCB+72 04527000 OUCBMSO EQU OUCB+64 04528000 OUCBIOC EQU OUCB+60 04529000 OUCBCPU EQU OUCB+56 04530000 OUCBWMS EQU OUCB+52 04531000 OUCBTMW EQU OUCB+48 04532000 OUCBSWC EQU OUCB+38 04533000 OUCBSRC EQU OUCB+37 04534000 OUCBDMN EQU OUCB+36 04535000 OUCBDMO EQU OUCB+34 04536000 OUCBWMG EQU OUCB+32 04537000 OUCBPGP EQU OUCB+31 04538000 OUCBR40 EQU OUCB+30 04539000 OUCBR30 EQU OUCB+29 04540000 OUCBSPG EQU OUCB+28 04541000 OUCBRDP EQU OUCB+27 04542000 OUCBNDP EQU OUCB+26 04543000 OUCBRPG EQU OUCB+25 04544000 OUCBNPG EQU OUCB+24 04545000 OUCBUF7 EQU OUCBUFL 04546000 OUCBUF6 EQU OUCBUFL 04547000 OUCBUF5 EQU OUCBUFL 04548000 OUCBTSWC EQU OUCBUFL 04549000 OUCBTSWP EQU OUCBUFL 04550000 OUCBRSWP EQU OUCBUFL 04551000 OUCBJSAS EQU OUCBUFL 04552000 OUCBJSFS EQU OUCBUFL 04553000 OUCBNQC EQU OUCB+22 04554000 OUCBMWT EQU OUCBEFL 04555000 OUCBQSC EQU OUCBEFL 04556000 OUCBQSS EQU OUCBEFL 04557000 OUCBNQF EQU OUCBEFL 04558000 OUCBCIM EQU OUCBEFL 04559000 OUCBOWT EQU OUCBEFL 04560000 OUCBTRM EQU OUCBEFL 04561000 OUCBLWT EQU OUCBEFL 04562000 OUCBINC EQU OUCBTFL 04563000 OUCBINP EQU OUCBTFL 04564000 OUCBMAR EQU OUCBTFL 04565000 OUCBPCH EQU OUCBTFL 04566000 OUCBRTR EQU OUCBTFL 04567000 OUCBNTR EQU OUCBTFL 04568000 OUCBSTR EQU OUCBTFL 04569000 OUCBATR EQU OUCBTFL 04570000 OUCBASW EQU OUCBAFL 04571000 OUCBNWT EQU OUCBAFL 04572000 OUCBR02 EQU OUCBAFL 04573000 OUCBJSR EQU OUCBAFL 04574000 OUCBCPL EQU OUCBAFL 04575000 OUCBAPG EQU OUCBAFL 04576000 OUCBAF0 EQU OUCBAFL 04577000 OUCBFXS EQU OUCBYFL 04578000 OUCBDTA EQU OUCBYFL 04579000 OUCBAXS EQU OUCBYFL 04580000 OUCBPSTR EQU OUCBYFL 04581000 OUCBMNT EQU OUCBYFL 04582000 OUCBLOG EQU OUCBYFL 04583000 OUCBSTT EQU OUCBYFL 04584000 OUCBPSTE EQU OUCBYFL 04585000 OUCBSCN EQU OUCBSFL 04586000 OUCBENQ EQU OUCBSFL 04587000 OUCBNSWI EQU OUCBSFL 04588000 OUCBINV EQU OUCBSFL 04589000 OUCBQF7 EQU OUCBQFL 04590000 OUCBQF6 EQU OUCBQFL 04591000 OUCBOFF EQU OUCBQFL 04592000 OUCBQF3 EQU OUCBQFL 04593000 OUCBTMA EQU OUCB+12 04594000 OUCBBCK EQU OUCB+8 04595000 ASCBEND EQU ASCB+208 04596000 ASCBSRBT EQU ASCB+200 04597000 ASCBSWTL EQU ASCB+196 04598000 ASCBRS14 EQU ASCB+195 04599000 ASCBSMCT EQU ASCB+194 04600000 ASCBRS12 EQU ASCB+192 04601000 ASCBPCTT EQU ASCB+188 04602000 ASCBVGTT EQU ASCB+184 04603000 ASCBRV43 EQU ASCBSRQ4 04604000 ASCBRV42 EQU ASCBSRQ4 04605000 ASCBRV41 EQU ASCBSRQ4 04606000 ASCBRV40 EQU ASCBSRQ4 04607000 ASCBRV39 EQU ASCBSRQ4 04608000 ASCBRV38 EQU ASCBSRQ4 04609000 ASCBRV37 EQU ASCBSRQ4 04610000 ASCBRV36 EQU ASCBSRQ4 04611000 ASCBRV35 EQU ASCBSRQ3 04612000 ASCBRV34 EQU ASCBSRQ3 04613000 ASCBRV33 EQU ASCBSRQ3 04614000 ASCBRV32 EQU ASCBSRQ3 04615000 ASCBRV31 EQU ASCBSRQ3 04616000 ASCBRV30 EQU ASCBSRQ3 04617000 ASCBRV29 EQU ASCBSRQ3 04618000 ASCBRV28 EQU ASCBSRQ3 04619000 ASCBRV27 EQU ASCBSRQ2 04620000 ASCBRV26 EQU ASCBSRQ2 04621000 ASCBRV25 EQU ASCBSRQ2 04622000 ASCBRV24 EQU ASCBSRQ2 04623000 ASCBRV23 EQU ASCBSRQ2 04624000 ASCBRV22 EQU ASCBSRQ2 04625000 ASCBRV21 EQU ASCBSRQ2 04626000 ASCBRV20 EQU ASCBSRQ2 04627000 ASCBRV19 EQU ASCBSRQ1 04628000 ASCBRV18 EQU ASCBSRQ1 04629000 ASCBRV17 EQU ASCBSRQ1 04630000 ASCBRV16 EQU ASCBSRQ1 04631000 ASCBRV15 EQU ASCBSRQ1 04632000 ASCBRV14 EQU ASCBSRQ1 04633000 ASCBRV13 EQU ASCBSRQ1 04634000 ASCBSTA EQU ASCBSRQ1 04635000 ASCBJBNS EQU ASCB+176 04636000 ASCBJBNI EQU ASCB+172 04637000 ASCBMCC EQU ASCB+168 04638000 ASCBRTWA EQU ASCB+164 04639000 ASCBIQEA EQU ASCB+160 04640000 ASCBXMPQ EQU ASCB+156 04641000 ASCBRS01 EQU ASCB+154 04642000 ASCBFMCT EQU ASCB+152 04643000 ASCBOUCB EQU ASCB+144 04644000 ASCBMECB EQU ASCB+140 04645000 ASCBQECB EQU ASCB+136 04646000 ASCBLSQH EQU ASCBLKGP+4 04647000 ASCBLOCK EQU ASCBLKGP 04648000 ASCBTCBS EQU ASCB+124 04649000 ASCBNVSC EQU ASCB+122 04650000 ASCBVSC EQU ASCB+120 04651000 ASCBSRBS EQU ASCB+118 04652000 ASCBSSRB EQU ASCB+116 04653000 ASCBRV06 EQU ASCBFLG2 04654000 ASCBRV05 EQU ASCBFLG2 04655000 ASCBRV04 EQU ASCBFLG2 04656000 ASCBSNQS EQU ASCBFLG2 04657000 ASCBS2S EQU ASCBFLG2 04658000 ASCBCEXT EQU ASCBFLG2 04659000 ASCBPXMT EQU ASCBFLG2 04660000 ASCBXMPT EQU ASCBFLG2 04661000 ASCBRF07 EQU ASCBDSP1 04662000 ASCBRF06 EQU ASCBDSP1 04663000 ASCBRF05 EQU ASCBDSP1 04664000 ASCBRF04 EQU ASCBDSP1 04665000 ASCBRF03 EQU ASCBDSP1 04666000 ASCBRF02 EQU ASCBDSP1 04667000 ASCBFAIL EQU ASCBDSP1 04668000 ASCBNOQ EQU ASCBDSP1 04669000 ASCBSWCT EQU ASCB+112 04670000 ASCBTMCH EQU ASCB+104 04671000 ASCBNSWP EQU ASCBFLG1 04672000 ASCBTYP1 EQU ASCBFLG1 04673000 ASCBSTND EQU ASCBFLG1 04674000 ASCBABNT EQU ASCBFLG1 04675000 ASCBTERM EQU ASCBFLG1 04676000 ASCBS3S EQU ASCBFLG1 04677000 ASCBCMSH EQU ASCBFLG1 04678000 ASCBTOFF EQU ASCBFLG1 04679000 ASCBRF01 EQU ASCBRCTF 04680000 ASCBTMLW EQU ASCBRCTF 04681000 ASCBOUT EQU ASCBRCTF 04682000 ASCBWAIT EQU ASCBRCTF 04683000 ASCBRV08 EQU ASCBRCTF 04684000 ASCBFQU EQU ASCBRCTF 04685000 ASCBFRS EQU ASCBRCTF 04686000 ASCBTMNO EQU ASCBRCTF 04687000 ASCBAFFN EQU ASCBFW1 04688000 ASCBDUMP EQU ASCB+96 04689000 ASCBRV44 EQU ASCB+92 04690000 ASCBUBET EQU ASCB+88 04691000 ASCBECB EQU ASCB+84 04692000 ASCBJSTL EQU ASCB+80 04693000 ASCBEWST EQU ASCB+72 04694000 ASCBEJST EQU ASCB+64 04695000 ASCBTSB EQU ASCB+60 04696000 ASCBCSCB EQU ASCB+56 04697000 ASCBRSMA EQU ASCBRSM+1 04698000 ASCBRV54 EQU ASCBRSMF 04699000 ASCBRV53 EQU ASCBRSMF 04700000 ASCBRV52 EQU ASCBRSMF 04701000 ASCBRV51 EQU ASCBRSMF 04702000 ASCBVEQR EQU ASCBRSMF 04703000 ASCBN2LP EQU ASCBRSMF 04704000 ASCB1LPU EQU ASCBRSMF 04705000 ASCB2LPU EQU ASCBRSMF 04706000 ASCBLDA EQU ASCB+48 04707000 ASCBSTOR EQU ASCB+44 04708000 ASCBDP EQU ASCB+43 04709000 ASCBRV07 EQU ASCB+42 04710000 ASCBSEQN EQU ASCB+38 04711000 ASCBASID EQU ASCB+36 04712000 ASCBCPUS EQU ASCB+32 04713000 ASCBSPL EQU ASCB+28 04714000 ASCBIOSP EQU ASCB+24 04715000 ASCBSYNC EQU ASCBSUPC+4 04716000 ASCBSVRB EQU ASCBSUPC 04717000 ASCBCMSF EQU ASCB+12 04718000 ASCBBWDP EQU ASCB+8 04719000 ASCBFWDP EQU ASCB+4 04720000 ASCBASCB EQU ASCB 04721000 ASCBEGIN EQU ASCB 04722000 RRPAEND EQU RRPA+24 04723000 RRPARTN EQU RRPAINS 04724000 RRPARFI EQU RRPAFLG+1 04725000 RRPARTI EQU RRPAFLG+1 04726000 RRPACTL EQU RRPAFLG+1 04727000 RRPAF11 EQU RRPAFLG+1 04728000 RRPAIPS EQU RRPAFLG+1 04729000 RRPAWAR EQU RRPAFLG+1 04730000 RRPAF07 EQU RRPAFLG 04731000 RRPAOPT EQU RRPAFLG 04732000 RRPAF05 EQU RRPAFLG 04733000 RRPAF04 EQU RRPAFLG 04734000 RRPADSP EQU RRPAFLG 04735000 RRPAENB EQU RRPAFLG 04736000 RRPADSB EQU RRPAFLG 04737000 RRPAVLU EQU RRPAINP 04738000 RRPACOD EQU RRPAINC+3 04739000 @NM00002 EQU RRPAFLG0 04740000 RRPANSWI EQU RRPAFLG0 04741000 RRPAASD EQU RRPAINC 04742000 EPSTEND EQU EPST+80 04743000 EPSTCSI EQU RMEPBCSI 04744000 EPSTCSO EQU RMEPBCSO 04745000 EPSTCL3 EQU RMEPBCL3 04746000 EPSTIL3 EQU RMEPBIL3 04747000 EPSTWM3 EQU RMEPBWM3 04748000 EPDTEND EQU EPDT+96 04749000 RMEPBRPS EQU EPDT+80 04750000 RMEPBHIT EQU EPDT+64 04751000 RMEPBUXB EQU EPDT+48 04752000 RMEPBIL4 EQU EPDT+32 04753000 RMEPBDEL EQU EPDT+16 04754000 RMEPBIPS EQU EPDT 04755000 EPATEND EQU EPAT+400 04756000 RMEPBPR1 EQU EPAT+368 04757000 RMEPBEQ1 EQU EPAT+336 04758000 RMEPBAP1 EQU EPAT+304 04759000 RMEPBCL1 EQU EPAT+272 04760000 RMEPBWM2 EQU EPAT+240 04761000 RMEPBIL1 EQU EPAT+208 04762000 RMEPBASM EQU EPAT+176 04763000 RMEPBMS2 EQU EPAT+160 04764000 RMEPBPR5 EQU EPAT+144 04765000 RMEPBMS6 EQU EPAT+112 04766000 RMEPBSQA EQU EPAT+96 04767000 RMEPBRM2 EQU EPAT+64 04768000 RMEPBRM1 EQU EPAT+32 04769000 RMEPBCAP EQU EPAT 04770000 RMSBEND EQU RMSB+120 04771000 RMSBRA9 EQU RMSB+116 04772000 RMSBIL0 EQU RMSB+112 04773000 RMSBCL0 EQU RMSB+108 04774000 RMSBRA6 EQU RMSB+104 04775000 RMSBNOP EQU RMSB+100 04776000 RMSBSET EQU RMSB+96 04777000 RMSBWR6 EQU RMSB+92 04778000 RMSBWR4 EQU RMSB+88 04779000 RMSBTRC EQU RMSB+84 04780000 RMSBWMY EQU RMSB+80 04781000 RMSBWMR EQU RMSB+76 04782000 RMSBWMQ EQU RMSB+72 04783000 RMSBWMO EQU RMSB+68 04784000 RMSBWMN EQU RMSB+64 04785000 RMSBWMK EQU RMSB+60 04786000 RMSBWM4 EQU RMSB+56 04787000 RMSBWM1 EQU RMSB+52 04788000 RMSBWM5 EQU RMSB+48 04789000 RMSBCRN EQU RMSB+40 04790000 RMSBCRL EQU RMSB+36 04791000 RMSBI10 EQU RMSB+32 04792000 RMSBI09 EQU RMSB+28 04793000 RMSBR24 EQU RMSB+24 04794000 RMSBI07 EQU RMSB+20 04795000 RMSBI06 EQU RMSB+16 04796000 RMSBI05 EQU RMSB+12 04797000 RMSBI03 EQU RMSB+4 04798000 RMSBI02 EQU RMSB 04799000 RMEXEND EQU RMEX+64 04800000 RMEXSRE EQU RMEX+60 04801000 RMEXXPE EQU RMEX+56 04802000 RMEXRR2 EQU RMEX+52 04803000 RMEXRR1 EQU RMEX+48 04804000 RMEXI48 EQU RMEX+44 04805000 RMEXCET EQU RMEX+40 04806000 RMEXCXX EQU RMEX+36 04807000 RMEXEVT EQU RMEPBEVT 04808000 RMCAEND EQU RMCA+168 04809000 RMCAR90 EQU RMCA+164 04810000 RMCAUSSC EQU RMCASRC+36 04811000 RMCAEXSC EQU RMCASRC+32 04812000 RMCANQSC EQU RMCASRC+28 04813000 RMCARQSC EQU RMCASRC+24 04814000 RMCADWSC EQU RMCASRC+20 04815000 RMCARSSC EQU RMCASRC+16 04816000 RMCAXSSC EQU RMCASRC+12 04817000 RMCALWSC EQU RMCASRC+8 04818000 RMCATISC EQU RMCASRC+4 04819000 RMCATOSC EQU RMCASRC 04820000 RMCACPW1 EQU RMCA+120 04821000 RMCACIUS EQU RMCA+118 04822000 RMCAR14 EQU RMCA+116 04823000 RMCAR13 EQU RMCA+112 04824000 RMCAWKA EQU RMCA+80 04825000 RMCAMAS EQU RMCA+76 04826000 RMCAR20 EQU RMCA+74 04827000 RMCABCPG EQU RMCA+73 04828000 RMCALGPG EQU RMCA+72 04829000 RMCAISV EQU RMCA+70 04830000 RMCAR11 EQU RMCA+68 04831000 RMCAINV EQU RMCA+64 04832000 RMCAR10 EQU RMCA+60 04833000 RMCARSV9 EQU RMCA+56 04834000 RMCACHU EQU RMCA+52 04835000 RMCACHP EQU RMCA+48 04836000 RMCARSV8 EQU RMCA+44 04837000 RMCARSV7 EQU RMCA+40 04838000 RMCARSVF EQU RMCAFLGS 04839000 RMCASAAF EQU RMCAFLGS 04840000 RMCARSV5 EQU RMCA+32 04841000 RMCARSV4 EQU RMCA+28 04842000 RMCARSV3 EQU RMCA+24 04843000 RMCATOI EQU RMCA+20 04844000 RMCATRS EQU RMCA+16 04845000 RMCATQS EQU RMCA+12 04846000 RMCARSV2 EQU RMCA+10 04847000 RMCARSV1 EQU RMCA+8 04848000 RMCAINUS EQU RMCA+6 04849000 RMCAR04 EQU RMCA+4 04850000 RMCANAME EQU RMCA 04851000 RMPTEND EQU RMPT+72 04852000 RMPTOPE EQU RMPT+66 04853000 RMPTOPI EQU RMPT+63 04854000 RMPTOPC EQU RMPT+60 04855000 RMPTIOET EQU RMPT+56 04856000 RMPTCPET EQU RMPT+52 04857000 RMPTWMET EQU RMPT+48 04858000 RMPTSAET EQU RMPT+44 04859000 RMPTXCHT EQU RMPT+40 04860000 RMPTRSV3 EQU RMPT+38 04861000 RMPTRSV2 EQU RMPT+36 04862000 RMPTRSV1 EQU RMPT+32 04863000 RMPTTOL EQU RMPT+28 04864000 RMPTTOM EQU RMPT+24 04865000 RMPTTCS EQU RMPT+20 04866000 RMPTIMN EQU RMPT+16 04867000 RMPTERV EQU RMPT+12 04868000 RMPTCPU EQU RMPT+4 04869000 RMPTNAME EQU RMPT 04870000 RCTEND EQU RCT+88 04871000 RCVRSVF3 EQU RCT+84 04872000 RCVRSVF2 EQU RCT+80 04873000 RCVRSVF1 EQU RCT+74 04874000 RCVTOTDF EQU RCT+72 04875000 RCVBPTTM EQU RCT+68 04876000 RCVBPTCT EQU RCT+64 04877000 RCVASMQ EQU RCT+60 04878000 RCVAVQP EQU RCT+56 04879000 RCVCPUC EQU RCT+52 04880000 RCVUICC EQU RCT+48 04881000 RCVPTR EQU RCT+46 04882000 RCVASMQA EQU RCT+44 04883000 RCVAVQC EQU RCT+42 04884000 RCVCPUA EQU RCT+40 04885000 RCVUICA EQU RCT+38 04886000 RCVCTMC EQU RCT+36 04887000 RCCRSVF3 EQU RCT+32 04888000 RCCRSVF2 EQU RCT+28 04889000 RCCRSVF1 EQU RCT+26 04890000 RCCLCHRR EQU RCT+24 04891000 RCCLCHUT EQU RCT+22 04892000 RCCTOTUT EQU RCT+20 04893000 RCCASMTH EQU RCT+18 04894000 RCCASMTL EQU RCT+16 04895000 RCCPTRTH EQU RCT+14 04896000 RCCPTRTL EQU RCT+12 04897000 RCCCPUTH EQU RCT+10 04898000 RCCCPUTL EQU RCT+8 04899000 RCCUICTH EQU RCT+6 04900000 RCCUICTL EQU RCT+4 04901000 RCTRCT EQU RCT 04902000 MCTEND EQU MCT+96 04903000 MCVRSVF3 EQU MCT+92 04904000 MCVRSVF2 EQU MCT+88 04905000 MCVRSVF1 EQU MCT+84 04906000 MCCINTMX EQU MCT+80 04907000 MCCPR1IN EQU MCT+76 04908000 MCCUICIN EQU MCT+72 04909000 MCCUICBD EQU MCT+68 04910000 MCTRSVB1 EQU MCT+67 04911000 MCTXRSVD EQU MCT+66 04912000 MCTFX2 EQU MCTOFLGS 04913000 MCTFX1 EQU MCTOFLGS 04914000 MCTSMS2 EQU MCTOFLGS 04915000 MCTSMS1 EQU MCTOFLGS 04916000 MCTAMS2 EQU MCTOFLGS 04917000 @NM00001 EQU MCTOFLGS 04918000 MCTASM2 EQU MCTOFLGS 04919000 MCTASM1 EQU MCTOFLGS 04920000 MCTSF04 EQU MCTSFLGS 04921000 MCTFAVQ EQU MCTSFLGS 04922000 MCTAVQ1 EQU MCTSFLGS 04923000 MCTSQA2 EQU MCTSFLGS 04924000 MCTSQA1 EQU MCTSFLGS 04925000 MCVAVQC EQU MCT+60 04926000 MCVFRCNT EQU MCT+58 04927000 MCVSTCRI EQU MCT+56 04928000 MCCEND EQU MCT+56 04929000 MCCASMT2 EQU MCT+54 04930000 MCCASMT1 EQU MCT+52 04931000 MCCRSVH1 EQU MCT+50 04932000 MCCPLUS EQU MCT+48 04933000 MCCMS403 EQU MCT+44 04934000 MCCMS402 EQU MCT+40 04935000 MCCMS401 EQU MCT+36 04936000 MCCMS400 EQU MCT+32 04937000 MCCMS203 EQU MCT+28 04938000 MCCMS202 EQU MCT+24 04939000 MCCMS201 EQU MCT+20 04940000 MCCMS200 EQU MCT+16 04941000 MCCMS102 EQU MCT+12 04942000 MCCMS101 EQU MCT+8 04943000 MCCMS100 EQU MCT+4 04944000 MCTMCT EQU MCT 04945000 ICTEND EQU ICT+88 04946000 ICTRSVB3 EQU ICT+87 04947000 ICTRSVB2 EQU ICT+86 04948000 ICTRSVB1 EQU ICT+85 04949000 ICT003 EQU ICTFLAGS 04950000 ICTDRSV4 EQU ICTFLAGS 04951000 ICVIRSV3 EQU ICT+80 04952000 ICCEND EQU ICT+64 04953000 ICCRSV01 EQU ICT+62 04954000 ICCSRSV2 EQU ICT+58 04955000 ICCINDAT EQU ICT+52 04956000 ICCINLOT EQU ICT+48 04957000 ICCINHIT EQU ICT+44 04958000 ICCDAUTH EQU ICT+42 04959000 ICCLCHN EQU ICT+24 04960000 ICCMRSV1 EQU ICT+4 04961000 ICTICT EQU ICT 04962000 CCVEND EQU CCT+128 04963000 CCTFLG2 EQU CCT+125 04964000 CCTCPUOT EQU CCTFLG1 04965000 CCTALL EQU CCTFLG1 04966000 CCVCPUCT EQU CCT+122 04967000 CCVENQCT EQU CCT+120 04968000 CCVLGFMC EQU CCT+118 04969000 CCVLGUTL EQU CCT+116 04970000 CCVR07 EQU CCT+114 04971000 CCVR06 EQU CCT+112 04972000 CCVUTILP EQU CCT+110 04973000 CCVR05 EQU CCT+108 04974000 CCVIMBBT EQU CCT+104 04975000 CCVEJST EQU CCT+100 04976000 CCVPGCPF EQU CCT+96 04977000 CCVRVSWF EQU CCT+92 04978000 CCVRBSTD EQU CCT+88 04979000 CCVR04 EQU CCT+84 04980000 CCVRBSWT EQU CCT+80 04981000 CCVR03 EQU CCT+76 04982000 CCCEND EQU CCT+76 04983000 CCCRSVH1 EQU CCT+74 04984000 CCCSCFC2 EQU CCT+72 04985000 CCCSCFC1 EQU CCT+70 04986000 CCCR02 EQU CCT+68 04987000 CCCSIGUR EQU CCT+66 04988000 CCCSIGDP EQU CCT+64 04989000 CCCSCFAC EQU CCT+62 04990000 CCCMINRV EQU CCT+60 04991000 CCCMAXRV EQU CCT+58 04992000 CCCLOSCF EQU CCT+56 04993000 CCCHISCF EQU CCT+54 04994000 CCCUTLOT EQU CCT+52 04995000 CCCUTHIT EQU CCT+50 04996000 CCCAPRHT EQU CCT+48 04997000 CCCAPRLT EQU CCT+46 04998000 CCCR01 EQU CCT+44 04999000 CCCAPGDP EQU CCT+42 05000000 CCCAPMDP EQU CCT+40 05001000 CCCAPLDP EQU CCT+38 05002000 CCCAPBDP EQU CCT+36 05003000 CCCAPROT EQU CCT+34 05004000 CCCAPDIV EQU CCT+32 05005000 CCCRSVF1 EQU CCT+28 05006000 CCCMNSIN EQU CCT+24 05007000 CCCMNUIN EQU CCT+20 05008000 CCCAPDEL EQU CCT+16 05009000 CCCAPMAX EQU CCT+12 05010000 CCCAPMIN EQU CCT+8 05011000 CCCAPMET EQU CCT+4 05012000 CCTCCT EQU CCT 05013000 RMCTEND EQU RMCT+192 05014000 RMCTR50 EQU RMCT+190 05015000 RMCTDMNC EQU RMCT+188 05016000 RMCTDMDE EQU RMCT+184 05017000 RMCTDMDT EQU RMCT+180 05018000 RMCTSRBT EQU RMCT+176 05019000 RMCTOUXB EQU RMCT+172 05020000 RMCTOUCB EQU RMCT+168 05021000 RMCTCPID EQU RMCT+156 05022000 RMCTTELM EQU RMCT+152 05023000 RMCTF09 EQU RMCTFLGS+1 05024000 RMCTMFS EQU RMCTFLGS+1 05025000 RMCTF07 EQU RMCTFLGS+1 05026000 RMCTF06 EQU RMCTFLGS 05027000 RMCTRSV2 EQU RMCTFLGS 05028000 RMCTSTW EQU RMCTFLGS 05029000 RMCTRSV1 EQU RMCTFLGS 05030000 RMCTINIT EQU RMCTFLGS 05031000 RMCTF03 EQU RMCTFLGS 05032000 RMCTCPS1 EQU RMCTFLGS 05033000 RMCTMFA EQU RMCTFLGS 05034000 RMCTRQSV EQU RMCT+144 05035000 RMCTALR EQU RMCT+140 05036000 RMCTALA EQU RMCT+136 05037000 RMCTTOC EQU RMCT+128 05038000 RMCTTBS EQU RMCT+120 05039000 RMCTR10 EQU RMCT+116 05040000 RMCTOTQE EQU RMCT+108 05041000 RMCTWTQE EQU RMCT+104 05042000 RMCTAQHD EQU RMCT+100 05043000 RMCTAQCT EQU RMCT+96 05044000 RMCTTMQE EQU RMCT+92 05045000 RMCTWAMT EQU RMCT+88 05046000 RMCTWAST EQU RMCT+84 05047000 RMCTEPPR EQU RMCT+80 05048000 RMCTFLTM EQU RMCT+76 05049000 RMCTEPET EQU RMCT+72 05050000 RMCTITT EQU RMCT+68 05051000 RMCTADJC EQU RMCT+64 05052000 RMCTEPBG EQU RMCT+60 05053000 RMCTEPAT EQU RMCT+56 05054000 RMCTEPDT EQU RMCT+52 05055000 RMCTEPPA EQU RMCT+48 05056000 RMCTRMSB EQU RMCT+44 05057000 RMCTRMEX EQU RMCT+40 05058000 RMCTRMPD EQU RMCT+36 05059000 RMCTWMST EQU RMCT+24 05060000 RMCTRMCA EQU RMCT+20 05061000 RMCTRMPT EQU RMCT+16 05062000 RMCTMCT EQU RMCT+12 05063000 RMCTICT EQU RMCT+8 05064000 RMCTCCT EQU RMCT+4 05065000 RMCTNAME EQU RMCT 05066000 @NM00038 EQU PSA+3668 05067000 PSASTAK EQU PSA+3072 05068000 @NM00037 EQU PSA+1048 05069000 PSAUSEND EQU PSA+1048 05070000 PSARV062 EQU PSA+1044 05071000 PSACDAL EQU PSA+1040 05072000 PSAWTCOD EQU PSA+1036 05073000 PSAATCVT EQU PSA+1032 05074000 PSAPCPSW EQU PSA+1024 05075000 PSAPIR2 EQU PSA+1020 05076000 PSARV059 EQU PSA+1018 05077000 PSASVC13 EQU PSA+1016 05078000 PSALSFCC EQU PSA+1012 05079000 PSASFACC EQU PSA+1008 05080000 PSASTOP EQU PSA+992 05081000 PSASTART EQU PSA+976 05082000 PSARSPSW EQU PSA+968 05083000 PSASRPSW EQU PSA+960 05084000 PSARV045 EQU PSA+892 05085000 PSARV044 EQU PSA+888 05086000 PSARV043 EQU PSA+884 05087000 PSARV042 EQU PSA+880 05088000 PSARV041 EQU PSA+876 05089000 PSARV040 EQU PSA+872 05090000 PSARV025 EQU PSA+868 05091000 PSADSSED EQU PSA+868 05092000 PSADSSPR EQU PSA+864 05093000 PSADSSFW EQU PSA+860 05094000 PSADSS14 EQU PSA+856 05095000 PSADSSPP EQU PSA+848 05096000 PSADSSRP EQU PSA+840 05097000 PSADSS05 EQU PSADSSF4 05098000 PSADSS10 EQU PSADSSF4 05099000 PSADSSVE EQU PSADSSF4 05100000 PSADSSDE EQU PSADSSF4 05101000 PSADSSC0 EQU PSADSSF4 05102000 PSADSSIE EQU PSADSSF4 05103000 PSADSS12 EQU PSADSSF4 05104000 PSADSSRC EQU PSADSSF4 05105000 PSARV057 EQU PSADSSF3 05106000 PSARV056 EQU PSADSSF3 05107000 PSARV055 EQU PSADSSF3 05108000 PSADSSMC EQU PSADSSF3 05109000 PSADSSRW EQU PSADSSF3 05110000 PSADSSNM EQU PSADSSF3 05111000 PSADSSES EQU PSADSSF3 05112000 PSADSSGP EQU PSADSSF3 05113000 PSADSSF2 EQU PSADSSFL+1 05114000 PSADSSPI EQU PSADSSF1 05115000 PSADSSOI EQU PSADSSF1 05116000 PSADSSSP EQU PSADSSF1 05117000 PSADSSTP EQU PSADSSF1 05118000 PSADSSDW EQU PSADSSF1 05119000 PSADSSDD EQU PSADSSF1 05120000 PSADSSDM EQU PSADSSF1 05121000 PSADSSMV EQU PSADSSF1 05122000 PSADSSTS EQU PSA+816 05123000 PSADSSWK EQU PSA+812 05124000 PSADSSR3 EQU PSA+808 05125000 PSADSSR2 EQU PSA+804 05126000 PSADSSRS EQU PSA+800 05127000 PSASTOR EQU PSA+796 05128000 PSACPUSA EQU PSA+794 05129000 PSAVSTAP EQU PSA+792 05130000 PSAWKVAP EQU PSA+788 05131000 PSAWKRAP EQU PSA+784 05132000 PSAMCHIC EQU PSA+783 05133000 PSARV061 EQU PSA+782 05134000 PSASYMSK EQU PSA+781 05135000 PSAMCHFL EQU PSA+780 05136000 PSACR0 EQU PSA+776 05137000 PSAPSWSV EQU PSA+768 05138000 PSALITA EQU PSA+764 05139000 PSACLHS EQU PSAHLHI 05140000 PSALKR15 EQU PSALKSA+60 05141000 PSALKR14 EQU PSALKSA+56 05142000 PSALKR13 EQU PSALKSA+52 05143000 PSALKR12 EQU PSALKSA+48 05144000 PSALKR11 EQU PSALKSA+44 05145000 PSALKR10 EQU PSALKSA+40 05146000 PSALKR9 EQU PSALKSA+36 05147000 PSALKR8 EQU PSALKSA+32 05148000 PSALKR7 EQU PSALKSA+28 05149000 PSALKR6 EQU PSALKSA+24 05150000 PSALKR5 EQU PSALKSA+20 05151000 PSALKR4 EQU PSALKSA+16 05152000 PSALKR3 EQU PSALKSA+12 05153000 PSALKR2 EQU PSALKSA+8 05154000 PSALKR1 EQU PSALKSA+4 05155000 PSALKR0 EQU PSALKSA 05156000 PSARV023 EQU PSACLHT+52 05157000 PSALOCAL EQU PSACLHT+48 05158000 PSACMSL EQU PSACLHT+44 05159000 PSAOPTL EQU PSACLHT+40 05160000 PSATPACL EQU PSACLHT+36 05161000 PSATPDNL EQU PSACLHT+32 05162000 PSATPNCL EQU PSACLHT+28 05163000 PSAIOSLL EQU PSACLHT+24 05164000 PSAIOSUL EQU PSACLHT+20 05165000 PSAIOSCL EQU PSACLHT+16 05166000 PSAIOSSL EQU PSACLHT+12 05167000 PSASALCL EQU PSACLHT+8 05168000 PSAASML EQU PSACLHT+4 05169000 PSADISPL EQU PSACLHT 05170000 PSASRSA EQU PSA+636 05171000 PSARV050 EQU PSA+634 05172000 PSADSSGO EQU PSA+633 05173000 PSARECUR EQU PSA+632 05174000 PSAHLHIS EQU PSA+628 05175000 PSAIPCSA EQU PSA+624 05176000 @NM00036 EQU PSA+621 05177000 PSAIPCDM EQU PSA+620 05178000 PSAIPCD EQU PSA+616 05179000 @NM00035 EQU PSA+613 05180000 PSAIPCRM EQU PSA+612 05181000 PSAIPCR EQU PSA+608 05182000 PSAMCHEX EQU PSA+600 05183000 PSAMPSW EQU PSA+592 05184000 PSAEXPS2 EQU PSA+584 05185000 PSAEXPS1 EQU PSA+576 05186000 PSAPIREG EQU PSA+572 05187000 PSARSREG EQU PSA+568 05188000 PSAGPREG EQU PSA+556 05189000 PSARV022 EQU PSASUP4 05190000 PSARV021 EQU PSASUP4 05191000 PSARV020 EQU PSASUP4 05192000 PSARV019 EQU PSASUP4 05193000 PSARV018 EQU PSASUP4 05194000 PSARV017 EQU PSASUP4 05195000 PSARV016 EQU PSASUP4 05196000 PSARV015 EQU PSASUP4 05197000 PSARV014 EQU PSASUP3 05198000 PSAULCMS EQU PSASUP3 05199000 PSARV012 EQU PSASUP3 05200000 PSAESTA EQU PSASUP3 05201000 PSASPR EQU PSASUP3 05202000 PSAPSREG EQU PSASUP3 05203000 PSAPI2 EQU PSASUP3 05204000 PSAIOSUP EQU PSASUP3 05205000 PSALCR EQU PSASUP2 05206000 PSARTM EQU PSASUP2 05207000 PSAACR EQU PSASUP2 05208000 PSAIPCE2 EQU PSASUP2 05209000 PSAIPCES EQU PSASUP2 05210000 PSAIPCEC EQU PSASUP2 05211000 PSAGTF EQU PSASUP2 05212000 PSAIPCRI EQU PSASUP2 05213000 PSATYPE6 EQU PSASUP1 05214000 PSATCTL EQU PSASUP1 05215000 PSADISP EQU PSASUP1 05216000 PSALOCK EQU PSASUP1 05217000 PSAPI EQU PSASUP1 05218000 PSAEXT EQU PSASUP1 05219000 PSASVC EQU PSASUP1 05220000 PSAIO EQU PSASUP1 05221000 PSAAOLD EQU PSA+548 05222000 PSAANEW EQU PSA+544 05223000 PSATNEW EQU PSA+536 05224000 PSALCCAR EQU PSA+532 05225000 PSALCCAV EQU PSA+528 05226000 PSAPCCAR EQU PSA+524 05227000 PSAPCCAV EQU PSA+520 05228000 PSACPULA EQU PSA+518 05229000 PSACPUPA EQU PSA+516 05230000 PSAPSA EQU PSA+512 05231000 FLCHDEND EQU PSA+512 05232000 FLCCRSAV EQU FLCMCLA+280 05233000 FLCGRSAV EQU FLCMCLA+216 05234000 FLCFPSAV EQU FLCMCLA+184 05235000 FLCFLA EQU FLCMCLA+88 05236000 FLCRGNCD EQU FLCMCLA+84 05237000 FLCFSAA EQU FLCFSA+1 05238000 @NM00034 EQU FLCFSA 05239000 @NM00033 EQU FLCMCLA+72 05240000 FLCMCIC EQU FLCMCLA+64 05241000 @NM00032 EQU FLCMCLA+20 05242000 FLCIOAA EQU FLCIOA+1 05243000 @NM00031 EQU FLCIOA 05244000 @NM00030 EQU FLCMCLA+15 05245000 @NM00029 EQU FLCMCLA+14 05246000 @NM00028 EQU FLCMCLA+12 05247000 FLCLCL EQU FLCMCLA+8 05248000 FLCIOELA EQU FLCIOEL+1 05249000 @NM00027 EQU FLCIOEL 05250000 FLCCHNID EQU FLCMCLA 05251000 @NM00026 EQU PSA+160 05252000 FLCMTRCD EQU PSA+157 05253000 @NM00025 EQU PSA+156 05254000 FLCPERA EQU FLCPER+1 05255000 @NM00024 EQU FLCPER 05256000 @NM00023 EQU PSA+151 05257000 FLCPERCD EQU PSA+150 05258000 FLCMCNUM EQU PSA+149 05259000 @NM00022 EQU PSA+148 05260000 FLCTEAA EQU FLCTEA+1 05261000 @NM00021 EQU FLCTEA 05262000 PSAPIPC EQU PSAPICOD 05263000 PSAPIMC EQU PSAPICOD 05264000 PSAPIPER EQU PSAPICOD 05265000 PSARV049 EQU FLCPICOD 05266000 FLCPILCB EQU FLCPIILC 05267000 @NM00020 EQU FLCPIILC 05268000 @NM00019 EQU PSAEPPSW 05269000 FLCSVCN EQU PSAESPSW+2 05270000 FLCSILCB EQU FLCSVILC 05271000 @NM00018 EQU FLCSVILC 05272000 @NM00017 EQU PSAESPSW 05273000 FLCEICOD EQU PSAEEPSW+2 05274000 PSASPAD EQU PSAEEPSW 05275000 @NM00016 EQU PSA+128 05276000 FLCINPSW EQU PSA+120 05277000 FLCMNPSW EQU PSA+112 05278000 FLCPNPSW EQU PSA+104 05279000 FLCSNPSW EQU PSA+96 05280000 FLCENPSW EQU PSA+88 05281000 FLCTRACE EQU PSA+84 05282000 FLCTIMER EQU PSA+80 05283000 FLCCVT2 EQU PSA+76 05284000 FLCCAW EQU PSA+72 05285000 FLCCSW EQU PSA+64 05286000 FLCIOPSW EQU PSA+56 05287000 FLCMOPSW EQU PSA+48 05288000 FLCPOPSW EQU PSA+40 05289000 FLCSOPSW EQU PSA+32 05290000 FLCEOPSW EQU PSA+24 05291000 @NM00015 EQU FLCICCW2+4 05292000 FLCICCW1 EQU FLCROPSW 05293000 FLCIPPSW EQU FLCRNPSW 05294000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05295000 @RT00060 EQU IL0END 05296000 @RT00065 EQU IL0END 05297000 @RT00080 EQU IL0END 05298000 @RF00075 EQU IL0END 05299000 @RF00432 EQU @EL00004 05300000 @RF00472 EQU @EL00006 05301000 @RC00459 EQU @EL00006 05302000 @RF00484 EQU @EL00006 05303000 @RF00503 EQU @EL00008 05304000 @RF00508 EQU @EL00008 05305000 @RC00521 EQU @EL00008 05306000 @ENDDATA EQU * 05307000 END IRARMIOM,(C'PLS2149',0701,78024) 05308000