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