TITLE 'ISTAPC51-DISPATCHER IRB ENTRY PROCEDURE *00001000 ' 00002000 ISTAPC51 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTAPC51 77.126' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * PSTREG=GPR1; /* SAVE PST PTR IN PSTREG-(REG10)*/ 00013000 LR PSTREG,GPR1 0207 00014000 * SAVREG14=REG14; /* SAVE RETURN PTR @Z4M2181*/ 00015000 LR SAVREG14,REG14 0208 00016000 * SAVIQE=REG0; /* SAVE IQE PTR @ZM42181*/ 00017000 LR SAVIQE,REG0 0209 00018000 * GEN(MODESET EXTKEY=ZERO); /* INSURE KEY ZERO @ZA13685*/ 00019000 MODESET EXTKEY=ZERO 00020000 * RFY 0211 00021000 * (REG14, 0211 00022000 * REG0) UNRSTD; 0211 00023000 * 0211 00024000 * /*****************************************************************/ 00025000 * /* */ 00026000 * /* ATTEMPT TO GET AVAIL CRA FROM ATCVT. IF UNSUCCESSFUL, GET ONE */ 00027000 * /* FROM STORAGE MANAGEMENT. */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0212 00031000 * RFY 0212 00032000 * (COMPEVEN, 0212 00033000 * COMPODD, 0212 00034000 * SWAPEVEN, 0212 00035000 * SWAPODD) RSTD; /* @Z40GKF6*/ 00036000 * DO; /* LISATCVT 0213 00037000 * CVTBASE(PAGEABLE,(ATCVTBAS)) */ 00038000 * ATCVTBAS=ATCLCPTR; /* SET UP ATCVT POINTER */ 00039000 L ATCVTBAS,ATCLCPTR 0214 00040000 * END; /* LISATCVT GET ATCVTPTR @Z40GKF6*/ 00041000 * RFY 0216 00042000 * ISTATCVT BASED(ATCVTBAS); /* @Z40GKF6*/ 00043000 * COMPEVEN=ATCCRAQ; /* GET FIRST CRA ON ATCVT QUEUE 00044000 * @Z40GKF6*/ 00045000 L COMPEVEN,ATCCRAQ(,ATCVTBAS) 0217 00046000 * COMPODD=ATCCRACN; /* GET ACTUAL AND RUNING CRA CNT 00047000 * @Z40GKF6*/ 00048000 L COMPODD,ATCCRACN(,ATCVTBAS) 0218 00049000 *LOOP1: /* @ZA18470*/ 00050000 * IF ATCCRAAC>0 /* IS ACTUAL COUNT OF CRA'S > 0 00051000 * @ZA18470*/ 00052000 * THEN 0219 00053000 LOOP1 CLC ATCCRAAC(2,ATCVTBAS),@CH00036 0219 00054000 BNH @RF00219 0219 00055000 * DO; /* YES - SWAP CRA OFF @Z40GKF6*/ 00056000 * SWAPEVEN=COMPEVEN->CRACHAIN;/* NEXT CRA @Z40GKF6*/ 00057000 L SWAPEVEN,CRACHAIN(,COMPEVEN) 0221 00058000 * SWAPODD=COMPODD-1; /* DEC. ACTUAL CT BY 1 @Z40GKF6*/ 00059000 LR SWAPODD,COMPODD 0222 00060000 BCTR SWAPODD,0 0222 00061000 * CDS(COMPEVEN,SWAPEVEN,ATCCRA);/* @Z40GKF6*/ 00062000 CDS COMPEVEN,SWAPEVEN,ATCCRA(ATCVTBAS) 0223 00063000 * BC(NE,LOOP1); /* IF CDS FAILS LOOP @Z40GKF6*/ 00064000 BC 7,LOOP1 0224 00065000 * RFY 0225 00066000 * SWAPODD UNRSTD; 0225 00067000 * 0225 00068000 */*SMSID BUFF(COMPEVEN)TSKID(PSTREG) */ 00069000 * 0226 00070000 * DO; 0226 00071000 * DCL 0227 00072000 * 1 CMZ0009A PTR(31) BASED((COMPEVEN)-8), 0227 00073000 * 2 * BIT(8), 0227 00074000 * 2 CMZ0009 PTR(24); 0227 00075000 * CMZ0009=(PSTREG); 0228 00076000 LR @14,COMPEVEN 0228 00077000 AL @14,@CF02444 0228 00078000 STCM PSTREG,7,CMZ0009-1(@14) 0228 00079000 * END; /* SMSID @Z40GKF6*/ 00080000 * CRAREG=COMPEVEN; /* PREALLOCATED CRA @ZA18470*/ 00081000 LR CRAREG,COMPEVEN 0230 00082000 * RPHREG=ADDR(CRARPH); /* AVAILABLE SET ADDR @ZA18470*/ 00083000 LA RPHREG,CRARPH(,CRAREG) 0231 00084000 * END; /* FOR NEW RPH @ZA18470*/ 00085000 * ELSE /* @Z40GKF6 00086000 * @ZA18470*/ 00087000 *GETSMRPH: 0233 00088000 * DO; /* @ZA18470*/ 00089000 B @RC00219 0233 00090000 @RF00219 DS 0H 0233 00091000 GETSMRPH DS 0H 0234 00092000 * COMPREG=PSTFLGA&PSTSMQR0; /* COMP REG WITH RPH QUED OFF */ 00093000 L COMPREG,PSTFLGA(,PSTREG) 0234 00094000 N COMPREG,@CF00784 0234 00095000 * SWAPREG=COMPREG|PSTSMQR1; /* SET UP TO SWAP ON RPH QUED BIT*/ 00096000 LR SWAPREG,COMPREG 0235 00097000 O SWAPREG,@CF00786 0235 00098000 * CS(COMPREG,SWAPREG,PSTFLGA);/* LOCK SMS RPH VIA CS */ 00099000 CS COMPREG,@06,PSTFLGA(PSTREG) 0236 00100000 * BC(NE,TEST); /* IF FAIL GO FIND OUT WHY */ 00101000 * 0237 00102000 BC 7,TEST 0237 00103000 * /*************************************************************/ 00104000 * /* */ 00105000 * /* IF HERE,EXCLUSIVE CONTROL OF THE SMS RPH HAS BEEN */ 00106000 * /* OBTAINED. SMS CAN NOW BE REQUESTED TO ALLOCATE STORAGE. */ 00107000 * /* */ 00108000 * /*************************************************************/ 00109000 * 0238 00110000 *GETCRA: 0238 00111000 * RPHREG=ADDR(PSTCRRS->CRARPH);/* USE SMS RPH TO REQ STOR */ 00112000 * 0238 00113000 GETCRA L RPHREG,PSTCRRS(,PSTREG) 0238 00114000 LA RPHREG,CRARPH(,RPHREG) 0238 00115000 * /*************************************************************/ 00116000 * /* */ 00117000 * /* REQSTORE CBID(CRA)RPH(RPHREG) */ 00118000 * /* */ 00119000 * /*************************************************************/ 00120000 * 0239 00121000 * DO; 0239 00122000 * 0239 00123000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 00124000 */* END OF ATBUILD */ 00125000 * 0240 00126000 * DCL 0240 00127000 * GPR01F FIXED(31) REG(01); 0240 00128000 * DCL 0241 00129000 * GPR01P PTR(31) REG(01); 0241 00130000 * DCL 0242 00131000 * GPR02F FIXED(31) REG(02); 0242 00132000 * DCL 0243 00133000 * GPR02P PTR(31) REG(02); 0243 00134000 * DCL 0244 00135000 * GPR03F FIXED(31) REG(03); 0244 00136000 * DCL 0245 00137000 * GPR03P PTR(31) REG(03); 0245 00138000 * DCL 0246 00139000 * GPR04F FIXED(31) REG(04); 0246 00140000 * DCL 0247 00141000 * GPR04P PTR(31) REG(04); 0247 00142000 * DCL 0248 00143000 * GPR05F FIXED(31) REG(05); 0248 00144000 * DCL 0249 00145000 * GPR05P PTR(31) REG(05); 0249 00146000 * DCL 0250 00147000 * GPR06F FIXED(31) REG(06); 0250 00148000 * DCL 0251 00149000 * GPR06P PTR(31) REG(06); 0251 00150000 * DCL 0252 00151000 * GPR07F FIXED(31) REG(07); 0252 00152000 * DCL 0253 00153000 * GPR07P PTR(31) REG(07); 0253 00154000 * DCL 0254 00155000 * GPR08F FIXED(31) REG(08); 0254 00156000 * DCL 0255 00157000 * GPR08P PTR(31) REG(08); 0255 00158000 * DCL 0256 00159000 * GPR09F FIXED(31) REG(09); 0256 00160000 * DCL 0257 00161000 * GPR09P PTR(31) REG(09); 0257 00162000 * DCL 0258 00163000 * GPR10F FIXED(31) REG(10); 0258 00164000 * DCL 0259 00165000 * GPR10P PTR(31) REG(10); 0259 00166000 * DCL 0260 00167000 * GPR11F FIXED(31) REG(11); 0260 00168000 * DCL 0261 00169000 * GPR11P PTR(31) REG(11); 0261 00170000 * DCL 0262 00171000 * GPR12F FIXED(31) REG(12); 0262 00172000 * DCL 0263 00173000 * GPR12P PTR(31) REG(12); 0263 00174000 * DCL 0264 00175000 * GPR13F FIXED(31) REG(13); 0264 00176000 * DCL 0265 00177000 * GPR13P PTR(31) REG(13); 0265 00178000 * DCL 0266 00179000 * GPR15F FIXED(31) REG(15); 0266 00180000 * DCL 0267 00181000 * GPR15P PTR(31) REG(15); 0267 00182000 * RFY 0268 00183000 * (GPR02P, 0268 00184000 * GPR03P, 0268 00185000 * GPR04P, 0268 00186000 * GPR15P) RSTD; 0268 00187000 * RFY 0269 00188000 * (GPR01P, 0269 00189000 * GPR13P) RSTD; 0269 00190000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0270 00191000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00192000 * RFY 0271 00193000 * (GPR01P, 0271 00194000 * GPR13P) UNRSTD; 0271 00195000 * DO; /* LISATCVT 0272 00196000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00197000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00198000 L GPR15P,ATCLCPTR 0273 00199000 * END; /* LISATCVT */ 00200000 * GPR02P=GPR15P->ATCBPDA|'80000000'X; 0275 00201000 L GPR02P,ATCBPDA(,GPR15P) 0275 00202000 O GPR02P,@CF00762 0275 00203000 * DCL 0276 00204000 * 1 FMZA0010 FIXED(31) STATIC LOCAL, 0276 00205000 * 2 * FIXED(8) INIT(56), 0276 00206000 * 2 * PTR(24) INIT(0); 0276 00207000 * GPR03F=FMZA0010; 0277 00208000 L GPR03F,FMZA0010 0277 00209000 * GPR04F=23; 0278 00210000 LA GPR04F,23 0278 00211000 * GPR15P=GPR15P->ATCSMRQ; 0279 00212000 L GPR15P,ATCSMRQ(,GPR15P) 0279 00213000 * DCL 0280 00214000 * FMZL0010 BASED(GPR15P) LABEL VALUERANGE(*); 0280 00215000 * CALL FMZL0010; 0281 00216000 BALR @14,@15 0281 00217000 * RFY 0282 00218000 * (GPR13P) RSTD; 0282 00219000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0283 00220000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00221000 * RFY 0284 00222000 * (GPR13P) UNRSTD; 0284 00223000 * RFY 0285 00224000 * (GPR02P, 0285 00225000 * GPR03P, 0285 00226000 * GPR04P, 0285 00227000 * GPR15P) UNRSTD; 0285 00228000 * END; 0286 00229000 * 0286 00230000 * /*************************************************************/ 00231000 * /* */ 00232000 * /* ******** END OF REQSTORE EXPANSION REG15 CONTAINS THE RTN */ 00233000 * /* CODE FROM SMS. IF LESS THAN 8, THE STORAGE HAS BEEN */ 00234000 * /* ALLOCATED. IF EQUAL TO 8,THE REQUEST HAS BEEN QUEUED BY */ 00235000 * /* STORAGE MANAGEMENT BECAUSE STORAGE IS NOT IMMEDIATELY */ 00236000 * /* AVAILABLE. */ 00237000 * /* */ 00238000 * /*************************************************************/ 00239000 * 0287 00240000 * IF RCREG<8 /* CHECK RETURN CODE FROM 0287 00241000 * REQSTORE */ 00242000 * THEN 0287 00243000 C RCREG,@CF00059 0287 00244000 BNL @RF00287 0287 00245000 * DO; /* REQSTORE SUCCESSFUL */ 00246000 * CRAREG=RPHSRPRM; /* PUT ADR OF SMS CRA IN CRAREG */ 00247000 L CRAREG,RPHSRPRM(,RPHREG) 0289 00248000 * COMPREG=PSTFLGA; /* COMP REG FOR CS */ 00249000 L COMPREG,PSTFLGA(,PSTREG) 0290 00250000 *LOOP2: 0291 00251000 * SWAPREG=COMPREG&PSTSMQR0;/* TURN OFF SMS RPH QUED FOR STG*/ 00252000 LOOP2 LR SWAPREG,COMPREG 0291 00253000 N SWAPREG,@CF00784 0291 00254000 * CS(COMPREG,SWAPREG,PSTFLGA);/* USE CS LOGIC */ 00255000 CS COMPREG,@06,PSTFLGA(PSTREG) 0292 00256000 * BC(NE,LOOP2); /* IF FAIL TRY AGAIN */ 00257000 BC 7,LOOP2 0293 00258000 * RPHREG=ADDR(CRARPH); /* SET R1 TO ADDR OF RPH */ 00259000 LA RPHREG,CRARPH(,CRAREG) 0294 00260000 * END; /* END REQSTORE SUCCESSFUL */ 00261000 * ELSE 0296 00262000 * DO; /* WILL LOCK AND USE SMS CRA */ 00263000 B @RC00287 0296 00264000 @RF00287 DS 0H 0297 00265000 * COMPREG=PSTFLGA; /* COMP REG FOR CS */ 00266000 L COMPREG,PSTFLGA(,PSTREG) 0297 00267000 *LOOP3: 0298 00268000 * SWAPREG=COMPREG|PSTSMCU1;/* TURN ON SMS CRA IN USE BIT */ 00269000 LOOP3 LR SWAPREG,COMPREG 0298 00270000 O SWAPREG,@CF00776 0298 00271000 * CS(COMPREG,SWAPREG,PSTFLGA);/* USE CS LOGIC */ 00272000 CS COMPREG,@06,PSTFLGA(PSTREG) 0299 00273000 * BC(NE,LOOP3); /* IF FAIL TRY AGAIN */ 00274000 BC 7,LOOP3 0300 00275000 * CRAREG=PSTCRRS; /* USING SMS CRA */ 00276000 L CRAREG,PSTCRRS(,PSTREG) 0301 00277000 * RPHREG=0; /* SMS RPH IN USE */ 00278000 SLR RPHREG,RPHREG 0302 00279000 * END; /* END - LOCK AND USE SMS CRA */ 00280000 * END; /* END- REQSTORE OR USE SMS CRA */ 00281000 * GOTO CRAINIT; /* HAVE A CRA - GO INITIALIZE */ 00282000 * 0305 00283000 B CRAINIT 0305 00284000 * /*****************************************************************/ 00285000 * /* */ 00286000 * /* IF CS FAILED,BIT PSTSMCR WAS ALREADY ON OR SOMETHING ELSE */ 00287000 * /* CHANGED IN PSTFLGA. THE NEXT INSTRUCTION DETERMINES WHICH OF */ 00288000 * /* THE TWO OCCURED. */ 00289000 * /* */ 00290000 * /*****************************************************************/ 00291000 * 0306 00292000 *TEST: 0306 00293000 * IF COMPREG=SWAPREG /* WAS PSTSMQR BIT THE ONLY DIFF?*/ 00294000 * THEN /* YES */ 00295000 TEST CR COMPREG,SWAPREG 0306 00296000 BNE @RF00306 0306 00297000 * DO; /* GET THE SMS CRA */ 00298000 *LOOP4: 0308 00299000 * SWAPREG=COMPREG|PSTSMCU1; /* TURN ON SMS CRA IN USE 0308 00300000 * @ZM33591*/ 00301000 LOOP4 LR SWAPREG,COMPREG 0308 00302000 O SWAPREG,@CF00776 0308 00303000 * CS(COMPREG,SWAPREG,PSTFLGA);/* USE CS LOGIC */ 00304000 CS COMPREG,@06,PSTFLGA(PSTREG) 0309 00305000 * BC(NE,LOOP4); /* IF FAIL TRY AGAIN */ 00306000 BC 7,LOOP4 0310 00307000 * CRAREG=PSTCRRS; /* USING SMS CRA */ 00308000 L CRAREG,PSTCRRS(,PSTREG) 0311 00309000 * RPHREG=0; /* INDICATE RPH IN USE BY SMS */ 00310000 SLR RPHREG,RPHREG 0312 00311000 * END; /* END - GET THE SMS CRA */ 00312000 * ELSE 0314 00313000 * GOTO GETSMRPH; /* RPH NOT QUED YET */ 00314000 * 0314 00315000 * /*****************************************************************/ 00316000 * /* */ 00317000 * /* INIT CRA */ 00318000 * /* */ 00319000 * /*****************************************************************/ 00320000 * 0315 00321000 *CRAINIT: 0315 00322000 * CRACRR=ADDR(CRAPSS); /* SET PTR TO PSS CRR */ 00323000 CRAINIT LA @14,CRAPSS(,CRAREG) 0315 00324000 ST @14,CRACRR(,CRAREG) 0315 00325000 * CRALKACT=0; /* CLEAR ACTIVE LOCKS */ 00326000 SLR @07,@07 0316 00327000 ST @07,CRALKACT(,CRAREG) 0316 00328000 * CRAFRR=0; /* CLEAR FRR FIELD */ 00329000 * 0317 00330000 ST @07,CRAFRR(,CRAREG) 0317 00331000 * /*****************************************************************/ 00332000 * /* */ 00333000 * /* INITIALIZE APCRR */ 00334000 * /* */ 00335000 * /*****************************************************************/ 00336000 * 0318 00337000 * CRRREG=ADDR(CRAPSS); /* SET UP BASE REG FOR APCRR */ 00338000 LR CRRREG,@14 0318 00339000 * APCPSTA=PSTREG; /* SAVE PST ADDR @ZM42181*/ 00340000 ST PSTREG,APCPSTA(,CRRREG) 0319 00341000 * APCTCBA=SAVIQE->IQETCB; /* GET TCB @ FROM THE IQE 0320 00342000 * @Y30APGA*/ 00343000 L @14,IQETCB(,SAVIQE) 0320 00344000 ST @14,APCTCBA(,CRRREG) 0320 00345000 * APCATFLG=0; /* CLEAR ACTIVE FLAGS */ 00346000 STH @07,APCATFLG(,CRRREG) 0321 00347000 * APC51E=ONCON; /* ISTAPC51 ENTERED */ 00348000 OI APC51E(CRRREG),B'10000000' 0322 00349000 * APCRFLG=0; /* CLEAR RUNNING FLAGS */ 00350000 STH @07,APCRFLG(,CRRREG) 0323 00351000 * APC51R=ONCON; /* ISTAPC51 IS RUNNING */ 00352000 OI APC51R(CRRREG),B'10000000' 0324 00353000 * APCHDRSV=APCHDRSV&&APCHDRSV; /* CLEAR CRR HDR */ 00354000 XC APCHDRSV(16,CRRREG),APCHDRSV(CRRREG) 0325 00355000 * APCCOMF=0; /* CLEAR COMMUNICATION FLAGS */ 00356000 ST @07,APCCOMF(,CRRREG) 0326 00357000 * APCRTRN=SAVREG14; /* SET RETURN ADDR */ 00358000 ST SAVREG14,APCRTRN(,CRRREG) 0327 00359000 * IF RPHREG=0 /* IS RPHREG ZERO */ 00360000 * THEN /* YES */ 00361000 CR RPHREG,@07 0328 00362000 BNE @RF00328 0328 00363000 * APCSMCR=ONCON; /* INDICATE SMS CRA BEING USED */ 00364000 OI APCSMCR(CRRREG),B'00100000' 0329 00365000 * ELSE 0330 00366000 * DO; /* NO */ 00367000 * 0330 00368000 B @RC00328 0330 00369000 @RF00328 DS 0H 0331 00370000 * /*************************************************************/ 00371000 * /* */ 00372000 * /* IF NOT ZERO, WE HAVE EITHER A PRE- */ 00373000 * /* */ 00374000 * /*************************************************************/ 00375000 * 0331 00376000 * RPHCRR=CRAREG; /* ALLOCATED CRA OR ONE FROM 0331 00377000 * REQSTORE. */ 00378000 ST CRAREG,RPHCRR(,RPHREG) 0331 00379000 * END; /* REG 1 POINTS TO THE RPH FOR 0332 00380000 * THIS */ 00381000 * 0332 00382000 * /*****************************************************************/ 00383000 * /* */ 00384000 * /* CRA. COPY ESTAE LIST INTO CRR */ 00385000 * /* */ 00386000 * /*****************************************************************/ 00387000 * 0333 00388000 * APCESTAL=ELIST(1:(ADDR(ENDESTA)-(ADDR(STRTESTA)))); 0333 00389000 @RC00328 MVI APCESTAL+1(CRRREG),C' ' 0333 00390000 MVC APCESTAL+2(70,CRRREG),APCESTAL+1(CRRREG) 0333 00391000 LA @14,ENDESTA 0333 00392000 LA @07,STRTESTA 0333 00393000 SLR @14,@07 0333 00394000 BCTR @14,0 0333 00395000 EX @14,@SM02447 0333 00396000 * DO; /* LISATCVT 0334 00397000 * CVTBASE(PAGEABLE,(ATCVTBAS)) */ 00398000 * ATCVTBAS=ATCLCPTR; /* SET UP ATCVT POINTER */ 00399000 L ATCVTBAS,ATCLCPTR 0335 00400000 * END; /* LISATCVT */ 00401000 * RETRYRN=ATCVTBAS->ATCAP61; /* GET ADR OF ABEND EXIT RTN */ 00402000 L RETRYRN,ATCAP61(,ATCVTBAS) 0337 00403000 * WKREG=RPHREG; /* SAVE CONTENTS OF REG 1 */ 00404000 LR WKREG,RPHREG 0338 00405000 * GPR1=ADDR(APCESTAL); /* GET ADR OF PARM LIST FOR */ 00406000 LA GPR1,APCESTAL(,CRRREG) 0339 00407000 * GENERATE REFS(RETRYRN,CRAREG); 0340 00408000 * /* ESTAE MACRO */ 00409000 ESTAE (RETRYRN),CT,PARAM=(CRAREG),MF=(E,(1)) /* */ 00410000 * RPHREG=WKREG; /* RESTORE REG 1 */ 00411000 LR RPHREG,WKREG 0341 00412000 * APCSSTSK=ONCON; /* SET SYS SERVICE RUNNING */ 00413000 OI APCSSTSK(CRRREG),B'10000000' 0342 00414000 * IF SAVIQE->IQEIRB=IQEIRB /* DETERMINE AND FLAG WHICH 0343 00415000 * @Y30APGA*/ 00416000 * THEN /* IRB IS RUNNING @Y30APGA*/ 00417000 L @14,PSTIQE11(,PSTREG) 0343 00418000 CLC IQEIRB(4,SAVIQE),IQEIRB(@14) 0343 00419000 BNE @RF00343 0343 00420000 * APCIRB1=ONCON; /* IF HERE-RUNNING WITH IRB1 */ 00421000 OI APCIRB1(CRRREG),B'00010000' 0344 00422000 * ELSE /* */ 00423000 * APCIRB2=ONCON; /* IF HERE-RUNNING WITH IRB2 */ 00424000 B @RC00343 0345 00425000 @RF00343 OI APCIRB2(CRRREG),B'00001000' 0345 00426000 * REG15=ATCVTBAS->ATCAP52; /* GO TO ISTAPC52 - NO RETURN */ 00427000 @RC00343 L REG15,ATCAP52(,ATCVTBAS) 0346 00428000 * GOTO APC52; /* EXIT TO ISTAPC52 @Y30APGA*/ 00429000 BR REG15 0347 00430000 * GENERATE CODE DEFS(STRTESTA,ENDESTA); 0348 00431000 * 0348 00432000 DS 0F 00433000 STRTESTA EQU * 00434000 ESTAE ,CT,XCTL=NO,PURGE=NONE,ASYNCH=YES,ESTAR=NO,TERM=YES,MF=L 00435000 ENDESTA EQU * 00436000 */* TPEPILOG */ 00437000 * 0349 00438000 * GEN(PRINT OFF); 0349 00439000 PRINT OFF 00440000 * GEN(PRINT ON); 0350 00441000 * 0350 00442000 PRINT ON 00443000 */* END OF TPEPILOG */ 00444000 * 0351 00445000 * END ISTAPC51 0351 00446000 * 0351 00447000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00448000 */*%INCLUDE SYSLIB (CVT ) */ 00449000 */*%INCLUDE SYSLIB (IHASRB ) */ 00450000 * 0351 00451000 * ; 0351 00452000 @EL00001 DS 0H 0351 00453000 @EF00001 DS 0H 0351 00454000 @ER00001 BR @14 0351 00455000 @DATA DS 0H 00456000 @CH00036 DC H'0' 00457000 @SM02447 MVC APCESTAL(0,CRRREG),ELIST 00458000 @DATD DSECT 00459000 DS 0F 00460000 ISTAPC51 CSECT 00461000 DS 0F 00462000 @CF00059 DC F'8' 00463000 @CF02444 DC F'-7' 00464000 @CF00762 DC XL4'80000000' 00465000 @CF00776 DC XL4'04000000' 00466000 @CF00784 DC XL4'F7FFFFFF' 00467000 @CF00786 DC XL4'08000000' 00468000 @DATD DSECT 00469000 DS 0D 00470000 CVTPTR DS A 00471000 SRBPTR DS A 00472000 LCPBPTR DS A 00473000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00474000 @ENDDATD EQU * 00475000 ISTAPC51 CSECT 00476000 DS 0F 00477000 @SIZDATD DC AL1(0) 00478000 DC AL3(@ENDDATD-@DATD) 00479000 DS 0D 00480000 FMZA0010 DS FL4 00481000 ORG FMZA0010 00482000 @NM00037 DC AL1(56) 00483000 @NM00038 DC AL3(0) 00484000 ORG FMZA0010+4 00485000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00486000 @01 EQU 01 00487000 @02 EQU 02 00488000 @03 EQU 03 00489000 @04 EQU 04 00490000 @05 EQU 05 00491000 @06 EQU 06 00492000 @07 EQU 07 00493000 @08 EQU 08 00494000 @09 EQU 09 00495000 @10 EQU 10 00496000 @11 EQU 11 00497000 @12 EQU 12 00498000 @13 EQU 13 00499000 @14 EQU 14 00500000 @15 EQU 15 00501000 RPHPTR EQU @01 00502000 REG0 EQU @00 00503000 GPR1 EQU @01 00504000 RPHREG EQU @01 00505000 COMPREG EQU @13 00506000 COMPEVEN EQU @02 00507000 COMPODD EQU @03 00508000 SWAPREG EQU @06 00509000 SWAPEVEN EQU @06 00510000 SWAPODD EQU @07 00511000 RETRYRN EQU @06 00512000 CRAREG EQU @04 00513000 SAVIQE EQU @05 00514000 WKREG EQU @08 00515000 ATCVTBAS EQU @09 00516000 PSTREG EQU @10 00517000 SAVREG14 EQU @11 00518000 CRRREG EQU @13 00519000 GPR13 EQU @13 00520000 REG14 EQU @14 00521000 RCREG EQU @15 00522000 REG15 EQU @15 00523000 GPR01P EQU @01 00524000 GPR02P EQU @02 00525000 GPR03F EQU @03 00526000 GPR03P EQU @03 00527000 GPR04F EQU @04 00528000 GPR04P EQU @04 00529000 GPR13P EQU @13 00530000 GPR15P EQU @15 00531000 GPR01F EQU @01 00532000 GPR02F EQU @02 00533000 GPR05F EQU @05 00534000 GPR05P EQU @05 00535000 GPR06F EQU @06 00536000 GPR06P EQU @06 00537000 GPR07F EQU @07 00538000 GPR07P EQU @07 00539000 GPR08F EQU @08 00540000 GPR08P EQU @08 00541000 GPR09F EQU @09 00542000 GPR09P EQU @09 00543000 GPR10F EQU @10 00544000 GPR10P EQU @10 00545000 GPR11F EQU @11 00546000 GPR11P EQU @11 00547000 GPR12F EQU @12 00548000 GPR12P EQU @12 00549000 GPR13F EQU @13 00550000 GPR15F EQU @15 00551000 ATCLCPTR EQU 1032 00552000 CVTMAP EQU 0 00553000 CVTDAR EQU CVTMAP+72 00554000 CVTFLGS1 EQU CVTDAR 00555000 CVTDCB EQU CVTMAP+116 00556000 CVTIERLC EQU CVTMAP+144 00557000 CVTOPTA EQU CVTMAP+182 00558000 CVTOPTB EQU CVTMAP+183 00559000 CVTGTF EQU CVTMAP+236 00560000 CVTGTFST EQU CVTGTF 00561000 CVTGTFS EQU CVTGTFST 00562000 CVTSTATE EQU CVTGTFST 00563000 CVTTMODE EQU CVTGTFST 00564000 CVTFORM EQU CVTGTFST 00565000 CVTAQAVT EQU CVTMAP+240 00566000 CVTTCMFG EQU CVTAQAVT 00567000 CVTVOLM2 EQU CVTMAP+244 00568000 CVTTATA EQU CVTVOLM2 00569000 CVTTSKS EQU CVTTATA 00570000 CVTVOLF2 EQU CVTTSKS 00571000 CVTTAT EQU CVTTATA+1 00572000 CVTATER EQU CVTMAP+248 00573000 CVTEXT1 EQU CVTMAP+252 00574000 CVTPURG EQU CVTMAP+260 00575000 CVTQMSG EQU CVTMAP+268 00576000 CVTDMSR EQU CVTMAP+272 00577000 CVTRSV37 EQU CVTDMSR 00578000 CVTDMSRF EQU CVTRSV37 00579000 CVTERPV EQU CVTMAP+316 00580000 CVTINTLA EQU CVTMAP+320 00581000 CVTAPF EQU CVTMAP+324 00582000 CVTEXT2 EQU CVTMAP+328 00583000 CVTHJES EQU CVTMAP+332 00584000 CVTPGSIA EQU CVTMAP+348 00585000 CVTA1F1 EQU CVTMAP+356 00586000 CVTSYSK EQU CVTMAP+357 00587000 CVTVOLM1 EQU CVTMAP+380 00588000 CVTVOLF1 EQU CVTVOLM1 00589000 CVTATMCT EQU CVTMAP+388 00590000 CVTXTNT1 EQU 0 00591000 CVTXTNT2 EQU 0 00592000 CVTDSSV EQU CVTXTNT2 00593000 CVTFLGBT EQU CVTXTNT2+5 00594000 CVTQID EQU CVTXTNT2+24 00595000 CVTSHS EQU CVTXTNT2+40 00596000 CVTRV400 EQU CVTXTNT2+52 00597000 CVTRV409 EQU CVTXTNT2+53 00598000 CVTATCVT EQU CVTXTNT2+64 00599000 CVTRV429 EQU CVTXTNT2+84 00600000 CVTRV438 EQU CVTXTNT2+85 00601000 CVTRV457 EQU CVTXTNT2+112 00602000 CVTRV466 EQU CVTXTNT2+113 00603000 CVTFIX EQU 0 00604000 CVTRELNO EQU CVTFIX+252 00605000 SRBSECT EQU 0 00606000 SRBFLC EQU SRBSECT+12 00607000 ISTAVT EQU 0 00608000 ISTAS49 EQU ISTAVT+4 00609000 ISTPAB EQU 0 00610000 PABWQCHN EQU ISTPAB 00611000 PABWEQA EQU PABWQCHN 00612000 PABCHAIN EQU PABWQCHN+4 00613000 PABRPHFG EQU ISTPAB+12 00614000 PABFLAGS EQU PABRPHFG 00615000 PABERLCK EQU PABFLAGS 00616000 PABERRLK EQU PABERLCK 00617000 ISTLOK EQU 0 00618000 LOKCHN EQU ISTLOK+1 00619000 LOKCHNG EQU LOKCHN 00620000 @NM00006 EQU LOKCHNG+2 00621000 ISTDYPAB EQU 0 00622000 ISTRPH EQU 0 00623000 RPHCNTL EQU ISTRPH 00624000 RPHFLAGS EQU RPHCNTL+2 00625000 RPHAPTYP EQU RPHFLAGS 00626000 RPHFSTLC EQU RPHFLAGS 00627000 RPHFLGB EQU RPHCNTL+3 00628000 RPHRPHA EQU ISTRPH+4 00629000 RPHTSKID EQU ISTRPH+8 00630000 RPHRESMA EQU ISTRPH+16 00631000 RPHWPFLG EQU RPHRESMA 00632000 RPHWEA EQU ISTRPH+24 00633000 RPHCSPA EQU RPHWEA 00634000 RPHSRPRM EQU ISTRPH+28 00635000 RPHCRR EQU ISTRPH+32 00636000 RPHPABQA EQU ISTRPH+36 00637000 RPHWORK EQU ISTRPH+40 00638000 RPHSAVE1 EQU RPHWORK 00639000 RPHSBITS EQU RPHSAVE1+1 00640000 ISTATCVT EQU 0 00641000 ATCCOM EQU ISTATCVT 00642000 ATCSTAT EQU ATCCOM 00643000 ATCSTAT1 EQU ATCSTAT 00644000 ATCSTFLG EQU ATCSTAT+1 00645000 ATCPOFLG EQU ATCSTAT+2 00646000 ATCSTAT4 EQU ATCSTAT+3 00647000 ATCBPDA EQU ATCCOM+128 00648000 ATCIOTRC EQU ATCCOM+140 00649000 ATCTHTRC EQU ATCIOTRC 00650000 ATCSMRQ EQU ATCCOM+180 00651000 ATCCSMR EQU ISTATCVT+296 00652000 ATCSHRFG EQU ISTATCVT+316 00653000 ATCHPGM EQU ISTATCVT+384 00654000 ATCVLCNT EQU ISTATCVT+772 00655000 ATCRNO EQU ISTATCVT+788 00656000 ATCSOPD EQU ISTATCVT+792 00657000 ATCSIPD EQU ISTATCVT+800 00658000 ATCSECST EQU ISTATCVT+812 00659000 ATCSTAT2 EQU ISTATCVT+818 00660000 ATCVTBAM EQU ISTATCVT+908 00661000 @NM00017 EQU ATCVTBAM+3 00662000 ATCAOSM EQU ISTATCVT+912 00663000 ATCGSRBQ EQU ATCAOSM+4 00664000 ATCGSRBG EQU ATCGSRBQ 00665000 ATCAP52 EQU ATCAOSM+36 00666000 ATCAP61 EQU ATCAOSM+56 00667000 ATCICAPP EQU ATCAOSM+100 00668000 ATCLDAPP EQU ATCAOSM+120 00669000 ATCDAPVT EQU ATCAOSM+140 00670000 ATCCRA EQU ATCAOSM+280 00671000 ATCCRAQ EQU ATCCRA 00672000 ATCCRACN EQU ATCCRA+4 00673000 ATCCRAAC EQU ATCCRACN+2 00674000 ATCSRB EQU ATCAOSM+288 00675000 ATCSRBCN EQU ATCSRB+4 00676000 ATCCRPL EQU ATCAOSM+296 00677000 ATCRPLCN EQU ATCCRPL+4 00678000 ATCVTFLG EQU ATCAOSM+392 00679000 ATCZFLAG EQU ATCAOSM+588 00680000 ISTPST EQU 0 00681000 PSTRQFGA EQU ISTPST+8 00682000 PSTRQUE EQU PSTRQFGA 00683000 PSTFLGA EQU PSTRQFGA+4 00684000 PSTABINP EQU PSTFLGA 00685000 PSTIQE11 EQU ISTPST+40 00686000 PSTCRRS EQU ISTPST+60 00687000 PSTDMPS EQU ISTPST+132 00688000 ISTRIA EQU 0 00689000 RIAABRGS EQU ISTRIA+16 00690000 RIAFLGS EQU ISTRIA+80 00691000 RIAFLG1 EQU RIAFLGS 00692000 RIAFLG2 EQU RIAFLGS+1 00693000 ISTLCCW EQU 0 00694000 LCCWOP EQU ISTLCCW 00695000 LCCWRWOP EQU LCCWOP 00696000 LCCWCTL EQU LCCWRWOP 00697000 LCCWFLAG EQU ISTLCCW+1 00698000 LCCWLSI EQU LCCWFLAG 00699000 ISTLCPB EQU 0 00700000 LCPREQTG EQU ISTLCPB+2 00701000 LCPFLAGS EQU LCPREQTG 00702000 LCPZF001 EQU LCPFLAGS 00703000 LCPZRT02 EQU LCPZF001 00704000 LCPZF002 EQU LCPFLAGS 00705000 LCPZRT03 EQU LCPZF002 00706000 LCPZF003 EQU LCPFLAGS 00707000 LCPZRT04 EQU LCPZF003 00708000 LCPZF004 EQU LCPFLAGS 00709000 LCPZRT05 EQU LCPZF004 00710000 LCPZRT06 EQU LCPFLAGS 00711000 LCPZRT07 EQU LCPFLAGS 00712000 LCPMNRCD EQU LCPREQTG+1 00713000 LCPZRT08 EQU LCPMNRCD 00714000 LCPZRT09 EQU LCPMNRCD 00715000 LCPCHAIN EQU ISTLCPB+4 00716000 LCPCHAI1 EQU LCPCHAIN 00717000 LCPRUCNT EQU ISTLCPB+8 00718000 LCPFLAG2 EQU ISTLCPB+9 00719000 LCPTLBPI EQU LCPFLAG2 00720000 LCPFID0 EQU LCPFLAG2 00721000 LCPSEQ EQU ISTLCPB+10 00722000 LCPCID EQU ISTLCPB+16 00723000 LCPFDBA EQU ISTLCPB+24 00724000 LCPFLG1 EQU ISTLCPB+37 00725000 LCPFLCCW EQU ISTLCPB+40 00726000 LCPLCCW EQU ISTLCPB+48 00727000 LCPPABA EQU LCPLCCW+4 00728000 LCPRPHA EQU LCPPABA 00729000 ISTZSAVE EQU 0 00730000 ZSAZSVBC EQU ISTZSAVE 00731000 ZSAZSVMS EQU ZSAZSVBC 00732000 ISTPFCRR EQU 0 00733000 PFCCRR EQU ISTPFCRR 00734000 PFCCRRID EQU PFCCRR 00735000 PFCCRRLN EQU PFCCRR+2 00736000 PFCHDR EQU ISTPFCRR+4 00737000 PFCCRRO EQU PFCHDR 00738000 PFCFRRO EQU PFCHDR+4 00739000 ISTCFCRR EQU 0 00740000 CFCAUDIT EQU ISTCFCRR 00741000 CFCNTRD EQU CFCAUDIT 00742000 CFCCRT EQU CFCAUDIT+1 00743000 ISTZCRR EQU 0 00744000 ZCRCRR EQU ISTZCRR 00745000 ZCRFLGS1 EQU ISTZCRR+12 00746000 ZCRFLGS2 EQU ISTZCRR+13 00747000 ZCRSWFLD EQU ISTZCRR+14 00748000 ZCRENDSH EQU ZCRSWFLD 00749000 ZCRNDLCP EQU ZCRSWFLD 00750000 ZCRRESET EQU ZCRSWFLD 00751000 ZCRFLGS3 EQU ISTZCRR+15 00752000 ZCRGENSW EQU ISTZCRR+16 00753000 ZCRPFLGS EQU ISTZCRR+17 00754000 ZCRIBPR EQU ISTZCRR+18 00755000 ZCRSCPSW EQU ISTZCRR+19 00756000 ZCRPARMS EQU ISTZCRR+24 00757000 ZCRFBPTR EQU ZCRPARMS 00758000 ZCRDFRDA EQU ZCRPARMS+10 00759000 ZCRPCOD1 EQU ZCRPARMS+12 00760000 ZCRPLSBF EQU ZCRPCOD1 00761000 ZCRPCOD2 EQU ZCRPARMS+13 00762000 ZCRSVRTN EQU ISTZCRR+56 00763000 ZCRWKARA EQU ISTZCRR+156 00764000 ZCRCIDSV EQU ISTZCRR+192 00765000 ZCRAUDIT EQU ISTZCRR+440 00766000 ZCRENTER EQU ZCRAUDIT+5 00767000 ZCRLCPB EQU ISTZCRR+480 00768000 ZCRRHRU EQU ZCRLCPB 00769000 ISTASCRR EQU 0 00770000 ASCFLAGS EQU ISTASCRR+16 00771000 ASCFLG1 EQU ASCFLAGS 00772000 ASCFLG2 EQU ASCFLAGS+2 00773000 ASCFLG3 EQU ASCFLAGS+4 00774000 ASCUSRGS EQU ISTASCRR+28 00775000 ISTAPCRR EQU 0 00776000 APCHDRSV EQU ISTAPCRR 00777000 APCATFLG EQU ISTAPCRR+16 00778000 APC51E EQU APCATFLG 00779000 APCRFLG EQU ISTAPCRR+18 00780000 APC51R EQU APCRFLG 00781000 APCPSTA EQU ISTAPCRR+20 00782000 APCTCBA EQU ISTAPCRR+24 00783000 APCRTRN EQU ISTAPCRR+28 00784000 APCSAVE EQU ISTAPCRR+44 00785000 APCESTAL EQU APCSAVE 00786000 APCCOMF EQU ISTAPCRR+116 00787000 APCCOMF1 EQU APCCOMF 00788000 APCSSTSK EQU APCCOMF1 00789000 APCSMCR EQU APCCOMF1 00790000 APCIRB1 EQU APCCOMF1 00791000 APCIRB2 EQU APCCOMF1 00792000 APC31FLG EQU ISTAPCRR+132 00793000 APC52FLG EQU ISTAPCRR+133 00794000 APC53FLG EQU ISTAPCRR+134 00795000 APC54FLG EQU ISTAPCRR+135 00796000 APC57FLG EQU ISTAPCRR+136 00797000 ISTCRA EQU 0 00798000 CRABASIC EQU ISTCRA 00799000 CRAHDR EQU CRABASIC 00800000 CRACRR EQU CRAHDR 00801000 CRAFRR EQU CRAHDR+4 00802000 CRALKACT EQU CRABASIC+8 00803000 CRARPH EQU ISTCRA+52 00804000 CRAPSS EQU ISTCRA+160 00805000 CRASVC EQU ISTCRA+848 00806000 CRABUFA EQU CRASVC+68 00807000 CRACHAIN EQU ISTCRA+928 00808000 ISTMPST EQU 0 00809000 MPSRSV07 EQU ISTMPST+4 00810000 MPSRQUE EQU ISTMPST+8 00811000 MPSFLGA EQU ISTMPST+12 00812000 MPSCRA EQU ISTMPST+24 00813000 MPSCRACT EQU MPSCRA+4 00814000 MPSSRB EQU ISTMPST+32 00815000 MPSSRBCT EQU MPSSRB+4 00816000 MPSCRPL EQU ISTMPST+40 00817000 MPSRPLCT EQU MPSCRPL+4 00818000 ISTIQE EQU 0 00819000 IQEIRB EQU ISTIQE+8 00820000 IQETCB EQU ISTIQE+12 00821000 APC52 EQU 0 00822000 CMZ0009A EQU 0 00823000 CMZ0009 EQU CMZ0009A+1 00824000 FMZL0010 EQU 0 00825000 CVTS01 EQU CVTPGSIA 00826000 CVTLPDIA EQU CVTS01+12 00827000 CVTDIRST EQU CVTLPDIA 00828000 CVTSLIDA EQU CVTS01+24 00829000 CVTCTLFG EQU CVTS01+50 00830000 CVTRV210 EQU CVTS01+424 00831000 CVTRV219 EQU CVTS01+425 00832000 CVTRV228 EQU CVTS01+426 00833000 CVTRV237 EQU CVTS01+427 00834000 CVTMFRTR EQU CVTS01+452 00835000 CVTRV262 EQU CVTS01+468 00836000 CVTRV271 EQU CVTS01+469 00837000 CVTRV280 EQU CVTS01+470 00838000 CVTRV289 EQU CVTS01+471 00839000 CVTGSDA EQU CVTS01+600 00840000 LCPZTIE EQU LCPCID 00841000 LCPZSNAM EQU LCPZTIE+8 00842000 ELIST EQU STRTESTA 00843000 SRB EQU SRBSECT 00844000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00845000 LCPZTRV4 EQU LCPZSNAM+4 00846000 LCPZTRV1 EQU LCPZSNAM 00847000 LCPZSNA EQU LCPZTIE+4 00848000 LCPZFMCA EQU LCPZTIE 00849000 CVTRV628 EQU CVTS01+728 00850000 CVTRV627 EQU CVTS01+724 00851000 CVTRV626 EQU CVTS01+720 00852000 CVTRV625 EQU CVTS01+716 00853000 CVTRV624 EQU CVTS01+712 00854000 CVTRV623 EQU CVTS01+708 00855000 CVTRV622 EQU CVTS01+704 00856000 CVTRV621 EQU CVTS01+700 00857000 CVTRV620 EQU CVTS01+696 00858000 CVTRV619 EQU CVTS01+692 00859000 CVTRV618 EQU CVTS01+688 00860000 CVTRV617 EQU CVTS01+684 00861000 CVTRV616 EQU CVTS01+680 00862000 CVTRV615 EQU CVTS01+676 00863000 CVTRV614 EQU CVTS01+672 00864000 CVTRV613 EQU CVTS01+668 00865000 CVTTCASP EQU CVTS01+664 00866000 CVT0PT03 EQU CVTS01+660 00867000 CVT0PT0E EQU CVTS01+656 00868000 CVTIRM EQU CVTS01+652 00869000 CVTCGK EQU CVTS01+648 00870000 CVTRV607 EQU CVTS01+644 00871000 CVTRV606 EQU CVTS01+640 00872000 CVTRV605 EQU CVTS01+636 00873000 CVTRV604 EQU CVTS01+632 00874000 CVTEFF02 EQU CVTS01+628 00875000 CVTCBBR EQU CVTS01+624 00876000 CVTSSCR EQU CVTS01+620 00877000 CVTEVENT EQU CVTS01+616 00878000 CVTCRCA EQU CVTS01+612 00879000 CVTTPIO EQU CVTS01+608 00880000 CVTADV EQU CVTS01+604 00881000 CVTGSDAB EQU CVTGSDA 00882000 CVTQV3 EQU CVTS01+596 00883000 CVTQV2 EQU CVTS01+592 00884000 CVTQV1 EQU CVTS01+588 00885000 CVTRPT EQU CVTS01+584 00886000 CVTSSRB EQU CVTS01+580 00887000 CVTCSDRL EQU CVTS01+576 00888000 CVTEXP1 EQU CVTS01+572 00889000 CVTRMPMT EQU CVTS01+568 00890000 CVTRMPTT EQU CVTS01+564 00891000 CVTVPSA EQU CVTS01+560 00892000 CVTVSTOP EQU CVTS01+556 00893000 CVTGTFR8 EQU CVTS01+552 00894000 CVTQUIT EQU CVTS01+548 00895000 CVTVACR EQU CVTS01+544 00896000 CVTWTCB EQU CVTS01+540 00897000 CVTSTPRS EQU CVTS01+536 00898000 CVT0PT02 EQU CVTS01+532 00899000 CVTDARCM EQU CVTS01+528 00900000 CVTIRECM EQU CVTS01+524 00901000 CVTJRECM EQU CVTS01+520 00902000 CVTVEMS0 EQU CVTS01+516 00903000 CVTSPFRR EQU CVTS01+512 00904000 CVTRLSTG EQU CVTS01+508 00905000 CVT0TC0A EQU CVTS01+504 00906000 CVTGMBR EQU CVTS01+500 00907000 CVTLFRM EQU CVTS01+496 00908000 CVTRMBR EQU CVTS01+492 00909000 CVTVIOP EQU CVTS01+488 00910000 CVTRV307 EQU CVTS01+486 00911000 CVTRV306 EQU CVTS01+484 00912000 CVTRV305 EQU CVTS01+482 00913000 CVTRV304 EQU CVTS01+480 00914000 CVTRV303 EQU CVTS01+478 00915000 CVTRV302 EQU CVTS01+476 00916000 CVTTRCA EQU CVTS01+472 00917000 CVTRV297 EQU CVTRV289 00918000 CVTRV296 EQU CVTRV289 00919000 CVTRV295 EQU CVTRV289 00920000 CVTRV294 EQU CVTRV289 00921000 CVTRV293 EQU CVTRV289 00922000 CVTRV292 EQU CVTRV289 00923000 CVTRV291 EQU CVTRV289 00924000 CVTRV290 EQU CVTRV289 00925000 CVTRV288 EQU CVTRV280 00926000 CVTRV287 EQU CVTRV280 00927000 CVTRV286 EQU CVTRV280 00928000 CVTRV285 EQU CVTRV280 00929000 CVTRV284 EQU CVTRV280 00930000 CVTRV283 EQU CVTRV280 00931000 CVTRV282 EQU CVTRV280 00932000 CVTRV281 EQU CVTRV280 00933000 CVTRV279 EQU CVTRV271 00934000 CVTRV278 EQU CVTRV271 00935000 CVTRV277 EQU CVTRV271 00936000 CVTRV276 EQU CVTRV271 00937000 CVTRV275 EQU CVTRV271 00938000 CVTRV274 EQU CVTRV271 00939000 CVTRV273 EQU CVTRV271 00940000 CVTRV272 EQU CVTRV271 00941000 CVTRV270 EQU CVTRV262 00942000 CVTRV269 EQU CVTRV262 00943000 CVTRV268 EQU CVTRV262 00944000 CVTRV267 EQU CVTRV262 00945000 CVTRV266 EQU CVTRV262 00946000 CVTRV265 EQU CVTRV262 00947000 CVTRV264 EQU CVTRV262 00948000 CVTRV263 EQU CVTRV262 00949000 CVTVFP EQU CVTS01+464 00950000 CVTVSI EQU CVTS01+460 00951000 CVTVPSIB EQU CVTS01+456 00952000 CVTMFACT EQU CVTMFRTR 00953000 CVTMFCTL EQU CVTS01+448 00954000 CVTPVBP EQU CVTS01+444 00955000 CVTPWI EQU CVTS01+440 00956000 CVTRV254 EQU CVTS01+438 00957000 CVTRV253 EQU CVTS01+436 00958000 CVTRV252 EQU CVTS01+434 00959000 CVTRV251 EQU CVTS01+433 00960000 CVTRV250 EQU CVTS01+432 00961000 CVTRV249 EQU CVTS01+431 00962000 CVTRV248 EQU CVTS01+430 00963000 CVTRV247 EQU CVTS01+429 00964000 CVTRV246 EQU CVTS01+428 00965000 CVTRV245 EQU CVTRV237 00966000 CVTRV244 EQU CVTRV237 00967000 CVTRV243 EQU CVTRV237 00968000 CVTRV242 EQU CVTRV237 00969000 CVTRV241 EQU CVTRV237 00970000 CVTRV240 EQU CVTRV237 00971000 CVTRV239 EQU CVTRV237 00972000 CVTRV238 EQU CVTRV237 00973000 CVTRV236 EQU CVTRV228 00974000 CVTRV235 EQU CVTRV228 00975000 CVTRV234 EQU CVTRV228 00976000 CVTRV233 EQU CVTRV228 00977000 CVTRV232 EQU CVTRV228 00978000 CVTRV231 EQU CVTRV228 00979000 CVTRV230 EQU CVTRV228 00980000 CVTRV229 EQU CVTRV228 00981000 CVTRV227 EQU CVTRV219 00982000 CVTRV226 EQU CVTRV219 00983000 CVTRV225 EQU CVTRV219 00984000 CVTRV224 EQU CVTRV219 00985000 CVTRV223 EQU CVTRV219 00986000 CVTRV222 EQU CVTRV219 00987000 CVTRV221 EQU CVTRV219 00988000 CVTRV220 EQU CVTRV219 00989000 CVTRV218 EQU CVTRV210 00990000 CVTRV217 EQU CVTRV210 00991000 CVTRV216 EQU CVTRV210 00992000 CVTRV215 EQU CVTRV210 00993000 CVTRV214 EQU CVTRV210 00994000 CVTRV213 EQU CVTRV210 00995000 CVTRV212 EQU CVTRV210 00996000 CVTRV211 EQU CVTRV210 00997000 CVTLCCAT EQU CVTS01+420 00998000 CVTPCCAT EQU CVTS01+416 00999000 CVTIPCRP EQU CVTS01+412 01000000 CVTIPCRI EQU CVTS01+408 01001000 CVTIPCDS EQU CVTS01+404 01002000 CVTAIDVT EQU CVTS01+400 01003000 CVTSSAP EQU CVTS01+396 01004000 CVTEHCIR EQU CVTS01+392 01005000 CVTEHDEF EQU CVTS01+388 01006000 CVTDAIR EQU CVTS01+384 01007000 CVTPERFM EQU CVTS01+380 01008000 CVT044R2 EQU CVTS01+376 01009000 CVTFETCH EQU CVTS01+372 01010000 CVTRSTWD EQU CVTS01+368 01011000 CVTSPOST EQU CVTS01+364 01012000 CVTIOBP EQU CVTS01+360 01013000 CVTASMVT EQU CVTS01+356 01014000 CVTRECRQ EQU CVTS01+352 01015000 CVTWSAC EQU CVTS01+348 01016000 CVTRV149 EQU CVTS01+344 01017000 CVTWSAL EQU CVTS01+340 01018000 CVTSPSA EQU CVTS01+336 01019000 CVTGLMN EQU CVTS01+332 01020000 CVTVEAC0 EQU CVTS01+328 01021000 CVT062R1 EQU CVTS01+324 01022000 CVTRPOST EQU CVTS01+320 01023000 CVTDQIQE EQU CVTS01+316 01024000 CVTCSD EQU CVTS01+312 01025000 CVTLKRMA EQU CVTS01+308 01026000 CVTRSPIE EQU CVTS01+304 01027000 CVTRENQ EQU CVTS01+300 01028000 CVTLQCB EQU CVTS01+296 01029000 CVTFQCB EQU CVTS01+292 01030000 CVTQCS01 EQU CVTS01+288 01031000 CVTAPFT EQU CVTS01+284 01032000 CVTPARRL EQU CVTS01+280 01033000 CVTVWAIT EQU CVTS01+276 01034000 CVTGSPL EQU CVTS01+272 01035000 CVTLSMQ EQU CVTS01+268 01036000 CVTGSMQ EQU CVTS01+264 01037000 CVTEXPRO EQU CVTS01+260 01038000 CVTOPCTP EQU CVTS01+256 01039000 CVTSIC EQU CVTS01+252 01040000 CVTTPIOS EQU CVTS01+248 01041000 CVTRTMS EQU CVTS01+244 01042000 CVTSDBF EQU CVTS01+240 01043000 CVTSCBP EQU CVTS01+236 01044000 CVTSDMP EQU CVTS01+232 01045000 CVTSV60 EQU CVTS01+228 01046000 CVTRTMCT EQU CVTS01+224 01047000 CVTASCBL EQU CVTS01+220 01048000 CVTASCBH EQU CVTS01+216 01049000 CVTGDA EQU CVTS01+212 01050000 CVTASVT EQU CVTS01+208 01051000 CVTVVMDI EQU CVTS01+204 01052000 CVTAQTOP EQU CVTS01+200 01053000 CVTIOSCS EQU CVTS01+196 01054000 CVTSDRM EQU CVTS01+192 01055000 CVTOPTE EQU CVTS01+188 01056000 CVTSTXU EQU CVTS01+184 01057000 CVTQUIS EQU CVTS01+180 01058000 CVTPARS EQU CVTS01+176 01059000 CVTS1EE EQU CVTS01+172 01060000 CVTFRAS EQU CVTS01+168 01061000 CVTQSAS EQU CVTS01+164 01062000 CVTCRAS EQU CVTS01+160 01063000 CVTCRMN EQU CVTS01+156 01064000 CVTDELCP EQU CVTS01+152 01065000 CVTFRECL EQU CVTS01+148 01066000 CVTGETCL EQU CVTS01+144 01067000 CVTBLDCP EQU CVTS01+140 01068000 CVTAUTHL EQU CVTS01+136 01069000 CVTSCAN EQU CVTS01+132 01070000 CVTRV144 EQU CVTS01+130 01071000 CVTMAXMP EQU CVTS01+128 01072000 CVTSTCK EQU CVTS01+124 01073000 CVTRV139 EQU CVTS01+123 01074000 CVTDSSAC EQU CVTS01+122 01075000 CVTRV513 EQU CVTS01+121 01076000 CVTIOSPL EQU CVTS01+120 01077000 CVTPTGT EQU CVTS01+116 01078000 CVTCSPIE EQU CVTS01+112 01079000 CVTSMFEX EQU CVTS01+108 01080000 CVTOLT0A EQU CVTS01+104 01081000 CVTSRBRT EQU CVTS01+100 01082000 CVTPUTL EQU CVTS01+96 01083000 CVTASCRL EQU CVTS01+92 01084000 CVTASCRF EQU CVTS01+88 01085000 CVTRV326 EQU CVTS01+84 01086000 CVTRV325 EQU CVTS01+80 01087000 CVTRV324 EQU CVTS01+76 01088000 CVT0VL01 EQU CVTS01+72 01089000 CVTSHRVM EQU CVTS01+68 01090000 CVTRV332 EQU CVTS01+64 01091000 CVTTAS EQU CVTS01+60 01092000 CVTRSCN EQU CVTS01+56 01093000 CVTTRAC2 EQU CVTS01+54 01094000 CVTTRACE EQU CVTS01+52 01095000 CVTAPG EQU CVTS01+51 01096000 CVTSDTRC EQU CVTCTLFG 01097000 CVTGTRCE EQU CVTCTLFG 01098000 CVTNOMP EQU CVTCTLFG 01099000 CVTRSV79 EQU CVTCTLFG 01100000 CVTDSTAT EQU CVTCTLFG 01101000 CVTRSV78 EQU CVTCTLFG 01102000 CVTRV333 EQU CVTCTLFG 01103000 CVTRV323 EQU CVTCTLFG 01104000 CVTSPVLK EQU CVTS01+49 01105000 CVTRSV77 EQU CVTS01+48 01106000 CVTRV331 EQU CVTS01+44 01107000 CVTRV330 EQU CVTS01+40 01108000 CVTRV329 EQU CVTS01+36 01109000 CVTRV328 EQU CVTS01+32 01110000 CVTRV322 EQU CVTS01+28 01111000 CVTSLID EQU CVTSLIDA+1 01112000 CVTSYLK EQU CVTSLIDA 01113000 CVTRV321 EQU CVTS01+20 01114000 CVTRV320 EQU CVTS01+16 01115000 CVTLPDIR EQU CVTLPDIA+1 01116000 CVTRSV69 EQU CVTDIRST 01117000 CVTRSV68 EQU CVTDIRST 01118000 CVTRSV67 EQU CVTDIRST 01119000 CVTRSV66 EQU CVTDIRST 01120000 CVTRSV65 EQU CVTDIRST 01121000 CVTRSV64 EQU CVTDIRST 01122000 CVTRSV63 EQU CVTDIRST 01123000 CVTDICOM EQU CVTDIRST 01124000 CVTPVTP EQU CVTS01+8 01125000 CVTLPDSR EQU CVTS01+4 01126000 CVTGETL EQU CVTS01 01127000 @NM00036 EQU CMZ0009A 01128000 IQEPARAM EQU ISTIQE+4 01129000 @NM00035 EQU ISTIQE 01130000 MPSSRB1 EQU ISTMPST+172 01131000 MPSSAVE EQU ISTMPST+140 01132000 MPSMQLBP EQU ISTMPST+136 01133000 MPSSYSRT EQU ISTMPST+132 01134000 MPSQEL EQU ISTMPST+128 01135000 MPSDBTBL EQU ISTMPST+124 01136000 MPSASCB EQU ISTMPST+120 01137000 MPSTPPAB EQU ISTMPST+88 01138000 MPSSMPAB EQU ISTMPST+56 01139000 MPSSMRPH EQU ISTMPST+52 01140000 MPSSRB55 EQU ISTMPST+48 01141000 MPSRPLAC EQU MPSRPLCT+2 01142000 MPSRPLRC EQU MPSRPLCT 01143000 MPSCRPLQ EQU MPSCRPL 01144000 MPSSRBAC EQU MPSSRBCT+2 01145000 MPSSRBRC EQU MPSSRBCT 01146000 MPSSRBQ EQU MPSSRB 01147000 MPSCRAAC EQU MPSCRACT+2 01148000 MPSCRARC EQU MPSCRACT 01149000 MPSCRAQ EQU MPSCRA 01150000 MPSMPSTP EQU ISTMPST+20 01151000 MPSPSTCT EQU ISTMPST+16 01152000 MPSASID EQU MPSFLGA+2 01153000 MPSRSV02 EQU MPSFLGA+1 01154000 MPSPSTAB EQU MPSFLGA 01155000 MPSRSV01 EQU MPSFLGA 01156000 MPSTPBU EQU MPSFLGA 01157000 MPMEMTRM EQU MPSFLGA 01158000 MPSAUTH EQU MPSFLGA 01159000 MPSCRAO EQU MPSFLGA 01160000 MPSSRBO EQU MPSFLGA 01161000 MPSRQUEG EQU MPSRQUE 01162000 MPSTSOIW EQU MPSRSV07 01163000 MPSID EQU ISTMPST 01164000 CRARSV02 EQU ISTCRA+924 01165000 CRARSV01 EQU ISTCRA+920 01166000 CRABFTBA EQU CRABUFA 01167000 CRAMASK EQU CRASVC+64 01168000 CRAHSIZ EQU CRASVC+60 01169000 CRAASCRR EQU CRASVC 01170000 CRAPROCR EQU ISTCRA+312 01171000 CRALAPTR EQU CRABASIC+48 01172000 CRAL9PTR EQU CRABASIC+44 01173000 CRAL8PTR EQU CRABASIC+40 01174000 CRAL7PTR EQU CRABASIC+36 01175000 CRAL6PTR EQU CRABASIC+32 01176000 CRAL5PTR EQU CRABASIC+28 01177000 CRAL4PTR EQU CRABASIC+24 01178000 CRAL3PTR EQU CRABASIC+20 01179000 CRAL2PTR EQU CRABASIC+16 01180000 CRAL1PTR EQU CRABASIC+12 01181000 CRALEV01 EQU CRALKACT+3 01182000 CRALEV02 EQU CRALKACT+3 01183000 CRALEV03 EQU CRALKACT+3 01184000 CRALEV04 EQU CRALKACT+3 01185000 CRALEV05 EQU CRALKACT+3 01186000 CRALEV06 EQU CRALKACT+3 01187000 CRALEV07 EQU CRALKACT+3 01188000 CRALEV08 EQU CRALKACT+3 01189000 CRALEV09 EQU CRALKACT+2 01190000 CRALEV10 EQU CRALKACT+2 01191000 CRALEV11 EQU CRALKACT+2 01192000 CRALEV12 EQU CRALKACT+2 01193000 CRALEV13 EQU CRALKACT+2 01194000 CRALEV14 EQU CRALKACT+2 01195000 CRALEV15 EQU CRALKACT+2 01196000 CRALEV16 EQU CRALKACT+2 01197000 CRALEV17 EQU CRALKACT+1 01198000 CRALEV18 EQU CRALKACT+1 01199000 CRALEV19 EQU CRALKACT+1 01200000 CRALEV20 EQU CRALKACT+1 01201000 CRALEV21 EQU CRALKACT+1 01202000 CRALEV22 EQU CRALKACT+1 01203000 CRALEV23 EQU CRALKACT+1 01204000 CRALEV24 EQU CRALKACT+1 01205000 CRALEV25 EQU CRALKACT 01206000 CRALEV26 EQU CRALKACT 01207000 CRALEV27 EQU CRALKACT 01208000 CRALEV28 EQU CRALKACT 01209000 CRALEV29 EQU CRALKACT 01210000 CRALEV30 EQU CRALKACT 01211000 CRALEV31 EQU CRALKACT 01212000 CRALEV32 EQU CRALKACT 01213000 @NM00034 EQU ISTAPCRR+137 01214000 @NM00033 EQU APC57FLG 01215000 APCNREL EQU APC57FLG 01216000 APCRECRA EQU APC57FLG 01217000 @NM00032 EQU APC54FLG 01218000 APCRLST EQU APC54FLG 01219000 APCPR153 EQU APC53FLG 01220000 @NM00031 EQU APC52FLG 01221000 APCWKF EQU APC52FLG 01222000 APCNWF EQU APC52FLG 01223000 APCRDQ EQU APC52FLG 01224000 APCQENQ EQU APC52FLG 01225000 APCSMSR EQU APC52FLG 01226000 APCCKRQ EQU APC52FLG 01227000 @NM00030 EQU APC31FLG 01228000 APCSORT EQU APC31FLG 01229000 APCRESCH EQU APC31FLG 01230000 APCTPXIT EQU APC31FLG 01231000 APCSWTWD EQU ISTAPCRR+128 01232000 APCSAV2 EQU ISTAPCRR+124 01233000 APCSAV1 EQU ISTAPCRR+120 01234000 APCRETCD EQU APCCOMF+2 01235000 @NM00029 EQU APCCOMF1+1 01236000 APCZLBER EQU APCCOMF1 01237000 APCEXIT EQU APCCOMF1 01238000 APCRELR EQU APCCOMF1 01239000 APCUETSK EQU APCCOMF1 01240000 APCFRRPM EQU ISTAPCRR+40 01241000 APCQWFO EQU ISTAPCRR+36 01242000 APCPABSV EQU ISTAPCRR+32 01243000 @NM00028 EQU APCRFLG+1 01244000 APC31R EQU APCRFLG 01245000 APC58R EQU APCRFLG 01246000 APC57R EQU APCRFLG 01247000 APC56R EQU APCRFLG 01248000 APC54R EQU APCRFLG 01249000 APC53R EQU APCRFLG 01250000 APC52R EQU APCRFLG 01251000 @NM00027 EQU APCATFLG+1 01252000 APC31E EQU APCATFLG 01253000 APC58E EQU APCATFLG 01254000 APC57E EQU APCATFLG 01255000 APC56E EQU APCATFLG 01256000 APC54E EQU APCATFLG 01257000 APC53E EQU APCATFLG 01258000 APC52E EQU APCATFLG 01259000 ASCPSREG EQU ISTASCRR+44 01260000 ASCUSR01 EQU ASCUSRGS+12 01261000 ASCUSR00 EQU ASCUSRGS+8 01262000 ASCUSR15 EQU ASCUSRGS+4 01263000 ASCUSR14 EQU ASCUSRGS 01264000 ASCETRYA EQU ISTASCRR+24 01265000 ASCKEY EQU ISTASCRR+23 01266000 ASCAUDIT EQU ASCFLG3 01267000 ASCFBDUD EQU ASCFLG3 01268000 ASCLLKF EQU ASCFLG3 01269000 ASCKEYF EQU ASCFLG3 01270000 ASCFBDAL EQU ASCFLG3 01271000 ASCFSRGT EQU ASCFLG3 01272000 ASCICR EQU ASCFLG2 01273000 ASCFSRIC EQU ASCFLG2 01274000 ASCFBDIC EQU ASCFLG2 01275000 ASCFBAIC EQU ASCFLG2 01276000 ASCPASTR EQU ASCFLG1 01277000 ASCFSR EQU ASCFLG1 01278000 ASCFBD EQU ASCFLG1 01279000 ASCFBA EQU ASCFLG1 01280000 ASCPFCRR EQU ISTASCRR 01281000 ZCRRU EQU ZCRRHRU+3 01282000 ZCRRH EQU ZCRRHRU 01283000 ZCRWORDA EQU ISTZCRR+477 01284000 ZCRCMNRC EQU ISTZCRR+476 01285000 ZCRRSV97 EQU ZCRENTER+18 01286000 ZCREIC2B EQU ZCRENTER+18 01287000 ZCREAC2B EQU ZCRENTER+18 01288000 ZCRELCAB EQU ZCRENTER+18 01289000 ZCREDCMF EQU ZCRENTER+18 01290000 ZCREBCIF EQU ZCRENTER+18 01291000 ZCREICSG EQU ZCRENTER+18 01292000 ZCREDCK0 EQU ZCRENTER+18 01293000 ZCRECFY0 EQU ZCRENTER+17 01294000 ZCREKCCB EQU ZCRENTER+17 01295000 ZCREDCNB EQU ZCRENTER+17 01296000 ZCREICOE EQU ZCRENTER+17 01297000 ZCREBCNB EQU ZCRENTER+17 01298000 ZCREBC0L EQU ZCRENTER+17 01299000 ZCREBCAL EQU ZCRENTER+17 01300000 ZCREDCQR EQU ZCRENTER+17 01301000 ZCREDCPR EQU ZCRENTER+16 01302000 ZCREBCSB EQU ZCRENTER+16 01303000 ZCREAC1R EQU ZCRENTER+16 01304000 ZCRECCCI EQU ZCRENTER+16 01305000 ZCRECCAI EQU ZCRENTER+16 01306000 ZCRECCBI EQU ZCRENTER+16 01307000 ZCREBCAR EQU ZCRENTER+16 01308000 ZCREBCDR EQU ZCRENTER+16 01309000 ZCREBCBR EQU ZCRENTER+15 01310000 ZCREDCXR EQU ZCRENTER+15 01311000 ZCREDCWB EQU ZCRENTER+15 01312000 ZCREDCWR EQU ZCRENTER+15 01313000 ZCREKCCN EQU ZCRENTER+15 01314000 ZCREKCBN EQU ZCRENTER+15 01315000 ZCREKCBB EQU ZCRENTER+15 01316000 ZCREJC0B EQU ZCRENTER+15 01317000 ZCREJCDB EQU ZCRENTER+14 01318000 ZCREJCCB EQU ZCRENTER+14 01319000 ZCREJCBB EQU ZCRENTER+14 01320000 ZCREJCAB EQU ZCRENTER+14 01321000 ZCREIC1B EQU ZCRENTER+14 01322000 ZCREIC0B EQU ZCRENTER+14 01323000 ZCREICX0 EQU ZCRENTER+14 01324000 ZCREICWB EQU ZCRENTER+14 01325000 ZCREICVB EQU ZCRENTER+13 01326000 ZCREICUB EQU ZCRENTER+13 01327000 ZCREICTB EQU ZCRENTER+13 01328000 ZCREICSC EQU ZCRENTER+13 01329000 ZCREICSB EQU ZCRENTER+13 01330000 ZCREICRB EQU ZCRENTER+13 01331000 ZCREICQB EQU ZCRENTER+13 01332000 ZCREICQA EQU ZCRENTER+13 01333000 ZCREICOB EQU ZCRENTER+12 01334000 ZCREICOA EQU ZCRENTER+12 01335000 ZCREICNB EQU ZCRENTER+12 01336000 ZCREICNA EQU ZCRENTER+12 01337000 ZCREICMB EQU ZCRENTER+12 01338000 ZCREICLB EQU ZCRENTER+12 01339000 ZCREICKG EQU ZCRENTER+12 01340000 ZCREICKE EQU ZCRENTER+12 01341000 ZCREICKB EQU ZCRENTER+11 01342000 ZCREICJB EQU ZCRENTER+11 01343000 ZCREICID EQU ZCRENTER+11 01344000 ZCREICIB EQU ZCRENTER+11 01345000 ZCREICHB EQU ZCRENTER+11 01346000 ZCREICGB EQU ZCRENTER+11 01347000 ZCREICEB EQU ZCRENTER+11 01348000 ZCREICDB EQU ZCRENTER+11 01349000 ZCREICCI EQU ZCRENTER+10 01350000 ZCREICCB EQU ZCRENTER+10 01351000 ZCREICBI EQU ZCRENTER+10 01352000 ZCREICBB EQU ZCRENTER+10 01353000 ZCREICAB EQU ZCRENTER+10 01354000 ZCREICAA EQU ZCRENTER+10 01355000 ZCREHCAN EQU ZCRENTER+10 01356000 ZCREGC0B EQU ZCRENTER+10 01357000 ZCREGC0A EQU ZCRENTER+9 01358000 ZCREGCLA EQU ZCRENTER+9 01359000 ZCREGCEB EQU ZCRENTER+9 01360000 ZCREGCDB EQU ZCRENTER+9 01361000 @NM00026 EQU ZCRENTER+9 01362000 ZCREGCBB EQU ZCRENTER+9 01363000 ZCREGCAB EQU ZCRENTER+9 01364000 ZCREFCEB EQU ZCRENTER+9 01365000 ZCREFCEA EQU ZCRENTER+8 01366000 ZCREECTA EQU ZCRENTER+8 01367000 ZCREECEA EQU ZCRENTER+8 01368000 ZCREECDA EQU ZCRENTER+8 01369000 ZCREECCB EQU ZCRENTER+8 01370000 ZCREECCA EQU ZCRENTER+8 01371000 ZCREECBB EQU ZCRENTER+8 01372000 ZCREECBA EQU ZCRENTER+8 01373000 ZCREDCMB EQU ZCRENTER+7 01374000 ZCREDCL0 EQU ZCRENTER+7 01375000 ZCREDCKB EQU ZCRENTER+7 01376000 ZCREDCKA EQU ZCRENTER+7 01377000 ZCREDCJ0 EQU ZCRENTER+7 01378000 ZCREDCI0 EQU ZCRENTER+7 01379000 ZCREDCH0 EQU ZCRENTER+7 01380000 ZCREDCF0 EQU ZCRENTER+7 01381000 ZCREDCE0 EQU ZCRENTER+6 01382000 ZCREDCD0 EQU ZCRENTER+6 01383000 ZCREDCC0 EQU ZCRENTER+6 01384000 ZCREDCB0 EQU ZCRENTER+6 01385000 ZCREDCA0 EQU ZCRENTER+6 01386000 ZCRECC2B EQU ZCRENTER+6 01387000 ZCRECC1B EQU ZCRENTER+6 01388000 ZCRECC1A EQU ZCRENTER+6 01389000 ZCRECC0B EQU ZCRENTER+5 01390000 ZCRECC0A EQU ZCRENTER+5 01391000 ZCREBC0B EQU ZCRENTER+5 01392000 ZCREBC0A EQU ZCRENTER+5 01393000 ZCREBCZ0 EQU ZCRENTER+5 01394000 ZCREBCY0 EQU ZCRENTER+5 01395000 ZCREBCX0 EQU ZCRENTER+5 01396000 ZCREBCXA EQU ZCRENTER+5 01397000 ZCREBCSC EQU ZCRENTER+4 01398000 ZCREBCRB EQU ZCRENTER+4 01399000 ZCREBCRA EQU ZCRENTER+4 01400000 ZCREBCQB EQU ZCRENTER+4 01401000 ZCREBCPB EQU ZCRENTER+4 01402000 ZCREBCOB EQU ZCRENTER+4 01403000 ZCREBCNE EQU ZCRENTER+4 01404000 ZCREBCND EQU ZCRENTER+4 01405000 ZCREBCMB EQU ZCRENTER+3 01406000 ZCREBCLB EQU ZCRENTER+3 01407000 ZCREBCLA EQU ZCRENTER+3 01408000 ZCREBCKB EQU ZCRENTER+3 01409000 ZCREBCKA EQU ZCRENTER+3 01410000 ZCREBCJB EQU ZCRENTER+3 01411000 ZCREBCJA EQU ZCRENTER+3 01412000 ZCREBCID EQU ZCRENTER+3 01413000 ZCREBCIB EQU ZCRENTER+2 01414000 ZCREBCIA EQU ZCRENTER+2 01415000 ZCREBCHB EQU ZCRENTER+2 01416000 ZCREBCHA EQU ZCRENTER+2 01417000 ZCREBCGB EQU ZCRENTER+2 01418000 ZCREBCGA EQU ZCRENTER+2 01419000 ZCREBCFB EQU ZCRENTER+2 01420000 ZCREBCFA EQU ZCRENTER+2 01421000 ZCREBCEB EQU ZCRENTER+1 01422000 ZCREBCDI EQU ZCRENTER+1 01423000 ZCREBCCB EQU ZCRENTER+1 01424000 ZCREBCBI EQU ZCRENTER+1 01425000 ZCREBCBB EQU ZCRENTER+1 01426000 ZCREBCBA EQU ZCRENTER+1 01427000 ZCREBCAM EQU ZCRENTER+1 01428000 ZCREBCAI EQU ZCRENTER+1 01429000 ZCREBCAG EQU ZCRENTER 01430000 ZCREBCAE EQU ZCRENTER 01431000 ZCREBCAB EQU ZCRENTER 01432000 ZCREBCAA EQU ZCRENTER 01433000 ZCREAC1B EQU ZCRENTER 01434000 ZCREAC0B EQU ZCRENTER 01435000 ZCREAC0A EQU ZCRENTER 01436000 ZCREAC1A EQU ZCRENTER 01437000 ZCRTNAME EQU ZCRAUDIT+1 01438000 ZCRTID EQU ZCRAUDIT 01439000 ZCRREMIC EQU ISTZCRR+436 01440000 ZCRSAVEZ EQU ISTZCRR+196 01441000 ZCRDAFSV EQU ZCRCIDSV+2 01442000 ZCRSAFSV EQU ZCRCIDSV 01443000 ZCRR13SV EQU ISTZCRR+188 01444000 ZCRR2SV EQU ISTZCRR+184 01445000 ZCROPCDE EQU ISTZCRR+183 01446000 ZCRPRMTC EQU ISTZCRR+182 01447000 ZCRRCDSV EQU ISTZCRR+181 01448000 ZCRAWQSW EQU ISTZCRR+180 01449000 ZCRTOPQ EQU ISTZCRR+180 01450000 ZCRLSTFB EQU ISTZCRR+180 01451000 ZCRXSCHD EQU ISTZCRR+180 01452000 ZCRNXTEL EQU ISTZCRR+180 01453000 ZCRSCANQ EQU ISTZCRR+180 01454000 ZCRMOREL EQU ISTZCRR+180 01455000 ZCRFBPRC EQU ISTZCRR+180 01456000 ZCRFSBSV EQU ISTZCRR+176 01457000 ZCRSVWK5 EQU ZCRWKARA+16 01458000 ZCRSVWK4 EQU ZCRWKARA+12 01459000 ZCRSVWK3 EQU ZCRWKARA+8 01460000 ZCRSVWK2 EQU ZCRWKARA+4 01461000 ZCRSVWK1 EQU ZCRWKARA 01462000 ZCRSVF25 EQU ZCRSVRTN+96 01463000 ZCRSVF24 EQU ZCRSVRTN+92 01464000 ZCRSVF23 EQU ZCRSVRTN+88 01465000 ZCRSVF22 EQU ZCRSVRTN+84 01466000 ZCRSVF21 EQU ZCRSVRTN+80 01467000 ZCRSVF20 EQU ZCRSVRTN+76 01468000 ZCRSVF19 EQU ZCRSVRTN+72 01469000 ZCRSVF18 EQU ZCRSVRTN+68 01470000 ZCRSVF17 EQU ZCRSVRTN+64 01471000 ZCRSVF16 EQU ZCRSVRTN+60 01472000 ZCRSVF15 EQU ZCRSVRTN+56 01473000 ZCRSVF14 EQU ZCRSVRTN+52 01474000 ZCRSVF13 EQU ZCRSVRTN+48 01475000 ZCRSVF12 EQU ZCRSVRTN+44 01476000 ZCRSVF11 EQU ZCRSVRTN+40 01477000 ZCRSVF10 EQU ZCRSVRTN+36 01478000 ZCRSVF9 EQU ZCRSVRTN+32 01479000 ZCRSVF8 EQU ZCRSVRTN+28 01480000 ZCRSVF7 EQU ZCRSVRTN+24 01481000 ZCRSVF6 EQU ZCRSVRTN+20 01482000 ZCRSVF5 EQU ZCRSVRTN+16 01483000 ZCRSVF4 EQU ZCRSVRTN+12 01484000 ZCRSVF3 EQU ZCRSVRTN+8 01485000 ZCRSVF2 EQU ZCRSVRTN+4 01486000 ZCRSVF1 EQU ZCRSVRTN 01487000 ZCRPVZB EQU ISTZCRR+52 01488000 ZCRZLB EQU ISTZCRR+48 01489000 ZCRBFPTR EQU ISTZCRR+44 01490000 ZCRCCWA EQU ISTZCRR+40 01491000 ZCRPSW EQU ZCRPARMS+15 01492000 ZCRPCHAR EQU ZCRPARMS+14 01493000 ZCRPRES2 EQU ZCRPCOD2 01494000 ZCRPMFGF EQU ZCRPCOD2 01495000 ZCRPFHDR EQU ZCRPCOD2 01496000 ZCRPPG2 EQU ZCRPCOD2 01497000 ZCRPRES EQU ZCRPCOD1 01498000 ZCRPCFTX EQU ZCRPCOD1 01499000 ZCRPBUF EQU ZCRPCOD1 01500000 ZCRPLSCB EQU ZCRPCOD1 01501000 ZCRPLSBQ EQU ZCRPLSBF 01502000 ZCRPFSB EQU ZCRPCOD1 01503000 ZCRPLNG EQU ZCRPCOD1 01504000 ZCRPPG EQU ZCRPCOD1 01505000 ZCRDTODA EQU ZCRDFRDA 01506000 ZCRMLNG EQU ZCRPARMS+8 01507000 ZCRTBPTR EQU ZCRPARMS+4 01508000 ZCRCBPTR EQU ZCRFBPTR 01509000 ZCRCRLCP EQU ISTZCRR+20 01510000 @NM00025 EQU ZCRSCPSW 01511000 ZCRSKIPT EQU ZCRSCPSW 01512000 ZCRFSBWE EQU ZCRSCPSW 01513000 ZCRPRCMP EQU ZCRSCPSW 01514000 ZCRLREQ EQU ZCRSCPSW 01515000 ZCRRJLCP EQU ZCRSCPSW 01516000 ZCRTPINV EQU ZCRSCPSW 01517000 ZCRTPEX EQU ZCRSCPSW 01518000 @NM00024 EQU ZCRIBPR 01519000 ZCR3270R EQU ZCRIBPR 01520000 ZCR3270 EQU ZCRIBPR 01521000 ZCRLCPFD EQU ZCRIBPR 01522000 ZCRLCPFR EQU ZCRIBPR 01523000 ZCRRELK EQU ZCRIBPR 01524000 ZCRERR EQU ZCRIBPR 01525000 ZCRNOBUF EQU ZCRIBPR 01526000 @NM00023 EQU ZCRPFLGS 01527000 ZCRQAHED EQU ZCRPFLGS 01528000 ZCRF1RES EQU ZCRGENSW 01529000 ZCRBRIS EQU ZCRGENSW 01530000 ZCRCLRBD EQU ZCRGENSW 01531000 ZCREXRES EQU ZCRGENSW 01532000 ZCRLCSYN EQU ZCRGENSW 01533000 ZCRRT06 EQU ZCRGENSW 01534000 ZCRTSW2 EQU ZCRGENSW 01535000 ZCRTSW1 EQU ZCRGENSW 01536000 ZCRINLCP EQU ZCRFLGS3 01537000 ZCRWRPTR EQU ZCRFLGS3 01538000 ZCRNOFRE EQU ZCRFLGS3 01539000 ZCREDRIV EQU ZCRFLGS3 01540000 ZCRDISC EQU ZCRFLGS3 01541000 ZCRTPDIS EQU ZCRFLGS3 01542000 ZCRTPCON EQU ZCRFLGS3 01543000 ZCRTIC EQU ZCRFLGS3 01544000 ZCRCNLXL EQU ZCRRESET 01545000 ZCRENDAN EQU ZCRSWFLD 01546000 ZCRENDXL EQU ZCRSWFLD 01547000 ZCRENDX EQU ZCRSWFLD 01548000 ZCROB1 EQU ZCRNDLCP 01549000 ZCRENDPR EQU ZCRSWFLD 01550000 ZCREXTYP EQU ZCRSWFLD 01551000 ZCRSLCP EQU ZCRENDSH 01552000 ZCRIF0E3 EQU ZCRFLGS2 01553000 ZCRIF0E2 EQU ZCRFLGS2 01554000 ZCRIF0E1 EQU ZCRFLGS2 01555000 ZCROB EQU ZCRFLGS2 01556000 ZCRFMSED EQU ZCRFLGS2 01557000 ZCRSHEDI EQU ZCRFLGS2 01558000 ZCRLOCAL EQU ZCRFLGS2 01559000 ZCRFEXIT EQU ZCRFLGS1 01560000 ZCRUNSOL EQU ZCRFLGS1 01561000 ZCRENDLP EQU ZCRFLGS1 01562000 ZCRNRMEX EQU ZCRFLGS1 01563000 ZCRWAIT EQU ZCRFLGS1 01564000 ZCRDEQSW EQU ZCRFLGS1 01565000 ZCRQUESW EQU ZCRFLGS1 01566000 ZCREXSW EQU ZCRFLGS1 01567000 ZCRFRRA EQU ISTZCRR+8 01568000 ZCRCHAIN EQU ISTZCRR+4 01569000 ZCRFLAG EQU ZCRCRR+3 01570000 ZCRLEN EQU ZCRCRR+1 01571000 ZCRID EQU ZCRCRR 01572000 CCFRSVD1 EQU CFCCRT 01573000 CCFCR2 EQU CFCCRT 01574000 CCFCRP EQU CFCCRT 01575000 CCFCR1 EQU CFCCRT 01576000 CCFCS2 EQU CFCCRT 01577000 CCFCS1 EQU CFCCRT 01578000 NCFRSVD EQU CFCNTRD 01579000 NCFCR2 EQU CFCNTRD 01580000 NCFCRP EQU CFCNTRD 01581000 NCFCR1 EQU CFCNTRD 01582000 NCFCS2 EQU CFCNTRD 01583000 NCFCS1 EQU CFCNTRD 01584000 PFCRSV01 EQU ISTPFCRR+13 01585000 PFCFTA EQU ISTPFCRR+12 01586000 CRRFRR EQU PFCFRRO 01587000 CRRCHAIN EQU PFCCRRO 01588000 CRRLEN EQU PFCCRRLN 01589000 PFCRSV10 EQU PFCCRR+1 01590000 CRRID EQU PFCCRRID 01591000 ZSAZTRAC EQU ISTZSAVE+36 01592000 ZSAZSVVR EQU ISTZSAVE+12 01593000 ZSAZSVRR EQU ISTZSAVE+8 01594000 ZSAZSVFC EQU ISTZSAVE+4 01595000 ZSAZACTV EQU ZSAZSVMS 01596000 LCPFTYPE EQU LCPRPHA 01597000 LCPRSTQH EQU LCPLCCW 01598000 LCPCLREP EQU ISTLCPB+44 01599000 LCPUBFSB EQU LCPFLCCW 01600000 LCPRSV77 EQU ISTLCPB+39 01601000 LCPLCCWC EQU ISTLCPB+38 01602000 LCPRSV78 EQU LCPFLG1 01603000 LCPTRANS EQU LCPFLG1 01604000 LCPSTLB EQU LCPFLG1 01605000 LCPREDRV EQU LCPFLG1 01606000 LCPDIRPT EQU LCPFLG1 01607000 LCPINTER EQU LCPFLG1 01608000 LCPRESET EQU LCPFLG1 01609000 LCPSTYPE EQU ISTLCPB+36 01610000 LCPFSNCH EQU ISTLCPB+34 01611000 LCPFOSN EQU ISTLCPB+32 01612000 LCPTLBAD EQU ISTLCPB+28 01613000 LCPFDB2 EQU LCPFDBA+1 01614000 LCPFDB1 EQU LCPFDBA 01615000 LCPNXLCW EQU ISTLCPB+20 01616000 LCPDAF EQU LCPCID+2 01617000 LCPSAF EQU LCPCID 01618000 LCPLCCW1 EQU ISTLCPB+12 01619000 LCPRRCNT EQU LCPSEQ+1 01620000 LCPRRCCT EQU LCPSEQ 01621000 LCPATOP EQU LCPFLAG2 01622000 LCPFREE EQU LCPFLAG2 01623000 LCPDSTAT EQU LCPFLAG2 01624000 LCPEXRES EQU LCPFID0 01625000 LCPZRIMM EQU LCPTLBPI 01626000 LCPRSTRT EQU LCPFLAG2 01627000 LCPASYN EQU LCPFLAG2 01628000 LCPPRFLG EQU LCPFLAG2 01629000 LCPZMIRC EQU LCPRUCNT 01630000 LCPCHAI2 EQU LCPCHAIN+1 01631000 LCPCHNG EQU LCPCHAI1 01632000 LCPZRT0B EQU LCPMNRCD 01633000 LCPZRT0A EQU LCPMNRCD 01634000 LCPZRTL9 EQU LCPZRT09 01635000 LCPZRTL8 EQU LCPZRT08 01636000 LCPZRTL7 EQU LCPZRT07 01637000 LCPZRTL6 EQU LCPZRT06 01638000 LCPZRTL5 EQU LCPZRT05 01639000 LCPZRTL4 EQU LCPZRT04 01640000 LCPZRTL3 EQU LCPZRT03 01641000 LCPZRTL2 EQU LCPZRT02 01642000 LCPZRT01 EQU LCPFLAGS 01643000 LCPZRT00 EQU LCPFLAGS 01644000 LCPLNGTH EQU ISTLCPB+1 01645000 LCPTYPE EQU ISTLCPB 01646000 LCCWDATA EQU ISTLCCW+4 01647000 LCCWCNT EQU ISTLCCW+2 01648000 LCCWACI EQU LCCWFLAG 01649000 LCCWRFI EQU LCCWFLAG 01650000 LCCWPER EQU LCCWLSI 01651000 LCCWIDAT EQU LCCWFLAG 01652000 LCCWNTVC EQU LCCWFLAG 01653000 LCCWCKPT EQU LCCWFLAG 01654000 LCCWCC EQU LCCWFLAG 01655000 LCCWCD EQU LCCWFLAG 01656000 LCCWTYPE EQU LCCWCTL 01657000 LCCWMODE EQU LCCWCTL 01658000 LCCWSOP EQU LCCWRWOP 01659000 @NM00022 EQU LCCWRWOP 01660000 LCCWSD EQU LCCWOP 01661000 LCCWSI EQU LCCWOP 01662000 RIARSV03 EQU RIAFLGS+2 01663000 RIARSV02 EQU RIAFLG2 01664000 RIABR15 EQU RIAFLG2 01665000 RIARSPCC EQU RIAFLG2 01666000 RIARTPXT EQU RIAFLG2 01667000 RIACONT EQU RIAFLG2 01668000 RIAFABN EQU RIAFLG2 01669000 RIARSV01 EQU RIAFLG1 01670000 RIACTIVE EQU RIAFLG1 01671000 RIACTL EQU RIAFLG1 01672000 RIAABR15 EQU RIAABRGS+60 01673000 RIAABR14 EQU RIAABRGS+56 01674000 RIAABR13 EQU RIAABRGS+52 01675000 RIAABR12 EQU RIAABRGS+48 01676000 RIAABR11 EQU RIAABRGS+44 01677000 RIAABR10 EQU RIAABRGS+40 01678000 RIAABR09 EQU RIAABRGS+36 01679000 RIAABR08 EQU RIAABRGS+32 01680000 RIAABR07 EQU RIAABRGS+28 01681000 RIAABR06 EQU RIAABRGS+24 01682000 RIAABR05 EQU RIAABRGS+20 01683000 RIAABR04 EQU RIAABRGS+16 01684000 RIAABR03 EQU RIAABRGS+12 01685000 RIAABR02 EQU RIAABRGS+8 01686000 RIAABR01 EQU RIAABRGS+4 01687000 RIAABR00 EQU RIAABRGS 01688000 RIARSV04 EQU ISTRIA+14 01689000 RIAABPSW EQU ISTRIA+4 01690000 RIAABCD EQU ISTRIA 01691000 PSTDRDYQ EQU PSTDMPS+1 01692000 @NM00021 EQU PSTDMPS 01693000 PSTDGATE EQU PSTDMPS 01694000 PSTDEBP EQU ISTPST+128 01695000 PSTSAVE EQU ISTPST+96 01696000 PSTSMDYP EQU ISTPST+64 01697000 PSTCRR1 EQU ISTPST+56 01698000 PSTIQE22 EQU ISTPST+52 01699000 PSTIQE21 EQU ISTPST+48 01700000 PSTIQE12 EQU ISTPST+44 01701000 PSTUEQ EQU ISTPST+36 01702000 PSTNSSQ EQU ISTPST+32 01703000 PSTPSSQ EQU ISTPST+28 01704000 PSTACBCT EQU ISTPST+24 01705000 PSTMPSTP EQU ISTPST+20 01706000 PSTTCBA EQU ISTPST+16 01707000 PSTRSV08 EQU PSTFLGA+1 01708000 PSTDMPC EQU PSTFLGA+1 01709000 PSTABEND EQU PSTABINP 01710000 PSTAUTH EQU PSTFLGA 01711000 PSTSMCU EQU PSTFLGA 01712000 PSTSMQR EQU PSTFLGA 01713000 PSTIRBU2 EQU PSTFLGA 01714000 PSTIRBU1 EQU PSTFLGA 01715000 PSTUERN EQU PSTFLGA 01716000 PSTSSRN EQU PSTFLGA 01717000 PSTRQUEA EQU PSTRQUE+1 01718000 PSTRSV07 EQU PSTRQUE 01719000 PSTRSV06 EQU PSTRQUE 01720000 PSTRSV05 EQU PSTRQUE 01721000 PSTRSV04 EQU PSTRQUE 01722000 PSTRSV03 EQU PSTRQUE 01723000 PSTRSV02 EQU PSTRQUE 01724000 PSTRSV01 EQU PSTRQUE 01725000 PSTRQFLG EQU PSTRQUE 01726000 PSTCHAIN EQU ISTPST+4 01727000 @NM00020 EQU ISTPST+2 01728000 PSTLNGTH EQU ISTPST+1 01729000 PSTTYPE EQU ISTPST 01730000 ATCAOS EQU ISTATCVT+1584 01731000 ATCPOPAB EQU ATCAOSM+640 01732000 ATCVIOPM EQU ATCAOSM+636 01733000 ATCTPMMI EQU ATCAOSM+632 01734000 ATCTPMPB EQU ATCAOSM+600 01735000 ATCRSV88 EQU ATCAOSM+596 01736000 ATCRPLCT EQU ATCAOSM+594 01737000 ATCCRACT EQU ATCAOSM+592 01738000 ATCSRBCT EQU ATCAOSM+590 01739000 ATCRSV75 EQU ATCAOSM+589 01740000 ATCRSV66 EQU ATCZFLAG 01741000 ATCZF001 EQU ATCZFLAG 01742000 ATCTPCP1 EQU ATCAOSM+584 01743000 ATCTPCP0 EQU ATCAOSM+580 01744000 ATCAICTN EQU ATCAOSM+576 01745000 ATCZR01 EQU ATCAOSM+572 01746000 ATCMPLTA EQU ATCAOSM+568 01747000 ATCASCB EQU ATCAOSM+564 01748000 ATCAP86 EQU ATCAOSM+560 01749000 ATCAP85 EQU ATCAOSM+556 01750000 ATCAP84 EQU ATCAOSM+552 01751000 ATCAP83 EQU ATCAOSM+548 01752000 ATCAP82 EQU ATCAOSM+544 01753000 ATCAP69 EQU ATCAOSM+540 01754000 ATCAP66 EQU ATCAOSM+536 01755000 ATCAP62 EQU ATCAOSM+532 01756000 ATCAPC59 EQU ATCAOSM+528 01757000 ATCAP56 EQU ATCAOSM+524 01758000 ATCAP55 EQU ATCAOSM+520 01759000 ATCRCFY0 EQU ATCAOSM+516 01760000 ATCAP41 EQU ATCAOSM+512 01761000 ATCAPC25 EQU ATCAOSM+508 01762000 ATCAP23 EQU ATCAOSM+504 01763000 ATCTPSPB EQU ATCAOSM+472 01764000 ATCTRMPB EQU ATCAOSM+440 01765000 ATCAPBE EQU ATCAOSM+436 01766000 ATCPSTA EQU ATCAOSM+432 01767000 ATCSMABF EQU ATCAOSM+428 01768000 ATCSMAPR EQU ATCAOSM+424 01769000 ATCTPWQA EQU ATCAOSM+420 01770000 ATCSMAID EQU ATCAOSM+416 01771000 ATCSMARA EQU ATCAOSM+412 01772000 ATCCACXA EQU ATCAOSM+408 01773000 ATCZLAAB EQU ATCAOSM+404 01774000 ATCATA10 EQU ATCAOSM+400 01775000 ATCHLTCB EQU ATCAOSM+396 01776000 @NM00019 EQU ATCVTFLG 01777000 ATCVTACT EQU ATCVTFLG 01778000 ATCRPT40 EQU ATCAOSM+388 01779000 ATCRPT39 EQU ATCAOSM+384 01780000 ATCRPT38 EQU ATCAOSM+380 01781000 ATCRPT37 EQU ATCAOSM+376 01782000 ATCRPT36 EQU ATCAOSM+372 01783000 ATCRPT35 EQU ATCAOSM+368 01784000 ATCRPT34 EQU ATCAOSM+364 01785000 ATCRPT33 EQU ATCAOSM+360 01786000 ATCRPT32 EQU ATCAOSM+356 01787000 ATCRPT31 EQU ATCAOSM+352 01788000 ATCRPT30 EQU ATCAOSM+348 01789000 ATCRPT29 EQU ATCAOSM+344 01790000 ATCRPT28 EQU ATCAOSM+340 01791000 ATCRPT27 EQU ATCAOSM+336 01792000 ATCRPT26 EQU ATCAOSM+332 01793000 ATCRPT25 EQU ATCAOSM+328 01794000 ATCRPT24 EQU ATCAOSM+324 01795000 ATCRPT23 EQU ATCAOSM+320 01796000 ATCRPT22 EQU ATCAOSM+316 01797000 ATCRPT21 EQU ATCAOSM+312 01798000 ATCRPT20 EQU ATCAOSM+308 01799000 ATCRPT19 EQU ATCAOSM+304 01800000 ATCRPLAC EQU ATCRPLCN+2 01801000 ATCRPLRC EQU ATCRPLCN 01802000 ATCCRPLQ EQU ATCCRPL 01803000 ATCSRBAC EQU ATCSRBCN+2 01804000 ATCSRBRC EQU ATCSRBCN 01805000 ATCSRBQ EQU ATCSRB 01806000 ATCCRARC EQU ATCCRACN 01807000 ATCRPT12 EQU ATCAOSM+276 01808000 ATCDMAPP EQU ATCAOSM+272 01809000 ATCAP38 EQU ATCAOSM+268 01810000 ATCAP37 EQU ATCAOSM+264 01811000 ATCZDFJ0 EQU ATCAOSM+260 01812000 ATCAP51 EQU ATCAOSM+256 01813000 ATCZPAB2 EQU ATCAOSM+224 01814000 ATCZPAB1 EQU ATCAOSM+192 01815000 ATCZLFVT EQU ATCAOSM+188 01816000 ATCZLPVT EQU ATCAOSM+184 01817000 ATCZDVTX EQU ATCAOSM+180 01818000 ATCZDVTA EQU ATCAOSM+176 01819000 ATCZDVT9 EQU ATCAOSM+172 01820000 ATCZDVT8 EQU ATCAOSM+168 01821000 ATCZDVT7 EQU ATCAOSM+164 01822000 ATCRSV56 EQU ATCDAPVT+22 01823000 ATCDAPDG EQU ATCDAPVT+20 01824000 ATCDXCEA EQU ATCDAPVT+16 01825000 ATCDCEA EQU ATCDAPVT+12 01826000 ATCDPCIA EQU ATCDAPVT+8 01827000 ATCDSIOA EQU ATCDAPVT+4 01828000 ATCDEOEA EQU ATCDAPVT 01829000 ATCZLAEA EQU ATCLDAPP+16 01830000 ATCZLCEA EQU ATCLDAPP+12 01831000 ATCRSV17 EQU ATCLDAPP+8 01832000 ATCSMFRR EQU ATCLDAPP+4 01833000 ATCCDTID EQU ATCLDAPP 01834000 ATCZAEA EQU ATCICAPP+16 01835000 ATCZCEA EQU ATCICAPP+12 01836000 ATCCDTCB EQU ATCICAPP+8 01837000 ATCZSIOA EQU ATCICAPP+4 01838000 ATCCDRPH EQU ATCICAPP 01839000 ATCAP65 EQU ATCAOSM+96 01840000 ATCZDVT6 EQU ATCAOSM+92 01841000 ATCZDVT4 EQU ATCAOSM+88 01842000 ATCZDVT3 EQU ATCAOSM+84 01843000 ATCZDVT1 EQU ATCAOSM+80 01844000 ATCICNCB EQU ATCAOSM+76 01845000 ATCZPSVT EQU ATCAOSM+72 01846000 ATCZFSVT EQU ATCAOSM+68 01847000 ATCAP64 EQU ATCAOSM+64 01848000 ATCAP63 EQU ATCAOSM+60 01849000 ATCAP58 EQU ATCAOSM+52 01850000 ATCAP57 EQU ATCAOSM+48 01851000 ATCAP54 EQU ATCAOSM+44 01852000 ATCAP53 EQU ATCAOSM+40 01853000 ATCAP34 EQU ATCAOSM+32 01854000 ATCAP32 EQU ATCAOSM+28 01855000 ATCAP31 EQU ATCAOSM+24 01856000 ATCAP12 EQU ATCAOSM+20 01857000 ATCAP11 EQU ATCAOSM+16 01858000 ATCCMTCB EQU ATCAOSM+12 01859000 ATCPRPH EQU ATCAOSM+8 01860000 ATCGSRBF EQU ATCGSRBG 01861000 ATCSRBRT EQU ATCAOSM 01862000 @NM00018 EQU @NM00017 01863000 ATCVTMAB EQU @NM00017 01864000 @NM00016 EQU ATCVTBAM 01865000 ATCVDLOK EQU ISTATCVT+904 01866000 ATCVFPAB EQU ISTATCVT+872 01867000 ATCVDPAB EQU ISTATCVT+840 01868000 ATCIOECB EQU ISTATCVT+836 01869000 ATCINCW3 EQU ISTATCVT+832 01870000 ATCMODTB EQU ISTATCVT+828 01871000 ATCUSSPT EQU ISTATCVT+824 01872000 ATCSRTAB EQU ISTATCVT+820 01873000 @NM00015 EQU ISTATCVT+819 01874000 @NM00014 EQU ATCSTAT2 01875000 ATCTRSMS EQU ATCSTAT2 01876000 ATCTRLOK EQU ATCSTAT2 01877000 ATCTRPSS EQU ATCSTAT2 01878000 ATCTRESC EQU ATCSTAT2 01879000 ATCTRAPI EQU ATCSTAT2 01880000 ATCNMCTR EQU ISTATCVT+816 01881000 ATCSEC51 EQU ATCSECST 01882000 ATCSEC40 EQU ATCSIPD+8 01883000 ATCSEC30 EQU ATCSIPD+4 01884000 ATCSEC21 EQU ATCSIPD 01885000 ATCSEC10 EQU ATCSOPD+4 01886000 ATCSEC01 EQU ATCSOPD 01887000 ATCPOIA EQU ATCRNO+1 01888000 @NM00013 EQU ATCRNO 01889000 ATCPODVT EQU ISTATCVT+784 01890000 ATCS49XL EQU ISTATCVT+780 01891000 ATCS49XI EQU ISTATCVT+776 01892000 ATCLCLCT EQU ATCVLCNT+2 01893000 ATCRNCNT EQU ATCVLCNT 01894000 ATCCFEAD EQU ISTATCVT+768 01895000 ATCPTR00 EQU ISTATCVT+736 01896000 ATCRSV10 EQU ISTATCVT+704 01897000 ATCTACB EQU ISTATCVT+700 01898000 ATCVTINM EQU ISTATCVT+696 01899000 ATCTCLIM EQU ISTATCVT+692 01900000 ATCTCLOM EQU ISTATCVT+688 01901000 ATCVTIPB EQU ISTATCVT+656 01902000 ATCTCIPB EQU ISTATCVT+624 01903000 ATCTIPAB EQU ISTATCVT+592 01904000 ATCOCCCB EQU ISTATCVT+588 01905000 ATCOCCOB EQU ISTATCVT+584 01906000 ATCCDLAD EQU ISTATCVT+580 01907000 ATCCCLAD EQU ISTATCVT+576 01908000 ATCDLRPB EQU ISTATCVT+544 01909000 ATCPGPAB EQU ISTATCVT+512 01910000 ATCVPAB1 EQU ISTATCVT+480 01911000 ATCRSV97 EQU ISTATCVT+476 01912000 ATCRDTLK EQU ISTATCVT+472 01913000 ATCVOCLK EQU ISTATCVT+468 01914000 ATCCDFDN EQU ISTATCVT+464 01915000 ATCCDFIN EQU ISTATCVT+460 01916000 ATCDVTLK EQU ISTATCVT+456 01917000 ATCAP36 EQU ISTATCVT+452 01918000 ATCAP35 EQU ISTATCVT+448 01919000 ATCAP33 EQU ISTATCVT+444 01920000 ATCRSV99 EQU ISTATCVT+440 01921000 ATCONFIG EQU ISTATCVT+432 01922000 ATCNODDS EQU ISTATCVT+428 01923000 ATCNODEL EQU ISTATCVT+420 01924000 ATCRSV69 EQU ISTATCVT+416 01925000 ATCAPCR5 EQU ISTATCVT+412 01926000 ATCLDECB EQU ISTATCVT+408 01927000 ATCLDNCS EQU ISTATCVT+404 01928000 ATCCDPTR EQU ISTATCVT+400 01929000 ATCADEL EQU ISTATCVT+396 01930000 ATCTODVT EQU ISTATCVT+392 01931000 ATCDEBCH EQU ISTATCVT+388 01932000 ATCHBSIZ EQU ATCHPGM+2 01933000 ATCHBFNO EQU ATCHPGM 01934000 ATCCRME EQU ISTATCVT+380 01935000 ATCRVCHS EQU ISTATCVT+372 01936000 ATCECTLP EQU ISTATCVT+368 01937000 ATCZDVTB EQU ISTATCVT+364 01938000 ATCECPRT EQU ISTATCVT+360 01939000 ATCVTLOD EQU ISTATCVT+356 01940000 ATCTRPAB EQU ISTATCVT+352 01941000 ATCMSGM EQU ISTATCVT+348 01942000 ATCMSGP EQU ISTATCVT+344 01943000 ATCEPT EQU ISTATCVT+340 01944000 ATCDVT EQU ISTATCVT+336 01945000 ATCTRCPT EQU ISTATCVT+332 01946000 ATCDVLOD EQU ISTATCVT+328 01947000 ATCALERT EQU ISTATCVT+324 01948000 ATCEPA EQU ISTATCVT+320 01949000 ATCSAF EQU ISTATCVT+318 01950000 ATCXRANG EQU ISTATCVT+317 01951000 ATCLAST EQU ATCSHRFG 01952000 ATCSHRTN EQU ISTATCVT+308 01953000 ATCUEP EQU ISTATCVT+304 01954000 ATCOCRT EQU ISTATCVT+300 01955000 ATCCSMA EQU ATCCSMR 01956000 ATCESC02 EQU ISTATCVT+292 01957000 ATCESC01 EQU ISTATCVT+288 01958000 ATCCDFND EQU ISTATCVT+284 01959000 ATCCDDEL EQU ISTATCVT+280 01960000 ATCCDADD EQU ISTATCVT+276 01961000 ATCMNT EQU ISTATCVT+272 01962000 ATCRSV16 EQU ISTATCVT+270 01963000 ATCMAXID EQU ISTATCVT+269 01964000 ATCMSGSP EQU ATCCOM+268 01965000 ATCCIDM EQU ATCCOM+266 01966000 ATCACTRM EQU ATCCOM+264 01967000 ATCNERAP EQU ATCCOM+260 01968000 ATCNESAL EQU ATCCOM+256 01969000 ATCRCC65 EQU ATCCOM+252 01970000 ATCRCC26 EQU ATCCOM+248 01971000 ATCRCC63 EQU ATCCOM+244 01972000 ATCRSV11 EQU ATCCOM+242 01973000 ATCVTMID EQU ATCCOM+240 01974000 ATCAPOST EQU ATCCOM+236 01975000 ATCNERFN EQU ATCCOM+232 01976000 ATCNERNE EQU ATCCOM+228 01977000 ATCNERCV EQU ATCCOM+224 01978000 ATCNERST EQU ATCCOM+220 01979000 ATCDCC61 EQU ATCCOM+216 01980000 ATCDCC60 EQU ATCCOM+212 01981000 ATCSRTDF EQU ATCCOM+208 01982000 ATCSRTAD EQU ATCCOM+204 01983000 ATCFIRA EQU ATCCOM+200 01984000 ATCSMBQ EQU ATCCOM+196 01985000 ATCSMRC EQU ATCCOM+192 01986000 ATCSMRS EQU ATCCOM+188 01987000 ATCSMQU EQU ATCCOM+184 01988000 ATCACDA EQU ATCCOM+176 01989000 ATCSTMA EQU ATCCOM+172 01990000 ATCFRSTR EQU ATCCOM+168 01991000 ATCGTSTR EQU ATCCOM+164 01992000 ATCREADA EQU ATCCOM+160 01993000 ATCALOAD EQU ATCCOM+156 01994000 ATCBLDLA EQU ATCCOM+152 01995000 ATCFBRPH EQU ATCCOM+148 01996000 ATCBFTRC EQU ATCCOM+144 01997000 ATCTPBUF EQU ATCTHTRC 01998000 ATCREMOV EQU ATCCOM+136 01999000 ATCADD EQU ATCCOM+132 02000000 ATCDVTPT EQU ATCCOM+124 02001000 ATCFEPT EQU ATCCOM+120 02002000 ATCFDVT EQU ATCCOM+116 02003000 ATCCONFT EQU ATCCOM+112 02004000 ATCPTCHA EQU ATCCOM+108 02005000 ATCAUTHA EQU ATCCOM+104 02006000 ATCACCTA EQU ATCCOM+100 02007000 ATCRDTH EQU ATCCOM+96 02008000 ATCFRSCH EQU ATCCOM+92 02009000 ATCFSB EQU ATCCOM+88 02010000 ATCHLTMS EQU ATCCOM+84 02011000 ATCECPRM EQU ATCCOM+80 02012000 ATCECNET EQU ATCCOM+76 02013000 ATCECOPC EQU ATCCOM+72 02014000 ATCVPARM EQU ATCCOM+68 02015000 ATCECVRQ EQU ATCCOM+64 02016000 ATCECSES EQU ATCCOM+60 02017000 ATCOCHA EQU ATCCOM+56 02018000 ATCDSPLQ EQU ATCCOM+52 02019000 ATCECDSP EQU ATCCOM+48 02020000 ATCVARYQ EQU ATCCOM+44 02021000 ATCECVRY EQU ATCCOM+40 02022000 ATCHALTQ EQU ATCCOM+36 02023000 ATCECHLT EQU ATCCOM+32 02024000 ATCMODQ EQU ATCCOM+28 02025000 ATCECMOD EQU ATCCOM+24 02026000 ATCASCHD EQU ATCCOM+20 02027000 ATCSRT EQU ATCCOM+16 02028000 ATCRDT EQU ATCCOM+12 02029000 ATCDCFRR EQU ATCCOM+8 02030000 ATCAPI EQU ATCCOM+4 02031000 ATCRSV04 EQU ATCSTAT4 02032000 ATCVTTRC EQU ATCSTAT4 02033000 ATCNCSD EQU ATCSTAT4 02034000 ATCMTST EQU ATCSTAT4 02035000 ATCTPRT EQU ATCSTAT4 02036000 ATCPRTAT EQU ATCSTAT4 02037000 @NM00012 EQU ATCPOFLG 02038000 ATCPOUNS EQU ATCPOFLG 02039000 ATCHSDMF EQU ATCSTFLG 02040000 @NM00011 EQU ATCSTAT1 02041000 ATCMDHLT EQU ATCSTAT1 02042000 ATCINHLT EQU ATCSTAT1 02043000 ATCNETSL EQU ATCSTAT1 02044000 ATCQKHLT EQU ATCSTAT1 02045000 ATCSNHLT EQU ATCSTAT1 02046000 ATCACTIV EQU ATCSTAT1 02047000 ATCSTART EQU ATCSTAT1 02048000 RPHNEXPO EQU ISTRPH+104 02049000 RPHSAV16 EQU RPHWORK+60 02050000 RPHSAV15 EQU RPHWORK+56 02051000 RPHSAV14 EQU RPHWORK+52 02052000 RPHSAV13 EQU RPHWORK+48 02053000 RPHSAV12 EQU RPHWORK+44 02054000 RPHSAV11 EQU RPHWORK+40 02055000 RPHSAV10 EQU RPHWORK+36 02056000 RPHSAVE9 EQU RPHWORK+32 02057000 RPHSAVE8 EQU RPHWORK+28 02058000 RPHSAVE7 EQU RPHWORK+24 02059000 RPHSAVE6 EQU RPHWORK+20 02060000 RPHSAVE5 EQU RPHWORK+16 02061000 RPHSAVE4 EQU RPHWORK+12 02062000 RPHSAVE3 EQU RPHWORK+8 02063000 RPHSAVE2 EQU RPHWORK+4 02064000 RPHSHALF EQU RPHSAVE1+2 02065000 RPHSBIT8 EQU RPHSBITS 02066000 RPHSBIT7 EQU RPHSBITS 02067000 RPHSBIT6 EQU RPHSBITS 02068000 RPHSBIT5 EQU RPHSBITS 02069000 RPHSBIT4 EQU RPHSBITS 02070000 RPHSBIT3 EQU RPHSBITS 02071000 RPHSBIT2 EQU RPHSBITS 02072000 RPHSBIT1 EQU RPHSBITS 02073000 RPHSBYTE EQU RPHSAVE1 02074000 RPHPABQP EQU RPHPABQA+1 02075000 RPHPABFG EQU RPHPABQA 02076000 RPHSRP34 EQU RPHSRPRM+2 02077000 RPHSRP12 EQU RPHSRPRM 02078000 RPHWEGT EQU RPHCSPA 02079000 RPHMAJCB EQU ISTRPH+21 02080000 RPHPABOF EQU ISTRPH+20 02081000 RPHRESUM EQU RPHRESMA+1 02082000 RPHRSV01 EQU RPHWPFLG 02083000 RPHPURGE EQU RPHWPFLG 02084000 RPHPT EQU RPHWPFLG 02085000 RPHWT EQU RPHWPFLG 02086000 RPHRSKEY EQU RPHWPFLG 02087000 RPHDVTA EQU ISTRPH+12 02088000 RPHTIK EQU RPHTSKID+3 02089000 @NM00010 EQU RPHTSKID 02090000 RPHRPHAP EQU RPHRPHA+1 02091000 @NM00009 EQU RPHRPHA 02092000 RPHGATE EQU RPHRPHA 02093000 @NM00008 EQU RPHFLGB 02094000 RPHRLCRA EQU RPHFLGB 02095000 RPHNRSAV EQU RPHFLGB 02096000 RPHPGCMP EQU RPHFLGB 02097000 RPHFBAPS EQU RPHFLGB 02098000 RPHBSSP EQU RPHFLGB 02099000 RPHLOCK EQU RPHFLGB 02100000 RPHFNFLG EQU RPHFSTLC 02101000 RPHMLTCP EQU RPHFLAGS 02102000 RPHSMCLR EQU RPHFLAGS 02103000 RPHSMTYP EQU RPHFLAGS 02104000 RPHSMQ EQU RPHFLAGS 02105000 RPHAUTEX EQU RPHAPTYP 02106000 RPHSPGIN EQU RPHFLAGS 02107000 RPHOGIND EQU RPHFLAGS 02108000 RPHLNGTH EQU RPHCNTL+1 02109000 RPHTYPE EQU RPHCNTL 02110000 DYPPAB EQU ISTDYPAB+16 02111000 DYPRSV01 EQU ISTDYPAB+12 02112000 DYPTSKID EQU ISTDYPAB+8 02113000 DYPCHAIN EQU ISTDYPAB+4 02114000 DYPFLGS EQU ISTDYPAB+2 02115000 DYPLNGTH EQU ISTDYPAB+1 02116000 DYPTYPE EQU ISTDYPAB 02117000 LOKXCL EQU @NM00006 02118000 LOKPRY EQU @NM00006 02119000 @NM00007 EQU @NM00006 02120000 @NM00005 EQU LOKCHNG 02121000 LOKCT EQU ISTLOK 02122000 PABRPHA EQU PABRPHFG+1 02123000 PABNODQ EQU PABFLAGS 02124000 PABINHBT EQU PABFLAGS 02125000 PABERLOK EQU PABERRLK 02126000 PABSSN EQU PABFLAGS 02127000 PABDYNAM EQU PABFLAGS 02128000 PABNORPR EQU PABFLAGS 02129000 PABPRIOR EQU PABFLAGS 02130000 PABAPYP EQU PABFLAGS 02131000 PABDVTA EQU ISTPAB+9 02132000 PABOFFST EQU ISTPAB+8 02133000 PABCHNGP EQU PABCHAIN+1 02134000 PABRSV02 EQU PABCHAIN 02135000 PABDELAY EQU PABCHAIN 02136000 PABRUNNG EQU PABCHAIN 02137000 PABRESET EQU PABCHAIN 02138000 PABUNCON EQU PABCHAIN 02139000 PABCDP EQU PABCHAIN 02140000 PABRESCH EQU PABCHAIN 02141000 PABCHNG EQU PABCHAIN 02142000 PABWEQP EQU PABWEQA+1 02143000 PABRSV01 EQU PABWEQA 02144000 PABWEQG EQU PABWEQA 02145000 ISTPDAVP EQU ISTAVT+40 02146000 ISTAVR01 EQU ISTAVT+38 02147000 ISTVTTP EQU ISTAVT+36 02148000 ISTAGTWT EQU ISTAVT+34 02149000 ISTATRT EQU ISTAVT+32 02150000 ISTARID EQU ISTAVT+30 02151000 ISTX1 EQU ISTAVT+29 02152000 ISTPHNM EQU ISTAVT+24 02153000 ISTAPSEX EQU ISTAVT+20 02154000 ISTVTTIK EQU ISTAVT+18 02155000 AVTASID EQU ISTAVT+16 02156000 ISTAPSTA EQU ISTAVT+12 02157000 ISTAS53 EQU ISTAVT+8 02158000 ISTAHIP EQU ISTAS49 02159000 ISTACVT EQU ISTAVT 02160000 @NM00004 EQU SRBSECT+40 02161000 @NM00003 EQU SRBSECT+38 02162000 SRBPRIOR EQU SRBSECT+37 02163000 SRBPKF EQU SRBSECT+36 02164000 SRBSAVE EQU SRBSECT+32 02165000 SRBPARM EQU SRBSECT+28 02166000 SRBRMTR EQU SRBSECT+24 02167000 SRBEP EQU SRBSECT+20 02168000 SRBPTCB EQU SRBFLC+4 02169000 SRBPASID EQU SRBFLC+2 02170000 SRBCPAFF EQU SRBFLC 02171000 SRBASCB EQU SRBSECT+8 02172000 SRBFLNK EQU SRBSECT+4 02173000 SRBID EQU SRBSECT 02174000 CVTLEVL EQU CVTRELNO+2 02175000 CVTNUMB EQU CVTRELNO 02176000 CVTMDL EQU CVTFIX+250 02177000 @NM00002 EQU CVTFIX+248 02178000 @NM00001 EQU CVTFIX 02179000 CVTRV482 EQU CVTXTNT2+128 02180000 CVTRV481 EQU CVTXTNT2+124 02181000 CVTRV480 EQU CVTXTNT2+120 02182000 CVTRV479 EQU CVTXTNT2+118 02183000 CVTRV478 EQU CVTXTNT2+117 02184000 CVTRV477 EQU CVTXTNT2+116 02185000 CVTRV476 EQU CVTXTNT2+115 02186000 CVTRV475 EQU CVTXTNT2+114 02187000 CVTRV474 EQU CVTRV466 02188000 CVTRV473 EQU CVTRV466 02189000 CVTRV472 EQU CVTRV466 02190000 CVTRV471 EQU CVTRV466 02191000 CVTRV470 EQU CVTRV466 02192000 CVTRV469 EQU CVTRV466 02193000 CVTRV468 EQU CVTRV466 02194000 CVTRV467 EQU CVTRV466 02195000 CVTRV465 EQU CVTRV457 02196000 CVTRV464 EQU CVTRV457 02197000 CVTRV463 EQU CVTRV457 02198000 CVTRV462 EQU CVTRV457 02199000 CVTRV461 EQU CVTRV457 02200000 CVTRV460 EQU CVTRV457 02201000 CVTRV459 EQU CVTRV457 02202000 CVTRV458 EQU CVTRV457 02203000 CVTRV456 EQU CVTXTNT2+108 02204000 CVTRV455 EQU CVTXTNT2+104 02205000 CVTRV454 EQU CVTXTNT2+100 02206000 CVTRV453 EQU CVTXTNT2+96 02207000 CVTRV452 EQU CVTXTNT2+94 02208000 CVTRV451 EQU CVTXTNT2+92 02209000 CVTRV450 EQU CVTXTNT2+90 02210000 CVTRV449 EQU CVTXTNT2+88 02211000 CVTRV448 EQU CVTXTNT2+87 02212000 CVTRV447 EQU CVTXTNT2+86 02213000 CVTRV446 EQU CVTRV438 02214000 CVTRV445 EQU CVTRV438 02215000 CVTRV444 EQU CVTRV438 02216000 CVTRV443 EQU CVTRV438 02217000 CVTRV442 EQU CVTRV438 02218000 CVTRV441 EQU CVTRV438 02219000 CVTRV440 EQU CVTRV438 02220000 CVTRV439 EQU CVTRV438 02221000 CVTRV437 EQU CVTRV429 02222000 CVTRV436 EQU CVTRV429 02223000 CVTRV435 EQU CVTRV429 02224000 CVTRV434 EQU CVTRV429 02225000 CVTRV433 EQU CVTRV429 02226000 CVTRV432 EQU CVTRV429 02227000 CVTRV431 EQU CVTRV429 02228000 CVTRV430 EQU CVTRV429 02229000 CVTRV428 EQU CVTXTNT2+80 02230000 CVTRV427 EQU CVTXTNT2+76 02231000 CVTRV426 EQU CVTXTNT2+72 02232000 CVTRV425 EQU CVTXTNT2+68 02233000 CVTATACT EQU CVTATCVT 02234000 CVTRV423 EQU CVTXTNT2+62 02235000 CVTRV422 EQU CVTXTNT2+60 02236000 CVTRV421 EQU CVTXTNT2+58 02237000 CVTRV420 EQU CVTXTNT2+56 02238000 CVTRV419 EQU CVTXTNT2+55 02239000 CVTRV418 EQU CVTXTNT2+54 02240000 CVTRV417 EQU CVTRV409 02241000 CVTRV416 EQU CVTRV409 02242000 CVTRV415 EQU CVTRV409 02243000 CVTRV414 EQU CVTRV409 02244000 CVTRV413 EQU CVTRV409 02245000 CVTRV412 EQU CVTRV409 02246000 CVTRV411 EQU CVTRV409 02247000 CVTRV410 EQU CVTRV409 02248000 CVTRV408 EQU CVTRV400 02249000 CVTRV407 EQU CVTRV400 02250000 CVTRV406 EQU CVTRV400 02251000 CVTRV405 EQU CVTRV400 02252000 CVTRV404 EQU CVTRV400 02253000 CVTRV403 EQU CVTRV400 02254000 CVTRV402 EQU CVTRV400 02255000 CVTRV401 EQU CVTRV400 02256000 CVTICB EQU CVTXTNT2+48 02257000 CVTSKTA EQU CVTXTNT2+44 02258000 CVTSHSB EQU CVTSHS 02259000 CVTRSV98 EQU CVTXTNT2+36 02260000 CVTRSV97 EQU CVTXTNT2+34 02261000 CVTRSV96 EQU CVTXTNT2+32 02262000 CVTOLTEP EQU CVTXTNT2+28 02263000 CVTQIDA EQU CVTQID+1 02264000 CVTRSV95 EQU CVTQID 02265000 CVTRSV94 EQU CVTXTNT2+20 02266000 CVTRSV93 EQU CVTXTNT2+16 02267000 CVTRSV92 EQU CVTXTNT2+12 02268000 CVTDEBVR EQU CVTXTNT2+8 02269000 CVTRSV91 EQU CVTXTNT2+6 02270000 CVTRSV9H EQU CVTFLGBT 02271000 CVTRSV9G EQU CVTFLGBT 02272000 CVTRSV9F EQU CVTFLGBT 02273000 CVTRSV9E EQU CVTFLGBT 02274000 CVTRSV9D EQU CVTFLGBT 02275000 CVTRSV9C EQU CVTFLGBT 02276000 CVTVME EQU CVTFLGBT 02277000 CVTNPE EQU CVTFLGBT 02278000 CVTNUCLS EQU CVTXTNT2+4 02279000 CVTDSSVA EQU CVTDSSV+1 02280000 CVTRSV89 EQU CVTDSSV 02281000 CVTRSV88 EQU CVTXTNT1+8 02282000 CVTRSV87 EQU CVTXTNT1+4 02283000 CVTFACHN EQU CVTXTNT1 02284000 CVTRV488 EQU CVTMAP+412 02285000 CVTRV487 EQU CVTMAP+408 02286000 CVTRV486 EQU CVTMAP+404 02287000 CVTRV485 EQU CVTMAP+400 02288000 CVTACTAP EQU CVTMAP+396 02289000 CVTAUTH EQU CVTMAP+392 02290000 CVTATMCA EQU CVTATMCT+1 02291000 CVTATMST EQU CVTATMCT 02292000 CVTRSV61 EQU CVTMAP+384 02293000 CVTVOLT1 EQU CVTVOLM1+1 02294000 CVTVOLI1 EQU CVTVOLF1 02295000 CVTSTOA EQU CVTMAP+376 02296000 CVTRSV58 EQU CVTMAP+374 02297000 CVTRSV57 EQU CVTMAP+372 02298000 CVTDDCE EQU CVTMAP+368 02299000 CVTPNWFR EQU CVTMAP+364 02300000 CVTSMF EQU CVTMAP+360 02301000 CVTSULK EQU CVTMAP+358 02302000 CVTSLKO EQU CVTSYSK 02303000 CVTSLKP EQU CVTSYSK 02304000 CVTSLKQ EQU CVTSYSK 02305000 CVTSLKR EQU CVTSYSK 02306000 CVTRSV56 EQU CVTSYSK 02307000 CVTRSV55 EQU CVTSYSK 02308000 CVTRSV54 EQU CVTSYSK 02309000 CVTRSV53 EQU CVTSYSK 02310000 CVTRSV52 EQU CVTA1F1 02311000 CVTRSV51 EQU CVTA1F1 02312000 CVTRSV50 EQU CVTA1F1 02313000 CVTRSV49 EQU CVTA1F1 02314000 CVTRSV48 EQU CVTA1F1 02315000 CVTRSV47 EQU CVTA1F1 02316000 CVTSRSW EQU CVTA1F1 02317000 CVTPFSW EQU CVTA1F1 02318000 CVTPCVT EQU CVTMAP+352 02319000 CVTRSV46 EQU CVTMAP+344 02320000 CVTRSV45 EQU CVTMAP+340 02321000 CVTRSV44 EQU CVTMAP+338 02322000 CVTRSV43 EQU CVTMAP+336 02323000 CVTHJESA EQU CVTHJES+1 02324000 CVTRSV42 EQU CVTHJES 02325000 CVTEXT2A EQU CVTEXT2+1 02326000 CVTRSV41 EQU CVTEXT2 02327000 CVTAPFA EQU CVTAPF+1 02328000 CVTRSV40 EQU CVTAPF 02329000 CVTRV518 EQU CVTINTLA 02330000 CVTRV517 EQU CVTERPV 02331000 CVTEORM EQU CVTMAP+312 02332000 CVTMCHPR EQU CVTMAP+308 02333000 CVTTZ EQU CVTMAP+304 02334000 CVTJEPS EQU CVTMAP+300 02335000 CVTJESCT EQU CVTMAP+296 02336000 CVTMODE EQU CVTMAP+292 02337000 CVTPTRV EQU CVTMAP+288 02338000 CVTREAL EQU CVTMAP+284 02339000 CVTRSV39 EQU CVTMAP+280 02340000 CVTRSV38 EQU CVTMAP+276 02341000 CVTDMSRA EQU CVTDMSR+1 02342000 CVTRV634 EQU CVTDMSRF 02343000 CVTRV633 EQU CVTDMSRF 02344000 CVTRV632 EQU CVTDMSRF 02345000 CVTRV631 EQU CVTDMSRF 02346000 CVTRV630 EQU CVTDMSRF 02347000 CVTRV629 EQU CVTDMSRF 02348000 CVTUDUMP EQU CVTDMSRF 02349000 CVTSDUMP EQU CVTDMSRF 02350000 CVTQMSGA EQU CVTQMSG+1 02351000 CVTRSV36 EQU CVTQMSG 02352000 CVTAMFF EQU CVTMAP+264 02353000 CVTPURGA EQU CVTPURG+1 02354000 CVTRSV35 EQU CVTPURG 02355000 CVTCBSP EQU CVTMAP+256 02356000 CVTATERA EQU CVTATER+1 02357000 CVTSYST EQU CVTATER 02358000 CVTVOLT2 EQU CVTTAT 02359000 CVTVOLI2 EQU CVTVOLF2 02360000 CVTAQAVB EQU CVTAQAVT+1 02361000 CVTRSV34 EQU CVTTCMFG 02362000 CVTRSV33 EQU CVTTCMFG 02363000 CVTRSV32 EQU CVTTCMFG 02364000 CVTRSV31 EQU CVTTCMFG 02365000 CVTRSV30 EQU CVTTCMFG 02366000 CVTRSV29 EQU CVTTCMFG 02367000 CVTRSV28 EQU CVTTCMFG 02368000 CVTTCRDY EQU CVTTCMFG 02369000 CVTGTFA EQU CVTGTF+1 02370000 CVTRSV27 EQU CVTGTFST 02371000 CVTRNIO EQU CVTGTFST 02372000 CVTUSR EQU CVTGTFST 02373000 CVTRV318 EQU CVTFORM 02374000 CVTRV317 EQU CVTTMODE 02375000 CVTRV316 EQU CVTSTATE 02376000 CVTRV315 EQU CVTGTFS 02377000 CVTGTFAV EQU CVTGTFS 02378000 CVT0SCR1 EQU CVTMAP+232 02379000 CVTRV515 EQU CVTMAP+228 02380000 CVTRMS EQU CVTMAP+224 02381000 CVTPATCH EQU CVTMAP+220 02382000 CVTTSCE EQU CVTMAP+216 02383000 CVTLNKSC EQU CVTMAP+214 02384000 CVTQABST EQU CVTMAP+212 02385000 CVTMDLDS EQU CVTMAP+208 02386000 CVTUSER EQU CVTMAP+204 02387000 CVTABEND EQU CVTMAP+200 02388000 CVTSMCA EQU CVTMAP+196 02389000 CVTRSV18 EQU CVTMAP+192 02390000 CVTQLPAQ EQU CVTMAP+188 02391000 CVTQCDSR EQU CVTMAP+184 02392000 CVTRSV17 EQU CVTOPTB 02393000 CVTRSV16 EQU CVTOPTB 02394000 CVTFP EQU CVTOPTB 02395000 CVTAPTHR EQU CVTOPTB 02396000 CVTNLOG EQU CVTOPTB 02397000 CVTTOD EQU CVTOPTB 02398000 CVTCTIMS EQU CVTOPTB 02399000 CVTPROT EQU CVTOPTB 02400000 CVTXPFP EQU CVTOPTA 02401000 CVTASCII EQU CVTOPTA 02402000 CVTRSV13 EQU CVTOPTA 02403000 CVTRSV12 EQU CVTOPTA 02404000 CVTNIP EQU CVTOPTA 02405000 CVTDDR EQU CVTOPTA 02406000 CVTAPR EQU CVTOPTA 02407000 CVTCCH EQU CVTOPTA 02408000 CVTSNCTR EQU CVTMAP+180 02409000 CVTQMWR EQU CVTMAP+176 02410000 CVTQOCR EQU CVTMAP+172 02411000 CVT1EF00 EQU CVTMAP+168 02412000 CVTMZ00 EQU CVTMAP+164 02413000 CVTHEAD EQU CVTMAP+160 02414000 CVTRSV11 EQU CVTMAP+156 02415000 CVT0PT01 EQU CVTMAP+152 02416000 CVTMSER EQU CVTMAP+148 02417000 CVTRV516 EQU CVTIERLC 02418000 CVTILCH EQU CVTMAP+140 02419000 CVT0DS EQU CVTMAP+136 02420000 CVTFBOSV EQU CVTMAP+132 02421000 CVTNUCB EQU CVTMAP+128 02422000 CVTIXAVL EQU CVTMAP+124 02423000 CVTIOQET EQU CVTMAP+120 02424000 CVTDCBA EQU CVTMAP+117 02425000 CVTMVS2 EQU CVTDCB 02426000 CVT6DAT EQU CVTDCB 02427000 CVT4MPS EQU CVTDCB 02428000 CVTRSV09 EQU CVTDCB 02429000 CVT4MS1 EQU CVTDCB 02430000 CVT2SPS EQU CVTDCB 02431000 CVT1SSS EQU CVTDCB 02432000 CVTRSV08 EQU CVTDCB 02433000 CVTSTB EQU CVTMAP+112 02434000 CVTQTD00 EQU CVTMAP+108 02435000 CVTQTE00 EQU CVTMAP+104 02436000 CVTCUCB EQU CVTMAP+100 02437000 CVTSJQ EQU CVTMAP+96 02438000 CVTPBLDL EQU CVTMAP+92 02439000 CVTTPC EQU CVTMAP+88 02440000 CVTSVDCB EQU CVTMAP+84 02441000 CVTBRET EQU CVTMAP+82 02442000 CVTEXIT EQU CVTMAP+80 02443000 CVT0FN00 EQU CVTMAP+76 02444000 CVTDARA EQU CVTDAR+1 02445000 CVTRSV07 EQU CVTFLGS1 02446000 CVTRSV06 EQU CVTFLGS1 02447000 CVTRSV05 EQU CVTFLGS1 02448000 CVTRSV04 EQU CVTFLGS1 02449000 CVTRSV03 EQU CVTFLGS1 02450000 CVTRSV02 EQU CVTFLGS1 02451000 CVTRSV01 EQU CVTFLGS1 02452000 CVTDMPLK EQU CVTFLGS1 02453000 CVTXITP EQU CVTMAP+68 02454000 CVTZDTAB EQU CVTMAP+64 02455000 CVTMSLT EQU CVTMAP+60 02456000 CVTDATE EQU CVTMAP+56 02457000 CVTBTERM EQU CVTMAP+52 02458000 CVTSYSAD EQU CVTMAP+48 02459000 CVTXTLER EQU CVTMAP+44 02460000 CVTILK2 EQU CVTMAP+40 02461000 CVTILK1 EQU CVTMAP+36 02462000 CVTPRLTV EQU CVTMAP+32 02463000 CVTPCNVT EQU CVTMAP+28 02464000 CVT0VL00 EQU CVTMAP+24 02465000 CVTXAPG EQU CVTMAP+20 02466000 CVTBUF EQU CVTMAP+16 02467000 CVTJOB EQU CVTMAP+12 02468000 CVTLINK EQU CVTMAP+8 02469000 CVT0EF00 EQU CVTMAP+4 02470000 CVTTCBP EQU CVTMAP 02471000 CVT EQU CVTMAP 02472000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02473000 @RC00219 EQU CRAINIT 02474000 @RC00287 EQU CRAINIT 02475000 @RF00306 EQU GETSMRPH 02476000 @ENDDATA EQU * 02477000 END ISTAPC51,(C'PLS2204',0701,77126) 02478000