TITLE 'ISTAPC22 - TPIO PROCEDURE FOR VS2 *00001000 ' 00002000 ISTAPC22 CSECT , 00003000 IGC124 DS 0H 00004000 ENTRY IGC124 00005000 USING ISTAPC22,REG6 00006000 MODID BR=YES 00007000 RBPRFXLN EQU 64 00008000 RBPRFLNA EQU 32 00009000 PRBLEN EQU 136 00010000 SIRBLEN EQU 200 00011000 TIRBLEN EQU 136 00012000 IRBLEN EQU 128 00013000 SVRBLEN EQU 224 00014000 * COMPCODE=COMPCODE&RC0; /* INITIALIZE RETURN CODE TO ZERO 00015000 * @Z40GKD1*/ 00016000 N COMPCODE,@CF03193 01S0209 00017000 * DO; /* @VS40641*/ 00018000 */* SEARCH THE RB CHAIN OF THE TCB UNDER WHICH THIS ROUTINE WAS 01S0211 00019000 * INVOKED. IF THE CALLER IS AN IRB OTHER THAN A VTAM IRB, REJECT 00020000 * THE SVC @VS40641*/ 00021000 * 01S0211 00022000 * DO; /* LISATCVT 01S0211 00023000 * CVTBASE(PAGEABLE,(ATCVTPTR)) */ 00024000 * ATCVTPTR=ATCLCPTR; /* SET UP ATCVT POINTER */ 00025000 L ATCVTPTR,ATCLCPTR 01S0212 00026000 * END; /* LISATCVT GET ATCVT ADDR 01S0213 00027000 * @VS40641*/ 00028000 * RBSECPTR=TCBRBP; /* GET @ OF 1ST RB ON Q @VS40641*/ 00029000 L RBSECPTR,TCBRBP(,TCBPTR) 01S0214 00030000 * DO WHILE(RBSECPTR^=TCBPTR)&(RBSECPTR^=ZERO);/* NOT END OF CHAIN 00031000 * OR OUT OF TEST @VS40641*/ 00032000 B @DE00215 01S0215 00033000 @DL00215 DS 0H 01S0216 00034000 * IF(RBFTP='010'B)|(RBFTP='011'B) THEN 01S0216 00035000 TM RBFTP(RBSECPTR),B'01000000' 01S0216 00036000 BNO @GL00001 01S0216 00037000 TM RBFTP(RBSECPTR),B'10100000' 01S0216 00038000 BZ @RT00216 01S0216 00039000 @GL00001 TM RBFTP(RBSECPTR),B'01100000' 01S0216 00040000 BNO @RF00216 01S0216 00041000 TM RBFTP(RBSECPTR),B'10000000' 01S0216 00042000 BNZ @RF00216 01S0216 00043000 @RT00216 DS 0H 01S0217 00044000 * DO; /* TEST FOR IRB OR TIRB @VS40641*/ 00045000 * IF RBEP=ATCAP51 THEN 01S0218 00046000 CLC RBEP(4,RBSECPTR),ATCAP51(ATCVTPTR) 01S0218 00047000 BE @RT00218 01S0218 00048000 * ; /* VTAM IRB, LEAVE COMPCODE=0 00049000 * @VS40641*/ 00050000 * ELSE /* USER ASYNCH EXIT-REJECT 01S0220 00051000 * @VS40641*/ 00052000 * COMPCODE=COMPCODE|RC4;/* @Z40GKD1*/ 00053000 O COMPCODE,@CF02408 01S0220 00054000 * RBSECPTR=ZERO; /* EITHER WAY END OF SEARCH 00055000 * @VS40641*/ 00056000 @RT00218 SLR RBSECPTR,RBSECPTR 01S0221 00057000 * END; /* END OF IRB TEST @VS40641*/ 00058000 * ELSE 01S0223 00059000 * RBSECPTR=RBLINKB; /* NOT IRB,GET NEXT RB ON CHAIN 00060000 * @VS40641*/ 00061000 B @RC00216 01S0223 00062000 @RF00216 L @15,RBLINKB-1(,RBSECPTR) 01S0223 00063000 LA @15,0(,@15) 01S0223 00064000 LR RBSECPTR,@15 01S0223 00065000 * END; /* END OF DO WHILE @VS40641*/ 00066000 @RC00216 DS 0H 01S0224 00067000 @DE00215 CR RBSECPTR,TCBPTR 01S0224 00068000 BE @DC00215 01S0224 00069000 LTR RBSECPTR,RBSECPTR 01S0224 00070000 BNZ @DL00215 01S0224 00071000 @DC00215 DS 0H 01S0225 00072000 * RFY 01S0225 00073000 * (TCBPTR) UNRSTD; /* @VS40641*/ 00074000 * END; /* END OF RB SEARCH @VS40641*/ 00075000 * IF(COMPCODE&CODEMSK)=0 THEN /* @Z40GKD1*/ 00076000 SLR @15,@15 01S0227 00077000 LR @12,COMPCODE 01S0227 00078000 N @12,@CF02359 01S0227 00079000 CLR @12,@15 01S0227 00080000 BNE @RF00227 01S0227 00081000 * DO; /* @VS40641*/ 00082000 * MPSTPTR=ASXBMPST; /* OBTAIN MPST PTR FROM ASXB */ 00083000 L @12,ASCBPTR 01S0229 00084000 L @12,ASXBPTR(,@12) 01S0229 00085000 L MPSTPTR,ASXBMPST(,@12) 01S0229 00086000 * IF MPSTPTR=ZERO THEN /* CHECK FOR ZERO MPST PTR */ 00087000 CR MPSTPTR,@15 01S0230 00088000 BNE @RF00230 01S0230 00089000 * COMPCODE=COMPCODE|RC20; /* SET INVALID RETURN CODE AND 00090000 * RETURN TO CALLER */ 00091000 O COMPCODE,@CF02404 01S0231 00092000 * ELSE 01S0232 00093000 * DO; 01S0232 00094000 * 01S0232 00095000 B @RC00230 01S0232 00096000 @RF00230 DS 0H 01S0233 00097000 * /*********************************************************/ 00098000 * /* */ 00099000 * /* THIS CODE IS ENTERED TO DETERMINE IF THE OPERATION */ 00100000 * /* REQUIRES APF AUTHORIZATION. AUTHORIZATION IS REQUIRED */ 00101000 * /* FOR SVC ENTRY WHEN INPUT IS AN LCPB OR OPERATION IS */ 00102000 * /* TPPOST. FOR ANY/ALL REQUESTS,THE DEB IS CHECKED FOR */ 00103000 * /* OPEN. IF DEB IS OPEN IT IS THEN CHECKED FOR ABEND OR */ 00104000 * /* CLOSE IN PROGRESS. @Z40GKD1*/ 00105000 * /* */ 00106000 * /*********************************************************/ 00107000 * 01S0233 00108000 * RWORK=TYPCODE; /* OBTAIN TYPE REQUEST REGISTER */ 00109000 LR RWORK,TYPCODE 01S0233 00110000 * RWORK=RWORK&(TESTTPPT|TESTLCPB);/* ISOLATE OPERATION TYPE*/ 00111000 L @15,@CF03187 01S0234 00112000 L @12,@CF02400 01S0234 00113000 LR @10,@15 01S0234 00114000 OR @10,@12 01S0234 00115000 NR RWORK,@10 01S0234 00116000 * IF(RWORK=TESTLCPB|RWORK=TESTTPPT)&/* DETERMINE IF 01S0235 00117000 * OPERATION IS A TPPOST OR INPUT 00118000 * IS AN LCPB */ 00119000 * 01S0235 00120000 * /*********************************************************/ 00121000 * /* */ 00122000 * /* APF AUTHORIZATION REQUIRED FOR THESE OPERATIONS */ 00123000 * /* @Z40GKD1*/ 00124000 * /* */ 00125000 * /*********************************************************/ 00126000 * 01S0235 00127000 * MPSAUTH^=ON THEN /* IS MEMORY AUTHORIZED BY APF 00128000 * @Z40GKD1*/ 00129000 CR RWORK,@12 01S0235 00130000 BE @GL00003 01S0235 00131000 CR RWORK,@15 01S0235 00132000 BNE @RF00235 01S0235 00133000 @GL00003 TM MPSAUTH(MPSTPTR),B'00100000' 01S0235 00134000 BO @RF00235 01S0235 00135000 * COMPCODE=COMPCODE|RC4;/* NO, THEN INDICATE ERROR */ 00136000 O COMPCODE,@CF02408 01S0236 00137000 * ELSE 01S0237 00138000 * DO; /* NOT LCPB OR TPPOST OPERATION 00139000 * @Z40GKD1*/ 00140000 * 01S0237 00141000 B @RC00235 01S0237 00142000 @RF00235 DS 0H 01S0238 00143000 * /*****************************************************/ 00144000 * /* */ 00145000 * /* THIS CODE WILL CHECK THAT A DEB IS OPEN FOR THIS */ 00146000 * /* REQUEST. THE DCE CHAIN FROM THE MPST WILL BE */ 00147000 * /* SCANNED FOR A DEB ADDRESS MATCH IN THE MQL. */ 00148000 * /* */ 00149000 * /*****************************************************/ 00150000 * 01S0238 00151000 * DEBPTR=R0DEB&ADDRESS;/* OBTAIN DEB POINTER */ 00152000 LR DEBPTR,R0DEB 01S0238 00153000 N DEBPTR,@CF03193 01S0238 00154000 * DEBPTR=DEBPTR-(LENGTH(ACDVTPRX)+LENGTH(ACDDBPFX)); 00155000 SL DEBPTR,@CF00089 01S0239 00156000 * DTBLREG=MPSDBTBL; /* INITIALIZE DEB TABLE REG */ 00157000 L DTBLREG,MPSDBTBL(,MPSTPTR) 01S0240 00158000 * COMPCODE=COMPCODE|RC4;/* INIT TO ERROR CODE @Z40GKD1*/ 00159000 O COMPCODE,@CF02408 01S0241 00160000 * IF DTBLREG^=0 THEN 01S0242 00161000 * ; /* IS THERE A DCE @Z40GKD1*/ 00162000 * DO UNTIL((COMPCODE&CODEMSK)^='04000000'X)|(DTBLREG=0); 00163000 @DL00244 DS 0H 01S0245 00164000 * /* SEARCH FOR DEB @Z40GKD1*/ 00165000 * IF DEBPTR=DCEDBPTR THEN 01S0245 00166000 C DEBPTR,DCEDBPTR(,DTBLREG) 01S0245 00167000 BNE @RF00245 01S0245 00168000 * DO; /* DEB FOUND */ 00169000 * COMPCODE=COMPCODE&RC0;/* YES, SET GOOD RETURN 00170000 * CODE @Z40GKD1*/ 00171000 N COMPCODE,@CF03193 01S0247 00172000 * IF PSTABINP=ON THEN/* IS TASK IN ABEND */ 00173000 L @15,ACDTSKID(,DEBPTR) 01S0248 00174000 TM PSTABINP(@15),B'00000001' 01S0248 00175000 BNO @RF00248 01S0248 00176000 * COMPCODE=COMPCODE|RC3C;/* YES, SET ERROR CODE 00177000 * @Z40GKD1*/ 00178000 O COMPCODE,@CF03203 01S0249 00179000 * ELSE /* @ZM34567*/ 00180000 * IF ACDCACB=ON THEN/* CLOSE IN PROGRESS ? 00181000 * @Y30APGA*/ 00182000 B @RC00248 01S0250 00183000 @RF00248 TM ACDCACB(DEBPTR),B'10000000' 01S0250 00184000 BNO @RF00250 01S0250 00185000 * COMPCODE=COMPCODE|RC20;/* YES-SET ERROR 00186000 * CODE @Z40GKD1*/ 00187000 O COMPCODE,@CF02404 01S0251 00188000 * END; 01S0252 00189000 * ELSE 01S0253 00190000 * DTBLREG=DCECHN; /* NO, TRY NEXT DCE */ 00191000 B @RC00245 01S0253 00192000 @RF00245 L DTBLREG,DCECHN(,DTBLREG) 01S0253 00193000 * END; 01S0254 00194000 @RC00245 DS 0H 01S0254 00195000 @DE00244 LR @15,COMPCODE 01S0254 00196000 N @15,@CF02359 01S0254 00197000 CL @15,@CF02408 01S0254 00198000 BNE @DC00244 01S0254 00199000 LTR DTBLREG,DTBLREG 01S0254 00200000 BNZ @DL00244 01S0254 00201000 @DC00244 DS 0H 01S0255 00202000 * END; 01S0255 00203000 * IF(COMPCODE&CODEMSK)=0 THEN/* IF AUTHORIZED OR DEB FOUND 00204000 * THEN CONTINUE @Z40GKD1*/ 00205000 @RC00235 LR @15,COMPCODE 01S0256 00206000 N @15,@CF02359 01S0256 00207000 LTR @15,@15 01S0256 00208000 BNZ @RF00256 01S0256 00209000 * DO; 01S0257 00210000 * IF RWORK=TESTLCPB THEN/* IF INPUT IS AN LCPB @Z40GKD1*/ 00211000 C RWORK,@CF02400 01S0258 00212000 BNE @RF00258 01S0258 00213000 * DO; /* THEN TRY TCAMI FAST PATH 01S0259 00214000 * @Z40GKD1*/ 00215000 * RFY 01S0260 00216000 * (OLDSRB, 01S0260 00217000 * OLDCNT, 01S0260 00218000 * NEWSRB, 01S0260 00219000 * NEWCNT, 01S0260 00220000 * SRBPTR) RSTD; /* @Z40GKF6*/ 00221000 * DO; /* LISATCVT 01S0261 00222000 * CVTBASE(PAGEABLE,(ATCVTPTR)) */ 00223000 * ATCVTPTR=ATCLCPTR;/* SET UP ATCVT POINTER */ 00224000 L ATCVTPTR,ATCLCPTR 01S0262 00225000 * END; /* LISATCVT PTR TO ATCVT @Z40GKF6*/ 00226000 * OLDSRB=ATCSRBQ; /* GET PTR TO 1ST SRB ON ATCVT 00227000 * QUEUE @Z40GKF6*/ 00228000 L OLDSRB,ATCSRBQ(,ATCVTPTR) 01S0264 00229000 * OLDCNT=ATCSRBCN;/* GET CURRENT COUNT OF SRB'S 00230000 * @Z40GKF6*/ 00231000 L OLDCNT,ATCSRBCN(,ATCVTPTR) 01S0265 00232000 * RFY 01S0266 00233000 * RCREG RSTD; /* @Z40GKD1*/ 00234000 *DQSRBLP: /* @Z40GKD1*/ 00235000 * IF ATCSRBAC>0 THEN/* ANY SRB ON ATCVT? @Z40GKF6*/ 00236000 DQSRBLP CLC ATCSRBAC(2,ATCVTPTR),@CH00058 01S0267 00237000 BNH @RF00267 01S0267 00238000 * DO; /* YES @Z40GKD1*/ 00239000 * NEWCNT=OLDCNT-1;/* SET UP NEW AVAIL. CNT. 00240000 * @Z40GKD1*/ 00241000 LR NEWCNT,OLDCNT 01S0269 00242000 BCTR NEWCNT,0 01S0269 00243000 * NEWSRB=OLDSRB->SRBFLNK;/* NEW FWD CHAIN 01S0270 00244000 * @Z40GKD1*/ 00245000 L NEWSRB,SRBFLNK(,OLDSRB) 01S0270 00246000 * CDS(OLDSRB,NEWSRB,ATCSRB);/* GET 1ST SRB FROM 00247000 * ATCVT @ZA15107*/ 00248000 CDS OLDSRB,NEWSRB,ATCSRB(ATCVTPTR) 01S0271 00249000 * BC(FAIL,DQSRBLP);/* IF FAIL, TRY AGAIN 01S0272 00250000 * @Z40GKD1*/ 00251000 BC 7,DQSRBLP 01S0272 00252000 * SRBPTR=OLDSRB;/* SRB @ IS IN OLDSRB @Z40GKD1*/ 00253000 LR SRBPTR,OLDSRB 01S0273 00254000 * RCREG=0; /* INDICATE SRB OBTAINED @Z40GKD1*/ 00255000 SLR RCREG,RCREG 01S0274 00256000 * END; /* END SRB ON MPST @Z40GKD1*/ 00257000 * ELSE 01S0276 00258000 * DO; /* NO SRB ON MPST, USE REQSTORE 00259000 * @Z40GKD1*/ 00260000 B @RC00267 01S0276 00261000 @RF00267 DS 0H 01S0277 00262000 * RFY 01S0277 00263000 * (REG12, 01S0277 00264000 * REG13) RSTD;/* @Z40GKD1*/ 00265000 * REG12=REG14;/* SAVE RETURN @ (14) ACROSS 00266000 * REQSTORE @Z40GKD1*/ 00267000 LR REG12,REG14 01S0278 00268000 * REG13=R0DEB;/* SAVE DEB @/OPERATION TYPE (0) 00269000 * @Z40GKD1*/ 00270000 LR REG13,R0DEB 01S0279 00271000 * MPSSAV2=BASEPTR;/* SAVE BASE REG (6) @Z40GKD1*/ 00272000 * 01S0280 00273000 ST BASEPTR,MPSSAV2(,MPSTPTR) 01S0280 00274000 * /*********************************************/ 00275000 * /* */ 00276000 * /* REQSTORE CBID(SRB)CLEAR(NO)SAVE(NO) */ 00277000 * /* */ 00278000 * /*********************************************/ 00279000 * 01S0281 00280000 * DO; 01S0281 00281000 * 01S0281 00282000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 00283000 */* END OF ATBUILD */ 00284000 * 01S0282 00285000 * DCL 01S0282 00286000 * GPR06F FIXED(31) REG(06); 01S0282 00287000 * DCL 01S0283 00288000 * GPR06P PTR(31) REG(06); 01S0283 00289000 * DCL 01S0284 00290000 * GPR07F FIXED(31) REG(07); 01S0284 00291000 * DCL 01S0285 00292000 * GPR07P PTR(31) REG(07); 01S0285 00293000 * DCL 01S0286 00294000 * GPR08F FIXED(31) REG(08); 01S0286 00295000 * DCL 01S0287 00296000 * GPR08P PTR(31) REG(08); 01S0287 00297000 * DCL 01S0288 00298000 * GPR09F FIXED(31) REG(09); 01S0288 00299000 * DCL 01S0289 00300000 * GPR09P PTR(31) REG(09); 01S0289 00301000 * DCL 01S0290 00302000 * GPR10F FIXED(31) REG(10); 01S0290 00303000 * DCL 01S0291 00304000 * GPR10P PTR(31) REG(10); 01S0291 00305000 * DCL 01S0292 00306000 * GPR11F FIXED(31) REG(11); 01S0292 00307000 * DCL 01S0293 00308000 * GPR11P PTR(31) REG(11); 01S0293 00309000 * DCL 01S0294 00310000 * GPR12F FIXED(31) REG(12); 01S0294 00311000 * DCL 01S0295 00312000 * GPR12P PTR(31) REG(12); 01S0295 00313000 * DCL 01S0296 00314000 * GPR13F FIXED(31) REG(13); 01S0296 00315000 * DCL 01S0297 00316000 * GPR13P PTR(31) REG(13); 01S0297 00317000 * RFY 01S0298 00318000 * (GPR02P, 01S0298 00319000 * GPR03P, 01S0298 00320000 * GPR04P, 01S0298 00321000 * GPR15P) RSTD; 01S0298 00322000 * DO; /* LISATCVT 01S0299 00323000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00324000 * GPR15P=ATCLCPTR;/* SET UP ATCVT POINTER */ 00325000 L GPR15P,ATCLCPTR 01S0300 00326000 * END; /* LISATCVT */ 00327000 * GPR02P=GPR15P->ATCBPDA|'80000000'X; 01S0302 00328000 L GPR02P,ATCBPDA(,GPR15P) 01S0302 00329000 O GPR02P,@CF02394 01S0302 00330000 * DCL 01S0303 00331000 * 1 FMZA0014 FIXED(31) STATIC LOCAL, 01S0303 00332000 * 2 * FIXED(8) INIT(16), 01S0303 00333000 * 2 * PTR(24) INIT(0); 01S0303 00334000 * GPR03F=FMZA0014; 01S0304 00335000 L GPR03F,FMZA0014 01S0304 00336000 * GPR04F=16; 01S0305 00337000 LA GPR04F,16 01S0305 00338000 * GPR15P=GPR15P->ATCSMRQ; 01S0306 00339000 L GPR15P,ATCSMRQ(,GPR15P) 01S0306 00340000 * DCL 01S0307 00341000 * FMZL0014 BASED(GPR15P) LABEL VALUERANGE(*); 00342000 * CALL FMZL0014; 01S0308 00343000 BALR @14,@15 01S0308 00344000 * RFY 01S0309 00345000 * (GPR02P, 01S0309 00346000 * GPR03P, 01S0309 00347000 * GPR04P, 01S0309 00348000 * GPR15P) UNRSTD; 01S0309 00349000 * END; /* ******** END OF REQSTORE 01S0310 00350000 * EXPANSION @Z40GKD1*/ 00351000 * REG14=REG12;/* RESTORE REGS AFTER MACRO CALL 00352000 * @Z40GKD1*/ 00353000 LR REG14,REG12 01S0311 00354000 * R0DEB=REG13;/* @Z40GKD1*/ 00355000 LR R0DEB,REG13 01S0312 00356000 * BASEPTR=MPSSAV2;/* @Z40GKD1*/ 00357000 L BASEPTR,MPSSAV2(,MPSTPTR) 01S0313 00358000 * RFY 01S0314 00359000 * (REG12, 01S0314 00360000 * REG13) UNRSTD;/* @Z40GKD1*/ 00361000 * END; /* END USE REQSTORE TO OBTAIN SRB 00362000 * @Z40GKD1*/ 00363000 * RFY 01S0316 00364000 * (OLDSRB, 01S0316 00365000 * NEWSRB, 01S0316 00366000 * OLDCNT, 01S0316 00367000 * NEWCNT) UNRSTD;/* @Z40GKD1*/ 00368000 @RC00267 DS 0H 01S0317 00369000 * IF RCREG=<'04'X THEN/* SRB OBTAINED? @Z40GKD1*/ 00370000 C RCREG,@CF02583 01S0317 00371000 BH @RF00317 01S0317 00372000 * DO; /* YES, SCHEDULE SRB TO RUN AICIR 00373000 * BACK END @Z40GKD1*/ 00374000 * RFY 01S0319 00375000 * SRBPTR RSTD;/* @Z40GKD1*/ 00376000 * SRB=SRB&&SRB;/* CLEAR SRB @Z40GKD1*/ 00377000 XC SRB(44,SRBPTR),SRB(SRBPTR) 01S0320 00378000 * DO; /* LISATCVT 01S0321 00379000 * CVTBASE(PAGEABLE,(ATCVTPTR)) */ 00380000 * ATCVTPTR=ATCLCPTR;/* SET UP ATCVT POINTER */ 00381000 L ATCVTPTR,ATCLCPTR 01S0322 00382000 * END; /* LISATCVT @Z40GKD1*/ 00383000 * SRBID='PS25';/* INDICATE SRB FOR CALLING 00384000 * APC25 @Z40GKD1*/ 00385000 MVC SRBID(4,SRBPTR),@CC03250 01S0324 00386000 * SRBASCB=MPSASCB;/* ASCB ADDR @Z40GKD1*/ 00387000 L @12,MPSASCB(,MPSTPTR) 01S0325 00388000 ST @12,SRBASCB(,SRBPTR) 01S0325 00389000 * SRBEP=ATCAPBE;/* ROUTINE TO GET CONTROL 01S0326 00390000 * (AICIR BACK END) @Z40GKD1*/ 00391000 L @12,ATCAPBE(,ATCVTPTR) 01S0326 00392000 ST @12,SRBEP(,SRBPTR) 01S0326 00393000 * SRB01=R0DEB&ADDRESS;/* SAVE DEBBASIC ADDR IN 00394000 * SRB SAVE @Z40GKD1*/ 00395000 LR @12,R0DEB 01S0327 00396000 N @12,@CF03193 01S0327 00397000 ST @12,SRB01+32(,SRBPTR) 01S0327 00398000 * SRBPARM=WKELADR;/* LCPB ADDRESS @Z40GKD1*/ 00399000 ST WKELADR,SRBPARM(,SRBPTR) 01S0328 00400000 * SRBRMTR=ATCAP84;/* RECOVERY ROUTINE @Z40GKD1*/ 00401000 L @12,ATCAP84(,ATCVTPTR) 01S0329 00402000 ST @12,SRBRMTR(,SRBPTR) 01S0329 00403000 * SRBPASID=MPSASID;/* ASID @Z40GKD1*/ 00404000 MVC SRBPASID(2,SRBPTR),MPSASID(MPSTPTR) 01S0330 00405000 * RWORK=TYPCODE;/* GET OPERATION TYPE FROM 00406000 * INPUT @Z40GKD1*/ 00407000 LR RWORK,TYPCODE 01S0331 00408000 * SRL(RWORK,24);/* MOVE OP TYPE TO LOW ORDER 00409000 * BYTE @Z40GKD1*/ 00410000 SRL RWORK,24 01S0332 00411000 * SRBTPTYP=RWORK;/* SET OPTION IN SRB @Z40GKD1*/ 00412000 LR @12,SRBPTR 01S0333 00413000 SL @12,@CF03265 01S0333 00414000 STC RWORK,SRBTPTYP(,@12) 01S0333 00415000 * SRBMPST=MPSTPTR;/* MPST ADDR IN SAVE AREA 00416000 * @Z40GKD1*/ 00417000 ST MPSTPTR,SRBMPST(,@12) 01S0334 00418000 * MPSSAV3=RCREG;/* SAVE REG 15 ACROSS MACRO 00419000 * @Z40GKD1*/ 00420000 ST RCREG,MPSSAV3(,MPSTPTR) 01S0335 00421000 * STM(R0DEB,COMPCODE,MPSSAV1);/* SAVE REGS 0,1 00422000 * @Z40GKD1*/ 00423000 STM R0DEB,COMPCODE,MPSSAV1(MPSTPTR) 01S0336 00424000 * RFY 01S0337 00425000 * REG1 RSTD;/* @Z40GKD1*/ 00426000 */*VMDESET ((RWORK),ZERO) */ 00427000 * 01S0338 00428000 * DO; /* INVOKE MODESET MACRO */ 00429000 * GEN; 01S0339 00430000 MODESET EXTKEY=ZERO,WORKREG=2 00431000 * RWORK=0; /* PUT RETURN CODE IN RCREG */ 00432000 SLR RWORK,RWORK 01S0340 00433000 * END; /* VMDESET GET INTO KEY 0 01S0341 00434000 * @Z40GKD1*/ 00435000 * REG1=SRBPTR;/* PUT SRB @ IN REG1 FOR MACRO 00436000 * @Z40GKD1*/ 00437000 LR REG1,SRBPTR 01S0342 00438000 * GEN(SCHEDULE SRB=(1),SCOPE=LOCAL) 01S0343 00439000 * REFS(CVTPTR,CVTLSMQ,CVTMAP,SRBFLNK,SRBSECT); 00440000 SCHEDULE SRB=(1),SCOPE=LOCAL 00441000 * /* SCHEDULE ISTAICIR BACK END TO 00442000 * GET CONTROL @Z40GKD1*/ 00443000 * RCREG=MPSSAV3;/* RESTORE REG 15 @Z40GKD1*/ 00444000 L RCREG,MPSSAV3(,MPSTPTR) 01S0344 00445000 * LM(R0DEB,COMPCODE,MPSSAV1);/* RESTORE REGS 00446000 * 0,1 @Z40GKD1*/ 00447000 LM R0DEB,COMPCODE,MPSSAV1(MPSTPTR) 01S0345 00448000 * RFY 01S0346 00449000 * (SRBPTR, 01S0346 00450000 * REG1) UNRSTD;/* @Z40GKD1*/ 00451000 * END; /* END SCHEDULE SRB @Z40GKD1*/ 00452000 * RWORK=TYPCODE; /* RESTORE OPTION TYPE REGISTER 00453000 * @Z40GKD1*/ 00454000 @RF00317 LR RWORK,TYPCODE 01S0348 00455000 * RWORK=RWORK&(TESTTPPT|TESTLCPB);/* ISOLATE OP 00456000 * TYPE @Z40GKD1*/ 00457000 L @12,@CF03187 01S0349 00458000 O @12,@CF02400 01S0349 00459000 NR RWORK,@12 01S0349 00460000 * END; /* END TRY TCAMI FAST PATH 01S0350 00461000 * @Z40GKD1*/ 00462000 * IF RWORK^=TESTLCPB|RCREG>4 THEN/* NOT LCPB OR GOT NO 00463000 * SRB @Z40GKD1*/ 00464000 @RF00258 C RWORK,@CF02400 01S0351 00465000 BNE @RT00351 01S0351 00466000 C RCREG,@CF00035 01S0351 00467000 BNH @RF00351 01S0351 00468000 @RT00351 DS 0H 01S0352 00469000 * DO; /* THEN USE NORMAL PATH @Z40GKD1*/ 00470000 * RFY 01S0353 00471000 * RCREG UNRSTD; /* @Z40GKD1*/ 00472000 * RFY 01S0354 00473000 * MQLPTR RSTD; 01S0354 00474000 * MQLPTR=ZERO; /* INITIALIZE POINTER FOR LOOP */ 00475000 SLR MQLPTR,MQLPTR 01S0355 00476000 * DO WHILE((COMPCODE&CODEMSK)=0)&(MQLPTR=0);/* 00477000 * @Z40GKD1*/ 00478000 * 01S0356 00479000 B @DE00356 01S0356 00480000 @DL00356 DS 0H 01S0357 00481000 * /***********************************************/ 00482000 * /* */ 00483000 * /* DEQUEUE AN MQL FROM THE MPST PRE-ALLOCATTED */ 00484000 * /* QUEUE IF ANY ARE AVAILABLE */ 00485000 * /* */ 00486000 * /***********************************************/ 00487000 * 01S0357 00488000 * MQLPTR=MPSQEL;/* OBTAIN MQL HEADER */ 00489000 L MQLPTR,MPSQEL(,MPSTPTR) 01S0357 00490000 *DQQELLP: 01S0358 00491000 * IF MQLPTR^=ZERO THEN 01S0358 00492000 DQQELLP LTR MQLPTR,MQLPTR 01S0358 00493000 BZ @RF00358 01S0358 00494000 * DO; /* ARE ANY MQLS ON THE ALLOC 00495000 * QUEUE */ 00496000 * SWAPREG=MQLCHAIN;/* OBTAIN MQL CHAIN 01S0360 00497000 * POINTER */ 00498000 L SWAPREG,MQLCHAIN(,MQLPTR) 01S0360 00499000 * CS(MQLPTR,SWAPREG,MPSQEL);/* DEQUEUE MQL 00500000 * FROM CHAIN */ 00501000 CS MQLPTR,@04,MPSQEL(MPSTPTR) 01S0361 00502000 * BC(FAIL,DQQELLP);/* IF FAIL, BRANCH TO LOOP*/ 00503000 BC 7,DQQELLP 01S0362 00504000 * END; 01S0363 00505000 * IF MQLPTR^=ZERO THEN/* IF AN MQL WAS AVAILABLE 00506000 * FROM THE MPST MQL QUEUE THEN 00507000 * INITIALIZE THE MQL */ 00508000 @RF00358 LTR MQLPTR,MQLPTR 01S0364 00509000 BZ @RF00364 01S0364 00510000 * DO; /* @Z40GKD1*/ 00511000 * 01S0365 00512000 * /*******************************************/ 00513000 * /* */ 00514000 * /* INITIALIZE THE MQL AND THEN TPQUE THE */ 00515000 * /* MQL TO THE MPST TPIO PAB */ 00516000 * /* */ 00517000 * /*******************************************/ 00518000 * 01S0366 00519000 * MQLWEPTR=WKELADR;/* WORK ELT POINTER IN MQL*/ 00520000 ST WKELADR,MQLWEPTR(,MQLPTR) 01S0366 00521000 * MQLDEBAD=R0DEB;/* DEB ADDRESS IN MQL */ 00522000 ST R0DEB,MQLDEBAD(,MQLPTR) 01S0367 00523000 * RFY 01S0368 00524000 * REG9 RSTD;/* RESTRICT SAVE REG @ZM40291*/ 00525000 * REG9=REG14;/* SAVE R14 ACROSS TPQUE 01S0369 00526000 * @ZM40291*/ 00527000 LR REG9,REG14 01S0369 00528000 * REG0=ADDR(MPSSRB1);/* SRB POINTER FOR TPQUE 00529000 * @Z40GKD1*/ 00530000 LA REG0,MPSSRB1(,MPSTPTR) 01S0370 00531000 * RFY 01S0371 00532000 * (REG10, 01S0371 00533000 * REG13) RSTD;/* @Z40GKF6*/ 00534000 * REG10=BASEPTR;/* SAVE BASEREG ACROSS TPQUE 00535000 * @Z40GKF6*/ 00536000 LR REG10,BASEPTR 01S0372 00537000 * REG13=MQLPTR;/* SAVE MQLPTR ACROSS TPQUE 00538000 * @Z40GKF6*/ 00539000 LR REG13,MQLPTR 01S0373 00540000 */* TPQUE (MQLPTR,DYPPAB) NORM DIR(REG0)NSTR */ 00541000 */* CMZVER = OS/VS2 */ 00542000 * 01S0374 00543000 * DO; 01S0374 00544000 * RFY 01S0375 00545000 * (GPR00P, 01S0375 00546000 * GPR01P, 01S0375 00547000 * GPR04P, 01S0375 00548000 * GPR05P, 01S0375 00549000 * GPR15P) RSTD; 01S0375 00550000 * GPR00P=REG0;/* SRB ADDR */ 00551000 * GPR15P=ADDR(DYPPAB);/* HOLD PAB PTR */ 00552000 LA GPR15P,DYPPAB+88(,MPSTPTR) 01S0377 00553000 * GPR04P=MQLPTR;/* WORK ELE PTR */ 00554000 LR GPR04P,MQLPTR 01S0378 00555000 * GPR05P=GPR15P;/* PASS PAB PTR */ 00556000 LR GPR05P,GPR15P 01S0379 00557000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 01S0380 00558000 L @12,ATCLCPTR 01S0380 00559000 L @15,ATCAP37(,@12) 01S0380 00560000 BALR @14,@15 01S0380 00561000 * GEN(NOPR 8) 01S0381 00562000 * NOSETS NOREFS; 01S0381 00563000 NOPR 8 00564000 * RFY 01S0382 00565000 * (GPR00P, 01S0382 00566000 * GPR01P, 01S0382 00567000 * GPR04P, 01S0382 00568000 * GPR05P, 01S0382 00569000 * GPR15P) UNRSTD; 01S0382 00570000 * END; /* *** END OF TPQUE GENERATION 00571000 * @Z40GKD1*/ 00572000 * REG14=REG9;/* RESTORE REG 14 @ZM40291*/ 00573000 LR REG14,REG9 01S0384 00574000 * BASEPTR=REG10;/* RESTORE BASEREG @Z40GKF6*/ 00575000 LR BASEPTR,REG10 01S0385 00576000 * MQLPTR=REG13;/* RESTORE MQLPTR @Z40GKF6*/ 00577000 LR MQLPTR,REG13 01S0386 00578000 * COMPCODE=COMPCODE&RC0;/* RESTORE RETURN 00579000 * CODE REG @Z40GKD1*/ 00580000 N COMPCODE,@CF03193 01S0387 00581000 * RFY 01S0388 00582000 * (SAVER14, 01S0388 00583000 * SAVER0) UNRSTD;/* REL SV REGS */ 00584000 * RFY 01S0389 00585000 * (REG9, 01S0389 00586000 * REG10, 01S0389 00587000 * REG13) UNRSTD;/* RELE SAVE REGS @Z40GKF6*/ 00588000 * END; /* @Z40GKD1*/ 00589000 * ELSE 01S0391 00590000 * DO; /* NO PRE-ALLOCATTED MQLS 01S0391 00591000 * AVAILABLE */ 00592000 * 01S0391 00593000 B @RC00364 01S0391 00594000 @RF00364 DS 0H 01S0392 00595000 * /*******************************************/ 00596000 * /* */ 00597000 * /* OBTAIN A BLOCK OF STORAGE FROM SMS TO */ 00598000 * /* BUILD A CHAIN OF MQLS */ 00599000 * /* */ 00600000 * /*******************************************/ 00601000 * 01S0392 00602000 * STM(REG0,REG1,MPSSAV1);/* SAVE REGISTER 0-1*/ 00603000 STM REG0,REG1,MPSSAV1(MPSTPTR) 01S0392 00604000 * MPSSAV3=RTNREG;/* SAVE RETURN REGISTER */ 00605000 ST RTNREG,MPSSAV3(,MPSTPTR) 01S0393 00606000 * REG1=BASEPTR;/* SAVE BASE */ 00607000 LR REG1,BASEPTR 01S0394 00608000 * RFY 01S0395 00609000 * RCREG RSTD;/* RESTRICT REQSTORE REGISTER */ 00610000 * 01S0395 00611000 * /*******************************************/ 00612000 * /* */ 00613000 * /* REQSTORE CBID(PSSQEL)SAVE(NO) */ 00614000 * /* */ 00615000 * /*******************************************/ 00616000 * 01S0396 00617000 * DO; 01S0396 00618000 * 01S0396 00619000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 00620000 */* END OF ATBUILD */ 00621000 * 01S0397 00622000 * RFY 01S0397 00623000 * (GPR02P, 01S0397 00624000 * GPR03P, 01S0397 00625000 * GPR04P, 01S0397 00626000 * GPR15P) RSTD; 01S0397 00627000 * DO; /* LISATCVT 01S0398 00628000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00629000 * GPR15P=ATCLCPTR;/* SET UP ATCVT POINTER*/ 00630000 L GPR15P,ATCLCPTR 01S0399 00631000 * END; /* LISATCVT */ 00632000 * GPR02P=GPR15P->ATCBPDA|'80000000'X; 01S0401 00633000 L GPR02P,ATCBPDA(,GPR15P) 01S0401 00634000 O GPR02P,@CF02394 01S0401 00635000 * DCL 01S0402 00636000 * 1 FMZA0040 FIXED(31) STATIC LOCAL, 00637000 * 2 * FIXED(8) INIT(16), 01S0402 00638000 * 2 * PTR(24) INIT(0); 01S0402 00639000 * GPR03F=FMZA0040; 01S0403 00640000 L GPR03F,FMZA0040 01S0403 00641000 * GPR04F=24; 01S0404 00642000 LA GPR04F,24 01S0404 00643000 * GPR15P=GPR15P->ATCSMRQ; 01S0405 00644000 L GPR15P,ATCSMRQ(,GPR15P) 01S0405 00645000 * DCL 01S0406 00646000 * FMZL0040 BASED(GPR15P) LABEL VALUERANGE(* 00647000 * ); 01S0406 00648000 * CALL FMZL0040; 01S0407 00649000 BALR @14,@15 01S0407 00650000 * RFY 01S0408 00651000 * (GPR02P, 01S0408 00652000 * GPR03P, 01S0408 00653000 * GPR04P, 01S0408 00654000 * GPR15P) UNRSTD; 01S0408 00655000 * END; 01S0409 00656000 * 01S0409 00657000 * /*******************************************/ 00658000 * /* */ 00659000 * /* ******** END OF REQSTORE EXPANSION */ 00660000 * /* REQSTORE RETURNS ADDRESS OF BLOCK OF */ 00661000 * /* MQLS IN REG3 WHICH HAS BEEN DECLARED AS */ 00662000 * /* MQLPTR */ 00663000 * /* */ 00664000 * /*******************************************/ 00665000 * 01S0410 00666000 * BASEPTR=REG1;/* RESTORE BASEREG */ 00667000 LR BASEPTR,REG1 01S0410 00668000 * LM(REG0,REG1,MPSSAV1);/* RESTORE REGISTERS 00669000 * 0-1 */ 00670000 LM REG0,REG1,MPSSAV1(MPSTPTR) 01S0411 00671000 * RTNREG=MPSSAV3;/* RESTORE RETURN REGISTER */ 00672000 L RTNREG,MPSSAV3(,MPSTPTR) 01S0412 00673000 * COMPCODE=COMPCODE&RC0;/* CLEAR INTERNAL 00674000 * RETURN CODE */ 00675000 N COMPCODE,@CF03193 01S0413 00676000 * IF RCREG>=COREUNAV/* CHECK FOR MQL NOT 00677000 * AVAILABLE */ 00678000 * THEN 01S0414 00679000 C RCREG,@CF00079 01S0414 00680000 BL @RF00414 01S0414 00681000 * COMPCODE=COMPCODE|RC14;/* SET RETN CODE 00682000 * INVALD @Z40GKD1*/ 00683000 O COMPCODE,@CF03205 01S0415 00684000 * RFY 01S0416 00685000 * RCREG UNRSTD;/* RELEASE REQSTORE REG */ 00686000 @RF00414 DS 0H 01S0417 00687000 * IF(COMPCODE&CODEMSK)=0 THEN/* IF A BLOCK OF 00688000 * MQLS WAS AVAILABLE FROM SMS 00689000 * THEN CHAIN THEM UP */ 00690000 LR @15,COMPCODE 01S0417 00691000 N @15,@CF02359 01S0417 00692000 LTR @15,@15 01S0417 00693000 BNZ @RF00417 01S0417 00694000 * DO; /* @Z40GKD1*/ 00695000 * 01S0418 00696000 * /***************************************/ 00697000 * /* */ 00698000 * /* BREAK THE BLOCK OF STORAGE OBTAINED */ 00699000 * /* FROM SMS INTO MQLS AND CHAIN THE */ 00700000 * /* MQLS TOGETHER THEN CHAIN THE BLOCK */ 00701000 * /* OF STORAGE TO THE MPST. */ 00702000 * /* */ 00703000 * /***************************************/ 00704000 * 01S0419 00705000 * SWAPREG=MQLPTR;/* OBTAIN MQL ADDR FOR 00706000 * SWAP */ 00707000 LR SWAPREG,MQLPTR 01S0419 00708000 * LOOPCT=MQLCON-1;/* OBTAIN MQL COUNT - 1*/ 00709000 LA LOOPCT,4 01S0420 00710000 * DO WHILE(LOOPCT^=ZERO);/* BREAK UP MQL 00711000 * BLOCK */ 00712000 B @DE00421 01S0421 00713000 @DL00421 DS 0H 01S0422 00714000 * MQLCHAIN=MQLPTR+LENGTH(MQLN01); 01S0422 00715000 LA @15,12 01S0422 00716000 LR @12,MQLPTR 01S0422 00717000 ALR @12,@15 01S0422 00718000 ST @12,MQLCHAIN(,MQLPTR) 01S0422 00719000 * MQLPTR=MQLPTR+LENGTH(MQLN01); 01S0423 00720000 ALR MQLPTR,@15 01S0423 00721000 * LOOPCT=LOOPCT-ONE;/* DECREMENT LOOP 00722000 * COUNT */ 00723000 BCTR LOOPCT,0 01S0424 00724000 * END; 01S0425 00725000 @DE00421 LTR LOOPCT,LOOPCT 01S0425 00726000 BNZ @DL00421 01S0425 00727000 * COMPREG=MPSQEL;/* SWAP ON FRONT OF 00728000 * QUEUE */ 00729000 L COMPREG,MPSQEL(,MPSTPTR) 01S0426 00730000 *CSFAIL: 01S0427 00731000 * MQLCHAIN=COMPREG;/* SET CURRENT CHAIN */ 00732000 CSFAIL ST COMPREG,MQLCHAIN(,MQLPTR) 01S0427 00733000 * CS(COMPREG,SWAPREG,MPSQEL);/* SWAP MQL 00734000 * BK ON MP */ 00735000 CS COMPREG,@04,MPSQEL(MPSTPTR) 01S0428 00736000 * BC(FAIL,CSFAIL);/* IF FAIL, BRANCH TO 00737000 * LOOP */ 00738000 BC 7,CSFAIL 01S0429 00739000 * SWAPREG->MQLBLKP=MPSMQLBP;/* OBTAIN PTR 00740000 * TO PREVIOUS BLOCK OF MQLS 00741000 * @ZM32623*/ 00742000 L @15,MPSMQLBP(,MPSTPTR) 01S0430 00743000 ST @15,MQLBLKP(,SWAPREG) 01S0430 00744000 * MPSMQLBP=SWAPREG;/* PUT THIS BLOCK ONTO 00745000 * HEAD OF MPST MQL BLOCK ALLOC */ 00746000 ST SWAPREG,MPSMQLBP(,MPSTPTR) 01S0431 00747000 * MQLPTR=ZERO;/* RESET POINTER FOR LOOP 00748000 * CONTROL */ 00749000 SLR MQLPTR,MQLPTR 01S0432 00750000 * END; /* END CHAIN MQLS @Z40GKD1*/ 00751000 * END; /* END NO PREALLOCATED MQLS */ 00752000 @RF00417 DS 0H 01S0435 00753000 * END; /* END DO WHILE */ 00754000 @RC00364 DS 0H 01S0435 00755000 @DE00356 SLR @15,@15 01S0435 00756000 LR @12,COMPCODE 01S0435 00757000 N @12,@CF02359 01S0435 00758000 CLR @12,@15 01S0435 00759000 BNE @DC00356 01S0435 00760000 CR MQLPTR,@15 01S0435 00761000 BE @DL00356 01S0435 00762000 @DC00356 DS 0H 01S0436 00763000 * END; /* END AUTHORIZED OR DEB FOUND */ 00764000 * END; /* END USE NORMAL PATH */ 00765000 @RF00351 DS 0H 01S0438 00766000 * END; /* END MPST EXISTS */ 00767000 @RF00256 DS 0H 01S0439 00768000 * END; /* @VS40641*/ 00769000 @RC00230 DS 0H 01S0440 00770000 * RFY 01S0440 00771000 * REG15 RSTD; /* RESTRICT RETURN CODE REGISTER */ 00772000 @RF00227 DS 0H 01S0441 00773000 * REG15=COMPCODE; /* COMPCODE AS RETURN CODE */ 00774000 LR REG15,COMPCODE 01S0441 00775000 * SRL(REG15,24); /* MOVE RETURN CODE TO LOW-ORDER 00776000 * BYTE @Z40GKD1*/ 00777000 SRL REG15,24 01S0442 00778000 * IF REG15=ZERO THEN /* IF RETCODE =0, AN SRB MUST */ 00779000 LTR REG15,REG15 01S0443 00780000 BNZ @RF00443 01S0443 00781000 * REG14=CVTEXP1; /* HAVE BEEN SCHEDULED. SO EXIT 00782000 * TO SPECIAL RETURN POINT SUCH 00783000 * THAT VS2 DISPATCHER WILL RUN 00784000 * IMMEDIATELY AND SCHEDULE SRB, 00785000 * NOTE: VS2 SYSTEM HSE MUST 00786000 * MAIN- TAIN THIS INTERFACE. 00787000 * @Z40GKF6*/ 00788000 L @12,CVTPTR 01S0444 00789000 L REG14,CVTEXP1(,@12) 01S0444 00790000 */* TPEPILOG */ 00791000 * 01S0445 00792000 * GEN(PRINT OFF); 01S0445 00793000 @RF00443 DS 0H 01S0445 00794000 PRINT OFF 00795000 * DCL 01S0446 00796000 * ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*);/* RESET ROUTINE */ 00797000 * DCL 01S0447 00798000 * ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*);/* TPQUE ROUTINE */ 00799000 * GEN(PRINT ON); 01S0448 00800000 * 01S0448 00801000 PRINT ON 00802000 */* END OF TPEPILOG */ 00803000 * 01S0449 00804000 * END ISTAPC22 /* END ISTAPC22 */ 00805000 * 01S0449 00806000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00807000 */*%INCLUDE SYSUT5 (APC22PRO) */ 00808000 */*%INCLUDE SYSUT5 (APC22DCL) */ 00809000 */*%INCLUDE SYSLIB (IHASRB ) */ 00810000 */*%INCLUDE SYSLIB (CVT ) */ 00811000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00812000 */*%INCLUDE SYSLIB (IHAASXB ) */ 00813000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00814000 */*%INCLUDE SYSLIB (IHARB ) */ 00815000 */*%INCLUDE SYSLIB (IKJRB ) */ 00816000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00817000 */*%INCLUDE SYSLIB (IFGACB ) */ 00818000 */*%INCLUDE SYSLIB (IFGACBVT) */ 00819000 */*%INCLUDE SYSLIB (IFGRPL ) */ 00820000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 00821000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 00822000 */*%INCLUDE SYSUT5 (TESTIRB ) */ 00823000 */*%INCLUDE SYSUT5 (CKAUTH ) */ 00824000 */*%INCLUDE SYSUT5 (CKDEB ) */ 00825000 */*%INCLUDE SYSUT5 (FASTLCPB) */ 00826000 */*%INCLUDE SYSUT5 (DEQQEL ) */ 00827000 */*%INCLUDE SYSUT5 (CHAINQEL) */ 00828000 */*%INCLUDE SYSUT5 (OBTQEL ) */ 00829000 */*%INCLUDE SYSUT5 (ADDCORE ) */ 00830000 * 01S0449 00831000 * ; 01S0449 00832000 @EL00001 DS 0H 01S0449 00833000 @EF00001 DS 0H 01S0449 00834000 @ER00001 BR @14 01S0449 00835000 @DATA DS 0H 00836000 @CH00058 DC H'0' 00837000 @DATD DSECT 00838000 DS 0F 00839000 ISTAPC22 CSECT 00840000 DS 0F 00841000 @CF00035 DC F'4' 00842000 @CF00079 DC F'8' 00843000 @CF00089 DC F'24' 00844000 @CF03265 DC F'-32' 00845000 @CF02359 DC XL4'FF000000' 00846000 @CF02394 DC XL4'80000000' 00847000 @CF02400 DC XL4'40000000' 00848000 @CF02404 DC XL4'20000000' 00849000 @CF02408 DC XL4'04000000' 00850000 @CF03187 DC XL4'0C000000' 00851000 @CF03193 DC XL4'00FFFFFF' 00852000 @CF03203 DC XL4'3C000000' 00853000 @CF03205 DC XL4'14000000' 00854000 @CF02583 DC XL4'04' 00855000 @DATD DSECT 00856000 DS 0D 00857000 @ENDDATD EQU * 00858000 ISTAPC22 CSECT 00859000 NOPR ((@ENDDATD-@DATD)*16) 00860000 DS 0F 00861000 @SIZDATD DC AL1(0) 00862000 DC AL3(@ENDDATD-@DATD) 00863000 DS 0D 00864000 FMZA0014 DS FL4 00865000 ORG FMZA0014 00866000 @NM00120 DC AL1(16) 00867000 @NM00121 DC AL3(0) 00868000 ORG FMZA0014+4 00869000 FMZA0040 DS FL4 00870000 ORG FMZA0040 00871000 @NM00122 DC AL1(16) 00872000 @NM00123 DC AL3(0) 00873000 ORG FMZA0040+4 00874000 @CC03250 DC C'PS25' 00875000 ISTAPP22 DC 10F'0' 00876000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00877000 @01 EQU 01 00878000 @02 EQU 02 00879000 @03 EQU 03 00880000 @04 EQU 04 00881000 @05 EQU 05 00882000 @06 EQU 06 00883000 @07 EQU 07 00884000 @08 EQU 08 00885000 @09 EQU 09 00886000 @10 EQU 10 00887000 @11 EQU 11 00888000 @12 EQU 12 00889000 @13 EQU 13 00890000 @14 EQU 14 00891000 @15 EQU 15 00892000 ATCVTPTR EQU @09 00893000 DTBLREG EQU @04 00894000 SWAPREG EQU @04 00895000 LOOPCT EQU @02 00896000 RWORK EQU @02 00897000 COMPREG EQU @02 00898000 DEBPTR EQU @03 00899000 RBSECPTR EQU @02 00900000 SRBPTR EQU @03 00901000 TCBPTR EQU @04 00902000 RPHPTR EQU @01 00903000 GPR00P EQU @00 00904000 GPR01P EQU @01 00905000 GPR02P EQU @02 00906000 GPR03F EQU @03 00907000 GPR03P EQU @03 00908000 GPR04F EQU @04 00909000 GPR04P EQU @04 00910000 GPR05P EQU @05 00911000 GPR15P EQU @15 00912000 TYPCODE EQU @00 00913000 R0DEB EQU @00 00914000 WKELADR EQU @01 00915000 COMPCODE EQU @01 00916000 OLDSRB EQU @04 00917000 OLDCNT EQU @05 00918000 NEWSRB EQU @12 00919000 NEWCNT EQU @13 00920000 SAVER0 EQU @08 00921000 MQLPTR EQU @03 00922000 SAVER14 EQU @07 00923000 MPSTPTR EQU @11 00924000 BASEPTR EQU @06 00925000 RTNREG EQU @14 00926000 RCREG EQU @15 00927000 REG0 EQU @00 00928000 REG1 EQU @01 00929000 REG6 EQU @06 00930000 REG9 EQU @09 00931000 REG10 EQU @10 00932000 REG12 EQU @12 00933000 REG13 EQU @13 00934000 REG14 EQU @14 00935000 REG15 EQU @15 00936000 GPR00F EQU @00 00937000 GPR01F EQU @01 00938000 GPR02F EQU @02 00939000 GPR05F EQU @05 00940000 GPR06F EQU @06 00941000 GPR06P EQU @06 00942000 GPR07F EQU @07 00943000 GPR07P EQU @07 00944000 GPR08F EQU @08 00945000 GPR08P EQU @08 00946000 GPR09F EQU @09 00947000 GPR09P EQU @09 00948000 GPR10F EQU @10 00949000 GPR10P EQU @10 00950000 GPR11F EQU @11 00951000 GPR11P EQU @11 00952000 GPR12F EQU @12 00953000 GPR12P EQU @12 00954000 GPR13F EQU @13 00955000 GPR13P EQU @13 00956000 GPR14F EQU @14 00957000 GPR14P EQU @14 00958000 GPR15F EQU @15 00959000 REG11 EQU @11 00960000 REG2 EQU @02 00961000 REG3 EQU @03 00962000 REG4 EQU @04 00963000 REG5 EQU @05 00964000 REG7 EQU @07 00965000 REG8 EQU @08 00966000 PSA EQU 0 00967000 FLCRNPSW EQU PSA 00968000 FLCROPSW EQU PSA+8 00969000 FLCICCW2 EQU PSA+16 00970000 FLCCVT EQU FLCICCW2 00971000 PSAEEPSW EQU PSA+132 00972000 PSAESPSW EQU PSA+136 00973000 FLCSVILC EQU PSAESPSW+1 00974000 PSAEPPSW EQU PSA+140 00975000 FLCPIILC EQU PSAEPPSW+1 00976000 FLCPICOD EQU PSAEPPSW+2 00977000 PSAPICOD EQU FLCPICOD+1 00978000 FLCTEA EQU PSAEPPSW+4 00979000 FLCPER EQU PSA+152 00980000 FLCMCLA EQU PSA+168 00981000 FLCIOEL EQU FLCMCLA+4 00982000 FLCIOA EQU FLCMCLA+16 00983000 FLCFSA EQU FLCMCLA+80 00984000 PSAAOLD EQU PSA+548 00985000 PSASUPER EQU PSA+552 00986000 PSASUP1 EQU PSASUPER 00987000 PSASUP2 EQU PSASUPER+1 00988000 PSASUP3 EQU PSASUPER+2 00989000 PSASUP4 EQU PSASUPER+3 00990000 PSACLHT EQU PSA+640 00991000 PSALKSA EQU PSA+696 00992000 PSAHLHI EQU PSA+760 00993000 PSADSSFL EQU PSA+836 00994000 PSADSSF1 EQU PSADSSFL 00995000 PSADSSF3 EQU PSADSSFL+2 00996000 PSADSSF4 EQU PSADSSFL+3 00997000 PSARSVT EQU PSA+896 00998000 ATCLCPTR EQU 1032 00999000 SRBSECT EQU 0 01000000 SRBID EQU SRBSECT 01001000 SRBFLNK EQU SRBSECT+4 01002000 SRBASCB EQU SRBSECT+8 01003000 SRBFLC EQU SRBSECT+12 01004000 SRBPASID EQU SRBFLC+2 01005000 SRBEP EQU SRBSECT+20 01006000 SRBRMTR EQU SRBSECT+24 01007000 SRBPARM EQU SRBSECT+28 01008000 CVTMAP EQU 0 01009000 CVTDAR EQU CVTMAP+72 01010000 CVTFLGS1 EQU CVTDAR 01011000 CVTDCB EQU CVTMAP+116 01012000 CVTIERLC EQU CVTMAP+144 01013000 CVTOPTA EQU CVTMAP+182 01014000 CVTOPTB EQU CVTMAP+183 01015000 CVTGTF EQU CVTMAP+236 01016000 CVTGTFST EQU CVTGTF 01017000 CVTGTFS EQU CVTGTFST 01018000 CVTSTATE EQU CVTGTFST 01019000 CVTTMODE EQU CVTGTFST 01020000 CVTFORM EQU CVTGTFST 01021000 CVTAQAVT EQU CVTMAP+240 01022000 CVTTCMFG EQU CVTAQAVT 01023000 CVTVOLM2 EQU CVTMAP+244 01024000 CVTTATA EQU CVTVOLM2 01025000 CVTTSKS EQU CVTTATA 01026000 CVTVOLF2 EQU CVTTSKS 01027000 CVTTAT EQU CVTTATA+1 01028000 CVTATER EQU CVTMAP+248 01029000 CVTEXT1 EQU CVTMAP+252 01030000 CVTPURG EQU CVTMAP+260 01031000 CVTQMSG EQU CVTMAP+268 01032000 CVTDMSR EQU CVTMAP+272 01033000 CVTRSV37 EQU CVTDMSR 01034000 CVTDMSRF EQU CVTRSV37 01035000 CVTERPV EQU CVTMAP+316 01036000 CVTINTLA EQU CVTMAP+320 01037000 CVTAPF EQU CVTMAP+324 01038000 CVTEXT2 EQU CVTMAP+328 01039000 CVTHJES EQU CVTMAP+332 01040000 CVTPGSIA EQU CVTMAP+348 01041000 CVTA1F1 EQU CVTMAP+356 01042000 CVTSYSK EQU CVTMAP+357 01043000 CVTVOLM1 EQU CVTMAP+380 01044000 CVTVOLF1 EQU CVTVOLM1 01045000 CVTATMCT EQU CVTMAP+388 01046000 CVTXTNT1 EQU 0 01047000 CVTXTNT2 EQU 0 01048000 CVTDSSV EQU CVTXTNT2 01049000 CVTFLGBT EQU CVTXTNT2+5 01050000 CVTQID EQU CVTXTNT2+24 01051000 CVTSHS EQU CVTXTNT2+40 01052000 CVTRV400 EQU CVTXTNT2+52 01053000 CVTRV409 EQU CVTXTNT2+53 01054000 CVTATCVT EQU CVTXTNT2+64 01055000 CVTRV429 EQU CVTXTNT2+84 01056000 CVTRV438 EQU CVTXTNT2+85 01057000 CVTRV457 EQU CVTXTNT2+112 01058000 CVTRV466 EQU CVTXTNT2+113 01059000 CVTFIX EQU 0 01060000 CVTRELNO EQU CVTFIX+252 01061000 ASCB EQU 0 01062000 ASCBSUPC EQU ASCB+16 01063000 ASCBFW1 EQU ASCB+100 01064000 ASCBRCTF EQU ASCBFW1+2 01065000 ASCBFLG1 EQU ASCBFW1+3 01066000 ASCBASXB EQU ASCB+108 01067000 ASCBDSP1 EQU ASCB+114 01068000 ASCBFLG2 EQU ASCB+115 01069000 ASCBLKGP EQU ASCB+128 01070000 ASCBSRQ EQU ASCB+180 01071000 ASCBSRQ1 EQU ASCBSRQ 01072000 ASCBSRQ2 EQU ASCBSRQ+1 01073000 ASCBSRQ3 EQU ASCBSRQ+2 01074000 ASCBSRQ4 EQU ASCBSRQ+3 01075000 ASXB EQU 0 01076000 ASXBMPST EQU ASXB+16 01077000 ASXBAEQ EQU ASXB+168 01078000 ASXBCASW EQU ASXB+216 01079000 ASXBCRB1 EQU ASXBCASW 01080000 RBPRFX EQU 0 01081000 RBBASIC EQU 0 01082000 RBEXRTNM EQU RBBASIC 01083000 RBTMFLD EQU RBEXRTNM 01084000 RBSTAB EQU RBBASIC+10 01085000 XSTAB EQU RBSTAB 01086000 RBSTAB1 EQU XSTAB 01087000 XSTAB1 EQU RBSTAB1 01088000 RBFTCKPT EQU XSTAB1 01089000 RBSTAB2 EQU XSTAB+1 01090000 XSTAB2 EQU RBSTAB2 01091000 RBTCBNXT EQU XSTAB2 01092000 RBFACTV EQU XSTAB2 01093000 RBFDYN EQU XSTAB2 01094000 RBECBWT EQU XSTAB2 01095000 RBOPSW EQU RBBASIC+16 01096000 XRBPSW EQU RBOPSW 01097000 RBOPSWB2 EQU XRBPSW+1 01098000 RBLINK EQU RBBASIC+28 01099000 XRBLNK EQU RBLINK 01100000 RBWCF EQU XRBLNK 01101000 RBLINKB EQU XRBLNK+1 01102000 RBGRSAVE EQU RBBASIC+32 01103000 XRBREG EQU RBGRSAVE 01104000 RBGRS0 EQU XRBREG 01105000 RBGRS1 EQU XRBREG+4 01106000 RBGRS2 EQU XRBREG+8 01107000 RBGRS3 EQU XRBREG+12 01108000 RBGRS4 EQU XRBREG+16 01109000 RBGRS5 EQU XRBREG+20 01110000 RBGRS6 EQU XRBREG+24 01111000 RBGRS7 EQU XRBREG+28 01112000 RBGRS8 EQU XRBREG+32 01113000 RBGRS9 EQU XRBREG+36 01114000 RBGRS10 EQU XRBREG+40 01115000 RBGRS11 EQU XRBREG+44 01116000 RBGRS12 EQU XRBREG+48 01117000 RBGRS13 EQU XRBREG+52 01118000 RBGRS14 EQU XRBREG+56 01119000 RBGRS15 EQU XRBREG+60 01120000 XRBESA EQU RBBASIC+96 01121000 RBPREFIX EQU 0 01122000 RBRSV019 EQU RBPREFIX+14 01123000 RBRSV028 EQU RBPREFIX+15 01124000 RBRSV041 EQU RBPREFIX+27 01125000 RBRSV054 EQU RBPREFIX+39 01126000 RBRTOPSW EQU RBPREFIX+40 01127000 RBRTPSW2 EQU RBRTOPSW+8 01128000 RBRTICIL EQU RBRTPSW2 01129000 RBFLAGS1 EQU RBPREFIX+56 01130000 RBINTCDA EQU RBPREFIX+61 01131000 RBSECT EQU 0 01132000 RBPPSAV EQU RBSECT 01133000 @NM00040 EQU RBSECT+10 01134000 @NM00041 EQU @NM00040 01135000 RBFTP EQU @NM00041 01136000 RBTRSVRB EQU @NM00041 01137000 @NM00043 EQU @NM00040+1 01138000 RBETXR EQU @NM00043 01139000 RBEP EQU RBSECT+12 01140000 RBPGMQ EQU RBSECT+24 01141000 @NM00050 EQU RBSECT+28 01142000 @NM00051 EQU @NM00050 01143000 IRBEND EQU RBSECT+96 01144000 @NM00054 EQU RBSECT+96 01145000 RBRSV138 EQU @NM00054+7 01146000 RBSCBB EQU RBSECT+144 01147000 RBSPARM EQU RBSCBB+8 01148000 RBSFLGS1 EQU RBSPARM 01149000 RBSIOPRC EQU RBSFLGS1 01150000 RBSOWNR EQU RBSCBB+12 01151000 RBSFLGS2 EQU RBSOWNR 01152000 RBSDATA EQU RBSCBB+16 01153000 RBSFLG3 EQU RBSDATA 01154000 RBRSV150 EQU RBSECT+167 01155000 TCBFIX EQU 0 01156000 TCBFRS EQU TCBFIX 01157000 TCB EQU 0 01158000 TCBRBP EQU TCB 01159000 TCBPIE EQU TCB+4 01160000 TCBPMASK EQU TCBPIE 01161000 TCBCMP EQU TCB+16 01162000 TCBCMPF EQU TCBCMP 01163000 TCBCPP EQU TCBCMPF 01164000 TCBSTCC EQU TCBCMPF 01165000 TCBCDBL EQU TCBCMPF 01166000 TCBCWTO EQU TCBCMPF 01167000 TCBCIND EQU TCBCMPF 01168000 TCBCMSG EQU TCBCMPF 01169000 TCBTRN EQU TCB+20 01170000 TCBABF EQU TCBTRN 01171000 TCBMSS EQU TCB+24 01172000 TCBPKF EQU TCB+28 01173000 TCBFLGS EQU TCB+29 01174000 TCBFLGS1 EQU TCBFLGS 01175000 TCBFLGS2 EQU TCBFLGS+1 01176000 TCBFLGS3 EQU TCBFLGS+2 01177000 TCBFLGS4 EQU TCBFLGS+3 01178000 TCBFLGS5 EQU TCBFLGS+4 01179000 TCBABWF EQU TCBFLGS5 01180000 TCBJPQ EQU TCB+44 01181000 TCBPURGE EQU TCBJPQ 01182000 TCBGRS EQU TCB+48 01183000 TCBFSA EQU TCB+112 01184000 TCBTME EQU TCB+120 01185000 TCBJSTCB EQU TCB+124 01186000 TCBTSFLG EQU TCB+148 01187000 TCBTSTSK EQU TCBTSFLG 01188000 TCBSTAB EQU TCB+160 01189000 TCBNSTAE EQU TCBSTAB 01190000 TCBTCT EQU TCB+164 01191000 TCBTCTGF EQU TCBTCT 01192000 TCBSCNDY EQU TCB+172 01193000 TCBNDSP EQU TCBSCNDY 01194000 TCBNDSP1 EQU TCBNDSP+1 01195000 TCBNDSP2 EQU TCBNDSP+2 01196000 TCBNDSP3 EQU TCBNDSP+3 01197000 TCBJSCB EQU TCB+180 01198000 TCBRECDE EQU TCBJSCB 01199000 TCBEXT1 EQU TCB+196 01200000 TCBBITS EQU TCB+200 01201000 TCBNDSP4 EQU TCBBITS 01202000 TCBNDSP5 EQU TCBBITS+1 01203000 TCBFLGS6 EQU TCBBITS+2 01204000 TCBFLGS7 EQU TCBBITS+3 01205000 TCBDAR EQU TCB+204 01206000 TCBDARC EQU TCBDAR 01207000 TCBEXT2 EQU TCB+208 01208000 TCBFOE EQU TCB+244 01209000 TCBESTAE EQU TCB+264 01210000 TCBESTRM EQU TCBESTAE+1 01211000 TCBFBYT1 EQU TCB+276 01212000 TCBFBYT2 EQU TCB+277 01213000 TCBRV124 EQU TCB+278 01214000 TCBRV133 EQU TCB+279 01215000 TCBXTNT2 EQU 0 01216000 TCBGTF EQU TCBXTNT2 01217000 TCBTFLG EQU TCBGTF 01218000 TCBRV146 EQU TCBXTNT2+28 01219000 TCBRV155 EQU TCBXTNT2+29 01220000 TCBRV164 EQU TCBXTNT2+30 01221000 TCBRV173 EQU TCBXTNT2+31 01222000 IFGACB EQU 0 01223000 ACBCOMN EQU IFGACB 01224000 ACBLENG EQU ACBCOMN+2 01225000 ACBLENG2 EQU ACBLENG 01226000 ACBAMBL EQU ACBCOMN+4 01227000 ACBJWA EQU ACBAMBL 01228000 ACBMACRF EQU ACBCOMN+12 01229000 ACBMACR1 EQU ACBMACRF 01230000 ACBADR EQU ACBMACR1 01231000 ACBCNV EQU ACBMACR1 01232000 ACBMACR2 EQU ACBMACRF+1 01233000 ACBBUFPL EQU ACBCOMN+20 01234000 ACBMACR3 EQU ACBBUFPL 01235000 ACBRECFM EQU ACBCOMN+24 01236000 ACBCCTYP EQU ACBCOMN+25 01237000 ACBOPT EQU ACBCOMN+26 01238000 ACBDSORG EQU ACBOPT 01239000 ACBCROPS EQU ACBDSORG 01240000 ACBDVIND EQU ACBDSORG 01241000 ACBEXLST EQU ACBCOMN+36 01242000 ACBDDNM EQU ACBCOMN+40 01243000 ACBAMETH EQU ACBDDNM+3 01244000 ACBOFLGS EQU ACBCOMN+48 01245000 ACBEXFG EQU ACBOFLGS 01246000 ACBIOSFG EQU ACBOFLGS 01247000 ACBINFLG EQU ACBCOMN+50 01248000 ACBVVIC EQU ACBINFLG 01249000 ACBUJFCB EQU ACBCOMN+52 01250000 ACBBLKSZ EQU ACBCOMN+60 01251000 ACBVTEXT EQU IFGACB+76 01252000 IFGRPL EQU 0 01253000 RPLCOMN EQU IFGRPL 01254000 RPLIDWD EQU RPLCOMN 01255000 RPLLEN EQU RPLIDWD+3 01256000 RPLECB EQU RPLCOMN+8 01257000 RPLFDBWD EQU RPLCOMN+12 01258000 RPLFDBK EQU RPLFDBWD+1 01259000 RPLRTNCD EQU RPLFDBK 01260000 RPLCNDCD EQU RPLFDBK+1 01261000 RPLCMPON EQU RPLCNDCD 01262000 RPLFDB2 EQU RPLCMPON 01263000 RPLERRCD EQU RPLCNDCD+1 01264000 RPLFDB3 EQU RPLERRCD 01265000 RPLKEYLE EQU RPLCOMN+16 01266000 RPLARG EQU RPLCOMN+36 01267000 RPLOPTCD EQU RPLCOMN+40 01268000 RPLOPT1 EQU RPLOPTCD 01269000 RPLECBSW EQU RPLOPT1 01270000 RPLOPT2 EQU RPLOPTCD+1 01271000 RPLADR EQU RPLOPT2 01272000 RPLOPT3 EQU RPLOPTCD+2 01273000 RPLOPT4 EQU RPLOPTCD+3 01274000 RPLNXTRP EQU RPLCOMN+44 01275000 RPLOPTC2 EQU RPLCOMN+56 01276000 RPLOPT5 EQU RPLOPTC2 01277000 RPLWRTYP EQU RPLOPT5 01278000 RPLOPT6 EQU RPLOPTC2+1 01279000 RPLUNTYP EQU RPLOPT6 01280000 RPLOPT7 EQU RPLOPTC2+2 01281000 RPLCNOPT EQU RPLOPT7 01282000 RPLOPT8 EQU RPLOPTC2+3 01283000 RPLRBAR EQU RPLCOMN+60 01284000 RPLAIXID EQU RPLRBAR+2 01285000 RPLEXTDS EQU RPLCOMN+68 01286000 RPLEXTD1 EQU RPLEXTDS 01287000 RPLVTEXT EQU IFGRPL+76 01288000 RPLFDBK2 EQU RPLVTEXT+12 01289000 RPLSSNSI EQU RPLFDBK2 01290000 RPLDSB EQU RPLSSNSI 01291000 RPLDSB1 EQU RPLDSB 01292000 RPLSSEI EQU RPLDSB1 01293000 RPLDSB2 EQU RPLDSB+1 01294000 RPLUSNSI EQU RPLFDBK2+2 01295000 RPLOPTC3 EQU RPLVTEXT+20 01296000 RPLOPT9 EQU RPLOPTC3 01297000 RPLOPT10 EQU RPLOPTC3+1 01298000 RPLOPT11 EQU RPLOPTC3+2 01299000 RPLOPT12 EQU RPLOPTC3+3 01300000 RPLOSENS EQU RPLVTEXT+24 01301000 RPLSSNSO EQU RPLOSENS 01302000 RPLSSEO EQU RPLSSNSO 01303000 RPLOF16 EQU 0 01304000 RPLRH3 EQU RPLOF16 01305000 RPLSRTYP EQU RPLOF16+1 01306000 RPLSTYPE EQU RPLSRTYP 01307000 RPLRTYPE EQU RPLSRTYP 01308000 RPLCHN EQU RPLOF16+2 01309000 RPLVTFL1 EQU RPLOF16+3 01310000 RPLVTFL2 EQU RPLOF16+4 01311000 RPLPOSTV EQU RPLVTFL2 01312000 RPLRESP EQU RPLVTFL2 01313000 RPLCNTRL EQU RPLOF16+5 01314000 RPLCNTDF EQU RPLCNTRL 01315000 RPLCNTDC EQU RPLCNTRL+1 01316000 RPLCNTSC EQU RPLCNTRL+2 01317000 RPLOF60 EQU 0 01318000 RPLOBSQ EQU RPLOF60+4 01319000 RPLIBSQ EQU RPLOF60+5 01320000 ISTLOK EQU 0 01321000 LOKCHN EQU ISTLOK+1 01322000 LOKCHNG EQU LOKCHN 01323000 @NM00101 EQU LOKCHNG+2 01324000 ISTPAB EQU 0 01325000 PABWQCHN EQU ISTPAB 01326000 PABWEQA EQU PABWQCHN 01327000 PABCHAIN EQU PABWQCHN+4 01328000 PABRPHFG EQU ISTPAB+12 01329000 PABFLAGS EQU PABRPHFG 01330000 PABERLCK EQU PABFLAGS 01331000 PABERRLK EQU PABERLCK 01332000 ISTACDEB EQU 0 01333000 ACDVTPRX EQU ISTACDEB 01334000 ACDTSKID EQU ACDVTPRX+8 01335000 ACDDBPFX EQU ISTACDEB+16 01336000 ACDTBLOF EQU ACDDBPFX+6 01337000 ACDBASIC EQU ISTACDEB+24 01338000 ACDTCBAD EQU ACDBASIC 01339000 ACDNMSUB EQU ACDTCBAD 01340000 ACDDEBAD EQU ACDBASIC+4 01341000 ACDUSRPG EQU ACDBASIC+16 01342000 ACDACBAD EQU ACDBASIC+24 01343000 ACDAPPAD EQU ACDBASIC+28 01344000 ACDVTAM EQU ISTACDEB+56 01345000 ACDSSFLG EQU ACDVTAM+80 01346000 ACDCACB EQU ACDSSFLG 01347000 ACDAPDAT EQU ACDVTAM+83 01348000 ISTDYPAB EQU 0 01349000 DYPPAB EQU ISTDYPAB+16 01350000 ISTMPST EQU 0 01351000 MPSRQUE EQU ISTMPST+8 01352000 MPSFLGA EQU ISTMPST+12 01353000 MPSAUTH EQU MPSFLGA 01354000 MPSASID EQU MPSFLGA+2 01355000 MPSCRA EQU ISTMPST+24 01356000 MPSCRACT EQU MPSCRA+4 01357000 MPSSRB EQU ISTMPST+32 01358000 MPSSRBCT EQU MPSSRB+4 01359000 MPSCRPL EQU ISTMPST+40 01360000 MPSRPLCT EQU MPSCRPL+4 01361000 MPSTPPAB EQU ISTMPST+88 01362000 MPSASCB EQU ISTMPST+120 01363000 MPSDBTBL EQU ISTMPST+124 01364000 MPSQEL EQU ISTMPST+128 01365000 MPSMQLBP EQU ISTMPST+136 01366000 MPSSAVE EQU ISTMPST+140 01367000 MPSSRB1 EQU ISTMPST+172 01368000 ISTDCE EQU 0 01369000 DCEDBPTR EQU ISTDCE 01370000 DCECHN EQU ISTDCE+4 01371000 ISTMQL EQU 0 01372000 MQLN01 EQU ISTMQL 01373000 MQLWEPTR EQU MQLN01 01374000 MQLCHAIN EQU MQLN01+4 01375000 MQLDEBAD EQU MQLN01+8 01376000 MQLBLKP EQU ISTMQL+60 01377000 ISTRPH EQU 0 01378000 RPHCNTL EQU ISTRPH 01379000 RPHFLAGS EQU RPHCNTL+2 01380000 RPHAPTYP EQU RPHFLAGS 01381000 RPHFSTLC EQU RPHFLAGS 01382000 RPHFLGB EQU RPHCNTL+3 01383000 RPHRPHA EQU ISTRPH+4 01384000 RPHTSKID EQU ISTRPH+8 01385000 RPHRESMA EQU ISTRPH+16 01386000 RPHWPFLG EQU RPHRESMA 01387000 RPHWEA EQU ISTRPH+24 01388000 RPHCSPA EQU RPHWEA 01389000 RPHSRPRM EQU ISTRPH+28 01390000 RPHPABQA EQU ISTRPH+36 01391000 RPHWORK EQU ISTRPH+40 01392000 RPHSAVE1 EQU RPHWORK 01393000 RPHSBITS EQU RPHSAVE1+1 01394000 ISTAVT EQU 0 01395000 ISTAS49 EQU ISTAVT+4 01396000 ISTATCVT EQU 0 01397000 ATCCOM EQU ISTATCVT 01398000 ATCSTAT EQU ATCCOM 01399000 ATCSTAT1 EQU ATCSTAT 01400000 ATCSTFLG EQU ATCSTAT+1 01401000 ATCPOFLG EQU ATCSTAT+2 01402000 ATCSTAT4 EQU ATCSTAT+3 01403000 ATCBPDA EQU ATCCOM+128 01404000 ATCIOTRC EQU ATCCOM+140 01405000 ATCTHTRC EQU ATCIOTRC 01406000 ATCSMRQ EQU ATCCOM+180 01407000 ATCCSMR EQU ISTATCVT+296 01408000 ATCSHRFG EQU ISTATCVT+316 01409000 ATCHPGM EQU ISTATCVT+384 01410000 ATCVLCNT EQU ISTATCVT+772 01411000 ATCRNO EQU ISTATCVT+788 01412000 ATCSOPD EQU ISTATCVT+792 01413000 ATCSIPD EQU ISTATCVT+800 01414000 ATCSECST EQU ISTATCVT+812 01415000 ATCSTAT2 EQU ISTATCVT+818 01416000 ATCVTBAM EQU ISTATCVT+908 01417000 @NM00113 EQU ATCVTBAM+3 01418000 ATCAOSM EQU ISTATCVT+912 01419000 ATCGSRBQ EQU ATCAOSM+4 01420000 ATCGSRBG EQU ATCGSRBQ 01421000 ATCAP34 EQU ATCAOSM+32 01422000 ATCICAPP EQU ATCAOSM+100 01423000 ATCLDAPP EQU ATCAOSM+120 01424000 ATCDAPVT EQU ATCAOSM+140 01425000 ATCAP51 EQU ATCAOSM+256 01426000 ATCAP37 EQU ATCAOSM+264 01427000 ATCCRA EQU ATCAOSM+280 01428000 ATCCRACN EQU ATCCRA+4 01429000 ATCSRB EQU ATCAOSM+288 01430000 ATCSRBQ EQU ATCSRB 01431000 ATCSRBCN EQU ATCSRB+4 01432000 ATCSRBAC EQU ATCSRBCN+2 01433000 ATCCRPL EQU ATCAOSM+296 01434000 ATCRPLCN EQU ATCCRPL+4 01435000 ATCVTFLG EQU ATCAOSM+392 01436000 ATCAPBE EQU ATCAOSM+436 01437000 ATCAP84 EQU ATCAOSM+552 01438000 ATCZFLAG EQU ATCAOSM+588 01439000 ISTPST EQU 0 01440000 PSTRQFGA EQU ISTPST+8 01441000 PSTRQUE EQU PSTRQFGA 01442000 PSTFLGA EQU PSTRQFGA+4 01443000 PSTABINP EQU PSTFLGA 01444000 PSTDMPS EQU ISTPST+132 01445000 SRBXSAVE EQU 0 01446000 @NM00119 EQU SRBXSAVE+12 01447000 SRBTPTYP EQU @NM00119 01448000 SRBMPST EQU SRBXSAVE+16 01449000 SRB01 EQU SRBXSAVE+24 01450000 FMZL0014 EQU 0 01451000 ISTAPC37 EQU 0 01452000 FMZL0040 EQU 0 01453000 ISTACB EQU 0 01454000 ISTAPC34 EQU 0 01455000 ISTRPL EQU 0 01456000 SRB EQU SRBSECT 01457000 CVTPTR EQU FLCCVT 01458000 CVTS01 EQU CVTPGSIA 01459000 CVTLPDIA EQU CVTS01+12 01460000 CVTDIRST EQU CVTLPDIA 01461000 CVTSLIDA EQU CVTS01+24 01462000 CVTCTLFG EQU CVTS01+50 01463000 CVTLSMQ EQU CVTS01+268 01464000 CVTRV210 EQU CVTS01+424 01465000 CVTRV219 EQU CVTS01+425 01466000 CVTRV228 EQU CVTS01+426 01467000 CVTRV237 EQU CVTS01+427 01468000 CVTMFRTR EQU CVTS01+452 01469000 CVTRV262 EQU CVTS01+468 01470000 CVTRV271 EQU CVTS01+469 01471000 CVTRV280 EQU CVTS01+470 01472000 CVTRV289 EQU CVTS01+471 01473000 CVTEXP1 EQU CVTS01+572 01474000 CVTGSDA EQU CVTS01+600 01475000 ASCBPTR EQU PSAAOLD 01476000 ASXBPTR EQU ASCBASXB 01477000 PSARSVTE EQU PSARSVT 01478000 RBSECS03 EQU RBEP 01479000 RBCDE EQU RBSECS03 01480000 RBCDFLGS EQU RBCDE 01481000 RBSECS05 EQU RBPGMQ 01482000 RBSQE EQU RBSECS05 01483000 RBSECS06 EQU RBPGMQ 01484000 RBIQE EQU RBSECS06 01485000 RBSECS07 EQU RBPGMQ 01486000 RBIQE2 EQU RBSECS07 01487000 RBSECS08 EQU IRBEND 01488000 RBSECS09 EQU IRBEND 01489000 MPSSAV1 EQU MPSSAVE 01490000 MPSSAV2 EQU MPSSAVE+12 01491000 MPSSAV3 EQU MPSSAVE+16 01492000 AVTPTR EQU CVTATCVT 01493000 FLC EQU PSA 01494000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01495000 RBRSV161 EQU RBSECS09+64 01496000 RBSIRBWA EQU RBSECS09 01497000 RBIQEWRK EQU RBSECS08+4 01498000 RBNEXAV EQU RBSECS08 01499000 RBIQEA EQU RBIQE2 01500000 RBIQE1 EQU RBIQE+1 01501000 RBUSE EQU RBIQE 01502000 RBSQEA EQU RBSQE+1 01503000 @NM00055 EQU RBSQE 01504000 RBCDE1 EQU RBCDE+1 01505000 RBCDLOAD EQU RBCDFLGS 01506000 RBCDXCTL EQU RBCDFLGS 01507000 RBCDSYNC EQU RBCDFLGS 01508000 RBCDNODE EQU RBCDFLGS 01509000 RBRSV010 EQU RBCDFLGS 01510000 RBCDATCH EQU RBCDFLGS 01511000 RBRSV009 EQU RBCDFLGS 01512000 RBNOCELL EQU RBCDFLGS 01513000 PSARSAV EQU PSARSVTE+60 01514000 PSARSTK EQU PSARSVTE+56 01515000 PSAESAV3 EQU PSARSVTE+52 01516000 PSAESTK3 EQU PSARSVTE+48 01517000 PSAESAV2 EQU PSARSVTE+44 01518000 PSAESTK2 EQU PSARSVTE+40 01519000 PSAESAV1 EQU PSARSVTE+36 01520000 PSAESTK1 EQU PSARSVTE+32 01521000 PSAPSAV EQU PSARSVTE+28 01522000 PSAPSTK EQU PSARSVTE+24 01523000 PSAMSAV EQU PSARSVTE+20 01524000 PSAMSTK EQU PSARSVTE+16 01525000 PSASSAV EQU PSARSVTE+12 01526000 PSASSTK EQU PSARSVTE+8 01527000 PSANSTK EQU PSARSVTE+4 01528000 PSACSTK EQU PSARSVTE 01529000 CVTRV628 EQU CVTS01+728 01530000 CVTRV627 EQU CVTS01+724 01531000 CVTRV626 EQU CVTS01+720 01532000 CVTRV625 EQU CVTS01+716 01533000 CVTRV624 EQU CVTS01+712 01534000 CVTRV623 EQU CVTS01+708 01535000 CVTRV622 EQU CVTS01+704 01536000 CVTRV621 EQU CVTS01+700 01537000 CVTRV620 EQU CVTS01+696 01538000 CVTRV619 EQU CVTS01+692 01539000 CVTRV618 EQU CVTS01+688 01540000 CVTRV617 EQU CVTS01+684 01541000 CVTRV616 EQU CVTS01+680 01542000 CVTRV615 EQU CVTS01+676 01543000 CVTRV614 EQU CVTS01+672 01544000 CVTRV613 EQU CVTS01+668 01545000 CVTTCASP EQU CVTS01+664 01546000 CVT0PT03 EQU CVTS01+660 01547000 CVT0PT0E EQU CVTS01+656 01548000 CVTIRM EQU CVTS01+652 01549000 CVTCGK EQU CVTS01+648 01550000 CVTRV607 EQU CVTS01+644 01551000 CVTRV606 EQU CVTS01+640 01552000 CVTRV605 EQU CVTS01+636 01553000 CVTRV604 EQU CVTS01+632 01554000 CVTEFF02 EQU CVTS01+628 01555000 CVTCBBR EQU CVTS01+624 01556000 CVTSSCR EQU CVTS01+620 01557000 CVTEVENT EQU CVTS01+616 01558000 CVTCRCA EQU CVTS01+612 01559000 CVTTPIO EQU CVTS01+608 01560000 CVTADV EQU CVTS01+604 01561000 CVTGSDAB EQU CVTGSDA 01562000 CVTQV3 EQU CVTS01+596 01563000 CVTQV2 EQU CVTS01+592 01564000 CVTQV1 EQU CVTS01+588 01565000 CVTRPT EQU CVTS01+584 01566000 CVTSSRB EQU CVTS01+580 01567000 CVTCSDRL EQU CVTS01+576 01568000 CVTRMPMT EQU CVTS01+568 01569000 CVTRMPTT EQU CVTS01+564 01570000 CVTVPSA EQU CVTS01+560 01571000 CVTVSTOP EQU CVTS01+556 01572000 CVTGTFR8 EQU CVTS01+552 01573000 CVTQUIT EQU CVTS01+548 01574000 CVTVACR EQU CVTS01+544 01575000 CVTWTCB EQU CVTS01+540 01576000 CVTSTPRS EQU CVTS01+536 01577000 CVT0PT02 EQU CVTS01+532 01578000 CVTDARCM EQU CVTS01+528 01579000 CVTIRECM EQU CVTS01+524 01580000 CVTJRECM EQU CVTS01+520 01581000 CVTVEMS0 EQU CVTS01+516 01582000 CVTSPFRR EQU CVTS01+512 01583000 CVTRLSTG EQU CVTS01+508 01584000 CVT0TC0A EQU CVTS01+504 01585000 CVTGMBR EQU CVTS01+500 01586000 CVTLFRM EQU CVTS01+496 01587000 CVTRMBR EQU CVTS01+492 01588000 CVTVIOP EQU CVTS01+488 01589000 CVTRV307 EQU CVTS01+486 01590000 CVTRV306 EQU CVTS01+484 01591000 CVTRV305 EQU CVTS01+482 01592000 CVTRV304 EQU CVTS01+480 01593000 CVTRV303 EQU CVTS01+478 01594000 CVTRV302 EQU CVTS01+476 01595000 CVTTRCA EQU CVTS01+472 01596000 CVTRV297 EQU CVTRV289 01597000 CVTRV296 EQU CVTRV289 01598000 CVTRV295 EQU CVTRV289 01599000 CVTRV294 EQU CVTRV289 01600000 CVTRV293 EQU CVTRV289 01601000 CVTRV292 EQU CVTRV289 01602000 CVTRV291 EQU CVTRV289 01603000 CVTRV290 EQU CVTRV289 01604000 CVTRV288 EQU CVTRV280 01605000 CVTRV287 EQU CVTRV280 01606000 CVTRV286 EQU CVTRV280 01607000 CVTRV285 EQU CVTRV280 01608000 CVTRV284 EQU CVTRV280 01609000 CVTRV283 EQU CVTRV280 01610000 CVTRV282 EQU CVTRV280 01611000 CVTRV281 EQU CVTRV280 01612000 CVTRV279 EQU CVTRV271 01613000 CVTRV278 EQU CVTRV271 01614000 CVTRV277 EQU CVTRV271 01615000 CVTRV276 EQU CVTRV271 01616000 CVTRV275 EQU CVTRV271 01617000 CVTRV274 EQU CVTRV271 01618000 CVTRV273 EQU CVTRV271 01619000 CVTRV272 EQU CVTRV271 01620000 CVTRV270 EQU CVTRV262 01621000 CVTRV269 EQU CVTRV262 01622000 CVTRV268 EQU CVTRV262 01623000 CVTRV267 EQU CVTRV262 01624000 CVTRV266 EQU CVTRV262 01625000 CVTRV265 EQU CVTRV262 01626000 CVTRV264 EQU CVTRV262 01627000 CVTRV263 EQU CVTRV262 01628000 CVTVFP EQU CVTS01+464 01629000 CVTVSI EQU CVTS01+460 01630000 CVTVPSIB EQU CVTS01+456 01631000 CVTMFACT EQU CVTMFRTR 01632000 CVTMFCTL EQU CVTS01+448 01633000 CVTPVBP EQU CVTS01+444 01634000 CVTPWI EQU CVTS01+440 01635000 CVTRV254 EQU CVTS01+438 01636000 CVTRV253 EQU CVTS01+436 01637000 CVTRV252 EQU CVTS01+434 01638000 CVTRV251 EQU CVTS01+433 01639000 CVTRV250 EQU CVTS01+432 01640000 CVTRV249 EQU CVTS01+431 01641000 CVTRV248 EQU CVTS01+430 01642000 CVTRV247 EQU CVTS01+429 01643000 CVTRV246 EQU CVTS01+428 01644000 CVTRV245 EQU CVTRV237 01645000 CVTRV244 EQU CVTRV237 01646000 CVTRV243 EQU CVTRV237 01647000 CVTRV242 EQU CVTRV237 01648000 CVTRV241 EQU CVTRV237 01649000 CVTRV240 EQU CVTRV237 01650000 CVTRV239 EQU CVTRV237 01651000 CVTRV238 EQU CVTRV237 01652000 CVTRV236 EQU CVTRV228 01653000 CVTRV235 EQU CVTRV228 01654000 CVTRV234 EQU CVTRV228 01655000 CVTRV233 EQU CVTRV228 01656000 CVTRV232 EQU CVTRV228 01657000 CVTRV231 EQU CVTRV228 01658000 CVTRV230 EQU CVTRV228 01659000 CVTRV229 EQU CVTRV228 01660000 CVTRV227 EQU CVTRV219 01661000 CVTRV226 EQU CVTRV219 01662000 CVTRV225 EQU CVTRV219 01663000 CVTRV224 EQU CVTRV219 01664000 CVTRV223 EQU CVTRV219 01665000 CVTRV222 EQU CVTRV219 01666000 CVTRV221 EQU CVTRV219 01667000 CVTRV220 EQU CVTRV219 01668000 CVTRV218 EQU CVTRV210 01669000 CVTRV217 EQU CVTRV210 01670000 CVTRV216 EQU CVTRV210 01671000 CVTRV215 EQU CVTRV210 01672000 CVTRV214 EQU CVTRV210 01673000 CVTRV213 EQU CVTRV210 01674000 CVTRV212 EQU CVTRV210 01675000 CVTRV211 EQU CVTRV210 01676000 CVTLCCAT EQU CVTS01+420 01677000 CVTPCCAT EQU CVTS01+416 01678000 CVTIPCRP EQU CVTS01+412 01679000 CVTIPCRI EQU CVTS01+408 01680000 CVTIPCDS EQU CVTS01+404 01681000 CVTAIDVT EQU CVTS01+400 01682000 CVTSSAP EQU CVTS01+396 01683000 CVTEHCIR EQU CVTS01+392 01684000 CVTEHDEF EQU CVTS01+388 01685000 CVTDAIR EQU CVTS01+384 01686000 CVTPERFM EQU CVTS01+380 01687000 CVT044R2 EQU CVTS01+376 01688000 CVTFETCH EQU CVTS01+372 01689000 CVTRSTWD EQU CVTS01+368 01690000 CVTSPOST EQU CVTS01+364 01691000 CVTIOBP EQU CVTS01+360 01692000 CVTASMVT EQU CVTS01+356 01693000 CVTRECRQ EQU CVTS01+352 01694000 CVTWSAC EQU CVTS01+348 01695000 CVTRV149 EQU CVTS01+344 01696000 CVTWSAL EQU CVTS01+340 01697000 CVTSPSA EQU CVTS01+336 01698000 CVTGLMN EQU CVTS01+332 01699000 CVTVEAC0 EQU CVTS01+328 01700000 CVT062R1 EQU CVTS01+324 01701000 CVTRPOST EQU CVTS01+320 01702000 CVTDQIQE EQU CVTS01+316 01703000 CVTCSD EQU CVTS01+312 01704000 CVTLKRMA EQU CVTS01+308 01705000 CVTRSPIE EQU CVTS01+304 01706000 CVTRENQ EQU CVTS01+300 01707000 CVTLQCB EQU CVTS01+296 01708000 CVTFQCB EQU CVTS01+292 01709000 CVTQCS01 EQU CVTS01+288 01710000 CVTAPFT EQU CVTS01+284 01711000 CVTPARRL EQU CVTS01+280 01712000 CVTVWAIT EQU CVTS01+276 01713000 CVTGSPL EQU CVTS01+272 01714000 CVTGSMQ EQU CVTS01+264 01715000 CVTEXPRO EQU CVTS01+260 01716000 CVTOPCTP EQU CVTS01+256 01717000 CVTSIC EQU CVTS01+252 01718000 CVTTPIOS EQU CVTS01+248 01719000 CVTRTMS EQU CVTS01+244 01720000 CVTSDBF EQU CVTS01+240 01721000 CVTSCBP EQU CVTS01+236 01722000 CVTSDMP EQU CVTS01+232 01723000 CVTSV60 EQU CVTS01+228 01724000 CVTRTMCT EQU CVTS01+224 01725000 CVTASCBL EQU CVTS01+220 01726000 CVTASCBH EQU CVTS01+216 01727000 CVTGDA EQU CVTS01+212 01728000 CVTASVT EQU CVTS01+208 01729000 CVTVVMDI EQU CVTS01+204 01730000 CVTAQTOP EQU CVTS01+200 01731000 CVTIOSCS EQU CVTS01+196 01732000 CVTSDRM EQU CVTS01+192 01733000 CVTOPTE EQU CVTS01+188 01734000 CVTSTXU EQU CVTS01+184 01735000 CVTQUIS EQU CVTS01+180 01736000 CVTPARS EQU CVTS01+176 01737000 CVTS1EE EQU CVTS01+172 01738000 CVTFRAS EQU CVTS01+168 01739000 CVTQSAS EQU CVTS01+164 01740000 CVTCRAS EQU CVTS01+160 01741000 CVTCRMN EQU CVTS01+156 01742000 CVTDELCP EQU CVTS01+152 01743000 CVTFRECL EQU CVTS01+148 01744000 CVTGETCL EQU CVTS01+144 01745000 CVTBLDCP EQU CVTS01+140 01746000 CVTAUTHL EQU CVTS01+136 01747000 CVTSCAN EQU CVTS01+132 01748000 CVTRV144 EQU CVTS01+130 01749000 CVTMAXMP EQU CVTS01+128 01750000 CVTSTCK EQU CVTS01+124 01751000 CVTRV139 EQU CVTS01+123 01752000 CVTDSSAC EQU CVTS01+122 01753000 CVTRV513 EQU CVTS01+121 01754000 CVTIOSPL EQU CVTS01+120 01755000 CVTPTGT EQU CVTS01+116 01756000 CVTCSPIE EQU CVTS01+112 01757000 CVTSMFEX EQU CVTS01+108 01758000 CVTOLT0A EQU CVTS01+104 01759000 CVTSRBRT EQU CVTS01+100 01760000 CVTPUTL EQU CVTS01+96 01761000 CVTASCRL EQU CVTS01+92 01762000 CVTASCRF EQU CVTS01+88 01763000 CVTRV326 EQU CVTS01+84 01764000 CVTRV325 EQU CVTS01+80 01765000 CVTRV324 EQU CVTS01+76 01766000 CVT0VL01 EQU CVTS01+72 01767000 CVTSHRVM EQU CVTS01+68 01768000 CVTRV332 EQU CVTS01+64 01769000 CVTTAS EQU CVTS01+60 01770000 CVTRSCN EQU CVTS01+56 01771000 CVTTRAC2 EQU CVTS01+54 01772000 CVTTRACE EQU CVTS01+52 01773000 CVTAPG EQU CVTS01+51 01774000 CVTSDTRC EQU CVTCTLFG 01775000 CVTGTRCE EQU CVTCTLFG 01776000 CVTNOMP EQU CVTCTLFG 01777000 CVTRSV79 EQU CVTCTLFG 01778000 CVTDSTAT EQU CVTCTLFG 01779000 CVTRSV78 EQU CVTCTLFG 01780000 CVTRV333 EQU CVTCTLFG 01781000 CVTRV323 EQU CVTCTLFG 01782000 CVTSPVLK EQU CVTS01+49 01783000 CVTRSV77 EQU CVTS01+48 01784000 CVTRV331 EQU CVTS01+44 01785000 CVTRV330 EQU CVTS01+40 01786000 CVTRV329 EQU CVTS01+36 01787000 CVTRV328 EQU CVTS01+32 01788000 CVTRV322 EQU CVTS01+28 01789000 CVTSLID EQU CVTSLIDA+1 01790000 CVTSYLK EQU CVTSLIDA 01791000 CVTRV321 EQU CVTS01+20 01792000 CVTRV320 EQU CVTS01+16 01793000 CVTLPDIR EQU CVTLPDIA+1 01794000 CVTRSV69 EQU CVTDIRST 01795000 CVTRSV68 EQU CVTDIRST 01796000 CVTRSV67 EQU CVTDIRST 01797000 CVTRSV66 EQU CVTDIRST 01798000 CVTRSV65 EQU CVTDIRST 01799000 CVTRSV64 EQU CVTDIRST 01800000 CVTRSV63 EQU CVTDIRST 01801000 CVTDICOM EQU CVTDIRST 01802000 CVTPVTP EQU CVTS01+8 01803000 CVTLPDSR EQU CVTS01+4 01804000 CVTGETL EQU CVTS01 01805000 SRBKEY EQU SRBXSAVE+20 01806000 @NM00118 EQU SRBXSAVE 01807000 PSTDRDYQ EQU PSTDMPS+1 01808000 @NM00117 EQU PSTDMPS 01809000 PSTDGATE EQU PSTDMPS 01810000 PSTDEBP EQU ISTPST+128 01811000 PSTSAVE EQU ISTPST+96 01812000 PSTSMDYP EQU ISTPST+64 01813000 PSTCRRS EQU ISTPST+60 01814000 PSTCRR1 EQU ISTPST+56 01815000 PSTIQE22 EQU ISTPST+52 01816000 PSTIQE21 EQU ISTPST+48 01817000 PSTIQE12 EQU ISTPST+44 01818000 PSTIQE11 EQU ISTPST+40 01819000 PSTUEQ EQU ISTPST+36 01820000 PSTNSSQ EQU ISTPST+32 01821000 PSTPSSQ EQU ISTPST+28 01822000 PSTACBCT EQU ISTPST+24 01823000 PSTMPSTP EQU ISTPST+20 01824000 PSTTCBA EQU ISTPST+16 01825000 PSTRSV08 EQU PSTFLGA+1 01826000 PSTDMPC EQU PSTFLGA+1 01827000 PSTABEND EQU PSTABINP 01828000 PSTAUTH EQU PSTFLGA 01829000 PSTSMCU EQU PSTFLGA 01830000 PSTSMQR EQU PSTFLGA 01831000 PSTIRBU2 EQU PSTFLGA 01832000 PSTIRBU1 EQU PSTFLGA 01833000 PSTUERN EQU PSTFLGA 01834000 PSTSSRN EQU PSTFLGA 01835000 PSTRQUEA EQU PSTRQUE+1 01836000 PSTRSV07 EQU PSTRQUE 01837000 PSTRSV06 EQU PSTRQUE 01838000 PSTRSV05 EQU PSTRQUE 01839000 PSTRSV04 EQU PSTRQUE 01840000 PSTRSV03 EQU PSTRQUE 01841000 PSTRSV02 EQU PSTRQUE 01842000 PSTRSV01 EQU PSTRQUE 01843000 PSTRQFLG EQU PSTRQUE 01844000 PSTCHAIN EQU ISTPST+4 01845000 @NM00116 EQU ISTPST+2 01846000 PSTLNGTH EQU ISTPST+1 01847000 PSTTYPE EQU ISTPST 01848000 ATCAOS EQU ISTATCVT+1584 01849000 ATCPOPAB EQU ATCAOSM+640 01850000 ATCVIOPM EQU ATCAOSM+636 01851000 ATCTPMMI EQU ATCAOSM+632 01852000 ATCTPMPB EQU ATCAOSM+600 01853000 ATCRSV88 EQU ATCAOSM+596 01854000 ATCRPLCT EQU ATCAOSM+594 01855000 ATCCRACT EQU ATCAOSM+592 01856000 ATCSRBCT EQU ATCAOSM+590 01857000 ATCRSV75 EQU ATCAOSM+589 01858000 ATCRSV66 EQU ATCZFLAG 01859000 ATCZF001 EQU ATCZFLAG 01860000 ATCTPCP1 EQU ATCAOSM+584 01861000 ATCTPCP0 EQU ATCAOSM+580 01862000 ATCAICTN EQU ATCAOSM+576 01863000 ATCZR01 EQU ATCAOSM+572 01864000 ATCMPLTA EQU ATCAOSM+568 01865000 ATCASCB EQU ATCAOSM+564 01866000 ATCAP86 EQU ATCAOSM+560 01867000 ATCAP85 EQU ATCAOSM+556 01868000 ATCAP83 EQU ATCAOSM+548 01869000 ATCAP82 EQU ATCAOSM+544 01870000 ATCAP69 EQU ATCAOSM+540 01871000 ATCAP66 EQU ATCAOSM+536 01872000 ATCAP62 EQU ATCAOSM+532 01873000 ATCAPC59 EQU ATCAOSM+528 01874000 ATCAP56 EQU ATCAOSM+524 01875000 ATCAP55 EQU ATCAOSM+520 01876000 ATCRCFY0 EQU ATCAOSM+516 01877000 ATCAP41 EQU ATCAOSM+512 01878000 ATCAPC25 EQU ATCAOSM+508 01879000 ATCAP23 EQU ATCAOSM+504 01880000 ATCTPSPB EQU ATCAOSM+472 01881000 ATCTRMPB EQU ATCAOSM+440 01882000 ATCPSTA EQU ATCAOSM+432 01883000 ATCSMABF EQU ATCAOSM+428 01884000 ATCSMAPR EQU ATCAOSM+424 01885000 ATCTPWQA EQU ATCAOSM+420 01886000 ATCSMAID EQU ATCAOSM+416 01887000 ATCSMARA EQU ATCAOSM+412 01888000 ATCCACXA EQU ATCAOSM+408 01889000 ATCZLAAB EQU ATCAOSM+404 01890000 ATCATA10 EQU ATCAOSM+400 01891000 ATCHLTCB EQU ATCAOSM+396 01892000 @NM00115 EQU ATCVTFLG 01893000 ATCVTACT EQU ATCVTFLG 01894000 ATCRPT40 EQU ATCAOSM+388 01895000 ATCRPT39 EQU ATCAOSM+384 01896000 ATCRPT38 EQU ATCAOSM+380 01897000 ATCRPT37 EQU ATCAOSM+376 01898000 ATCRPT36 EQU ATCAOSM+372 01899000 ATCRPT35 EQU ATCAOSM+368 01900000 ATCRPT34 EQU ATCAOSM+364 01901000 ATCRPT33 EQU ATCAOSM+360 01902000 ATCRPT32 EQU ATCAOSM+356 01903000 ATCRPT31 EQU ATCAOSM+352 01904000 ATCRPT30 EQU ATCAOSM+348 01905000 ATCRPT29 EQU ATCAOSM+344 01906000 ATCRPT28 EQU ATCAOSM+340 01907000 ATCRPT27 EQU ATCAOSM+336 01908000 ATCRPT26 EQU ATCAOSM+332 01909000 ATCRPT25 EQU ATCAOSM+328 01910000 ATCRPT24 EQU ATCAOSM+324 01911000 ATCRPT23 EQU ATCAOSM+320 01912000 ATCRPT22 EQU ATCAOSM+316 01913000 ATCRPT21 EQU ATCAOSM+312 01914000 ATCRPT20 EQU ATCAOSM+308 01915000 ATCRPT19 EQU ATCAOSM+304 01916000 ATCRPLAC EQU ATCRPLCN+2 01917000 ATCRPLRC EQU ATCRPLCN 01918000 ATCCRPLQ EQU ATCCRPL 01919000 ATCSRBRC EQU ATCSRBCN 01920000 ATCCRAAC EQU ATCCRACN+2 01921000 ATCCRARC EQU ATCCRACN 01922000 ATCCRAQ EQU ATCCRA 01923000 ATCRPT12 EQU ATCAOSM+276 01924000 ATCDMAPP EQU ATCAOSM+272 01925000 ATCAP38 EQU ATCAOSM+268 01926000 ATCZDFJ0 EQU ATCAOSM+260 01927000 ATCZPAB2 EQU ATCAOSM+224 01928000 ATCZPAB1 EQU ATCAOSM+192 01929000 ATCZLFVT EQU ATCAOSM+188 01930000 ATCZLPVT EQU ATCAOSM+184 01931000 ATCZDVTX EQU ATCAOSM+180 01932000 ATCZDVTA EQU ATCAOSM+176 01933000 ATCZDVT9 EQU ATCAOSM+172 01934000 ATCZDVT8 EQU ATCAOSM+168 01935000 ATCZDVT7 EQU ATCAOSM+164 01936000 ATCRSV56 EQU ATCDAPVT+22 01937000 ATCDAPDG EQU ATCDAPVT+20 01938000 ATCDXCEA EQU ATCDAPVT+16 01939000 ATCDCEA EQU ATCDAPVT+12 01940000 ATCDPCIA EQU ATCDAPVT+8 01941000 ATCDSIOA EQU ATCDAPVT+4 01942000 ATCDEOEA EQU ATCDAPVT 01943000 ATCZLAEA EQU ATCLDAPP+16 01944000 ATCZLCEA EQU ATCLDAPP+12 01945000 ATCRSV17 EQU ATCLDAPP+8 01946000 ATCSMFRR EQU ATCLDAPP+4 01947000 ATCCDTID EQU ATCLDAPP 01948000 ATCZAEA EQU ATCICAPP+16 01949000 ATCZCEA EQU ATCICAPP+12 01950000 ATCCDTCB EQU ATCICAPP+8 01951000 ATCZSIOA EQU ATCICAPP+4 01952000 ATCCDRPH EQU ATCICAPP 01953000 ATCAP65 EQU ATCAOSM+96 01954000 ATCZDVT6 EQU ATCAOSM+92 01955000 ATCZDVT4 EQU ATCAOSM+88 01956000 ATCZDVT3 EQU ATCAOSM+84 01957000 ATCZDVT1 EQU ATCAOSM+80 01958000 ATCICNCB EQU ATCAOSM+76 01959000 ATCZPSVT EQU ATCAOSM+72 01960000 ATCZFSVT EQU ATCAOSM+68 01961000 ATCAP64 EQU ATCAOSM+64 01962000 ATCAP63 EQU ATCAOSM+60 01963000 ATCAP61 EQU ATCAOSM+56 01964000 ATCAP58 EQU ATCAOSM+52 01965000 ATCAP57 EQU ATCAOSM+48 01966000 ATCAP54 EQU ATCAOSM+44 01967000 ATCAP53 EQU ATCAOSM+40 01968000 ATCAP52 EQU ATCAOSM+36 01969000 ATCAP32 EQU ATCAOSM+28 01970000 ATCAP31 EQU ATCAOSM+24 01971000 ATCAP12 EQU ATCAOSM+20 01972000 ATCAP11 EQU ATCAOSM+16 01973000 ATCCMTCB EQU ATCAOSM+12 01974000 ATCPRPH EQU ATCAOSM+8 01975000 ATCGSRBF EQU ATCGSRBG 01976000 ATCSRBRT EQU ATCAOSM 01977000 @NM00114 EQU @NM00113 01978000 ATCVTMAB EQU @NM00113 01979000 @NM00112 EQU ATCVTBAM 01980000 ATCVDLOK EQU ISTATCVT+904 01981000 ATCVFPAB EQU ISTATCVT+872 01982000 ATCVDPAB EQU ISTATCVT+840 01983000 ATCIOECB EQU ISTATCVT+836 01984000 ATCINCW3 EQU ISTATCVT+832 01985000 ATCMODTB EQU ISTATCVT+828 01986000 ATCUSSPT EQU ISTATCVT+824 01987000 ATCSRTAB EQU ISTATCVT+820 01988000 @NM00111 EQU ISTATCVT+819 01989000 @NM00110 EQU ATCSTAT2 01990000 ATCTRSMS EQU ATCSTAT2 01991000 ATCTRLOK EQU ATCSTAT2 01992000 ATCTRPSS EQU ATCSTAT2 01993000 ATCTRESC EQU ATCSTAT2 01994000 ATCTRAPI EQU ATCSTAT2 01995000 ATCNMCTR EQU ISTATCVT+816 01996000 ATCSEC51 EQU ATCSECST 01997000 ATCSEC40 EQU ATCSIPD+8 01998000 ATCSEC30 EQU ATCSIPD+4 01999000 ATCSEC21 EQU ATCSIPD 02000000 ATCSEC10 EQU ATCSOPD+4 02001000 ATCSEC01 EQU ATCSOPD 02002000 ATCPOIA EQU ATCRNO+1 02003000 @NM00109 EQU ATCRNO 02004000 ATCPODVT EQU ISTATCVT+784 02005000 ATCS49XL EQU ISTATCVT+780 02006000 ATCS49XI EQU ISTATCVT+776 02007000 ATCLCLCT EQU ATCVLCNT+2 02008000 ATCRNCNT EQU ATCVLCNT 02009000 ATCCFEAD EQU ISTATCVT+768 02010000 ATCPTR00 EQU ISTATCVT+736 02011000 ATCRSV10 EQU ISTATCVT+704 02012000 ATCTACB EQU ISTATCVT+700 02013000 ATCVTINM EQU ISTATCVT+696 02014000 ATCTCLIM EQU ISTATCVT+692 02015000 ATCTCLOM EQU ISTATCVT+688 02016000 ATCVTIPB EQU ISTATCVT+656 02017000 ATCTCIPB EQU ISTATCVT+624 02018000 ATCTIPAB EQU ISTATCVT+592 02019000 ATCOCCCB EQU ISTATCVT+588 02020000 ATCOCCOB EQU ISTATCVT+584 02021000 ATCCDLAD EQU ISTATCVT+580 02022000 ATCCCLAD EQU ISTATCVT+576 02023000 ATCDLRPB EQU ISTATCVT+544 02024000 ATCPGPAB EQU ISTATCVT+512 02025000 ATCVPAB1 EQU ISTATCVT+480 02026000 ATCRSV97 EQU ISTATCVT+476 02027000 ATCRDTLK EQU ISTATCVT+472 02028000 ATCVOCLK EQU ISTATCVT+468 02029000 ATCCDFDN EQU ISTATCVT+464 02030000 ATCCDFIN EQU ISTATCVT+460 02031000 ATCDVTLK EQU ISTATCVT+456 02032000 ATCAP36 EQU ISTATCVT+452 02033000 ATCAP35 EQU ISTATCVT+448 02034000 ATCAP33 EQU ISTATCVT+444 02035000 ATCRSV99 EQU ISTATCVT+440 02036000 ATCONFIG EQU ISTATCVT+432 02037000 ATCNODDS EQU ISTATCVT+428 02038000 ATCNODEL EQU ISTATCVT+420 02039000 ATCRSV69 EQU ISTATCVT+416 02040000 ATCAPCR5 EQU ISTATCVT+412 02041000 ATCLDECB EQU ISTATCVT+408 02042000 ATCLDNCS EQU ISTATCVT+404 02043000 ATCCDPTR EQU ISTATCVT+400 02044000 ATCADEL EQU ISTATCVT+396 02045000 ATCTODVT EQU ISTATCVT+392 02046000 ATCDEBCH EQU ISTATCVT+388 02047000 ATCHBSIZ EQU ATCHPGM+2 02048000 ATCHBFNO EQU ATCHPGM 02049000 ATCCRME EQU ISTATCVT+380 02050000 ATCRVCHS EQU ISTATCVT+372 02051000 ATCECTLP EQU ISTATCVT+368 02052000 ATCZDVTB EQU ISTATCVT+364 02053000 ATCECPRT EQU ISTATCVT+360 02054000 ATCVTLOD EQU ISTATCVT+356 02055000 ATCTRPAB EQU ISTATCVT+352 02056000 ATCMSGM EQU ISTATCVT+348 02057000 ATCMSGP EQU ISTATCVT+344 02058000 ATCEPT EQU ISTATCVT+340 02059000 ATCDVT EQU ISTATCVT+336 02060000 ATCTRCPT EQU ISTATCVT+332 02061000 ATCDVLOD EQU ISTATCVT+328 02062000 ATCALERT EQU ISTATCVT+324 02063000 ATCEPA EQU ISTATCVT+320 02064000 ATCSAF EQU ISTATCVT+318 02065000 ATCXRANG EQU ISTATCVT+317 02066000 ATCLAST EQU ATCSHRFG 02067000 ATCSHRTN EQU ISTATCVT+308 02068000 ATCUEP EQU ISTATCVT+304 02069000 ATCOCRT EQU ISTATCVT+300 02070000 ATCCSMA EQU ATCCSMR 02071000 ATCESC02 EQU ISTATCVT+292 02072000 ATCESC01 EQU ISTATCVT+288 02073000 ATCCDFND EQU ISTATCVT+284 02074000 ATCCDDEL EQU ISTATCVT+280 02075000 ATCCDADD EQU ISTATCVT+276 02076000 ATCMNT EQU ISTATCVT+272 02077000 ATCRSV16 EQU ISTATCVT+270 02078000 ATCMAXID EQU ISTATCVT+269 02079000 ATCMSGSP EQU ATCCOM+268 02080000 ATCCIDM EQU ATCCOM+266 02081000 ATCACTRM EQU ATCCOM+264 02082000 ATCNERAP EQU ATCCOM+260 02083000 ATCNESAL EQU ATCCOM+256 02084000 ATCRCC65 EQU ATCCOM+252 02085000 ATCRCC26 EQU ATCCOM+248 02086000 ATCRCC63 EQU ATCCOM+244 02087000 ATCRSV11 EQU ATCCOM+242 02088000 ATCVTMID EQU ATCCOM+240 02089000 ATCAPOST EQU ATCCOM+236 02090000 ATCNERFN EQU ATCCOM+232 02091000 ATCNERNE EQU ATCCOM+228 02092000 ATCNERCV EQU ATCCOM+224 02093000 ATCNERST EQU ATCCOM+220 02094000 ATCDCC61 EQU ATCCOM+216 02095000 ATCDCC60 EQU ATCCOM+212 02096000 ATCSRTDF EQU ATCCOM+208 02097000 ATCSRTAD EQU ATCCOM+204 02098000 ATCFIRA EQU ATCCOM+200 02099000 ATCSMBQ EQU ATCCOM+196 02100000 ATCSMRC EQU ATCCOM+192 02101000 ATCSMRS EQU ATCCOM+188 02102000 ATCSMQU EQU ATCCOM+184 02103000 ATCACDA EQU ATCCOM+176 02104000 ATCSTMA EQU ATCCOM+172 02105000 ATCFRSTR EQU ATCCOM+168 02106000 ATCGTSTR EQU ATCCOM+164 02107000 ATCREADA EQU ATCCOM+160 02108000 ATCALOAD EQU ATCCOM+156 02109000 ATCBLDLA EQU ATCCOM+152 02110000 ATCFBRPH EQU ATCCOM+148 02111000 ATCBFTRC EQU ATCCOM+144 02112000 ATCTPBUF EQU ATCTHTRC 02113000 ATCREMOV EQU ATCCOM+136 02114000 ATCADD EQU ATCCOM+132 02115000 ATCDVTPT EQU ATCCOM+124 02116000 ATCFEPT EQU ATCCOM+120 02117000 ATCFDVT EQU ATCCOM+116 02118000 ATCCONFT EQU ATCCOM+112 02119000 ATCPTCHA EQU ATCCOM+108 02120000 ATCAUTHA EQU ATCCOM+104 02121000 ATCACCTA EQU ATCCOM+100 02122000 ATCRDTH EQU ATCCOM+96 02123000 ATCFRSCH EQU ATCCOM+92 02124000 ATCFSB EQU ATCCOM+88 02125000 ATCHLTMS EQU ATCCOM+84 02126000 ATCECPRM EQU ATCCOM+80 02127000 ATCECNET EQU ATCCOM+76 02128000 ATCECOPC EQU ATCCOM+72 02129000 ATCVPARM EQU ATCCOM+68 02130000 ATCECVRQ EQU ATCCOM+64 02131000 ATCECSES EQU ATCCOM+60 02132000 ATCOCHA EQU ATCCOM+56 02133000 ATCDSPLQ EQU ATCCOM+52 02134000 ATCECDSP EQU ATCCOM+48 02135000 ATCVARYQ EQU ATCCOM+44 02136000 ATCECVRY EQU ATCCOM+40 02137000 ATCHALTQ EQU ATCCOM+36 02138000 ATCECHLT EQU ATCCOM+32 02139000 ATCMODQ EQU ATCCOM+28 02140000 ATCECMOD EQU ATCCOM+24 02141000 ATCASCHD EQU ATCCOM+20 02142000 ATCSRT EQU ATCCOM+16 02143000 ATCRDT EQU ATCCOM+12 02144000 ATCDCFRR EQU ATCCOM+8 02145000 ATCAPI EQU ATCCOM+4 02146000 ATCRSV04 EQU ATCSTAT4 02147000 ATCVTTRC EQU ATCSTAT4 02148000 ATCNCSD EQU ATCSTAT4 02149000 ATCMTST EQU ATCSTAT4 02150000 ATCTPRT EQU ATCSTAT4 02151000 ATCPRTAT EQU ATCSTAT4 02152000 @NM00108 EQU ATCPOFLG 02153000 ATCPOUNS EQU ATCPOFLG 02154000 ATCHSDMF EQU ATCSTFLG 02155000 @NM00107 EQU ATCSTAT1 02156000 ATCMDHLT EQU ATCSTAT1 02157000 ATCINHLT EQU ATCSTAT1 02158000 ATCNETSL EQU ATCSTAT1 02159000 ATCQKHLT EQU ATCSTAT1 02160000 ATCSNHLT EQU ATCSTAT1 02161000 ATCACTIV EQU ATCSTAT1 02162000 ATCSTART EQU ATCSTAT1 02163000 ISTPDAVP EQU ISTAVT+40 02164000 ISTAVR01 EQU ISTAVT+38 02165000 ISTVTTP EQU ISTAVT+36 02166000 ISTAGTWT EQU ISTAVT+34 02167000 ISTATRT EQU ISTAVT+32 02168000 ISTARID EQU ISTAVT+30 02169000 ISTX1 EQU ISTAVT+29 02170000 ISTPHNM EQU ISTAVT+24 02171000 ISTAPSEX EQU ISTAVT+20 02172000 ISTVTTIK EQU ISTAVT+18 02173000 AVTASID EQU ISTAVT+16 02174000 ISTAPSTA EQU ISTAVT+12 02175000 ISTAS53 EQU ISTAVT+8 02176000 ISTAHIP EQU ISTAS49 02177000 ISTACVT EQU ISTAVT 02178000 RPHNEXPO EQU ISTRPH+104 02179000 RPHSAV16 EQU RPHWORK+60 02180000 RPHSAV15 EQU RPHWORK+56 02181000 RPHSAV14 EQU RPHWORK+52 02182000 RPHSAV13 EQU RPHWORK+48 02183000 RPHSAV12 EQU RPHWORK+44 02184000 RPHSAV11 EQU RPHWORK+40 02185000 RPHSAV10 EQU RPHWORK+36 02186000 RPHSAVE9 EQU RPHWORK+32 02187000 RPHSAVE8 EQU RPHWORK+28 02188000 RPHSAVE7 EQU RPHWORK+24 02189000 RPHSAVE6 EQU RPHWORK+20 02190000 RPHSAVE5 EQU RPHWORK+16 02191000 RPHSAVE4 EQU RPHWORK+12 02192000 RPHSAVE3 EQU RPHWORK+8 02193000 RPHSAVE2 EQU RPHWORK+4 02194000 RPHSHALF EQU RPHSAVE1+2 02195000 RPHSBIT8 EQU RPHSBITS 02196000 RPHSBIT7 EQU RPHSBITS 02197000 RPHSBIT6 EQU RPHSBITS 02198000 RPHSBIT5 EQU RPHSBITS 02199000 RPHSBIT4 EQU RPHSBITS 02200000 RPHSBIT3 EQU RPHSBITS 02201000 RPHSBIT2 EQU RPHSBITS 02202000 RPHSBIT1 EQU RPHSBITS 02203000 RPHSBYTE EQU RPHSAVE1 02204000 RPHPABQP EQU RPHPABQA+1 02205000 RPHPABFG EQU RPHPABQA 02206000 RPHCRR EQU ISTRPH+32 02207000 RPHSRP34 EQU RPHSRPRM+2 02208000 RPHSRP12 EQU RPHSRPRM 02209000 RPHWEGT EQU RPHCSPA 02210000 RPHMAJCB EQU ISTRPH+21 02211000 RPHPABOF EQU ISTRPH+20 02212000 RPHRESUM EQU RPHRESMA+1 02213000 RPHRSV01 EQU RPHWPFLG 02214000 RPHPURGE EQU RPHWPFLG 02215000 RPHPT EQU RPHWPFLG 02216000 RPHWT EQU RPHWPFLG 02217000 RPHRSKEY EQU RPHWPFLG 02218000 RPHDVTA EQU ISTRPH+12 02219000 RPHTIK EQU RPHTSKID+3 02220000 @NM00106 EQU RPHTSKID 02221000 RPHRPHAP EQU RPHRPHA+1 02222000 @NM00105 EQU RPHRPHA 02223000 RPHGATE EQU RPHRPHA 02224000 @NM00104 EQU RPHFLGB 02225000 RPHRLCRA EQU RPHFLGB 02226000 RPHNRSAV EQU RPHFLGB 02227000 RPHPGCMP EQU RPHFLGB 02228000 RPHFBAPS EQU RPHFLGB 02229000 RPHBSSP EQU RPHFLGB 02230000 RPHLOCK EQU RPHFLGB 02231000 RPHFNFLG EQU RPHFSTLC 02232000 RPHMLTCP EQU RPHFLAGS 02233000 RPHSMCLR EQU RPHFLAGS 02234000 RPHSMTYP EQU RPHFLAGS 02235000 RPHSMQ EQU RPHFLAGS 02236000 RPHAUTEX EQU RPHAPTYP 02237000 RPHSPGIN EQU RPHFLAGS 02238000 RPHOGIND EQU RPHFLAGS 02239000 RPHLNGTH EQU RPHCNTL+1 02240000 RPHTYPE EQU RPHCNTL 02241000 MQLN05 EQU ISTMQL+48 02242000 MQLN04 EQU ISTMQL+36 02243000 MQLN03 EQU ISTMQL+24 02244000 MQLN02 EQU ISTMQL+12 02245000 MQLDEBP EQU MQLDEBAD+1 02246000 MQLTYPE EQU MQLDEBAD 02247000 @NM00103 EQU MQLDEBAD 02248000 MQLLCPIN EQU MQLDEBAD 02249000 MQLBRNIN EQU MQLDEBAD 02250000 MQLECB EQU MQLWEPTR 02251000 DCERSV01 EQU ISTDCE+12 02252000 DCETERM EQU ISTDCE+8 02253000 MPSSYSRT EQU ISTMPST+132 02254000 MPSSMPAB EQU ISTMPST+56 02255000 MPSSMRPH EQU ISTMPST+52 02256000 MPSSRB55 EQU ISTMPST+48 02257000 MPSRPLAC EQU MPSRPLCT+2 02258000 MPSRPLRC EQU MPSRPLCT 02259000 MPSCRPLQ EQU MPSCRPL 02260000 MPSSRBAC EQU MPSSRBCT+2 02261000 MPSSRBRC EQU MPSSRBCT 02262000 MPSSRBQ EQU MPSSRB 02263000 MPSCRAAC EQU MPSCRACT+2 02264000 MPSCRARC EQU MPSCRACT 02265000 MPSCRAQ EQU MPSCRA 02266000 MPSMPSTP EQU ISTMPST+20 02267000 MPSPSTCT EQU ISTMPST+16 02268000 MPSRSV02 EQU MPSFLGA+1 02269000 MPSPSTAB EQU MPSFLGA 02270000 MPSRSV01 EQU MPSFLGA 02271000 MPSTPBU EQU MPSFLGA 02272000 MPMEMTRM EQU MPSFLGA 02273000 MPSCRAO EQU MPSFLGA 02274000 MPSSRBO EQU MPSFLGA 02275000 MPSRQUEG EQU MPSRQUE 02276000 MPSRSV07 EQU ISTMPST+4 02277000 MPSID EQU ISTMPST 02278000 DYPRSV01 EQU ISTDYPAB+12 02279000 DYPTSKID EQU ISTDYPAB+8 02280000 DYPCHAIN EQU ISTDYPAB+4 02281000 DYPFLGS EQU ISTDYPAB+2 02282000 DYPLNGTH EQU ISTDYPAB+1 02283000 DYPTYPE EQU ISTDYPAB 02284000 ACDREFQ EQU ISTACDEB+204 02285000 ACDASFQ EQU ISTACDEB+200 02286000 ACDSOP EQU ISTACDEB+184 02287000 ACDSIP EQU ISTACDEB+168 02288000 ACDRSV24 EQU ACDVTAM+108 02289000 ACDRSV23 EQU ACDVTAM+104 02290000 ACDRSV22 EQU ACDVTAM+100 02291000 ACDOCWAD EQU ACDVTAM+96 02292000 ACDRSV10 EQU ACDVTAM+92 02293000 ACDAPDDT EQU ACDAPDAT+1 02294000 ACDAPDLN EQU ACDAPDAT 02295000 ACDRSV07 EQU ACDVTAM+82 02296000 ACDRSV06 EQU ACDVTAM+81 02297000 ACDRSV09 EQU ACDSSFLG 02298000 ACDAICLS EQU ACDSSFLG 02299000 ACDABEND EQU ACDSSFLG 02300000 ACDRSV21 EQU ACDVTAM+64 02301000 ACDSSPAB EQU ACDVTAM+48 02302000 ACDNEPAB EQU ACDVTAM+32 02303000 ACDRSV20 EQU ACDVTAM+20 02304000 ACDRARQ EQU ACDVTAM+16 02305000 ACDRAFQ EQU ACDVTAM+12 02306000 ACDFMCB EQU ACDVTAM+8 02307000 ACDRDTE EQU ACDVTAM+4 02308000 ACDLOCK EQU ACDVTAM 02309000 ACDAPP EQU ACDAPPAD+1 02310000 ACDEXSCL EQU ACDAPPAD 02311000 ACDACB EQU ACDACBAD+1 02312000 ACDDEBID EQU ACDACBAD 02313000 ACDPROTG EQU ACDACBAD 02314000 ACDECBAD EQU ACDBASIC+20 02315000 ACDUSRPB EQU ACDUSRPG+1 02316000 ACDNMEXT EQU ACDUSRPG 02317000 ACDPRLEN EQU ACDBASIC+15 02318000 ACDFLGS1 EQU ACDBASIC+14 02319000 ACDQSCNT EQU ACDBASIC+13 02320000 ACDOPATB EQU ACDBASIC+12 02321000 ACDIRBAD EQU ACDBASIC+8 02322000 ACDDEB EQU ACDDEBAD+1 02323000 ACDAMLNG EQU ACDDEBAD 02324000 ACDTCB EQU ACDTCBAD+1 02325000 ACDOPNAD EQU ACDNMSUB 02326000 ACDRSV03 EQU ACDTBLOF+1 02327000 ACDRSV02 EQU ACDTBLOF 02328000 ACDAMTYP EQU ACDDBPFX+5 02329000 ACDLENG EQU ACDDBPFX+4 02330000 ACDDEBX EQU ACDDBPFX 02331000 ACDRSV08 EQU ACDVTPRX+12 02332000 ACDCHN EQU ACDVTPRX+4 02333000 ACDSAF EQU ACDVTPRX+2 02334000 ACDLNGTH EQU ACDVTPRX+1 02335000 ACDTYPE EQU ACDVTPRX 02336000 PABRPHA EQU PABRPHFG+1 02337000 PABNODQ EQU PABFLAGS 02338000 PABINHBT EQU PABFLAGS 02339000 PABERLOK EQU PABERRLK 02340000 PABSSN EQU PABFLAGS 02341000 PABDYNAM EQU PABFLAGS 02342000 PABNORPR EQU PABFLAGS 02343000 PABPRIOR EQU PABFLAGS 02344000 PABAPYP EQU PABFLAGS 02345000 PABDVTA EQU ISTPAB+9 02346000 PABOFFST EQU ISTPAB+8 02347000 PABCHNGP EQU PABCHAIN+1 02348000 PABRSV02 EQU PABCHAIN 02349000 PABDELAY EQU PABCHAIN 02350000 PABRUNNG EQU PABCHAIN 02351000 PABRESET EQU PABCHAIN 02352000 PABUNCON EQU PABCHAIN 02353000 PABCDP EQU PABCHAIN 02354000 PABRESCH EQU PABCHAIN 02355000 PABCHNG EQU PABCHAIN 02356000 PABWEQP EQU PABWEQA+1 02357000 PABRSV01 EQU PABWEQA 02358000 PABWEQG EQU PABWEQA 02359000 LOKXCL EQU @NM00101 02360000 LOKPRY EQU @NM00101 02361000 @NM00102 EQU @NM00101 02362000 @NM00100 EQU LOKCHNG 02363000 LOKCT EQU ISTLOK 02364000 RPLSEQNO EQU RPLOF60+6 02365000 @NM00099 EQU RPLIBSQ 02366000 RPLIINV EQU RPLIBSQ 02367000 RPLINEG EQU RPLIBSQ 02368000 RPLIPOS EQU RPLIBSQ 02369000 RPLIIGN EQU RPLIBSQ 02370000 RPLIRSET EQU RPLIBSQ 02371000 RPLITST EQU RPLIBSQ 02372000 RPLISET EQU RPLIBSQ 02373000 @NM00098 EQU RPLOBSQ 02374000 RPLOINV EQU RPLOBSQ 02375000 RPLONEG EQU RPLOBSQ 02376000 RPLOPOS EQU RPLOBSQ 02377000 RPLOIGN EQU RPLOBSQ 02378000 RPLORSET EQU RPLOBSQ 02379000 RPLOTST EQU RPLOBSQ 02380000 RPLOSET EQU RPLOBSQ 02381000 RPLIBSQV EQU RPLOF60+2 02382000 RPLOBSQV EQU RPLOF60 02383000 @NM00097 EQU RPLCNTSC 02384000 RPLRSHUT EQU RPLCNTSC 02385000 RPLRQR EQU RPLCNTSC 02386000 RPLSHUTC EQU RPLCNTSC 02387000 RPLSHUTD EQU RPLCNTSC 02388000 RPLSTSN EQU RPLCNTSC 02389000 RPLCLEAR EQU RPLCNTSC 02390000 RPLSDT EQU RPLCNTSC 02391000 @NM00096 EQU RPLCNTDC 02392000 RPLSIGNL EQU RPLCNTDC 02393000 RPLLUS EQU RPLCNTDC 02394000 RPLRTR EQU RPLCNTDC 02395000 RPLBID EQU RPLCNTDC 02396000 @NM00095 EQU RPLCNTDF 02397000 RPLQI EQU RPLCNTDF 02398000 RPLRELQ EQU RPLCNTDF 02399000 RPLCHASE EQU RPLCNTDF 02400000 RPLQEC EQU RPLCNTDF 02401000 RPLQC EQU RPLCNTDF 02402000 RPLCNCEL EQU RPLCNTDF 02403000 RPLDATA EQU RPLCNTDF 02404000 RPLRRN EQU RPLRESP 02405000 RPLNFME EQU RPLRESP 02406000 RPLEX EQU RPLRESP 02407000 @NM00094 EQU RPLRESP 02408000 @NM00093 EQU RPLPOSTV 02409000 RPLSCHED EQU RPLPOSTV 02410000 @NM00092 EQU RPLVTFL1 02411000 RPLAUTUS EQU RPLVTFL1 02412000 RPLVTUSE EQU RPLVTFL1 02413000 @NM00091 EQU RPLVTFL1 02414000 @NM00090 EQU RPLCHN 02415000 RPLONLY EQU RPLCHN 02416000 RPLLAST EQU RPLCHN 02417000 RPLMIDLE EQU RPLCHN 02418000 RPLFIRST EQU RPLCHN 02419000 @NM00089 EQU RPLRTYPE 02420000 RPLDFASY EQU RPLRTYPE 02421000 RPLNFSYN EQU RPLRTYPE 02422000 RPLRRESP EQU RPLRTYPE 02423000 @NM00088 EQU RPLSTYPE 02424000 RPLSRESP EQU RPLSTYPE 02425000 @NM00087 EQU RPLRH3 02426000 RPLCSI EQU RPLRH3 02427000 RPLCHREQ EQU RPLRH3 02428000 RPLCMD EQU RPLRH3 02429000 RPLEB EQU RPLRH3 02430000 RPLBB EQU RPLRH3 02431000 RPLSIGDA EQU RPLVTEXT+32 02432000 RPLSAV13 EQU RPLVTEXT+28 02433000 RPLUSNSO EQU RPLOSENS+2 02434000 RPLSSMO EQU RPLSSNSO+1 02435000 @NM00086 EQU RPLSSEO 02436000 RPLRRO EQU RPLSSEO 02437000 RPLFIO EQU RPLSSEO 02438000 RPLSTATO EQU RPLSSEO 02439000 RPLCPMO EQU RPLSSEO 02440000 @NM00085 EQU RPLSSEO 02441000 RPLFMHDR EQU RPLOPT12 02442000 @NM00084 EQU RPLOPT12 02443000 @NM00083 EQU RPLOPT12 02444000 @NM00082 EQU RPLOPT12 02445000 RPLNIBTK EQU RPLOPT12 02446000 RPLTRUNC EQU RPLOPT12 02447000 RPLKEEP EQU RPLOPT12 02448000 @NM00081 EQU RPLOPT12 02449000 RPLRSVE8 EQU RPLOPT11 02450000 RPLRSVE7 EQU RPLOPT11 02451000 RPLRSVE6 EQU RPLOPT11 02452000 RPLRSVE5 EQU RPLOPT11 02453000 RPLRSVE4 EQU RPLOPT11 02454000 RPLSTOP EQU RPLOPT11 02455000 RPLSTART EQU RPLOPT11 02456000 RPLQUIES EQU RPLOPT11 02457000 RPLRSVI6 EQU RPLOPT10 02458000 RPLRSVI5 EQU RPLOPT10 02459000 RPLRSVI4 EQU RPLOPT10 02460000 RPLRSVI3 EQU RPLOPT10 02461000 RPLRSVI2 EQU RPLOPT10 02462000 RPLSPARM EQU RPLOPT10 02463000 RPLDSPLY EQU RPLOPT10 02464000 RPLBSCID EQU RPLOPT10 02465000 RPLTOPL EQU RPLOPT9 02466000 RPLCIDE EQU RPLOPT9 02467000 RPLRNNM EQU RPLOPT9 02468000 RPLAPPST EQU RPLOPT9 02469000 RPLCOUNT EQU RPLOPT9 02470000 RPLTERMS EQU RPLOPT9 02471000 RPLDEVCH EQU RPLOPT9 02472000 RPLLOGON EQU RPLOPT9 02473000 RPLUSFLD EQU RPLVTEXT+16 02474000 RPLESR2 EQU RPLUSNSI+1 02475000 RPLESR1 EQU RPLUSNSI 02476000 RPLSSMI EQU RPLDSB2 02477000 @NM00080 EQU RPLSSEI 02478000 RPLRRI EQU RPLSSEI 02479000 RPLFII EQU RPLSSEI 02480000 RPLSTATI EQU RPLSSEI 02481000 RPLCPMI EQU RPLSSEI 02482000 RPLPATHI EQU RPLSSEI 02483000 RPLARCLN EQU RPLVTEXT+8 02484000 RPLAARLN EQU RPLVTEXT+4 02485000 RPLAAREA EQU RPLVTEXT 02486000 RPLERMSA EQU RPLCOMN+72 02487000 RPLEMLEN EQU RPLCOMN+70 02488000 RPLACTIV EQU RPLCOMN+69 02489000 RPLBRANC EQU RPLEXTD1 02490000 RPLNIB EQU RPLEXTD1 02491000 @NM00079 EQU RPLEXTD1 02492000 RPLEXIT EQU RPLEXTD1 02493000 RPLNEXIT EQU RPLEXTD1 02494000 RPLEXSCH EQU RPLEXTD1 02495000 RPLDDDD EQU RPLRBAR+4 02496000 @NM00078 EQU RPLRBAR+3 02497000 @NM00077 EQU RPLAIXID 02498000 RPLAXPKP EQU RPLAIXID 02499000 RPLAIXPC EQU RPLRBAR 02500000 RPLRSV88 EQU RPLOPT8 02501000 RPLUNCON EQU RPLOPT8 02502000 RPLACTV EQU RPLOPT8 02503000 RPLSESS EQU RPLOPT8 02504000 RPLPEND EQU RPLOPT8 02505000 RPLODPRM EQU RPLOPT8 02506000 RPLODACP EQU RPLOPT8 02507000 RPLODACQ EQU RPLOPT8 02508000 RPLRSV78 EQU RPLOPT7 02509000 RPLTCRNO EQU RPLOPT7 02510000 RPLRLSOP EQU RPLOPT7 02511000 RPLTPOST EQU RPLOPT7 02512000 RPLQOPT EQU RPLOPT7 02513000 RPLCNIMM EQU RPLCNOPT 02514000 RPLCNANY EQU RPLCNOPT 02515000 RPLCNALL EQU RPLCNOPT 02516000 RPLRSV68 EQU RPLOPT6 02517000 RPLRSV67 EQU RPLOPT6 02518000 RPLLOCK EQU RPLOPT6 02519000 RPLNCOND EQU RPLOPT6 02520000 RPLCOND EQU RPLOPT6 02521000 RPLEOT EQU RPLUNTYP 02522000 RPLEOM EQU RPLUNTYP 02523000 RPLEOB EQU RPLUNTYP 02524000 RPLWROPT EQU RPLOPT5 02525000 RPLNODE EQU RPLOPT5 02526000 RPLERACE EQU RPLWRTYP 02527000 RPLEAU EQU RPLWRTYP 02528000 RPLNERAS EQU RPLWRTYP 02529000 RPLPSOPT EQU RPLOPT5 02530000 @NM00076 EQU RPLOPT5 02531000 RPLDLGIN EQU RPLOPT5 02532000 RPLBUFL EQU RPLCOMN+52 02533000 RPLRLEN EQU RPLCOMN+48 02534000 RPLCHAIN EQU RPLNXTRP 02535000 RPLBOP EQU RPLOPT4 02536000 @NM00075 EQU RPLOPT4 02537000 RPLMKFRM EQU RPLOPT4 02538000 RPLENDTR EQU RPLOPT4 02539000 RPLALIGN EQU RPLOPT3 02540000 RPLFMT EQU RPLOPT3 02541000 RPLFLD EQU RPLOPT3 02542000 RPLVFY EQU RPLOPT3 02543000 RPLBLK EQU RPLOPT3 02544000 RPLSFORM EQU RPLOPT3 02545000 RPLEODS EQU RPLOPT3 02546000 RPLNSP EQU RPLOPT2 02547000 RPLUPD EQU RPLOPT2 02548000 @NM00074 EQU RPLOPT2 02549000 RPLLRD EQU RPLOPT2 02550000 RPLBWD EQU RPLOPT2 02551000 RPLCNV EQU RPLOPT2 02552000 RPLADD EQU RPLADR 02553000 RPLKEY EQU RPLOPT2 02554000 RPLECBIN EQU RPLECBSW 02555000 RPLGEN EQU RPLOPT1 02556000 RPLKGE EQU RPLOPT1 02557000 RPLASY EQU RPLOPT1 02558000 RPLSKP EQU RPLOPT1 02559000 RPLSEQ EQU RPLOPT1 02560000 RPLDIR EQU RPLOPT1 02561000 RPLLOC EQU RPLOPT1 02562000 RPLDAF EQU RPLARG+2 02563000 RPLSAF EQU RPLARG 02564000 RPLAREA EQU RPLCOMN+32 02565000 RPLTCBPT EQU RPLCOMN+28 02566000 RPLDACB EQU RPLCOMN+24 02567000 RPLCCHAR EQU RPLCOMN+20 02568000 RPLSTRID EQU RPLCOMN+18 02569000 RPLKEYL EQU RPLKEYLE 02570000 RPLRDSOH EQU RPLFDB3 02571000 RPLRLG EQU RPLFDB3 02572000 RPLLGFRC EQU RPLFDB3 02573000 RPLREOT EQU RPLFDB3 02574000 RPLREOM EQU RPLFDB3 02575000 RPLREOB EQU RPLFDB3 02576000 RPLSV32 EQU RPLFDB3 02577000 RPLUINPT EQU RPLFDB3 02578000 RPLSTSAV EQU RPLFDB2 02579000 RPLCUERR EQU RPLFDB2 02580000 RPLDLGFL EQU RPLFDB2 02581000 RPLIOERR EQU RPLFDB2 02582000 RPLDVUNS EQU RPLFDB2 02583000 RPLATND EQU RPLFDB2 02584000 RPLRVID EQU RPLFDB2 02585000 RPLERLK EQU RPLFDB2 02586000 RPLERREG EQU RPLRTNCD 02587000 RPLSTAT EQU RPLFDBWD 02588000 RPLPOST EQU RPLECB 02589000 RPLWAIT EQU RPLECB 02590000 RPLPLHPT EQU RPLCOMN+4 02591000 RPLLEN2 EQU RPLLEN 02592000 RPLREQ EQU RPLIDWD+2 02593000 RPLSTYP EQU RPLIDWD+1 02594000 RPLID EQU RPLIDWD 02595000 @NM00073 EQU ACBVTEXT+8 02596000 @NM00072 EQU ACBVTEXT+6 02597000 ACBRTN EQU ACBVTEXT 02598000 ACBAPID EQU ACBCOMN+72 02599000 ACBCBMWA EQU ACBCOMN+68 02600000 ACBUAPTR EQU ACBCOMN+64 02601000 ACBLRECL EQU ACBCOMN+62 02602000 ACBMSGLN EQU ACBBLKSZ 02603000 ACBBUFSP EQU ACBCOMN+56 02604000 @NM00071 EQU ACBUJFCB+1 02605000 ACBOPTN EQU ACBUJFCB 02606000 @NM00070 EQU ACBINFLG+1 02607000 ACBBYPSS EQU ACBINFLG 02608000 ACBSDS EQU ACBVVIC 02609000 ACBUCRA EQU ACBINFLG 02610000 ACBSCRA EQU ACBINFLG 02611000 ACBCAT EQU ACBINFLG 02612000 ACBIJRQE EQU ACBINFLG 02613000 ACBJEPS EQU ACBINFLG 02614000 @NM00069 EQU ACBINFLG 02615000 ACBERFLG EQU ACBCOMN+49 02616000 ACBBUSY EQU ACBIOSFG 02617000 ACBLOCK EQU ACBEXFG 02618000 @NM00068 EQU ACBOFLGS 02619000 ACBDSERR EQU ACBOFLGS 02620000 ACBOPEN EQU ACBOFLGS 02621000 ACBEOV EQU ACBOFLGS 02622000 @NM00067 EQU ACBOFLGS 02623000 ACBDEB EQU ACBDDNM+5 02624000 ACBERFL EQU ACBDDNM+4 02625000 ACBAM EQU ACBAMETH 02626000 ACBINFL EQU ACBDDNM+2 02627000 ACBTIOT EQU ACBDDNM 02628000 ACBUEL EQU ACBEXLST 02629000 ACBPASSW EQU ACBCOMN+32 02630000 ACBMSGAR EQU ACBCOMN+28 02631000 @NM00066 EQU ACBDSORG+1 02632000 ACBDORGA EQU ACBDSORG+1 02633000 @NM00065 EQU ACBDSORG 02634000 ACBOPTJ EQU ACBDVIND 02635000 ACBCRNRE EQU ACBCROPS 02636000 ACBCRNCK EQU ACBCROPS 02637000 ACBASA EQU ACBCCTYP 02638000 @NM00064 EQU ACBCCTYP 02639000 ACBTRCID EQU ACBCCTYP 02640000 @NM00063 EQU ACBRECFM 02641000 ACBRECAF EQU ACBRECFM 02642000 ACBJBUF EQU ACBBUFPL+2 02643000 ACBMACR4 EQU ACBBUFPL+1 02644000 @NM00062 EQU ACBMACR3 02645000 ACBNCFX EQU ACBMACR3 02646000 ACBSIS EQU ACBMACR3 02647000 ACBDFR EQU ACBMACR3 02648000 ACBICI EQU ACBMACR3 02649000 ACBGSR EQU ACBMACR3 02650000 ACBLSR EQU ACBMACR3 02651000 @NM00061 EQU ACBMACR3 02652000 ACBBUFNI EQU ACBCOMN+18 02653000 ACBBUFND EQU ACBCOMN+16 02654000 ACBSTRNO EQU ACBCOMN+15 02655000 ACBBSTNO EQU ACBCOMN+14 02656000 ACBAIX EQU ACBMACR2 02657000 ACBDSN EQU ACBMACR2 02658000 ACBRST EQU ACBMACR2 02659000 ACBLOGON EQU ACBMACR2 02660000 ACBSKP EQU ACBMACR2 02661000 @NM00060 EQU ACBMACR2 02662000 ACBUBF EQU ACBMACR1 02663000 ACBOUT EQU ACBMACR1 02664000 ACBIN EQU ACBMACR1 02665000 ACBDIR EQU ACBMACR1 02666000 ACBSEQ EQU ACBMACR1 02667000 ACBBLK EQU ACBCNV 02668000 ACBADD EQU ACBADR 02669000 ACBKEY EQU ACBMACR1 02670000 ACBINRTN EQU ACBCOMN+8 02671000 ACBIBCT EQU ACBJWA 02672000 ACBLEN2 EQU ACBLENG2 02673000 ACBSTYP EQU ACBCOMN+1 02674000 ACBID EQU ACBCOMN 02675000 @NM00059 EQU TCBXTNT2+32 02676000 TCBRV181 EQU TCBRV173 02677000 TCBRV180 EQU TCBRV173 02678000 TCBRV179 EQU TCBRV173 02679000 TCBRV178 EQU TCBRV173 02680000 TCBRV177 EQU TCBRV173 02681000 TCBRV176 EQU TCBRV173 02682000 TCBRV175 EQU TCBRV173 02683000 TCBRV174 EQU TCBRV173 02684000 TCBRV172 EQU TCBRV164 02685000 TCBRV171 EQU TCBRV164 02686000 TCBRV170 EQU TCBRV164 02687000 TCBRV169 EQU TCBRV164 02688000 TCBRV168 EQU TCBRV164 02689000 TCBRV167 EQU TCBRV164 02690000 TCBRV166 EQU TCBRV164 02691000 TCBRV165 EQU TCBRV164 02692000 TCBRV163 EQU TCBRV155 02693000 TCBRV162 EQU TCBRV155 02694000 TCBRV161 EQU TCBRV155 02695000 TCBRV160 EQU TCBRV155 02696000 TCBRV159 EQU TCBRV155 02697000 TCBRV158 EQU TCBRV155 02698000 TCBRV157 EQU TCBRV155 02699000 TCBRV156 EQU TCBRV155 02700000 TCBRV154 EQU TCBRV146 02701000 TCBRV153 EQU TCBRV146 02702000 TCBRV152 EQU TCBRV146 02703000 TCBRV151 EQU TCBRV146 02704000 TCBRV150 EQU TCBRV146 02705000 TCBRV149 EQU TCBRV146 02706000 TCBRV148 EQU TCBRV146 02707000 TCBRV147 EQU TCBRV146 02708000 TCBRV145 EQU TCBXTNT2+26 02709000 TCBRV144 EQU TCBXTNT2+24 02710000 TCBRV143 EQU TCBXTNT2+20 02711000 TCBRV142 EQU TCBXTNT2+16 02712000 TCBRSV49 EQU TCBXTNT2+12 02713000 TCBEVENT EQU TCBXTNT2+8 02714000 TCBRCMP EQU TCBXTNT2+5 02715000 TCBRSVAB EQU TCBXTNT2+4 02716000 TCBGTFA EQU TCBGTF+1 02717000 TCBRSV47 EQU TCBTFLG 02718000 TCBRSV46 EQU TCBTFLG 02719000 TCBRSV45 EQU TCBTFLG 02720000 TCBRSV44 EQU TCBTFLG 02721000 TCBRSV43 EQU TCBTFLG 02722000 TCBDSPIT EQU TCBTFLG 02723000 TCBERRTN EQU TCBTFLG 02724000 TCBASYNC EQU TCBTFLG 02725000 @NM00058 EQU TCB+296 02726000 TCBSVCA2 EQU TCB+292 02727000 TCBSWASA EQU TCB+288 02728000 TCBDBTB EQU TCB+284 02729000 TCBRPT EQU TCB+280 02730000 TCBRV141 EQU TCBRV133 02731000 TCBRV140 EQU TCBRV133 02732000 TCBRV139 EQU TCBRV133 02733000 TCBRV138 EQU TCBRV133 02734000 TCBRV137 EQU TCBRV133 02735000 TCBRV136 EQU TCBRV133 02736000 TCBRV135 EQU TCBRV133 02737000 TCBRV134 EQU TCBRV133 02738000 TCBRV132 EQU TCBRV124 02739000 TCBRV131 EQU TCBRV124 02740000 TCBRV130 EQU TCBRV124 02741000 TCBRV129 EQU TCBRV124 02742000 TCBRV128 EQU TCBRV124 02743000 TCBRV127 EQU TCBRV124 02744000 TCBRV126 EQU TCBRV124 02745000 TCBRV125 EQU TCBRV124 02746000 TCBRV123 EQU TCBFBYT2 02747000 TCBRV122 EQU TCBFBYT2 02748000 TCBECBNV EQU TCBFBYT2 02749000 TCBSSSYN EQU TCBFBYT2 02750000 TCBFPRAP EQU TCBFBYT2 02751000 TCBFDW EQU TCBFBYT2 02752000 TCBFMW EQU TCBFBYT2 02753000 TCBCNCB EQU TCBFBYT2 02754000 TCBLLH EQU TCBFBYT1 02755000 TCBRV113 EQU TCBFBYT1 02756000 TCBEOT EQU TCBFBYT1 02757000 TCBRTM2 EQU TCBFBYT1 02758000 TCBPGNLY EQU TCBFBYT1 02759000 TCBNDIOS EQU TCBFBYT1 02760000 TCBACTIV EQU TCBFBYT1 02761000 TCBEOTFM EQU TCBFBYT1 02762000 TCBAFFN EQU TCB+274 02763000 TCBCCPVI EQU TCB+272 02764000 TCBUKYSP EQU TCB+268 02765000 TCBMODE EQU TCBESTAE+3 02766000 TCBERTYP EQU TCBESTAE+2 02767000 TCBRV314 EQU TCBESTRM 02768000 TCBRV313 EQU TCBESTRM 02769000 TCBRV312 EQU TCBESTRM 02770000 TCBRV311 EQU TCBESTRM 02771000 TCBRV310 EQU TCBESTRM 02772000 TCBRV309 EQU TCBESTRM 02773000 TCBRV308 EQU TCBESTRM 02774000 TCBETERM EQU TCBESTRM 02775000 TCBSCBKY EQU TCBESTAE 02776000 TCBRTM12 EQU TCB+260 02777000 TCBTCBID EQU TCB+256 02778000 TCBRSV96 EQU TCB+252 02779000 TCBSWA EQU TCB+248 02780000 TCBFOEA EQU TCBFOE+1 02781000 TCBRSV42 EQU TCBFOE 02782000 TCBRV306 EQU TCB+240 02783000 TCBRSV41 EQU TCB+239 02784000 TCBTID EQU TCB+238 02785000 TCBRSVAA EQU TCB+237 02786000 TCBABCUR EQU TCB+236 02787000 TCBTMSAV EQU TCB+232 02788000 TCBIOTIM EQU TCB+228 02789000 TCBRTWA EQU TCB+224 02790000 TCBBACK EQU TCB+220 02791000 TCBTIRB EQU TCB+216 02792000 TCBAECB EQU TCB+212 02793000 TCBEXT2A EQU TCBEXT2+1 02794000 TCBRSV39 EQU TCBEXT2 02795000 TCBSTMCT EQU TCB+207 02796000 TCBSYSCT EQU TCB+206 02797000 TCBRSV37 EQU TCB+205 02798000 TCBEXSVC EQU TCBDAR 02799000 TCBDARMS EQU TCBDAR 02800000 TCBDARWT EQU TCBDAR 02801000 TCBDARO EQU TCBDAR 02802000 TCBDARMC EQU TCBDARC 02803000 TCBDARD EQU TCBDAR 02804000 TCBDARS EQU TCBDAR 02805000 TCBDARP EQU TCBDAR 02806000 TCBGTOFM EQU TCBFLGS7 02807000 TCBADMP EQU TCBFLGS7 02808000 TCBRSTSK EQU TCBFLGS7 02809000 TCBSVCS EQU TCBFLGS7 02810000 TCBSTACK EQU TCBFLGS7 02811000 TCBRSV34 EQU TCBFLGS7 02812000 TCBRSV33 EQU TCBFLGS7 02813000 TCBGPECB EQU TCBFLGS7 02814000 TCBNTJS EQU TCBFLGS6 02815000 TCBAPG EQU TCBFLGS6 02816000 TCBMIGR EQU TCBFLGS6 02817000 TCBRV303 EQU TCBFLGS6 02818000 TCBSPVLK EQU TCBFLGS6 02819000 TCBCPU EQU TCBFLGS6 02820000 TCBPIE17 EQU TCBFLGS6 02821000 TCBRV EQU TCBFLGS6 02822000 TCBRSV79 EQU TCBNDSP5 02823000 TCBRSV78 EQU TCBNDSP5 02824000 TCBRSV77 EQU TCBNDSP5 02825000 TCBRSV76 EQU TCBNDSP5 02826000 TCBRSV75 EQU TCBNDSP5 02827000 TCBRSV74 EQU TCBNDSP5 02828000 TCBRSV95 EQU TCBNDSP5 02829000 TCBRSV94 EQU TCBNDSP5 02830000 TCBRSV93 EQU TCBNDSP4 02831000 TCBRSV92 EQU TCBNDSP4 02832000 TCBRSV91 EQU TCBNDSP4 02833000 TCBRSV90 EQU TCBNDSP4 02834000 TCBRSV89 EQU TCBNDSP4 02835000 TCBRSV88 EQU TCBNDSP4 02836000 TCBRSV87 EQU TCBNDSP4 02837000 TCBRSV86 EQU TCBNDSP4 02838000 TCBEXT1A EQU TCBEXT1+1 02839000 TCBRSV32 EQU TCBEXT1 02840000 TCBEXCPD EQU TCB+192 02841000 TCBIOBRC EQU TCB+188 02842000 TCBDDWTC EQU TCB+186 02843000 TCBDDEXC EQU TCB+184 02844000 TCBJSCBB EQU TCBJSCB+1 02845000 @NM00057 EQU TCBRECDE 02846000 TCBREC EQU TCBRECDE 02847000 TCBMDIDS EQU TCB+176 02848000 TCBNDINT EQU TCBNDSP3 02849000 TCBRSV27 EQU TCBNDSP3 02850000 TCBRSV26 EQU TCBNDSP3 02851000 TCBRSV25 EQU TCBNDSP3 02852000 TCBRSV24 EQU TCBNDSP3 02853000 TCBSRBND EQU TCBNDSP3 02854000 TCBRV302 EQU TCBNDSP3 02855000 TCBLJSND EQU TCBNDSP3 02856000 TCBABE EQU TCBNDSP2 02857000 TCBDSS EQU TCBNDSP2 02858000 TCBOWAIT EQU TCBNDSP2 02859000 TCBIWAIT EQU TCBNDSP2 02860000 TCBNDTS EQU TCBNDSP2 02861000 TCBNDSVC EQU TCBNDSP2 02862000 TCBSTPP EQU TCBNDSP2 02863000 TCBABD EQU TCBNDSP2 02864000 TCBRSV22 EQU TCBNDSP1 02865000 TCBPIEND EQU TCBNDSP1 02866000 TCBTPSP EQU TCBNDSP1 02867000 TCBDDRND EQU TCBNDSP1 02868000 TCBRSPND EQU TCBNDSP1 02869000 TCBRSTND EQU TCBNDSP1 02870000 TCBDARPN EQU TCBNDSP1 02871000 TCBDARTN EQU TCBNDSP1 02872000 TCBNDSP0 EQU TCBNDSP 02873000 TCBUSER EQU TCB+168 02874000 TCBTCTB EQU TCBTCT+1 02875000 TCBRSV9C EQU TCBTCTGF 02876000 TCBRSV9B EQU TCBTCTGF 02877000 TCBRSV9A EQU TCBTCTGF 02878000 TCBRSV99 EQU TCBTCTGF 02879000 TCBRSV98 EQU TCBTCTGF 02880000 TCBRSV97 EQU TCBTCTGF 02881000 TCBRSV20 EQU TCBTCTGF 02882000 TCBSMFGF EQU TCBTCTGF 02883000 TCBSTABB EQU TCBSTAB+1 02884000 TCBSTCUR EQU TCBNSTAE 02885000 TCBRV301 EQU TCBNSTAE 02886000 TCBSYNCH EQU TCBNSTAE 02887000 TCBHALT EQU TCBNSTAE 02888000 TCBPPSUP EQU TCBNSTAE 02889000 TCB33E EQU TCBNSTAE 02890000 TCBQUIES EQU TCBNSTAE 02891000 TCBSTABE EQU TCBNSTAE 02892000 TCBAQE EQU TCB+156 02893000 TCBPQE EQU TCB+152 02894000 TCBTSDP EQU TCB+151 02895000 TCBTSLP EQU TCB+150 02896000 TCBSTPCT EQU TCB+149 02897000 TCBCPUBN EQU TCBTSFLG 02898000 TCBDYDSP EQU TCBTSFLG 02899000 TCBRSV18 EQU TCBTSFLG 02900000 TCBRSV17 EQU TCBTSFLG 02901000 TCBTIOTG EQU TCBTSFLG 02902000 TCBATT EQU TCBTSFLG 02903000 TCBSTPPR EQU TCBTSFLG 02904000 TCBRV300 EQU TCBTSTSK 02905000 TCBECB EQU TCB+144 02906000 TCBIQE EQU TCB+140 02907000 TCBLTC EQU TCB+136 02908000 TCBOTC EQU TCB+132 02909000 TCBNTC EQU TCB+128 02910000 TCBJSTCA EQU TCBJSTCB+1 02911000 TCBRSV16 EQU TCBJSTCB 02912000 TCBTQET EQU TCBTME 02913000 TCBTCB EQU TCB+116 02914000 TCBFSAB EQU TCBFSA+1 02915000 TCBQEL EQU TCBFSA 02916000 TCBGRS15 EQU TCBGRS+60 02917000 TCBGRS14 EQU TCBGRS+56 02918000 TCBGRS13 EQU TCBGRS+52 02919000 TCBGRS12 EQU TCBGRS+48 02920000 TCBGRS11 EQU TCBGRS+44 02921000 TCBGRS10 EQU TCBGRS+40 02922000 TCBGRS9 EQU TCBGRS+36 02923000 TCBGRS8 EQU TCBGRS+32 02924000 TCBGRS7 EQU TCBGRS+28 02925000 TCBGRS6 EQU TCBGRS+24 02926000 TCBGRS5 EQU TCBGRS+20 02927000 TCBGRS4 EQU TCBGRS+16 02928000 TCBGRS3 EQU TCBGRS+12 02929000 TCBGRS2 EQU TCBGRS+8 02930000 TCBGRS1 EQU TCBGRS+4 02931000 TCBGRS0 EQU TCBGRS 02932000 TCBJPQB EQU TCBJPQ+1 02933000 TCBRSV15 EQU TCBPURGE 02934000 TCBRSV14 EQU TCBPURGE 02935000 TCBRSV13 EQU TCBPURGE 02936000 TCBRSV12 EQU TCBPURGE 02937000 TCBRSV11 EQU TCBPURGE 02938000 TCBRSV10 EQU TCBPURGE 02939000 TCBRSV09 EQU TCBPURGE 02940000 TCBJPQF EQU TCBPURGE 02941000 TCBJLB EQU TCB+40 02942000 TCBLLS EQU TCB+36 02943000 TCBDSP EQU TCB+35 02944000 TCBLMP EQU TCB+34 02945000 TCBPNDSP EQU TCBFLGS5 02946000 TCBFCD1 EQU TCBFLGS5 02947000 TCBSTP EQU TCBFLGS5 02948000 TCBSYS EQU TCBFLGS5 02949000 TCBANDSP EQU TCBFLGS5 02950000 TCBPAGE EQU TCBFLGS5 02951000 TCBUXNDF EQU TCBABWF 02952000 TCBFC EQU TCBFLGS5 02953000 TCBONDSP EQU TCBFLGS4 02954000 TCBMPCND EQU TCBFLGS4 02955000 TCBMPCVQ EQU TCBFLGS4 02956000 TCBUXNDV EQU TCBFLGS4 02957000 TCBHNDSP EQU TCBFLGS4 02958000 TCBRQENA EQU TCBFLGS4 02959000 TCBSER EQU TCBFLGS4 02960000 TCBNDUMP EQU TCBFLGS4 02961000 TCBDWSTA EQU TCBFLGS3 02962000 TCBRSV08 EQU TCBFLGS3 02963000 TCBRSV07 EQU TCBFLGS3 02964000 TCBRSV06 EQU TCBFLGS3 02965000 TCBABGM EQU TCBFLGS3 02966000 TCBABTRM EQU TCBFLGS3 02967000 TCBADINP EQU TCBFLGS3 02968000 TCBFSM EQU TCBFLGS3 02969000 TCBFTS EQU TCBFLGS2 02970000 TCBFETXR EQU TCBFLGS2 02971000 TCBFDSOP EQU TCBFLGS2 02972000 TCBFJMC EQU TCBFLGS2 02973000 TCBFSMC EQU TCBFLGS2 02974000 TCBFABOP EQU TCBFLGS2 02975000 TCBFSTI EQU TCBFLGS2 02976000 TCBFOINP EQU TCBFLGS2 02977000 TCBFX EQU TCBFLGS1 02978000 TCBFS EQU TCBFLGS1 02979000 TCBFT EQU TCBFLGS1 02980000 TCBPDUMP EQU TCBFLGS1 02981000 TCBNONPR EQU TCBFLGS1 02982000 TCBFERA EQU TCBFLGS1 02983000 TCBFE EQU TCBFLGS1 02984000 TCBFA EQU TCBFLGS1 02985000 TCBZERO EQU TCBPKF 02986000 TCBFLAG EQU TCBPKF 02987000 TCBMSSB EQU TCBMSS+1 02988000 TCBRSV03 EQU TCBMSS 02989000 TCBTRNB EQU TCBTRN+1 02990000 TCBRSV02 EQU TCBABF 02991000 TCBOLTEP EQU TCBABF 02992000 TCBTCP EQU TCBABF 02993000 TCBTCPP EQU TCBABF 02994000 TCBRSV01 EQU TCBABF 02995000 TCBGRPH EQU TCBABF 02996000 TCBNOCHK EQU TCBABF 02997000 TCBMOD91 EQU TCBABF 02998000 TCBCMPC EQU TCBCMP+1 02999000 TCBRV318 EQU TCBCMSG 03000000 TCBRV317 EQU TCBCIND 03001000 TCBRV316 EQU TCBCWTO 03002000 TCBCASID EQU TCBCDBL 03003000 TCBNOCC EQU TCBSTCC 03004000 TCBDMPO EQU TCBCPP 03005000 TCBCSTEP EQU TCBCMPF 03006000 TCBCREQ EQU TCBCMPF 03007000 TCBTIO EQU TCB+12 03008000 TCBDEB EQU TCB+8 03009000 TCBPIEA EQU TCBPIE+1 03010000 TCBPM EQU TCBPMASK 03011000 @NM00056 EQU TCBPMASK 03012000 TCBFRS6 EQU TCBFRS+24 03013000 TCBFRS4 EQU TCBFRS+16 03014000 TCBFRS2 EQU TCBFRS+8 03015000 TCBFRS0 EQU TCBFRS 03016000 SVRBEND EQU RBSECT+192 03017000 RBFEPARM EQU RBSECT+168 03018000 SIRBEND EQU RBSECT+168 03019000 RBRSV158 EQU RBRSV150 03020000 RBRSV157 EQU RBRSV150 03021000 RBRSV156 EQU RBRSV150 03022000 RBRSV155 EQU RBRSV150 03023000 RBRSV154 EQU RBRSV150 03024000 RBRSV153 EQU RBRSV150 03025000 RBRSV152 EQU RBRSV150 03026000 RBRSV151 EQU RBRSV150 03027000 RBRSV149 EQU RBSECT+166 03028000 RBRSV148 EQU RBSECT+164 03029000 RBRSV169 EQU RBSDATA+3 03030000 RBSID EQU RBSDATA+2 03031000 RBSPKEY EQU RBSDATA+1 03032000 RBRSV168 EQU RBSFLG3 03033000 RBSTERMO EQU RBSFLG3 03034000 RBSBRNTR EQU RBSFLG3 03035000 RBSPRNTR EQU RBSFLG3 03036000 RBSCNCEL EQU RBSFLG3 03037000 RBSRECRD EQU RBSFLG3 03038000 RBSTERMI EQU RBSFLG3 03039000 RBRSV167 EQU RBSFLG3 03040000 RBSOWNRA EQU RBSOWNR+1 03041000 RBSSUPER EQU RBSFLGS2 03042000 RBSKEY0 EQU RBSFLGS2 03043000 RBRSV166 EQU RBSFLGS2 03044000 RBRSV165 EQU RBSFLGS2 03045000 RBSINUSE EQU RBSFLGS2 03046000 RBRSV164 EQU RBSFLGS2 03047000 RBSXCTL2 EQU RBSFLGS2 03048000 RBRSV163 EQU RBSFLGS2 03049000 RBSPARMA EQU RBSPARM+1 03050000 RBSHALT EQU RBSIOPRC 03051000 RBSNOIOP EQU RBSIOPRC 03052000 RBSASYNC EQU RBSFLGS1 03053000 RBRSV162 EQU RBSFLGS1 03054000 RBSESTAE EQU RBSFLGS1 03055000 RBSDUMMY EQU RBSFLGS1 03056000 RBSSTAR EQU RBSFLGS1 03057000 RBSSTAI EQU RBSFLGS1 03058000 RBSEXIT EQU RBSCBB+4 03059000 RBSCHAIN EQU RBSCBB 03060000 TIRBEND EQU @NM00054+8 03061000 PRBEND EQU @NM00054+8 03062000 RBRSV146 EQU RBRSV138 03063000 RBRSV145 EQU RBRSV138 03064000 RBRSV144 EQU RBRSV138 03065000 RBRSV143 EQU RBRSV138 03066000 RBRSV142 EQU RBRSV138 03067000 RBRSV141 EQU RBRSV138 03068000 RBRSV140 EQU RBRSV138 03069000 RBRSV139 EQU RBRSV138 03070000 RBRSV137 EQU @NM00054+6 03071000 RBRSV136 EQU @NM00054+4 03072000 RBRSV135 EQU @NM00054 03073000 @NM00053 EQU RBSECT+32 03074000 @NM00052 EQU @NM00050+1 03075000 RBSCF EQU @NM00051 03076000 RBPGMQ1 EQU RBPGMQ+1 03077000 @NM00049 EQU RBPGMQ 03078000 @NM00048 EQU RBSECT+16 03079000 @NM00047 EQU @NM00043 03080000 @NM00046 EQU @NM00043 03081000 RBIQETP EQU @NM00043 03082000 RBUSIQE EQU RBETXR 03083000 RBATTN EQU @NM00043 03084000 @NM00045 EQU @NM00043 03085000 @NM00044 EQU @NM00043 03086000 RBPMSVRB EQU @NM00041 03087000 RBATNXIT EQU @NM00041 03088000 @NM00042 EQU @NM00041 03089000 RBWAITP EQU @NM00041 03090000 RBFNSVRB EQU RBTRSVRB 03091000 RBSIZE EQU RBSECT+8 03092000 RBABOPSW EQU RBSECT+4 03093000 RBPPSAV1 EQU RBPPSAV+1 03094000 @NM00039 EQU RBPPSAV 03095000 RBPRFXND EQU RBPREFIX+64 03096000 RBINTCOD EQU RBINTCDA+1 03097000 RBINLNTH EQU RBINTCDA 03098000 RBWCSA EQU RBPREFIX+60 03099000 RBRSV004 EQU RBPREFIX+57 03100000 RBSSSYN EQU RBFLAGS1 03101000 RBSCB EQU RBFLAGS1 03102000 RBLONGWT EQU RBFLAGS1 03103000 RBASIR EQU RBFLAGS1 03104000 RBRSV159 EQU RBFLAGS1 03105000 RBABEND EQU RBFLAGS1 03106000 RBXWAIT EQU RBFLAGS1 03107000 RBSLOCK EQU RBFLAGS1 03108000 RBRTRAN EQU RBRTPSW2+4 03109000 RBRTINCD EQU RBRTICIL+2 03110000 RBRTILC EQU RBRTICIL+1 03111000 RBRSV160 EQU RBRTICIL 03112000 RBRTPSW1 EQU RBRTOPSW 03113000 RBRSV062 EQU RBRSV054 03114000 RBRSV061 EQU RBRSV054 03115000 RBRSV060 EQU RBRSV054 03116000 RBRSV059 EQU RBRSV054 03117000 RBRSV058 EQU RBRSV054 03118000 RBRSV057 EQU RBRSV054 03119000 RBRSV056 EQU RBRSV054 03120000 RBRSV055 EQU RBRSV054 03121000 RBRSV053 EQU RBPREFIX+38 03122000 RBRSV052 EQU RBPREFIX+36 03123000 RBRSV051 EQU RBPREFIX+32 03124000 RBPRFXST EQU RBPREFIX+32 03125000 RBRSV050 EQU RBPREFIX+28 03126000 RBRSV049 EQU RBRSV041 03127000 RBRSV048 EQU RBRSV041 03128000 RBRSV047 EQU RBRSV041 03129000 RBRSV046 EQU RBRSV041 03130000 RBRSV045 EQU RBRSV041 03131000 RBRSV044 EQU RBRSV041 03132000 RBRSV043 EQU RBRSV041 03133000 RBRSV042 EQU RBRSV041 03134000 RBRSV040 EQU RBPREFIX+26 03135000 RBRSV039 EQU RBPREFIX+24 03136000 RBRSV038 EQU RBPREFIX+20 03137000 RBRSV037 EQU RBPREFIX+16 03138000 RBRSV036 EQU RBRSV028 03139000 RBRSV035 EQU RBRSV028 03140000 RBRSV034 EQU RBRSV028 03141000 RBRSV033 EQU RBRSV028 03142000 RBRSV032 EQU RBRSV028 03143000 RBRSV031 EQU RBRSV028 03144000 RBRSV030 EQU RBRSV028 03145000 RBRSV029 EQU RBRSV028 03146000 RBRSV027 EQU RBRSV019 03147000 RBRSV026 EQU RBRSV019 03148000 RBRSV025 EQU RBRSV019 03149000 RBRSV024 EQU RBRSV019 03150000 RBRSV023 EQU RBRSV019 03151000 RBRSV022 EQU RBRSV019 03152000 RBRSV021 EQU RBRSV019 03153000 RBRSV020 EQU RBRSV019 03154000 RBRSV018 EQU RBPREFIX+13 03155000 RBRSV017 EQU RBPREFIX+12 03156000 RBSRV016 EQU RBPREFIX+11 03157000 RBRSV015 EQU RBPREFIX+10 03158000 RBRSV014 EQU RBPREFIX+8 03159000 RBRSV013 EQU RBPREFIX+4 03160000 RBRSV012 EQU RBPREFIX 03161000 RBEXSAVE EQU XRBESA 03162000 XRBREG15 EQU RBGRS15 03163000 XRBREG14 EQU RBGRS14 03164000 XRBREG13 EQU RBGRS13 03165000 XRBREG12 EQU RBGRS12 03166000 XRBREG11 EQU RBGRS11 03167000 XRBREG10 EQU RBGRS10 03168000 XRBREG9 EQU RBGRS9 03169000 XRBREG8 EQU RBGRS8 03170000 XRBREG7 EQU RBGRS7 03171000 XRBREG6 EQU RBGRS6 03172000 XRBREG5 EQU RBGRS5 03173000 XRBREG4 EQU RBGRS4 03174000 XRBREG3 EQU RBGRS3 03175000 XRBREG2 EQU RBGRS2 03176000 XRBREG1 EQU RBGRS1 03177000 XRBREG0 EQU RBGRS0 03178000 XRBLNKA EQU RBLINKB 03179000 XRBWT EQU RBWCF 03180000 @NM00038 EQU RBBASIC+24 03181000 RBOPSWPS EQU RBOPSWB2 03182000 @NM00037 EQU RBOPSWB2 03183000 @NM00036 EQU XRBPSW 03184000 @NM00035 EQU RBBASIC+12 03185000 XRBWAIT EQU RBECBWT 03186000 XRBFRRB EQU RBFDYN 03187000 @NM00034 EQU XSTAB2 03188000 XRBACTV EQU RBFACTV 03189000 XRBTCBP EQU RBTCBNXT 03190000 @NM00033 EQU XSTAB1 03191000 XRBCKPT EQU RBFTCKPT 03192000 @NM00032 EQU XSTAB1 03193000 @NM00031 EQU RBBASIC+8 03194000 @NM00030 EQU RBEXRTNM+1 03195000 RBTMIND3 EQU RBTMFLD 03196000 RBTMIND2 EQU RBTMFLD 03197000 RBTMCMP EQU RBTMFLD 03198000 RBWLIM EQU RBTMFLD 03199000 RBRSV005 EQU RBTMFLD 03200000 RBTMTOD EQU RBTMFLD 03201000 RBTMQUE EQU RBTMFLD 03202000 @NM00029 EQU RBPRFX 03203000 ASXBEND EQU ASXB+232 03204000 ASXBRV25 EQU ASXB+228 03205000 ASXBRV24 EQU ASXB+224 03206000 ASXBPT0E EQU ASXB+220 03207000 ASXBCRB4 EQU ASXBCASW+3 03208000 ASXBCRB3 EQU ASXBCASW+2 03209000 ASXBCRB2 EQU ASXBCASW+1 03210000 ASXBCR06 EQU ASXBCRB1 03211000 ASXBCR05 EQU ASXBCRB1 03212000 ASXBCR04 EQU ASXBCRB1 03213000 ASXBCR03 EQU ASXBCRB1 03214000 ASXBCR02 EQU ASXBCRB1 03215000 ASXBCR01 EQU ASXBCRB1 03216000 ASXBTFD EQU ASXBCRB1 03217000 ASXBPIP EQU ASXBCRB1 03218000 ASXBCTDC EQU ASXB+212 03219000 ASXBTDCB EQU ASXB+208 03220000 ASXBRV19 EQU ASXB+204 03221000 ASXBRV18 EQU ASXB+200 03222000 ASXBRV17 EQU ASXB+196 03223000 ASXBRV16 EQU ASXB+192 03224000 ASXBLSRB EQU ASXBAEQ+20 03225000 ASXBFSRB EQU ASXBAEQ+16 03226000 ASXBLRQE EQU ASXBAEQ+12 03227000 ASXBFRQE EQU ASXBAEQ+8 03228000 ASXBLIQE EQU ASXBAEQ+4 03229000 ASXBFIQE EQU ASXBAEQ 03230000 ASXBETSK EQU ASXB+164 03231000 ASXBSIRB EQU ASXB+160 03232000 ASXBPSWD EQU ASXB+152 03233000 ASXBPRG EQU ASXB+136 03234000 ASXBRV26 EQU ASXB+132 03235000 ASXBOUSB EQU ASXB+128 03236000 ASXBDDR EQU ASXB+124 03237000 ASXBRCTD EQU ASXB+120 03238000 ASXBRSMD EQU ASXB+116 03239000 ASXBSPSA EQU ASXB+112 03240000 ASXBFRWA EQU ASXB+108 03241000 ASXBFLSA EQU ASXB+36 03242000 ASXBIHSA EQU ASXB+32 03243000 ASXBRV15 EQU ASXB+28 03244000 ASXBRV14 EQU ASXB+24 03245000 ASXBLWA EQU ASXB+20 03246000 ASXBRS00 EQU ASXB+14 03247000 ASXBTCBS EQU ASXB+12 03248000 ASXBLTCB EQU ASXB+8 03249000 ASXBFTCB EQU ASXB+4 03250000 ASXBASXB EQU ASXB 03251000 ASXBEGIN EQU ASXB 03252000 ASCBEND EQU ASCB+208 03253000 ASCBSRBT EQU ASCB+200 03254000 ASCBSWTL EQU ASCB+196 03255000 ASCBRS14 EQU ASCB+195 03256000 ASCBSMCT EQU ASCB+194 03257000 ASCBRS12 EQU ASCB+192 03258000 ASCBPCTT EQU ASCB+188 03259000 ASCBVGTT EQU ASCB+184 03260000 ASCBRV43 EQU ASCBSRQ4 03261000 ASCBRV42 EQU ASCBSRQ4 03262000 ASCBRV41 EQU ASCBSRQ4 03263000 ASCBRV40 EQU ASCBSRQ4 03264000 ASCBRV39 EQU ASCBSRQ4 03265000 ASCBRV38 EQU ASCBSRQ4 03266000 ASCBRV37 EQU ASCBSRQ4 03267000 ASCBRV36 EQU ASCBSRQ4 03268000 ASCBRV35 EQU ASCBSRQ3 03269000 ASCBRV34 EQU ASCBSRQ3 03270000 ASCBRV33 EQU ASCBSRQ3 03271000 ASCBRV32 EQU ASCBSRQ3 03272000 ASCBRV31 EQU ASCBSRQ3 03273000 ASCBRV30 EQU ASCBSRQ3 03274000 ASCBRV29 EQU ASCBSRQ3 03275000 ASCBRV28 EQU ASCBSRQ3 03276000 ASCBRV27 EQU ASCBSRQ2 03277000 ASCBRV26 EQU ASCBSRQ2 03278000 ASCBRV25 EQU ASCBSRQ2 03279000 ASCBRV24 EQU ASCBSRQ2 03280000 ASCBRV23 EQU ASCBSRQ2 03281000 ASCBRV22 EQU ASCBSRQ2 03282000 ASCBRV21 EQU ASCBSRQ2 03283000 ASCBRV20 EQU ASCBSRQ2 03284000 ASCBRV19 EQU ASCBSRQ1 03285000 ASCBRV18 EQU ASCBSRQ1 03286000 ASCBRV17 EQU ASCBSRQ1 03287000 ASCBRV16 EQU ASCBSRQ1 03288000 ASCBRV15 EQU ASCBSRQ1 03289000 ASCBRV14 EQU ASCBSRQ1 03290000 ASCBRV13 EQU ASCBSRQ1 03291000 ASCBSTA EQU ASCBSRQ1 03292000 ASCBJBNS EQU ASCB+176 03293000 ASCBJBNI EQU ASCB+172 03294000 ASCBMCC EQU ASCB+168 03295000 ASCBRTWA EQU ASCB+164 03296000 ASCBIQEA EQU ASCB+160 03297000 ASCBXMPQ EQU ASCB+156 03298000 ASCBRS01 EQU ASCB+154 03299000 ASCBFMCT EQU ASCB+152 03300000 ASCBOUXB EQU ASCB+148 03301000 ASCBOUCB EQU ASCB+144 03302000 ASCBMECB EQU ASCB+140 03303000 ASCBQECB EQU ASCB+136 03304000 ASCBLSQH EQU ASCBLKGP+4 03305000 ASCBLOCK EQU ASCBLKGP 03306000 ASCBTCBS EQU ASCB+124 03307000 ASCBNVSC EQU ASCB+122 03308000 ASCBVSC EQU ASCB+120 03309000 ASCBSRBS EQU ASCB+118 03310000 ASCBSSRB EQU ASCB+116 03311000 ASCBRV06 EQU ASCBFLG2 03312000 ASCBRV05 EQU ASCBFLG2 03313000 ASCBRV04 EQU ASCBFLG2 03314000 ASCBSNQS EQU ASCBFLG2 03315000 ASCBS2S EQU ASCBFLG2 03316000 ASCBCEXT EQU ASCBFLG2 03317000 ASCBPXMT EQU ASCBFLG2 03318000 ASCBXMPT EQU ASCBFLG2 03319000 ASCBRF07 EQU ASCBDSP1 03320000 ASCBRF06 EQU ASCBDSP1 03321000 ASCBRF05 EQU ASCBDSP1 03322000 ASCBRF04 EQU ASCBDSP1 03323000 ASCBRF03 EQU ASCBDSP1 03324000 ASCBRF02 EQU ASCBDSP1 03325000 ASCBFAIL EQU ASCBDSP1 03326000 ASCBNOQ EQU ASCBDSP1 03327000 ASCBSWCT EQU ASCB+112 03328000 ASCBTMCH EQU ASCB+104 03329000 ASCBNSWP EQU ASCBFLG1 03330000 ASCBTYP1 EQU ASCBFLG1 03331000 ASCBSTND EQU ASCBFLG1 03332000 ASCBABNT EQU ASCBFLG1 03333000 ASCBTERM EQU ASCBFLG1 03334000 ASCBS3S EQU ASCBFLG1 03335000 ASCBCMSH EQU ASCBFLG1 03336000 ASCBTOFF EQU ASCBFLG1 03337000 ASCBRF01 EQU ASCBRCTF 03338000 ASCBTMLW EQU ASCBRCTF 03339000 ASCBOUT EQU ASCBRCTF 03340000 ASCBWAIT EQU ASCBRCTF 03341000 ASCBRV08 EQU ASCBRCTF 03342000 ASCBFQU EQU ASCBRCTF 03343000 ASCBFRS EQU ASCBRCTF 03344000 ASCBTMNO EQU ASCBRCTF 03345000 ASCBAFFN EQU ASCBFW1 03346000 ASCBDUMP EQU ASCB+96 03347000 ASCBQSVC EQU ASCB+92 03348000 ASCBUBET EQU ASCB+88 03349000 ASCBECB EQU ASCB+84 03350000 ASCBJSTL EQU ASCB+80 03351000 ASCBEWST EQU ASCB+72 03352000 ASCBEJST EQU ASCB+64 03353000 ASCBTSB EQU ASCB+60 03354000 ASCBCSCB EQU ASCB+56 03355000 ASCBRSM EQU ASCB+52 03356000 ASCBLDA EQU ASCB+48 03357000 ASCBSTOR EQU ASCB+44 03358000 ASCBDP EQU ASCB+43 03359000 ASCBRV07 EQU ASCB+42 03360000 ASCBIOSM EQU ASCB+40 03361000 ASCBSEQN EQU ASCB+38 03362000 ASCBASID EQU ASCB+36 03363000 ASCBCPUS EQU ASCB+32 03364000 ASCBSPL EQU ASCB+28 03365000 ASCBIOSP EQU ASCB+24 03366000 ASCBSYNC EQU ASCBSUPC+4 03367000 ASCBSVRB EQU ASCBSUPC 03368000 ASCBCMSF EQU ASCB+12 03369000 ASCBBWDP EQU ASCB+8 03370000 ASCBFWDP EQU ASCB+4 03371000 ASCBASCB EQU ASCB 03372000 ASCBEGIN EQU ASCB 03373000 CVTLEVL EQU CVTRELNO+2 03374000 CVTNUMB EQU CVTRELNO 03375000 CVTMDL EQU CVTFIX+250 03376000 @NM00004 EQU CVTFIX+248 03377000 @NM00003 EQU CVTFIX 03378000 CVTRV482 EQU CVTXTNT2+128 03379000 CVTRV481 EQU CVTXTNT2+124 03380000 CVTRV480 EQU CVTXTNT2+120 03381000 CVTRV479 EQU CVTXTNT2+118 03382000 CVTRV478 EQU CVTXTNT2+117 03383000 CVTRV477 EQU CVTXTNT2+116 03384000 CVTRV476 EQU CVTXTNT2+115 03385000 CVTRV475 EQU CVTXTNT2+114 03386000 CVTRV474 EQU CVTRV466 03387000 CVTRV473 EQU CVTRV466 03388000 CVTRV472 EQU CVTRV466 03389000 CVTRV471 EQU CVTRV466 03390000 CVTRV470 EQU CVTRV466 03391000 CVTRV469 EQU CVTRV466 03392000 CVTRV468 EQU CVTRV466 03393000 CVTRV467 EQU CVTRV466 03394000 CVTRV465 EQU CVTRV457 03395000 CVTRV464 EQU CVTRV457 03396000 CVTRV463 EQU CVTRV457 03397000 CVTRV462 EQU CVTRV457 03398000 CVTRV461 EQU CVTRV457 03399000 CVTRV460 EQU CVTRV457 03400000 CVTRV459 EQU CVTRV457 03401000 CVTRV458 EQU CVTRV457 03402000 CVTRV456 EQU CVTXTNT2+108 03403000 CVTRV455 EQU CVTXTNT2+104 03404000 CVTRV454 EQU CVTXTNT2+100 03405000 CVTRV453 EQU CVTXTNT2+96 03406000 CVTRV452 EQU CVTXTNT2+94 03407000 CVTRV451 EQU CVTXTNT2+92 03408000 CVTRV450 EQU CVTXTNT2+90 03409000 CVTRV449 EQU CVTXTNT2+88 03410000 CVTRV448 EQU CVTXTNT2+87 03411000 CVTRV447 EQU CVTXTNT2+86 03412000 CVTRV446 EQU CVTRV438 03413000 CVTRV445 EQU CVTRV438 03414000 CVTRV444 EQU CVTRV438 03415000 CVTRV443 EQU CVTRV438 03416000 CVTRV442 EQU CVTRV438 03417000 CVTRV441 EQU CVTRV438 03418000 CVTRV440 EQU CVTRV438 03419000 CVTRV439 EQU CVTRV438 03420000 CVTRV437 EQU CVTRV429 03421000 CVTRV436 EQU CVTRV429 03422000 CVTRV435 EQU CVTRV429 03423000 CVTRV434 EQU CVTRV429 03424000 CVTRV433 EQU CVTRV429 03425000 CVTRV432 EQU CVTRV429 03426000 CVTRV431 EQU CVTRV429 03427000 CVTRV430 EQU CVTRV429 03428000 CVTRV428 EQU CVTXTNT2+80 03429000 CVTRV427 EQU CVTXTNT2+76 03430000 CVTRV426 EQU CVTXTNT2+72 03431000 CVTRV425 EQU CVTXTNT2+68 03432000 CVTATACT EQU CVTATCVT 03433000 CVTRV423 EQU CVTXTNT2+62 03434000 CVTRV422 EQU CVTXTNT2+60 03435000 CVTRV421 EQU CVTXTNT2+58 03436000 CVTRV420 EQU CVTXTNT2+56 03437000 CVTRV419 EQU CVTXTNT2+55 03438000 CVTRV418 EQU CVTXTNT2+54 03439000 CVTRV417 EQU CVTRV409 03440000 CVTRV416 EQU CVTRV409 03441000 CVTRV415 EQU CVTRV409 03442000 CVTRV414 EQU CVTRV409 03443000 CVTRV413 EQU CVTRV409 03444000 CVTRV412 EQU CVTRV409 03445000 CVTRV411 EQU CVTRV409 03446000 CVTRV410 EQU CVTRV409 03447000 CVTRV408 EQU CVTRV400 03448000 CVTRV407 EQU CVTRV400 03449000 CVTRV406 EQU CVTRV400 03450000 CVTRV405 EQU CVTRV400 03451000 CVTRV404 EQU CVTRV400 03452000 CVTRV403 EQU CVTRV400 03453000 CVTRV402 EQU CVTRV400 03454000 CVTRV401 EQU CVTRV400 03455000 CVTICB EQU CVTXTNT2+48 03456000 CVTSKTA EQU CVTXTNT2+44 03457000 CVTSHSB EQU CVTSHS 03458000 CVTRSV98 EQU CVTXTNT2+36 03459000 CVTRSV97 EQU CVTXTNT2+34 03460000 CVTRSV96 EQU CVTXTNT2+32 03461000 CVTOLTEP EQU CVTXTNT2+28 03462000 CVTQIDA EQU CVTQID+1 03463000 CVTRSV95 EQU CVTQID 03464000 CVTRSV94 EQU CVTXTNT2+20 03465000 CVTRSV93 EQU CVTXTNT2+16 03466000 CVTRSV92 EQU CVTXTNT2+12 03467000 CVTDEBVR EQU CVTXTNT2+8 03468000 CVTRSV91 EQU CVTXTNT2+6 03469000 CVTRSV9H EQU CVTFLGBT 03470000 CVTRSV9G EQU CVTFLGBT 03471000 CVTRSV9F EQU CVTFLGBT 03472000 CVTRSV9E EQU CVTFLGBT 03473000 CVTRSV9D EQU CVTFLGBT 03474000 CVTRSV9C EQU CVTFLGBT 03475000 CVTVME EQU CVTFLGBT 03476000 CVTNPE EQU CVTFLGBT 03477000 CVTNUCLS EQU CVTXTNT2+4 03478000 CVTDSSVA EQU CVTDSSV+1 03479000 CVTRSV89 EQU CVTDSSV 03480000 CVTRSV88 EQU CVTXTNT1+8 03481000 CVTRSV87 EQU CVTXTNT1+4 03482000 CVTFACHN EQU CVTXTNT1 03483000 CVTRV488 EQU CVTMAP+412 03484000 CVTRV487 EQU CVTMAP+408 03485000 CVTRV486 EQU CVTMAP+404 03486000 CVTRV485 EQU CVTMAP+400 03487000 CVTACTAP EQU CVTMAP+396 03488000 CVTAUTH EQU CVTMAP+392 03489000 CVTATMCA EQU CVTATMCT+1 03490000 CVTATMST EQU CVTATMCT 03491000 CVTRSV61 EQU CVTMAP+384 03492000 CVTVOLT1 EQU CVTVOLM1+1 03493000 CVTVOLI1 EQU CVTVOLF1 03494000 CVTSTOA EQU CVTMAP+376 03495000 CVTRSV58 EQU CVTMAP+374 03496000 CVTRSV57 EQU CVTMAP+372 03497000 CVTDDCE EQU CVTMAP+368 03498000 CVTPNWFR EQU CVTMAP+364 03499000 CVTSMF EQU CVTMAP+360 03500000 CVTSULK EQU CVTMAP+358 03501000 CVTSLKO EQU CVTSYSK 03502000 CVTSLKP EQU CVTSYSK 03503000 CVTSLKQ EQU CVTSYSK 03504000 CVTSLKR EQU CVTSYSK 03505000 CVTRSV56 EQU CVTSYSK 03506000 CVTRSV55 EQU CVTSYSK 03507000 CVTRSV54 EQU CVTSYSK 03508000 CVTRSV53 EQU CVTSYSK 03509000 CVTRSV52 EQU CVTA1F1 03510000 CVTRSV51 EQU CVTA1F1 03511000 CVTRSV50 EQU CVTA1F1 03512000 CVTRSV49 EQU CVTA1F1 03513000 CVTRSV48 EQU CVTA1F1 03514000 CVTRSV47 EQU CVTA1F1 03515000 CVTSRSW EQU CVTA1F1 03516000 CVTPFSW EQU CVTA1F1 03517000 CVTPCVT EQU CVTMAP+352 03518000 CVTRSV46 EQU CVTMAP+344 03519000 CVTRSV45 EQU CVTMAP+340 03520000 CVTRSV44 EQU CVTMAP+338 03521000 CVTRSV43 EQU CVTMAP+336 03522000 CVTHJESA EQU CVTHJES+1 03523000 CVTRSV42 EQU CVTHJES 03524000 CVTEXT2A EQU CVTEXT2+1 03525000 CVTRSV41 EQU CVTEXT2 03526000 CVTAPFA EQU CVTAPF+1 03527000 CVTRSV40 EQU CVTAPF 03528000 CVTRV518 EQU CVTINTLA 03529000 CVTRV517 EQU CVTERPV 03530000 CVTEORM EQU CVTMAP+312 03531000 CVTMCHPR EQU CVTMAP+308 03532000 CVTTZ EQU CVTMAP+304 03533000 CVTJEPS EQU CVTMAP+300 03534000 CVTJESCT EQU CVTMAP+296 03535000 CVTMODE EQU CVTMAP+292 03536000 CVTPTRV EQU CVTMAP+288 03537000 CVTREAL EQU CVTMAP+284 03538000 CVTRSV39 EQU CVTMAP+280 03539000 CVTRSV38 EQU CVTMAP+276 03540000 CVTDMSRA EQU CVTDMSR+1 03541000 CVTRV634 EQU CVTDMSRF 03542000 CVTRV633 EQU CVTDMSRF 03543000 CVTRV632 EQU CVTDMSRF 03544000 CVTRV631 EQU CVTDMSRF 03545000 CVTRV630 EQU CVTDMSRF 03546000 CVTRV629 EQU CVTDMSRF 03547000 CVTUDUMP EQU CVTDMSRF 03548000 CVTSDUMP EQU CVTDMSRF 03549000 CVTQMSGA EQU CVTQMSG+1 03550000 CVTRSV36 EQU CVTQMSG 03551000 CVTAMFF EQU CVTMAP+264 03552000 CVTPURGA EQU CVTPURG+1 03553000 CVTRSV35 EQU CVTPURG 03554000 CVTCBSP EQU CVTMAP+256 03555000 CVTATERA EQU CVTATER+1 03556000 CVTSYST EQU CVTATER 03557000 CVTVOLT2 EQU CVTTAT 03558000 CVTVOLI2 EQU CVTVOLF2 03559000 CVTAQAVB EQU CVTAQAVT+1 03560000 CVTRSV34 EQU CVTTCMFG 03561000 CVTRSV33 EQU CVTTCMFG 03562000 CVTRSV32 EQU CVTTCMFG 03563000 CVTRSV31 EQU CVTTCMFG 03564000 CVTRSV30 EQU CVTTCMFG 03565000 CVTRSV29 EQU CVTTCMFG 03566000 CVTRSV28 EQU CVTTCMFG 03567000 CVTTCRDY EQU CVTTCMFG 03568000 CVTGTFA EQU CVTGTF+1 03569000 CVTRSV27 EQU CVTGTFST 03570000 CVTRNIO EQU CVTGTFST 03571000 CVTUSR EQU CVTGTFST 03572000 CVTRV318 EQU CVTFORM 03573000 CVTRV317 EQU CVTTMODE 03574000 CVTRV316 EQU CVTSTATE 03575000 CVTRV315 EQU CVTGTFS 03576000 CVTGTFAV EQU CVTGTFS 03577000 CVT0SCR1 EQU CVTMAP+232 03578000 CVTRV515 EQU CVTMAP+228 03579000 CVTRMS EQU CVTMAP+224 03580000 CVTPATCH EQU CVTMAP+220 03581000 CVTTSCE EQU CVTMAP+216 03582000 CVTLNKSC EQU CVTMAP+214 03583000 CVTQABST EQU CVTMAP+212 03584000 CVTMDLDS EQU CVTMAP+208 03585000 CVTUSER EQU CVTMAP+204 03586000 CVTABEND EQU CVTMAP+200 03587000 CVTSMCA EQU CVTMAP+196 03588000 CVTRSV18 EQU CVTMAP+192 03589000 CVTQLPAQ EQU CVTMAP+188 03590000 CVTQCDSR EQU CVTMAP+184 03591000 CVTRSV17 EQU CVTOPTB 03592000 CVTRSV16 EQU CVTOPTB 03593000 CVTFP EQU CVTOPTB 03594000 CVTAPTHR EQU CVTOPTB 03595000 CVTNLOG EQU CVTOPTB 03596000 CVTTOD EQU CVTOPTB 03597000 CVTCTIMS EQU CVTOPTB 03598000 CVTPROT EQU CVTOPTB 03599000 CVTXPFP EQU CVTOPTA 03600000 CVTASCII EQU CVTOPTA 03601000 CVTRSV13 EQU CVTOPTA 03602000 CVTRSV12 EQU CVTOPTA 03603000 CVTNIP EQU CVTOPTA 03604000 CVTDDR EQU CVTOPTA 03605000 CVTAPR EQU CVTOPTA 03606000 CVTCCH EQU CVTOPTA 03607000 CVTSNCTR EQU CVTMAP+180 03608000 CVTQMWR EQU CVTMAP+176 03609000 CVTQOCR EQU CVTMAP+172 03610000 CVT1EF00 EQU CVTMAP+168 03611000 CVTMZ00 EQU CVTMAP+164 03612000 CVTHEAD EQU CVTMAP+160 03613000 CVTRSV11 EQU CVTMAP+156 03614000 CVT0PT01 EQU CVTMAP+152 03615000 CVTMSER EQU CVTMAP+148 03616000 CVTRV516 EQU CVTIERLC 03617000 CVTILCH EQU CVTMAP+140 03618000 CVT0DS EQU CVTMAP+136 03619000 CVTFBOSV EQU CVTMAP+132 03620000 CVTNUCB EQU CVTMAP+128 03621000 CVTIXAVL EQU CVTMAP+124 03622000 CVTIOQET EQU CVTMAP+120 03623000 CVTDCBA EQU CVTMAP+117 03624000 CVTMVS2 EQU CVTDCB 03625000 CVT6DAT EQU CVTDCB 03626000 CVT4MPS EQU CVTDCB 03627000 CVTRSV09 EQU CVTDCB 03628000 CVT4MS1 EQU CVTDCB 03629000 CVT2SPS EQU CVTDCB 03630000 CVT1SSS EQU CVTDCB 03631000 CVTRSV08 EQU CVTDCB 03632000 CVTSTB EQU CVTMAP+112 03633000 CVTQTD00 EQU CVTMAP+108 03634000 CVTQTE00 EQU CVTMAP+104 03635000 CVTCUCB EQU CVTMAP+100 03636000 CVTSJQ EQU CVTMAP+96 03637000 CVTPBLDL EQU CVTMAP+92 03638000 CVTTPC EQU CVTMAP+88 03639000 CVTSVDCB EQU CVTMAP+84 03640000 CVTBRET EQU CVTMAP+82 03641000 CVTEXIT EQU CVTMAP+80 03642000 CVT0FN00 EQU CVTMAP+76 03643000 CVTDARA EQU CVTDAR+1 03644000 CVTRSV07 EQU CVTFLGS1 03645000 CVTRSV06 EQU CVTFLGS1 03646000 CVTRSV05 EQU CVTFLGS1 03647000 CVTRSV04 EQU CVTFLGS1 03648000 CVTRSV03 EQU CVTFLGS1 03649000 CVTRSV02 EQU CVTFLGS1 03650000 CVTRSV01 EQU CVTFLGS1 03651000 CVTDMPLK EQU CVTFLGS1 03652000 CVTXITP EQU CVTMAP+68 03653000 CVTZDTAB EQU CVTMAP+64 03654000 CVTMSLT EQU CVTMAP+60 03655000 CVTDATE EQU CVTMAP+56 03656000 CVTBTERM EQU CVTMAP+52 03657000 CVTSYSAD EQU CVTMAP+48 03658000 CVTXTLER EQU CVTMAP+44 03659000 CVTILK2 EQU CVTMAP+40 03660000 CVTILK1 EQU CVTMAP+36 03661000 CVTPRLTV EQU CVTMAP+32 03662000 CVTPCNVT EQU CVTMAP+28 03663000 CVT0VL00 EQU CVTMAP+24 03664000 CVTXAPG EQU CVTMAP+20 03665000 CVTBUF EQU CVTMAP+16 03666000 CVTJOB EQU CVTMAP+12 03667000 CVTLINK EQU CVTMAP+8 03668000 CVT0EF00 EQU CVTMAP+4 03669000 CVTTCBP EQU CVTMAP 03670000 CVT EQU CVTMAP 03671000 @NM00002 EQU SRBSECT+40 03672000 @NM00001 EQU SRBSECT+38 03673000 SRBPRIOR EQU SRBSECT+37 03674000 SRBPKF EQU SRBSECT+36 03675000 SRBSAVE EQU SRBSECT+32 03676000 SRBPTCB EQU SRBFLC+4 03677000 SRBCPAFF EQU SRBFLC 03678000 @NM00028 EQU PSA+3668 03679000 PSASTAK EQU PSA+3072 03680000 @NM00027 EQU PSA+1048 03681000 PSAUSEND EQU PSA+1048 03682000 PSARV062 EQU PSA+1044 03683000 PSACDAL EQU PSA+1040 03684000 PSAWTCOD EQU PSA+1036 03685000 PSAATCVT EQU PSA+1032 03686000 PSAPCPSW EQU PSA+1024 03687000 PSAPIR2 EQU PSA+1020 03688000 PSARV059 EQU PSA+1018 03689000 PSASVC13 EQU PSA+1016 03690000 PSALSFCC EQU PSA+1012 03691000 PSASFACC EQU PSA+1008 03692000 PSASTOP EQU PSA+992 03693000 PSASTART EQU PSA+976 03694000 PSARSPSW EQU PSA+968 03695000 PSASRPSW EQU PSA+960 03696000 PSARV045 EQU PSA+892 03697000 PSARV044 EQU PSA+888 03698000 PSARV043 EQU PSA+884 03699000 PSARV042 EQU PSA+880 03700000 PSARV041 EQU PSA+876 03701000 PSARV040 EQU PSA+872 03702000 PSARV025 EQU PSA+868 03703000 PSADSSED EQU PSA+868 03704000 PSADSSPR EQU PSA+864 03705000 PSADSSFW EQU PSA+860 03706000 PSADSS14 EQU PSA+856 03707000 PSADSSPP EQU PSA+848 03708000 PSADSSRP EQU PSA+840 03709000 PSADSS05 EQU PSADSSF4 03710000 PSADSS10 EQU PSADSSF4 03711000 PSADSSVE EQU PSADSSF4 03712000 PSADSSDE EQU PSADSSF4 03713000 PSADSSC0 EQU PSADSSF4 03714000 PSADSSIE EQU PSADSSF4 03715000 PSADSS12 EQU PSADSSF4 03716000 PSADSSRC EQU PSADSSF4 03717000 PSARV057 EQU PSADSSF3 03718000 PSARV056 EQU PSADSSF3 03719000 PSARV055 EQU PSADSSF3 03720000 PSADSSMC EQU PSADSSF3 03721000 PSADSSRW EQU PSADSSF3 03722000 PSADSSNM EQU PSADSSF3 03723000 PSADSSES EQU PSADSSF3 03724000 PSADSSGP EQU PSADSSF3 03725000 PSADSSF2 EQU PSADSSFL+1 03726000 PSADSSPI EQU PSADSSF1 03727000 PSADSSOI EQU PSADSSF1 03728000 PSADSSSP EQU PSADSSF1 03729000 PSADSSTP EQU PSADSSF1 03730000 PSADSSDW EQU PSADSSF1 03731000 PSADSSDD EQU PSADSSF1 03732000 PSADSSDM EQU PSADSSF1 03733000 PSADSSMV EQU PSADSSF1 03734000 PSADSSTS EQU PSA+816 03735000 PSADSSWK EQU PSA+812 03736000 PSADSSR3 EQU PSA+808 03737000 PSADSSR2 EQU PSA+804 03738000 PSADSSRS EQU PSA+800 03739000 PSASTOR EQU PSA+796 03740000 PSACPUSA EQU PSA+794 03741000 PSAVSTAP EQU PSA+792 03742000 PSAWKVAP EQU PSA+788 03743000 PSAWKRAP EQU PSA+784 03744000 PSAMCHIC EQU PSA+783 03745000 PSARV061 EQU PSA+782 03746000 PSASYMSK EQU PSA+781 03747000 PSAMCHFL EQU PSA+780 03748000 PSACR0 EQU PSA+776 03749000 PSAPSWSV EQU PSA+768 03750000 PSALITA EQU PSA+764 03751000 PSACLHS EQU PSAHLHI 03752000 PSALKR15 EQU PSALKSA+60 03753000 PSALKR14 EQU PSALKSA+56 03754000 PSALKR13 EQU PSALKSA+52 03755000 PSALKR12 EQU PSALKSA+48 03756000 PSALKR11 EQU PSALKSA+44 03757000 PSALKR10 EQU PSALKSA+40 03758000 PSALKR9 EQU PSALKSA+36 03759000 PSALKR8 EQU PSALKSA+32 03760000 PSALKR7 EQU PSALKSA+28 03761000 PSALKR6 EQU PSALKSA+24 03762000 PSALKR5 EQU PSALKSA+20 03763000 PSALKR4 EQU PSALKSA+16 03764000 PSALKR3 EQU PSALKSA+12 03765000 PSALKR2 EQU PSALKSA+8 03766000 PSALKR1 EQU PSALKSA+4 03767000 PSALKR0 EQU PSALKSA 03768000 PSARV023 EQU PSACLHT+52 03769000 PSALOCAL EQU PSACLHT+48 03770000 PSACMSL EQU PSACLHT+44 03771000 PSAOPTL EQU PSACLHT+40 03772000 PSATPACL EQU PSACLHT+36 03773000 PSATPDNL EQU PSACLHT+32 03774000 PSATPNCL EQU PSACLHT+28 03775000 PSAIOSLL EQU PSACLHT+24 03776000 PSAIOSUL EQU PSACLHT+20 03777000 PSAIOSCL EQU PSACLHT+16 03778000 PSAIOSSL EQU PSACLHT+12 03779000 PSASALCL EQU PSACLHT+8 03780000 PSAASML EQU PSACLHT+4 03781000 PSADISPL EQU PSACLHT 03782000 PSASRSA EQU PSA+636 03783000 PSARV050 EQU PSA+634 03784000 PSADSSGO EQU PSA+633 03785000 PSARECUR EQU PSA+632 03786000 PSAHLHIS EQU PSA+628 03787000 PSAIPCSA EQU PSA+624 03788000 @NM00026 EQU PSA+621 03789000 PSAIPCDM EQU PSA+620 03790000 PSAIPCD EQU PSA+616 03791000 @NM00025 EQU PSA+613 03792000 PSAIPCRM EQU PSA+612 03793000 PSAIPCR EQU PSA+608 03794000 PSAMCHEX EQU PSA+600 03795000 PSAMPSW EQU PSA+592 03796000 PSAEXPS2 EQU PSA+584 03797000 PSAEXPS1 EQU PSA+576 03798000 PSAPIREG EQU PSA+572 03799000 PSARSREG EQU PSA+568 03800000 PSAGPREG EQU PSA+556 03801000 PSARV022 EQU PSASUP4 03802000 PSARV021 EQU PSASUP4 03803000 PSARV020 EQU PSASUP4 03804000 PSARV019 EQU PSASUP4 03805000 PSARV018 EQU PSASUP4 03806000 PSARV017 EQU PSASUP4 03807000 PSARV016 EQU PSASUP4 03808000 PSARV015 EQU PSASUP4 03809000 PSARV014 EQU PSASUP3 03810000 PSARV013 EQU PSASUP3 03811000 PSARV012 EQU PSASUP3 03812000 PSARV011 EQU PSASUP3 03813000 PSASPR EQU PSASUP3 03814000 PSAPSREG EQU PSASUP3 03815000 PSAPI2 EQU PSASUP3 03816000 PSAIOSUP EQU PSASUP3 03817000 PSALCR EQU PSASUP2 03818000 PSARTM EQU PSASUP2 03819000 PSAACR EQU PSASUP2 03820000 PSAIPCE2 EQU PSASUP2 03821000 PSAIPCES EQU PSASUP2 03822000 PSAIPCEC EQU PSASUP2 03823000 PSAGTF EQU PSASUP2 03824000 PSAIPCRI EQU PSASUP2 03825000 PSARV063 EQU PSASUP1 03826000 PSATCTL EQU PSASUP1 03827000 PSADISP EQU PSASUP1 03828000 PSALOCK EQU PSASUP1 03829000 PSAPI EQU PSASUP1 03830000 PSAEXT EQU PSASUP1 03831000 PSASVC EQU PSASUP1 03832000 PSAIO EQU PSASUP1 03833000 PSAANEW EQU PSA+544 03834000 PSATOLD EQU PSA+540 03835000 PSATNEW EQU PSA+536 03836000 PSALCCAR EQU PSA+532 03837000 PSALCCAV EQU PSA+528 03838000 PSAPCCAR EQU PSA+524 03839000 PSAPCCAV EQU PSA+520 03840000 PSACPULA EQU PSA+518 03841000 PSACPUPA EQU PSA+516 03842000 PSAPSA EQU PSA+512 03843000 FLCHDEND EQU PSA+512 03844000 FLCCRSAV EQU FLCMCLA+280 03845000 FLCGRSAV EQU FLCMCLA+216 03846000 FLCFPSAV EQU FLCMCLA+184 03847000 FLCFLA EQU FLCMCLA+88 03848000 FLCRGNCD EQU FLCMCLA+84 03849000 FLCFSAA EQU FLCFSA+1 03850000 @NM00024 EQU FLCFSA 03851000 @NM00023 EQU FLCMCLA+72 03852000 FLCMCIC EQU FLCMCLA+64 03853000 @NM00022 EQU FLCMCLA+20 03854000 FLCIOAA EQU FLCIOA+1 03855000 @NM00021 EQU FLCIOA 03856000 @NM00020 EQU FLCMCLA+15 03857000 @NM00019 EQU FLCMCLA+14 03858000 @NM00018 EQU FLCMCLA+12 03859000 FLCLCL EQU FLCMCLA+8 03860000 FLCIOELA EQU FLCIOEL+1 03861000 @NM00017 EQU FLCIOEL 03862000 FLCCHNID EQU FLCMCLA 03863000 @NM00016 EQU PSA+160 03864000 FLCMTRCD EQU PSA+157 03865000 @NM00015 EQU PSA+156 03866000 FLCPERA EQU FLCPER+1 03867000 @NM00014 EQU FLCPER 03868000 @NM00013 EQU PSA+151 03869000 FLCPERCD EQU PSA+150 03870000 FLCMCNUM EQU PSA+149 03871000 @NM00012 EQU PSA+148 03872000 FLCTEAA EQU FLCTEA+1 03873000 @NM00011 EQU FLCTEA 03874000 PSAPIPC EQU PSAPICOD 03875000 PSAPIMC EQU PSAPICOD 03876000 PSAPIPER EQU PSAPICOD 03877000 PSARV049 EQU FLCPICOD 03878000 FLCPILCB EQU FLCPIILC 03879000 @NM00010 EQU FLCPIILC 03880000 @NM00009 EQU PSAEPPSW 03881000 FLCSVCN EQU PSAESPSW+2 03882000 FLCSILCB EQU FLCSVILC 03883000 @NM00008 EQU FLCSVILC 03884000 @NM00007 EQU PSAESPSW 03885000 FLCEICOD EQU PSAEEPSW+2 03886000 PSASPAD EQU PSAEEPSW 03887000 @NM00006 EQU PSA+128 03888000 FLCINPSW EQU PSA+120 03889000 FLCMNPSW EQU PSA+112 03890000 FLCPNPSW EQU PSA+104 03891000 FLCSNPSW EQU PSA+96 03892000 FLCENPSW EQU PSA+88 03893000 FLCTRACE EQU PSA+84 03894000 FLCTIMER EQU PSA+80 03895000 FLCCVT2 EQU PSA+76 03896000 FLCCAW EQU PSA+72 03897000 FLCCSW EQU PSA+64 03898000 FLCIOPSW EQU PSA+56 03899000 FLCMOPSW EQU PSA+48 03900000 FLCPOPSW EQU PSA+40 03901000 FLCSOPSW EQU PSA+32 03902000 FLCEOPSW EQU PSA+24 03903000 @NM00005 EQU FLCICCW2+4 03904000 FLCICCW1 EQU FLCROPSW 03905000 FLCIPPSW EQU FLCRNPSW 03906000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03907000 @RF00250 EQU @RC00245 03908000 @RC00248 EQU @RC00245 03909000 @ENDDATA EQU * 03910000 END ISTAPC22,(C'PLS1851',0701,76323) 03911000