TITLE 'ISTORFBA: SMS BUFFER ALLOCATION ROUTINE VS2 *00001000 ' 00002000 ISTORFBA CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTORFBA 78.158' 0001 00008000 DROP @15 00009000 @PROLOG BALR @10,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@10 0001 00012000 * R5=R2; /* SAVE INPUT R2 @ZA30526*/ 00013000 LR R5,R2 0209 00014000 */* SAVE CALLER'S PSW KEY AND GET UNDER VTAM KEY @ZA30526*/ 00015000 * 0210 00016000 * DO; /* MODESET SAVEKEY(R2) 0210 00017000 * EXTKEY(VTAM) */ 00018000 * RESPECIFY 0211 00019000 * (GPR02F) RESTRICTED; 0211 00020000 * IPK; /* SAVE CURRENT PSW KEY */ 00021000 IPK 0212 00022000 * SPKA(96); /* SET PSW KEY */ 00023000 LA @15,96 0213 00024000 SPKA 0(@15) 0213 00025000 * R2=GPR02F; 0214 00026000 * RESPECIFY 0215 00027000 * (GPR02F) UNRESTRICTED; 0215 00028000 * END; /* MODESET SAVEKEY(R2) 0216 00029000 * EXTKEY(VTAM) @ZA30526*/ 00030000 * SLL(R2,24); /* SHIFT CALLER'S KEY TO HIGH 0217 00031000 * ORDER BYTE @ZA30526*/ 00032000 SLL R2,24 0217 00033000 * R14=(R14&'00FFFFFF'X)|R2; /* SAVE CALLER'S KEY IN HIGH BYTE 00034000 * OF R14 @ZA30526*/ 00035000 LR @15,R14 0218 00036000 N @15,@CF02234 0218 00037000 OR @15,R2 0218 00038000 LR R14,@15 0218 00039000 * R2=R5; /* RESTORE INPUT R2 @ZA30526*/ 00040000 LR R2,R5 0219 00041000 * RFY 0220 00042000 * R5 UNRSTD; /* @ZA30526*/ 00043000 * IF CBIDSW<0 /* THIS A CBID REQUEST */ 00044000 * THEN /* YES */ 00045000 LTR CBIDSW,CBIDSW 0221 00046000 BNM @RF00221 0221 00047000 *TR01: 0222 00048000 * DO; 0222 00049000 TR01 DS 0H 0223 00050000 * RFY 0223 00051000 * (R9PREFIX) RSTD; /* @Z40GKF6*/ 00052000 * R9PREFIX=R4; /* GET CBID INDEX @Z40GKF6*/ 00053000 LR R9PREFIX,R4 0224 00054000 * SLL(R9PREFIX,24); /* GET INDEX IN HIGH BYTE 0225 00055000 * @Z40GKF6*/ 00056000 SLL R9PREFIX,24 0225 00057000 * R9PREFIX=R9PREFIX|ALLOCATE; /* TURN ON ALLOC @Z40GKF6*/ 00058000 O R9PREFIX,@CF01964 0226 00059000 * CBIDREG=ADDR(BPDCBID)+(R4-1)*8; 0227 00060000 LA @15,BPDCBID(,BPDTYREG) 0227 00061000 LR @08,R4 0227 00062000 BCTR @08,0 0227 00063000 SLA @08,3 0227 00064000 ALR @15,@08 0227 00065000 LR CBIDREG,@15 0227 00066000 * BPCBREG=CBIDREG->CBIDPCB; 0228 00067000 L BPCBREG,CBIDPCB(,CBIDREG) 0228 00068000 * REQKREG=1; /* ONE BUFF NEEDED FOR CBID */ 00069000 LA REQKREG,1 0229 00070000 * END TR01; 0230 00071000 * ELSE /* NO, MUST BE FXBUF/PGBUF */ 00072000 *ELS01: 0231 00073000 * DO; 0231 00074000 B @RC00221 0231 00075000 @RF00221 DS 0H 0231 00076000 ELS01 DS 0H 0232 00077000 * R9PREFIX=ALLOCATE; /* TURN ON ALLOCATE SWITCH 0232 00078000 * @Z40GKF6*/ 00079000 L R9PREFIX,@CF01964 0232 00080000 * RFY 0233 00081000 * R7 RSTD; 0233 00082000 * R7=R4; /* SAVE DATA COUNT OR BUFFER NUM 00083000 * @Z40GKF6*/ 00084000 LR R7,R4 0234 00085000 * BPCBREG=R2; /* GET BPCB POINTER FORM REG 2 */ 00086000 LR BPCBREG,R2 0235 00087000 * BPDTYREG=BPCBREG->BPCBPDTY; /* GET DIRECTORY ADR @Z40GKF6*/ 00088000 L BPDTYREG,BPCBPDTY(,BPCBREG) 0236 00089000 * RFY 0237 00090000 * (R15HSIZE) RSTD; /* @Z40GKF6*/ 00091000 * R15HSIZE=R3&LO2BYT; /* @Z40GKF6*/ 00092000 LR R15HSIZE,R3 0238 00093000 N R15HSIZE,@CF02230 0238 00094000 * REQKREG=R15HSIZE+8; /* GET HEADER SIZE +8 BYTES (8 0239 00095000 * BYTES FOR IO BUFFER HEADER 0239 00096000 * @ZM33041*/ 00097000 LA REQKREG,8 0239 00098000 ALR REQKREG,R15HSIZE 0239 00099000 * RFY 0240 00100000 * (R15HSIZE) UNRSTD; /* @Z40GKF6*/ 00101000 * IF REQKREG>BPCBBSIZ-16 /* CHECK SIZE REQUESTED @ZM33041*/ 00102000 * THEN 0241 00103000 LH @15,BPCBBSIZ(,BPCBREG) 0241 00104000 SL @15,@CF00127 0241 00105000 CR REQKREG,@15 0241 00106000 BNH @RF00241 0241 00107000 *TR02: 0242 00108000 * DO; 0242 00109000 TR02 DS 0H 0243 00110000 * RFY 0243 00111000 * (RC) RSTD; /* @Z40GKF6*/ 00112000 * RC=12; /* HEADER SIZE REQUESTED TOO 0244 00113000 * LARGE */ 00114000 LA RC,12 0244 00115000 * R10=ZERO; /* ZERO BASE REG FOR RECOVERY 0245 00116000 * @ZM33611*/ 00117000 SLR R10,R10 0245 00118000 * R2=R14; /* GET CALLER'S KEY @ZA32835*/ 00119000 LR R2,R14 0246 00120000 * SRL(R2,24); /* SHIFT TO LOW BYTE @ZA32835*/ 00121000 SRL R2,24 0247 00122000 * DO; /* MODESET KEYADDR(R2) */ 00123000 * SPKA(R2); /* SET PSW KEY */ 00124000 SPKA 0(R2) 0249 00125000 * END; /* MODESET KEYADDR(R2) RESTORE 0250 00126000 * CALLER'S KEY @ZA32835*/ 00127000 * GO TO R14; /* RETURN TO CALLER @ZM34583*/ 00128000 BR R14 0251 00129000 * RFY 0252 00130000 * (RC) UNRSTD; /* @Z40GKF6*/ 00131000 * END TR02; 0253 00132000 * ELSE 0254 00133000 *ELS02: 0254 00134000 * DO; 0254 00135000 @RF00241 DS 0H 0254 00136000 ELS02 DS 0H 0255 00137000 * IF(R3&BUFNUMON)=0 /* DOES R3 CONTAIN DATA COUNT */ 00138000 * THEN /* @Z40GKF6*/ 00139000 SLR @15,@15 0255 00140000 LR @08,R3 0255 00141000 N @08,@CF01094 0255 00142000 CLR @08,@15 0255 00143000 BNE @RF00255 0255 00144000 * DO; /* YES @Z40GKF6*/ 00145000 * 0256 00146000 * /*****************************************************/ 00147000 * /* */ 00148000 * /* CALCULATE NUMB BUFFERS THIS POOL ARE NEEDED */ 00149000 * /* */ 00150000 * /*****************************************************/ 00151000 * 0257 00152000 * REQKREG=BPCBBSIZ-REQKREG;/* GET BUF SIZ-HDR @ZM33041*/ 00153000 LH @08,BPCBBSIZ(,BPCBREG) 0257 00154000 SLR @08,REQKREG 0257 00155000 LR REQKREG,@08 0257 00156000 * RFY 0258 00157000 * R6 RSTD; 0258 00158000 * R6=0; /* CLEAR R6 FOR DIVIDE, R7 HAS 0259 00159000 * BEEN PREVIOUSLY SET UP */ 00160000 LR R6,@15 0259 00161000 * GEN REFS(R6,R7,REQKREG) SETS(R6,R7); 0260 00162000 DR R6,REQKREG 00163000 * IF R6^=0 /* IS THERE ANY REMAINDER */ 00164000 * THEN /* YES */ 00165000 LTR R6,R6 0261 00166000 BZ @RF00261 0261 00167000 *TR03: 0262 00168000 * R7=R7+1; /* ADD ONE TO ROUND UP @Z40GKF6*/ 00169000 TR03 AL R7,@CF00067 0262 00170000 */*ELS03 */ 00171000 * 0263 00172000 * ELSE 0263 00173000 * ; /* NO REMAINDER, DONT ROUND */ 00174000 @RF00261 DS 0H 0264 00175000 * RFY 0264 00176000 * (R6) UNRSTD; /* @Z40GKF6*/ 00177000 * END; 0265 00178000 * ELSE 0266 00179000 * ; /* BUFFER COUNT IS PARAMETER 0266 00180000 * @Z40GKF6*/ 00181000 @RF00255 DS 0H 0267 00182000 * REQKREG=R7; /* R7 IS IN ANY CASE BUF COUNT 0267 00183000 * @Z40GKF6*/ 00184000 LR REQKREG,R7 0267 00185000 * RFY 0268 00186000 * (R7) UNRSTD; /* @Z40GKF6*/ 00187000 * END ELS02; /* @Z40GKF6*/ 00188000 * END ELS01; /* @Z40GKF6*/ 00189000 * IF /* @ZA28592*/ 00190000 * (REQKREG>BPCBTOTL)| /* ASK FOR MORE BUFFERS @ZA28592*/ 00191000 * (REQKREG^>0) /* THAN IN POOL @ZA29969*/ 00192000 * THEN /* @ZA28592*/ 00193000 @RC00221 CH REQKREG,BPCBTOTL(,BPCBREG) 0271 00194000 BH @RT00271 0271 00195000 LTR REQKREG,REQKREG 0271 00196000 BP @RF00271 0271 00197000 @RT00271 DS 0H 0272 00198000 * DO; /* @ZA28592*/ 00199000 * R15='3100'X; /* LOAD REG15 WITH REASON 0273 00200000 * @ZA28592*/ 00201000 L R15,@CF02259 0273 00202000 * GEN CODE(ABEND 169,,,SYSTEM);/* @ZA28592*/ 00203000 ABEND 169,,,SYSTEM 00204000 * END; /* @ZA28592*/ 00205000 * ELSE 0276 00206000 * ; /* @ZA28592*/ 00207000 @RF00271 DS 0H 0277 00208000 * IF(R3&SAVEON)^=0 /* DOES CALLER HAVE AN RPH 0277 00209000 * @Z40GKF6*/ 00210000 * THEN /* YES @Z40GKF6*/ 00211000 LR @15,R3 0277 00212000 N @15,@CF01090 0277 00213000 LTR @15,@15 0277 00214000 BZ @RF00277 0277 00215000 * R9PREFIX=R9PREFIX+RPHTSKID; /* PUT TASKID IN PFX @Z40GKF6*/ 00216000 AL R9PREFIX,RPHTSKID(,RPHREG) 0278 00217000 * ELSE 0279 00218000 * ; /* PREFIX MASK TASKID FIELD WILL 00219000 * BE ZERO @Z40GKF6*/ 00220000 @RF00277 DS 0H 0280 00221000 * IF BPCBPDTY->BPDGTR=ON THEN /* GTRACE REQUESTED @ZM32275*/ 00222000 L @15,BPCBPDTY(,BPCBREG) 0280 00223000 TM BPDGTR(@15),B'10000000' 0280 00224000 BNO @RF00280 0280 00225000 * DO; /* START OF INVOKE GTRACE PATH 0281 00226000 * @ZM32275*/ 00227000 *GTRACE: 0282 00228000 * ; /* @ZM32275*/ 00229000 GTRACE DS 0H 0283 00230000 * RFY 0283 00231000 * (R5BPCB) RSTD; /* @ZM32275*/ 00232000 * IF BPDREQMX<=BPDREQCT+1 THEN/* READY FOR GTRACE? (EVERY 1000 00233000 * REQSTORES) @ZM32275*/ 00234000 LA @15,1 0284 00235000 LH @08,BPDREQCT(,BPDTYREG) 0284 00236000 ALR @08,@15 0284 00237000 CH @08,BPDREQMX(,BPDTYREG) 0284 00238000 BL @RF00284 0284 00239000 * DO; /* START GTRACE INVOCATION 0285 00240000 * @ZM32275*/ 00241000 * R5BPCB=BPDSMPCB; /* GET 1ST BPCB ADR @ZM32275*/ 00242000 L R5BPCB,BPDSMPCB(,BPDTYREG) 0286 00243000 * RFY 0287 00244000 * ISTBPCB BASED(R5BPCB);/* @ZM32275*/ 00245000 * RFY 0288 00246000 * BPCBI RSTD; /* @ZM32275*/ 00247000 * DO BPCBI=1 TO BPDBPENT-1;/* GET TRACE INFO FROM BPCB 0289 00248000 * @ZM32275*/ 00249000 LR BPCBI,@15 0289 00250000 B @DE00289 0289 00251000 @DL00289 DS 0H 0290 00252000 * R5BPCB=R5BPCB+LENGTH(ISTBPCB);/* GET NEW BPCB PTR 0290 00253000 * @ZM32275*/ 00254000 AL R5BPCB,@CF02308 0290 00255000 * BPDMUSE(BPCBI)=BPCBTOTL-BPCMINAV;/* MAX IN USE @Z40GKF6*/ 00256000 LR @15,BPCBI 0291 00257000 SLA @15,3 0291 00258000 LH @08,BPCBTOTL(,R5BPCB) 0291 00259000 LR @06,@08 0291 00260000 SH @06,BPCMINAV(,R5BPCB) 0291 00261000 STH @06,BPDMUSE-8(@15,BPDTYREG) 0291 00262000 * BPDMQUE(BPCBI)=BPCBMQUE;/* GET MAX # REQ QUEUED 0292 00263000 * @Z40GKF6*/ 00264000 LH @06,BPCBMQUE(,R5BPCB) 0292 00265000 STH @06,BPDMQUE-8(@15,BPDTYREG) 0292 00266000 * BPDAVNO(BPCBI)=BPCBAVNO;/* GET AVAIL # OF BUFFERS 0293 00267000 * @ZM32275*/ 00268000 LH @06,BPCBAVNO(,R5BPCB) 0293 00269000 STH @06,BPDAVNO-8(@15,BPDTYREG) 0293 00270000 * BPCMINAV=BPCBTOTL; /* RESET TO ZERO IN USE @Z40GKF6*/ 00271000 STH @08,BPCMINAV(,R5BPCB) 0294 00272000 * BPCBMQUE=BPCBCQUE; /* RESET TO CURRENT QUEUED 0295 00273000 * @Z40GKF6*/ 00274000 LH @15,BPCBCQUE(,R5BPCB) 0295 00275000 STH @15,BPCBMQUE(,R5BPCB) 0295 00276000 * END; /* END OF GET TRACE INFO PATH 0296 00277000 * @ZM32275*/ 00278000 AL BPCBI,@CF00067 0296 00279000 @DE00289 LH @15,BPDBPENT(,BPDTYREG) 0296 00280000 BCTR @15,0 0296 00281000 CR BPCBI,@15 0296 00282000 BNH @DL00289 0296 00283000 * RFY 0297 00284000 * BPCBI UNRSTD; /* @ZM32275*/ 00285000 * RFY 0298 00286000 * (R6SAVR1) RSTD; /* @ZM32275*/ 00287000 * R6SAVR1=R1; /* SAVE RPH ADDRESS ACROSS GTRACE 00288000 * @ZM32275*/ 00289000 LR R6SAVR1,R1 0299 00290000 * R1=ADDR(BPDPARM); /* GET ADDR GTRACE PARM INFO 0300 00291000 * @ZM32275*/ 00292000 LA R1,BPDPARM(,BPDTYREG) 0300 00293000 * GENERATE(GTRACE ID=ISTRPEID,MF=(E,(1)),FID=X'FD');/* 0301 00294000 * FID=FD @ZA32763*/ 00295000 GTRACE ID=ISTRPEID,MF=(E,(1)),FID=X'FD' 00296000 * R1=R6SAVR1; /* RESTORE RPH ADDRESS @ZM32275*/ 00297000 LR R1,R6SAVR1 0302 00298000 * RFY 0303 00299000 * (R6SAVR1) UNRSTD; /* @ZM32275*/ 00300000 * BPDREQCT=ZERO; /* RESET COUNT OF REQSTORES 0304 00301000 * @ZM32275*/ 00302000 SLR @15,@15 0304 00303000 STH @15,BPDREQCT(,BPDTYREG) 0304 00304000 * END; /* END OF INVOKE GTRACE PATH 0305 00305000 * @ZM32275*/ 00306000 * ELSE 0306 00307000 * DO; /* DO NOT INVOKE GTRACE THIS TIME 00308000 * @ZM32275*/ 00309000 B @RC00284 0306 00310000 @RF00284 DS 0H 0307 00311000 * BPDREQCT=BPDREQCT+1; /* INCREMENT COUNT OF REQSTORES 00312000 * @ZM32275*/ 00313000 LA @15,1 0307 00314000 AH @15,BPDREQCT(,BPDTYREG) 0307 00315000 STH @15,BPDREQCT(,BPDTYREG) 0307 00316000 * END; /* END OF DO NOT INVOKE GTRACE 0308 00317000 * THIS TIME PATH @ZM32275*/ 00318000 * END; /* END OF GTRACE PATH @ZM32275*/ 00319000 @RC00284 DS 0H 0310 00320000 * RFY 0310 00321000 * ISTBPDTY BASED(BPDTYREG); /* @ZM32275*/ 00322000 @RF00280 DS 0H 0311 00323000 * RFY 0311 00324000 * ISTBPCB BASED(BPCBREG); /* @ZM32275*/ 00325000 * RFY 0312 00326000 * (R5BPCB, 0312 00327000 * R8BPD) UNRSTD; /* @ZM32275*/ 00328000 * RFY 0313 00329000 * (COMPREG, 0313 00330000 * SWAPREG) RSTD; /* @ZM31975*/ 00331000 *CSFAIL0: 0314 00332000 * IF BPCBLOW1=ON& /* IS THIS SLOWDOWN STATE AND */ 00333000 * (R3&PRIORON)=0 /* NOT A PRIORITY REQUEST */ 00334000 * THEN /* YES */ 00335000 CSFAIL0 TM BPCBLOW1(BPCBREG),B'01000000' 0314 00336000 BNO @RF00314 0314 00337000 LR @15,R3 0314 00338000 N @15,@CF01966 0314 00339000 LTR @15,@15 0314 00340000 BZ @RT00314 0314 00341000 *TR05: 0315 00342000 * GOTO ELS06; 0315 00343000 * ELSE /* NO */ 00344000 *ELS05: 0316 00345000 * DO; 0316 00346000 @RF00314 DS 0H 0316 00347000 ELS05 DS 0H 0317 00348000 * COMPREG=BPCBCDS2; /* GET AVAILABLE NUMBER OF 0317 00349000 * BUFFERS @Z40GKF6*/ 00350000 L COMPREG,BPCBCDS2(,BPCBREG) 0317 00351000 * IF REQKREG<=(COMPREG&LO2BYT)/* ENOUGH BUFFERS @Z40GKF6*/ 00352000 * THEN /* YES @Z40GKF6*/ 00353000 LR @15,COMPREG 0318 00354000 N @15,@CF02230 0318 00355000 CR REQKREG,@15 0318 00356000 BH @RF00318 0318 00357000 * DO; /* DECREASE BUFFER COUNT @Z40GKF6*/ 00358000 * SWAPREG=COMPREG-REQKREG;/* @Z40GKF6*/ 00359000 LR SWAPREG,COMPREG 0320 00360000 SLR SWAPREG,REQKREG 0320 00361000 * CS(COMPREG,SWAPREG,BPCBCDS2);/* @Z40GKF6*/ 00362000 CS COMPREG,@08,BPCBCDS2(BPCBREG) 0321 00363000 * BC(FAIL,CSFAIL0); /* TEST AGAIN FOR SLOWDOWN 0322 00364000 * @Z40GKF6*/ 00365000 BC 7,CSFAIL0 0322 00366000 *CSFAIL1: 0323 00367000 * IF BPCBAVNOBPDGTR=ON THEN/* Q. TRACE REQUESTED @Z40GKCS*/ 00392000 L @15,BPCBPDTY(,BPCBREG) 0331 00393000 TM BPDGTR(@15),B'10000000' 0331 00394000 BNO @RF00331 0331 00395000 * DO; /* YES, UPDATE BPCBMUSE IF 0332 00396000 * NECESSARY @Z40GKCS*/ 00397000 * SWAPREG=BPCBAVNO; /* CURRENT BUF AVAILABILITY 0333 00398000 * @Z40GKF6*/ 00399000 LH SWAPREG,BPCBAVNO(,BPCBREG) 0333 00400000 * COMPREG=BPCBMUSE; /* MINIMUM AVAILABILITY @Z40GKF6*/ 00401000 L COMPREG,BPCBMUSE(,BPCBREG) 0334 00402000 *USFAIL1: 0335 00403000 * IF SWAPREG0); 0416 00653000 DOW01 B @DE00416 0416 00654000 @DL00416 DS 0H 0417 00655000 * LM(COMPEVEN,COMPODD,BPCBCDS); /* PREPARE TO ALLOC @ZM32231*/ 00656000 LM COMPEVEN,COMPODD,BPCBCDS(BPCBREG) 0417 00657000 *CSFAIL5: 0418 00658000 * SWAPEVEN=(COMPEVEN&HIBYTMSK)|(BFPNXCHN&LO3MSK);/* SET UP NEW 0418 00659000 * CHAIN FOR CDS @ZM32231*/ 00660000 CSFAIL5 LR SWAPEVEN,COMPEVEN 0418 00661000 N SWAPEVEN,@CF02232 0418 00662000 L @05,BFPNXCHN(,COMPEVEN) 0418 00663000 N @05,@CF02234 0418 00664000 OR SWAPEVEN,@05 0418 00665000 * SWAPODD=COMPODD; /* GET RUNNING COUNT FOR CDS 0419 00666000 * @ZM32231*/ 00667000 LR SWAPODD,COMPODD 0419 00668000 * CDS(COMPEVEN,SWAPEVEN,BPCBCDS);/* GET BUF OFF @ZM32231*/ 00669000 CDS COMPEVEN,SWAPEVEN,BPCBCDS(BPCBREG) 0420 00670000 * BC(FAIL,CSFAIL5); /* DO OVER @ZM32231*/ 00671000 BC 7,CSFAIL5 0421 00672000 * IF CLEARSW^<0 /* IS THIS A CLEARING REQUEST */ 00673000 */*TR10 */ 00674000 * 0422 00675000 * THEN 0422 00676000 LTR CLEARSW,CLEARSW 0422 00677000 BNM @RT00422 0422 00678000 * ; /* NO */ 00679000 * ELSE /* YES */ 00680000 *ELS10: 0424 00681000 * DO; 0424 00682000 ELS10 DS 0H 0425 00683000 * COMPEVEN=COMPEVEN+8; /* R6=START ADDR TO CLEAR */ 00684000 AL COMPEVEN,@CF00036 0425 00685000 * COMPODD=BPCBBSIZ; /* R7=LENGTH TO CLEAR */ 00686000 LH COMPODD,BPCBBSIZ(,BPCBREG) 0426 00687000 * SWAPEVEN=0; /* SET R8 AND R9 TO ZERO FOR */ 00688000 SLR @05,@05 0427 00689000 LR SWAPEVEN,@05 0427 00690000 * SWAPODD=0; /* CLEARING BUF WITH MVCL */ 00691000 LR SWAPODD,@05 0428 00692000 * MVCL(COMPEVEN,SWAPEVEN); 0429 00693000 MVCL COMPEVEN,SWAPEVEN 0429 00694000 * COMPEVEN=COMPEVEN-(BPCBBSIZ+8); 0430 00695000 LA @05,8 0430 00696000 AH @05,BPCBBSIZ(,BPCBREG) 0430 00697000 SLR COMPEVEN,@05 0430 00698000 * RFY 0431 00699000 * (SWAPEVEN, 0431 00700000 * SWAPODD) UNRSTD; /* @Z40GKF6*/ 00701000 * END ELS10; 0432 00702000 * BFPTSKID=R15PRFIX; /* STORE PREFIX MASK IN PFX 0433 00703000 * @Z40GKF6*/ 00704000 @RT00422 ST R15PRFIX,BFPTSKID(,COMPEVEN) 0433 00705000 * IF R10F<0 /* THIS A CBID REQUEST */ 00706000 * THEN /* YES */ 00707000 LTR R10F,R10F 0434 00708000 BNM @RF00434 0434 00709000 *TR11: 0435 00710000 * DO; 0435 00711000 TR11 DS 0H 0436 00712000 * BFPCBID=ON; /* INDICATE CBID BUFFER */ 00713000 OI BFPCBID(COMPEVEN),B'10000000' 0436 00714000 * REQKREG=0; 0437 00715000 SLR REQKREG,REQKREG 0437 00716000 * END TR11; 0438 00717000 * ELSE /* NO, FXBUF OR PGBUF REQUEST */ 00718000 *ELS11: 0439 00719000 * DO; 0439 00720000 B @RC00434 0439 00721000 @RF00434 DS 0H 0439 00722000 ELS11 DS 0H 0440 00723000 * R7=R3&LO2BYT; /* RESTORE HEADERSIZE @Z40GKF6*/ 00724000 LR R7,R3 0440 00725000 N R7,@CF02230 0440 00726000 * BFPSIZE=BPCBBSIZ-(R7+8); /* INIT BUFFER HDR @Z40GKF6*/ 00727000 * 0441 00728000 LA @05,8 0441 00729000 ALR @05,R7 0441 00730000 LCR @05,@05 0441 00731000 LH @09,BPCBBSIZ(,BPCBREG) 0441 00732000 ALR @05,@09 0441 00733000 STH @05,BFPSIZE(,COMPEVEN) 0441 00734000 * /***********************************************************/ 00735000 * /* */ 00736000 * /* POINT THE BUFFER JUST DEQUEUED TO POINT TO THE LAST */ 00737000 * /* BUFFER DEQUEUED (IF THIS IS THE 1ST BUFFER DEQUEUED, */ 00738000 * /* LASTBUF WILL EQUAL ZERO). */ 00739000 * /* */ 00740000 * /***********************************************************/ 00741000 * 0442 00742000 * BFPNXCHN=LASTBUF; 0442 00743000 ST LASTBUF,BFPNXCHN(,COMPEVEN) 0442 00744000 *DUMLBL: 0443 00745000 * LASTBUF=COMPEVEN+8; /* PREPARE FOR NEXT LOOP */ 00746000 DUMLBL LA LASTBUF,8 0443 00747000 ALR LASTBUF,COMPEVEN 0443 00748000 * REQKREG=REQKREG-1; /* SUBTRACT 1 FROM REQUEST */ 00749000 BCTR REQKREG,0 0444 00750000 * END ELS11; 0445 00751000 * END DOW01; 0446 00752000 @RC00434 DS 0H 0446 00753000 @DE00416 SLR @05,@05 0446 00754000 CR REQKREG,@05 0446 00755000 BH @DL00416 0446 00756000 * R7=R3; /* SAVE INPUT PARAMETERS @Z40GKF6*/ 00757000 LR R7,R3 0447 00758000 * R3=COMPEVEN+8; /* PUT BUF ADDR IN R3 @Z40GKF6*/ 00759000 LA @09,8 0448 00760000 ALR @09,COMPEVEN 0448 00761000 LR R3,@09 0448 00762000 * IF(R7&SAVEON)^=0 /* DOES CALLER HAVE AN RPH 0449 00763000 * @Z40GKF6*/ 00764000 * THEN /* YES @Z40GKF6*/ 00765000 LR @08,R7 0449 00766000 N @08,@CF01090 0449 00767000 CLR @08,@05 0449 00768000 BE @RF00449 0449 00769000 * RPHSRPRM=COMPEVEN+8; /* STORE ADDR IN RPH @Z40GKF6*/ 00770000 ST @09,RPHSRPRM(,RPHREG) 0450 00771000 * ELSE 0451 00772000 * ; /* NO RPH - DO NOTHING @Z40GKF6*/ 00773000 @RF00449 DS 0H 0452 00774000 * RFY 0452 00775000 * (COMPEVEN, 0452 00776000 * COMPODD) UNRSTD; /* @Z40GKF6*/ 00777000 * RFY 0453 00778000 * (RC) RSTD; /* @Z40GKF6*/ 00779000 * RC=0; /* INDICATE SUCCESSFUL REQUEST */ 00780000 SLR RC,RC 0454 00781000 * IF BPCBLOW1=ON /* THIS POOL IN SLOWDOWN STATE */ 00782000 * THEN /* YES */ 00783000 TM BPCBLOW1(BPCBREG),B'01000000' 0455 00784000 BNO @RF00455 0455 00785000 *TR12: 0456 00786000 * RC=4; /* INDICATE THRESHOLD EXCEEDED */ 00787000 TR12 LA RC,4 0456 00788000 */*ELS12 */ 00789000 * 0457 00790000 * ELSE 0457 00791000 * ; 0457 00792000 @RF00455 DS 0H 0458 00793000 * R10=ZERO; /* ZERO BASE REG FOR RECOVERY 0458 00794000 * @ZM33611*/ 00795000 SLR R10,R10 0458 00796000 * R2=R14; /* GET CALLER'S KEY @ZA30526*/ 00797000 LR R2,R14 0459 00798000 * SRL(R2,24); /* SHIFT TO LOW BYTE @ZA30526*/ 00799000 SRL R2,24 0460 00800000 * DO; /* MODESET KEYADDR(R2) */ 00801000 * SPKA(R2); /* SET PSW KEY */ 00802000 SPKA 0(R2) 0462 00803000 * END; /* MODESET KEYADDR(R2) RESTORE 0463 00804000 * CALLER'S KEY @ZA30526*/ 00805000 * GO TO R14; /* RETURN TO CALLER @ZM33611*/ 00806000 BR R14 0464 00807000 * RFY 0465 00808000 * (RC) UNRSTD; /* @Z40GKF6*/ 00809000 * END ISTORFBA 0466 00810000 * 0466 00811000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00812000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00813000 */*%INCLUDE SYSLIB (CVT ) */ 00814000 */*%INCLUDE SYSLIB (IHASRB ) */ 00815000 * 0466 00816000 * ; 0466 00817000 @DATA DS 0H 00818000 @DATD DSECT 00819000 DS 0F 00820000 ISTORFBA CSECT 00821000 DS 0F 00822000 @CF00067 DC F'1' 00823000 @CF00036 DC F'8' 00824000 @CF00127 DC F'16' 00825000 @CF02308 DC F'112' 00826000 @CF01090 DC XL4'08000000' 00827000 @CF01094 DC XL4'04000000' 00828000 @CF01964 DC XL4'80000000' 00829000 @CF01966 DC XL4'40000000' 00830000 @CF01968 DC XL4'20000000' 00831000 @CF02228 DC XL4'FFFF0000' 00832000 @CF02230 DC XL4'0000FFFF' 00833000 @CF02232 DC XL4'FF000000' 00834000 @CF02234 DC XL4'00FFFFFF' 00835000 @CF02259 DC XL4'3100' 00836000 @DATD DSECT 00837000 DS 0D 00838000 LCPBPTR DS A 00839000 BPEPTR DS A 00840000 BPDPTR DS A 00841000 BPCBPTR DS A 00842000 BFPFXPTR DS A 00843000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00844000 @ENDDATD EQU * 00845000 ISTORFBA CSECT 00846000 DS 0F 00847000 @SIZDATD DC AL1(0) 00848000 DC AL3(@ENDDATD-@DATD) 00849000 DS 0D 00850000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00851000 @01 EQU 01 00852000 @02 EQU 02 00853000 @03 EQU 03 00854000 @04 EQU 04 00855000 @05 EQU 05 00856000 @06 EQU 06 00857000 @07 EQU 07 00858000 @08 EQU 08 00859000 @09 EQU 09 00860000 @10 EQU 10 00861000 @11 EQU 11 00862000 @12 EQU 12 00863000 @13 EQU 13 00864000 @14 EQU 14 00865000 @15 EQU 15 00866000 SRBPTR EQU @01 00867000 RPHPTR EQU @01 00868000 GPR02F EQU @02 00869000 REQKREG EQU @00 00870000 R1 EQU @01 00871000 RPHREG EQU @01 00872000 R2KEY EQU @02 00873000 BPDTYREG EQU @02 00874000 R2 EQU @02 00875000 CBIDSW EQU @02 00876000 LASTBUF EQU @02 00877000 R3 EQU @03 00878000 CLEARSW EQU @03 00879000 R4 EQU @04 00880000 CBIDREG EQU @04 00881000 BPCBREG EQU @04 00882000 R5BPCB EQU @05 00883000 R5RPH EQU @05 00884000 R5 EQU @05 00885000 R6SAVR1 EQU @06 00886000 R6 EQU @06 00887000 COMPREG EQU @06 00888000 COMPEVEN EQU @06 00889000 R7 EQU @07 00890000 COMPODD EQU @07 00891000 BPCBI EQU @07 00892000 R8BPD EQU @08 00893000 SWAPREG EQU @08 00894000 SWAPEVEN EQU @08 00895000 SWAPODD EQU @09 00896000 R9PREFIX EQU @09 00897000 R10 EQU @10 00898000 R10F EQU @10 00899000 R11 EQU @11 00900000 R12 EQU @12 00901000 R13 EQU @13 00902000 R14 EQU @14 00903000 R15 EQU @15 00904000 RC EQU @15 00905000 R15HSIZE EQU @15 00906000 R15PRFIX EQU @15 00907000 GPR02P EQU @02 00908000 PSA EQU 0 00909000 FLCRNPSW EQU PSA 00910000 FLCROPSW EQU PSA+8 00911000 FLCICCW2 EQU PSA+16 00912000 PSAEEPSW EQU PSA+132 00913000 PSAESPSW EQU PSA+136 00914000 FLCSVILC EQU PSAESPSW+1 00915000 PSAEPPSW EQU PSA+140 00916000 FLCPIILC EQU PSAEPPSW+1 00917000 FLCPICOD EQU PSAEPPSW+2 00918000 PSAPICOD EQU FLCPICOD+1 00919000 FLCTEA EQU PSAEPPSW+4 00920000 FLCPER EQU PSA+152 00921000 FLCMCLA EQU PSA+168 00922000 FLCIOEL EQU FLCMCLA+4 00923000 FLCIOA EQU FLCMCLA+16 00924000 FLCFSA EQU FLCMCLA+80 00925000 PSASUPER EQU PSA+552 00926000 PSASUP1 EQU PSASUPER 00927000 PSASUP2 EQU PSASUPER+1 00928000 PSASUP3 EQU PSASUPER+2 00929000 PSASUP4 EQU PSASUPER+3 00930000 PSACLHT EQU PSA+640 00931000 PSALKSA EQU PSA+696 00932000 PSAHLHI EQU PSA+760 00933000 PSADSSFL EQU PSA+836 00934000 PSADSSF1 EQU PSADSSFL 00935000 PSADSSF3 EQU PSADSSFL+2 00936000 PSADSSF4 EQU PSADSSFL+3 00937000 PSARSVT EQU PSA+896 00938000 CVTPTR EQU 16 00939000 CVTMAP EQU 0 00940000 CVTDAR EQU CVTMAP+72 00941000 CVTFLGS1 EQU CVTDAR 00942000 CVTDCB EQU CVTMAP+116 00943000 CVTIERLC EQU CVTMAP+144 00944000 CVTOPTA EQU CVTMAP+182 00945000 CVTOPTB EQU CVTMAP+183 00946000 CVTGTF EQU CVTMAP+236 00947000 CVTGTFST EQU CVTGTF 00948000 CVTGTFS EQU CVTGTFST 00949000 CVTSTATE EQU CVTGTFST 00950000 CVTTMODE EQU CVTGTFST 00951000 CVTFORM EQU CVTGTFST 00952000 CVTAQAVT EQU CVTMAP+240 00953000 CVTTCMFG EQU CVTAQAVT 00954000 CVTVOLM2 EQU CVTMAP+244 00955000 CVTTATA EQU CVTVOLM2 00956000 CVTTSKS EQU CVTTATA 00957000 CVTVOLF2 EQU CVTTSKS 00958000 CVTTAT EQU CVTTATA+1 00959000 CVTATER EQU CVTMAP+248 00960000 CVTEXT1 EQU CVTMAP+252 00961000 CVTPURG EQU CVTMAP+260 00962000 CVTQMSG EQU CVTMAP+268 00963000 CVTDMSR EQU CVTMAP+272 00964000 CVTRSV37 EQU CVTDMSR 00965000 CVTDMSRF EQU CVTRSV37 00966000 CVTERPV EQU CVTMAP+316 00967000 CVTINTLA EQU CVTMAP+320 00968000 CVTAPF EQU CVTMAP+324 00969000 CVTEXT2 EQU CVTMAP+328 00970000 CVTHJES EQU CVTMAP+332 00971000 CVTPGSIA EQU CVTMAP+348 00972000 CVTA1F1 EQU CVTMAP+356 00973000 CVTSYSK EQU CVTMAP+357 00974000 CVTVOLM1 EQU CVTMAP+380 00975000 CVTVOLF1 EQU CVTVOLM1 00976000 CVTATMCT EQU CVTMAP+388 00977000 CVTXTNT1 EQU 0 00978000 CVTXTNT2 EQU 0 00979000 CVTDSSV EQU CVTXTNT2 00980000 CVTFLGBT EQU CVTXTNT2+5 00981000 CVTQID EQU CVTXTNT2+24 00982000 CVTSHS EQU CVTXTNT2+40 00983000 CVTRV400 EQU CVTXTNT2+52 00984000 CVTRV409 EQU CVTXTNT2+53 00985000 CVTATCVT EQU CVTXTNT2+64 00986000 CVTRV429 EQU CVTXTNT2+84 00987000 CVTRV438 EQU CVTXTNT2+85 00988000 CVTRV457 EQU CVTXTNT2+112 00989000 CVTRV466 EQU CVTXTNT2+113 00990000 CVTFIX EQU 0 00991000 CVTRELNO EQU CVTFIX+252 00992000 SRBSECT EQU 0 00993000 SRBFLNK EQU SRBSECT+4 00994000 SRBFLC EQU SRBSECT+12 00995000 ISTRPH EQU 0 00996000 RPHCNTL EQU ISTRPH 00997000 RPHFLAGS EQU RPHCNTL+2 00998000 RPHAPTYP EQU RPHFLAGS 00999000 RPHFSTLC EQU RPHFLAGS 01000000 RPHFLGB EQU RPHCNTL+3 01001000 RPHRPHA EQU ISTRPH+4 01002000 RPHCVFLG EQU RPHRPHA 01003000 RPHGATE EQU RPHCVFLG 01004000 RPHTSKID EQU ISTRPH+8 01005000 RPHRESMA EQU ISTRPH+16 01006000 RPHWPFLG EQU RPHRESMA 01007000 RPHWEA EQU ISTRPH+24 01008000 RPHCSPA EQU RPHWEA 01009000 RPHSRPRM EQU ISTRPH+28 01010000 RPHCRR EQU ISTRPH+32 01011000 RPHPABQA EQU ISTRPH+36 01012000 RPHWORK EQU ISTRPH+40 01013000 RPHSAVE1 EQU RPHWORK 01014000 RPHSBITS EQU RPHSAVE1+1 01015000 ISTLCCW EQU 0 01016000 LCCWOP EQU ISTLCCW 01017000 LCCWRWOP EQU LCCWOP 01018000 LCCWCTL EQU LCCWRWOP 01019000 LCCWFLAG EQU ISTLCCW+1 01020000 LCCWLSI EQU LCCWFLAG 01021000 ISTLCPB EQU 0 01022000 LCPREQTG EQU ISTLCPB+2 01023000 LCPFLAGS EQU LCPREQTG 01024000 LCPZF001 EQU LCPFLAGS 01025000 LCPZRT02 EQU LCPZF001 01026000 LCPZF002 EQU LCPFLAGS 01027000 LCPZRT03 EQU LCPZF002 01028000 LCPZF003 EQU LCPFLAGS 01029000 LCPZRT04 EQU LCPZF003 01030000 LCPZF004 EQU LCPFLAGS 01031000 LCPZRT05 EQU LCPZF004 01032000 LCPZRT06 EQU LCPFLAGS 01033000 LCPZRT07 EQU LCPFLAGS 01034000 LCPMNRCD EQU LCPREQTG+1 01035000 LCPZRT08 EQU LCPMNRCD 01036000 LCPZRT09 EQU LCPMNRCD 01037000 LCPCHAIN EQU ISTLCPB+4 01038000 LCPCHAI1 EQU LCPCHAIN 01039000 LCPRUCNT EQU ISTLCPB+8 01040000 LCPFLAG2 EQU ISTLCPB+9 01041000 LCPTLBPI EQU LCPFLAG2 01042000 LCPFID0 EQU LCPFLAG2 01043000 LCPSEQ EQU ISTLCPB+10 01044000 LCPCID EQU ISTLCPB+16 01045000 LCPFDBA EQU ISTLCPB+24 01046000 LCPFLG1 EQU ISTLCPB+37 01047000 LCPFLCCW EQU ISTLCPB+40 01048000 LCPLCCW EQU ISTLCPB+48 01049000 LCPPABA EQU LCPLCCW+4 01050000 LCPRPHA EQU LCPPABA 01051000 ISTZSAVE EQU 0 01052000 ZSAZSVBC EQU ISTZSAVE 01053000 ZSAZSVMS EQU ZSAZSVBC 01054000 ISTPFCRR EQU 0 01055000 PFCCRR EQU ISTPFCRR 01056000 PFCCRRID EQU PFCCRR 01057000 PFCCRRLN EQU PFCCRR+2 01058000 PFCHDR EQU ISTPFCRR+4 01059000 PFCCRRO EQU PFCHDR 01060000 PFCFRRO EQU PFCHDR+4 01061000 ISTCFCRR EQU 0 01062000 CFCAUDIT EQU ISTCFCRR 01063000 CFCNTRD EQU CFCAUDIT 01064000 CFCCRT EQU CFCAUDIT+1 01065000 ISTZCRR EQU 0 01066000 ZCRCRR EQU ISTZCRR 01067000 ZCRFLGS1 EQU ISTZCRR+12 01068000 ZCRFLGS2 EQU ISTZCRR+13 01069000 ZCRSWFLD EQU ISTZCRR+14 01070000 ZCRENDSH EQU ZCRSWFLD 01071000 ZCRNDLCP EQU ZCRSWFLD 01072000 ZCRRESET EQU ZCRSWFLD 01073000 ZCRFLGS3 EQU ISTZCRR+15 01074000 ZCRGENSW EQU ISTZCRR+16 01075000 ZCRPFLGS EQU ISTZCRR+17 01076000 ZCRIBPR EQU ISTZCRR+18 01077000 ZCRSCPSW EQU ISTZCRR+19 01078000 ZCRPARMS EQU ISTZCRR+24 01079000 ZCRFBPTR EQU ZCRPARMS 01080000 ZCRDFRDA EQU ZCRPARMS+10 01081000 ZCRPCOD1 EQU ZCRPARMS+12 01082000 ZCRPLSBF EQU ZCRPCOD1 01083000 ZCRPCOD2 EQU ZCRPARMS+13 01084000 ZCRSVRTN EQU ISTZCRR+56 01085000 ZCRWKARA EQU ISTZCRR+156 01086000 ZCRCIDSV EQU ISTZCRR+192 01087000 ZCRAUDIT EQU ISTZCRR+440 01088000 ZCRENTER EQU ZCRAUDIT+5 01089000 ZCRLCPB EQU ISTZCRR+480 01090000 ZCRRHRU EQU ZCRLCPB 01091000 ISTASCRR EQU 0 01092000 ASCFLAGS EQU ISTASCRR+16 01093000 ASCFLG1 EQU ASCFLAGS 01094000 ASCFLG2 EQU ASCFLAGS+2 01095000 ASCFLG3 EQU ASCFLAGS+4 01096000 ASCUSRGS EQU ISTASCRR+28 01097000 ISTAPCRR EQU 0 01098000 APCATFLG EQU ISTAPCRR+16 01099000 APCRFLG EQU ISTAPCRR+18 01100000 APCSAVE EQU ISTAPCRR+44 01101000 APCCOMF EQU ISTAPCRR+116 01102000 APCCOMF1 EQU APCCOMF 01103000 APC31FLG EQU ISTAPCRR+132 01104000 APC52FLG EQU ISTAPCRR+133 01105000 APC53FLG EQU ISTAPCRR+134 01106000 APC54FLG EQU ISTAPCRR+135 01107000 APC57FLG EQU ISTAPCRR+136 01108000 ISTCRA EQU 0 01109000 CRABASIC EQU ISTCRA 01110000 CRAHDR EQU CRABASIC 01111000 CRALKACT EQU CRABASIC+8 01112000 CRASVC EQU ISTCRA+848 01113000 CRAHSIZ EQU CRASVC+60 01114000 CRAMASK EQU CRASVC+64 01115000 CRABUFA EQU CRASVC+68 01116000 ISTBPENT EQU 0 01117000 BPEFLAGS EQU ISTBPENT+4 01118000 ISTBPDTY EQU 0 01119000 BPDHDR EQU ISTBPDTY 01120000 BPDBPENT EQU BPDHDR 01121000 BPDSMPCB EQU BPDHDR+28 01122000 BPDFLAG EQU BPDHDR+40 01123000 BPDGTR EQU BPDFLAG 01124000 BPDREQCT EQU BPDHDR+44 01125000 BPDREQMX EQU BPDHDR+46 01126000 BPDPARM EQU BPDHDR+48 01127000 BPDTRACE EQU BPDHDR+56 01128000 BPDMUSE EQU BPDTRACE 01129000 BPDMQUE EQU BPDTRACE+2 01130000 BPDAVNO EQU BPDTRACE+4 01131000 BPDCBID EQU ISTBPDTY+336 01132000 ISTBPCB EQU 0 01133000 BPCBFLAG EQU ISTBPCB 01134000 BPCBFEXT EQU ISTBPCB+4 01135000 BPCBRPHA EQU ISTBPCB+16 01136000 BPCBRPHB EQU ISTBPCB+20 01137000 BPCBPDTY EQU ISTBPCB+24 01138000 BPCBBSIZ EQU ISTBPCB+32 01139000 BPCBTOTL EQU ISTBPCB+34 01140000 BPCBTHRE EQU ISTBPCB+36 01141000 BPCBQREQ EQU ISTBPCB+40 01142000 BPCBMQUE EQU BPCBQREQ 01143000 BPCBCQUE EQU BPCBQREQ+2 01144000 BPCBMUSE EQU ISTBPCB+44 01145000 BPCMINAV EQU BPCBMUSE+2 01146000 BPCBCDS EQU ISTBPCB+56 01147000 BPCBCDS1 EQU BPCBCDS 01148000 BPCBFLG2 EQU BPCBCDS1 01149000 BPCBLOW1 EQU BPCBFLG2 01150000 BPCBCDS2 EQU BPCBCDS+4 01151000 BPCBAVNO EQU BPCBCDS2+2 01152000 BPCBRBLK EQU ISTBPCB+64 01153000 BPCBSRBA EQU BPCBRBLK+1 01154000 ISTBFPFX EQU 0 01155000 BFPTSKID EQU ISTBFPFX 01156000 BFPPSTID EQU BFPTSKID+1 01157000 BFPPCBA EQU ISTBFPFX+4 01158000 BFPCBID EQU BFPPCBA 01159000 BFPNXCHN EQU ISTBFPFX+8 01160000 BFPSIZE EQU ISTBFPFX+12 01161000 BFPDATA EQU ISTBFPFX+16 01162000 BFPREGSA EQU BFPDATA 01163000 BFPR5SA EQU BFPREGSA 01164000 ISTCBIDT EQU 0 01165000 CBIDATR EQU ISTCBIDT 01166000 CBIDFLAG EQU ISTCBIDT+1 01167000 CBIDPCB EQU ISTCBIDT+4 01168000 PSARSVTE EQU PSARSVT 01169000 CVTS01 EQU CVTPGSIA 01170000 CVTLPDIA EQU CVTS01+12 01171000 CVTDIRST EQU CVTLPDIA 01172000 CVTSLIDA EQU CVTS01+24 01173000 CVTCTLFG EQU CVTS01+50 01174000 CVTLSMQ EQU CVTS01+268 01175000 CVTRV210 EQU CVTS01+424 01176000 CVTRV219 EQU CVTS01+425 01177000 CVTRV228 EQU CVTS01+426 01178000 CVTRV237 EQU CVTS01+427 01179000 CVTMFRTR EQU CVTS01+452 01180000 CVTRV262 EQU CVTS01+468 01181000 CVTRV271 EQU CVTS01+469 01182000 CVTRV280 EQU CVTS01+470 01183000 CVTRV289 EQU CVTS01+471 01184000 CVTGSDA EQU CVTS01+600 01185000 SRB EQU SRBSECT 01186000 LCPZTIE EQU LCPCID 01187000 LCPZSNAM EQU LCPZTIE+8 01188000 FLC EQU PSA 01189000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01190000 LCPZTRV4 EQU LCPZSNAM+4 01191000 LCPZTRV1 EQU LCPZSNAM 01192000 LCPZSNA EQU LCPZTIE+4 01193000 LCPZFMCA EQU LCPZTIE 01194000 CVTRV628 EQU CVTS01+728 01195000 CVTRV627 EQU CVTS01+724 01196000 CVTRV626 EQU CVTS01+720 01197000 CVTRV625 EQU CVTS01+716 01198000 CVTRV624 EQU CVTS01+712 01199000 CVTRV623 EQU CVTS01+708 01200000 CVTRV622 EQU CVTS01+704 01201000 CVTRV621 EQU CVTS01+700 01202000 CVTRV620 EQU CVTS01+696 01203000 CVTRV619 EQU CVTS01+692 01204000 CVTRV618 EQU CVTS01+688 01205000 CVTRV617 EQU CVTS01+684 01206000 CVTRV616 EQU CVTS01+680 01207000 CVTRV615 EQU CVTS01+676 01208000 CVTRV614 EQU CVTS01+672 01209000 CVTRV613 EQU CVTS01+668 01210000 CVTTCASP EQU CVTS01+664 01211000 CVT0PT03 EQU CVTS01+660 01212000 CVT0PT0E EQU CVTS01+656 01213000 CVTIRM EQU CVTS01+652 01214000 CVTCGK EQU CVTS01+648 01215000 CVTRV607 EQU CVTS01+644 01216000 CVTRV606 EQU CVTS01+640 01217000 CVTRV605 EQU CVTS01+636 01218000 CVTRV604 EQU CVTS01+632 01219000 CVTEFF02 EQU CVTS01+628 01220000 CVTCBBR EQU CVTS01+624 01221000 CVTSSCR EQU CVTS01+620 01222000 CVTEVENT EQU CVTS01+616 01223000 CVTCRCA EQU CVTS01+612 01224000 CVTTPIO EQU CVTS01+608 01225000 CVTADV EQU CVTS01+604 01226000 CVTGSDAB EQU CVTGSDA 01227000 CVTQV3 EQU CVTS01+596 01228000 CVTQV2 EQU CVTS01+592 01229000 CVTQV1 EQU CVTS01+588 01230000 CVTRPT EQU CVTS01+584 01231000 CVTSSRB EQU CVTS01+580 01232000 CVTCSDRL EQU CVTS01+576 01233000 CVTEXP1 EQU CVTS01+572 01234000 CVTRMPMT EQU CVTS01+568 01235000 CVTRMPTT EQU CVTS01+564 01236000 CVTVPSA EQU CVTS01+560 01237000 CVTVSTOP EQU CVTS01+556 01238000 CVTGTFR8 EQU CVTS01+552 01239000 CVTQUIT EQU CVTS01+548 01240000 CVTVACR EQU CVTS01+544 01241000 CVTWTCB EQU CVTS01+540 01242000 CVTSTPRS EQU CVTS01+536 01243000 CVT0PT02 EQU CVTS01+532 01244000 CVTDARCM EQU CVTS01+528 01245000 CVTIRECM EQU CVTS01+524 01246000 CVTJRECM EQU CVTS01+520 01247000 CVTVEMS0 EQU CVTS01+516 01248000 CVTSPFRR EQU CVTS01+512 01249000 CVTRLSTG EQU CVTS01+508 01250000 CVT0TC0A EQU CVTS01+504 01251000 CVTGMBR EQU CVTS01+500 01252000 CVTLFRM EQU CVTS01+496 01253000 CVTRMBR EQU CVTS01+492 01254000 CVTVIOP EQU CVTS01+488 01255000 CVTRV307 EQU CVTS01+486 01256000 CVTRV306 EQU CVTS01+484 01257000 CVTRV305 EQU CVTS01+482 01258000 CVTRV304 EQU CVTS01+480 01259000 CVTRV303 EQU CVTS01+478 01260000 CVTRV302 EQU CVTS01+476 01261000 CVTTRCA EQU CVTS01+472 01262000 CVTRV297 EQU CVTRV289 01263000 CVTRV296 EQU CVTRV289 01264000 CVTRV295 EQU CVTRV289 01265000 CVTRV294 EQU CVTRV289 01266000 CVTRV293 EQU CVTRV289 01267000 CVTRV292 EQU CVTRV289 01268000 CVTRV291 EQU CVTRV289 01269000 CVTRV290 EQU CVTRV289 01270000 CVTRV288 EQU CVTRV280 01271000 CVTRV287 EQU CVTRV280 01272000 CVTRV286 EQU CVTRV280 01273000 CVTRV285 EQU CVTRV280 01274000 CVTRV284 EQU CVTRV280 01275000 CVTRV283 EQU CVTRV280 01276000 CVTRV282 EQU CVTRV280 01277000 CVTRV281 EQU CVTRV280 01278000 CVTRV279 EQU CVTRV271 01279000 CVTRV278 EQU CVTRV271 01280000 CVTRV277 EQU CVTRV271 01281000 CVTRV276 EQU CVTRV271 01282000 CVTRV275 EQU CVTRV271 01283000 CVTRV274 EQU CVTRV271 01284000 CVTRV273 EQU CVTRV271 01285000 CVTRV272 EQU CVTRV271 01286000 CVTRV270 EQU CVTRV262 01287000 CVTRV269 EQU CVTRV262 01288000 CVTRV268 EQU CVTRV262 01289000 CVTRV267 EQU CVTRV262 01290000 CVTRV266 EQU CVTRV262 01291000 CVTRV265 EQU CVTRV262 01292000 CVTRV264 EQU CVTRV262 01293000 CVTRV263 EQU CVTRV262 01294000 CVTVFP EQU CVTS01+464 01295000 CVTVSI EQU CVTS01+460 01296000 CVTVPSIB EQU CVTS01+456 01297000 CVTMFACT EQU CVTMFRTR 01298000 CVTMFCTL EQU CVTS01+448 01299000 CVTPVBP EQU CVTS01+444 01300000 CVTPWI EQU CVTS01+440 01301000 CVTRV254 EQU CVTS01+438 01302000 CVTRV253 EQU CVTS01+436 01303000 CVTRV252 EQU CVTS01+434 01304000 CVTRV251 EQU CVTS01+433 01305000 CVTRV250 EQU CVTS01+432 01306000 CVTRV249 EQU CVTS01+431 01307000 CVTRV248 EQU CVTS01+430 01308000 CVTRV247 EQU CVTS01+429 01309000 CVTRV246 EQU CVTS01+428 01310000 CVTRV245 EQU CVTRV237 01311000 CVTRV244 EQU CVTRV237 01312000 CVTRV243 EQU CVTRV237 01313000 CVTRV242 EQU CVTRV237 01314000 CVTRV241 EQU CVTRV237 01315000 CVTRV240 EQU CVTRV237 01316000 CVTRV239 EQU CVTRV237 01317000 CVTRV238 EQU CVTRV237 01318000 CVTRV236 EQU CVTRV228 01319000 CVTRV235 EQU CVTRV228 01320000 CVTRV234 EQU CVTRV228 01321000 CVTRV233 EQU CVTRV228 01322000 CVTRV232 EQU CVTRV228 01323000 CVTRV231 EQU CVTRV228 01324000 CVTRV230 EQU CVTRV228 01325000 CVTRV229 EQU CVTRV228 01326000 CVTRV227 EQU CVTRV219 01327000 CVTRV226 EQU CVTRV219 01328000 CVTRV225 EQU CVTRV219 01329000 CVTRV224 EQU CVTRV219 01330000 CVTRV223 EQU CVTRV219 01331000 CVTRV222 EQU CVTRV219 01332000 CVTRV221 EQU CVTRV219 01333000 CVTRV220 EQU CVTRV219 01334000 CVTRV218 EQU CVTRV210 01335000 CVTRV217 EQU CVTRV210 01336000 CVTRV216 EQU CVTRV210 01337000 CVTRV215 EQU CVTRV210 01338000 CVTRV214 EQU CVTRV210 01339000 CVTRV213 EQU CVTRV210 01340000 CVTRV212 EQU CVTRV210 01341000 CVTRV211 EQU CVTRV210 01342000 CVTLCCAT EQU CVTS01+420 01343000 CVTPCCAT EQU CVTS01+416 01344000 CVTIPCRP EQU CVTS01+412 01345000 CVTIPCRI EQU CVTS01+408 01346000 CVTIPCDS EQU CVTS01+404 01347000 CVTAIDVT EQU CVTS01+400 01348000 CVTSSAP EQU CVTS01+396 01349000 CVTEHCIR EQU CVTS01+392 01350000 CVTEHDEF EQU CVTS01+388 01351000 CVTDAIR EQU CVTS01+384 01352000 CVTPERFM EQU CVTS01+380 01353000 CVT044R2 EQU CVTS01+376 01354000 CVTFETCH EQU CVTS01+372 01355000 CVTRSTWD EQU CVTS01+368 01356000 CVTSPOST EQU CVTS01+364 01357000 CVTIOBP EQU CVTS01+360 01358000 CVTASMVT EQU CVTS01+356 01359000 CVTRECRQ EQU CVTS01+352 01360000 CVTWSAC EQU CVTS01+348 01361000 CVTRV149 EQU CVTS01+344 01362000 CVTWSAL EQU CVTS01+340 01363000 CVTSPSA EQU CVTS01+336 01364000 CVTGLMN EQU CVTS01+332 01365000 CVTVEAC0 EQU CVTS01+328 01366000 CVT062R1 EQU CVTS01+324 01367000 CVTRPOST EQU CVTS01+320 01368000 CVTDQIQE EQU CVTS01+316 01369000 CVTCSD EQU CVTS01+312 01370000 CVTLKRMA EQU CVTS01+308 01371000 CVTRSPIE EQU CVTS01+304 01372000 CVTRENQ EQU CVTS01+300 01373000 CVTLQCB EQU CVTS01+296 01374000 CVTFQCB EQU CVTS01+292 01375000 CVTQCS01 EQU CVTS01+288 01376000 CVTAPFT EQU CVTS01+284 01377000 CVTPARRL EQU CVTS01+280 01378000 CVTVWAIT EQU CVTS01+276 01379000 CVTGSPL EQU CVTS01+272 01380000 CVTGSMQ EQU CVTS01+264 01381000 CVTEXPRO EQU CVTS01+260 01382000 CVTOPCTP EQU CVTS01+256 01383000 CVTSIC EQU CVTS01+252 01384000 CVTTPIOS EQU CVTS01+248 01385000 CVTRTMS EQU CVTS01+244 01386000 CVTSDBF EQU CVTS01+240 01387000 CVTSCBP EQU CVTS01+236 01388000 CVTSDMP EQU CVTS01+232 01389000 CVTSV60 EQU CVTS01+228 01390000 CVTRTMCT EQU CVTS01+224 01391000 CVTASCBL EQU CVTS01+220 01392000 CVTASCBH EQU CVTS01+216 01393000 CVTGDA EQU CVTS01+212 01394000 CVTASVT EQU CVTS01+208 01395000 CVTVVMDI EQU CVTS01+204 01396000 CVTAQTOP EQU CVTS01+200 01397000 CVTIOSCS EQU CVTS01+196 01398000 CVTSDRM EQU CVTS01+192 01399000 CVTOPTE EQU CVTS01+188 01400000 CVTSTXU EQU CVTS01+184 01401000 CVTQUIS EQU CVTS01+180 01402000 CVTPARS EQU CVTS01+176 01403000 CVTS1EE EQU CVTS01+172 01404000 CVTFRAS EQU CVTS01+168 01405000 CVTQSAS EQU CVTS01+164 01406000 CVTCRAS EQU CVTS01+160 01407000 CVTCRMN EQU CVTS01+156 01408000 CVTDELCP EQU CVTS01+152 01409000 CVTFRECL EQU CVTS01+148 01410000 CVTGETCL EQU CVTS01+144 01411000 CVTBLDCP EQU CVTS01+140 01412000 CVTAUTHL EQU CVTS01+136 01413000 CVTSCAN EQU CVTS01+132 01414000 CVTRV144 EQU CVTS01+130 01415000 CVTMAXMP EQU CVTS01+128 01416000 CVTSTCK EQU CVTS01+124 01417000 CVTRV139 EQU CVTS01+123 01418000 CVTDSSAC EQU CVTS01+122 01419000 CVTRV513 EQU CVTS01+121 01420000 CVTIOSPL EQU CVTS01+120 01421000 CVTPTGT EQU CVTS01+116 01422000 CVTCSPIE EQU CVTS01+112 01423000 CVTSMFEX EQU CVTS01+108 01424000 CVTOLT0A EQU CVTS01+104 01425000 CVTSRBRT EQU CVTS01+100 01426000 CVTPUTL EQU CVTS01+96 01427000 CVTASCRL EQU CVTS01+92 01428000 CVTASCRF EQU CVTS01+88 01429000 CVTRV326 EQU CVTS01+84 01430000 CVTRV325 EQU CVTS01+80 01431000 CVTRV324 EQU CVTS01+76 01432000 CVT0VL01 EQU CVTS01+72 01433000 CVTSHRVM EQU CVTS01+68 01434000 CVTRV332 EQU CVTS01+64 01435000 CVTTAS EQU CVTS01+60 01436000 CVTRSCN EQU CVTS01+56 01437000 CVTTRAC2 EQU CVTS01+54 01438000 CVTTRACE EQU CVTS01+52 01439000 CVTAPG EQU CVTS01+51 01440000 CVTSDTRC EQU CVTCTLFG 01441000 CVTGTRCE EQU CVTCTLFG 01442000 CVTNOMP EQU CVTCTLFG 01443000 CVTRSV79 EQU CVTCTLFG 01444000 CVTDSTAT EQU CVTCTLFG 01445000 CVTRSV78 EQU CVTCTLFG 01446000 CVTRV333 EQU CVTCTLFG 01447000 CVTRV323 EQU CVTCTLFG 01448000 CVTSPVLK EQU CVTS01+49 01449000 CVTRSV77 EQU CVTS01+48 01450000 CVTRV331 EQU CVTS01+44 01451000 CVTRV330 EQU CVTS01+40 01452000 CVTRV329 EQU CVTS01+36 01453000 CVTRV328 EQU CVTS01+32 01454000 CVTRV322 EQU CVTS01+28 01455000 CVTSLID EQU CVTSLIDA+1 01456000 CVTSYLK EQU CVTSLIDA 01457000 CVTRV321 EQU CVTS01+20 01458000 CVTRV320 EQU CVTS01+16 01459000 CVTLPDIR EQU CVTLPDIA+1 01460000 CVTRSV69 EQU CVTDIRST 01461000 CVTRSV68 EQU CVTDIRST 01462000 CVTRSV67 EQU CVTDIRST 01463000 CVTRSV66 EQU CVTDIRST 01464000 CVTRSV65 EQU CVTDIRST 01465000 CVTRSV64 EQU CVTDIRST 01466000 CVTRSV63 EQU CVTDIRST 01467000 CVTDICOM EQU CVTDIRST 01468000 CVTPVTP EQU CVTS01+8 01469000 CVTLPDSR EQU CVTS01+4 01470000 CVTGETL EQU CVTS01 01471000 PSARSAV EQU PSARSVTE+60 01472000 PSARSTK EQU PSARSVTE+56 01473000 PSAESAV3 EQU PSARSVTE+52 01474000 PSAESTK3 EQU PSARSVTE+48 01475000 PSAESAV2 EQU PSARSVTE+44 01476000 PSAESTK2 EQU PSARSVTE+40 01477000 PSAESAV1 EQU PSARSVTE+36 01478000 PSAESTK1 EQU PSARSVTE+32 01479000 PSAPSAV EQU PSARSVTE+28 01480000 PSAPSTK EQU PSARSVTE+24 01481000 PSAMSAV EQU PSARSVTE+20 01482000 PSAMSTK EQU PSARSVTE+16 01483000 PSASSAV EQU PSARSVTE+12 01484000 PSASSTK EQU PSARSVTE+8 01485000 PSANSTK EQU PSARSVTE+4 01486000 PSACSTK EQU PSARSVTE 01487000 CBIDLEN EQU ISTCBIDT+2 01488000 @NM00056 EQU CBIDFLAG 01489000 CBICLEAN EQU CBIDFLAG 01490000 @NM00055 EQU CBIDATR 01491000 CBINWS EQU CBIDATR 01492000 CBICBID EQU CBIDATR 01493000 CBIDAL48 EQU CBIDATR 01494000 CBINFCHP EQU CBIDATR 01495000 CBIFIXED EQU CBIDATR 01496000 CBIDISP EQU CBIDATR 01497000 CBIFM EQU CBIDATR 01498000 BFPRDSA EQU BFPREGSA+32 01499000 BFPRCSA EQU BFPREGSA+28 01500000 BFPRBSA EQU BFPREGSA+24 01501000 BFPRASA EQU BFPREGSA+20 01502000 BFPR9SA EQU BFPREGSA+16 01503000 BFPR8SA EQU BFPREGSA+12 01504000 BFPR7SA EQU BFPREGSA+8 01505000 BFPR6SA EQU BFPREGSA+4 01506000 BFPPMDSB EQU BFPR5SA 01507000 BFPPMCHN EQU BFPR5SA 01508000 BFPPMCLR EQU BFPR5SA 01509000 BFPUSED EQU ISTBFPFX+14 01510000 BFPBPCB EQU BFPPCBA+1 01511000 @NM00054 EQU BFPPCBA 01512000 BFPTIK EQU BFPPSTID+2 01513000 @NM00053 EQU BFPPSTID 01514000 BFPCBXNO EQU BFPTSKID 01515000 BFPALLOC EQU BFPTSKID 01516000 BPCBSRB EQU ISTBPCB+68 01517000 @NM00052 EQU BPCBRBLK 01518000 BPCBSRBG EQU BPCBRBLK 01519000 BPCBCCNT EQU BPCBCDS2 01520000 BPCBFBA EQU BPCBCDS1+1 01521000 @NM00051 EQU BPCBFLG2 01522000 BPCBLOW2 EQU BPCBFLG2 01523000 @NM00050 EQU BPCBFLG2 01524000 BPCBNUMR EQU ISTBPCB+54 01525000 BPCBNUM EQU ISTBPCB+52 01526000 BPCBRESP EQU ISTBPCB+48 01527000 @NM00049 EQU BPCBMUSE 01528000 BPCBTHR2 EQU ISTBPCB+38 01529000 BPCBNXCB EQU ISTBPCB+28 01530000 BPCBADR2 EQU ISTBPCB+12 01531000 BPCBADR1 EQU ISTBPCB+8 01532000 BPCBPRIO EQU BPCBFEXT 01533000 BPCBSPNO EQU ISTBPCB+3 01534000 @NM00048 EQU ISTBPCB+2 01535000 @NM00047 EQU BPCBFLAG+1 01536000 BPCBUSRF EQU BPCBFLAG+1 01537000 @NM00046 EQU BPCBFLAG 01538000 BPCBNWS EQU BPCBFLAG 01539000 BPCBCBID EQU BPCBFLAG 01540000 BPCBAL48 EQU BPCBFLAG 01541000 BPCBNFCH EQU BPCBFLAG 01542000 BPCBFX EQU BPCBFLAG 01543000 BPCBDISP EQU BPCBFLAG 01544000 BPCBFM EQU BPCBFLAG 01545000 BPDENTRY EQU ISTBPDTY+144 01546000 @NM00045 EQU BPDTRACE+6 01547000 BPDTRADR EQU BPDPARM+4 01548000 BPDTRID EQU BPDPARM+3 01549000 @NM00044 EQU BPDPARM+2 01550000 BPDTRLEN EQU BPDPARM 01551000 BPDRSV01 EQU BPDFLAG 01552000 BPDATCVT EQU BPDHDR+36 01553000 BPDFBPE EQU BPDHDR+32 01554000 BPDFEXT EQU BPDHDR+24 01555000 BPDADRS2 EQU BPDHDR+20 01556000 BPDADRS1 EQU BPDHDR+16 01557000 BPDPGPCB EQU BPDHDR+12 01558000 BPDCHPCB EQU BPDHDR+8 01559000 BPDCHBSZ EQU BPDHDR+6 01560000 BPDCHBNO EQU BPDHDR+4 01561000 BPDBPMAX EQU BPDHDR+2 01562000 BPERSV03 EQU ISTBPENT+12 01563000 BPEBPCB EQU ISTBPENT+8 01564000 BPEBFSIZ EQU ISTBPENT+6 01565000 BPERSV02 EQU BPEFLAGS+1 01566000 BPEUSRF EQU BPEFLAGS+1 01567000 BPERSV01 EQU BPEFLAGS 01568000 BPENWS EQU BPEFLAGS 01569000 BPECBID EQU BPEFLAGS 01570000 BPEAL48 EQU BPEFLAGS 01571000 BPENFCHP EQU BPEFLAGS 01572000 BPEFIXED EQU BPEFLAGS 01573000 BPEDISP EQU BPEFLAGS 01574000 BPEFM EQU BPEFLAGS 01575000 BPEPID EQU ISTBPENT 01576000 CRACHAIN EQU ISTCRA+928 01577000 CRARSV02 EQU ISTCRA+924 01578000 CRARSV01 EQU ISTCRA+920 01579000 CRABFTBA EQU CRABUFA 01580000 CRAASCRR EQU CRASVC 01581000 CRAPROCR EQU ISTCRA+312 01582000 CRAPSS EQU ISTCRA+160 01583000 CRARPH EQU ISTCRA+52 01584000 CRALAPTR EQU CRABASIC+48 01585000 CRAL9PTR EQU CRABASIC+44 01586000 CRAL8PTR EQU CRABASIC+40 01587000 CRAL7PTR EQU CRABASIC+36 01588000 CRAL6PTR EQU CRABASIC+32 01589000 CRAL5PTR EQU CRABASIC+28 01590000 CRAL4PTR EQU CRABASIC+24 01591000 CRAL3PTR EQU CRABASIC+20 01592000 CRAL2PTR EQU CRABASIC+16 01593000 CRAL1PTR EQU CRABASIC+12 01594000 CRALEV01 EQU CRALKACT+3 01595000 CRALEV02 EQU CRALKACT+3 01596000 CRALEV03 EQU CRALKACT+3 01597000 CRALEV04 EQU CRALKACT+3 01598000 CRALEV05 EQU CRALKACT+3 01599000 CRALEV06 EQU CRALKACT+3 01600000 CRALEV07 EQU CRALKACT+3 01601000 CRALEV08 EQU CRALKACT+3 01602000 CRALEV09 EQU CRALKACT+2 01603000 CRALEV10 EQU CRALKACT+2 01604000 CRALEV11 EQU CRALKACT+2 01605000 CRALEV12 EQU CRALKACT+2 01606000 CRALEV13 EQU CRALKACT+2 01607000 CRALEV14 EQU CRALKACT+2 01608000 CRALEV15 EQU CRALKACT+2 01609000 CRALEV16 EQU CRALKACT+2 01610000 CRALEV17 EQU CRALKACT+1 01611000 CRALEV18 EQU CRALKACT+1 01612000 CRALEV19 EQU CRALKACT+1 01613000 CRALEV20 EQU CRALKACT+1 01614000 CRALEV21 EQU CRALKACT+1 01615000 CRALEV22 EQU CRALKACT+1 01616000 CRALEV23 EQU CRALKACT+1 01617000 CRALEV24 EQU CRALKACT+1 01618000 CRALEV25 EQU CRALKACT 01619000 CRALEV26 EQU CRALKACT 01620000 CRALEV27 EQU CRALKACT 01621000 CRALEV28 EQU CRALKACT 01622000 CRALEV29 EQU CRALKACT 01623000 CRALEV30 EQU CRALKACT 01624000 CRALEV31 EQU CRALKACT 01625000 CRALEV32 EQU CRALKACT 01626000 CRAFRR EQU CRAHDR+4 01627000 CRACRR EQU CRAHDR 01628000 @NM00043 EQU ISTAPCRR+137 01629000 @NM00042 EQU APC57FLG 01630000 APCNREL EQU APC57FLG 01631000 APCRECRA EQU APC57FLG 01632000 @NM00041 EQU APC54FLG 01633000 APCRLST EQU APC54FLG 01634000 APCPR153 EQU APC53FLG 01635000 @NM00040 EQU APC52FLG 01636000 APCWKF EQU APC52FLG 01637000 APCNWF EQU APC52FLG 01638000 APCRDQ EQU APC52FLG 01639000 APCQENQ EQU APC52FLG 01640000 APCSMSR EQU APC52FLG 01641000 APCCKRQ EQU APC52FLG 01642000 @NM00039 EQU APC31FLG 01643000 APCSORT EQU APC31FLG 01644000 APCRESCH EQU APC31FLG 01645000 APCTPXIT EQU APC31FLG 01646000 APCSWTWD EQU ISTAPCRR+128 01647000 APCSAV2 EQU ISTAPCRR+124 01648000 APCSAV1 EQU ISTAPCRR+120 01649000 APCRETCD EQU APCCOMF+2 01650000 @NM00038 EQU APCCOMF1+1 01651000 APCZLBER EQU APCCOMF1 01652000 APCEXIT EQU APCCOMF1 01653000 APCRELR EQU APCCOMF1 01654000 APCIRB2 EQU APCCOMF1 01655000 APCIRB1 EQU APCCOMF1 01656000 APCSMCR EQU APCCOMF1 01657000 APCUETSK EQU APCCOMF1 01658000 APCSSTSK EQU APCCOMF1 01659000 APCESTAL EQU APCSAVE 01660000 APCFRRPM EQU ISTAPCRR+40 01661000 APCQWFO EQU ISTAPCRR+36 01662000 APCPABSV EQU ISTAPCRR+32 01663000 APCRTRN EQU ISTAPCRR+28 01664000 APCTCBA EQU ISTAPCRR+24 01665000 APCPSTA EQU ISTAPCRR+20 01666000 @NM00037 EQU APCRFLG+1 01667000 APC31R EQU APCRFLG 01668000 APC58R EQU APCRFLG 01669000 APC57R EQU APCRFLG 01670000 APC56R EQU APCRFLG 01671000 APC54R EQU APCRFLG 01672000 APC53R EQU APCRFLG 01673000 APC52R EQU APCRFLG 01674000 APC51R EQU APCRFLG 01675000 @NM00036 EQU APCATFLG+1 01676000 APC31E EQU APCATFLG 01677000 APC58E EQU APCATFLG 01678000 APC57E EQU APCATFLG 01679000 APC56E EQU APCATFLG 01680000 APC54E EQU APCATFLG 01681000 APC53E EQU APCATFLG 01682000 APC52E EQU APCATFLG 01683000 APC51E EQU APCATFLG 01684000 APCHDRSV EQU ISTAPCRR 01685000 ASCPSREG EQU ISTASCRR+44 01686000 ASCUSR01 EQU ASCUSRGS+12 01687000 ASCUSR00 EQU ASCUSRGS+8 01688000 ASCUSR15 EQU ASCUSRGS+4 01689000 ASCUSR14 EQU ASCUSRGS 01690000 ASCETRYA EQU ISTASCRR+24 01691000 ASCKEY EQU ISTASCRR+23 01692000 ASCAUDIT EQU ASCFLG3 01693000 ASCFBDUD EQU ASCFLG3 01694000 ASCLLKF EQU ASCFLG3 01695000 ASCKEYF EQU ASCFLG3 01696000 ASCFBDAL EQU ASCFLG3 01697000 ASCFSRGT EQU ASCFLG3 01698000 ASCICR EQU ASCFLG2 01699000 ASCFSRIC EQU ASCFLG2 01700000 ASCFBDIC EQU ASCFLG2 01701000 ASCFBAIC EQU ASCFLG2 01702000 ASCPASTR EQU ASCFLG1 01703000 ASCFSR EQU ASCFLG1 01704000 ASCFBD EQU ASCFLG1 01705000 ASCFBA EQU ASCFLG1 01706000 ASCPFCRR EQU ISTASCRR 01707000 ZCRRU EQU ZCRRHRU+3 01708000 ZCRRH EQU ZCRRHRU 01709000 ZCRWORDA EQU ISTZCRR+477 01710000 ZCRCMNRC EQU ISTZCRR+476 01711000 ZCRRSV97 EQU ZCRENTER+18 01712000 ZCREIC2B EQU ZCRENTER+18 01713000 ZCREAC2B EQU ZCRENTER+18 01714000 ZCRELCAB EQU ZCRENTER+18 01715000 ZCREDCMF EQU ZCRENTER+18 01716000 ZCREBCIF EQU ZCRENTER+18 01717000 ZCREICSG EQU ZCRENTER+18 01718000 ZCREDCK0 EQU ZCRENTER+18 01719000 ZCRECFY0 EQU ZCRENTER+17 01720000 ZCREKCCB EQU ZCRENTER+17 01721000 ZCREDCNB EQU ZCRENTER+17 01722000 ZCREICOE EQU ZCRENTER+17 01723000 ZCREBCNB EQU ZCRENTER+17 01724000 ZCREBC0L EQU ZCRENTER+17 01725000 ZCREBCAL EQU ZCRENTER+17 01726000 ZCREDCQR EQU ZCRENTER+17 01727000 ZCREDCPR EQU ZCRENTER+16 01728000 ZCREBCSB EQU ZCRENTER+16 01729000 ZCREAC1R EQU ZCRENTER+16 01730000 ZCRECCCI EQU ZCRENTER+16 01731000 ZCRECCAI EQU ZCRENTER+16 01732000 ZCRECCBI EQU ZCRENTER+16 01733000 ZCREBCAR EQU ZCRENTER+16 01734000 ZCREBCDR EQU ZCRENTER+16 01735000 ZCREBCBR EQU ZCRENTER+15 01736000 ZCREDCXR EQU ZCRENTER+15 01737000 ZCREDCWB EQU ZCRENTER+15 01738000 ZCREDCWR EQU ZCRENTER+15 01739000 ZCREKCCN EQU ZCRENTER+15 01740000 ZCREKCBN EQU ZCRENTER+15 01741000 ZCREKCBB EQU ZCRENTER+15 01742000 ZCREJC0B EQU ZCRENTER+15 01743000 ZCREJCDB EQU ZCRENTER+14 01744000 ZCREJCCB EQU ZCRENTER+14 01745000 ZCREJCBB EQU ZCRENTER+14 01746000 ZCREJCAB EQU ZCRENTER+14 01747000 ZCREIC1B EQU ZCRENTER+14 01748000 ZCREIC0B EQU ZCRENTER+14 01749000 ZCREICX0 EQU ZCRENTER+14 01750000 ZCREICWB EQU ZCRENTER+14 01751000 ZCREICVB EQU ZCRENTER+13 01752000 ZCREICUB EQU ZCRENTER+13 01753000 ZCREICTB EQU ZCRENTER+13 01754000 ZCREICSC EQU ZCRENTER+13 01755000 ZCREICSB EQU ZCRENTER+13 01756000 ZCREICRB EQU ZCRENTER+13 01757000 ZCREICQB EQU ZCRENTER+13 01758000 ZCREICQA EQU ZCRENTER+13 01759000 ZCREICOB EQU ZCRENTER+12 01760000 ZCREICOA EQU ZCRENTER+12 01761000 ZCREICNB EQU ZCRENTER+12 01762000 ZCREICNA EQU ZCRENTER+12 01763000 ZCREICMB EQU ZCRENTER+12 01764000 ZCREICLB EQU ZCRENTER+12 01765000 ZCREICKG EQU ZCRENTER+12 01766000 ZCREICKE EQU ZCRENTER+12 01767000 ZCREICKB EQU ZCRENTER+11 01768000 ZCREICJB EQU ZCRENTER+11 01769000 ZCREICID EQU ZCRENTER+11 01770000 ZCREICIB EQU ZCRENTER+11 01771000 ZCREICHB EQU ZCRENTER+11 01772000 ZCREICGB EQU ZCRENTER+11 01773000 ZCREICEB EQU ZCRENTER+11 01774000 ZCREICDB EQU ZCRENTER+11 01775000 ZCREICCI EQU ZCRENTER+10 01776000 ZCREICCB EQU ZCRENTER+10 01777000 ZCREICBI EQU ZCRENTER+10 01778000 ZCREICBB EQU ZCRENTER+10 01779000 ZCREICAB EQU ZCRENTER+10 01780000 ZCREICAA EQU ZCRENTER+10 01781000 ZCREHCAN EQU ZCRENTER+10 01782000 ZCREGC0B EQU ZCRENTER+10 01783000 ZCREGC0A EQU ZCRENTER+9 01784000 ZCREGCLA EQU ZCRENTER+9 01785000 ZCREGCEB EQU ZCRENTER+9 01786000 ZCREGCDB EQU ZCRENTER+9 01787000 @NM00035 EQU ZCRENTER+9 01788000 ZCREGCBB EQU ZCRENTER+9 01789000 ZCREGCAB EQU ZCRENTER+9 01790000 ZCREFCEB EQU ZCRENTER+9 01791000 ZCREFCEA EQU ZCRENTER+8 01792000 ZCREECTA EQU ZCRENTER+8 01793000 ZCREECEA EQU ZCRENTER+8 01794000 ZCREECDA EQU ZCRENTER+8 01795000 ZCREECCB EQU ZCRENTER+8 01796000 ZCREECCA EQU ZCRENTER+8 01797000 ZCREECBB EQU ZCRENTER+8 01798000 ZCREECBA EQU ZCRENTER+8 01799000 ZCREDCMB EQU ZCRENTER+7 01800000 ZCREDCL0 EQU ZCRENTER+7 01801000 ZCREDCKB EQU ZCRENTER+7 01802000 ZCREDCKA EQU ZCRENTER+7 01803000 ZCREDCJ0 EQU ZCRENTER+7 01804000 ZCREDCI0 EQU ZCRENTER+7 01805000 ZCREDCH0 EQU ZCRENTER+7 01806000 ZCREDCF0 EQU ZCRENTER+7 01807000 ZCREDCE0 EQU ZCRENTER+6 01808000 ZCREDCD0 EQU ZCRENTER+6 01809000 ZCREDCC0 EQU ZCRENTER+6 01810000 ZCREDCB0 EQU ZCRENTER+6 01811000 ZCREDCA0 EQU ZCRENTER+6 01812000 ZCRECC2B EQU ZCRENTER+6 01813000 ZCRECC1B EQU ZCRENTER+6 01814000 ZCRECC1A EQU ZCRENTER+6 01815000 ZCRECC0B EQU ZCRENTER+5 01816000 ZCRECC0A EQU ZCRENTER+5 01817000 ZCREBC0B EQU ZCRENTER+5 01818000 ZCREBC0A EQU ZCRENTER+5 01819000 ZCREBCZ0 EQU ZCRENTER+5 01820000 ZCREBCY0 EQU ZCRENTER+5 01821000 ZCREBCX0 EQU ZCRENTER+5 01822000 ZCREBCXA EQU ZCRENTER+5 01823000 ZCREBCSC EQU ZCRENTER+4 01824000 ZCREBCRB EQU ZCRENTER+4 01825000 ZCREBCRA EQU ZCRENTER+4 01826000 ZCREBCQB EQU ZCRENTER+4 01827000 ZCREBCPB EQU ZCRENTER+4 01828000 ZCREBCOB EQU ZCRENTER+4 01829000 ZCREBCNE EQU ZCRENTER+4 01830000 ZCREBCND EQU ZCRENTER+4 01831000 ZCREBCMB EQU ZCRENTER+3 01832000 ZCREBCLB EQU ZCRENTER+3 01833000 ZCREBCLA EQU ZCRENTER+3 01834000 ZCREBCKB EQU ZCRENTER+3 01835000 ZCREBCKA EQU ZCRENTER+3 01836000 ZCREBCJB EQU ZCRENTER+3 01837000 ZCREBCJA EQU ZCRENTER+3 01838000 ZCREBCID EQU ZCRENTER+3 01839000 ZCREBCIB EQU ZCRENTER+2 01840000 ZCREBCIA EQU ZCRENTER+2 01841000 ZCREBCHB EQU ZCRENTER+2 01842000 ZCREBCHA EQU ZCRENTER+2 01843000 ZCREBCGB EQU ZCRENTER+2 01844000 ZCREBCGA EQU ZCRENTER+2 01845000 ZCREBCFB EQU ZCRENTER+2 01846000 ZCREBCFA EQU ZCRENTER+2 01847000 ZCREBCEB EQU ZCRENTER+1 01848000 ZCREBCDI EQU ZCRENTER+1 01849000 ZCREBCCB EQU ZCRENTER+1 01850000 ZCREBCBI EQU ZCRENTER+1 01851000 ZCREBCBB EQU ZCRENTER+1 01852000 ZCREBCBA EQU ZCRENTER+1 01853000 ZCREBCAM EQU ZCRENTER+1 01854000 ZCREBCAI EQU ZCRENTER+1 01855000 ZCREBCAG EQU ZCRENTER 01856000 ZCREBCAE EQU ZCRENTER 01857000 ZCREBCAB EQU ZCRENTER 01858000 ZCREBCAA EQU ZCRENTER 01859000 ZCREAC1B EQU ZCRENTER 01860000 ZCREAC0B EQU ZCRENTER 01861000 ZCREAC0A EQU ZCRENTER 01862000 ZCREAC1A EQU ZCRENTER 01863000 ZCRTNAME EQU ZCRAUDIT+1 01864000 ZCRTID EQU ZCRAUDIT 01865000 ZCRREMIC EQU ISTZCRR+436 01866000 ZCRSAVEZ EQU ISTZCRR+196 01867000 ZCRDAFSV EQU ZCRCIDSV+2 01868000 ZCRSAFSV EQU ZCRCIDSV 01869000 ZCRR13SV EQU ISTZCRR+188 01870000 ZCRR2SV EQU ISTZCRR+184 01871000 ZCROPCDE EQU ISTZCRR+183 01872000 ZCRPRMTC EQU ISTZCRR+182 01873000 ZCRRCDSV EQU ISTZCRR+181 01874000 ZCRAWQSW EQU ISTZCRR+180 01875000 ZCRTOPQ EQU ISTZCRR+180 01876000 ZCRLSTFB EQU ISTZCRR+180 01877000 ZCRXSCHD EQU ISTZCRR+180 01878000 ZCRNXTEL EQU ISTZCRR+180 01879000 ZCRSCANQ EQU ISTZCRR+180 01880000 ZCRMOREL EQU ISTZCRR+180 01881000 ZCRFBPRC EQU ISTZCRR+180 01882000 ZCRFSBSV EQU ISTZCRR+176 01883000 ZCRSVWK5 EQU ZCRWKARA+16 01884000 ZCRSVWK4 EQU ZCRWKARA+12 01885000 ZCRSVWK3 EQU ZCRWKARA+8 01886000 ZCRSVWK2 EQU ZCRWKARA+4 01887000 ZCRSVWK1 EQU ZCRWKARA 01888000 ZCRSVF25 EQU ZCRSVRTN+96 01889000 ZCRSVF24 EQU ZCRSVRTN+92 01890000 ZCRSVF23 EQU ZCRSVRTN+88 01891000 ZCRSVF22 EQU ZCRSVRTN+84 01892000 ZCRSVF21 EQU ZCRSVRTN+80 01893000 ZCRSVF20 EQU ZCRSVRTN+76 01894000 ZCRSVF19 EQU ZCRSVRTN+72 01895000 ZCRSVF18 EQU ZCRSVRTN+68 01896000 ZCRSVF17 EQU ZCRSVRTN+64 01897000 ZCRSVF16 EQU ZCRSVRTN+60 01898000 ZCRSVF15 EQU ZCRSVRTN+56 01899000 ZCRSVF14 EQU ZCRSVRTN+52 01900000 ZCRSVF13 EQU ZCRSVRTN+48 01901000 ZCRSVF12 EQU ZCRSVRTN+44 01902000 ZCRSVF11 EQU ZCRSVRTN+40 01903000 ZCRSVF10 EQU ZCRSVRTN+36 01904000 ZCRSVF9 EQU ZCRSVRTN+32 01905000 ZCRSVF8 EQU ZCRSVRTN+28 01906000 ZCRSVF7 EQU ZCRSVRTN+24 01907000 ZCRSVF6 EQU ZCRSVRTN+20 01908000 ZCRSVF5 EQU ZCRSVRTN+16 01909000 ZCRSVF4 EQU ZCRSVRTN+12 01910000 ZCRSVF3 EQU ZCRSVRTN+8 01911000 ZCRSVF2 EQU ZCRSVRTN+4 01912000 ZCRSVF1 EQU ZCRSVRTN 01913000 ZCRPVZB EQU ISTZCRR+52 01914000 ZCRZLB EQU ISTZCRR+48 01915000 ZCRBFPTR EQU ISTZCRR+44 01916000 ZCRCCWA EQU ISTZCRR+40 01917000 ZCRPSW EQU ZCRPARMS+15 01918000 ZCRPCHAR EQU ZCRPARMS+14 01919000 ZCRPRES2 EQU ZCRPCOD2 01920000 ZCRPMFGF EQU ZCRPCOD2 01921000 ZCRPFHDR EQU ZCRPCOD2 01922000 ZCRPPG2 EQU ZCRPCOD2 01923000 ZCRPRES EQU ZCRPCOD1 01924000 ZCRPCFTX EQU ZCRPCOD1 01925000 ZCRPBUF EQU ZCRPCOD1 01926000 ZCRPLSCB EQU ZCRPCOD1 01927000 ZCRPLSBQ EQU ZCRPLSBF 01928000 ZCRPFSB EQU ZCRPCOD1 01929000 ZCRPLNG EQU ZCRPCOD1 01930000 ZCRPPG EQU ZCRPCOD1 01931000 ZCRDTODA EQU ZCRDFRDA 01932000 ZCRMLNG EQU ZCRPARMS+8 01933000 ZCRTBPTR EQU ZCRPARMS+4 01934000 ZCRCBPTR EQU ZCRFBPTR 01935000 ZCRCRLCP EQU ISTZCRR+20 01936000 ZCRMDATA EQU ZCRSCPSW 01937000 ZCRSKIPT EQU ZCRSCPSW 01938000 ZCRFSBWE EQU ZCRSCPSW 01939000 ZCRPRCMP EQU ZCRSCPSW 01940000 ZCRLREQ EQU ZCRSCPSW 01941000 ZCRRJLCP EQU ZCRSCPSW 01942000 ZCRTPINV EQU ZCRSCPSW 01943000 ZCRTPEX EQU ZCRSCPSW 01944000 @NM00034 EQU ZCRIBPR 01945000 ZCR3270R EQU ZCRIBPR 01946000 ZCR3270 EQU ZCRIBPR 01947000 ZCRLCPFD EQU ZCRIBPR 01948000 ZCRLCPFR EQU ZCRIBPR 01949000 ZCRRELK EQU ZCRIBPR 01950000 ZCRERR EQU ZCRIBPR 01951000 ZCRNOBUF EQU ZCRIBPR 01952000 @NM00033 EQU ZCRPFLGS 01953000 ZCRQAHED EQU ZCRPFLGS 01954000 ZCRF1RES EQU ZCRGENSW 01955000 ZCRBRIS EQU ZCRGENSW 01956000 ZCRCLRBD EQU ZCRGENSW 01957000 ZCREXRES EQU ZCRGENSW 01958000 ZCRLCSYN EQU ZCRGENSW 01959000 ZCRRT06 EQU ZCRGENSW 01960000 ZCRTSW2 EQU ZCRGENSW 01961000 ZCRTSW1 EQU ZCRGENSW 01962000 ZCRINLCP EQU ZCRFLGS3 01963000 ZCRWRPTR EQU ZCRFLGS3 01964000 ZCRNOFRE EQU ZCRFLGS3 01965000 ZCREDRIV EQU ZCRFLGS3 01966000 ZCRDISC EQU ZCRFLGS3 01967000 ZCRTPDIS EQU ZCRFLGS3 01968000 ZCRTPCON EQU ZCRFLGS3 01969000 ZCRTIC EQU ZCRFLGS3 01970000 ZCRCNLXL EQU ZCRRESET 01971000 ZCRENDAN EQU ZCRSWFLD 01972000 ZCRENDXL EQU ZCRSWFLD 01973000 ZCRENDX EQU ZCRSWFLD 01974000 ZCROB1 EQU ZCRNDLCP 01975000 ZCRENDPR EQU ZCRSWFLD 01976000 ZCREXTYP EQU ZCRSWFLD 01977000 ZCRSLCP EQU ZCRENDSH 01978000 ZCRIF0E3 EQU ZCRFLGS2 01979000 ZCRIF0E2 EQU ZCRFLGS2 01980000 ZCRIF0E1 EQU ZCRFLGS2 01981000 ZCROB EQU ZCRFLGS2 01982000 ZCRFMSED EQU ZCRFLGS2 01983000 ZCRSHEDI EQU ZCRFLGS2 01984000 ZCRLOCAL EQU ZCRFLGS2 01985000 ZCRFEXIT EQU ZCRFLGS1 01986000 ZCRUNSOL EQU ZCRFLGS1 01987000 ZCRENDLP EQU ZCRFLGS1 01988000 ZCRNRMEX EQU ZCRFLGS1 01989000 ZCRWAIT EQU ZCRFLGS1 01990000 ZCRDEQSW EQU ZCRFLGS1 01991000 ZCRQUESW EQU ZCRFLGS1 01992000 ZCREXSW EQU ZCRFLGS1 01993000 ZCRFRRA EQU ISTZCRR+8 01994000 ZCRCHAIN EQU ISTZCRR+4 01995000 ZCRFLAG EQU ZCRCRR+3 01996000 ZCRLEN EQU ZCRCRR+1 01997000 ZCRID EQU ZCRCRR 01998000 CCFRSVD1 EQU CFCCRT 01999000 CCFCR2 EQU CFCCRT 02000000 CCFCRP EQU CFCCRT 02001000 CCFCR1 EQU CFCCRT 02002000 CCFCS2 EQU CFCCRT 02003000 CCFCS1 EQU CFCCRT 02004000 NCFRSVD EQU CFCNTRD 02005000 NCFCR2 EQU CFCNTRD 02006000 NCFCRP EQU CFCNTRD 02007000 NCFCR1 EQU CFCNTRD 02008000 NCFCS2 EQU CFCNTRD 02009000 NCFCS1 EQU CFCNTRD 02010000 PFCRSV01 EQU ISTPFCRR+13 02011000 PFCFTA EQU ISTPFCRR+12 02012000 CRRFRR EQU PFCFRRO 02013000 CRRCHAIN EQU PFCCRRO 02014000 CRRLEN EQU PFCCRRLN 02015000 PFCRSV10 EQU PFCCRR+1 02016000 CRRID EQU PFCCRRID 02017000 ZSAZTRAC EQU ISTZSAVE+36 02018000 ZSAZSVVR EQU ISTZSAVE+12 02019000 ZSAZSVRR EQU ISTZSAVE+8 02020000 ZSAZSVFC EQU ISTZSAVE+4 02021000 ZSAZACTV EQU ZSAZSVMS 02022000 LCPFTYPE EQU LCPRPHA 02023000 LCPRSTQH EQU LCPLCCW 02024000 LCPCLREP EQU ISTLCPB+44 02025000 LCPUBFSB EQU LCPFLCCW 02026000 LCPRSV77 EQU ISTLCPB+39 02027000 LCPLCCWC EQU ISTLCPB+38 02028000 LCPRSV78 EQU LCPFLG1 02029000 LCPTRANS EQU LCPFLG1 02030000 LCPSTLB EQU LCPFLG1 02031000 LCPREDRV EQU LCPFLG1 02032000 LCPDIRPT EQU LCPFLG1 02033000 LCPINTER EQU LCPFLG1 02034000 LCPRESET EQU LCPFLG1 02035000 LCPSTYPE EQU ISTLCPB+36 02036000 LCPFSNCH EQU ISTLCPB+34 02037000 LCPFOSN EQU ISTLCPB+32 02038000 LCPTLBAD EQU ISTLCPB+28 02039000 LCPFDB2 EQU LCPFDBA+1 02040000 LCPFDB1 EQU LCPFDBA 02041000 LCPNXLCW EQU ISTLCPB+20 02042000 LCPDAF EQU LCPCID+2 02043000 LCPSAF EQU LCPCID 02044000 LCPLCCW1 EQU ISTLCPB+12 02045000 LCPRRCNT EQU LCPSEQ+1 02046000 LCPRRCCT EQU LCPSEQ 02047000 LCPATOP EQU LCPFLAG2 02048000 LCPFREE EQU LCPFLAG2 02049000 LCPDSTAT EQU LCPFLAG2 02050000 LCPEXRES EQU LCPFID0 02051000 LCPZRIMM EQU LCPTLBPI 02052000 LCPRSTRT EQU LCPFLAG2 02053000 LCPASYN EQU LCPFLAG2 02054000 LCPPRFLG EQU LCPFLAG2 02055000 LCPZMIRC EQU LCPRUCNT 02056000 LCPCHAI2 EQU LCPCHAIN+1 02057000 LCPCHNG EQU LCPCHAI1 02058000 LCPZRT0B EQU LCPMNRCD 02059000 LCPZRT0A EQU LCPMNRCD 02060000 LCPZRTL9 EQU LCPZRT09 02061000 LCPZRTL8 EQU LCPZRT08 02062000 LCPZRTL7 EQU LCPZRT07 02063000 LCPZRTL6 EQU LCPZRT06 02064000 LCPZRTL5 EQU LCPZRT05 02065000 LCPZRTL4 EQU LCPZRT04 02066000 LCPZRTL3 EQU LCPZRT03 02067000 LCPZRTL2 EQU LCPZRT02 02068000 LCPZRT01 EQU LCPFLAGS 02069000 LCPZRT00 EQU LCPFLAGS 02070000 LCPLNGTH EQU ISTLCPB+1 02071000 LCPTYPE EQU ISTLCPB 02072000 LCCWDATA EQU ISTLCCW+4 02073000 LCCWCNT EQU ISTLCCW+2 02074000 LCCWACI EQU LCCWFLAG 02075000 LCCWRFI EQU LCCWFLAG 02076000 LCCWPER EQU LCCWLSI 02077000 LCCWIDAT EQU LCCWFLAG 02078000 LCCWNTVC EQU LCCWFLAG 02079000 LCCWCKPT EQU LCCWFLAG 02080000 LCCWCC EQU LCCWFLAG 02081000 LCCWCD EQU LCCWFLAG 02082000 LCCWTYPE EQU LCCWCTL 02083000 LCCWMODE EQU LCCWCTL 02084000 LCCWSOP EQU LCCWRWOP 02085000 @NM00032 EQU LCCWRWOP 02086000 LCCWSD EQU LCCWOP 02087000 LCCWSI EQU LCCWOP 02088000 RPHNEXPO EQU ISTRPH+104 02089000 RPHSAV16 EQU RPHWORK+60 02090000 RPHSAV15 EQU RPHWORK+56 02091000 RPHSAV14 EQU RPHWORK+52 02092000 RPHSAV13 EQU RPHWORK+48 02093000 RPHSAV12 EQU RPHWORK+44 02094000 RPHSAV11 EQU RPHWORK+40 02095000 RPHSAV10 EQU RPHWORK+36 02096000 RPHSAVE9 EQU RPHWORK+32 02097000 RPHSAVE8 EQU RPHWORK+28 02098000 RPHSAVE7 EQU RPHWORK+24 02099000 RPHSAVE6 EQU RPHWORK+20 02100000 RPHSAVE5 EQU RPHWORK+16 02101000 RPHSAVE4 EQU RPHWORK+12 02102000 RPHSAVE3 EQU RPHWORK+8 02103000 RPHSAVE2 EQU RPHWORK+4 02104000 RPHSHALF EQU RPHSAVE1+2 02105000 RPHSBIT8 EQU RPHSBITS 02106000 RPHSBIT7 EQU RPHSBITS 02107000 RPHSBIT6 EQU RPHSBITS 02108000 RPHSBIT5 EQU RPHSBITS 02109000 RPHSBIT4 EQU RPHSBITS 02110000 RPHSBIT3 EQU RPHSBITS 02111000 RPHSBIT2 EQU RPHSBITS 02112000 RPHSBIT1 EQU RPHSBITS 02113000 RPHSBYTE EQU RPHSAVE1 02114000 RPHPABQP EQU RPHPABQA+1 02115000 RPHPABFG EQU RPHPABQA 02116000 RPHSRP34 EQU RPHSRPRM+2 02117000 RPHSRP12 EQU RPHSRPRM 02118000 RPHWEGT EQU RPHCSPA 02119000 RPHMAJCB EQU ISTRPH+21 02120000 RPHPABOF EQU ISTRPH+20 02121000 RPHRESUM EQU RPHRESMA+1 02122000 RPHRSV01 EQU RPHWPFLG 02123000 RPHPURGE EQU RPHWPFLG 02124000 RPHPT EQU RPHWPFLG 02125000 RPHWT EQU RPHWPFLG 02126000 RPHRSKEY EQU RPHWPFLG 02127000 RPHDVTA EQU ISTRPH+12 02128000 RPHTIK EQU RPHTSKID+3 02129000 @NM00031 EQU RPHTSKID 02130000 RPHRPHAP EQU RPHRPHA+1 02131000 @NM00030 EQU RPHCVFLG 02132000 RPHFRRPH EQU RPHCVFLG 02133000 RPHOWRPH EQU RPHCVFLG 02134000 RPHCDRPH EQU RPHCVFLG 02135000 RPHPSRPH EQU RPHCVFLG 02136000 RPHVYRPH EQU RPHGATE 02137000 @NM00029 EQU RPHFLGB 02138000 RPHRLCRA EQU RPHFLGB 02139000 RPHNRSAV EQU RPHFLGB 02140000 RPHPGCMP EQU RPHFLGB 02141000 RPHFBAPS EQU RPHFLGB 02142000 RPHBSSP EQU RPHFLGB 02143000 RPHLOCK EQU RPHFLGB 02144000 RPHFNFLG EQU RPHFSTLC 02145000 RPHMLTCP EQU RPHFLAGS 02146000 RPHSMCLR EQU RPHFLAGS 02147000 RPHSMTYP EQU RPHFLAGS 02148000 RPHSMQ EQU RPHFLAGS 02149000 RPHAUTEX EQU RPHAPTYP 02150000 RPHSPGIN EQU RPHFLAGS 02151000 RPHOGIND EQU RPHFLAGS 02152000 RPHLNGTH EQU RPHCNTL+1 02153000 RPHTYPE EQU RPHCNTL 02154000 @NM00028 EQU SRBSECT+40 02155000 @NM00027 EQU SRBSECT+38 02156000 SRBPRIOR EQU SRBSECT+37 02157000 SRBPKF EQU SRBSECT+36 02158000 SRBSAVE EQU SRBSECT+32 02159000 SRBPARM EQU SRBSECT+28 02160000 SRBRMTR EQU SRBSECT+24 02161000 SRBEP EQU SRBSECT+20 02162000 SRBPTCB EQU SRBFLC+4 02163000 SRBPASID EQU SRBFLC+2 02164000 SRBCPAFF EQU SRBFLC 02165000 SRBASCB EQU SRBSECT+8 02166000 SRBID EQU SRBSECT 02167000 CVTLEVL EQU CVTRELNO+2 02168000 CVTNUMB EQU CVTRELNO 02169000 CVTMDL EQU CVTFIX+250 02170000 @NM00026 EQU CVTFIX+248 02171000 @NM00025 EQU CVTFIX 02172000 CVTRV482 EQU CVTXTNT2+128 02173000 CVTRV481 EQU CVTXTNT2+124 02174000 CVTRV480 EQU CVTXTNT2+120 02175000 CVTRV479 EQU CVTXTNT2+118 02176000 CVTRV478 EQU CVTXTNT2+117 02177000 CVTRV477 EQU CVTXTNT2+116 02178000 CVTRV476 EQU CVTXTNT2+115 02179000 CVTRV475 EQU CVTXTNT2+114 02180000 CVTRV474 EQU CVTRV466 02181000 CVTRV473 EQU CVTRV466 02182000 CVTRV472 EQU CVTRV466 02183000 CVTRV471 EQU CVTRV466 02184000 CVTRV470 EQU CVTRV466 02185000 CVTRV469 EQU CVTRV466 02186000 CVTRV468 EQU CVTRV466 02187000 CVTRV467 EQU CVTRV466 02188000 CVTRV465 EQU CVTRV457 02189000 CVTRV464 EQU CVTRV457 02190000 CVTRV463 EQU CVTRV457 02191000 CVTRV462 EQU CVTRV457 02192000 CVTRV461 EQU CVTRV457 02193000 CVTRV460 EQU CVTRV457 02194000 CVTRV459 EQU CVTRV457 02195000 CVTRV458 EQU CVTRV457 02196000 CVTRV456 EQU CVTXTNT2+108 02197000 CVTRV455 EQU CVTXTNT2+104 02198000 CVTRV454 EQU CVTXTNT2+100 02199000 CVTRV453 EQU CVTXTNT2+96 02200000 CVTRV452 EQU CVTXTNT2+94 02201000 CVTRV451 EQU CVTXTNT2+92 02202000 CVTRV450 EQU CVTXTNT2+90 02203000 CVTRV449 EQU CVTXTNT2+88 02204000 CVTRV448 EQU CVTXTNT2+87 02205000 CVTRV447 EQU CVTXTNT2+86 02206000 CVTRV446 EQU CVTRV438 02207000 CVTRV445 EQU CVTRV438 02208000 CVTRV444 EQU CVTRV438 02209000 CVTRV443 EQU CVTRV438 02210000 CVTRV442 EQU CVTRV438 02211000 CVTRV441 EQU CVTRV438 02212000 CVTRV440 EQU CVTRV438 02213000 CVTRV439 EQU CVTRV438 02214000 CVTRV437 EQU CVTRV429 02215000 CVTRV436 EQU CVTRV429 02216000 CVTRV435 EQU CVTRV429 02217000 CVTRV434 EQU CVTRV429 02218000 CVTRV433 EQU CVTRV429 02219000 CVTRV432 EQU CVTRV429 02220000 CVTRV431 EQU CVTRV429 02221000 CVTRV430 EQU CVTRV429 02222000 CVTRV428 EQU CVTXTNT2+80 02223000 CVTRV427 EQU CVTXTNT2+76 02224000 CVTRV426 EQU CVTXTNT2+72 02225000 CVTRV425 EQU CVTXTNT2+68 02226000 CVTATACT EQU CVTATCVT 02227000 CVTRV423 EQU CVTXTNT2+62 02228000 CVTRV422 EQU CVTXTNT2+60 02229000 CVTRV421 EQU CVTXTNT2+58 02230000 CVTRV420 EQU CVTXTNT2+56 02231000 CVTRV419 EQU CVTXTNT2+55 02232000 CVTRV418 EQU CVTXTNT2+54 02233000 CVTRV417 EQU CVTRV409 02234000 CVTRV416 EQU CVTRV409 02235000 CVTRV415 EQU CVTRV409 02236000 CVTRV414 EQU CVTRV409 02237000 CVTRV413 EQU CVTRV409 02238000 CVTRV412 EQU CVTRV409 02239000 CVTRV411 EQU CVTRV409 02240000 CVTRV410 EQU CVTRV409 02241000 CVTRV408 EQU CVTRV400 02242000 CVTRV407 EQU CVTRV400 02243000 CVTRV406 EQU CVTRV400 02244000 CVTRV405 EQU CVTRV400 02245000 CVTRV404 EQU CVTRV400 02246000 CVTRV403 EQU CVTRV400 02247000 CVTRV402 EQU CVTRV400 02248000 CVTRV401 EQU CVTRV400 02249000 CVTICB EQU CVTXTNT2+48 02250000 CVTSKTA EQU CVTXTNT2+44 02251000 CVTSHSB EQU CVTSHS 02252000 CVTRSV98 EQU CVTXTNT2+36 02253000 CVTRSV97 EQU CVTXTNT2+34 02254000 CVTRSV96 EQU CVTXTNT2+32 02255000 CVTOLTEP EQU CVTXTNT2+28 02256000 CVTQIDA EQU CVTQID+1 02257000 CVTRSV95 EQU CVTQID 02258000 CVTRSV94 EQU CVTXTNT2+20 02259000 CVTRSV93 EQU CVTXTNT2+16 02260000 CVTRSV92 EQU CVTXTNT2+12 02261000 CVTDEBVR EQU CVTXTNT2+8 02262000 CVTRSV91 EQU CVTXTNT2+6 02263000 CVTRSV9H EQU CVTFLGBT 02264000 CVTRSV9G EQU CVTFLGBT 02265000 CVTRSV9F EQU CVTFLGBT 02266000 CVTRSV9E EQU CVTFLGBT 02267000 CVTRSV9D EQU CVTFLGBT 02268000 CVTRSV9C EQU CVTFLGBT 02269000 CVTVME EQU CVTFLGBT 02270000 CVTNPE EQU CVTFLGBT 02271000 CVTNUCLS EQU CVTXTNT2+4 02272000 CVTDSSVA EQU CVTDSSV+1 02273000 CVTRSV89 EQU CVTDSSV 02274000 CVTRSV88 EQU CVTXTNT1+8 02275000 CVTRSV87 EQU CVTXTNT1+4 02276000 CVTFACHN EQU CVTXTNT1 02277000 CVTRV488 EQU CVTMAP+412 02278000 CVTRV487 EQU CVTMAP+408 02279000 CVTRV486 EQU CVTMAP+404 02280000 CVTRV485 EQU CVTMAP+400 02281000 CVTACTAP EQU CVTMAP+396 02282000 CVTAUTH EQU CVTMAP+392 02283000 CVTATMCA EQU CVTATMCT+1 02284000 CVTATMST EQU CVTATMCT 02285000 CVTRSV61 EQU CVTMAP+384 02286000 CVTVOLT1 EQU CVTVOLM1+1 02287000 CVTVOLI1 EQU CVTVOLF1 02288000 CVTSTOA EQU CVTMAP+376 02289000 CVTRSV58 EQU CVTMAP+374 02290000 CVTRSV57 EQU CVTMAP+372 02291000 CVTDDCE EQU CVTMAP+368 02292000 CVTPNWFR EQU CVTMAP+364 02293000 CVTSMF EQU CVTMAP+360 02294000 CVTSULK EQU CVTMAP+358 02295000 CVTSLKO EQU CVTSYSK 02296000 CVTSLKP EQU CVTSYSK 02297000 CVTSLKQ EQU CVTSYSK 02298000 CVTSLKR EQU CVTSYSK 02299000 CVTRSV56 EQU CVTSYSK 02300000 CVTRSV55 EQU CVTSYSK 02301000 CVTRSV54 EQU CVTSYSK 02302000 CVTRSV53 EQU CVTSYSK 02303000 CVTRSV52 EQU CVTA1F1 02304000 CVTRSV51 EQU CVTA1F1 02305000 CVTRSV50 EQU CVTA1F1 02306000 CVTRSV49 EQU CVTA1F1 02307000 CVTRSV48 EQU CVTA1F1 02308000 CVTRSV47 EQU CVTA1F1 02309000 CVTSRSW EQU CVTA1F1 02310000 CVTPFSW EQU CVTA1F1 02311000 CVTPCVT EQU CVTMAP+352 02312000 CVTRSV46 EQU CVTMAP+344 02313000 CVTRSV45 EQU CVTMAP+340 02314000 CVTRSV44 EQU CVTMAP+338 02315000 CVTRSV43 EQU CVTMAP+336 02316000 CVTHJESA EQU CVTHJES+1 02317000 CVTRSV42 EQU CVTHJES 02318000 CVTEXT2A EQU CVTEXT2+1 02319000 CVTRSV41 EQU CVTEXT2 02320000 CVTAPFA EQU CVTAPF+1 02321000 CVTRSV40 EQU CVTAPF 02322000 CVTRV518 EQU CVTINTLA 02323000 CVTRV517 EQU CVTERPV 02324000 CVTEORM EQU CVTMAP+312 02325000 CVTMCHPR EQU CVTMAP+308 02326000 CVTTZ EQU CVTMAP+304 02327000 CVTJEPS EQU CVTMAP+300 02328000 CVTJESCT EQU CVTMAP+296 02329000 CVTMODE EQU CVTMAP+292 02330000 CVTPTRV EQU CVTMAP+288 02331000 CVTREAL EQU CVTMAP+284 02332000 CVTRSV39 EQU CVTMAP+280 02333000 CVTRSV38 EQU CVTMAP+276 02334000 CVTDMSRA EQU CVTDMSR+1 02335000 CVTRV634 EQU CVTDMSRF 02336000 CVTRV633 EQU CVTDMSRF 02337000 CVTRV632 EQU CVTDMSRF 02338000 CVTRV631 EQU CVTDMSRF 02339000 CVTRV630 EQU CVTDMSRF 02340000 CVTRV629 EQU CVTDMSRF 02341000 CVTUDUMP EQU CVTDMSRF 02342000 CVTSDUMP EQU CVTDMSRF 02343000 CVTQMSGA EQU CVTQMSG+1 02344000 CVTRSV36 EQU CVTQMSG 02345000 CVTAMFF EQU CVTMAP+264 02346000 CVTPURGA EQU CVTPURG+1 02347000 CVTRSV35 EQU CVTPURG 02348000 CVTCBSP EQU CVTMAP+256 02349000 CVTATERA EQU CVTATER+1 02350000 CVTSYST EQU CVTATER 02351000 CVTVOLT2 EQU CVTTAT 02352000 CVTVOLI2 EQU CVTVOLF2 02353000 CVTAQAVB EQU CVTAQAVT+1 02354000 CVTRSV34 EQU CVTTCMFG 02355000 CVTRSV33 EQU CVTTCMFG 02356000 CVTRSV32 EQU CVTTCMFG 02357000 CVTRSV31 EQU CVTTCMFG 02358000 CVTRSV30 EQU CVTTCMFG 02359000 CVTRSV29 EQU CVTTCMFG 02360000 CVTRSV28 EQU CVTTCMFG 02361000 CVTTCRDY EQU CVTTCMFG 02362000 CVTGTFA EQU CVTGTF+1 02363000 CVTRSV27 EQU CVTGTFST 02364000 CVTRNIO EQU CVTGTFST 02365000 CVTUSR EQU CVTGTFST 02366000 CVTRV318 EQU CVTFORM 02367000 CVTRV317 EQU CVTTMODE 02368000 CVTRV316 EQU CVTSTATE 02369000 CVTRV315 EQU CVTGTFS 02370000 CVTGTFAV EQU CVTGTFS 02371000 CVT0SCR1 EQU CVTMAP+232 02372000 CVTRV515 EQU CVTMAP+228 02373000 CVTRMS EQU CVTMAP+224 02374000 CVTPATCH EQU CVTMAP+220 02375000 CVTTSCE EQU CVTMAP+216 02376000 CVTLNKSC EQU CVTMAP+214 02377000 CVTQABST EQU CVTMAP+212 02378000 CVTMDLDS EQU CVTMAP+208 02379000 CVTUSER EQU CVTMAP+204 02380000 CVTABEND EQU CVTMAP+200 02381000 CVTSMCA EQU CVTMAP+196 02382000 CVTRSV18 EQU CVTMAP+192 02383000 CVTQLPAQ EQU CVTMAP+188 02384000 CVTQCDSR EQU CVTMAP+184 02385000 CVTRSV17 EQU CVTOPTB 02386000 CVTRSV16 EQU CVTOPTB 02387000 CVTFP EQU CVTOPTB 02388000 CVTAPTHR EQU CVTOPTB 02389000 CVTNLOG EQU CVTOPTB 02390000 CVTTOD EQU CVTOPTB 02391000 CVTCTIMS EQU CVTOPTB 02392000 CVTPROT EQU CVTOPTB 02393000 CVTXPFP EQU CVTOPTA 02394000 CVTASCII EQU CVTOPTA 02395000 CVTRSV13 EQU CVTOPTA 02396000 CVTRSV12 EQU CVTOPTA 02397000 CVTNIP EQU CVTOPTA 02398000 CVTDDR EQU CVTOPTA 02399000 CVTAPR EQU CVTOPTA 02400000 CVTCCH EQU CVTOPTA 02401000 CVTSNCTR EQU CVTMAP+180 02402000 CVTQMWR EQU CVTMAP+176 02403000 CVTQOCR EQU CVTMAP+172 02404000 CVT1EF00 EQU CVTMAP+168 02405000 CVTMZ00 EQU CVTMAP+164 02406000 CVTHEAD EQU CVTMAP+160 02407000 CVTRSV11 EQU CVTMAP+156 02408000 CVT0PT01 EQU CVTMAP+152 02409000 CVTMSER EQU CVTMAP+148 02410000 CVTRV516 EQU CVTIERLC 02411000 CVTILCH EQU CVTMAP+140 02412000 CVT0DS EQU CVTMAP+136 02413000 CVTFBOSV EQU CVTMAP+132 02414000 CVTNUCB EQU CVTMAP+128 02415000 CVTIXAVL EQU CVTMAP+124 02416000 CVTIOQET EQU CVTMAP+120 02417000 CVTDCBA EQU CVTMAP+117 02418000 CVTMVS2 EQU CVTDCB 02419000 CVT6DAT EQU CVTDCB 02420000 CVT4MPS EQU CVTDCB 02421000 CVTRSV09 EQU CVTDCB 02422000 CVT4MS1 EQU CVTDCB 02423000 CVT2SPS EQU CVTDCB 02424000 CVT1SSS EQU CVTDCB 02425000 CVTRSV08 EQU CVTDCB 02426000 CVTSTB EQU CVTMAP+112 02427000 CVTQTD00 EQU CVTMAP+108 02428000 CVTQTE00 EQU CVTMAP+104 02429000 CVTCUCB EQU CVTMAP+100 02430000 CVTSJQ EQU CVTMAP+96 02431000 CVTPBLDL EQU CVTMAP+92 02432000 CVTTPC EQU CVTMAP+88 02433000 CVTSVDCB EQU CVTMAP+84 02434000 CVTBRET EQU CVTMAP+82 02435000 CVTEXIT EQU CVTMAP+80 02436000 CVT0FN00 EQU CVTMAP+76 02437000 CVTDARA EQU CVTDAR+1 02438000 CVTRSV07 EQU CVTFLGS1 02439000 CVTRSV06 EQU CVTFLGS1 02440000 CVTRSV05 EQU CVTFLGS1 02441000 CVTRSV04 EQU CVTFLGS1 02442000 CVTRSV03 EQU CVTFLGS1 02443000 CVTRSV02 EQU CVTFLGS1 02444000 CVTRSV01 EQU CVTFLGS1 02445000 CVTDMPLK EQU CVTFLGS1 02446000 CVTXITP EQU CVTMAP+68 02447000 CVTZDTAB EQU CVTMAP+64 02448000 CVTMSLT EQU CVTMAP+60 02449000 CVTDATE EQU CVTMAP+56 02450000 CVTBTERM EQU CVTMAP+52 02451000 CVTSYSAD EQU CVTMAP+48 02452000 CVTXTLER EQU CVTMAP+44 02453000 CVTILK2 EQU CVTMAP+40 02454000 CVTILK1 EQU CVTMAP+36 02455000 CVTPRLTV EQU CVTMAP+32 02456000 CVTPCNVT EQU CVTMAP+28 02457000 CVT0VL00 EQU CVTMAP+24 02458000 CVTXAPG EQU CVTMAP+20 02459000 CVTBUF EQU CVTMAP+16 02460000 CVTJOB EQU CVTMAP+12 02461000 CVTLINK EQU CVTMAP+8 02462000 CVT0EF00 EQU CVTMAP+4 02463000 CVTTCBP EQU CVTMAP 02464000 CVT EQU CVTMAP 02465000 @NM00024 EQU PSA+3668 02466000 PSASTAK EQU PSA+3072 02467000 @NM00023 EQU PSA+1048 02468000 PSAUSEND EQU PSA+1048 02469000 PSARV062 EQU PSA+1044 02470000 PSACDAL EQU PSA+1040 02471000 PSAWTCOD EQU PSA+1036 02472000 PSAATCVT EQU PSA+1032 02473000 PSAPCPSW EQU PSA+1024 02474000 PSAPIR2 EQU PSA+1020 02475000 PSARV059 EQU PSA+1018 02476000 PSASVC13 EQU PSA+1016 02477000 PSALSFCC EQU PSA+1012 02478000 PSASFACC EQU PSA+1008 02479000 PSASTOP EQU PSA+992 02480000 PSASTART EQU PSA+976 02481000 PSARSPSW EQU PSA+968 02482000 PSASRPSW EQU PSA+960 02483000 PSARV045 EQU PSA+892 02484000 PSARV044 EQU PSA+888 02485000 PSARV043 EQU PSA+884 02486000 PSARV042 EQU PSA+880 02487000 PSARV041 EQU PSA+876 02488000 PSARV040 EQU PSA+872 02489000 PSARV025 EQU PSA+868 02490000 PSADSSED EQU PSA+868 02491000 PSADSSPR EQU PSA+864 02492000 PSADSSFW EQU PSA+860 02493000 PSADSS14 EQU PSA+856 02494000 PSADSSPP EQU PSA+848 02495000 PSADSSRP EQU PSA+840 02496000 PSADSS05 EQU PSADSSF4 02497000 PSADSS10 EQU PSADSSF4 02498000 PSADSSVE EQU PSADSSF4 02499000 PSADSSDE EQU PSADSSF4 02500000 PSADSSC0 EQU PSADSSF4 02501000 PSADSSIE EQU PSADSSF4 02502000 PSADSS12 EQU PSADSSF4 02503000 PSADSSRC EQU PSADSSF4 02504000 PSARV057 EQU PSADSSF3 02505000 PSARV056 EQU PSADSSF3 02506000 PSARV055 EQU PSADSSF3 02507000 PSADSSMC EQU PSADSSF3 02508000 PSADSSRW EQU PSADSSF3 02509000 PSADSSNM EQU PSADSSF3 02510000 PSADSSES EQU PSADSSF3 02511000 PSADSSGP EQU PSADSSF3 02512000 PSADSSF2 EQU PSADSSFL+1 02513000 PSADSSPI EQU PSADSSF1 02514000 PSADSSOI EQU PSADSSF1 02515000 PSADSSSP EQU PSADSSF1 02516000 PSADSSTP EQU PSADSSF1 02517000 PSADSSDW EQU PSADSSF1 02518000 PSADSSDD EQU PSADSSF1 02519000 PSADSSDM EQU PSADSSF1 02520000 PSADSSMV EQU PSADSSF1 02521000 PSADSSTS EQU PSA+816 02522000 PSADSSWK EQU PSA+812 02523000 PSADSSR3 EQU PSA+808 02524000 PSADSSR2 EQU PSA+804 02525000 PSADSSRS EQU PSA+800 02526000 PSASTOR EQU PSA+796 02527000 PSACPUSA EQU PSA+794 02528000 PSAVSTAP EQU PSA+792 02529000 PSAWKVAP EQU PSA+788 02530000 PSAWKRAP EQU PSA+784 02531000 PSAMCHIC EQU PSA+783 02532000 PSARV061 EQU PSA+782 02533000 PSASYMSK EQU PSA+781 02534000 PSAMCHFL EQU PSA+780 02535000 PSACR0 EQU PSA+776 02536000 PSAPSWSV EQU PSA+768 02537000 PSALITA EQU PSA+764 02538000 PSACLHS EQU PSAHLHI 02539000 PSALKR15 EQU PSALKSA+60 02540000 PSALKR14 EQU PSALKSA+56 02541000 PSALKR13 EQU PSALKSA+52 02542000 PSALKR12 EQU PSALKSA+48 02543000 PSALKR11 EQU PSALKSA+44 02544000 PSALKR10 EQU PSALKSA+40 02545000 PSALKR9 EQU PSALKSA+36 02546000 PSALKR8 EQU PSALKSA+32 02547000 PSALKR7 EQU PSALKSA+28 02548000 PSALKR6 EQU PSALKSA+24 02549000 PSALKR5 EQU PSALKSA+20 02550000 PSALKR4 EQU PSALKSA+16 02551000 PSALKR3 EQU PSALKSA+12 02552000 PSALKR2 EQU PSALKSA+8 02553000 PSALKR1 EQU PSALKSA+4 02554000 PSALKR0 EQU PSALKSA 02555000 PSARV023 EQU PSACLHT+52 02556000 PSALOCAL EQU PSACLHT+48 02557000 PSACMSL EQU PSACLHT+44 02558000 PSAOPTL EQU PSACLHT+40 02559000 PSATPACL EQU PSACLHT+36 02560000 PSATPDNL EQU PSACLHT+32 02561000 PSATPNCL EQU PSACLHT+28 02562000 PSAIOSLL EQU PSACLHT+24 02563000 PSAIOSUL EQU PSACLHT+20 02564000 PSAIOSCL EQU PSACLHT+16 02565000 PSAIOSSL EQU PSACLHT+12 02566000 PSASALCL EQU PSACLHT+8 02567000 PSAASML EQU PSACLHT+4 02568000 PSADISPL EQU PSACLHT 02569000 PSASRSA EQU PSA+636 02570000 PSARV050 EQU PSA+634 02571000 PSADSSGO EQU PSA+633 02572000 PSARECUR EQU PSA+632 02573000 PSAHLHIS EQU PSA+628 02574000 PSAIPCSA EQU PSA+624 02575000 @NM00022 EQU PSA+621 02576000 PSAIPCDM EQU PSA+620 02577000 PSAIPCD EQU PSA+616 02578000 @NM00021 EQU PSA+613 02579000 PSAIPCRM EQU PSA+612 02580000 PSAIPCR EQU PSA+608 02581000 PSAMCHEX EQU PSA+600 02582000 PSAMPSW EQU PSA+592 02583000 PSAEXPS2 EQU PSA+584 02584000 PSAEXPS1 EQU PSA+576 02585000 PSAPIREG EQU PSA+572 02586000 PSARSREG EQU PSA+568 02587000 PSAGPREG EQU PSA+556 02588000 PSARV022 EQU PSASUP4 02589000 PSARV021 EQU PSASUP4 02590000 PSARV020 EQU PSASUP4 02591000 PSARV019 EQU PSASUP4 02592000 PSARV018 EQU PSASUP4 02593000 PSARV017 EQU PSASUP4 02594000 PSARV016 EQU PSASUP4 02595000 PSARV015 EQU PSASUP4 02596000 PSARV014 EQU PSASUP3 02597000 PSARV013 EQU PSASUP3 02598000 PSARV012 EQU PSASUP3 02599000 PSARV011 EQU PSASUP3 02600000 PSASPR EQU PSASUP3 02601000 PSAPSREG EQU PSASUP3 02602000 PSAPI2 EQU PSASUP3 02603000 PSAIOSUP EQU PSASUP3 02604000 PSALCR EQU PSASUP2 02605000 PSARTM EQU PSASUP2 02606000 PSAACR EQU PSASUP2 02607000 PSAIPCE2 EQU PSASUP2 02608000 PSAIPCES EQU PSASUP2 02609000 PSAIPCEC EQU PSASUP2 02610000 PSAGTF EQU PSASUP2 02611000 PSAIPCRI EQU PSASUP2 02612000 PSARV063 EQU PSASUP1 02613000 PSATCTL EQU PSASUP1 02614000 PSADISP EQU PSASUP1 02615000 PSALOCK EQU PSASUP1 02616000 PSAPI EQU PSASUP1 02617000 PSAEXT EQU PSASUP1 02618000 PSASVC EQU PSASUP1 02619000 PSAIO EQU PSASUP1 02620000 PSAAOLD EQU PSA+548 02621000 PSAANEW EQU PSA+544 02622000 PSATOLD EQU PSA+540 02623000 PSATNEW EQU PSA+536 02624000 PSALCCAR EQU PSA+532 02625000 PSALCCAV EQU PSA+528 02626000 PSAPCCAR EQU PSA+524 02627000 PSAPCCAV EQU PSA+520 02628000 PSACPULA EQU PSA+518 02629000 PSACPUPA EQU PSA+516 02630000 PSAPSA EQU PSA+512 02631000 FLCHDEND EQU PSA+512 02632000 FLCCRSAV EQU FLCMCLA+280 02633000 FLCGRSAV EQU FLCMCLA+216 02634000 FLCFPSAV EQU FLCMCLA+184 02635000 FLCFLA EQU FLCMCLA+88 02636000 FLCRGNCD EQU FLCMCLA+84 02637000 FLCFSAA EQU FLCFSA+1 02638000 @NM00020 EQU FLCFSA 02639000 @NM00019 EQU FLCMCLA+72 02640000 FLCMCIC EQU FLCMCLA+64 02641000 @NM00018 EQU FLCMCLA+20 02642000 FLCIOAA EQU FLCIOA+1 02643000 @NM00017 EQU FLCIOA 02644000 @NM00016 EQU FLCMCLA+15 02645000 @NM00015 EQU FLCMCLA+14 02646000 @NM00014 EQU FLCMCLA+12 02647000 FLCLCL EQU FLCMCLA+8 02648000 FLCIOELA EQU FLCIOEL+1 02649000 @NM00013 EQU FLCIOEL 02650000 FLCCHNID EQU FLCMCLA 02651000 @NM00012 EQU PSA+160 02652000 FLCMTRCD EQU PSA+157 02653000 @NM00011 EQU PSA+156 02654000 FLCPERA EQU FLCPER+1 02655000 @NM00010 EQU FLCPER 02656000 @NM00009 EQU PSA+151 02657000 FLCPERCD EQU PSA+150 02658000 FLCMCNUM EQU PSA+149 02659000 @NM00008 EQU PSA+148 02660000 FLCTEAA EQU FLCTEA+1 02661000 @NM00007 EQU FLCTEA 02662000 PSAPIPC EQU PSAPICOD 02663000 PSAPIMC EQU PSAPICOD 02664000 PSAPIPER EQU PSAPICOD 02665000 PSARV049 EQU FLCPICOD 02666000 FLCPILCB EQU FLCPIILC 02667000 @NM00006 EQU FLCPIILC 02668000 @NM00005 EQU PSAEPPSW 02669000 FLCSVCN EQU PSAESPSW+2 02670000 FLCSILCB EQU FLCSVILC 02671000 @NM00004 EQU FLCSVILC 02672000 @NM00003 EQU PSAESPSW 02673000 FLCEICOD EQU PSAEEPSW+2 02674000 PSASPAD EQU PSAEEPSW 02675000 @NM00002 EQU PSA+128 02676000 FLCINPSW EQU PSA+120 02677000 FLCMNPSW EQU PSA+112 02678000 FLCPNPSW EQU PSA+104 02679000 FLCSNPSW EQU PSA+96 02680000 FLCENPSW EQU PSA+88 02681000 FLCTRACE EQU PSA+84 02682000 FLCTIMER EQU PSA+80 02683000 FLCCVT2 EQU PSA+76 02684000 FLCCAW EQU PSA+72 02685000 FLCCSW EQU PSA+64 02686000 FLCIOPSW EQU PSA+56 02687000 FLCMOPSW EQU PSA+48 02688000 FLCPOPSW EQU PSA+40 02689000 FLCSOPSW EQU PSA+32 02690000 FLCEOPSW EQU PSA+24 02691000 @NM00001 EQU FLCICCW2+4 02692000 FLCCVT EQU FLCICCW2 02693000 FLCICCW1 EQU FLCROPSW 02694000 FLCIPPSW EQU FLCRNPSW 02695000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02696000 @RT00314 EQU ELS06 02697000 TR05 EQU ELS06 02698000 @RF00331 EQU @RC00318 02699000 @ENDDATA EQU * 02700000 END ISTORFBA,(C'PLS2154',0603,78158) 02701000