TITLE 'ISTAPC35-TPLOCK SHARE ROUTINE *00001000 ' 00002000 ISTAPC35 CSECT 00003000 USING ISTAPC35,GPR12 00004000 * GPR12=GPR15; /* ESTABLISH BASE REGISTER @Z40GKD9*/ 00005000 LR GPR12,GPR15 0160 00006000 * IF LEVELREG<=CRALKACT /*RQSTD LEVEL <= CURR LEVEL */ 00007000 * THEN /*HERE IF RQSTD LEVL =< CURR LEVEL*/ 00008000 CL LEVELREG,CRALKACT(,CRAREG) 0161 00009000 BH @RF00161 0161 00010000 *ELS03: DO; 0162 00011000 ELS03 DS 0H 0163 00012000 * IF LOKPTRWD=GPR2 /*LOCK ALREADY OWNED BY PROCESS */ 00013000 * THEN /* YES */ 0163 00014000 C GPR2,LOKPTRWD(,CRALXREG) 0163 00015000 BNE @RF00163 0163 00016000 *TR06: DO; 0164 00017000 TR06 DS 0H 0165 00018000 * RPHSAV16=12; /*SET LOCK ALREADY OWN RC @XM03693*/ 00019000 MVC RPHSAV16(4,RPHREG),@CF00856 0165 00020000 * RETURN; /*EXIT FROM PROCEDURE */ 00021000 @EL00001 DS 0H 0166 00022000 @EF00001 DS 0H 0166 00023000 @ER00001 BR @14 0166 00024000 * END TR06; 0167 00025000 * ELSE 0168 00026000 *ELS06: DO; 0168 00027000 @RF00163 DS 0H 0168 00028000 ELS06 DS 0H 0169 00029000 * RPHSAV16=4; /*SET HIER VIOL RET CODE @XM03693*/ 00030000 MVC RPHSAV16(4,RPHREG),@CF00075 0169 00031000 * RETURN; /*EXIT FROM PROCEDURE */ 00032000 B @EL00001 0170 00033000 * END ELS06; 0171 00034000 * END ELS03; 0172 00035000 * ELSE /* RQSTD LEVEL > CURR LEVEL @Z40GKD9*/ 00036000 * LOKPTRWD=LOKREG; 0173 00037000 @RF00161 ST LOKREG,LOKPTRWD(,CRALXREG) 0173 00038000 *RETRY: ; 0174 00039000 RETRY DS 0H 0175 00040000 * GEN(SLR GPR15,GPR15); /*GPR15=0 GENERATED FOR 0175 00041000 * PERFORMANCE CONSIDERATIONS @Z40GKD9 */ 00042000 SLR GPR15,GPR15 00043000 * /* THE FOLLOWING STATEMENT(RPHSAV16 = 0) HAS BEEN GENERATED 0176 00044000 * FOR PERFORMANCE CONSIDERATIONS. NOTE: GPR15 HAS BENN PREVIOSLY 00045000 * LOADED WITH ZERO @Z40GKD9*/ 0176 00046000 * GEN(ST GPR15,RPHSAV16(,RPHREG));/*SET RETURN CODE @XM03745*/ 00047000 ST GPR15,RPHSAV16(,RPHREG) 00048000 * NEWREG=LOKCT1; 0177 00049000 L NEWREG,@CF00153 0177 00050000 * CS (GPR15,NEWREG,LOCKWORD); 0178 00051000 CS GPR15,@05,LOCKWORD(LOKREG) 0178 00052000 * BC (FAIL,SWAPFAL1); 0179 00053000 BC 7,SWAPFAL1 0179 00054000 * CRALKACT=CRALKACT | LEVELREG; /*INDIC NEW LEVEL LOCKED */ 00055000 L @11,CRALKACT(,CRAREG) 0180 00056000 OR @11,LEVELREG 0180 00057000 ST @11,CRALKACT(,CRAREG) 0180 00058000 * GEN(BR GPR14); /* GENERATED FOR PERFORMANCE CONSIDERATIONS 00059000 * EXIT FOR PROCEDURE @Z40GKD9 */ 00060000 BR GPR14 00061000 *SWAPFAL1: ; /*IF HERE, LOK ALREADY HELD */ 00062000 SWAPFAL1 DS 0H 0183 00063000 * IF (GPR15 & LOKPRY1) ^= 0 /*LOK HELD PRIORITY */ 00064000 * THEN /* YES */ 0183 00065000 LR @11,GPR15 0183 00066000 N @11,@CF00149 0183 00067000 LTR @11,@11 0183 00068000 BZ @RF00183 0183 00069000 *TR07: DO; 0184 00070000 TR07 DS 0H 0185 00071000 * RPHSAV16=8; /*SET REJECT REQ RTRN CODE @XM03693*/ 00072000 MVC RPHSAV16(4,RPHREG),@CF00040 0185 00073000 * RETURN; /* EXIT FROM PROCEDURE */ 00074000 B @EL00001 0186 00075000 * END TR07; 0187 00076000 * ELSE 0188 00077000 *ELS07: DO; 0188 00078000 @RF00183 DS 0H 0188 00079000 ELS07 DS 0H 0189 00080000 * IF (GPR15 & LOKXCL1) ^= 0 | /*LOK HELD XCL OR */ 00081000 * (GPR15 & LOKCT255) = LOKCT255 /*SHARE CNT AT MAX */ 00082000 * THEN 0189 00083000 LR @11,GPR15 0189 00084000 N @11,@CF00147 0189 00085000 LTR @11,@11 0189 00086000 BNZ @RT00189 0189 00087000 L @11,@CF00155 0189 00088000 LR @09,GPR15 0189 00089000 NR @09,@11 0189 00090000 CLR @09,@11 0189 00091000 BNE @RF00189 0189 00092000 @RT00189 DS 0H 0190 00093000 *TR08: DO; 0190 00094000 TR08 DS 0H 0191 00095000 * RPHRPHA=GPR15 & LOKCHN1; 0191 00096000 LR @11,GPR15 0191 00097000 N @11,@CF00151 0191 00098000 ST @11,RPHRPHA(,RPHREG) 0191 00099000 * RPHGATE='1'B; /*TURN ON RPH QD BIT @Z30APGG*/ 00100000 OI RPHGATE(RPHREG),B'10000000' 0192 00101000 * NEWREG=RPHREG | LOKXCL1 | (GPR15 & LOKCT255); 0193 00102000 LR NEWREG,RPHREG 0193 00103000 O NEWREG,@CF00147 0193 00104000 LR @11,GPR15 0193 00105000 N @11,@CF00155 0193 00106000 OR NEWREG,@11 0193 00107000 * CS (GPR15,NEWREG,LOCKWORD); 0194 00108000 CS GPR15,@05,LOCKWORD(LOKREG) 0194 00109000 * BC (FAIL,SWAPFAL2); 0195 00110000 BC 7,SWAPFAL2 0195 00111000 * RFY RETSV RSTD; 0196 00112000 * RETSV=GPR14; /*@XM00180*/ 00113000 * 0197 00114000 LR RETSV,GPR14 0197 00115000 */* TPWAIT NSTR RESUME(GPR14) */ 0198 00116000 * DO; /* BEGIN TPWAIT GENERATION*/ 0198 00117000 * DCL GPR01F FIXED(31) REG(01); 0199 00118000 * DCL GPR01P PTR(31) REG(01); 0200 00119000 * DCL GPR14F FIXED(31) REG(14); 0201 00120000 * DCL GPR14P PTR(31) REG(14); 0202 00121000 * DCL GPR15F FIXED(31) REG(15); 0203 00122000 * DCL GPR15P PTR(31) REG(15); 0204 00123000 * RFY (GPR01P,GPR14P,GPR15P) RSTD; 0205 00124000 * GPR15P=GPR14; 0206 00125000 LR GPR15P,GPR14 0206 00126000 * GPR14P=0; 0207 00127000 SLR GPR14P,GPR14P 0207 00128000 * GPR15P=GPR15P & '00FFFFFF'X; 0208 00129000 N GPR15P,@CF01544 0208 00130000 * GPR15P=GPR15P | RPHWT1; 0209 00131000 O GPR15P,@CF00129 0209 00132000 * CS (GPR14P,GPR15P,GPR01P->RPHRESMA); 0210 00133000 CS GPR14P,@15,RPHRESMA(GPR01P) 0210 00134000 * BC (7,LHAB0005); 0211 00135000 * 0211 00136000 BC 7,LHAB0005 0211 00137000 */* TPEXIT NONE */ 0212 00138000 * DO; 0212 00139000 * 0212 00140000 * DCL GPR00F FIXED(31) REG(00); 0213 00141000 * DCL GPR00P PTR(31) REG(00); 0214 00142000 * RESPECIFY GPR15P RSTD; 0215 00143000 * 0215 00144000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 0216 00145000 */* END OF ATBUILD */ 0216 00146000 * 0216 00147000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0216 00148000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0217 00149000 L GPR15P,ATCLCPTR 0217 00150000 * END; /*LISATCVT*/ 0218 00151000 * RESPECIFY GPR00F RSTD; 0219 00152000 * GPR00F=0; /*SET PARAMETER REGISTER TO 0*/ 0220 00153000 SLR GPR00F,GPR00F 0220 00154000 * GPR15P=GPR15P->ATCAP31; 0221 00155000 L GPR15P,ATCAP31(,GPR15P) 0221 00156000 * DCL FMZL0008 BASED(GPR15P) LABEL VALUERANGE(*); 0222 00157000 * CALL FMZL0008; 0223 00158000 BALR @14,@15 0223 00159000 * RESPECIFY (GPR00F,GPR15P) UNRSTD; 0224 00160000 * END; /***** END OF TPEXIT *****/ 0225 00161000 *LHAB0005:; GPR01P->RPHRESMA = 0; 0226 00162000 LHAB0005 DS 0H 0227 00163000 SLR @09,@09 0227 00164000 ST @09,RPHRESMA(,GPR01P) 0227 00165000 * RFY (GPR00P) RSTD; 0228 00166000 *LHAA0005:; RFY (GPR00P,GPR01P,GPR14P,GPR15P) UNRSTD; 0229 00167000 LHAA0005 DS 0H 0230 00168000 * END; /*****END OF TPWAIT *****/ /*@XM03 00169000 *92*/ 0231 00170000 * GPR14=RETSV; /*@XM00180*/ 00171000 LR GPR14,RETSV 0232 00172000 * RFY RETSV UNRSTD; 0233 00173000 * RETURN; /* EXIT FROM PROCEDURE */ 00174000 B @EL00001 0234 00175000 *SWAPFAL2: RPHRPHA=0; 0235 00176000 SWAPFAL2 SLR @11,@11 0235 00177000 ST @11,RPHRPHA(,RPHREG) 0235 00178000 * GOTO SWAPFAL1; 0236 00179000 B SWAPFAL1 0236 00180000 * END TR08; 0237 00181000 * ELSE 0238 00182000 *ELS08: DO; 0238 00183000 @RF00189 DS 0H 0238 00184000 ELS08 DS 0H 0239 00185000 * NEWREG=REG15 + LOKCT1; /*ADD LOGICAL MUST BE USED */ 00186000 LR NEWREG,REG15 0239 00187000 AL NEWREG,@CF00153 0239 00188000 * CS (GPR15,NEWREG,LOCKWORD); 0240 00189000 CS GPR15,@05,LOCKWORD(LOKREG) 0240 00190000 * BC (FAIL,SWAPFAL1); 0241 00191000 BC 7,SWAPFAL1 0241 00192000 * RPHSAV16=0; /*@XM03693*/ 00193000 SLR @11,@11 0242 00194000 ST @11,RPHSAV16(,RPHREG) 0242 00195000 * CRALKACT=CRALKACT | LEVELREG; /*INDIC NEW LEVEL LOKED*/ 00196000 L @11,CRALKACT(,CRAREG) 0243 00197000 OR @11,LEVELREG 0243 00198000 ST @11,CRALKACT(,CRAREG) 0243 00199000 * END ELS08; 0244 00200000 * END ELS07; 0245 00201000 * GEN(BR GPR14); /* GENERATED FOR PERFORMANCE CONSIDERATIONS 00202000 * @Z40GKD9 */ 0246 00203000 * 0246 00204000 BR GPR14 00205000 * GEN(DC C'END ISTAPC35 75.290'); 0247 00206000 * 0247 00207000 DC C'END ISTAPC35 75.290' 00208000 */* TPEPILOG */ 0248 00209000 * GEN (PRINT OFF); 0248 00210000 * 0248 00211000 PRINT OFF 00212000 * GEN (PRINT ON); 0249 00213000 PRINT ON 00214000 */* END OF TPEPILOG */ 0250 00215000 * END ISTAPC35; 0250 00216000 B @EL00001 0250 00217000 @DATA DS 0H 00218000 @DATD DSECT 00219000 DS 0F 00220000 ISTAPC35 CSECT 00221000 DS 0F 00222000 @CF00075 DC F'4' 00223000 @CF00040 DC F'8' 00224000 @CF00856 DC F'12' 00225000 @CF00129 DC XL4'08000000' 00226000 @CF00147 DC XL4'00000001' 00227000 @CF00149 DC XL4'00000002' 00228000 @CF00151 DC XL4'00FFFFFC' 00229000 @CF00153 DC XL4'01000000' 00230000 @CF00155 DC XL4'FF000000' 00231000 @CF01544 DC XL4'00FFFFFF' 00232000 @DATD DSECT 00233000 DS 0D 00234000 LCPBPTR DS A 00235000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00236000 @ENDDATD EQU * 00237000 ISTAPC35 CSECT 00238000 DS 0F 00239000 @SIZDATD DC AL1(0) 00240000 DC AL3(@ENDDATD-@DATD) 00241000 DS 0D 00242000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00243000 @01 EQU 01 00244000 @02 EQU 02 00245000 @03 EQU 03 00246000 @04 EQU 04 00247000 @05 EQU 05 00248000 @06 EQU 06 00249000 @07 EQU 07 00250000 @08 EQU 08 00251000 @09 EQU 09 00252000 @10 EQU 10 00253000 @11 EQU 11 00254000 @12 EQU 12 00255000 @13 EQU 13 00256000 @14 EQU 14 00257000 @15 EQU 15 00258000 RPHPTR EQU @01 00259000 RPHREG EQU @01 00260000 LOKREG EQU @02 00261000 CRALXREG EQU @03 00262000 CRAREG EQU @04 00263000 DOWREG EQU @07 00264000 SWBREG EQU @08 00265000 RETSV EQU @11 00266000 GPR12 EQU @12 00267000 GPR14 EQU @14 00268000 LEVELREG EQU @00 00269000 TEMPREG EQU @05 00270000 NEWREG EQU @05 00271000 REG15 EQU @15 00272000 GPR2 EQU @02 00273000 GPR3 EQU @03 00274000 GPR15 EQU @15 00275000 GPR01P EQU @01 00276000 GPR14P EQU @14 00277000 GPR15P EQU @15 00278000 GPR00F EQU @00 00279000 GPR00P EQU @00 00280000 GPR01F EQU @01 00281000 GPR14F EQU @14 00282000 GPR15F EQU @15 00283000 ATCLCPTR EQU 1032 00284000 ISTRPH EQU 0 00285000 RPHCNTL EQU ISTRPH 00286000 RPHFLAGS EQU RPHCNTL+2 00287000 RPHAPTYP EQU RPHFLAGS 00288000 RPHFSTLC EQU RPHFLAGS 00289000 RPHFLGB EQU RPHCNTL+3 00290000 RPHRPHA EQU ISTRPH+4 00291000 RPHGATE EQU RPHRPHA 00292000 RPHTSKID EQU ISTRPH+8 00293000 RPHRESMA EQU ISTRPH+16 00294000 RPHWPFLG EQU RPHRESMA 00295000 RPHWEA EQU ISTRPH+24 00296000 RPHCSPA EQU RPHWEA 00297000 RPHSRPRM EQU ISTRPH+28 00298000 RPHPABQA EQU ISTRPH+36 00299000 RPHWORK EQU ISTRPH+40 00300000 RPHSAVE1 EQU RPHWORK 00301000 RPHSBITS EQU RPHSAVE1+1 00302000 RPHSAV16 EQU RPHWORK+60 00303000 ISTLOK EQU 0 00304000 LOKCHN EQU ISTLOK+1 00305000 LOKCHNG EQU LOKCHN 00306000 @NM00005 EQU LOKCHNG+2 00307000 ISTLCCW EQU 0 00308000 LCCWOP EQU ISTLCCW 00309000 LCCWRWOP EQU LCCWOP 00310000 LCCWCTL EQU LCCWRWOP 00311000 LCCWFLAG EQU ISTLCCW+1 00312000 LCCWLSI EQU LCCWFLAG 00313000 ISTLCPB EQU 0 00314000 LCPREQTG EQU ISTLCPB+2 00315000 LCPFLAGS EQU LCPREQTG 00316000 LCPZF001 EQU LCPFLAGS 00317000 LCPZRT02 EQU LCPZF001 00318000 LCPZF002 EQU LCPFLAGS 00319000 LCPZRT03 EQU LCPZF002 00320000 LCPZF003 EQU LCPFLAGS 00321000 LCPZRT04 EQU LCPZF003 00322000 LCPZF004 EQU LCPFLAGS 00323000 LCPZRT05 EQU LCPZF004 00324000 LCPZRT06 EQU LCPFLAGS 00325000 LCPZRT07 EQU LCPFLAGS 00326000 LCPMNRCD EQU LCPREQTG+1 00327000 LCPZRT08 EQU LCPMNRCD 00328000 LCPZRT09 EQU LCPMNRCD 00329000 LCPCHAIN EQU ISTLCPB+4 00330000 LCPCHAI1 EQU LCPCHAIN 00331000 LCPRUCNT EQU ISTLCPB+8 00332000 LCPFLAG2 EQU ISTLCPB+9 00333000 LCPTLBPI EQU LCPFLAG2 00334000 LCPFID0 EQU LCPFLAG2 00335000 LCPSEQ EQU ISTLCPB+10 00336000 LCPCID EQU ISTLCPB+16 00337000 LCPFDBA EQU ISTLCPB+24 00338000 LCPFLG1 EQU ISTLCPB+37 00339000 LCPFLCCW EQU ISTLCPB+40 00340000 LCPLCCW EQU ISTLCPB+48 00341000 LCPPABA EQU LCPLCCW+4 00342000 LCPRPHA EQU LCPPABA 00343000 ISTZSAVE EQU 0 00344000 ZSAZSVBC EQU ISTZSAVE 00345000 ZSAZSVMS EQU ZSAZSVBC 00346000 ISTPFCRR EQU 0 00347000 PFCCRR EQU ISTPFCRR 00348000 PFCCRRID EQU PFCCRR 00349000 PFCCRRLN EQU PFCCRR+2 00350000 PFCHDR EQU ISTPFCRR+4 00351000 PFCCRRO EQU PFCHDR 00352000 PFCFRRO EQU PFCHDR+4 00353000 ISTCFCRR EQU 0 00354000 CFCAUDIT EQU ISTCFCRR 00355000 CFCNTRD EQU CFCAUDIT 00356000 CFCCRT EQU CFCAUDIT+1 00357000 ISTZCRR EQU 0 00358000 ZCRCRR EQU ISTZCRR 00359000 ZCRFLGS1 EQU ISTZCRR+12 00360000 ZCRFLGS2 EQU ISTZCRR+13 00361000 ZCRSWFLD EQU ISTZCRR+14 00362000 ZCRENDSH EQU ZCRSWFLD 00363000 ZCRNDLCP EQU ZCRSWFLD 00364000 ZCRRESET EQU ZCRSWFLD 00365000 ZCRFLGS3 EQU ISTZCRR+15 00366000 ZCRGENSW EQU ISTZCRR+16 00367000 ZCRPFLGS EQU ISTZCRR+17 00368000 ZCRIBPR EQU ISTZCRR+18 00369000 ZCRSCPSW EQU ISTZCRR+19 00370000 ZCRPARMS EQU ISTZCRR+24 00371000 ZCRFBPTR EQU ZCRPARMS 00372000 ZCRDFRDA EQU ZCRPARMS+10 00373000 ZCRPCOD1 EQU ZCRPARMS+12 00374000 ZCRPLSBF EQU ZCRPCOD1 00375000 ZCRPCOD2 EQU ZCRPARMS+13 00376000 ZCRSVRTN EQU ISTZCRR+56 00377000 ZCRWKARA EQU ISTZCRR+156 00378000 ZCRCIDSV EQU ISTZCRR+192 00379000 ZCRAUDIT EQU ISTZCRR+440 00380000 ZCRENTER EQU ZCRAUDIT+5 00381000 ZCRLCPB EQU ISTZCRR+480 00382000 ZCRRHRU EQU ZCRLCPB 00383000 ISTASCRR EQU 0 00384000 ASCFLAGS EQU ISTASCRR+16 00385000 ASCFLG1 EQU ASCFLAGS 00386000 ASCFLG2 EQU ASCFLAGS+2 00387000 ASCFLG3 EQU ASCFLAGS+4 00388000 ASCUSRGS EQU ISTASCRR+28 00389000 ISTAPCRR EQU 0 00390000 APCATFLG EQU ISTAPCRR+16 00391000 APCRFLG EQU ISTAPCRR+18 00392000 APCSAVE EQU ISTAPCRR+44 00393000 APCCOMF EQU ISTAPCRR+116 00394000 APCCOMF1 EQU APCCOMF 00395000 APC31FLG EQU ISTAPCRR+132 00396000 APC52FLG EQU ISTAPCRR+133 00397000 APC53FLG EQU ISTAPCRR+134 00398000 APC54FLG EQU ISTAPCRR+135 00399000 APC57FLG EQU ISTAPCRR+136 00400000 ISTCRA EQU 0 00401000 CRABASIC EQU ISTCRA 00402000 CRAHDR EQU CRABASIC 00403000 CRALKACT EQU CRABASIC+8 00404000 CRASVC EQU ISTCRA+848 00405000 CRABUFA EQU CRASVC+68 00406000 ISTPAB EQU 0 00407000 PABWQCHN EQU ISTPAB 00408000 PABWEQA EQU PABWQCHN 00409000 PABCHAIN EQU PABWQCHN+4 00410000 PABRPHFG EQU ISTPAB+12 00411000 PABFLAGS EQU PABRPHFG 00412000 PABERLCK EQU PABFLAGS 00413000 PABERRLK EQU PABERLCK 00414000 ISTDYPAB EQU 0 00415000 ISTATCVT EQU 0 00416000 ATCCOM EQU ISTATCVT 00417000 ATCSTAT EQU ATCCOM 00418000 ATCSTAT1 EQU ATCSTAT 00419000 ATCSTFLG EQU ATCSTAT+1 00420000 ATCPOFLG EQU ATCSTAT+2 00421000 ATCSTAT4 EQU ATCSTAT+3 00422000 ATCIOTRC EQU ATCCOM+140 00423000 ATCTHTRC EQU ATCIOTRC 00424000 ATCCSMR EQU ISTATCVT+296 00425000 ATCSHRFG EQU ISTATCVT+316 00426000 ATCHPGM EQU ISTATCVT+384 00427000 ATCVLCNT EQU ISTATCVT+772 00428000 ATCRNO EQU ISTATCVT+788 00429000 ATCSOPD EQU ISTATCVT+792 00430000 ATCSIPD EQU ISTATCVT+800 00431000 ATCSECST EQU ISTATCVT+812 00432000 ATCSTAT2 EQU ISTATCVT+818 00433000 @NM00026 EQU ISTATCVT+911 00434000 ATCAOSM EQU ISTATCVT+912 00435000 ATCGSRBQ EQU ATCAOSM+4 00436000 ATCGSRBG EQU ATCGSRBQ 00437000 ATCAP31 EQU ATCAOSM+24 00438000 ATCICAPP EQU ATCAOSM+100 00439000 ATCLDAPP EQU ATCAOSM+120 00440000 ATCDAPVT EQU ATCAOSM+140 00441000 ATCVTFLG EQU ATCAOSM+392 00442000 ATCZFLAG EQU ATCAOSM+588 00443000 LOKPTRWD EQU 0 00444000 LOCKWORD EQU 0 00445000 FMZL0008 EQU 0 00446000 LCPZTIE EQU LCPCID 00447000 LCPZSNAM EQU LCPZTIE+8 00448000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00449000 LCPZTRV4 EQU LCPZSNAM+4 00450000 LCPZTRV1 EQU LCPZSNAM 00451000 LCPZSNA EQU LCPZTIE+4 00452000 LCPZFMCA EQU LCPZTIE 00453000 ATCAOS EQU ISTATCVT+1584 00454000 ATCPOPAB EQU ATCAOSM+640 00455000 ATCVIOPM EQU ATCAOSM+636 00456000 ATCTPMMI EQU ATCAOSM+632 00457000 ATCTPMPB EQU ATCAOSM+600 00458000 ATCRSV88 EQU ATCAOSM+596 00459000 ATCRPLCT EQU ATCAOSM+594 00460000 ATCCRACT EQU ATCAOSM+592 00461000 ATCSRBCT EQU ATCAOSM+590 00462000 ATCRSV75 EQU ATCAOSM+589 00463000 ATCRSV66 EQU ATCZFLAG 00464000 ATCZF001 EQU ATCZFLAG 00465000 ATCTPCP1 EQU ATCAOSM+584 00466000 ATCTPCP0 EQU ATCAOSM+580 00467000 ATCAICTN EQU ATCAOSM+576 00468000 ATCZR01 EQU ATCAOSM+572 00469000 ATCMPLTA EQU ATCAOSM+568 00470000 ATCASCB EQU ATCAOSM+564 00471000 ATCAP86 EQU ATCAOSM+560 00472000 ATCAP85 EQU ATCAOSM+556 00473000 ATCAP84 EQU ATCAOSM+552 00474000 ATCAP83 EQU ATCAOSM+548 00475000 ATCAP82 EQU ATCAOSM+544 00476000 ATCAP69 EQU ATCAOSM+540 00477000 ATCAP66 EQU ATCAOSM+536 00478000 ATCAP62 EQU ATCAOSM+532 00479000 ATCAPC59 EQU ATCAOSM+528 00480000 ATCAP56 EQU ATCAOSM+524 00481000 ATCAP55 EQU ATCAOSM+520 00482000 ATCRCFY0 EQU ATCAOSM+516 00483000 ATCAP41 EQU ATCAOSM+512 00484000 ATCAPC25 EQU ATCAOSM+508 00485000 ATCAP23 EQU ATCAOSM+504 00486000 ATCTPSPB EQU ATCAOSM+472 00487000 ATCTRMPB EQU ATCAOSM+440 00488000 ATCAPBE EQU ATCAOSM+436 00489000 ATCPSTA EQU ATCAOSM+432 00490000 ATCSMABF EQU ATCAOSM+428 00491000 ATCSMAPR EQU ATCAOSM+424 00492000 ATCTPWQA EQU ATCAOSM+420 00493000 ATCSMAID EQU ATCAOSM+416 00494000 ATCSMARA EQU ATCAOSM+412 00495000 ATCCACXA EQU ATCAOSM+408 00496000 ATCZLAAB EQU ATCAOSM+404 00497000 ATCATA10 EQU ATCAOSM+400 00498000 ATCHLTCB EQU ATCAOSM+396 00499000 @NM00028 EQU ATCVTFLG 00500000 ATCVTACT EQU ATCVTFLG 00501000 ATCRPT40 EQU ATCAOSM+388 00502000 ATCRPT39 EQU ATCAOSM+384 00503000 ATCRPT38 EQU ATCAOSM+380 00504000 ATCRPT37 EQU ATCAOSM+376 00505000 ATCRPT36 EQU ATCAOSM+372 00506000 ATCRPT35 EQU ATCAOSM+368 00507000 ATCRPT34 EQU ATCAOSM+364 00508000 ATCRPT33 EQU ATCAOSM+360 00509000 ATCRPT32 EQU ATCAOSM+356 00510000 ATCRPT31 EQU ATCAOSM+352 00511000 ATCRPT30 EQU ATCAOSM+348 00512000 ATCRPT29 EQU ATCAOSM+344 00513000 ATCRPT28 EQU ATCAOSM+340 00514000 ATCRPT27 EQU ATCAOSM+336 00515000 ATCRPT26 EQU ATCAOSM+332 00516000 ATCRPT25 EQU ATCAOSM+328 00517000 ATCRPT24 EQU ATCAOSM+324 00518000 ATCRPT23 EQU ATCAOSM+320 00519000 ATCRPT22 EQU ATCAOSM+316 00520000 ATCRPT21 EQU ATCAOSM+312 00521000 ATCRPT20 EQU ATCAOSM+308 00522000 ATCRPT19 EQU ATCAOSM+304 00523000 ATCRPT18 EQU ATCAOSM+300 00524000 ATCRPT17 EQU ATCAOSM+296 00525000 ATCRPT16 EQU ATCAOSM+292 00526000 ATCRPT15 EQU ATCAOSM+288 00527000 ATCRPT14 EQU ATCAOSM+284 00528000 ATCRPT13 EQU ATCAOSM+280 00529000 ATCRPT12 EQU ATCAOSM+276 00530000 ATCDMAPP EQU ATCAOSM+272 00531000 ATCAP38 EQU ATCAOSM+268 00532000 ATCAP37 EQU ATCAOSM+264 00533000 ATCZDFJ0 EQU ATCAOSM+260 00534000 ATCAP51 EQU ATCAOSM+256 00535000 ATCZPAB2 EQU ATCAOSM+224 00536000 ATCZPAB1 EQU ATCAOSM+192 00537000 ATCZLFVT EQU ATCAOSM+188 00538000 ATCZLPVT EQU ATCAOSM+184 00539000 ATCZDVTX EQU ATCAOSM+180 00540000 ATCZDVTA EQU ATCAOSM+176 00541000 ATCZDVT9 EQU ATCAOSM+172 00542000 ATCZDVT8 EQU ATCAOSM+168 00543000 ATCZDVT7 EQU ATCAOSM+164 00544000 ATCRSV56 EQU ATCDAPVT+22 00545000 ATCDAPDG EQU ATCDAPVT+20 00546000 ATCDXCEA EQU ATCDAPVT+16 00547000 ATCDCEA EQU ATCDAPVT+12 00548000 ATCDPCIA EQU ATCDAPVT+8 00549000 ATCDSIOA EQU ATCDAPVT+4 00550000 ATCDEOEA EQU ATCDAPVT 00551000 ATCZLAEA EQU ATCLDAPP+16 00552000 ATCZLCEA EQU ATCLDAPP+12 00553000 ATCRSV17 EQU ATCLDAPP+8 00554000 ATCSMFRR EQU ATCLDAPP+4 00555000 ATCCDTID EQU ATCLDAPP 00556000 ATCZAEA EQU ATCICAPP+16 00557000 ATCZCEA EQU ATCICAPP+12 00558000 ATCCDTCB EQU ATCICAPP+8 00559000 ATCZSIOA EQU ATCICAPP+4 00560000 ATCCDRPH EQU ATCICAPP 00561000 ATCAP65 EQU ATCAOSM+96 00562000 ATCZDVT6 EQU ATCAOSM+92 00563000 ATCZDVT4 EQU ATCAOSM+88 00564000 ATCZDVT3 EQU ATCAOSM+84 00565000 ATCZDVT1 EQU ATCAOSM+80 00566000 ATCICNCB EQU ATCAOSM+76 00567000 ATCZPSVT EQU ATCAOSM+72 00568000 ATCZFSVT EQU ATCAOSM+68 00569000 ATCAP64 EQU ATCAOSM+64 00570000 ATCAP63 EQU ATCAOSM+60 00571000 ATCAP61 EQU ATCAOSM+56 00572000 ATCAP58 EQU ATCAOSM+52 00573000 ATCAP57 EQU ATCAOSM+48 00574000 ATCAP54 EQU ATCAOSM+44 00575000 ATCAP53 EQU ATCAOSM+40 00576000 ATCAP52 EQU ATCAOSM+36 00577000 ATCAP34 EQU ATCAOSM+32 00578000 ATCAP32 EQU ATCAOSM+28 00579000 ATCAP12 EQU ATCAOSM+20 00580000 ATCAP11 EQU ATCAOSM+16 00581000 ATCCMTCB EQU ATCAOSM+12 00582000 ATCPRPH EQU ATCAOSM+8 00583000 ATCGSRBF EQU ATCGSRBG 00584000 ATCSRBRT EQU ATCAOSM 00585000 @NM00027 EQU @NM00026 00586000 ATCVTMAB EQU @NM00026 00587000 @NM00025 EQU ISTATCVT+908 00588000 ATCVDLOK EQU ISTATCVT+904 00589000 ATCVFPAB EQU ISTATCVT+872 00590000 ATCVDPAB EQU ISTATCVT+840 00591000 ATCIOECB EQU ISTATCVT+836 00592000 ATCINCW3 EQU ISTATCVT+832 00593000 ATCMODTB EQU ISTATCVT+828 00594000 ATCUSSPT EQU ISTATCVT+824 00595000 ATCSRTAB EQU ISTATCVT+820 00596000 @NM00024 EQU ISTATCVT+819 00597000 @NM00023 EQU ATCSTAT2 00598000 ATCTRSMS EQU ATCSTAT2 00599000 ATCTRLOK EQU ATCSTAT2 00600000 ATCTRPSS EQU ATCSTAT2 00601000 ATCTRESC EQU ATCSTAT2 00602000 ATCTRAPI EQU ATCSTAT2 00603000 ATCNMCTR EQU ISTATCVT+816 00604000 ATCSEC51 EQU ATCSECST 00605000 ATCSEC40 EQU ATCSIPD+8 00606000 ATCSEC30 EQU ATCSIPD+4 00607000 ATCSEC21 EQU ATCSIPD 00608000 ATCSEC10 EQU ATCSOPD+4 00609000 ATCSEC01 EQU ATCSOPD 00610000 ATCPOIA EQU ATCRNO+1 00611000 @NM00022 EQU ATCRNO 00612000 ATCPODVT EQU ISTATCVT+784 00613000 ATCS49XL EQU ISTATCVT+780 00614000 ATCS49XI EQU ISTATCVT+776 00615000 ATCLCLCT EQU ATCVLCNT+2 00616000 ATCRNCNT EQU ATCVLCNT 00617000 ATCCFEAD EQU ISTATCVT+768 00618000 ATCPTR00 EQU ISTATCVT+736 00619000 ATCRSV10 EQU ISTATCVT+704 00620000 ATCTACB EQU ISTATCVT+700 00621000 ATCVTINM EQU ISTATCVT+696 00622000 ATCTCLIM EQU ISTATCVT+692 00623000 ATCTCLOM EQU ISTATCVT+688 00624000 ATCVTIPB EQU ISTATCVT+656 00625000 ATCTCIPB EQU ISTATCVT+624 00626000 ATCTIPAB EQU ISTATCVT+592 00627000 ATCOCCCB EQU ISTATCVT+588 00628000 ATCOCCOB EQU ISTATCVT+584 00629000 ATCCDLAD EQU ISTATCVT+580 00630000 ATCCCLAD EQU ISTATCVT+576 00631000 ATCDLRPB EQU ISTATCVT+544 00632000 ATCPGPAB EQU ISTATCVT+512 00633000 ATCVPAB1 EQU ISTATCVT+480 00634000 ATCRSV97 EQU ISTATCVT+476 00635000 ATCRDTLK EQU ISTATCVT+472 00636000 ATCVOCLK EQU ISTATCVT+468 00637000 ATCCDFDN EQU ISTATCVT+464 00638000 ATCCDFIN EQU ISTATCVT+460 00639000 ATCDVTLK EQU ISTATCVT+456 00640000 ATCAP36 EQU ISTATCVT+452 00641000 ATCAP35 EQU ISTATCVT+448 00642000 ATCAP33 EQU ISTATCVT+444 00643000 ATCRSV99 EQU ISTATCVT+440 00644000 ATCONFIG EQU ISTATCVT+432 00645000 ATCNODDS EQU ISTATCVT+428 00646000 ATCNODEL EQU ISTATCVT+420 00647000 ATCRSV69 EQU ISTATCVT+416 00648000 ATCAPCR5 EQU ISTATCVT+412 00649000 ATCLDECB EQU ISTATCVT+408 00650000 ATCLDNCS EQU ISTATCVT+404 00651000 ATCCDPTR EQU ISTATCVT+400 00652000 ATCADEL EQU ISTATCVT+396 00653000 ATCTODVT EQU ISTATCVT+392 00654000 ATCDEBCH EQU ISTATCVT+388 00655000 ATCHBSIZ EQU ATCHPGM+2 00656000 ATCHBFNO EQU ATCHPGM 00657000 ATCCRME EQU ISTATCVT+380 00658000 ATCRVCHS EQU ISTATCVT+372 00659000 ATCECTLP EQU ISTATCVT+368 00660000 ATCZDVTB EQU ISTATCVT+364 00661000 ATCECPRT EQU ISTATCVT+360 00662000 ATCVTLOD EQU ISTATCVT+356 00663000 ATCTRPAB EQU ISTATCVT+352 00664000 ATCMSGM EQU ISTATCVT+348 00665000 ATCMSGP EQU ISTATCVT+344 00666000 ATCEPT EQU ISTATCVT+340 00667000 ATCDVT EQU ISTATCVT+336 00668000 ATCTRCPT EQU ISTATCVT+332 00669000 ATCDVLOD EQU ISTATCVT+328 00670000 ATCALERT EQU ISTATCVT+324 00671000 ATCEPA EQU ISTATCVT+320 00672000 ATCSAF EQU ISTATCVT+318 00673000 ATCXRANG EQU ISTATCVT+317 00674000 ATCLAST EQU ATCSHRFG 00675000 ATCSHRTN EQU ISTATCVT+308 00676000 ATCUEP EQU ISTATCVT+304 00677000 ATCOCRT EQU ISTATCVT+300 00678000 ATCCSMA EQU ATCCSMR 00679000 ATCESC02 EQU ISTATCVT+292 00680000 ATCESC01 EQU ISTATCVT+288 00681000 ATCCDFND EQU ISTATCVT+284 00682000 ATCCDDEL EQU ISTATCVT+280 00683000 ATCCDADD EQU ISTATCVT+276 00684000 ATCMNT EQU ISTATCVT+272 00685000 ATCRSV16 EQU ISTATCVT+270 00686000 ATCMAXID EQU ISTATCVT+269 00687000 ATCMSGSP EQU ATCCOM+268 00688000 ATCCIDM EQU ATCCOM+266 00689000 ATCACTRM EQU ATCCOM+264 00690000 ATCNERAP EQU ATCCOM+260 00691000 ATCNESAL EQU ATCCOM+256 00692000 ATCRCC65 EQU ATCCOM+252 00693000 ATCRCC26 EQU ATCCOM+248 00694000 ATCRCC63 EQU ATCCOM+244 00695000 ATCRSV11 EQU ATCCOM+242 00696000 ATCVTMID EQU ATCCOM+240 00697000 ATCAPOST EQU ATCCOM+236 00698000 ATCNERFN EQU ATCCOM+232 00699000 ATCNERNE EQU ATCCOM+228 00700000 ATCNERCV EQU ATCCOM+224 00701000 ATCNERST EQU ATCCOM+220 00702000 ATCDCC61 EQU ATCCOM+216 00703000 ATCDCC60 EQU ATCCOM+212 00704000 ATCSRTDF EQU ATCCOM+208 00705000 ATCSRTAD EQU ATCCOM+204 00706000 ATCFIRA EQU ATCCOM+200 00707000 ATCSMBQ EQU ATCCOM+196 00708000 ATCSMRC EQU ATCCOM+192 00709000 ATCSMRS EQU ATCCOM+188 00710000 ATCSMQU EQU ATCCOM+184 00711000 ATCSMRQ EQU ATCCOM+180 00712000 ATCACDA EQU ATCCOM+176 00713000 ATCSTMA EQU ATCCOM+172 00714000 ATCFRSTR EQU ATCCOM+168 00715000 ATCGTSTR EQU ATCCOM+164 00716000 ATCREADA EQU ATCCOM+160 00717000 ATCALOAD EQU ATCCOM+156 00718000 ATCBLDLA EQU ATCCOM+152 00719000 ATCFBRPH EQU ATCCOM+148 00720000 ATCBFTRC EQU ATCCOM+144 00721000 ATCTPBUF EQU ATCTHTRC 00722000 ATCREMOV EQU ATCCOM+136 00723000 ATCADD EQU ATCCOM+132 00724000 ATCBPDA EQU ATCCOM+128 00725000 ATCDVTPT EQU ATCCOM+124 00726000 ATCFEPT EQU ATCCOM+120 00727000 ATCFDVT EQU ATCCOM+116 00728000 ATCCONFT EQU ATCCOM+112 00729000 ATCPTCHA EQU ATCCOM+108 00730000 ATCAUTHA EQU ATCCOM+104 00731000 ATCACCTA EQU ATCCOM+100 00732000 ATCRDTH EQU ATCCOM+96 00733000 ATCFRSCH EQU ATCCOM+92 00734000 ATCFSB EQU ATCCOM+88 00735000 ATCHLTMS EQU ATCCOM+84 00736000 ATCECPRM EQU ATCCOM+80 00737000 ATCECNET EQU ATCCOM+76 00738000 ATCECOPC EQU ATCCOM+72 00739000 ATCVPARM EQU ATCCOM+68 00740000 ATCECVRQ EQU ATCCOM+64 00741000 ATCECSES EQU ATCCOM+60 00742000 ATCOCHA EQU ATCCOM+56 00743000 ATCDSPLQ EQU ATCCOM+52 00744000 ATCECDSP EQU ATCCOM+48 00745000 ATCVARYQ EQU ATCCOM+44 00746000 ATCECVRY EQU ATCCOM+40 00747000 ATCHALTQ EQU ATCCOM+36 00748000 ATCECHLT EQU ATCCOM+32 00749000 ATCMODQ EQU ATCCOM+28 00750000 ATCECMOD EQU ATCCOM+24 00751000 ATCASCHD EQU ATCCOM+20 00752000 ATCSRT EQU ATCCOM+16 00753000 ATCRDT EQU ATCCOM+12 00754000 ATCDCFRR EQU ATCCOM+8 00755000 ATCAPI EQU ATCCOM+4 00756000 ATCRSV04 EQU ATCSTAT4 00757000 ATCVTTRC EQU ATCSTAT4 00758000 ATCNCSD EQU ATCSTAT4 00759000 ATCMTST EQU ATCSTAT4 00760000 ATCTPRT EQU ATCSTAT4 00761000 ATCPRTAT EQU ATCSTAT4 00762000 @NM00021 EQU ATCPOFLG 00763000 ATCPOUNS EQU ATCPOFLG 00764000 ATCHSDMF EQU ATCSTFLG 00765000 @NM00020 EQU ATCSTAT1 00766000 ATCMDHLT EQU ATCSTAT1 00767000 ATCINHLT EQU ATCSTAT1 00768000 ATCNETSL EQU ATCSTAT1 00769000 ATCQKHLT EQU ATCSTAT1 00770000 ATCSNHLT EQU ATCSTAT1 00771000 ATCACTIV EQU ATCSTAT1 00772000 ATCSTART EQU ATCSTAT1 00773000 DYPPAB EQU ISTDYPAB+16 00774000 DYPRSV01 EQU ISTDYPAB+12 00775000 DYPTSKID EQU ISTDYPAB+8 00776000 DYPCHAIN EQU ISTDYPAB+4 00777000 DYPFLGS EQU ISTDYPAB+2 00778000 DYPLNGTH EQU ISTDYPAB+1 00779000 DYPTYPE EQU ISTDYPAB 00780000 PABRPHA EQU PABRPHFG+1 00781000 PABNODQ EQU PABFLAGS 00782000 PABINHBT EQU PABFLAGS 00783000 PABERLOK EQU PABERRLK 00784000 PABSSN EQU PABFLAGS 00785000 PABDYNAM EQU PABFLAGS 00786000 PABNORPR EQU PABFLAGS 00787000 PABPRIOR EQU PABFLAGS 00788000 PABAPYP EQU PABFLAGS 00789000 PABDVTA EQU ISTPAB+9 00790000 PABOFFST EQU ISTPAB+8 00791000 PABCHNGP EQU PABCHAIN+1 00792000 PABRSV02 EQU PABCHAIN 00793000 PABRUNNG EQU PABCHAIN 00794000 PABRESET EQU PABCHAIN 00795000 PABUNCON EQU PABCHAIN 00796000 PABCDP EQU PABCHAIN 00797000 PABRESCH EQU PABCHAIN 00798000 PABCHNG EQU PABCHAIN 00799000 PABWEQP EQU PABWEQA+1 00800000 PABRSV01 EQU PABWEQA 00801000 PABWEQG EQU PABWEQA 00802000 CRACHAIN EQU ISTCRA+928 00803000 CRARSV02 EQU ISTCRA+924 00804000 CRARSV01 EQU ISTCRA+920 00805000 CRABFTBA EQU CRABUFA 00806000 CRAMASK EQU CRASVC+64 00807000 CRAHSIZ EQU CRASVC+60 00808000 CRAASCRR EQU CRASVC 00809000 CRAPROCR EQU ISTCRA+312 00810000 CRAPSS EQU ISTCRA+160 00811000 CRARPH EQU ISTCRA+52 00812000 CRALAPTR EQU CRABASIC+48 00813000 CRAL9PTR EQU CRABASIC+44 00814000 CRAL8PTR EQU CRABASIC+40 00815000 CRAL7PTR EQU CRABASIC+36 00816000 CRAL6PTR EQU CRABASIC+32 00817000 CRAL5PTR EQU CRABASIC+28 00818000 CRAL4PTR EQU CRABASIC+24 00819000 CRAL3PTR EQU CRABASIC+20 00820000 CRAL2PTR EQU CRABASIC+16 00821000 CRAL1PTR EQU CRABASIC+12 00822000 CRALEV01 EQU CRALKACT+3 00823000 CRALEV02 EQU CRALKACT+3 00824000 CRALEV03 EQU CRALKACT+3 00825000 CRALEV04 EQU CRALKACT+3 00826000 CRALEV05 EQU CRALKACT+3 00827000 CRALEV06 EQU CRALKACT+3 00828000 CRALEV07 EQU CRALKACT+3 00829000 CRALEV08 EQU CRALKACT+3 00830000 CRALEV09 EQU CRALKACT+2 00831000 CRALEV10 EQU CRALKACT+2 00832000 CRALEV11 EQU CRALKACT+2 00833000 CRALEV12 EQU CRALKACT+2 00834000 CRALEV13 EQU CRALKACT+2 00835000 CRALEV14 EQU CRALKACT+2 00836000 CRALEV15 EQU CRALKACT+2 00837000 CRALEV16 EQU CRALKACT+2 00838000 CRALEV17 EQU CRALKACT+1 00839000 CRALEV18 EQU CRALKACT+1 00840000 CRALEV19 EQU CRALKACT+1 00841000 CRALEV20 EQU CRALKACT+1 00842000 CRALEV21 EQU CRALKACT+1 00843000 CRALEV22 EQU CRALKACT+1 00844000 CRALEV23 EQU CRALKACT+1 00845000 CRALEV24 EQU CRALKACT+1 00846000 CRALEV25 EQU CRALKACT 00847000 CRALEV26 EQU CRALKACT 00848000 CRALEV27 EQU CRALKACT 00849000 CRALEV28 EQU CRALKACT 00850000 CRALEV29 EQU CRALKACT 00851000 CRALEV30 EQU CRALKACT 00852000 CRALEV31 EQU CRALKACT 00853000 CRALEV32 EQU CRALKACT 00854000 CRAFRR EQU CRAHDR+4 00855000 CRACRR EQU CRAHDR 00856000 @NM00019 EQU ISTAPCRR+137 00857000 @NM00018 EQU APC57FLG 00858000 APCNREL EQU APC57FLG 00859000 APCRECRA EQU APC57FLG 00860000 @NM00017 EQU APC54FLG 00861000 APCRLST EQU APC54FLG 00862000 APCPR153 EQU APC53FLG 00863000 @NM00016 EQU APC52FLG 00864000 APCWKF EQU APC52FLG 00865000 APCNWF EQU APC52FLG 00866000 APCRDQ EQU APC52FLG 00867000 APCQENQ EQU APC52FLG 00868000 APCSMSR EQU APC52FLG 00869000 APCCKRQ EQU APC52FLG 00870000 @NM00015 EQU APC31FLG 00871000 APCSORT EQU APC31FLG 00872000 APCRESCH EQU APC31FLG 00873000 APCTPXIT EQU APC31FLG 00874000 APCSWTWD EQU ISTAPCRR+128 00875000 APCSAV2 EQU ISTAPCRR+124 00876000 APCSAV1 EQU ISTAPCRR+120 00877000 APCRETCD EQU APCCOMF+2 00878000 @NM00014 EQU APCCOMF1+1 00879000 APCZLBER EQU APCCOMF1 00880000 APCEXIT EQU APCCOMF1 00881000 APCRELR EQU APCCOMF1 00882000 APCIRB2 EQU APCCOMF1 00883000 APCIRB1 EQU APCCOMF1 00884000 APCSMCR EQU APCCOMF1 00885000 APCUETSK EQU APCCOMF1 00886000 APCSSTSK EQU APCCOMF1 00887000 APCESTAL EQU APCSAVE 00888000 APCFRRPM EQU ISTAPCRR+40 00889000 APCQWFO EQU ISTAPCRR+36 00890000 APCPABSV EQU ISTAPCRR+32 00891000 APCRTRN EQU ISTAPCRR+28 00892000 APCTCBA EQU ISTAPCRR+24 00893000 APCPSTA EQU ISTAPCRR+20 00894000 @NM00013 EQU APCRFLG+1 00895000 APC31R EQU APCRFLG 00896000 APC58R EQU APCRFLG 00897000 APC57R EQU APCRFLG 00898000 APC56R EQU APCRFLG 00899000 APC54R EQU APCRFLG 00900000 APC53R EQU APCRFLG 00901000 APC52R EQU APCRFLG 00902000 APC51R EQU APCRFLG 00903000 @NM00012 EQU APCATFLG+1 00904000 APC31E EQU APCATFLG 00905000 APC58E EQU APCATFLG 00906000 APC57E EQU APCATFLG 00907000 APC56E EQU APCATFLG 00908000 APC54E EQU APCATFLG 00909000 APC53E EQU APCATFLG 00910000 APC52E EQU APCATFLG 00911000 APC51E EQU APCATFLG 00912000 APCHDRSV EQU ISTAPCRR 00913000 ASCPSREG EQU ISTASCRR+44 00914000 ASCUSR01 EQU ASCUSRGS+12 00915000 ASCUSR00 EQU ASCUSRGS+8 00916000 ASCUSR15 EQU ASCUSRGS+4 00917000 ASCUSR14 EQU ASCUSRGS 00918000 ASCETRYA EQU ISTASCRR+24 00919000 ASCKEY EQU ISTASCRR+23 00920000 ASCAUDIT EQU ASCFLG3 00921000 ASCFBDUD EQU ASCFLG3 00922000 ASCLLKF EQU ASCFLG3 00923000 ASCKEYF EQU ASCFLG3 00924000 ASCFBDAL EQU ASCFLG3 00925000 ASCFSRGT EQU ASCFLG3 00926000 ASCICR EQU ASCFLG2 00927000 ASCFSRIC EQU ASCFLG2 00928000 ASCFBDIC EQU ASCFLG2 00929000 ASCFBAIC EQU ASCFLG2 00930000 ASCPASTR EQU ASCFLG1 00931000 ASCFSR EQU ASCFLG1 00932000 ASCFBD EQU ASCFLG1 00933000 ASCFBA EQU ASCFLG1 00934000 ASCPFCRR EQU ISTASCRR 00935000 ZCRRU EQU ZCRRHRU+3 00936000 ZCRRH EQU ZCRRHRU 00937000 ZCRWORDA EQU ISTZCRR+477 00938000 ZCRCMNRC EQU ISTZCRR+476 00939000 ZCRRSV97 EQU ZCRENTER+18 00940000 ZCREIC2B EQU ZCRENTER+18 00941000 ZCREAC2B EQU ZCRENTER+18 00942000 ZCRELCAB EQU ZCRENTER+18 00943000 ZCREDCMF EQU ZCRENTER+18 00944000 ZCREBCIF EQU ZCRENTER+18 00945000 ZCREICSG EQU ZCRENTER+18 00946000 ZCREDCK0 EQU ZCRENTER+18 00947000 ZCRECFY0 EQU ZCRENTER+17 00948000 ZCREKCCB EQU ZCRENTER+17 00949000 ZCREDCNB EQU ZCRENTER+17 00950000 ZCREICOE EQU ZCRENTER+17 00951000 ZCREBCNB EQU ZCRENTER+17 00952000 ZCREBC0L EQU ZCRENTER+17 00953000 ZCREBCAL EQU ZCRENTER+17 00954000 ZCREDCQR EQU ZCRENTER+17 00955000 ZCREDCPR EQU ZCRENTER+16 00956000 ZCREBCSB EQU ZCRENTER+16 00957000 ZCREAC1R EQU ZCRENTER+16 00958000 ZCRECCCI EQU ZCRENTER+16 00959000 ZCRECCAI EQU ZCRENTER+16 00960000 ZCRECCBI EQU ZCRENTER+16 00961000 ZCREBCAR EQU ZCRENTER+16 00962000 ZCREBCDR EQU ZCRENTER+16 00963000 ZCREBCBR EQU ZCRENTER+15 00964000 ZCREDCXR EQU ZCRENTER+15 00965000 ZCREDCWB EQU ZCRENTER+15 00966000 ZCREDCWR EQU ZCRENTER+15 00967000 ZCREKCCN EQU ZCRENTER+15 00968000 ZCREKCBN EQU ZCRENTER+15 00969000 ZCREKCBB EQU ZCRENTER+15 00970000 ZCREJC0B EQU ZCRENTER+15 00971000 ZCREJCDB EQU ZCRENTER+14 00972000 ZCREJCCB EQU ZCRENTER+14 00973000 ZCREJCBB EQU ZCRENTER+14 00974000 ZCREJCAB EQU ZCRENTER+14 00975000 ZCREIC1B EQU ZCRENTER+14 00976000 ZCREIC0B EQU ZCRENTER+14 00977000 ZCREICX0 EQU ZCRENTER+14 00978000 ZCREICWB EQU ZCRENTER+14 00979000 ZCREICVB EQU ZCRENTER+13 00980000 ZCREICUB EQU ZCRENTER+13 00981000 ZCREICTB EQU ZCRENTER+13 00982000 ZCREICSC EQU ZCRENTER+13 00983000 ZCREICSB EQU ZCRENTER+13 00984000 ZCREICRB EQU ZCRENTER+13 00985000 ZCREICQB EQU ZCRENTER+13 00986000 ZCREICQA EQU ZCRENTER+13 00987000 ZCREICOB EQU ZCRENTER+12 00988000 ZCREICOA EQU ZCRENTER+12 00989000 ZCREICNB EQU ZCRENTER+12 00990000 ZCREICNA EQU ZCRENTER+12 00991000 ZCREICMB EQU ZCRENTER+12 00992000 ZCREICLB EQU ZCRENTER+12 00993000 ZCREICKG EQU ZCRENTER+12 00994000 ZCREICKE EQU ZCRENTER+12 00995000 ZCREICKB EQU ZCRENTER+11 00996000 ZCREICJB EQU ZCRENTER+11 00997000 ZCREICID EQU ZCRENTER+11 00998000 ZCREICIB EQU ZCRENTER+11 00999000 ZCREICHB EQU ZCRENTER+11 01000000 ZCREICGB EQU ZCRENTER+11 01001000 ZCREICEB EQU ZCRENTER+11 01002000 ZCREICDB EQU ZCRENTER+11 01003000 ZCREICCI EQU ZCRENTER+10 01004000 ZCREICCB EQU ZCRENTER+10 01005000 ZCREICBI EQU ZCRENTER+10 01006000 ZCREICBB EQU ZCRENTER+10 01007000 ZCREICAB EQU ZCRENTER+10 01008000 ZCREICAA EQU ZCRENTER+10 01009000 ZCREHCAN EQU ZCRENTER+10 01010000 ZCREGC0B EQU ZCRENTER+10 01011000 ZCREGC0A EQU ZCRENTER+9 01012000 ZCREGCLA EQU ZCRENTER+9 01013000 ZCREGCEB EQU ZCRENTER+9 01014000 ZCREGCDB EQU ZCRENTER+9 01015000 @NM00011 EQU ZCRENTER+9 01016000 ZCREGCBB EQU ZCRENTER+9 01017000 ZCREGCAB EQU ZCRENTER+9 01018000 ZCREFCEB EQU ZCRENTER+9 01019000 ZCREFCEA EQU ZCRENTER+8 01020000 ZCREECTA EQU ZCRENTER+8 01021000 ZCREECEA EQU ZCRENTER+8 01022000 ZCREECDA EQU ZCRENTER+8 01023000 ZCREECCB EQU ZCRENTER+8 01024000 ZCREECCA EQU ZCRENTER+8 01025000 ZCREECBB EQU ZCRENTER+8 01026000 ZCREECBA EQU ZCRENTER+8 01027000 ZCREDCMB EQU ZCRENTER+7 01028000 ZCREDCL0 EQU ZCRENTER+7 01029000 ZCREDCKB EQU ZCRENTER+7 01030000 ZCREDCKA EQU ZCRENTER+7 01031000 ZCREDCJ0 EQU ZCRENTER+7 01032000 ZCREDCI0 EQU ZCRENTER+7 01033000 ZCREDCH0 EQU ZCRENTER+7 01034000 ZCREDCF0 EQU ZCRENTER+7 01035000 ZCREDCE0 EQU ZCRENTER+6 01036000 ZCREDCD0 EQU ZCRENTER+6 01037000 ZCREDCC0 EQU ZCRENTER+6 01038000 ZCREDCB0 EQU ZCRENTER+6 01039000 ZCREDCA0 EQU ZCRENTER+6 01040000 ZCRECC2B EQU ZCRENTER+6 01041000 ZCRECC1B EQU ZCRENTER+6 01042000 ZCRECC1A EQU ZCRENTER+6 01043000 ZCRECC0B EQU ZCRENTER+5 01044000 ZCRECC0A EQU ZCRENTER+5 01045000 ZCREBC0B EQU ZCRENTER+5 01046000 ZCREBC0A EQU ZCRENTER+5 01047000 ZCREBCZ0 EQU ZCRENTER+5 01048000 ZCREBCY0 EQU ZCRENTER+5 01049000 ZCREBCX0 EQU ZCRENTER+5 01050000 ZCREBCXA EQU ZCRENTER+5 01051000 ZCREBCSC EQU ZCRENTER+4 01052000 ZCREBCRB EQU ZCRENTER+4 01053000 ZCREBCRA EQU ZCRENTER+4 01054000 ZCREBCQB EQU ZCRENTER+4 01055000 ZCREBCPB EQU ZCRENTER+4 01056000 ZCREBCOB EQU ZCRENTER+4 01057000 ZCREBCNE EQU ZCRENTER+4 01058000 ZCREBCND EQU ZCRENTER+4 01059000 ZCREBCMB EQU ZCRENTER+3 01060000 ZCREBCLB EQU ZCRENTER+3 01061000 ZCREBCLA EQU ZCRENTER+3 01062000 ZCREBCKB EQU ZCRENTER+3 01063000 ZCREBCKA EQU ZCRENTER+3 01064000 ZCREBCJB EQU ZCRENTER+3 01065000 ZCREBCJA EQU ZCRENTER+3 01066000 ZCREBCID EQU ZCRENTER+3 01067000 ZCREBCIB EQU ZCRENTER+2 01068000 ZCREBCIA EQU ZCRENTER+2 01069000 ZCREBCHB EQU ZCRENTER+2 01070000 ZCREBCHA EQU ZCRENTER+2 01071000 ZCREBCGB EQU ZCRENTER+2 01072000 ZCREBCGA EQU ZCRENTER+2 01073000 ZCREBCFB EQU ZCRENTER+2 01074000 ZCREBCFA EQU ZCRENTER+2 01075000 ZCREBCEB EQU ZCRENTER+1 01076000 ZCREBCDI EQU ZCRENTER+1 01077000 ZCREBCCB EQU ZCRENTER+1 01078000 ZCREBCBI EQU ZCRENTER+1 01079000 ZCREBCBB EQU ZCRENTER+1 01080000 ZCREBCBA EQU ZCRENTER+1 01081000 ZCREBCAM EQU ZCRENTER+1 01082000 ZCREBCAI EQU ZCRENTER+1 01083000 ZCREBCAG EQU ZCRENTER 01084000 ZCREBCAE EQU ZCRENTER 01085000 ZCREBCAB EQU ZCRENTER 01086000 ZCREBCAA EQU ZCRENTER 01087000 ZCREAC1B EQU ZCRENTER 01088000 ZCREAC0B EQU ZCRENTER 01089000 ZCREAC0A EQU ZCRENTER 01090000 ZCREAC1A EQU ZCRENTER 01091000 ZCRTNAME EQU ZCRAUDIT+1 01092000 ZCRTID EQU ZCRAUDIT 01093000 ZCRREMIC EQU ISTZCRR+436 01094000 ZCRSAVEZ EQU ISTZCRR+196 01095000 ZCRDAFSV EQU ZCRCIDSV+2 01096000 ZCRSAFSV EQU ZCRCIDSV 01097000 ZCRR13SV EQU ISTZCRR+188 01098000 ZCRR2SV EQU ISTZCRR+184 01099000 ZCROPCDE EQU ISTZCRR+183 01100000 ZCRPRMTC EQU ISTZCRR+182 01101000 ZCRRCDSV EQU ISTZCRR+181 01102000 ZCRAWQSW EQU ISTZCRR+180 01103000 ZCRTOPQ EQU ISTZCRR+180 01104000 ZCRLSTFB EQU ISTZCRR+180 01105000 ZCRXSCHD EQU ISTZCRR+180 01106000 ZCRNXTEL EQU ISTZCRR+180 01107000 ZCRSCANQ EQU ISTZCRR+180 01108000 ZCRMOREL EQU ISTZCRR+180 01109000 ZCRFBPRC EQU ISTZCRR+180 01110000 ZCRFSBSV EQU ISTZCRR+176 01111000 ZCRSVWK5 EQU ZCRWKARA+16 01112000 ZCRSVWK4 EQU ZCRWKARA+12 01113000 ZCRSVWK3 EQU ZCRWKARA+8 01114000 ZCRSVWK2 EQU ZCRWKARA+4 01115000 ZCRSVWK1 EQU ZCRWKARA 01116000 ZCRSVF25 EQU ZCRSVRTN+96 01117000 ZCRSVF24 EQU ZCRSVRTN+92 01118000 ZCRSVF23 EQU ZCRSVRTN+88 01119000 ZCRSVF22 EQU ZCRSVRTN+84 01120000 ZCRSVF21 EQU ZCRSVRTN+80 01121000 ZCRSVF20 EQU ZCRSVRTN+76 01122000 ZCRSVF19 EQU ZCRSVRTN+72 01123000 ZCRSVF18 EQU ZCRSVRTN+68 01124000 ZCRSVF17 EQU ZCRSVRTN+64 01125000 ZCRSVF16 EQU ZCRSVRTN+60 01126000 ZCRSVF15 EQU ZCRSVRTN+56 01127000 ZCRSVF14 EQU ZCRSVRTN+52 01128000 ZCRSVF13 EQU ZCRSVRTN+48 01129000 ZCRSVF12 EQU ZCRSVRTN+44 01130000 ZCRSVF11 EQU ZCRSVRTN+40 01131000 ZCRSVF10 EQU ZCRSVRTN+36 01132000 ZCRSVF9 EQU ZCRSVRTN+32 01133000 ZCRSVF8 EQU ZCRSVRTN+28 01134000 ZCRSVF7 EQU ZCRSVRTN+24 01135000 ZCRSVF6 EQU ZCRSVRTN+20 01136000 ZCRSVF5 EQU ZCRSVRTN+16 01137000 ZCRSVF4 EQU ZCRSVRTN+12 01138000 ZCRSVF3 EQU ZCRSVRTN+8 01139000 ZCRSVF2 EQU ZCRSVRTN+4 01140000 ZCRSVF1 EQU ZCRSVRTN 01141000 ZCRPVZB EQU ISTZCRR+52 01142000 ZCRZLB EQU ISTZCRR+48 01143000 ZCRBFPTR EQU ISTZCRR+44 01144000 ZCRCCWA EQU ISTZCRR+40 01145000 ZCRPSW EQU ZCRPARMS+15 01146000 ZCRPCHAR EQU ZCRPARMS+14 01147000 ZCRPRES2 EQU ZCRPCOD2 01148000 ZCRPMFGF EQU ZCRPCOD2 01149000 ZCRPFHDR EQU ZCRPCOD2 01150000 ZCRPPG2 EQU ZCRPCOD2 01151000 ZCRPRES EQU ZCRPCOD1 01152000 ZCRPCFTX EQU ZCRPCOD1 01153000 ZCRPBUF EQU ZCRPCOD1 01154000 ZCRPLSCB EQU ZCRPCOD1 01155000 ZCRPLSBQ EQU ZCRPLSBF 01156000 ZCRPFSB EQU ZCRPCOD1 01157000 ZCRPLNG EQU ZCRPCOD1 01158000 ZCRPPG EQU ZCRPCOD1 01159000 ZCRDTODA EQU ZCRDFRDA 01160000 ZCRMLNG EQU ZCRPARMS+8 01161000 ZCRTBPTR EQU ZCRPARMS+4 01162000 ZCRCBPTR EQU ZCRFBPTR 01163000 ZCRCRLCP EQU ISTZCRR+20 01164000 @NM00010 EQU ZCRSCPSW 01165000 ZCRSKIPT EQU ZCRSCPSW 01166000 ZCRFSBWE EQU ZCRSCPSW 01167000 ZCRPRCMP EQU ZCRSCPSW 01168000 ZCRLREQ EQU ZCRSCPSW 01169000 ZCRRJLCP EQU ZCRSCPSW 01170000 ZCRTPINV EQU ZCRSCPSW 01171000 ZCRTPEX EQU ZCRSCPSW 01172000 @NM00009 EQU ZCRIBPR 01173000 ZCR3270R EQU ZCRIBPR 01174000 ZCR3270 EQU ZCRIBPR 01175000 ZCRLCPFD EQU ZCRIBPR 01176000 ZCRLCPFR EQU ZCRIBPR 01177000 ZCRRELK EQU ZCRIBPR 01178000 ZCRERR EQU ZCRIBPR 01179000 ZCRNOBUF EQU ZCRIBPR 01180000 @NM00008 EQU ZCRPFLGS 01181000 ZCRQAHED EQU ZCRPFLGS 01182000 ZCRF1RES EQU ZCRGENSW 01183000 ZCRBRIS EQU ZCRGENSW 01184000 ZCRCLRBD EQU ZCRGENSW 01185000 ZCREXRES EQU ZCRGENSW 01186000 ZCRLCSYN EQU ZCRGENSW 01187000 ZCRRT06 EQU ZCRGENSW 01188000 ZCRTSW2 EQU ZCRGENSW 01189000 ZCRTSW1 EQU ZCRGENSW 01190000 ZCRINLCP EQU ZCRFLGS3 01191000 ZCRWRPTR EQU ZCRFLGS3 01192000 ZCRNOFRE EQU ZCRFLGS3 01193000 ZCREDRIV EQU ZCRFLGS3 01194000 ZCRDISC EQU ZCRFLGS3 01195000 ZCRTPDIS EQU ZCRFLGS3 01196000 ZCRTPCON EQU ZCRFLGS3 01197000 ZCRTIC EQU ZCRFLGS3 01198000 ZCRCNLXL EQU ZCRRESET 01199000 ZCRENDAN EQU ZCRSWFLD 01200000 ZCRENDXL EQU ZCRSWFLD 01201000 ZCRENDX EQU ZCRSWFLD 01202000 ZCROB1 EQU ZCRNDLCP 01203000 ZCRENDPR EQU ZCRSWFLD 01204000 ZCREXTYP EQU ZCRSWFLD 01205000 ZCRSLCP EQU ZCRENDSH 01206000 ZCRIF0E3 EQU ZCRFLGS2 01207000 ZCRIF0E2 EQU ZCRFLGS2 01208000 ZCRIF0E1 EQU ZCRFLGS2 01209000 ZCROB EQU ZCRFLGS2 01210000 ZCRFMSED EQU ZCRFLGS2 01211000 ZCRSHEDI EQU ZCRFLGS2 01212000 ZCRLOCAL EQU ZCRFLGS2 01213000 ZCRFEXIT EQU ZCRFLGS1 01214000 ZCRUNSOL EQU ZCRFLGS1 01215000 ZCRENDLP EQU ZCRFLGS1 01216000 ZCRNRMEX EQU ZCRFLGS1 01217000 ZCRWAIT EQU ZCRFLGS1 01218000 ZCRDEQSW EQU ZCRFLGS1 01219000 ZCRQUESW EQU ZCRFLGS1 01220000 ZCREXSW EQU ZCRFLGS1 01221000 ZCRFRRA EQU ISTZCRR+8 01222000 ZCRCHAIN EQU ISTZCRR+4 01223000 ZCRFLAG EQU ZCRCRR+3 01224000 ZCRLEN EQU ZCRCRR+1 01225000 ZCRID EQU ZCRCRR 01226000 CCFRSVD1 EQU CFCCRT 01227000 CCFCR2 EQU CFCCRT 01228000 CCFCRP EQU CFCCRT 01229000 CCFCR1 EQU CFCCRT 01230000 CCFCS2 EQU CFCCRT 01231000 CCFCS1 EQU CFCCRT 01232000 NCFRSVD EQU CFCNTRD 01233000 NCFCR2 EQU CFCNTRD 01234000 NCFCRP EQU CFCNTRD 01235000 NCFCR1 EQU CFCNTRD 01236000 NCFCS2 EQU CFCNTRD 01237000 NCFCS1 EQU CFCNTRD 01238000 PFCRSV01 EQU ISTPFCRR+13 01239000 PFCFTA EQU ISTPFCRR+12 01240000 CRRFRR EQU PFCFRRO 01241000 CRRCHAIN EQU PFCCRRO 01242000 CRRLEN EQU PFCCRRLN 01243000 PFCRSV10 EQU PFCCRR+1 01244000 CRRID EQU PFCCRRID 01245000 ZSAZTRAC EQU ISTZSAVE+36 01246000 ZSAZSVVR EQU ISTZSAVE+12 01247000 ZSAZSVRR EQU ISTZSAVE+8 01248000 ZSAZSVFC EQU ISTZSAVE+4 01249000 ZSAZACTV EQU ZSAZSVMS 01250000 LCPFTYPE EQU LCPRPHA 01251000 LCPRSTQH EQU LCPLCCW 01252000 LCPCLREP EQU ISTLCPB+44 01253000 LCPUBFSB EQU LCPFLCCW 01254000 LCPRSV77 EQU ISTLCPB+39 01255000 LCPLCCWC EQU ISTLCPB+38 01256000 LCPRSV78 EQU LCPFLG1 01257000 LCPTRANS EQU LCPFLG1 01258000 LCPSTLB EQU LCPFLG1 01259000 LCPREDRV EQU LCPFLG1 01260000 LCPDIRPT EQU LCPFLG1 01261000 LCPINTER EQU LCPFLG1 01262000 LCPRESET EQU LCPFLG1 01263000 LCPSTYPE EQU ISTLCPB+36 01264000 LCPFSNCH EQU ISTLCPB+34 01265000 LCPFOSN EQU ISTLCPB+32 01266000 LCPTLBAD EQU ISTLCPB+28 01267000 LCPFDB2 EQU LCPFDBA+1 01268000 LCPFDB1 EQU LCPFDBA 01269000 LCPNXLCW EQU ISTLCPB+20 01270000 LCPDAF EQU LCPCID+2 01271000 LCPSAF EQU LCPCID 01272000 LCPLCCW1 EQU ISTLCPB+12 01273000 LCPRRCNT EQU LCPSEQ+1 01274000 LCPRRCCT EQU LCPSEQ 01275000 LCPATOP EQU LCPFLAG2 01276000 LCPFREE EQU LCPFLAG2 01277000 LCPDSTAT EQU LCPFLAG2 01278000 LCPEXRES EQU LCPFID0 01279000 LCPZRIMM EQU LCPTLBPI 01280000 LCPRSTRT EQU LCPFLAG2 01281000 LCPASYN EQU LCPFLAG2 01282000 LCPPRFLG EQU LCPFLAG2 01283000 LCPZMIRC EQU LCPRUCNT 01284000 LCPCHAI2 EQU LCPCHAIN+1 01285000 LCPCHNG EQU LCPCHAI1 01286000 LCPZRT0B EQU LCPMNRCD 01287000 LCPZRT0A EQU LCPMNRCD 01288000 LCPZRTL9 EQU LCPZRT09 01289000 LCPZRTL8 EQU LCPZRT08 01290000 LCPZRTL7 EQU LCPZRT07 01291000 LCPZRTL6 EQU LCPZRT06 01292000 LCPZRTL5 EQU LCPZRT05 01293000 LCPZRTL4 EQU LCPZRT04 01294000 LCPZRTL3 EQU LCPZRT03 01295000 LCPZRTL2 EQU LCPZRT02 01296000 LCPZRT01 EQU LCPFLAGS 01297000 LCPZRT00 EQU LCPFLAGS 01298000 LCPLNGTH EQU ISTLCPB+1 01299000 LCPTYPE EQU ISTLCPB 01300000 LCCWDATA EQU ISTLCCW+4 01301000 LCCWCNT EQU ISTLCCW+2 01302000 LCCWACI EQU LCCWFLAG 01303000 LCCWRFI EQU LCCWFLAG 01304000 LCCWPER EQU LCCWLSI 01305000 LCCWIDAT EQU LCCWFLAG 01306000 LCCWNTVC EQU LCCWFLAG 01307000 LCCWCKPT EQU LCCWFLAG 01308000 LCCWCC EQU LCCWFLAG 01309000 LCCWCD EQU LCCWFLAG 01310000 LCCWTYPE EQU LCCWCTL 01311000 LCCWMODE EQU LCCWCTL 01312000 LCCWSOP EQU LCCWRWOP 01313000 @NM00007 EQU LCCWRWOP 01314000 LCCWSD EQU LCCWOP 01315000 LCCWSI EQU LCCWOP 01316000 LOKXCL EQU @NM00005 01317000 LOKPRY EQU @NM00005 01318000 @NM00006 EQU @NM00005 01319000 @NM00004 EQU LOKCHNG 01320000 LOKCT EQU ISTLOK 01321000 RPHNEXPO EQU ISTRPH+104 01322000 RPHSAV15 EQU RPHWORK+56 01323000 RPHSAV14 EQU RPHWORK+52 01324000 RPHSAV13 EQU RPHWORK+48 01325000 RPHSAV12 EQU RPHWORK+44 01326000 RPHSAV11 EQU RPHWORK+40 01327000 RPHSAV10 EQU RPHWORK+36 01328000 RPHSAVE9 EQU RPHWORK+32 01329000 RPHSAVE8 EQU RPHWORK+28 01330000 RPHSAVE7 EQU RPHWORK+24 01331000 RPHSAVE6 EQU RPHWORK+20 01332000 RPHSAVE5 EQU RPHWORK+16 01333000 RPHSAVE4 EQU RPHWORK+12 01334000 RPHSAVE3 EQU RPHWORK+8 01335000 RPHSAVE2 EQU RPHWORK+4 01336000 RPHSHALF EQU RPHSAVE1+2 01337000 RPHSBIT8 EQU RPHSBITS 01338000 RPHSBIT7 EQU RPHSBITS 01339000 RPHSBIT6 EQU RPHSBITS 01340000 RPHSBIT5 EQU RPHSBITS 01341000 RPHSBIT4 EQU RPHSBITS 01342000 RPHSBIT3 EQU RPHSBITS 01343000 RPHSBIT2 EQU RPHSBITS 01344000 RPHSBIT1 EQU RPHSBITS 01345000 RPHSBYTE EQU RPHSAVE1 01346000 RPHPABQP EQU RPHPABQA+1 01347000 RPHPABFG EQU RPHPABQA 01348000 RPHCRR EQU ISTRPH+32 01349000 RPHSRP34 EQU RPHSRPRM+2 01350000 RPHSRP12 EQU RPHSRPRM 01351000 RPHWEGT EQU RPHCSPA 01352000 RPHMAJCB EQU ISTRPH+21 01353000 RPHPABOF EQU ISTRPH+20 01354000 RPHRESUM EQU RPHRESMA+1 01355000 RPHRSV01 EQU RPHWPFLG 01356000 RPHPURGE EQU RPHWPFLG 01357000 RPHPT EQU RPHWPFLG 01358000 RPHWT EQU RPHWPFLG 01359000 RPHRSKEY EQU RPHWPFLG 01360000 RPHDVTA EQU ISTRPH+12 01361000 RPHTIK EQU RPHTSKID+3 01362000 @NM00003 EQU RPHTSKID 01363000 RPHRPHAP EQU RPHRPHA+1 01364000 @NM00002 EQU RPHRPHA 01365000 @NM00001 EQU RPHFLGB 01366000 RPHRLCRA EQU RPHFLGB 01367000 RPHNRSAV EQU RPHFLGB 01368000 RPHPGCMP EQU RPHFLGB 01369000 RPHFBAPS EQU RPHFLGB 01370000 RPHBSSP EQU RPHFLGB 01371000 RPHLOCK EQU RPHFLGB 01372000 RPHFNFLG EQU RPHFSTLC 01373000 RPHMLTCP EQU RPHFLAGS 01374000 RPHSMCLR EQU RPHFLAGS 01375000 RPHSMTYP EQU RPHFLAGS 01376000 RPHSMQ EQU RPHFLAGS 01377000 RPHAUTEX EQU RPHAPTYP 01378000 RPHSPGIN EQU RPHFLAGS 01379000 RPHOGIND EQU RPHFLAGS 01380000 RPHLNGTH EQU RPHCNTL+1 01381000 RPHTYPE EQU RPHCNTL 01382000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01383000 @ENDDATA EQU * 01384000 END ISTAPC35,(C'PLS1700',0603,75290) 01385000