TITLE 'ISTORFBQ-SMS DEQUEUE ROUTINE-VS2 *00001000 ' 00002000 ISTORFBQ CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTORFBQ 78.158' 0001 00008000 DROP @15 00009000 @PROLOG BALR @07,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@07 0001 00012000 * R8BPCB=R1; /* SAVE BPCB ADDR IN REG 8 0259 00013000 * @ZM32024*/ 00014000 LR R8BPCB,R1 0259 00015000 * R10SAV=R14RET; /* SAVE RETURN ADDR IN REG 0260 00016000 * @ZM32024*/ 00017000 LR R10SAV,R14RET 0260 00018000 * RFY 0261 00019000 * (R1, 0261 00020000 * R14RET) UNRSTD; /* @ZM32024*/ 00021000 * FRAREG=ADDR(ISTDQFRR); /* GET ADDR FBQ FRR FOR SETFRR 0262 00022000 * @ZM32024*/ 00023000 LA FRAREG,ISTDQFRR 0262 00024000 * GENERATE REFS(FRAREG,FRPREG,FRRWRK,PSACSTK,FRRSCURR,FRRS,FRRSLAST, 00025000 * PSALSFCC,FRRSELEN,FRRSFRRA,FRRSENTR,FRRSPARM,ISTDQFRR); 0263 00026000 * /* @Z40GKF6*/ 00027000 SETFRR A,FRRAD=(FRAREG),PARMAD=(FRPREG),WRKREGS=(FRPREG,FRRWRK) 00028000 * RFY 0264 00029000 * FRPRMLST BASED(FRPREG); /* @ZM32024*/ 00030000 * FRPMWD0=R8BPCB; /* GET ADDR OF BPCB FOR FRR PARM 00031000 * AREA @ZM32024*/ 00032000 ST R8BPCB,FRPMWD0(,FRPREG) 0265 00033000 * FRPMWD1=R7; /* GET ADDR OF ISTORFBQ FOR FRR 00034000 * ADDRESSABLITY @ZM32024*/ 00035000 ST R7,FRPMWD1(,FRPREG) 0266 00036000 * RFY 0267 00037000 * (FRRWRK, 0267 00038000 * FRAREG, 0267 00039000 * FRPREG) UNRSTD; /* @ZM32024*/ 00040000 *GETLOCK: 0268 00041000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00042000 * TYPE(LOCAL) RELATED(ISTORFBQ(U 00043000 * NLOCK),LOCAL) */ 00044000 GETLOCK DS 0H 0269 00045000 * RFY 0269 00046000 * (GPR11P, 0269 00047000 * GPR12P, 0269 00048000 * GPR13P, 0269 00049000 * GPR14P) RSTD; 0269 00050000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0270 00051000 * TABLE. */ 00052000 L GPR13P,PSALITA 0270 00053000 * GEN(LM GPR11P,GPR13P,576(GPR13P));/* LOAD LOCKWORD, CLHT AND 0271 00054000 * ENTRY ADRS. */ 00055000 LM GPR11P,GPR13P,576(GPR13P) 00056000 * GEN(BALR GPR14P,GPR13P); /* BALR TO SETLOCK RTN. */ 00057000 BALR GPR14P,GPR13P 00058000 * RFY 0273 00059000 * (GPR11P, 0273 00060000 * GPR12P, 0273 00061000 * GPR13P, 0273 00062000 * GPR14P) UNRSTD; 0273 00063000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 00064000 * TYPE(LOCAL) RELATED(ISTORFBQ(U 00065000 * NLOCK),LOCAL) @ZM32024*/ 00066000 * RFY 0275 00067000 * (COMPREG, 0275 00068000 * SWAPREG) RSTD; /* @Z40GKF6*/ 00069000 *SRBGSWAP: 0276 00070000 * COMPREG=BPCBRBLK; /* GET SRB GATE FLAG @Z40GKF6*/ 00071000 SRBGSWAP L COMPREG,BPCBRBLK(,R8BPCB) 0276 00072000 * SWAPREG=COMPREG&SRBGOFF; /* SWAP GATE OFF @Z40GKF6*/ 00073000 LR SWAPREG,COMPREG 0277 00074000 N SWAPREG,@CF01408 0277 00075000 * CS(COMPREG,SWAPREG,BPCBRBLK); /* @Z40GKF6*/ 00076000 CS COMPREG,@13,BPCBRBLK(R8BPCB) 0278 00077000 * BC(FAIL,SRBGSWAP); /* TRY AGAIN @Z40GKF6*/ 00078000 BC 7,SRBGSWAP 0279 00079000 * RFY 0280 00080000 * (COMPREG, 0280 00081000 * SWAPREG) UNRSTD; /* @Z40GKF6*/ 00082000 * RFY 0281 00083000 * R4RPH RSTD; 0281 00084000 *QSEARCH: 0282 00085000 * ; 0282 00086000 QSEARCH DS 0H 0283 00087000 * DO WHILE BPCBRPHA^=BPCBRPHB; 0283 00088000 B @DE00283 0283 00089000 @DL00283 DS 0H 0284 00090000 * CALL DEQ; /* DEQ AN RPH (IF ONE AVAIL) */ 00091000 BAL @14,DEQ 0284 00092000 * R4RPH=R4RPH&LO3MSK; /* RPH - NO GATE @ZM00756*/ 00093000 N R4RPH,@CF03062 0285 00094000 * IF R4RPH=0 THEN 0286 00095000 LTR R4RPH,R4RPH 0286 00096000 BZ @RT00286 0286 00097000 * GOTO UNLOCK; /* RETURN TO SYSTEM @ZM32024*/ 00098000 * ELSE 0288 00099000 * DO; 0288 00100000 * 0288 00101000 */****************************************************************** */ 00102000 */* PURGE TEST AND PROCESSING - DCR 4086 */ 00103000 */****************************************************************** */ 00104000 * 0289 00105000 * IF RPHPURGE=ON /* IS DEQUEUED RPH IN PURGE 0289 00106000 * @Z40GKF6*/ 00107000 * THEN /* YES @Z40GKF6*/ 00108000 TM RPHPURGE(R4RPH),B'00000010' 0289 00109000 BNO @RF00289 0289 00110000 * DO; /* @Z40GKF6*/ 00111000 * RFY 0291 00112000 * (COMPREG, 0291 00113000 * SWAPREG) RSTD; /* @Z40GKF6*/ 00114000 *PG1: 0292 00115000 * COMPREG=BPCBCDS2; /* CURRENT BUFFER AVAILABILITY 0292 00116000 * @Z40GKF6*/ 00117000 PG1 L COMPREG,BPCBCDS2(,R8BPCB) 0292 00118000 * SWAPREG=COMPREG+XRPHREQK;/* INCREMENT AVNO BY AMOUNT 0293 00119000 * @Z40GKF6*/ 00120000 LR SWAPREG,COMPREG 0293 00121000 AH SWAPREG,XRPHREQK(,R4RPH) 0293 00122000 * CS(COMPREG,SWAPREG,BPCBCDS2);/* PREVIOUSLY DECREM'TD 0294 00123000 * @Z40GKF6*/ 00124000 CS COMPREG,@13,BPCBCDS2(R8BPCB) 0294 00125000 * BC(FAIL,PG1); /* @Z40GKF6*/ 00126000 BC 7,PG1 0295 00127000 * RFY 0296 00128000 * (COMPREG, 0296 00129000 * SWAPREG) UNRSTD; /* @Z40GKF6*/ 00130000 *PG2: 0297 00131000 * IF RPHPGCMP=OFF /* IS PURGE IN PROGRESS @Z40GKF6*/ 00132000 * THEN /* YES @Z40GKF6*/ 00133000 PG2 TM RPHPGCMP(R4RPH),B'00010000' 0297 00134000 BNZ @RF00297 0297 00135000 * DO; /* @Z40GKF6*/ 00136000 * RFY 0299 00137000 * (COMPREG, 0299 00138000 * SWAPREG) RSTD; /* @Z40GKF6*/ 00139000 * COMPREG=RPHWORD1&PGCMPOFF;/* IF RPHPGCMP IS OFF 0300 00140000 * @Z40GKF6*/ 00141000 L COMPREG,RPHWORD1(,R4RPH) 0300 00142000 N COMPREG,@CF03069 0300 00143000 * SWAPREG=COMPREG|RLCRAON;/* TURN OFF RPHRLCRA 0301 00144000 * @Z40GKF6*/ 00145000 LR SWAPREG,COMPREG 0301 00146000 O SWAPREG,@CF02847 0301 00147000 * CS(COMPREG,SWAPREG,RPHWORD1);/* @Z40GKF6*/ 00148000 CS COMPREG,@13,RPHWORD1(R4RPH) 0302 00149000 * BC(FAIL,PG2); /* @Z40GKF6*/ 00150000 BC 7,PG2 0303 00151000 * RFY 0304 00152000 * (COMPREG, 0304 00153000 * SWAPREG) UNRSTD;/* @Z40GKF6*/ 00154000 * END; /* @Z40GKF6*/ 00155000 * ELSE /* NO - PURGE IS COMPLETE 0306 00156000 * @Z40GKF6*/ 00157000 * DO; /* SET UP FOR CRA RETURN @Z40GKF6*/ 00158000 B @RC00297 0306 00159000 @RF00297 DS 0H 0307 00160000 * RFY 0307 00161000 * (R5BPCB, 0307 00162000 * R11BUF, 0307 00163000 * R0REQK) RSTD; /* @Z40GKF6*/ 00164000 * R5BPCB=(RPHCRR-8)->BFPPCBA;/* GET CRA BPCB @Z40GKF6*/ 00165000 L @12,RPHCRR(,R4RPH) 0308 00166000 LR @09,@12 0308 00167000 AL @09,@CF03198 0308 00168000 L R5BPCB,BFPPCBA-4(,@09) 0308 00169000 * R11BUF=RPHCRR; /* GET ADDRESS OF CRA @Z40GKF6*/ 00170000 LR R11BUF,@12 0309 00171000 * R0REQK=1; /* SET # BUFFERS TO BE RETURNED 00172000 * @Z40GKF6*/ 00173000 LA R0REQK,1 0310 00174000 * CALL RETBUF; /* RETURN CRA TO BUFFER POOL 0311 00175000 * @Z40GKF6*/ 00176000 BAL @14,RETBUF 0311 00177000 * RFY 0312 00178000 * (R5BPCB, 0312 00179000 * R11BUF, 0312 00180000 * R0REQK) UNRSTD; /* @Z40GKF6*/ 00181000 * END; /* @Z40GKF6*/ 00182000 * END; /* END OF PURGE PROCESSING 0314 00183000 * @Z40GKF6*/ 00184000 * ELSE 0315 00185000 * DO; /* @Z40GKF6*/ 00186000 B @RC00289 0315 00187000 @RF00289 DS 0H 0316 00188000 */****************************************************************** */ 00189000 */* ALLOC FUNCTION */ 00190000 */****************************************************************** */ 00191000 */* EACH BUFFER REQUIRED IS TAKEN OFF OF THE BPCBFBA QUEUE */ 00192000 */* IS CLEARED IF REQUESTED AND INITIALIZED FOR USE */ 00193000 */* WHEN DONE, THE 'TOP OF THE BUFFERS' QUEUED IS STORED */ 00194000 */* INTO THE -RPHSRPRM- FIELD OF THE DEQUEUED RPH */ 00195000 */****************************************************************** */ 00196000 * 0316 00197000 * RFY 0316 00198000 * (R2, 0316 00199000 * R0, 0316 00200000 * R5) RSTD; /* @ZM32024*/ 00201000 * R5=0; /* INIT END ON CHAIN REG */ 00202000 SLR R5,R5 0317 00203000 * R0=XRPHREQK; /* GET NUMB BUFFERS REQUIRED */ 00204000 LH R0,XRPHREQK(,R4RPH) 0318 00205000 * DO WHILE(R0^=0); /* DO WHILE BUFS STILL REQ'D */ 00206000 B @DE00319 0319 00207000 @DL00319 DS 0H 0320 00208000 * RFY 0320 00209000 * (COMPEVEN, 0320 00210000 * COMPODD, 0320 00211000 * SWAPEVEN, 0320 00212000 * SWAPODD) RSTD; /* @ZM32024*/ 00213000 * LM(COMPEVEN,COMPODD,BPCBCDS);/* PREPARE TO DEQUEUE 0321 00214000 * BUF @ZM32024*/ 00215000 LM COMPEVEN,COMPODD,BPCBCDS(R8BPCB) 0321 00216000 *CSFAIL1: 0322 00217000 * SWAPEVEN=(COMPEVEN&HIBYTMSK)|(BFPNXCHN&LO3MSK);/* 0322 00218000 * SAVE SLOWDOWN FLAGS WHILE 0322 00219000 * UPDATING NEW TOP OF QUEUE 0322 00220000 * @ZM32024*/ 00221000 CSFAIL1 LR SWAPEVEN,COMPEVEN 0322 00222000 N SWAPEVEN,@CF01457 0322 00223000 L @11,BFPNXCHN(,R2BUFPX) 0322 00224000 N @11,@CF03062 0322 00225000 OR SWAPEVEN,@11 0322 00226000 * SWAPODD=COMPODD; /* GET COUNTS @ZM32024*/ 00227000 LR SWAPODD,COMPODD 0323 00228000 * CDS(COMPEVEN,SWAPEVEN,BPCBCDS);/* DEQUEUE BUFFER 0324 00229000 * @ZM32024*/ 00230000 CDS COMPEVEN,SWAPEVEN,BPCBCDS(R8BPCB) 0324 00231000 * BC(FAIL,CSFAIL1); /* IF FAIL,TRY AGAIN @ZM32024*/ 00232000 BC 7,CSFAIL1 0325 00233000 * RFY 0326 00234000 * (COMPEVEN, 0326 00235000 * COMPODD, 0326 00236000 * SWAPEVEN, 0326 00237000 * SWAPODD) UNRSTD; /* @ZM32024*/ 00238000 * IF XRPHCLR=OFF /* SHOULD BUF BE CLEARED */ 00239000 * THEN 0327 00240000 TM XRPHCLR(R4RPH),B'10000000' 0327 00241000 BZ @RT00327 0327 00242000 * ; /* NO */ 00243000 * ELSE /* YES */ 00244000 * DO; 0329 00245000 * RFY 0330 00246000 * (R3, 0330 00247000 * R12, 0330 00248000 * R13) RSTD; 0330 00249000 * R2=R2+PREFIX8; /* GET BUF ADR @ZM32024*/ 00250000 AL R2,@CF00059 0331 00251000 * R3=BPCBBSIZ; /* GET BUF LEN @ZM32024*/ 00252000 LH R3,BPCBBSIZ(,R8BPCB) 0332 00253000 * R12=0; /* WITH ZEROS */ 00254000 SLR R12,R12 0333 00255000 * R13=R12; /* LEAVE PREFIX UNTOUCHED */ 00256000 LR R13,R12 0334 00257000 * MVCL(R2,R12); /* @ZM32024*/ 00258000 MVCL R2,R12 0335 00259000 * RFY 0336 00260000 * (R3, 0336 00261000 * R12, 0336 00262000 * R13) UNRSTD; 0336 00263000 * R2=R2-(BPCBBSIZ+PREFIX8);/* GET HDR @ZM32024*/ 00264000 LA @12,8 0337 00265000 AH @12,BPCBBSIZ(,R8BPCB) 0337 00266000 SLR R2,@12 0337 00267000 * END; 0338 00268000 * BFPTSKID=RPHCRR->CRAMASK;/* GET PFX MSK @Z40GKF6*/ 00269000 @RT00327 L @12,RPHCRR(,R4RPH) 0339 00270000 L @12,CRAMASK(,@12) 0339 00271000 ST @12,BFPTSKID(,R2BUFPX) 0339 00272000 * IF XRPHCBID=ON /* THIS A CBID REQUEST */ 00273000 * THEN 0340 00274000 TM XRPHCBID(R4RPH),B'00010000' 0340 00275000 BNO @RF00340 0340 00276000 * DO; 0341 00277000 * BFPCBID=ON; /* SET CBID INDICATOR */ 00278000 OI BFPCBID(R2BUFPX),B'10000000' 0342 00279000 * R0=0; /* FORCE END OF LOOP */ 00280000 SLR R0,R0 0343 00281000 * END; 0344 00282000 * ELSE 0345 00283000 * DO; /* ELSE SET BUF.SIZE FIELD */ 00284000 B @RC00340 0345 00285000 @RF00340 DS 0H 0346 00286000 * BFPSIZE=BPCBBSIZ-((RPHCRR->CRAHSIZ)+PREFIX8);/* 00287000 * SIZE @Z40GKF6*/ 00288000 LA @12,8 0346 00289000 L @11,RPHCRR(,R4RPH) 0346 00290000 L @11,CRAHSIZ(,@11) 0346 00291000 ALR @11,@12 0346 00292000 LCR @11,@11 0346 00293000 AH @11,BPCBBSIZ(,R8BPCB) 0346 00294000 STH @11,BFPSIZE(,R2BUFPX) 0346 00295000 * BFPNXCHN=R5; /* CHAIN BUFFERS */ 00296000 ST R5,BFPNXCHN(,R2BUFPX) 0347 00297000 * R5=R2+PREFIX8; /* UPDATE CHAIN @ZM32024*/ 00298000 ALR @12,R2 0348 00299000 LR R5,@12 0348 00300000 * R0=R0-1; /* DECREMENT NUMB REQUIRED BUF */ 00301000 BCTR R0,0 0349 00302000 * END; 0350 00303000 * END; /* **** END OF DOWHILE */ 00304000 @RC00340 DS 0H 0351 00305000 @DE00319 LTR R0,R0 0351 00306000 BNZ @DL00319 0351 00307000 * RFY 0352 00308000 * (R5) UNRSTD; 0352 00309000 * R0REQK=RPHSRPRM&LO2MSK;/* SAVE # ALOC BUFS @Z40GKF6*/ 00310000 L R0REQK,RPHSRPRM(,R4RPH) 0353 00311000 N R0REQK,@CF03064 0353 00312000 * RPHSRPRM=R2+PREFIX8; /* SAVE 1ST BUF ADR @ZM32024*/ 00313000 LA @12,8 0354 00314000 ALR @12,R2 0354 00315000 ST @12,RPHSRPRM(,R4RPH) 0354 00316000 */********************************************************************/ 00317000 */* PURGE TEST AND PROCESSING - DCR 4086 */ 00318000 */********************************************************************/ 00319000 * 0355 00320000 * IF RPHPURGE=ON /* IS RPH IN PURGE @Z40GKF6*/ 00321000 * THEN /* YES @Z40GKF6*/ 00322000 TM RPHPURGE(R4RPH),B'00000010' 0355 00323000 BNO @RF00355 0355 00324000 * DO; /* SET UP FOR BUF RETURN @Z40GKF6*/ 00325000 * RFY 0357 00326000 * (R5BPCB, 0357 00327000 * R11BUF) RSTD; /* @Z40GKF6*/ 00328000 * R5BPCB=R8BPCB; /* SET UP BPCB @Z40GKF6*/ 00329000 LR R5BPCB,R8BPCB 0358 00330000 * R11BUF=RPHSRPRM; /* SET UP BUF PTR @Z40GKF6*/ 00331000 LR R11BUF,@12 0359 00332000 * CALL RETBUF; /* RETURN ALLOC BUFS @Z40GKF6*/ 00333000 BAL @14,RETBUF 0360 00334000 * RFY 0361 00335000 * (R0REQK, 0361 00336000 * R5BPCB, 0361 00337000 * R11BUF) UNRSTD; /* @Z40GKF6*/ 00338000 * GOTO PG2; /* CHECK FOR PURGE COMPLETE 0362 00339000 * @Z40GKF6*/ 00340000 B PG2 0362 00341000 * END; /* END RPH PURGE CHECK @Z40GKF6*/ 00342000 * ELSE /* THIS RPH IS NOT IN PURGE 0364 00343000 * @Z40GKF6*/ 00344000 * DO; /* TPPOST RPH @Z40GKF6*/ 00345000 @RF00355 DS 0H 0365 00346000 * RPHGATE=OFF; /* @ZM34584*/ 00347000 NI RPHGATE(R4RPH),B'01111111' 0365 00348000 */*TPPOST (R4RPH) NSTR */ 00349000 * 0366 00350000 * DO; /* DECLARE AND RESTRICT REGS */ 00351000 * RESPECIFY 0367 00352000 * (GPR00F, 0367 00353000 * GPR01F, 0367 00354000 * GPR04F, 0367 00355000 * GPR05F, 0367 00356000 * GPR06F, 0367 00357000 * GPR14F, 0367 00358000 * GPR15F) RSTD; /* 0,1,4,5,6,14, AND 15 */ 00359000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH,ISTAVT,ISTATCVT) */ 00360000 * 0368 00361000 */* VTAM ADDRESS VECTOR TABLE */ 0368 00362000 */* REVISIONS 002 03/06/75 */ 00363000 *DCL 1 ISTAVT BDY(WORD) BASED, 0368 00364000 * 2 ISTACVT PTR(31), /* ADDR OF VTAM CVT */ 00365000 * 2 ISTAS49 PTR(31), /* ADDR OF SVC 49 CODE */ 00366000 * 3 ISTAHIP BIT(1), /* HALT IN PROGRESS */ 00367000 * 2 ISTAS53 PTR(31), /* ADDR OF SVC 53 CODE */ 00368000 * 2 ISTAPSTA PTR(31), /* ADDR OF APS TABLE */ 00369000 * 2 AVTASID FIXED(15), /* VTAM ASID */ 00370000 * 2 ISTVTTIK FIXED(15), /* VTAMRP TASK ID */ 00371000 * 2 ISTAPSEX PTR(31), /* ADDR OF APS EXIT */ 00372000 * 2 ISTPHNM CHAR(5), /* PHASE NAME OF TRANSIENT */ 00373000 * 2 ISTX1 CHAR(1), /* TEST FIELD */ 00374000 * 2 ISTARID PTR(15), /* ADDR OF RID */ 00375000 * 2 ISTATRT PTR(15), /* ADDR OF VTAM GATES IN RETAB*/ 00376000 * 2 ISTAGTWT PTR(15), /* ADDR OF GATEWAIT ROUTINE */ 00377000 * 2 ISTVTTP PTR(15), /* ADDR OF CODE TO CHECK FOR */ 00378000 * /* PENDING TIMER INTERRUPT */ 00379000 * 2 ISTAVR01 CHAR(2), /* RESERVED */ 00380000 * 2 ISTPDAVP PTR(31); /* VECTOR FOR PDAIDS SMS TRACE*/ 00381000 * 0369 00382000 */* END OF ATBUILD */ 00383000 * 0369 00384000 * GPR04F=R4RPH; /* LOAD RPH PNTR INTO REG 4 */ 00385000 * RFY 0370 00386000 * GPR03F RSTD; 0370 00387000 * GPR03F=0; 0371 00388000 SLR @12,@12 0371 00389000 LR GPR03F,@12 0371 00390000 * DO; /* MODESET SAVEKEY(GPR06F) 0372 00391000 * KEYADDR(GPR03F) 0372 00392000 * WORKREG(GPR05F) */ 00393000 * RESPECIFY 0373 00394000 * (GPR02F) RESTRICTED; 0373 00395000 * GPR05F=GPR02F;/* SAVE REGISTER 2 */ 00396000 LR GPR05F,GPR02F 0374 00397000 * IPK; /* SAVE CURRENT PSW KEY */ 00398000 IPK 0375 00399000 * GPR06F=GPR02F; 0376 00400000 LR GPR06F,GPR02F 0376 00401000 * GPR02F=GPR05F;/* RESTORE REGISTER 2 */ 00402000 LR GPR02F,GPR05F 0377 00403000 * SPKA(GPR03F); /* SET PSW KEY */ 00404000 SPKA 0(GPR03F) 0378 00405000 * RESPECIFY 0379 00406000 * (GPR02F) UNRESTRICTED; 0379 00407000 * END; /* MODESET SAVEKEY(GPR06F) 0380 00408000 * KEYADDR(GPR03F) 0380 00409000 * WORKREG(GPR05F) */ 00410000 * RFY 0381 00411000 * GPR03F UNRSTD; 0381 00412000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF;/* LOAD 00413000 * REG 5 WITH ADDR OF MAJOR 0382 00414000 * CONTROL BLOCK PLUS OFFSET OF 00415000 * PAB IN BLOCK */ 00416000 L GPR05P,RPHMAJCB-1(,GPR04P) 0382 00417000 LA GPR05P,0(,GPR05P) 0382 00418000 SLR @11,@11 0382 00419000 IC @11,RPHPABOF(,GPR04P) 0382 00420000 ALR GPR05P,@11 0382 00421000 * GPR14P=0; /* LOAD 0 INTO REG 14 */ 00422000 LR GPR14P,@12 0383 00423000 * GPR15P='FFFFFFFF'X;/* LOAD REG 15 WITH DUMMY 0384 00424000 * ADDRESS */ 00425000 SLR GPR15P,GPR15P 0384 00426000 BCTR GPR15P,0 0384 00427000 * CS(GPR14P,GPR15P,GPR04P->RPHRESMA);/* COMPARE 0385 00428000 * RESUME ADDRESS WITH 0 AND,IF 00429000 * EQUAL, PUT DUMMY ADDRESS IN 0385 00430000 * CONTROL BLOCK RESUME ADDRESS */ 00431000 CS GPR14P,@15,RPHRESMA(GPR04P) 0385 00432000 * BC(8,FMZT0006); /* IF EQUAL, BYPASS REMAINDER OF 00433000 * EXPANSION */ 00434000 BC 8,FMZT0006 0386 00435000 *FMZL0006: 0387 00436000 * IF GPR04P->RPHWT='1'B THEN/* WT/EXT CONTENTION 0387 00437000 * FLAG ON */ 00438000 FMZL0006 TM RPHWT(GPR04P),B'00001000' 0387 00439000 BNO @RF00387 0387 00440000 * DO; /* IN RPH */ 00441000 * GPR14P=GPR04P->RPHRESMA|RPHWT1;/* LOAD REG 14 00442000 * WITH FLAG FIELD AND MAKE 0389 00443000 * CERTAIN WT/EXT CONTENTION FLAG 00444000 * STILL ON */ 00445000 L GPR14P,RPHRESMA(,GPR04P) 0389 00446000 O GPR14P,@CF01434 0389 00447000 * GPR15P=GPR14P|RPHPT1;/* LOAD REG 15 WITH FLAG 00448000 * FIELD AND TURN POST FLAG ON */ 00449000 LR GPR15P,GPR14P 0390 00450000 O GPR15P,@CF01424 0390 00451000 * CS(GPR14P,GPR15P,GPR04P->RPHRESMA);/* COMPARE 00452000 * REG 14 WITH FLAG FIELD--IF 0391 00453000 * WT/EXT BIT ON, TURN ON POST 0391 00454000 * FLAG */ 00455000 CS GPR14P,@15,RPHRESMA(GPR04P) 0391 00456000 * BC(4,FMZL0006);/* IF WT/EXT BIT WAS OFF, LOOP 00457000 * TO TEST CONTENTION FLAG */ 00458000 BC 4,FMZL0006 0392 00459000 * BC(8,FMZT0006);/* IF WT/EXT BIT WAS OFF, 0393 00460000 * BRANCH TO BYPASS CODE GEN */ 00461000 BC 8,FMZT0006 0393 00462000 * END; /* IF POST FLAG IS ON, FALL THRU 00463000 * BOTTOM OF LOOP */ 00464000 * ELSE 0395 00465000 * ; /* WT/EXT CONTENTION FLAG OFF */ 00466000 @RF00387 DS 0H 0396 00467000 * GPR00F=0; /* SET REG 0 TO INDICATE ENA */ 00468000 SLR GPR00F,GPR00F 0396 00469000 * DO; /* LISATCVT 0397 00470000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00471000 * GPR15P=ATCLCPTR;/* SET UP ATCVT POINTER */ 00472000 L GPR15P,ATCLCPTR 0398 00473000 * END; /* LISATCVT PUT POINTER TO ATCVT 00474000 * IN IN REG 15 */ 00475000 * CALL GPR15P->ATCAP32;/* CALL ISTAPC32: TPSCHED */ 00476000 L @12,ATCAP32(,GPR15P) 0400 00477000 LR @15,@12 0400 00478000 BALR @14,@15 0400 00479000 *FMZT0006: 0401 00480000 * DO; /* MODESET KEYADDR(GPR06F) 0401 00481000 * WORKREG(GPR05F) */ 00482000 FMZT0006 DS 0H 0402 00483000 * GPR05F=GPR06F;/* GET KEY FORM SAVE LOCATION */ 00484000 LR GPR05F,GPR06F 0402 00485000 * SPKA(GPR05F); /* SET PSW KEY */ 00486000 SPKA 0(GPR05F) 0403 00487000 * END; /* MODESET KEYADDR(GPR06F) 0404 00488000 * WORKREG(GPR05F) */ 00489000 * RESPECIFY 0405 00490000 * (GPR00F, 0405 00491000 * GPR01F, 0405 00492000 * GPR04F, 0405 00493000 * GPR05F, 0405 00494000 * GPR06F, 0405 00495000 * GPR14F, 0405 00496000 * GPR15F) UNRSTD;/* UNRESTRICT REGS 0,1, 4,5,14, 00497000 * AND 15 */ 00498000 * END; /* ***END OF TPPOST GENERATION****/ 00499000 * END; /* END TPPOST @Z40GKF6*/ 00500000 * RFY 0408 00501000 * R2 UNRSTD; /* @ZM32024*/ 00502000 * END; /* END ALLOC FOR DEQUEUED RPH */ 00503000 * END; /* END PROCESSING FOR DEQUEUED 0410 00504000 * RPH @Z40GKF6*/ 00505000 @RC00289 DS 0H 0411 00506000 * END; /* **** END OF DOWHILE */ 00507000 @DE00283 CLC BPCBRPHA(4,R8BPCB),BPCBRPHB(R8BPCB) 0411 00508000 BNE @DL00283 0411 00509000 * RFY 0412 00510000 * R4RPH UNRSTD; 0412 00511000 *SLOW: 0413 00512000 * ; 0413 00513000 SLOW DS 0H 0414 00514000 * IF BPCBAVNO>=BPCBTHR2 THEN /* ARE BUFS AVAIL @ZM32231*/ 00515000 LH @12,BPCBAVNO(,R8BPCB) 0414 00516000 CH @12,BPCBTHR2(,R8BPCB) 0414 00517000 BL @RF00414 0414 00518000 * DO; /* @ZM32231*/ 00519000 * RFY 0416 00520000 * (COMPEVEN, 0416 00521000 * COMPODD) RSTD; /* @ZM32231*/ 00522000 * COMPEVEN=BPCBCDS1; /* RESET SLOWDOWN BITS @ZM32231*/ 00523000 L COMPEVEN,BPCBCDS1(,R8BPCB) 0417 00524000 * COMPODD=COMPEVEN&LOW1OFF&LOW2OFF;/* @ZM32231*/ 00525000 LR COMPODD,COMPEVEN 0418 00526000 N COMPODD,@CF03195 0418 00527000 * CS(COMPEVEN,COMPODD,BPCBCDS1);/* @ZM32231*/ 00528000 CS COMPEVEN,@03,BPCBCDS1(R8BPCB) 0419 00529000 * BC(FAIL,SLOW); /* @ZM32231*/ 00530000 BC 7,SLOW 0420 00531000 * RFY 0421 00532000 * (COMPEVEN, 0421 00533000 * COMPODD) UNRSTD; /* @ZM32231*/ 00534000 * END; /* @ZM32231*/ 00535000 * IF BPCBRPHA^=BPCBRPHB THEN /* BOTH RPH QUEUES EMPTY @ZM32231*/ 00536000 @RF00414 CLC BPCBRPHA(4,R8BPCB),BPCBRPHB(R8BPCB) 0423 00537000 BNE @RT00423 0423 00538000 * GO TO QSEARCH; /* @ZM32231*/ 00539000 *UNLOCK: 0425 00540000 * DO; /* SETLOCK (RELEASE) TYPE(LOCAL) 00541000 * RELATED(ISTORFBQ(GETLOCK),LOCA 00542000 * L) */ 00543000 UNLOCK DS 0H 0426 00544000 * RFY 0426 00545000 * (GPR11P, 0426 00546000 * GPR12P, 0426 00547000 * GPR13P, 0426 00548000 * GPR14P) RSTD; 0426 00549000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0427 00550000 * TABLE. */ 00551000 L GPR13P,PSALITA 0427 00552000 * GEN(LM GPR11P,GPR13P,588(GPR13P));/* LOAD LOCKWORD, CLHT AND 0428 00553000 * ENTRY ADRS. */ 00554000 LM GPR11P,GPR13P,588(GPR13P) 00555000 * GEN(BALR GPR14P,GPR13P); /* BALR TO SETLOCK RTN. */ 00556000 BALR GPR14P,GPR13P 00557000 * RFY 0430 00558000 * (GPR11P, 0430 00559000 * GPR12P, 0430 00560000 * GPR13P, 0430 00561000 * GPR14P) UNRSTD; 0430 00562000 * END; /* SETLOCK (RELEASE) TYPE(LOCAL) 00563000 * RELATED(ISTORFBQ(GETLOCK),LOCA 00564000 * L) @ZM32024*/ 00565000 * RFY 0432 00566000 * R14RET RSTD; /* @ZM32024*/ 00567000 * R14RET=R10SAV; /* GET RETURN ADDRESS @ZM32024*/ 00568000 LR R14RET,R10SAV 0433 00569000 * RETURN; /* @ZM32024*/ 00570000 @EL00001 DS 0H 0434 00571000 @EF00001 DS 0H 0434 00572000 @ER00001 BR @14 0434 00573000 * RFY 0435 00574000 * R14RET UNRSTD; /* @ZM32024*/ 00575000 * 0436 00576000 */********************************************************************/ 00577000 * 0436 00578000 *DEQ: 0436 00579000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0436 00580000 * 0436 00581000 DEQ DS 0H 0437 00582000 */********************************************************************/ 00583000 * 0437 00584000 * RFY 0437 00585000 * (R14, 0437 00586000 * R0, 0437 00587000 * R4RPH) RSTD; 0437 00588000 *DEQ1: 0438 00589000 * IF BPCBRPHA=0 /* IS THE PRIORITY QUE EMPTY */ 00590000 * THEN /* YES, CHECK THE NORMAL QUE */ 00591000 DEQ1 L @15,BPCBRPHA(,R8BPCB) 0438 00592000 LTR @15,@15 0438 00593000 BNZ @RF00438 0438 00594000 * DO; 0439 00595000 *TESTNORM: 0440 00596000 * IF BPCBRPHB^=0& /* IS NORMAL QUEUE NOT EMPTY */ 00597000 * BPCBAVNO>=BPCBTHRE THEN 0440 00598000 TESTNORM L @15,BPCBRPHB(,R8BPCB) 0440 00599000 LTR @15,@15 0440 00600000 BZ @RF00440 0440 00601000 LH @15,BPCBAVNO(,R8BPCB) 0440 00602000 CH @15,BPCBTHRE(,R8BPCB) 0440 00603000 BL @RF00440 0440 00604000 * DO; /* YES, BOTH QUEUES EMPTY */ 00605000 * RFY 0442 00606000 * R9 RSTD; 0442 00607000 *DEQNORML: 0443 00608000 * R9=ADDR(BPCBRPHB); 0443 00609000 DEQNORML LA R9,BPCBRPHB(,R8BPCB) 0443 00610000 * R4RPH=BPCBRPHB; /* SET FIRST RPH ON NORM QUE */ 00611000 L R4RPH,BPCBRPHB(,R8BPCB) 0444 00612000 * BPCBPRIO=OFF; /* SET NOT.PRIORITY BIT */ 00613000 NI BPCBPRIO(R8BPCB),B'01111111' 0445 00614000 * END; 0446 00615000 * ELSE 0447 00616000 * DO; 0447 00617000 B @RC00440 0447 00618000 @RF00440 DS 0H 0448 00619000 * R4RPH=0; 0448 00620000 SLR R4RPH,R4RPH 0448 00621000 * RETURN; 0449 00622000 @EL00002 DS 0H 0449 00623000 @EF00002 DS 0H 0449 00624000 @ER00002 BR @14 0449 00625000 * END; 0450 00626000 * END; 0451 00627000 * ELSE 0452 00628000 * DO; /* PRIORITY QUEUE NOT EMPTY */ 00629000 B @RC00438 0452 00630000 @RF00438 DS 0H 0453 00631000 *DEQPRIOR: 0453 00632000 * R9=ADDR(BPCBRPHA); 0453 00633000 DEQPRIOR LA R9,BPCBRPHA(,R8BPCB) 0453 00634000 * R4RPH=BPCBRPHA; /* SET FIRST RPH ON PRIO QUE */ 00635000 L R4RPH,BPCBRPHA(,R8BPCB) 0454 00636000 * BPCBPRIO=ON; /* SET -PRIORITY- BIT */ 00637000 OI BPCBPRIO(R8BPCB),B'10000000' 0455 00638000 * END; 0456 00639000 * R9=R9-(ADDR(RPHRPHA)-ADDR(ISTRPH)); 0457 00640000 @RC00438 LA @15,RPHRPHA(,R4RPH) 0457 00641000 LCR @15,@15 0457 00642000 ALR @15,R4RPH 0457 00643000 ALR R9,@15 0457 00644000 * DO WHILE(R4RPH&LO3MSK)^=0; 0458 00645000 * 0458 00646000 B @DE00458 0458 00647000 @DL00458 DS 0H 0459 00648000 * /***************************************************************/ 00649000 * /* */ 00650000 * /* ELIMINATE 1ST RPHS IN PURGE PROCESS @ZM31638*/ 00651000 * /* */ 00652000 * /***************************************************************/ 00653000 * 0459 00654000 * IF RPHPURGE=ON&RPHPGCMP^=ON /* PURGE IN PROCESS? @ZM31638*/ 00655000 * THEN 0459 00656000 TM RPHPURGE(R4RPH),B'00000010' 0459 00657000 BNO @RF00459 0459 00658000 TM RPHPGCMP(R4RPH),B'00010000' 0459 00659000 BO @RF00459 0459 00660000 * DO; /* START OF SKIP THIS RPH PATH 0460 00661000 * @ZM31638*/ 00662000 * R9=R4RPH; /* SET ANCHOR ADDRESS OF RPH 0461 00663000 * @ZM31638*/ 00664000 LR R9,R4RPH 0461 00665000 * R4RPH=RPHRPHA; /* GET ADDRESS OF NEXT RPH 0462 00666000 * @ZM00756*/ 00667000 L R4RPH,RPHRPHA(,R4RPH) 0462 00668000 * END; /* END OF SKIP THIS RPH PATH 0463 00669000 * @ZM31638*/ 00670000 * ELSE 0464 00671000 * GO TO SETUP; /* FOUND RPH NOT IN PURGE PROCESS 00672000 * @ZM31638*/ 00673000 * END; /* END OF ELIMINATE RPHS DOWHILE 00674000 * @ZM31638*/ 00675000 @DE00458 LR @15,R4RPH 0465 00676000 N @15,@CF03062 0465 00677000 LTR @15,@15 0465 00678000 BNZ @DL00458 0465 00679000 * IF BPCBPRIO=ON /* ARE WE LOOKING AT PRIORITY 0466 00680000 * QUEUE @Z40GKF6*/ 00681000 * THEN /* YES @Z40GKF6*/ 00682000 TM BPCBPRIO(R8BPCB),B'10000000' 0466 00683000 BNO @RF00466 0466 00684000 * DO; /* CHECK NORMAL QUEUE @Z40GKF6*/ 00685000 * GOTO TESTNORM; /* @Z40GKF6*/ 00686000 B TESTNORM 0468 00687000 * END; /* @Z40GKF6*/ 00688000 * ELSE 0470 00689000 * ; /* LOOKING AT NORM Q-DO NOTHING 00690000 * @Z40GKF6*/ 00691000 @RF00466 DS 0H 0471 00692000 * RETURN; /* NO RPHS TO BE PROCESSED,RETURN 00693000 * @ZM31638*/ 00694000 B @EL00002 0471 00695000 *SETUP: 0472 00696000 * ; 0472 00697000 SETUP DS 0H 0473 00698000 * RFY 0473 00699000 * (R11, 0473 00700000 * R12) RSTD; /* @ZM31638*/ 00701000 * R12=R4RPH; /* INIT RPH BACK PTR */ 00702000 LR R12,R4RPH 0474 00703000 * R11=RPHRPHA; /* INIT TEMPORARY NEXT PTR */ 00704000 L R11,RPHRPHA(,R4RPH) 0475 00705000 * DO WHILE(R11&LO3MSK)^=0; /* DO UNTIL END OF RPH CHAIN */ 00706000 B @DE00476 0476 00707000 @DL00476 DS 0H 0477 00708000 * IF R4RPH->XRPHREQK< /* IS THIS RPH WITH MIN REQST */ 00709000 * R11->XRPHREQK THEN 0477 00710000 LH @15,XRPHREQK(,R4RPH) 0477 00711000 CH @15,XRPHREQK(,R11) 0477 00712000 BL @RT00477 0477 00713000 * ; /* NO, CONTINUE SEARCH */ 00714000 * ELSE /* YES, UPDATE PTRS, CONTINUE */ 00715000 * DO; 0479 00716000 * IF R11->RPHPURGE=ON&R11->RPHPGCMP^=ON/* @ZM31638*/ 00717000 * THEN 0480 00718000 TM RPHPURGE(R11),B'00000010' 0480 00719000 BNO @RF00480 0480 00720000 TM RPHPGCMP(R11),B'00010000' 0480 00721000 BNO @RT00480 0480 00722000 * ; /* PURGE IN PROCESS,IGNORE RPH 0481 00723000 * @ZM31638*/ 00724000 * ELSE 0482 00725000 * DO; /* OTHERWISE,UPDATE MIN REQ PTRS 00726000 * @ZM31638*/ 00727000 @RF00480 DS 0H 0483 00728000 * R9=R12; /* UPDATE MIN RQST ANCHOR PTR */ 00729000 LR R9,R12 0483 00730000 * R4RPH=R11; /* UPDAT REG WITH MIN REQ RPH */ 00731000 LR R4RPH,R11 0484 00732000 * END; /* END OF UPDATE MIN REQ PTRS 0485 00733000 * @ZM31638*/ 00734000 * END; 0486 00735000 @RT00480 DS 0H 0487 00736000 * R12=R11; /* UPDATE REG RPH BACK PTR */ 00737000 @RT00477 LR R12,R11 0487 00738000 * R11=R11->RPHRPHA; /* UPDATE RPH NEXT PTR */ 00739000 L R11,RPHRPHA(,R11) 0488 00740000 * END; /* **** END OF DOWHILE */ 00741000 @DE00476 L @15,@CF03062 0489 00742000 LR @06,R11 0489 00743000 NR @06,@15 0489 00744000 LTR @06,@06 0489 00745000 BNZ @DL00476 0489 00746000 * RFY 0490 00747000 * (R11, 0490 00748000 * R12) UNRSTD; 0490 00749000 * 0490 00750000 */* *****************************************************************/ 00751000 * 0491 00752000 * IF RPHPURGE=ON&RPHPGCMP=ON /* PURGE COMPLETE? @ZM31638*/ 00753000 * THEN 0491 00754000 TM RPHPURGE(R4RPH),B'00000010' 0491 00755000 BNO @RF00491 0491 00756000 TM RPHPGCMP(R4RPH),B'00010000' 0491 00757000 BNO @RF00491 0491 00758000 * DO; /* YES,SET UP TO RETURN CRA 0492 00759000 * @ZM31638*/ 00760000 * RFY 0493 00761000 * (R2, 0493 00762000 * R11, 0493 00763000 * R13RPHY) RSTD; /* @ZM31638*/ 00764000 * R2=R4RPH&LO3MSK; /* GET CURRENT MIN REQ RPH ADDR 00765000 * @ZM32672*/ 00766000 LR R2,R4RPH 0494 00767000 NR R2,@15 0494 00768000 * IF R9->RPHGATE=OFF THEN /* 1ST RPH ON Q @ZM32672*/ 00769000 TM RPHGATE(R9),B'10000000' 0495 00770000 BNZ @RF00495 0495 00771000 * R13RPHY=RPHRPHA&LO3MSK; /* GET NXT RPH ADR-NO GATE 0496 00772000 * @ZM32672*/ 00773000 N @15,RPHRPHA(,R4RPH) 0496 00774000 LR R13RPHY,@15 0496 00775000 * ELSE /* OTHERWISE, RETAIN GATE BIT 0497 00776000 * @ZM32672*/ 00777000 * R13RPHY=RPHRPHA; /* GET NEXT RPH ADDRESS @ZM31638*/ 00778000 B @RC00495 0497 00779000 @RF00495 L R13RPHY,RPHRPHA(,R4RPH) 0497 00780000 * CS(R4RPH,R13RPHY,R9->RPHRPHA);/* TAKE CURRENT OFF Q @ZM31638*/ 00781000 @RC00495 CS R4RPH,@13,RPHRPHA(R9) 0498 00782000 * BC(SUCCESS,DEC3); /* SUCCESSFUL,GO TO DEC3 @ZM31638*/ 00783000 BC 8,DEC3 0499 00784000 * RFY 0500 00785000 * R13RPHY UNRSTD; 0500 00786000 * RFY 0501 00787000 * R11 RSTD; /* @ZM31638*/ 00788000 * DO WHILE R2^=(R4RPH&LO3MSK);/* FIND NEW BACK PTR @ZM32672*/ 00789000 B @DE00502 0502 00790000 @DL00502 DS 0H 0503 00791000 * R11=R4RPH; /* @ZM31638*/ 00792000 LR R11,R4RPH 0503 00793000 * R4RPH=RPHRPHA; /* @ZM31638*/ 00794000 L R4RPH,RPHRPHA(,R4RPH) 0504 00795000 * END; /* END OF DOWHILE @ZM31638*/ 00796000 @DE00502 LR @15,R4RPH 0505 00797000 N @15,@CF03062 0505 00798000 CR R2,@15 0505 00799000 BNE @DL00502 0505 00800000 * R11->RPHRPHA=RPHRPHA; /* DEQUEUE RPH,NO QUESTIONS 0506 00801000 * @ZM31638*/ 00802000 L @15,RPHRPHA(,R4RPH) 0506 00803000 ST @15,RPHRPHA(,R11) 0506 00804000 *DEC3: 0507 00805000 * RPHRPHA=0; /* CLEAR RPH CHAIN FIELD @ZM31638*/ 00806000 DEC3 SLR @15,@15 0507 00807000 ST @15,RPHRPHA(,R4RPH) 0507 00808000 * RFY 0508 00809000 * R2 UNRSTD; /* @ZM31638*/ 00810000 */*** DECREMENT COUNT OF QUEUED RPH'S - DCR 8057.1 - SMS TRACE ***** */ 00811000 * 0509 00812000 * RFY 0509 00813000 * (COMPREG, 0509 00814000 * SWAPREG) RSTD; /* @Z40GKF6*/ 00815000 *DEFAIL2: 0510 00816000 * COMPREG=BPCBQREQ; /* @Z40GKF6*/ 00817000 DEFAIL2 L COMPREG,BPCBQREQ(,R8BPCB) 0510 00818000 * SWAPREG=COMPREG-1; /* @Z40GKF6*/ 00819000 LR SWAPREG,COMPREG 0511 00820000 BCTR SWAPREG,0 0511 00821000 * CS(COMPREG,SWAPREG,BPCBQREQ);/* @Z40GKF6*/ 00822000 CS COMPREG,@13,BPCBQREQ(R8BPCB) 0512 00823000 * BC(FAIL,DEFAIL2); /* @Z40GKF6*/ 00824000 BC 7,DEFAIL2 0513 00825000 * RFY 0514 00826000 * (COMPREG, 0514 00827000 * SWAPREG) UNRSTD; /* @Z40GKF6*/ 00828000 * RFY 0515 00829000 * (R0REQK, 0515 00830000 * R5BPCB) RSTD; /* @Z40GKF6*/ 00831000 * R5BPCB=(RPHCRR-8)->BFPPCBA; /* GET CRA BPCB @Z40GKF6*/ 00832000 L @15,RPHCRR(,R4RPH) 0516 00833000 LR @12,@15 0516 00834000 AL @12,@CF03198 0516 00835000 L R5BPCB,BFPPCBA-4(,@12) 0516 00836000 * R11BUF=RPHCRR; /* GET ADR CRA @Z40GKF6*/ 00837000 LR R11BUF,@15 0517 00838000 * R0REQK=1; /* SET UP # BUFS TO RETURN 0518 00839000 * @Z40GKF6*/ 00840000 LA R0REQK,1 0518 00841000 * RFY 0519 00842000 * (R9) RSTD; /* R9 FOR SAVE RETURN @ZA29165*/ 00843000 * R9=R14; /* SAVE RETURN ADDR TO MAINLINE 00844000 * @ZA29165*/ 00845000 LR R9,R14 0520 00846000 * CALL RETBUF; /* RETURN CRA TO BUFFER POOL 0521 00847000 * @Z40GKF6*/ 00848000 BAL @14,RETBUF 0521 00849000 * R14=R9; /* RESTORE RETURN ADDRESS 0522 00850000 * @ZA29165*/ 00851000 LR R14,R9 0522 00852000 * RFY 0523 00853000 * (R0REQK, 0523 00854000 * R5BPCB, 0523 00855000 * R11BUF, 0523 00856000 * R9) UNRSTD; /* @VS41409*/ 00857000 * GO TO DEQ1; /* GO FIND NEXT MIN RPH @Z40GKF6*/ 00858000 B DEQ1 0524 00859000 * END; /* END OF PURGE COMPLETE PATH 0525 00860000 * @ZM36183*/ 00861000 * 0526 00862000 */********************************************************************/ 00863000 * 0526 00864000 * RFY 0526 00865000 * (COMPEVEN, 0526 00866000 * COMPODD) RSTD; /* @ZM31975*/ 00867000 @RF00491 DS 0H 0527 00868000 * LM(COMPEVEN,COMPODD,BPCBCDS); /* PREPARE TO UPDATE @ZM31975*/ 00869000 LM COMPEVEN,COMPODD,BPCBCDS(R8BPCB) 0527 00870000 *CSFAIL2: 0528 00871000 * IF R4RPH->XRPHREQK>(COMPODD&LO2MSK)|((BPCBPRIO=OFF)&((COMPODD& 0528 00872000 * LO2MSK)XRPHREQK^>0)/* @ZA29969*/ 00873000 * THEN /* NOT ENUF BUFERS OR BELOW 0528 00874000 * THRESHOLD AND NOT PRIORITY 0528 00875000 * @Z40GKF6*/ 00876000 CSFAIL2 LR @15,COMPODD 0528 00877000 N @15,@CF03064 0528 00878000 CH @15,XRPHREQK(,R4RPH) 0528 00879000 BL @RT00528 0528 00880000 TM BPCBPRIO(R8BPCB),B'10000000' 0528 00881000 BNZ @GL00005 0528 00882000 CH @15,BPCBTHRE(,R8BPCB) 0528 00883000 BL @RT00528 0528 00884000 @GL00005 LH @15,XRPHREQK(,R4RPH) 0528 00885000 LTR @15,@15 0528 00886000 BP @RF00528 0528 00887000 @RT00528 DS 0H 0529 00888000 * DO; /* YES, NOT ENOUGH AVAILABLE */ 00889000 * R4RPH=0; /* SET RETURN RPH TO ZERO */ 00890000 SLR R4RPH,R4RPH 0530 00891000 * RETURN; /* RETURN */ 00892000 B @EL00002 0531 00893000 * END; 0532 00894000 * ELSE 0533 00895000 * DO; /* NO, ENOUGH BUFS ARE AVAIL */ 00896000 @RF00528 DS 0H 0534 00897000 * RFY 0534 00898000 * (SWAPEVEN, 0534 00899000 * SWAPODD) RSTD; /* @ZM31975*/ 00900000 * SWAPODD=COMPODD-R4RPH->XRPHREQK;/* SET UP NEW AVAIL CNT 0535 00901000 * @ZM31975*/ 00902000 LR SWAPODD,COMPODD 0535 00903000 SH SWAPODD,XRPHREQK(,R4RPH) 0535 00904000 * SWAPEVEN=COMPEVEN; /* SET UP TO TEST FOR SLOWDOWN 0536 00905000 * @ZM31975*/ 00906000 LR SWAPEVEN,COMPEVEN 0536 00907000 * IF BPCBTHRE>(SWAPODD&LO2MSK) THEN/* SHOULD SET SLOWDOWN? 0537 00908000 * @ZM31975*/ 00909000 LR @15,SWAPODD 0537 00910000 N @15,@CF03064 0537 00911000 CH @15,BPCBTHRE(,R8BPCB) 0537 00912000 BNL @RF00537 0537 00913000 * SWAPEVEN=SWAPEVEN|LOW1ON; /* TURN ON SLOWDOWN @ZM31975*/ 00914000 O SWAPEVEN,@CF01416 0538 00915000 * CDS(COMPEVEN,SWAPEVEN,BPCBCDS);/* SWAP CNT AND FLAGS @ZM31975*/ 00916000 @RF00537 CDS COMPEVEN,SWAPEVEN,BPCBCDS(R8BPCB) 0539 00917000 * BC(FAIL,CSFAIL2); /* @ZM31975*/ 00918000 BC 7,CSFAIL2 0540 00919000 * RFY 0541 00920000 * (COMPEVEN, 0541 00921000 * COMPODD, 0541 00922000 * SWAPEVEN, 0541 00923000 * SWAPODD) UNRSTD; /* @ZM31975*/ 00924000 */* UPDATE COUNT OF MINIMUM AVAILABLE BUFFERS DURING TRACE PERIOD */ 00925000 * 0542 00926000 * RFY 0542 00927000 * (COMPREG, 0542 00928000 * SWAPREG) RSTD; /* @Z40GKF6*/ 00929000 *USFAIL1: 0543 00930000 * COMPREG=BPCBMUSE; /* MINIMUM BUFFER USAGE @Z40GKF6*/ 00931000 USFAIL1 L COMPREG,BPCBMUSE(,R8BPCB) 0543 00932000 * SWAPREG=BPCBAVNO; /* CURRENT BUF AVAILABILITY 0544 00933000 * @Z40GKF6*/ 00934000 LH SWAPREG,BPCBAVNO(,R8BPCB) 0544 00935000 * IF SWAPREGRPHGATE=OFF THEN /* 1ST RPH ON Q? @ZM32672*/ 00986000 TM RPHGATE(R9),B'10000000' 0562 00987000 BNZ @RF00562 0562 00988000 * R13RPHY=RPHRPHA&LO3MSK; /* GET NXT RPH-NO GATE @ZM32672*/ 00989000 N @15,RPHRPHA(,R4RPH) 0563 00990000 LR R13RPHY,@15 0563 00991000 * ELSE /* OTHERWISE,RETAIN GATE BIT 0564 00992000 * @ZM32672*/ 00993000 * R13RPHY=RPHRPHA; /* GET NEXT RPH ADDR */ 00994000 B @RC00562 0564 00995000 @RF00562 L R13RPHY,RPHRPHA(,R4RPH) 0564 00996000 * CS(R4RPH,R13RPHY,R9->RPHRPHA); /* ATTEMPT DEQUE */ 00997000 @RC00562 CS R4RPH,@13,RPHRPHA(R9) 0565 00998000 * BC(SUCCESS,DEC2); /* SUCCESS, QUE DIDNT CHANGE */ 00999000 BC 8,DEC2 0566 01000000 * RFY 0567 01001000 * R13RPHY UNRSTD; 0567 01002000 * 0567 01003000 * /*****************************************************************/ 01004000 * /* */ 01005000 * /* QUE CHANGED - AN RPH MUST HAVE BEEN ADDED TO FRONT R4RPH */ 01006000 * /* CONTAINS A NEW BACK POINTER R10 CONTAINS THE RPH WE ARE */ 01007000 * /* ATTEMPTING TO DEQUE */ 01008000 * /* */ 01009000 * /*****************************************************************/ 01010000 * 0568 01011000 * RFY 0568 01012000 * R11 RSTD; 0568 01013000 * DO WHILE R2^=(R4RPH&LO3MSK); /* FIND NEW BACK PTR @ZM32672*/ 01014000 B @DE00569 0569 01015000 @DL00569 DS 0H 0570 01016000 * R11=R4RPH; /* AND PUT IT IN R11 */ 01017000 LR R11,R4RPH 0570 01018000 * R4RPH=RPHRPHA; 0571 01019000 L R4RPH,RPHRPHA(,R4RPH) 0571 01020000 * END; 0572 01021000 @DE00569 LR @15,R4RPH 0572 01022000 N @15,@CF03062 0572 01023000 CR R2,@15 0572 01024000 BNE @DL00569 0572 01025000 * R11->RPHRPHA=RPHRPHA; /* DEQUE RPH */ 01026000 L @15,RPHRPHA(,R4RPH) 0573 01027000 ST @15,RPHRPHA(,R11) 0573 01028000 * RFY 0574 01029000 * (R2, 0574 01030000 * R11) UNRSTD; 0574 01031000 *DEC2: 0575 01032000 * RPHRPHAP=0; /* CLEAR RPH CHAIN FIELD @ZM34584*/ 01033000 DEC2 SLR @15,@15 0575 01034000 STCM @15,7,RPHRPHAP(R4RPH) 0575 01035000 * END DEQ; 0576 01036000 B @EL00002 0576 01037000 * RFY 0577 01038000 * (R14, 0577 01039000 * R0, 0577 01040000 * R4RPH) UNRSTD; 0577 01041000 * 0578 01042000 */********************************************************************/ 01043000 */* RETBUF: RETURNS BUFFERS TO POOL - DCR 4086 - ABEND DELTA */ 01044000 */********************************************************************/ 01045000 * 0578 01046000 *RETBUF: 0578 01047000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0578 01048000 * 0578 01049000 RETBUF DS 0H 0579 01050000 */* RESTRICT R9 FOR CALL RETBUF FROM DEQ ROUTINE @ZA29165*/ 01051000 * 0579 01052000 * RFY 0579 01053000 * (R14RET, 0579 01054000 * R11BUF, 0579 01055000 * R0REQK, 0579 01056000 * R5BPCB, 0579 01057000 * R15BUF, 0579 01058000 * R9) RSTD; /* @ZA29165*/ 01059000 * RFY 0580 01060000 * ISTBFPFX BASED(R15BUF); /* PREFIX BASED ON PASSED ADDR 0580 01061000 * @Z40GKF6*/ 01062000 * RFY 0581 01063000 * ISTBPCB BASED(R5BPCB); /* SET BASE FOR BPCB @Z40GKF6*/ 01064000 * R11BUF=R11BUF-PREFIX8; /* GET PREFIX ADDRESS @Z40GKF6*/ 01065000 SL R11BUF,@CF00059 0582 01066000 * R15BUF=R11BUF; /* SET MOVING PFX PTR @Z40GKF6*/ 01067000 LR R15BUF,R11BUF 0583 01068000 * RFY 0584 01069000 * (I) RSTD; /* @Z40GKF6*/ 01070000 * DO I=1 TO R0REQK BY 1; /* RETURN ALL BUFFERS @Z40GKF6*/ 01071000 LA I,1 0585 01072000 B @DE00585 0585 01073000 @DL00585 DS 0H 0586 01074000 * BFPTSKID=0; /* ZERO TASKID FIELD @Z40GKF6*/ 01075000 SLR @12,@12 0586 01076000 ST @12,BFPTSKID(,R15BUF) 0586 01077000 * BFPCBID=OFF; /* TURN OFF CBID BIT @Z40GKF6*/ 01078000 NI BFPCBID(R15BUF),B'01111111' 0587 01079000 * IF R0REQK=1 THEN 0588 01080000 C R0REQK,@CF00061 0588 01081000 BE @RT00588 0588 01082000 * ; /* RETURN ONLY ONE BUFFER 0589 01083000 * @Z40GKF6*/ 01084000 * ELSE 0590 01085000 * DO; /* @Z40GKF6*/ 01086000 * IF BFPNXCHN^=0 THEN /* DONT UPDATE LAST BUF PTR 0591 01087000 * @Z40GKF6*/ 01088000 L @12,BFPNXCHN(,R15BUF) 0591 01089000 LTR @12,@12 0591 01090000 BZ @RF00591 0591 01091000 * R15BUF=BFPNXCHN-PREFIX8;/* UPDATE BUFFER PTR @Z40GKF6*/ 01092000 SL @12,@CF00059 0592 01093000 LR R15BUF,@12 0592 01094000 * ELSE 0593 01095000 * ; /* @Z40GKF6*/ 01096000 @RF00591 DS 0H 0594 01097000 * END; /* @Z40GKF6*/ 01098000 * END; /* AT LOOP END R15 POINTS TO ONLY 01099000 * OR LAST BUFFER @Z40GKF6*/ 01100000 @RT00588 AL I,@CF00061 0595 01101000 @DE00585 CR I,R0REQK 0595 01102000 BNH @DL00585 0595 01103000 * RFY 0596 01104000 * (I) UNRSTD; /* @Z40GKF6*/ 01105000 */********BUFFER RETURN PROCESSING************************************/ 01106000 * 0597 01107000 * R0REQK=R0REQK|CCNTBIT; /* SET UP TO INCREASE BPCBCCNT 0597 01108000 * @Z40FKF6*/ 01109000 O R0REQK,@CF02819 0597 01110000 *RETCS1: 0598 01111000 * BFPNXCHN=BPCBFBA; /* SET NEW FORWARD POINTER 0598 01112000 * @Z40GKF6*/ 01113000 RETCS1 L @12,BPCBFBA-1(,R5BPCB) 0598 01114000 LA @12,0(,@12) 0598 01115000 ST @12,BFPNXCHN(,R15BUF) 0598 01116000 * RFY 0599 01117000 * (COMPEVEN, 0599 01118000 * COMPODD, 0599 01119000 * SWAPEVEN, 0599 01120000 * SWAPODD) RSTD; /* @Z40GKF6*/ 01121000 * LM(COMPEVEN,COMPODD,BPCBCDS); /* CURRENT BPCB INFO @Z40GKF6*/ 01122000 LM COMPEVEN,COMPODD,BPCBCDS(R5BPCB) 0600 01123000 * SWAPODD=COMPODD+R0REQK; /* INCREASE AVNO & CCNT @Z40GKF6*/ 01124000 LR SWAPODD,COMPODD 0601 01125000 ALR SWAPODD,R0REQK 0601 01126000 * SWAPEVEN=(R11BUF&LO3MSK)|(BPCBCDS1&HIBYTMSK);/* GET NEW FBA 0602 01127000 * POINTER BUT SAVE OLD FLAGS 0602 01128000 * @Z40GKF6*/ 01129000 LR SWAPEVEN,R11BUF 0602 01130000 N SWAPEVEN,@CF03062 0602 01131000 L @06,BPCBCDS1(,R5BPCB) 0602 01132000 N @06,@CF01457 0602 01133000 OR SWAPEVEN,@06 0602 01134000 * CDS(COMPEVEN,SWAPEVEN,BPCBCDS); /* SWAP ON ALL BUFS @Z49GKF6*/ 01135000 CDS COMPEVEN,SWAPEVEN,BPCBCDS(R5BPCB) 0603 01136000 * BC(FAIL,RETCS1); /* GET NEW INFO @Z40GKF6*/ 01137000 BC 7,RETCS1 0604 01138000 * RFY 0605 01139000 * (COMPEVEN, 0605 01140000 * COMPODD, 0605 01141000 * SWAPEVEN, 0605 01142000 * SWAPODD, 0605 01143000 * R11BUF, 0605 01144000 * R15BUF, 0605 01145000 * R0REQK) UNRSTD; 0605 01146000 * END RETBUF; /* @Z40GKF6*/ 01147000 @EL00003 DS 0H 0606 01148000 @EF00003 DS 0H 0606 01149000 @ER00003 BR @14 0606 01150000 * RFY 0607 01151000 * (R14RET, 0607 01152000 * R9) UNRSTD; /* UNRESTRICT R9 @ZA29165*/ 01153000 * 0608 01154000 */* THE FOLLOWING CODE GETS CONTROL AS AN FRR WHENEVER AN ERROR 0608 01155000 * OCCURS IN ISTORFBQ MAINLINE @ZM32024 */ 01156000 * 0608 01157000 *ISTDQFRR: 0608 01158000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @ZM32024*/ 01159000 ISTDQFRR DS 0H 0609 01160000 */* ESTABLISH ADDRESSABILITY */ 01161000 * 0609 01162000 * RFY 0609 01163000 * FRPREG RSTD; /* @ZM32024*/ 01164000 * RFY 0610 01165000 * FRPRMLST BASED(FRPREG); /* @ZM32024*/ 01166000 * FRPREG=SDWAPARM; /* GET ADDR FOR FRRPARM FIELD 0611 01167000 * @ZM32024*/ 01168000 L FRPREG,SDWAPARM(,SDWAPTR) 0611 01169000 * R7=FRPMWD1; /* LOAD BASE REG FROM FRR PARM 0612 01170000 * WORD @ZM32024*/ 01171000 L R7,FRPMWD1(,FRPREG) 0612 01172000 */* SET UP HOUSE AND GET THE LOCAL LOCK */ 01173000 * 0613 01174000 * RFY 0613 01175000 * (R5, 0613 01176000 * R14RTM) RSTD; /* RESTRICT REGS @ZM32024*/ 01177000 * RFY 0614 01178000 * ISTBPCB BASED(R8BPCB); /* REG 8 ADDRESS ISTBPCB @ZM32024*/ 01179000 * R8BPCB=FRPMWD0; /* SET UP BPCB PTR FROM SDWA 0615 01180000 * @ZM32024*/ 01181000 L R8BPCB,FRPMWD0(,FRPREG) 0615 01182000 * RFY 0616 01183000 * FRPREG UNRSTD; /* @ZM32024*/ 01184000 * R5=R14RTM; /* SAVE RTM RETURN ADDR @ZM32024*/ 01185000 LR R5,R14RTM 0617 01186000 *OBTLLK: 0618 01187000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 01188000 * TYPE(LOCAL) 0618 01189000 * RELATED(LOCAL,ISTDQFRR(SETRP))*/ 01190000 OBTLLK DS 0H 0619 01191000 * RFY 0619 01192000 * (GPR11P, 0619 01193000 * GPR12P, 0619 01194000 * GPR13P, 0619 01195000 * GPR14P) RSTD; 0619 01196000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0620 01197000 * TABLE. */ 01198000 L GPR13P,PSALITA 0620 01199000 * GEN(LM GPR11P,GPR13P,576(GPR13P));/* LOAD LOCKWORD, CLHT AND 0621 01200000 * ENTRY ADRS. */ 01201000 LM GPR11P,GPR13P,576(GPR13P) 01202000 * GEN(BALR GPR14P,GPR13P); /* BALR TO SETLOCK RTN. */ 01203000 BALR GPR14P,GPR13P 01204000 * RFY 0623 01205000 * (GPR11P, 0623 01206000 * GPR12P, 0623 01207000 * GPR13P, 0623 01208000 * GPR14P) UNRSTD; 0623 01209000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 01210000 * TYPE(LOCAL) 0624 01211000 * RELATED(LOCAL,ISTDQFRR(SETRP)) 01212000 * @ZM32024*/ 01213000 */* ESTABLISH RECOVERY ENVIRONMENT */ 01214000 * 0625 01215000 * RFY 0625 01216000 * (R4, 0625 01217000 * R6, 0625 01218000 * R10) RSTD; /* RESTRICT REGS FOR SETFRR 0625 01219000 * @ZM32024*/ 01220000 * DO; /* LISATCVT 0626 01221000 * CVTBASE(PAGEABLE,(R6)) */ 01222000 * R6=ATCLCPTR; /* SET UP ATCVT POINTER */ 01223000 L R6,ATCLCPTR 0627 01224000 * END; /* LISATCVT FIND ATCVT @ZM32024*/ 01225000 * R6=R6->ATCAP69; /* FIND ADDR OF ISTAPM69 @ZM32024*/ 01226000 L R6,ATCAP69(,R6) 0629 01227000 * GENERATE(SETFRR A,FRRAD=(R6),PARMAD=(R4),WRKREGS=(R4,R10)) 0630 01228000 * REFS(R4,R6,R10,PSACSTK,FRRSCURR,FRRS,FRRSLAST,PSALSFCC,FRRSELEN, 01229000 * FRRSFRRA,FRRSENTR,FRRSPARM);/* ADD ISTAPM69 TO STACK @ZM32024*/ 01230000 SETFRR A,FRRAD=(R6),PARMAD=(R4),WRKREGS=(R4,R10) 01231000 * R4->FRST2WDS=FRRID; /* IDENTIFY FRR FOR ISTAPM69 0631 01232000 * @ZM32024*/ 01233000 MVC FRST2WDS(8,R4),@CC03093 0631 01234000 */* SETUP SDWA FOR RECORDING ON SYS1.LOGREC */ 01235000 * 0632 01236000 * SDWAURAL=(LENGTH(ISTBPCB))-(LENGTH(IHASRB));/* LENGTH BPCB 0632 01237000 * @Z40GKF6*/ 01238000 LA @15,108 0632 01239000 STC @15,SDWAURAL(,SDWAPTR) 0632 01240000 * SDWAHEX=ON; /* RECORD IN HEX @ZM32024*/ 01241000 OI SDWAHEX(SDWAPTR),B'10000000' 0633 01242000 * SDWAREXN=FRRID; /* IDENTIFY FRR @ZM32024*/ 01243000 MVC SDWAREXN(8,SDWAPTR),@CC03093 0634 01244000 * SDWAMODN=MODID; /* IDENTIFY FAILING MODULE 0635 01245000 * @ZM32024*/ 01246000 MVC SDWAMODN(8,SDWAPTR),@CC03095 0635 01247000 * SDWACSCT=MODID; /* IDENTIFY FAILING CSECT 0636 01248000 * @ZM32024*/ 01249000 MVC SDWACSCT(8,SDWAPTR),@CC03095 0636 01250000 * SDWAVRA(1:SDWAURAL)=ISTBPCB(1:SDWAURAL);/* SDWA VARIABLE 0637 01251000 * RECORDING DATA SET EQUAL TO 0637 01252000 * BPCB @Z40GKF6*/ 01253000 BCTR @15,0 0637 01254000 EX @15,@SM03201 0637 01255000 */* DETERMINE IF ABLE TO RETRY */ 01256000 * 0638 01257000 * IF SDWAMCHK=ON THEN /* IF ENTERED DUE TO MACHINE 0638 01258000 * CHECK,MAYBE WE CAN RETRY 0638 01259000 * @ZM32024*/ 01260000 TM SDWAMCHK(SDWAPTR),B'10000000' 0638 01261000 BNO @RF00638 0638 01262000 * IF SDWAINSF=ON /* IF INSTRUCTION FAILED 0639 01263000 * IDENTIFIED @ZM32024*/ 01264000 * &SDWAREGU=OFF /* AND REGS ARE INTACT @ZM32024*/ 01265000 * &SDWAPSWU=OFF /* AND PSW IS INTACT @ZM32024*/ 01266000 * THEN 0639 01267000 TM SDWAINSF(SDWAPTR),B'00000100' 0639 01268000 BNO @RF00639 0639 01269000 TM SDWAREGU(SDWAPTR),B'01100000' 0639 01270000 BNZ @RF00639 0639 01271000 * DO; /* THEN SETRP TO RETRY @ZM32024*/ 01272000 * DO; /* SETRP 0641 01273000 * RETADDR(MCHKRTY)RC(SDWARETY) */ 01274000 * RESPECIFY 0642 01275000 * (GPR00P, 0642 01276000 * GPR01P, 0642 01277000 * GPR14P, 0642 01278000 * GPR15P) RSTD; 0642 01279000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 01280000 MVI SDWARCDE(GPR01P),X'04' 0643 01281000 * GPR01P->SDWARTYA=ADDR(MCHKRTY);/* SAVE RETRY ADDRESS */ 01282000 L @12,SDWANXT1(,SDWAPTR) 0644 01283000 ST @12,SDWARTYA(,GPR01P) 0644 01284000 * RESPECIFY 0645 01285000 * (GPR00P, 0645 01286000 * GPR01P, 0645 01287000 * GPR14P, 0645 01288000 * GPR15P) UNRSTD; 0645 01289000 * END; /* @ZM32024*/ 01290000 * R14RTM=R5; /* RESTORE RETURN ADDR @ZM32024*/ 01291000 LR R14RTM,R5 0647 01292000 * GO TO R14RTM; /* RETURN TO RTM @ZM32024*/ 01293000 BR R14RTM 0648 01294000 * END; /* END OF MACHINE CHECK RETRY 0649 01295000 * @ZM32024*/ 01296000 */* NO OTHER RETRY TO BE ATTEMPTED */ 01297000 */* RECORD ERROR, DELETE FRR AND RETURN TO RTM */ 01298000 * 0650 01299000 * GENERATE REFS(R4,R6,PSACSTK,FRRSCURR,FRRS,FRRSEMP,FRRSELEN) 0650 01300000 * (SETFRR D,WRKREGS=(R4,R6));/* @ZM32024*/ 01301000 @RF00639 DS 0H 0650 01302000 @RF00638 DS 0H 0650 01303000 SETFRR D,WRKREGS=(R4,R6) 01304000 *SETRP: 0651 01305000 * DO; /* SETRP RECORD(YES)WKAREA(SDWAPT 01306000 * R)RC(0)FRELOCK(LOCAL) */ 01307000 SETRP DS 0H 0652 01308000 * RESPECIFY 0652 01309000 * (GPR00P, 0652 01310000 * GPR01P, 0652 01311000 * GPR14P, 0652 01312000 * GPR15P) RSTD; 0652 01313000 * GPR01P=SDWAPTR; 0653 01314000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 01315000 MVI SDWARCDE(GPR01P),X'00' 0654 01316000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 01317000 OI SDWARCRD(GPR01P),B'10000000' 0655 01318000 * GPR01P->SDWAACF4=GPR01P->SDWAACF4|'00000001'B;/* INITIALIZE 0656 01319000 * LOCK FLAGS */ 01320000 OI SDWAACF4(GPR01P),B'00000001' 0656 01321000 * RESPECIFY 0657 01322000 * (GPR00P, 0657 01323000 * GPR01P, 0657 01324000 * GPR14P, 0657 01325000 * GPR15P) UNRSTD; 0657 01326000 * END; 0658 01327000 * 0658 01328000 * /*****************************************************************/ 01329000 * /* */ 01330000 * /* RECORD ERROR AND RELEASE LOCAL LOCK @ZM32024*/ 01331000 * /* */ 01332000 * /*****************************************************************/ 01333000 * 0659 01334000 * R14RTM=R5; /* RESTORE RTM RETURN ADDR 0659 01335000 * @ZM32024*/ 01336000 LR R14RTM,R5 0659 01337000 * GO TO R14RTM; /* RETURN TO RTM @ZM32024*/ 01338000 BR R14RTM 0660 01339000 * END ISTDQFRR; /* END OF FRR @ZM32024*/ 01340000 * END ISTORFBQ 0662 01341000 * 0662 01342000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01343000 */*%INCLUDE SYSLIB (CVT ) */ 01344000 */*%INCLUDE SYSLIB (IHASRB ) */ 01345000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01346000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01347000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01348000 * 0662 01349000 * ; 0662 01350000 @DATA DS 0H 01351000 @SM03201 MVC SDWAVRA(0,SDWAPTR),ISTBPCB(R8BPCB) 01352000 @DATD DSECT 01353000 DS 0F 01354000 ISTORFBQ CSECT 01355000 DS 0F 01356000 @CF00061 DC F'1' 01357000 @CF00059 DC F'8' 01358000 @CF03195 DC F'-1610612737' 01359000 @CF03198 DC F'-4' 01360000 @CF01408 DC XL4'7FFFFFFF' 01361000 @CF01416 DC XL4'40000000' 01362000 @CF01424 DC XL4'04000000' 01363000 @CF01434 DC XL4'08000000' 01364000 @CF01457 DC XL4'FF000000' 01365000 @CF02819 DC XL4'00010000' 01366000 @CF02847 DC XL4'00000004' 01367000 @CF03062 DC XL4'00FFFFFF' 01368000 @CF03064 DC XL4'0000FFFF' 01369000 @CF03069 DC XL4'FFFFFFEF' 01370000 @DATD DSECT 01371000 DS 0D 01372000 SRBPTR DS A 01373000 FRRSPTR DS A 01374000 FRREPTR DS A 01375000 IHASRB DS F 01376000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01377000 @ENDDATD EQU * 01378000 ISTORFBQ CSECT 01379000 DS 0F 01380000 @SIZDATD DC AL1(0) 01381000 DC AL3(@ENDDATD-@DATD) 01382000 DS 0D 01383000 @CC03093 DC C'ISTDQFRR' 01384000 @CC03095 DC C'ISTORFBQ' 01385000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01386000 @01 EQU 01 01387000 @02 EQU 02 01388000 @03 EQU 03 01389000 @04 EQU 04 01390000 @05 EQU 05 01391000 @06 EQU 06 01392000 @07 EQU 07 01393000 @08 EQU 08 01394000 @09 EQU 09 01395000 @10 EQU 10 01396000 @11 EQU 11 01397000 @12 EQU 12 01398000 @13 EQU 13 01399000 @14 EQU 14 01400000 @15 EQU 15 01401000 SDWAPTR EQU @01 01402000 RPHPTR EQU @01 01403000 GPR00F EQU @00 01404000 GPR00P EQU @00 01405000 GPR01F EQU @01 01406000 GPR01P EQU @01 01407000 GPR02F EQU @02 01408000 GPR03F EQU @03 01409000 GPR04F EQU @04 01410000 GPR04P EQU @04 01411000 GPR05F EQU @05 01412000 GPR05P EQU @05 01413000 GPR06F EQU @06 01414000 GPR11P EQU @11 01415000 GPR12P EQU @12 01416000 GPR13P EQU @13 01417000 GPR14F EQU @14 01418000 GPR14P EQU @14 01419000 GPR15F EQU @15 01420000 GPR15P EQU @15 01421000 R0 EQU @00 01422000 R0REQK EQU @00 01423000 R1 EQU @01 01424000 COMPEVEN EQU @02 01425000 R2 EQU @02 01426000 R2BUFPX EQU @02 01427000 I EQU @02 01428000 R3 EQU @03 01429000 COMPODD EQU @03 01430000 FRRWRK EQU @03 01431000 R4 EQU @04 01432000 R4RPH EQU @04 01433000 FRPREG EQU @04 01434000 FRAREG EQU @05 01435000 R5 EQU @05 01436000 R5BPCB EQU @05 01437000 R6 EQU @06 01438000 R7 EQU @07 01439000 R8BPCB EQU @08 01440000 R9 EQU @09 01441000 R10 EQU @10 01442000 R10SAV EQU @10 01443000 R11 EQU @11 01444000 R11BUF EQU @11 01445000 R12 EQU @12 01446000 SWAPEVEN EQU @12 01447000 COMPREG EQU @12 01448000 R13 EQU @13 01449000 SWAPODD EQU @13 01450000 R13RPHY EQU @13 01451000 SWAPREG EQU @13 01452000 R14 EQU @14 01453000 R14RET EQU @14 01454000 R15BUF EQU @15 01455000 R14RTM EQU @14 01456000 GPR02P EQU @02 01457000 GPR03P EQU @03 01458000 GPR06P EQU @06 01459000 GPR07F EQU @07 01460000 GPR07P EQU @07 01461000 GPR08F EQU @08 01462000 GPR08P EQU @08 01463000 GPR09F EQU @09 01464000 GPR09P EQU @09 01465000 GPR10F EQU @10 01466000 GPR10P EQU @10 01467000 GPR11F EQU @11 01468000 GPR12F EQU @12 01469000 GPR13F EQU @13 01470000 HDRSIZE EQU @06 01471000 R15EP EQU @15 01472000 R5RPHA EQU @05 01473000 R5RPHB EQU @05 01474000 PSA EQU 0 01475000 FLCRNPSW EQU PSA 01476000 FLCROPSW EQU PSA+8 01477000 FLCICCW2 EQU PSA+16 01478000 PSAEEPSW EQU PSA+132 01479000 PSAESPSW EQU PSA+136 01480000 FLCSVILC EQU PSAESPSW+1 01481000 PSAEPPSW EQU PSA+140 01482000 FLCPIILC EQU PSAEPPSW+1 01483000 FLCPICOD EQU PSAEPPSW+2 01484000 PSAPICOD EQU FLCPICOD+1 01485000 FLCTEA EQU PSAEPPSW+4 01486000 FLCPER EQU PSA+152 01487000 FLCMCLA EQU PSA+168 01488000 FLCIOEL EQU FLCMCLA+4 01489000 FLCIOA EQU FLCMCLA+16 01490000 FLCFSA EQU FLCMCLA+80 01491000 PSASUPER EQU PSA+552 01492000 PSASUP1 EQU PSASUPER 01493000 PSASUP2 EQU PSASUPER+1 01494000 PSASUP3 EQU PSASUPER+2 01495000 PSASUP4 EQU PSASUPER+3 01496000 PSACLHT EQU PSA+640 01497000 PSALKSA EQU PSA+696 01498000 PSAHLHI EQU PSA+760 01499000 PSALITA EQU PSA+764 01500000 PSADSSFL EQU PSA+836 01501000 PSADSSF1 EQU PSADSSFL 01502000 PSADSSF3 EQU PSADSSFL+2 01503000 PSADSSF4 EQU PSADSSFL+3 01504000 PSARSVT EQU PSA+896 01505000 PSALSFCC EQU PSA+1012 01506000 ATCLCPTR EQU 1032 01507000 CVTMAP EQU 0 01508000 CVTDAR EQU CVTMAP+72 01509000 CVTFLGS1 EQU CVTDAR 01510000 CVTDCB EQU CVTMAP+116 01511000 CVTIERLC EQU CVTMAP+144 01512000 CVTOPTA EQU CVTMAP+182 01513000 CVTOPTB EQU CVTMAP+183 01514000 CVTGTF EQU CVTMAP+236 01515000 CVTGTFST EQU CVTGTF 01516000 CVTGTFS EQU CVTGTFST 01517000 CVTSTATE EQU CVTGTFST 01518000 CVTTMODE EQU CVTGTFST 01519000 CVTFORM EQU CVTGTFST 01520000 CVTAQAVT EQU CVTMAP+240 01521000 CVTTCMFG EQU CVTAQAVT 01522000 CVTVOLM2 EQU CVTMAP+244 01523000 CVTTATA EQU CVTVOLM2 01524000 CVTTSKS EQU CVTTATA 01525000 CVTVOLF2 EQU CVTTSKS 01526000 CVTTAT EQU CVTTATA+1 01527000 CVTATER EQU CVTMAP+248 01528000 CVTEXT1 EQU CVTMAP+252 01529000 CVTPURG EQU CVTMAP+260 01530000 CVTQMSG EQU CVTMAP+268 01531000 CVTDMSR EQU CVTMAP+272 01532000 CVTRSV37 EQU CVTDMSR 01533000 CVTDMSRF EQU CVTRSV37 01534000 CVTERPV EQU CVTMAP+316 01535000 CVTINTLA EQU CVTMAP+320 01536000 CVTAPF EQU CVTMAP+324 01537000 CVTEXT2 EQU CVTMAP+328 01538000 CVTHJES EQU CVTMAP+332 01539000 CVTPGSIA EQU CVTMAP+348 01540000 CVTA1F1 EQU CVTMAP+356 01541000 CVTSYSK EQU CVTMAP+357 01542000 CVTVOLM1 EQU CVTMAP+380 01543000 CVTVOLF1 EQU CVTVOLM1 01544000 CVTATMCT EQU CVTMAP+388 01545000 CVTXTNT1 EQU 0 01546000 CVTXTNT2 EQU 0 01547000 CVTDSSV EQU CVTXTNT2 01548000 CVTFLGBT EQU CVTXTNT2+5 01549000 CVTQID EQU CVTXTNT2+24 01550000 CVTSHS EQU CVTXTNT2+40 01551000 CVTRV400 EQU CVTXTNT2+52 01552000 CVTRV409 EQU CVTXTNT2+53 01553000 CVTATCVT EQU CVTXTNT2+64 01554000 CVTRV429 EQU CVTXTNT2+84 01555000 CVTRV438 EQU CVTXTNT2+85 01556000 CVTRV457 EQU CVTXTNT2+112 01557000 CVTRV466 EQU CVTXTNT2+113 01558000 CVTFIX EQU 0 01559000 CVTRELNO EQU CVTFIX+252 01560000 SRBSECT EQU 0 01561000 SRBFLC EQU SRBSECT+12 01562000 FRRS EQU 0 01563000 FRRSHEAD EQU FRRS 01564000 FRRSEMP EQU FRRSHEAD 01565000 FRRSLAST EQU FRRSHEAD+4 01566000 FRRSELEN EQU FRRSHEAD+8 01567000 FRRSCURR EQU FRRSHEAD+12 01568000 FRRSENTR EQU 0 01569000 FRRSFRRA EQU FRRSENTR 01570000 FRRSFLGS EQU FRRSENTR+4 01571000 FRRSFLG1 EQU FRRSFLGS 01572000 FRRSPARM EQU FRRSENTR+8 01573000 SDWA EQU 0 01574000 SDWAPARM EQU SDWA 01575000 SDWAFIOB EQU SDWA+4 01576000 SDWAABCC EQU SDWAFIOB 01577000 SDWACMPF EQU SDWAABCC 01578000 SDWACTL1 EQU SDWA+8 01579000 SDWACMKA EQU SDWACTL1 01580000 SDWAMWPA EQU SDWACTL1+1 01581000 SDWAPMKA EQU SDWACTL1+4 01582000 SDWACTL2 EQU SDWA+16 01583000 SDWACMKP EQU SDWACTL2 01584000 SDWAMWPP EQU SDWACTL2+1 01585000 SDWAPMKP EQU SDWACTL2+4 01586000 SDWAGRSV EQU SDWA+24 01587000 SDWANAME EQU SDWA+88 01588000 SDWAEC1 EQU SDWA+104 01589000 SDWAEMK1 EQU SDWAEC1 01590000 SDWAMWP1 EQU SDWAEC1+1 01591000 SDWAINT1 EQU SDWAEC1+2 01592000 SDWANXT1 EQU SDWAEC1+4 01593000 SDWAAEC1 EQU SDWA+112 01594000 SDWAILC1 EQU SDWAAEC1+1 01595000 SDWAINC1 EQU SDWAAEC1+2 01596000 SDWAICD1 EQU SDWAINC1+1 01597000 SDWAEC2 EQU SDWA+120 01598000 SDWAEMK2 EQU SDWAEC2 01599000 SDWAMWP2 EQU SDWAEC2+1 01600000 SDWAINT2 EQU SDWAEC2+2 01601000 SDWANXT2 EQU SDWAEC2+4 01602000 SDWAAEC2 EQU SDWA+128 01603000 SDWAILC2 EQU SDWAAEC2+1 01604000 SDWAINC2 EQU SDWAAEC2+2 01605000 SDWAICD2 EQU SDWAINC2+1 01606000 SDWASRSV EQU SDWA+136 01607000 SDWAIDNT EQU SDWA+200 01608000 SDWAMCH EQU SDWA+204 01609000 SDWASTCK EQU SDWAMCH 01610000 SDWAMCHI EQU SDWAMCH+8 01611000 SDWAMCHS EQU SDWAMCHI 01612000 SDWAMCHD EQU SDWAMCHI+1 01613000 SDWAREGU EQU SDWAMCHD 01614000 SDWAPSWU EQU SDWAMCHD 01615000 SDWAINSF EQU SDWAMCHD 01616000 SDWARSR1 EQU SDWAMCH+12 01617000 SDWARSR2 EQU SDWAMCH+13 01618000 SDWAFLGS EQU SDWA+232 01619000 SDWAERRA EQU SDWAFLGS 01620000 SDWAMCHK EQU SDWAERRA 01621000 SDWAERRB EQU SDWAFLGS+1 01622000 SDWAERRC EQU SDWAFLGS+2 01623000 SDWAERRD EQU SDWAFLGS+3 01624000 SDWAIOFS EQU SDWA+238 01625000 SDWARTYA EQU SDWA+240 01626000 SDWACPUA EQU SDWA+248 01627000 SDWAPARQ EQU SDWA+252 01628000 SDWARCDE EQU SDWAPARQ 01629000 SDWAACF2 EQU SDWAPARQ+1 01630000 SDWARCRD EQU SDWAACF2 01631000 SDWAACF3 EQU SDWAPARQ+2 01632000 SDWAACF4 EQU SDWAPARQ+3 01633000 SDWALKWA EQU SDWA+256 01634000 SDWALKWS EQU SDWALKWA 01635000 SDWARECP EQU SDWA+292 01636000 SDWAMODN EQU SDWARECP 01637000 SDWACSCT EQU SDWARECP+8 01638000 SDWAREXN EQU SDWARECP+16 01639000 SDWASNPA EQU SDWA+320 01640000 SDWADUMP EQU SDWASNPA 01641000 SDWADPFS EQU SDWADUMP+1 01642000 SDWADDAT EQU SDWASNPA+4 01643000 SDWASDAT EQU SDWADDAT 01644000 SDWAPDAT EQU SDWADDAT+2 01645000 SDWADPSA EQU SDWA+328 01646000 SDWADPSL EQU SDWADPSA 01647000 SDWARA EQU SDWA+400 01648000 SDWADPVA EQU SDWARA+2 01649000 SDWAHEX EQU SDWADPVA 01650000 SDWAURAL EQU SDWARA+3 01651000 SDWAVRA EQU SDWARA+4 01652000 ISTPAB EQU 0 01653000 PABWQCHN EQU ISTPAB 01654000 PABWEQA EQU PABWQCHN 01655000 PABCHAIN EQU PABWQCHN+4 01656000 PABRPHFG EQU ISTPAB+12 01657000 PABFLAGS EQU PABRPHFG 01658000 PABERLCK EQU PABFLAGS 01659000 PABERRLK EQU PABERLCK 01660000 ISTLOK EQU 0 01661000 LOKCHN EQU ISTLOK+1 01662000 LOKCHNG EQU LOKCHN 01663000 @NM00080 EQU LOKCHNG+2 01664000 ISTDYPAB EQU 0 01665000 ISTRPH EQU 0 01666000 RPHCNTL EQU ISTRPH 01667000 RPHFLAGS EQU RPHCNTL+2 01668000 RPHAPTYP EQU RPHFLAGS 01669000 RPHFSTLC EQU RPHFLAGS 01670000 RPHFLGB EQU RPHCNTL+3 01671000 RPHPGCMP EQU RPHFLGB 01672000 RPHRPHA EQU ISTRPH+4 01673000 RPHCVFLG EQU RPHRPHA 01674000 RPHGATE EQU RPHCVFLG 01675000 RPHRPHAP EQU RPHRPHA+1 01676000 RPHTSKID EQU ISTRPH+8 01677000 RPHRESMA EQU ISTRPH+16 01678000 RPHWPFLG EQU RPHRESMA 01679000 RPHWT EQU RPHWPFLG 01680000 RPHPURGE EQU RPHWPFLG 01681000 RPHPABOF EQU ISTRPH+20 01682000 RPHMAJCB EQU ISTRPH+21 01683000 RPHWEA EQU ISTRPH+24 01684000 RPHCSPA EQU RPHWEA 01685000 RPHSRPRM EQU ISTRPH+28 01686000 RPHCRR EQU ISTRPH+32 01687000 RPHPABQA EQU ISTRPH+36 01688000 RPHWORK EQU ISTRPH+40 01689000 RPHSAVE1 EQU RPHWORK 01690000 RPHSBITS EQU RPHSAVE1+1 01691000 ISTATCVT EQU 0 01692000 ATCCOM EQU ISTATCVT 01693000 ATCSTAT EQU ATCCOM 01694000 ATCSTAT1 EQU ATCSTAT 01695000 ATCSTFLG EQU ATCSTAT+1 01696000 ATCPOFLG EQU ATCSTAT+2 01697000 ATCSTAT4 EQU ATCSTAT+3 01698000 ATCIOTRC EQU ATCCOM+140 01699000 ATCTHTRC EQU ATCIOTRC 01700000 ATCCSMR EQU ISTATCVT+296 01701000 ATCSHRFG EQU ISTATCVT+316 01702000 ATCHPGM EQU ISTATCVT+384 01703000 ATCVLCNT EQU ISTATCVT+772 01704000 ATCRNO EQU ISTATCVT+788 01705000 ATCSOPD EQU ISTATCVT+792 01706000 ATCSIPD EQU ISTATCVT+800 01707000 ATCSECST EQU ISTATCVT+812 01708000 ATCSTAT2 EQU ISTATCVT+818 01709000 ATCVTBAM EQU ISTATCVT+908 01710000 @NM00091 EQU ATCVTBAM+3 01711000 ATCAOSM EQU ISTATCVT+912 01712000 ATCGSRBQ EQU ATCAOSM+4 01713000 ATCGSRBG EQU ATCGSRBQ 01714000 ATCAP32 EQU ATCAOSM+28 01715000 ATCICAPP EQU ATCAOSM+100 01716000 ATCLDAPP EQU ATCAOSM+120 01717000 ATCDAPVT EQU ATCAOSM+140 01718000 ATCCRA EQU ATCAOSM+280 01719000 ATCCRACN EQU ATCCRA+4 01720000 ATCSRB EQU ATCAOSM+288 01721000 ATCSRBCN EQU ATCSRB+4 01722000 ATCCRPL EQU ATCAOSM+296 01723000 ATCRPLCN EQU ATCCRPL+4 01724000 ATCSQAFR EQU ATCAOSM+304 01725000 ATCORTBC EQU ATCSQAFR+4 01726000 ATCORSRB EQU ATCORTBC 01727000 @NM00093 EQU ATCAOSM+332 01728000 ATCVTFLG EQU ATCAOSM+392 01729000 ATCAP69 EQU ATCAOSM+540 01730000 ATCZFLAG EQU ATCAOSM+588 01731000 ISTLCCW EQU 0 01732000 LCCWOP EQU ISTLCCW 01733000 LCCWRWOP EQU LCCWOP 01734000 LCCWCTL EQU LCCWRWOP 01735000 LCCWFLAG EQU ISTLCCW+1 01736000 LCCWLSI EQU LCCWFLAG 01737000 ISTLCPB EQU 0 01738000 LCPREQTG EQU ISTLCPB+2 01739000 LCPFLAGS EQU LCPREQTG 01740000 LCPZF001 EQU LCPFLAGS 01741000 LCPZRT02 EQU LCPZF001 01742000 LCPZF002 EQU LCPFLAGS 01743000 LCPZRT03 EQU LCPZF002 01744000 LCPZF003 EQU LCPFLAGS 01745000 LCPZRT04 EQU LCPZF003 01746000 LCPZF004 EQU LCPFLAGS 01747000 LCPZRT05 EQU LCPZF004 01748000 LCPZRT06 EQU LCPFLAGS 01749000 LCPZRT07 EQU LCPFLAGS 01750000 LCPMNRCD EQU LCPREQTG+1 01751000 LCPZRT08 EQU LCPMNRCD 01752000 LCPZRT09 EQU LCPMNRCD 01753000 LCPCHAIN EQU ISTLCPB+4 01754000 LCPCHAI1 EQU LCPCHAIN 01755000 LCPRUCNT EQU ISTLCPB+8 01756000 LCPFLAG2 EQU ISTLCPB+9 01757000 LCPTLBPI EQU LCPFLAG2 01758000 LCPFID0 EQU LCPFLAG2 01759000 LCPSEQ EQU ISTLCPB+10 01760000 LCPCID EQU ISTLCPB+16 01761000 LCPFDBA EQU ISTLCPB+24 01762000 LCPFLG1 EQU ISTLCPB+37 01763000 LCPFLCCW EQU ISTLCPB+40 01764000 LCPLCCW EQU ISTLCPB+48 01765000 LCPPABA EQU LCPLCCW+4 01766000 LCPRPHA EQU LCPPABA 01767000 ISTZSAVE EQU 0 01768000 ZSAZSVBC EQU ISTZSAVE 01769000 ZSAZSVMS EQU ZSAZSVBC 01770000 ISTPFCRR EQU 0 01771000 PFCCRR EQU ISTPFCRR 01772000 PFCCRRID EQU PFCCRR 01773000 PFCCRRLN EQU PFCCRR+2 01774000 PFCHDR EQU ISTPFCRR+4 01775000 PFCCRRO EQU PFCHDR 01776000 PFCFRRO EQU PFCHDR+4 01777000 ISTCFCRR EQU 0 01778000 CFCAUDIT EQU ISTCFCRR 01779000 CFCNTRD EQU CFCAUDIT 01780000 CFCCRT EQU CFCAUDIT+1 01781000 ISTZCRR EQU 0 01782000 ZCRCRR EQU ISTZCRR 01783000 ZCRFLGS1 EQU ISTZCRR+12 01784000 ZCRFLGS2 EQU ISTZCRR+13 01785000 ZCRSWFLD EQU ISTZCRR+14 01786000 ZCRENDSH EQU ZCRSWFLD 01787000 ZCRNDLCP EQU ZCRSWFLD 01788000 ZCRRESET EQU ZCRSWFLD 01789000 ZCRFLGS3 EQU ISTZCRR+15 01790000 ZCRGENSW EQU ISTZCRR+16 01791000 ZCRPFLGS EQU ISTZCRR+17 01792000 ZCRIBPR EQU ISTZCRR+18 01793000 ZCRSCPSW EQU ISTZCRR+19 01794000 ZCRPARMS EQU ISTZCRR+24 01795000 ZCRFBPTR EQU ZCRPARMS 01796000 ZCRDFRDA EQU ZCRPARMS+10 01797000 ZCRPCOD1 EQU ZCRPARMS+12 01798000 ZCRPLSBF EQU ZCRPCOD1 01799000 ZCRPCOD2 EQU ZCRPARMS+13 01800000 ZCRSVRTN EQU ISTZCRR+56 01801000 ZCRWKARA EQU ISTZCRR+156 01802000 ZCRCIDSV EQU ISTZCRR+192 01803000 ZCRAUDIT EQU ISTZCRR+440 01804000 ZCRENTER EQU ZCRAUDIT+5 01805000 ZCRLCPB EQU ISTZCRR+480 01806000 ZCRRHRU EQU ZCRLCPB 01807000 ISTASCRR EQU 0 01808000 ASCFLAGS EQU ISTASCRR+16 01809000 ASCFLG1 EQU ASCFLAGS 01810000 ASCFLG2 EQU ASCFLAGS+2 01811000 ASCFLG3 EQU ASCFLAGS+4 01812000 ASCUSRGS EQU ISTASCRR+28 01813000 ISTAPCRR EQU 0 01814000 APCATFLG EQU ISTAPCRR+16 01815000 APCRFLG EQU ISTAPCRR+18 01816000 APCSAVE EQU ISTAPCRR+44 01817000 APCCOMF EQU ISTAPCRR+116 01818000 APCCOMF1 EQU APCCOMF 01819000 APC31FLG EQU ISTAPCRR+132 01820000 APC52FLG EQU ISTAPCRR+133 01821000 APC53FLG EQU ISTAPCRR+134 01822000 APC54FLG EQU ISTAPCRR+135 01823000 APC57FLG EQU ISTAPCRR+136 01824000 ISTCRA EQU 0 01825000 CRABASIC EQU ISTCRA 01826000 CRAHDR EQU CRABASIC 01827000 CRALKACT EQU CRABASIC+8 01828000 CRASVC EQU ISTCRA+848 01829000 CRAHSIZ EQU CRASVC+60 01830000 CRAMASK EQU CRASVC+64 01831000 CRABUFA EQU CRASVC+68 01832000 ISTBPENT EQU 0 01833000 BPEFLAGS EQU ISTBPENT+4 01834000 ISTBPDTY EQU 0 01835000 BPDHDR EQU ISTBPDTY 01836000 BPDFLAG EQU BPDHDR+40 01837000 BPDPARM EQU BPDHDR+48 01838000 BPDTRACE EQU BPDHDR+56 01839000 ISTBPCB EQU 0 01840000 BPCBFLAG EQU ISTBPCB 01841000 BPCBFEXT EQU ISTBPCB+4 01842000 BPCBPRIO EQU BPCBFEXT 01843000 BPCBRPHA EQU ISTBPCB+16 01844000 BPCBRPHB EQU ISTBPCB+20 01845000 BPCBBSIZ EQU ISTBPCB+32 01846000 BPCBTHRE EQU ISTBPCB+36 01847000 BPCBTHR2 EQU ISTBPCB+38 01848000 BPCBQREQ EQU ISTBPCB+40 01849000 BPCBMUSE EQU ISTBPCB+44 01850000 BPCBCDS EQU ISTBPCB+56 01851000 BPCBCDS1 EQU BPCBCDS 01852000 BPCBFLG2 EQU BPCBCDS1 01853000 BPCBFBA EQU BPCBCDS1+1 01854000 BPCBCDS2 EQU BPCBCDS+4 01855000 BPCBAVNO EQU BPCBCDS2+2 01856000 BPCBRBLK EQU ISTBPCB+64 01857000 ISTBFPFX EQU 0 01858000 BFPTSKID EQU ISTBFPFX 01859000 BFPPSTID EQU BFPTSKID+1 01860000 BFPPCBA EQU ISTBFPFX+4 01861000 BFPCBID EQU BFPPCBA 01862000 BFPNXCHN EQU ISTBFPFX+8 01863000 BFPSIZE EQU ISTBFPFX+12 01864000 BFPDATA EQU ISTBFPFX+16 01865000 BFPREGSA EQU BFPDATA 01866000 BFPR5SA EQU BFPREGSA 01867000 DUMNAMES EQU 0 01868000 BFPFXPTR EQU DUMNAMES+8 01869000 BPCBPTR EQU DUMNAMES+12 01870000 BPDPTR EQU DUMNAMES+16 01871000 BPEPTR EQU DUMNAMES+20 01872000 CVTPTR EQU DUMNAMES+24 01873000 LCPBPTR EQU DUMNAMES+28 01874000 FRPRMLST EQU 0 01875000 FRST2WDS EQU FRPRMLST 01876000 FRPMWD0 EQU FRST2WDS 01877000 FRPMWD1 EQU FRST2WDS+4 01878000 MCHKRTY EQU 0 01879000 ISTAVT EQU 0 01880000 ISTAS49 EQU ISTAVT+4 01881000 CVTS01 EQU CVTPGSIA 01882000 CVTLPDIA EQU CVTS01+12 01883000 CVTDIRST EQU CVTLPDIA 01884000 CVTSLIDA EQU CVTS01+24 01885000 CVTCTLFG EQU CVTS01+50 01886000 CVTRV210 EQU CVTS01+424 01887000 CVTRV219 EQU CVTS01+425 01888000 CVTRV228 EQU CVTS01+426 01889000 CVTRV237 EQU CVTS01+427 01890000 CVTMFRTR EQU CVTS01+452 01891000 CVTRV262 EQU CVTS01+468 01892000 CVTRV271 EQU CVTS01+469 01893000 CVTRV280 EQU CVTS01+470 01894000 CVTRV289 EQU CVTS01+471 01895000 CVTGSDA EQU CVTS01+600 01896000 SRB EQU SRBSECT 01897000 PSARSVTE EQU PSARSVT 01898000 PSACSTK EQU PSARSVTE 01899000 LCPZTIE EQU LCPCID 01900000 LCPZSNAM EQU LCPZTIE+8 01901000 XRPHREG3 EQU RPHSRPRM 01902000 @NM00120 EQU XRPHREG3 01903000 XRPHCLR EQU @NM00120 01904000 XRPHCBID EQU @NM00120 01905000 XRPHREQK EQU XRPHREG3+2 01906000 RPHWORD1 EQU ISTRPH 01907000 FLC EQU PSA 01908000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01909000 XRPHIDNO EQU XRPHREG3+1 01910000 @NM00122 EQU @NM00120 01911000 @NM00121 EQU @NM00120 01912000 LCPZTRV4 EQU LCPZSNAM+4 01913000 LCPZTRV1 EQU LCPZSNAM 01914000 LCPZSNA EQU LCPZTIE+4 01915000 LCPZFMCA EQU LCPZTIE 01916000 PSARSAV EQU PSARSVTE+60 01917000 PSARSTK EQU PSARSVTE+56 01918000 PSAESAV3 EQU PSARSVTE+52 01919000 PSAESTK3 EQU PSARSVTE+48 01920000 PSAESAV2 EQU PSARSVTE+44 01921000 PSAESTK2 EQU PSARSVTE+40 01922000 PSAESAV1 EQU PSARSVTE+36 01923000 PSAESTK1 EQU PSARSVTE+32 01924000 PSAPSAV EQU PSARSVTE+28 01925000 PSAPSTK EQU PSARSVTE+24 01926000 PSAMSAV EQU PSARSVTE+20 01927000 PSAMSTK EQU PSARSVTE+16 01928000 PSASSAV EQU PSARSVTE+12 01929000 PSASSTK EQU PSARSVTE+8 01930000 PSANSTK EQU PSARSVTE+4 01931000 CVTRV628 EQU CVTS01+728 01932000 CVTRV627 EQU CVTS01+724 01933000 CVTRV626 EQU CVTS01+720 01934000 CVTRV625 EQU CVTS01+716 01935000 CVTRV624 EQU CVTS01+712 01936000 CVTRV623 EQU CVTS01+708 01937000 CVTRV622 EQU CVTS01+704 01938000 CVTRV621 EQU CVTS01+700 01939000 CVTRV620 EQU CVTS01+696 01940000 CVTRV619 EQU CVTS01+692 01941000 CVTRV618 EQU CVTS01+688 01942000 CVTRV617 EQU CVTS01+684 01943000 CVTRV616 EQU CVTS01+680 01944000 CVTRV615 EQU CVTS01+676 01945000 CVTRV614 EQU CVTS01+672 01946000 CVTRV613 EQU CVTS01+668 01947000 CVTTCASP EQU CVTS01+664 01948000 CVT0PT03 EQU CVTS01+660 01949000 CVT0PT0E EQU CVTS01+656 01950000 CVTIRM EQU CVTS01+652 01951000 CVTCGK EQU CVTS01+648 01952000 CVTRV607 EQU CVTS01+644 01953000 CVTRV606 EQU CVTS01+640 01954000 CVTRV605 EQU CVTS01+636 01955000 CVTRV604 EQU CVTS01+632 01956000 CVTEFF02 EQU CVTS01+628 01957000 CVTCBBR EQU CVTS01+624 01958000 CVTSSCR EQU CVTS01+620 01959000 CVTEVENT EQU CVTS01+616 01960000 CVTCRCA EQU CVTS01+612 01961000 CVTTPIO EQU CVTS01+608 01962000 CVTADV EQU CVTS01+604 01963000 CVTGSDAB EQU CVTGSDA 01964000 CVTQV3 EQU CVTS01+596 01965000 CVTQV2 EQU CVTS01+592 01966000 CVTQV1 EQU CVTS01+588 01967000 CVTRPT EQU CVTS01+584 01968000 CVTSSRB EQU CVTS01+580 01969000 CVTCSDRL EQU CVTS01+576 01970000 CVTEXP1 EQU CVTS01+572 01971000 CVTRMPMT EQU CVTS01+568 01972000 CVTRMPTT EQU CVTS01+564 01973000 CVTVPSA EQU CVTS01+560 01974000 CVTVSTOP EQU CVTS01+556 01975000 CVTGTFR8 EQU CVTS01+552 01976000 CVTQUIT EQU CVTS01+548 01977000 CVTVACR EQU CVTS01+544 01978000 CVTWTCB EQU CVTS01+540 01979000 CVTSTPRS EQU CVTS01+536 01980000 CVT0PT02 EQU CVTS01+532 01981000 CVTDARCM EQU CVTS01+528 01982000 CVTIRECM EQU CVTS01+524 01983000 CVTJRECM EQU CVTS01+520 01984000 CVTVEMS0 EQU CVTS01+516 01985000 CVTSPFRR EQU CVTS01+512 01986000 CVTRLSTG EQU CVTS01+508 01987000 CVT0TC0A EQU CVTS01+504 01988000 CVTGMBR EQU CVTS01+500 01989000 CVTLFRM EQU CVTS01+496 01990000 CVTRMBR EQU CVTS01+492 01991000 CVTVIOP EQU CVTS01+488 01992000 CVTRV307 EQU CVTS01+486 01993000 CVTRV306 EQU CVTS01+484 01994000 CVTRV305 EQU CVTS01+482 01995000 CVTRV304 EQU CVTS01+480 01996000 CVTRV303 EQU CVTS01+478 01997000 CVTRV302 EQU CVTS01+476 01998000 CVTTRCA EQU CVTS01+472 01999000 CVTRV297 EQU CVTRV289 02000000 CVTRV296 EQU CVTRV289 02001000 CVTRV295 EQU CVTRV289 02002000 CVTRV294 EQU CVTRV289 02003000 CVTRV293 EQU CVTRV289 02004000 CVTRV292 EQU CVTRV289 02005000 CVTRV291 EQU CVTRV289 02006000 CVTRV290 EQU CVTRV289 02007000 CVTRV288 EQU CVTRV280 02008000 CVTRV287 EQU CVTRV280 02009000 CVTRV286 EQU CVTRV280 02010000 CVTRV285 EQU CVTRV280 02011000 CVTRV284 EQU CVTRV280 02012000 CVTRV283 EQU CVTRV280 02013000 CVTRV282 EQU CVTRV280 02014000 CVTRV281 EQU CVTRV280 02015000 CVTRV279 EQU CVTRV271 02016000 CVTRV278 EQU CVTRV271 02017000 CVTRV277 EQU CVTRV271 02018000 CVTRV276 EQU CVTRV271 02019000 CVTRV275 EQU CVTRV271 02020000 CVTRV274 EQU CVTRV271 02021000 CVTRV273 EQU CVTRV271 02022000 CVTRV272 EQU CVTRV271 02023000 CVTRV270 EQU CVTRV262 02024000 CVTRV269 EQU CVTRV262 02025000 CVTRV268 EQU CVTRV262 02026000 CVTRV267 EQU CVTRV262 02027000 CVTRV266 EQU CVTRV262 02028000 CVTRV265 EQU CVTRV262 02029000 CVTRV264 EQU CVTRV262 02030000 CVTRV263 EQU CVTRV262 02031000 CVTVFP EQU CVTS01+464 02032000 CVTVSI EQU CVTS01+460 02033000 CVTVPSIB EQU CVTS01+456 02034000 CVTMFACT EQU CVTMFRTR 02035000 CVTMFCTL EQU CVTS01+448 02036000 CVTPVBP EQU CVTS01+444 02037000 CVTPWI EQU CVTS01+440 02038000 CVTRV254 EQU CVTS01+438 02039000 CVTRV253 EQU CVTS01+436 02040000 CVTRV252 EQU CVTS01+434 02041000 CVTRV251 EQU CVTS01+433 02042000 CVTRV250 EQU CVTS01+432 02043000 CVTRV249 EQU CVTS01+431 02044000 CVTRV248 EQU CVTS01+430 02045000 CVTRV247 EQU CVTS01+429 02046000 CVTRV246 EQU CVTS01+428 02047000 CVTRV245 EQU CVTRV237 02048000 CVTRV244 EQU CVTRV237 02049000 CVTRV243 EQU CVTRV237 02050000 CVTRV242 EQU CVTRV237 02051000 CVTRV241 EQU CVTRV237 02052000 CVTRV240 EQU CVTRV237 02053000 CVTRV239 EQU CVTRV237 02054000 CVTRV238 EQU CVTRV237 02055000 CVTRV236 EQU CVTRV228 02056000 CVTRV235 EQU CVTRV228 02057000 CVTRV234 EQU CVTRV228 02058000 CVTRV233 EQU CVTRV228 02059000 CVTRV232 EQU CVTRV228 02060000 CVTRV231 EQU CVTRV228 02061000 CVTRV230 EQU CVTRV228 02062000 CVTRV229 EQU CVTRV228 02063000 CVTRV227 EQU CVTRV219 02064000 CVTRV226 EQU CVTRV219 02065000 CVTRV225 EQU CVTRV219 02066000 CVTRV224 EQU CVTRV219 02067000 CVTRV223 EQU CVTRV219 02068000 CVTRV222 EQU CVTRV219 02069000 CVTRV221 EQU CVTRV219 02070000 CVTRV220 EQU CVTRV219 02071000 CVTRV218 EQU CVTRV210 02072000 CVTRV217 EQU CVTRV210 02073000 CVTRV216 EQU CVTRV210 02074000 CVTRV215 EQU CVTRV210 02075000 CVTRV214 EQU CVTRV210 02076000 CVTRV213 EQU CVTRV210 02077000 CVTRV212 EQU CVTRV210 02078000 CVTRV211 EQU CVTRV210 02079000 CVTLCCAT EQU CVTS01+420 02080000 CVTPCCAT EQU CVTS01+416 02081000 CVTIPCRP EQU CVTS01+412 02082000 CVTIPCRI EQU CVTS01+408 02083000 CVTIPCDS EQU CVTS01+404 02084000 CVTAIDVT EQU CVTS01+400 02085000 CVTSSAP EQU CVTS01+396 02086000 CVTEHCIR EQU CVTS01+392 02087000 CVTEHDEF EQU CVTS01+388 02088000 CVTDAIR EQU CVTS01+384 02089000 CVTPERFM EQU CVTS01+380 02090000 CVT044R2 EQU CVTS01+376 02091000 CVTFETCH EQU CVTS01+372 02092000 CVTRSTWD EQU CVTS01+368 02093000 CVTSPOST EQU CVTS01+364 02094000 CVTIOBP EQU CVTS01+360 02095000 CVTASMVT EQU CVTS01+356 02096000 CVTRECRQ EQU CVTS01+352 02097000 CVTWSAC EQU CVTS01+348 02098000 CVTRV149 EQU CVTS01+344 02099000 CVTWSAL EQU CVTS01+340 02100000 CVTSPSA EQU CVTS01+336 02101000 CVTGLMN EQU CVTS01+332 02102000 CVTVEAC0 EQU CVTS01+328 02103000 CVT062R1 EQU CVTS01+324 02104000 CVTRPOST EQU CVTS01+320 02105000 CVTDQIQE EQU CVTS01+316 02106000 CVTCSD EQU CVTS01+312 02107000 CVTLKRMA EQU CVTS01+308 02108000 CVTRSPIE EQU CVTS01+304 02109000 CVTRENQ EQU CVTS01+300 02110000 CVTLQCB EQU CVTS01+296 02111000 CVTFQCB EQU CVTS01+292 02112000 CVTQCS01 EQU CVTS01+288 02113000 CVTAPFT EQU CVTS01+284 02114000 CVTPARRL EQU CVTS01+280 02115000 CVTVWAIT EQU CVTS01+276 02116000 CVTGSPL EQU CVTS01+272 02117000 CVTLSMQ EQU CVTS01+268 02118000 CVTGSMQ EQU CVTS01+264 02119000 CVTEXPRO EQU CVTS01+260 02120000 CVTOPCTP EQU CVTS01+256 02121000 CVTSIC EQU CVTS01+252 02122000 CVTTPIOS EQU CVTS01+248 02123000 CVTRTMS EQU CVTS01+244 02124000 CVTSDBF EQU CVTS01+240 02125000 CVTSCBP EQU CVTS01+236 02126000 CVTSDMP EQU CVTS01+232 02127000 CVTSV60 EQU CVTS01+228 02128000 CVTRTMCT EQU CVTS01+224 02129000 CVTASCBL EQU CVTS01+220 02130000 CVTASCBH EQU CVTS01+216 02131000 CVTGDA EQU CVTS01+212 02132000 CVTASVT EQU CVTS01+208 02133000 CVTVVMDI EQU CVTS01+204 02134000 CVTAQTOP EQU CVTS01+200 02135000 CVTIOSCS EQU CVTS01+196 02136000 CVTSDRM EQU CVTS01+192 02137000 CVTOPTE EQU CVTS01+188 02138000 CVTSTXU EQU CVTS01+184 02139000 CVTQUIS EQU CVTS01+180 02140000 CVTPARS EQU CVTS01+176 02141000 CVTS1EE EQU CVTS01+172 02142000 CVTFRAS EQU CVTS01+168 02143000 CVTQSAS EQU CVTS01+164 02144000 CVTCRAS EQU CVTS01+160 02145000 CVTCRMN EQU CVTS01+156 02146000 CVTDELCP EQU CVTS01+152 02147000 CVTFRECL EQU CVTS01+148 02148000 CVTGETCL EQU CVTS01+144 02149000 CVTBLDCP EQU CVTS01+140 02150000 CVTAUTHL EQU CVTS01+136 02151000 CVTSCAN EQU CVTS01+132 02152000 CVTRV144 EQU CVTS01+130 02153000 CVTMAXMP EQU CVTS01+128 02154000 CVTSTCK EQU CVTS01+124 02155000 CVTRV139 EQU CVTS01+123 02156000 CVTDSSAC EQU CVTS01+122 02157000 CVTRV513 EQU CVTS01+121 02158000 CVTIOSPL EQU CVTS01+120 02159000 CVTPTGT EQU CVTS01+116 02160000 CVTCSPIE EQU CVTS01+112 02161000 CVTSMFEX EQU CVTS01+108 02162000 CVTOLT0A EQU CVTS01+104 02163000 CVTSRBRT EQU CVTS01+100 02164000 CVTPUTL EQU CVTS01+96 02165000 CVTASCRL EQU CVTS01+92 02166000 CVTASCRF EQU CVTS01+88 02167000 CVTRV326 EQU CVTS01+84 02168000 CVTRV325 EQU CVTS01+80 02169000 CVTRV324 EQU CVTS01+76 02170000 CVT0VL01 EQU CVTS01+72 02171000 CVTSHRVM EQU CVTS01+68 02172000 CVTRV332 EQU CVTS01+64 02173000 CVTTAS EQU CVTS01+60 02174000 CVTRSCN EQU CVTS01+56 02175000 CVTTRAC2 EQU CVTS01+54 02176000 CVTTRACE EQU CVTS01+52 02177000 CVTAPG EQU CVTS01+51 02178000 CVTSDTRC EQU CVTCTLFG 02179000 CVTGTRCE EQU CVTCTLFG 02180000 CVTNOMP EQU CVTCTLFG 02181000 CVTRSV79 EQU CVTCTLFG 02182000 CVTDSTAT EQU CVTCTLFG 02183000 CVTRSV78 EQU CVTCTLFG 02184000 CVTRV333 EQU CVTCTLFG 02185000 CVTRV323 EQU CVTCTLFG 02186000 CVTSPVLK EQU CVTS01+49 02187000 CVTRSV77 EQU CVTS01+48 02188000 CVTRV331 EQU CVTS01+44 02189000 CVTRV330 EQU CVTS01+40 02190000 CVTRV329 EQU CVTS01+36 02191000 CVTRV328 EQU CVTS01+32 02192000 CVTRV322 EQU CVTS01+28 02193000 CVTSLID EQU CVTSLIDA+1 02194000 CVTSYLK EQU CVTSLIDA 02195000 CVTRV321 EQU CVTS01+20 02196000 CVTRV320 EQU CVTS01+16 02197000 CVTLPDIR EQU CVTLPDIA+1 02198000 CVTRSV69 EQU CVTDIRST 02199000 CVTRSV68 EQU CVTDIRST 02200000 CVTRSV67 EQU CVTDIRST 02201000 CVTRSV66 EQU CVTDIRST 02202000 CVTRSV65 EQU CVTDIRST 02203000 CVTRSV64 EQU CVTDIRST 02204000 CVTRSV63 EQU CVTDIRST 02205000 CVTDICOM EQU CVTDIRST 02206000 CVTPVTP EQU CVTS01+8 02207000 CVTLPDSR EQU CVTS01+4 02208000 CVTGETL EQU CVTS01 02209000 ISTPDAVP EQU ISTAVT+40 02210000 ISTAVR01 EQU ISTAVT+38 02211000 ISTVTTP EQU ISTAVT+36 02212000 ISTAGTWT EQU ISTAVT+34 02213000 ISTATRT EQU ISTAVT+32 02214000 ISTARID EQU ISTAVT+30 02215000 ISTX1 EQU ISTAVT+29 02216000 ISTPHNM EQU ISTAVT+24 02217000 ISTAPSEX EQU ISTAVT+20 02218000 ISTVTTIK EQU ISTAVT+18 02219000 AVTASID EQU ISTAVT+16 02220000 ISTAPSTA EQU ISTAVT+12 02221000 ISTAS53 EQU ISTAVT+8 02222000 ISTAHIP EQU ISTAS49 02223000 ISTACVT EQU ISTAVT 02224000 OTHRWDS EQU FRPRMLST+8 02225000 BFHDRPTR EQU DUMNAMES+4 02226000 AVTPTR EQU DUMNAMES 02227000 BFPRDSA EQU BFPREGSA+32 02228000 BFPRCSA EQU BFPREGSA+28 02229000 BFPRBSA EQU BFPREGSA+24 02230000 BFPRASA EQU BFPREGSA+20 02231000 BFPR9SA EQU BFPREGSA+16 02232000 BFPR8SA EQU BFPREGSA+12 02233000 BFPR7SA EQU BFPREGSA+8 02234000 BFPR6SA EQU BFPREGSA+4 02235000 BFPPMDSB EQU BFPR5SA 02236000 BFPPMCHN EQU BFPR5SA 02237000 BFPPMCLR EQU BFPR5SA 02238000 BFPUSED EQU ISTBFPFX+14 02239000 BFPBPCB EQU BFPPCBA+1 02240000 @NM00119 EQU BFPPCBA 02241000 BFPTIK EQU BFPPSTID+2 02242000 @NM00118 EQU BFPPSTID 02243000 BFPCBXNO EQU BFPTSKID 02244000 BFPALLOC EQU BFPTSKID 02245000 BPCBSRB EQU ISTBPCB+68 02246000 BPCBSRBA EQU BPCBRBLK+1 02247000 @NM00117 EQU BPCBRBLK 02248000 BPCBSRBG EQU BPCBRBLK 02249000 BPCBCCNT EQU BPCBCDS2 02250000 @NM00116 EQU BPCBFLG2 02251000 BPCBLOW2 EQU BPCBFLG2 02252000 BPCBLOW1 EQU BPCBFLG2 02253000 @NM00115 EQU BPCBFLG2 02254000 BPCBNUMR EQU ISTBPCB+54 02255000 BPCBNUM EQU ISTBPCB+52 02256000 BPCBRESP EQU ISTBPCB+48 02257000 BPCMINAV EQU BPCBMUSE+2 02258000 @NM00114 EQU BPCBMUSE 02259000 BPCBCQUE EQU BPCBQREQ+2 02260000 BPCBMQUE EQU BPCBQREQ 02261000 BPCBTOTL EQU ISTBPCB+34 02262000 BPCBNXCB EQU ISTBPCB+28 02263000 BPCBPDTY EQU ISTBPCB+24 02264000 BPCBADR2 EQU ISTBPCB+12 02265000 BPCBADR1 EQU ISTBPCB+8 02266000 BPCBSPNO EQU ISTBPCB+3 02267000 @NM00113 EQU ISTBPCB+2 02268000 @NM00112 EQU BPCBFLAG+1 02269000 BPCBUSRF EQU BPCBFLAG+1 02270000 @NM00111 EQU BPCBFLAG 02271000 BPCBNWS EQU BPCBFLAG 02272000 BPCBCBID EQU BPCBFLAG 02273000 BPCBAL48 EQU BPCBFLAG 02274000 BPCBNFCH EQU BPCBFLAG 02275000 BPCBFX EQU BPCBFLAG 02276000 BPCBDISP EQU BPCBFLAG 02277000 BPCBFM EQU BPCBFLAG 02278000 BPDCBID EQU ISTBPDTY+336 02279000 BPDENTRY EQU ISTBPDTY+144 02280000 @NM00110 EQU BPDTRACE+6 02281000 BPDAVNO EQU BPDTRACE+4 02282000 BPDMQUE EQU BPDTRACE+2 02283000 BPDMUSE EQU BPDTRACE 02284000 BPDTRADR EQU BPDPARM+4 02285000 BPDTRID EQU BPDPARM+3 02286000 @NM00109 EQU BPDPARM+2 02287000 BPDTRLEN EQU BPDPARM 02288000 BPDREQMX EQU BPDHDR+46 02289000 BPDREQCT EQU BPDHDR+44 02290000 BPDRSV01 EQU BPDFLAG 02291000 BPDGTR EQU BPDFLAG 02292000 BPDATCVT EQU BPDHDR+36 02293000 BPDFBPE EQU BPDHDR+32 02294000 BPDSMPCB EQU BPDHDR+28 02295000 BPDFEXT EQU BPDHDR+24 02296000 BPDADRS2 EQU BPDHDR+20 02297000 BPDADRS1 EQU BPDHDR+16 02298000 BPDPGPCB EQU BPDHDR+12 02299000 BPDCHPCB EQU BPDHDR+8 02300000 BPDCHBSZ EQU BPDHDR+6 02301000 BPDCHBNO EQU BPDHDR+4 02302000 BPDBPMAX EQU BPDHDR+2 02303000 BPDBPENT EQU BPDHDR 02304000 BPERSV03 EQU ISTBPENT+12 02305000 BPEBPCB EQU ISTBPENT+8 02306000 BPEBFSIZ EQU ISTBPENT+6 02307000 BPERSV02 EQU BPEFLAGS+1 02308000 BPEUSRF EQU BPEFLAGS+1 02309000 BPERSV01 EQU BPEFLAGS 02310000 BPENWS EQU BPEFLAGS 02311000 BPECBID EQU BPEFLAGS 02312000 BPEAL48 EQU BPEFLAGS 02313000 BPENFCHP EQU BPEFLAGS 02314000 BPEFIXED EQU BPEFLAGS 02315000 BPEDISP EQU BPEFLAGS 02316000 BPEFM EQU BPEFLAGS 02317000 BPEPID EQU ISTBPENT 02318000 CRACHAIN EQU ISTCRA+928 02319000 CRARSV02 EQU ISTCRA+924 02320000 CRARSV01 EQU ISTCRA+920 02321000 CRABFTBA EQU CRABUFA 02322000 CRAASCRR EQU CRASVC 02323000 CRAPROCR EQU ISTCRA+312 02324000 CRAPSS EQU ISTCRA+160 02325000 CRARPH EQU ISTCRA+52 02326000 CRALAPTR EQU CRABASIC+48 02327000 CRAL9PTR EQU CRABASIC+44 02328000 CRAL8PTR EQU CRABASIC+40 02329000 CRAL7PTR EQU CRABASIC+36 02330000 CRAL6PTR EQU CRABASIC+32 02331000 CRAL5PTR EQU CRABASIC+28 02332000 CRAL4PTR EQU CRABASIC+24 02333000 CRAL3PTR EQU CRABASIC+20 02334000 CRAL2PTR EQU CRABASIC+16 02335000 CRAL1PTR EQU CRABASIC+12 02336000 CRALEV01 EQU CRALKACT+3 02337000 CRALEV02 EQU CRALKACT+3 02338000 CRALEV03 EQU CRALKACT+3 02339000 CRALEV04 EQU CRALKACT+3 02340000 CRALEV05 EQU CRALKACT+3 02341000 CRALEV06 EQU CRALKACT+3 02342000 CRALEV07 EQU CRALKACT+3 02343000 CRALEV08 EQU CRALKACT+3 02344000 CRALEV09 EQU CRALKACT+2 02345000 CRALEV10 EQU CRALKACT+2 02346000 CRALEV11 EQU CRALKACT+2 02347000 CRALEV12 EQU CRALKACT+2 02348000 CRALEV13 EQU CRALKACT+2 02349000 CRALEV14 EQU CRALKACT+2 02350000 CRALEV15 EQU CRALKACT+2 02351000 CRALEV16 EQU CRALKACT+2 02352000 CRALEV17 EQU CRALKACT+1 02353000 CRALEV18 EQU CRALKACT+1 02354000 CRALEV19 EQU CRALKACT+1 02355000 CRALEV20 EQU CRALKACT+1 02356000 CRALEV21 EQU CRALKACT+1 02357000 CRALEV22 EQU CRALKACT+1 02358000 CRALEV23 EQU CRALKACT+1 02359000 CRALEV24 EQU CRALKACT+1 02360000 CRALEV25 EQU CRALKACT 02361000 CRALEV26 EQU CRALKACT 02362000 CRALEV27 EQU CRALKACT 02363000 CRALEV28 EQU CRALKACT 02364000 CRALEV29 EQU CRALKACT 02365000 CRALEV30 EQU CRALKACT 02366000 CRALEV31 EQU CRALKACT 02367000 CRALEV32 EQU CRALKACT 02368000 CRAFRR EQU CRAHDR+4 02369000 CRACRR EQU CRAHDR 02370000 @NM00108 EQU ISTAPCRR+137 02371000 @NM00107 EQU APC57FLG 02372000 APCNREL EQU APC57FLG 02373000 APCRECRA EQU APC57FLG 02374000 @NM00106 EQU APC54FLG 02375000 APCRLST EQU APC54FLG 02376000 APCPR153 EQU APC53FLG 02377000 @NM00105 EQU APC52FLG 02378000 APCWKF EQU APC52FLG 02379000 APCNWF EQU APC52FLG 02380000 APCRDQ EQU APC52FLG 02381000 APCQENQ EQU APC52FLG 02382000 APCSMSR EQU APC52FLG 02383000 APCCKRQ EQU APC52FLG 02384000 @NM00104 EQU APC31FLG 02385000 APCSORT EQU APC31FLG 02386000 APCRESCH EQU APC31FLG 02387000 APCTPXIT EQU APC31FLG 02388000 APCSWTWD EQU ISTAPCRR+128 02389000 APCSAV2 EQU ISTAPCRR+124 02390000 APCSAV1 EQU ISTAPCRR+120 02391000 APCRETCD EQU APCCOMF+2 02392000 @NM00103 EQU APCCOMF1+1 02393000 APCZLBER EQU APCCOMF1 02394000 APCEXIT EQU APCCOMF1 02395000 APCRELR EQU APCCOMF1 02396000 APCIRB2 EQU APCCOMF1 02397000 APCIRB1 EQU APCCOMF1 02398000 APCSMCR EQU APCCOMF1 02399000 APCUETSK EQU APCCOMF1 02400000 APCSSTSK EQU APCCOMF1 02401000 APCESTAL EQU APCSAVE 02402000 APCFRRPM EQU ISTAPCRR+40 02403000 APCQWFO EQU ISTAPCRR+36 02404000 APCPABSV EQU ISTAPCRR+32 02405000 APCRTRN EQU ISTAPCRR+28 02406000 APCTCBA EQU ISTAPCRR+24 02407000 APCPSTA EQU ISTAPCRR+20 02408000 @NM00102 EQU APCRFLG+1 02409000 APC31R EQU APCRFLG 02410000 APC58R EQU APCRFLG 02411000 APC57R EQU APCRFLG 02412000 APC56R EQU APCRFLG 02413000 APC54R EQU APCRFLG 02414000 APC53R EQU APCRFLG 02415000 APC52R EQU APCRFLG 02416000 APC51R EQU APCRFLG 02417000 @NM00101 EQU APCATFLG+1 02418000 APC31E EQU APCATFLG 02419000 APC58E EQU APCATFLG 02420000 APC57E EQU APCATFLG 02421000 APC56E EQU APCATFLG 02422000 APC54E EQU APCATFLG 02423000 APC53E EQU APCATFLG 02424000 APC52E EQU APCATFLG 02425000 APC51E EQU APCATFLG 02426000 APCHDRSV EQU ISTAPCRR 02427000 ASCPSREG EQU ISTASCRR+44 02428000 ASCUSR01 EQU ASCUSRGS+12 02429000 ASCUSR00 EQU ASCUSRGS+8 02430000 ASCUSR15 EQU ASCUSRGS+4 02431000 ASCUSR14 EQU ASCUSRGS 02432000 ASCETRYA EQU ISTASCRR+24 02433000 ASCKEY EQU ISTASCRR+23 02434000 ASCAUDIT EQU ASCFLG3 02435000 ASCFBDUD EQU ASCFLG3 02436000 ASCLLKF EQU ASCFLG3 02437000 ASCKEYF EQU ASCFLG3 02438000 ASCFBDAL EQU ASCFLG3 02439000 ASCFSRGT EQU ASCFLG3 02440000 ASCICR EQU ASCFLG2 02441000 ASCFSRIC EQU ASCFLG2 02442000 ASCFBDIC EQU ASCFLG2 02443000 ASCFBAIC EQU ASCFLG2 02444000 ASCPASTR EQU ASCFLG1 02445000 ASCFSR EQU ASCFLG1 02446000 ASCFBD EQU ASCFLG1 02447000 ASCFBA EQU ASCFLG1 02448000 ASCPFCRR EQU ISTASCRR 02449000 ZCRRU EQU ZCRRHRU+3 02450000 ZCRRH EQU ZCRRHRU 02451000 ZCRWORDA EQU ISTZCRR+477 02452000 ZCRCMNRC EQU ISTZCRR+476 02453000 ZCRRSV97 EQU ZCRENTER+18 02454000 ZCREIC2B EQU ZCRENTER+18 02455000 ZCREAC2B EQU ZCRENTER+18 02456000 ZCRELCAB EQU ZCRENTER+18 02457000 ZCREDCMF EQU ZCRENTER+18 02458000 ZCREBCIF EQU ZCRENTER+18 02459000 ZCREICSG EQU ZCRENTER+18 02460000 ZCREDCK0 EQU ZCRENTER+18 02461000 ZCRECFY0 EQU ZCRENTER+17 02462000 ZCREKCCB EQU ZCRENTER+17 02463000 ZCREDCNB EQU ZCRENTER+17 02464000 ZCREICOE EQU ZCRENTER+17 02465000 ZCREBCNB EQU ZCRENTER+17 02466000 ZCREBC0L EQU ZCRENTER+17 02467000 ZCREBCAL EQU ZCRENTER+17 02468000 ZCREDCQR EQU ZCRENTER+17 02469000 ZCREDCPR EQU ZCRENTER+16 02470000 ZCREBCSB EQU ZCRENTER+16 02471000 ZCREAC1R EQU ZCRENTER+16 02472000 ZCRECCCI EQU ZCRENTER+16 02473000 ZCRECCAI EQU ZCRENTER+16 02474000 ZCRECCBI EQU ZCRENTER+16 02475000 ZCREBCAR EQU ZCRENTER+16 02476000 ZCREBCDR EQU ZCRENTER+16 02477000 ZCREBCBR EQU ZCRENTER+15 02478000 ZCREDCXR EQU ZCRENTER+15 02479000 ZCREDCWB EQU ZCRENTER+15 02480000 ZCREDCWR EQU ZCRENTER+15 02481000 ZCREKCCN EQU ZCRENTER+15 02482000 ZCREKCBN EQU ZCRENTER+15 02483000 ZCREKCBB EQU ZCRENTER+15 02484000 ZCREJC0B EQU ZCRENTER+15 02485000 ZCREJCDB EQU ZCRENTER+14 02486000 ZCREJCCB EQU ZCRENTER+14 02487000 ZCREJCBB EQU ZCRENTER+14 02488000 ZCREJCAB EQU ZCRENTER+14 02489000 ZCREIC1B EQU ZCRENTER+14 02490000 ZCREIC0B EQU ZCRENTER+14 02491000 ZCREICX0 EQU ZCRENTER+14 02492000 ZCREICWB EQU ZCRENTER+14 02493000 ZCREICVB EQU ZCRENTER+13 02494000 ZCREICUB EQU ZCRENTER+13 02495000 ZCREICTB EQU ZCRENTER+13 02496000 ZCREICSC EQU ZCRENTER+13 02497000 ZCREICSB EQU ZCRENTER+13 02498000 ZCREICRB EQU ZCRENTER+13 02499000 ZCREICQB EQU ZCRENTER+13 02500000 ZCREICQA EQU ZCRENTER+13 02501000 ZCREICOB EQU ZCRENTER+12 02502000 ZCREICOA EQU ZCRENTER+12 02503000 ZCREICNB EQU ZCRENTER+12 02504000 ZCREICNA EQU ZCRENTER+12 02505000 ZCREICMB EQU ZCRENTER+12 02506000 ZCREICLB EQU ZCRENTER+12 02507000 ZCREICKG EQU ZCRENTER+12 02508000 ZCREICKE EQU ZCRENTER+12 02509000 ZCREICKB EQU ZCRENTER+11 02510000 ZCREICJB EQU ZCRENTER+11 02511000 ZCREICID EQU ZCRENTER+11 02512000 ZCREICIB EQU ZCRENTER+11 02513000 ZCREICHB EQU ZCRENTER+11 02514000 ZCREICGB EQU ZCRENTER+11 02515000 ZCREICEB EQU ZCRENTER+11 02516000 ZCREICDB EQU ZCRENTER+11 02517000 ZCREICCI EQU ZCRENTER+10 02518000 ZCREICCB EQU ZCRENTER+10 02519000 ZCREICBI EQU ZCRENTER+10 02520000 ZCREICBB EQU ZCRENTER+10 02521000 ZCREICAB EQU ZCRENTER+10 02522000 ZCREICAA EQU ZCRENTER+10 02523000 ZCREHCAN EQU ZCRENTER+10 02524000 ZCREGC0B EQU ZCRENTER+10 02525000 ZCREGC0A EQU ZCRENTER+9 02526000 ZCREGCLA EQU ZCRENTER+9 02527000 ZCREGCEB EQU ZCRENTER+9 02528000 ZCREGCDB EQU ZCRENTER+9 02529000 @NM00100 EQU ZCRENTER+9 02530000 ZCREGCBB EQU ZCRENTER+9 02531000 ZCREGCAB EQU ZCRENTER+9 02532000 ZCREFCEB EQU ZCRENTER+9 02533000 ZCREFCEA EQU ZCRENTER+8 02534000 ZCREECTA EQU ZCRENTER+8 02535000 ZCREECEA EQU ZCRENTER+8 02536000 ZCREECDA EQU ZCRENTER+8 02537000 ZCREECCB EQU ZCRENTER+8 02538000 ZCREECCA EQU ZCRENTER+8 02539000 ZCREECBB EQU ZCRENTER+8 02540000 ZCREECBA EQU ZCRENTER+8 02541000 ZCREDCMB EQU ZCRENTER+7 02542000 ZCREDCL0 EQU ZCRENTER+7 02543000 ZCREDCKB EQU ZCRENTER+7 02544000 ZCREDCKA EQU ZCRENTER+7 02545000 ZCREDCJ0 EQU ZCRENTER+7 02546000 ZCREDCI0 EQU ZCRENTER+7 02547000 ZCREDCH0 EQU ZCRENTER+7 02548000 ZCREDCF0 EQU ZCRENTER+7 02549000 ZCREDCE0 EQU ZCRENTER+6 02550000 ZCREDCD0 EQU ZCRENTER+6 02551000 ZCREDCC0 EQU ZCRENTER+6 02552000 ZCREDCB0 EQU ZCRENTER+6 02553000 ZCREDCA0 EQU ZCRENTER+6 02554000 ZCRECC2B EQU ZCRENTER+6 02555000 ZCRECC1B EQU ZCRENTER+6 02556000 ZCRECC1A EQU ZCRENTER+6 02557000 ZCRECC0B EQU ZCRENTER+5 02558000 ZCRECC0A EQU ZCRENTER+5 02559000 ZCREBC0B EQU ZCRENTER+5 02560000 ZCREBC0A EQU ZCRENTER+5 02561000 ZCREBCZ0 EQU ZCRENTER+5 02562000 ZCREBCY0 EQU ZCRENTER+5 02563000 ZCREBCX0 EQU ZCRENTER+5 02564000 ZCREBCXA EQU ZCRENTER+5 02565000 ZCREBCSC EQU ZCRENTER+4 02566000 ZCREBCRB EQU ZCRENTER+4 02567000 ZCREBCRA EQU ZCRENTER+4 02568000 ZCREBCQB EQU ZCRENTER+4 02569000 ZCREBCPB EQU ZCRENTER+4 02570000 ZCREBCOB EQU ZCRENTER+4 02571000 ZCREBCNE EQU ZCRENTER+4 02572000 ZCREBCND EQU ZCRENTER+4 02573000 ZCREBCMB EQU ZCRENTER+3 02574000 ZCREBCLB EQU ZCRENTER+3 02575000 ZCREBCLA EQU ZCRENTER+3 02576000 ZCREBCKB EQU ZCRENTER+3 02577000 ZCREBCKA EQU ZCRENTER+3 02578000 ZCREBCJB EQU ZCRENTER+3 02579000 ZCREBCJA EQU ZCRENTER+3 02580000 ZCREBCID EQU ZCRENTER+3 02581000 ZCREBCIB EQU ZCRENTER+2 02582000 ZCREBCIA EQU ZCRENTER+2 02583000 ZCREBCHB EQU ZCRENTER+2 02584000 ZCREBCHA EQU ZCRENTER+2 02585000 ZCREBCGB EQU ZCRENTER+2 02586000 ZCREBCGA EQU ZCRENTER+2 02587000 ZCREBCFB EQU ZCRENTER+2 02588000 ZCREBCFA EQU ZCRENTER+2 02589000 ZCREBCEB EQU ZCRENTER+1 02590000 ZCREBCDI EQU ZCRENTER+1 02591000 ZCREBCCB EQU ZCRENTER+1 02592000 ZCREBCBI EQU ZCRENTER+1 02593000 ZCREBCBB EQU ZCRENTER+1 02594000 ZCREBCBA EQU ZCRENTER+1 02595000 ZCREBCAM EQU ZCRENTER+1 02596000 ZCREBCAI EQU ZCRENTER+1 02597000 ZCREBCAG EQU ZCRENTER 02598000 ZCREBCAE EQU ZCRENTER 02599000 ZCREBCAB EQU ZCRENTER 02600000 ZCREBCAA EQU ZCRENTER 02601000 ZCREAC1B EQU ZCRENTER 02602000 ZCREAC0B EQU ZCRENTER 02603000 ZCREAC0A EQU ZCRENTER 02604000 ZCREAC1A EQU ZCRENTER 02605000 ZCRTNAME EQU ZCRAUDIT+1 02606000 ZCRTID EQU ZCRAUDIT 02607000 ZCRREMIC EQU ISTZCRR+436 02608000 ZCRSAVEZ EQU ISTZCRR+196 02609000 ZCRDAFSV EQU ZCRCIDSV+2 02610000 ZCRSAFSV EQU ZCRCIDSV 02611000 ZCRR13SV EQU ISTZCRR+188 02612000 ZCRR2SV EQU ISTZCRR+184 02613000 ZCROPCDE EQU ISTZCRR+183 02614000 ZCRPRMTC EQU ISTZCRR+182 02615000 ZCRRCDSV EQU ISTZCRR+181 02616000 ZCRAWQSW EQU ISTZCRR+180 02617000 ZCRTOPQ EQU ISTZCRR+180 02618000 ZCRLSTFB EQU ISTZCRR+180 02619000 ZCRXSCHD EQU ISTZCRR+180 02620000 ZCRNXTEL EQU ISTZCRR+180 02621000 ZCRSCANQ EQU ISTZCRR+180 02622000 ZCRMOREL EQU ISTZCRR+180 02623000 ZCRFBPRC EQU ISTZCRR+180 02624000 ZCRFSBSV EQU ISTZCRR+176 02625000 ZCRSVWK5 EQU ZCRWKARA+16 02626000 ZCRSVWK4 EQU ZCRWKARA+12 02627000 ZCRSVWK3 EQU ZCRWKARA+8 02628000 ZCRSVWK2 EQU ZCRWKARA+4 02629000 ZCRSVWK1 EQU ZCRWKARA 02630000 ZCRSVF25 EQU ZCRSVRTN+96 02631000 ZCRSVF24 EQU ZCRSVRTN+92 02632000 ZCRSVF23 EQU ZCRSVRTN+88 02633000 ZCRSVF22 EQU ZCRSVRTN+84 02634000 ZCRSVF21 EQU ZCRSVRTN+80 02635000 ZCRSVF20 EQU ZCRSVRTN+76 02636000 ZCRSVF19 EQU ZCRSVRTN+72 02637000 ZCRSVF18 EQU ZCRSVRTN+68 02638000 ZCRSVF17 EQU ZCRSVRTN+64 02639000 ZCRSVF16 EQU ZCRSVRTN+60 02640000 ZCRSVF15 EQU ZCRSVRTN+56 02641000 ZCRSVF14 EQU ZCRSVRTN+52 02642000 ZCRSVF13 EQU ZCRSVRTN+48 02643000 ZCRSVF12 EQU ZCRSVRTN+44 02644000 ZCRSVF11 EQU ZCRSVRTN+40 02645000 ZCRSVF10 EQU ZCRSVRTN+36 02646000 ZCRSVF9 EQU ZCRSVRTN+32 02647000 ZCRSVF8 EQU ZCRSVRTN+28 02648000 ZCRSVF7 EQU ZCRSVRTN+24 02649000 ZCRSVF6 EQU ZCRSVRTN+20 02650000 ZCRSVF5 EQU ZCRSVRTN+16 02651000 ZCRSVF4 EQU ZCRSVRTN+12 02652000 ZCRSVF3 EQU ZCRSVRTN+8 02653000 ZCRSVF2 EQU ZCRSVRTN+4 02654000 ZCRSVF1 EQU ZCRSVRTN 02655000 ZCRPVZB EQU ISTZCRR+52 02656000 ZCRZLB EQU ISTZCRR+48 02657000 ZCRBFPTR EQU ISTZCRR+44 02658000 ZCRCCWA EQU ISTZCRR+40 02659000 ZCRPSW EQU ZCRPARMS+15 02660000 ZCRPCHAR EQU ZCRPARMS+14 02661000 ZCRPRES2 EQU ZCRPCOD2 02662000 ZCRPMFGF EQU ZCRPCOD2 02663000 ZCRPFHDR EQU ZCRPCOD2 02664000 ZCRPPG2 EQU ZCRPCOD2 02665000 ZCRPRES EQU ZCRPCOD1 02666000 ZCRPCFTX EQU ZCRPCOD1 02667000 ZCRPBUF EQU ZCRPCOD1 02668000 ZCRPLSCB EQU ZCRPCOD1 02669000 ZCRPLSBQ EQU ZCRPLSBF 02670000 ZCRPFSB EQU ZCRPCOD1 02671000 ZCRPLNG EQU ZCRPCOD1 02672000 ZCRPPG EQU ZCRPCOD1 02673000 ZCRDTODA EQU ZCRDFRDA 02674000 ZCRMLNG EQU ZCRPARMS+8 02675000 ZCRTBPTR EQU ZCRPARMS+4 02676000 ZCRCBPTR EQU ZCRFBPTR 02677000 ZCRCRLCP EQU ISTZCRR+20 02678000 ZCRMDATA EQU ZCRSCPSW 02679000 ZCRSKIPT EQU ZCRSCPSW 02680000 ZCRFSBWE EQU ZCRSCPSW 02681000 ZCRPRCMP EQU ZCRSCPSW 02682000 ZCRLREQ EQU ZCRSCPSW 02683000 ZCRRJLCP EQU ZCRSCPSW 02684000 ZCRTPINV EQU ZCRSCPSW 02685000 ZCRTPEX EQU ZCRSCPSW 02686000 @NM00099 EQU ZCRIBPR 02687000 ZCR3270R EQU ZCRIBPR 02688000 ZCR3270 EQU ZCRIBPR 02689000 ZCRLCPFD EQU ZCRIBPR 02690000 ZCRLCPFR EQU ZCRIBPR 02691000 ZCRRELK EQU ZCRIBPR 02692000 ZCRERR EQU ZCRIBPR 02693000 ZCRNOBUF EQU ZCRIBPR 02694000 @NM00098 EQU ZCRPFLGS 02695000 ZCRQAHED EQU ZCRPFLGS 02696000 ZCRF1RES EQU ZCRGENSW 02697000 ZCRBRIS EQU ZCRGENSW 02698000 ZCRCLRBD EQU ZCRGENSW 02699000 ZCREXRES EQU ZCRGENSW 02700000 ZCRLCSYN EQU ZCRGENSW 02701000 ZCRRT06 EQU ZCRGENSW 02702000 ZCRTSW2 EQU ZCRGENSW 02703000 ZCRTSW1 EQU ZCRGENSW 02704000 ZCRINLCP EQU ZCRFLGS3 02705000 ZCRWRPTR EQU ZCRFLGS3 02706000 ZCRNOFRE EQU ZCRFLGS3 02707000 ZCREDRIV EQU ZCRFLGS3 02708000 ZCRDISC EQU ZCRFLGS3 02709000 ZCRTPDIS EQU ZCRFLGS3 02710000 ZCRTPCON EQU ZCRFLGS3 02711000 ZCRTIC EQU ZCRFLGS3 02712000 ZCRCNLXL EQU ZCRRESET 02713000 ZCRENDAN EQU ZCRSWFLD 02714000 ZCRENDXL EQU ZCRSWFLD 02715000 ZCRENDX EQU ZCRSWFLD 02716000 ZCROB1 EQU ZCRNDLCP 02717000 ZCRENDPR EQU ZCRSWFLD 02718000 ZCREXTYP EQU ZCRSWFLD 02719000 ZCRSLCP EQU ZCRENDSH 02720000 ZCRIF0E3 EQU ZCRFLGS2 02721000 ZCRIF0E2 EQU ZCRFLGS2 02722000 ZCRIF0E1 EQU ZCRFLGS2 02723000 ZCROB EQU ZCRFLGS2 02724000 ZCRFMSED EQU ZCRFLGS2 02725000 ZCRSHEDI EQU ZCRFLGS2 02726000 ZCRLOCAL EQU ZCRFLGS2 02727000 ZCRFEXIT EQU ZCRFLGS1 02728000 ZCRUNSOL EQU ZCRFLGS1 02729000 ZCRENDLP EQU ZCRFLGS1 02730000 ZCRNRMEX EQU ZCRFLGS1 02731000 ZCRWAIT EQU ZCRFLGS1 02732000 ZCRDEQSW EQU ZCRFLGS1 02733000 ZCRQUESW EQU ZCRFLGS1 02734000 ZCREXSW EQU ZCRFLGS1 02735000 ZCRFRRA EQU ISTZCRR+8 02736000 ZCRCHAIN EQU ISTZCRR+4 02737000 ZCRFLAG EQU ZCRCRR+3 02738000 ZCRLEN EQU ZCRCRR+1 02739000 ZCRID EQU ZCRCRR 02740000 CCFRSVD1 EQU CFCCRT 02741000 CCFCR2 EQU CFCCRT 02742000 CCFCRP EQU CFCCRT 02743000 CCFCR1 EQU CFCCRT 02744000 CCFCS2 EQU CFCCRT 02745000 CCFCS1 EQU CFCCRT 02746000 NCFRSVD EQU CFCNTRD 02747000 NCFCR2 EQU CFCNTRD 02748000 NCFCRP EQU CFCNTRD 02749000 NCFCR1 EQU CFCNTRD 02750000 NCFCS2 EQU CFCNTRD 02751000 NCFCS1 EQU CFCNTRD 02752000 PFCRSV01 EQU ISTPFCRR+13 02753000 PFCFTA EQU ISTPFCRR+12 02754000 CRRFRR EQU PFCFRRO 02755000 CRRCHAIN EQU PFCCRRO 02756000 CRRLEN EQU PFCCRRLN 02757000 PFCRSV10 EQU PFCCRR+1 02758000 CRRID EQU PFCCRRID 02759000 ZSAZTRAC EQU ISTZSAVE+36 02760000 ZSAZSVVR EQU ISTZSAVE+12 02761000 ZSAZSVRR EQU ISTZSAVE+8 02762000 ZSAZSVFC EQU ISTZSAVE+4 02763000 ZSAZACTV EQU ZSAZSVMS 02764000 LCPFTYPE EQU LCPRPHA 02765000 LCPRSTQH EQU LCPLCCW 02766000 LCPCLREP EQU ISTLCPB+44 02767000 LCPUBFSB EQU LCPFLCCW 02768000 LCPRSV77 EQU ISTLCPB+39 02769000 LCPLCCWC EQU ISTLCPB+38 02770000 LCPRSV78 EQU LCPFLG1 02771000 LCPTRANS EQU LCPFLG1 02772000 LCPSTLB EQU LCPFLG1 02773000 LCPREDRV EQU LCPFLG1 02774000 LCPDIRPT EQU LCPFLG1 02775000 LCPINTER EQU LCPFLG1 02776000 LCPRESET EQU LCPFLG1 02777000 LCPSTYPE EQU ISTLCPB+36 02778000 LCPFSNCH EQU ISTLCPB+34 02779000 LCPFOSN EQU ISTLCPB+32 02780000 LCPTLBAD EQU ISTLCPB+28 02781000 LCPFDB2 EQU LCPFDBA+1 02782000 LCPFDB1 EQU LCPFDBA 02783000 LCPNXLCW EQU ISTLCPB+20 02784000 LCPDAF EQU LCPCID+2 02785000 LCPSAF EQU LCPCID 02786000 LCPLCCW1 EQU ISTLCPB+12 02787000 LCPRRCNT EQU LCPSEQ+1 02788000 LCPRRCCT EQU LCPSEQ 02789000 LCPATOP EQU LCPFLAG2 02790000 LCPFREE EQU LCPFLAG2 02791000 LCPDSTAT EQU LCPFLAG2 02792000 LCPEXRES EQU LCPFID0 02793000 LCPZRIMM EQU LCPTLBPI 02794000 LCPRSTRT EQU LCPFLAG2 02795000 LCPASYN EQU LCPFLAG2 02796000 LCPPRFLG EQU LCPFLAG2 02797000 LCPZMIRC EQU LCPRUCNT 02798000 LCPCHAI2 EQU LCPCHAIN+1 02799000 LCPCHNG EQU LCPCHAI1 02800000 LCPZRT0B EQU LCPMNRCD 02801000 LCPZRT0A EQU LCPMNRCD 02802000 LCPZRTL9 EQU LCPZRT09 02803000 LCPZRTL8 EQU LCPZRT08 02804000 LCPZRTL7 EQU LCPZRT07 02805000 LCPZRTL6 EQU LCPZRT06 02806000 LCPZRTL5 EQU LCPZRT05 02807000 LCPZRTL4 EQU LCPZRT04 02808000 LCPZRTL3 EQU LCPZRT03 02809000 LCPZRTL2 EQU LCPZRT02 02810000 LCPZRT01 EQU LCPFLAGS 02811000 LCPZRT00 EQU LCPFLAGS 02812000 LCPLNGTH EQU ISTLCPB+1 02813000 LCPTYPE EQU ISTLCPB 02814000 LCCWDATA EQU ISTLCCW+4 02815000 LCCWCNT EQU ISTLCCW+2 02816000 LCCWACI EQU LCCWFLAG 02817000 LCCWRFI EQU LCCWFLAG 02818000 LCCWPER EQU LCCWLSI 02819000 LCCWIDAT EQU LCCWFLAG 02820000 LCCWNTVC EQU LCCWFLAG 02821000 LCCWCKPT EQU LCCWFLAG 02822000 LCCWCC EQU LCCWFLAG 02823000 LCCWCD EQU LCCWFLAG 02824000 LCCWTYPE EQU LCCWCTL 02825000 LCCWMODE EQU LCCWCTL 02826000 LCCWSOP EQU LCCWRWOP 02827000 @NM00097 EQU LCCWRWOP 02828000 LCCWSD EQU LCCWOP 02829000 LCCWSI EQU LCCWOP 02830000 ATCAOS EQU ISTATCVT+1584 02831000 ATCPOPAB EQU ATCAOSM+640 02832000 ATCVIOPM EQU ATCAOSM+636 02833000 ATCTPMMI EQU ATCAOSM+632 02834000 ATCTPMPB EQU ATCAOSM+600 02835000 ATCRSV88 EQU ATCAOSM+596 02836000 ATCRPLCT EQU ATCAOSM+594 02837000 ATCCRACT EQU ATCAOSM+592 02838000 ATCSRBCT EQU ATCAOSM+590 02839000 ATCRSV75 EQU ATCAOSM+589 02840000 ATCRSV66 EQU ATCZFLAG 02841000 ATCZF001 EQU ATCZFLAG 02842000 ATCTPCP1 EQU ATCAOSM+584 02843000 ATCTPCP0 EQU ATCAOSM+580 02844000 ATCAICTN EQU ATCAOSM+576 02845000 ATCZR01 EQU ATCAOSM+572 02846000 ATCMPLTA EQU ATCAOSM+568 02847000 ATCASCB EQU ATCAOSM+564 02848000 ATCAP86 EQU ATCAOSM+560 02849000 ATCAP85 EQU ATCAOSM+556 02850000 ATCAP84 EQU ATCAOSM+552 02851000 ATCAP83 EQU ATCAOSM+548 02852000 ATCAP82 EQU ATCAOSM+544 02853000 ATCAP66 EQU ATCAOSM+536 02854000 ATCAP62 EQU ATCAOSM+532 02855000 ATCAPC59 EQU ATCAOSM+528 02856000 ATCAP56 EQU ATCAOSM+524 02857000 ATCAP55 EQU ATCAOSM+520 02858000 ATCRCFY0 EQU ATCAOSM+516 02859000 ATCAP41 EQU ATCAOSM+512 02860000 ATCAPC25 EQU ATCAOSM+508 02861000 ATCAP23 EQU ATCAOSM+504 02862000 ATCTPSPB EQU ATCAOSM+472 02863000 ATCTRMPB EQU ATCAOSM+440 02864000 ATCAPBE EQU ATCAOSM+436 02865000 ATCPSTA EQU ATCAOSM+432 02866000 ATCSMABF EQU ATCAOSM+428 02867000 ATCSMAPR EQU ATCAOSM+424 02868000 ATCTPWQA EQU ATCAOSM+420 02869000 ATCSMAID EQU ATCAOSM+416 02870000 ATCSMARA EQU ATCAOSM+412 02871000 ATCCACXA EQU ATCAOSM+408 02872000 ATCZLAAB EQU ATCAOSM+404 02873000 ATCATA10 EQU ATCAOSM+400 02874000 ATCHLTCB EQU ATCAOSM+396 02875000 @NM00096 EQU ATCVTFLG 02876000 ATCVTACT EQU ATCVTFLG 02877000 ATCRPT40 EQU ATCAOSM+388 02878000 ATCRPT39 EQU ATCAOSM+384 02879000 ATCRPT38 EQU ATCAOSM+380 02880000 ATCRPT37 EQU ATCAOSM+376 02881000 ATCRPT36 EQU ATCAOSM+372 02882000 ATCRPT35 EQU ATCAOSM+368 02883000 ATCRPT34 EQU ATCAOSM+364 02884000 ATCRPT33 EQU ATCAOSM+360 02885000 ATCRPT32 EQU ATCAOSM+356 02886000 ATCRPT31 EQU ATCAOSM+352 02887000 ATCRPT30 EQU ATCAOSM+348 02888000 ATCRPT29 EQU ATCAOSM+344 02889000 ATCRPT28 EQU ATCAOSM+340 02890000 ATCRPT27 EQU ATCAOSM+336 02891000 @NM00095 EQU ATCAOSM+333 02892000 @NM00094 EQU @NM00093 02893000 ATCSNUF EQU @NM00093 02894000 ATCOPKL EQU @NM00093 02895000 ATCABEN EQU @NM00093 02896000 ATCAIWT EQU ATCAOSM+328 02897000 ATCINFDD EQU ATCAOSM+324 02898000 ATCORFMG EQU ATCAOSM+320 02899000 ATCORFRL EQU ATCAOSM+316 02900000 ATCOROBT EQU ATCAOSM+312 02901000 ATCORQG EQU ATCORSRB 02902000 ATCORTBF EQU ATCSQAFR 02903000 ATCRPLAC EQU ATCRPLCN+2 02904000 ATCRPLRC EQU ATCRPLCN 02905000 ATCCRPLQ EQU ATCCRPL 02906000 ATCSRBAC EQU ATCSRBCN+2 02907000 ATCSRBRC EQU ATCSRBCN 02908000 ATCSRBQ EQU ATCSRB 02909000 ATCCRAAC EQU ATCCRACN+2 02910000 ATCCRARC EQU ATCCRACN 02911000 ATCCRAQ EQU ATCCRA 02912000 ATCRPT12 EQU ATCAOSM+276 02913000 ATCDMAPP EQU ATCAOSM+272 02914000 ATCAP38 EQU ATCAOSM+268 02915000 ATCAP37 EQU ATCAOSM+264 02916000 ATCZDFJ0 EQU ATCAOSM+260 02917000 ATCAP51 EQU ATCAOSM+256 02918000 ATCZPAB2 EQU ATCAOSM+224 02919000 ATCZPAB1 EQU ATCAOSM+192 02920000 ATCZLFVT EQU ATCAOSM+188 02921000 ATCZLPVT EQU ATCAOSM+184 02922000 ATCZDVTX EQU ATCAOSM+180 02923000 ATCZDVTA EQU ATCAOSM+176 02924000 ATCZDVT9 EQU ATCAOSM+172 02925000 ATCZDVT8 EQU ATCAOSM+168 02926000 ATCZDVT7 EQU ATCAOSM+164 02927000 ATCRSV56 EQU ATCDAPVT+22 02928000 ATCDAPDG EQU ATCDAPVT+20 02929000 ATCDXCEA EQU ATCDAPVT+16 02930000 ATCDCEA EQU ATCDAPVT+12 02931000 ATCDPCIA EQU ATCDAPVT+8 02932000 ATCDSIOA EQU ATCDAPVT+4 02933000 ATCDEOEA EQU ATCDAPVT 02934000 ATCZLAEA EQU ATCLDAPP+16 02935000 ATCZLCEA EQU ATCLDAPP+12 02936000 ATCRSV17 EQU ATCLDAPP+8 02937000 ATCSMFRR EQU ATCLDAPP+4 02938000 ATCCDTID EQU ATCLDAPP 02939000 ATCZAEA EQU ATCICAPP+16 02940000 ATCZCEA EQU ATCICAPP+12 02941000 ATCCDTCB EQU ATCICAPP+8 02942000 ATCZSIOA EQU ATCICAPP+4 02943000 ATCCDRPH EQU ATCICAPP 02944000 ATCAP65 EQU ATCAOSM+96 02945000 ATCZDVT6 EQU ATCAOSM+92 02946000 ATCZDVT4 EQU ATCAOSM+88 02947000 ATCZDVT3 EQU ATCAOSM+84 02948000 ATCZDVT1 EQU ATCAOSM+80 02949000 ATCICNCB EQU ATCAOSM+76 02950000 ATCZPSVT EQU ATCAOSM+72 02951000 ATCZFSVT EQU ATCAOSM+68 02952000 ATCAP64 EQU ATCAOSM+64 02953000 ATCAP63 EQU ATCAOSM+60 02954000 ATCAP61 EQU ATCAOSM+56 02955000 ATCAP58 EQU ATCAOSM+52 02956000 ATCAP57 EQU ATCAOSM+48 02957000 ATCAP54 EQU ATCAOSM+44 02958000 ATCAP53 EQU ATCAOSM+40 02959000 ATCAP52 EQU ATCAOSM+36 02960000 ATCAP34 EQU ATCAOSM+32 02961000 ATCAP31 EQU ATCAOSM+24 02962000 ATCAP12 EQU ATCAOSM+20 02963000 ATCAP11 EQU ATCAOSM+16 02964000 ATCCMTCB EQU ATCAOSM+12 02965000 ATCPRPH EQU ATCAOSM+8 02966000 ATCGSRBF EQU ATCGSRBG 02967000 ATCSRBRT EQU ATCAOSM 02968000 @NM00092 EQU @NM00091 02969000 ATCVTMAB EQU @NM00091 02970000 @NM00090 EQU ATCVTBAM 02971000 ATCVDLOK EQU ISTATCVT+904 02972000 ATCVFPAB EQU ISTATCVT+872 02973000 ATCVDPAB EQU ISTATCVT+840 02974000 ATCIOECB EQU ISTATCVT+836 02975000 ATCINCW3 EQU ISTATCVT+832 02976000 ATCMODTB EQU ISTATCVT+828 02977000 ATCUSSPT EQU ISTATCVT+824 02978000 ATCSRTAB EQU ISTATCVT+820 02979000 @NM00089 EQU ISTATCVT+819 02980000 @NM00088 EQU ATCSTAT2 02981000 ATCTRSMS EQU ATCSTAT2 02982000 ATCTRLOK EQU ATCSTAT2 02983000 ATCTRPSS EQU ATCSTAT2 02984000 ATCTRESC EQU ATCSTAT2 02985000 ATCTRAPI EQU ATCSTAT2 02986000 ATCNMCTR EQU ISTATCVT+816 02987000 ATCSEC51 EQU ATCSECST 02988000 ATCSEC40 EQU ATCSIPD+8 02989000 ATCSEC30 EQU ATCSIPD+4 02990000 ATCSEC21 EQU ATCSIPD 02991000 ATCSEC10 EQU ATCSOPD+4 02992000 ATCSEC01 EQU ATCSOPD 02993000 ATCPOIA EQU ATCRNO+1 02994000 @NM00087 EQU ATCRNO 02995000 ATCPODVT EQU ISTATCVT+784 02996000 ATCS49XL EQU ISTATCVT+780 02997000 ATCS49XI EQU ISTATCVT+776 02998000 ATCLCLCT EQU ATCVLCNT+2 02999000 ATCRNCNT EQU ATCVLCNT 03000000 ATCCFEAD EQU ISTATCVT+768 03001000 ATCPTR00 EQU ISTATCVT+736 03002000 ATCRSV10 EQU ISTATCVT+704 03003000 ATCTACB EQU ISTATCVT+700 03004000 ATCVTINM EQU ISTATCVT+696 03005000 ATCTCLIM EQU ISTATCVT+692 03006000 ATCTCLOM EQU ISTATCVT+688 03007000 ATCVTIPB EQU ISTATCVT+656 03008000 ATCTCIPB EQU ISTATCVT+624 03009000 ATCTIPAB EQU ISTATCVT+592 03010000 ATCOCCCB EQU ISTATCVT+588 03011000 ATCOCCOB EQU ISTATCVT+584 03012000 ATCCDLAD EQU ISTATCVT+580 03013000 ATCCCLAD EQU ISTATCVT+576 03014000 ATCDLRPB EQU ISTATCVT+544 03015000 ATCPGPAB EQU ISTATCVT+512 03016000 ATCVPAB1 EQU ISTATCVT+480 03017000 ATCRSV97 EQU ISTATCVT+476 03018000 ATCRDTLK EQU ISTATCVT+472 03019000 ATCVOCLK EQU ISTATCVT+468 03020000 ATCCDFDN EQU ISTATCVT+464 03021000 ATCCDFIN EQU ISTATCVT+460 03022000 ATCDVTLK EQU ISTATCVT+456 03023000 ATCAP36 EQU ISTATCVT+452 03024000 ATCAP35 EQU ISTATCVT+448 03025000 ATCAP33 EQU ISTATCVT+444 03026000 ATCRSV99 EQU ISTATCVT+440 03027000 ATCONFIG EQU ISTATCVT+432 03028000 ATCNODDS EQU ISTATCVT+428 03029000 ATCNODEL EQU ISTATCVT+420 03030000 ATCRSV69 EQU ISTATCVT+416 03031000 ATCAPCR5 EQU ISTATCVT+412 03032000 ATCLDECB EQU ISTATCVT+408 03033000 ATCLDNCS EQU ISTATCVT+404 03034000 ATCCDPTR EQU ISTATCVT+400 03035000 ATCADEL EQU ISTATCVT+396 03036000 ATCTODVT EQU ISTATCVT+392 03037000 ATCDEBCH EQU ISTATCVT+388 03038000 ATCHBSIZ EQU ATCHPGM+2 03039000 ATCHBFNO EQU ATCHPGM 03040000 ATCCRME EQU ISTATCVT+380 03041000 ATCRVCHS EQU ISTATCVT+372 03042000 ATCECTLP EQU ISTATCVT+368 03043000 ATCZDVTB EQU ISTATCVT+364 03044000 ATCECPRT EQU ISTATCVT+360 03045000 ATCVTLOD EQU ISTATCVT+356 03046000 ATCTRPAB EQU ISTATCVT+352 03047000 ATCMSGM EQU ISTATCVT+348 03048000 ATCMSGP EQU ISTATCVT+344 03049000 ATCEPT EQU ISTATCVT+340 03050000 ATCDVT EQU ISTATCVT+336 03051000 ATCTRCPT EQU ISTATCVT+332 03052000 ATCDVLOD EQU ISTATCVT+328 03053000 ATCALERT EQU ISTATCVT+324 03054000 ATCEPA EQU ISTATCVT+320 03055000 ATCSAF EQU ISTATCVT+318 03056000 ATCXRANG EQU ISTATCVT+317 03057000 ATCLAST EQU ATCSHRFG 03058000 ATCSHRTN EQU ISTATCVT+308 03059000 ATCUEP EQU ISTATCVT+304 03060000 ATCOCRT EQU ISTATCVT+300 03061000 ATCCSMA EQU ATCCSMR 03062000 ATCESC02 EQU ISTATCVT+292 03063000 ATCESC01 EQU ISTATCVT+288 03064000 ATCCDFND EQU ISTATCVT+284 03065000 ATCCDDEL EQU ISTATCVT+280 03066000 ATCCDADD EQU ISTATCVT+276 03067000 ATCMNT EQU ISTATCVT+272 03068000 ATCRSV16 EQU ISTATCVT+270 03069000 ATCMAXID EQU ISTATCVT+269 03070000 ATCMSGSP EQU ATCCOM+268 03071000 ATCCIDM EQU ATCCOM+266 03072000 ATCACTRM EQU ATCCOM+264 03073000 ATCNERAP EQU ATCCOM+260 03074000 ATCNESAL EQU ATCCOM+256 03075000 ATCRCC65 EQU ATCCOM+252 03076000 ATCRCC26 EQU ATCCOM+248 03077000 ATCRCC63 EQU ATCCOM+244 03078000 ATCRSV11 EQU ATCCOM+242 03079000 ATCVTMID EQU ATCCOM+240 03080000 ATCAPOST EQU ATCCOM+236 03081000 ATCNERFN EQU ATCCOM+232 03082000 ATCNERNE EQU ATCCOM+228 03083000 ATCNERCV EQU ATCCOM+224 03084000 ATCNERST EQU ATCCOM+220 03085000 ATCDCC61 EQU ATCCOM+216 03086000 ATCDCC60 EQU ATCCOM+212 03087000 ATCSRTDF EQU ATCCOM+208 03088000 ATCSRTAD EQU ATCCOM+204 03089000 ATCFIRA EQU ATCCOM+200 03090000 ATCSMBQ EQU ATCCOM+196 03091000 ATCSMRC EQU ATCCOM+192 03092000 ATCSMRS EQU ATCCOM+188 03093000 ATCSMQU EQU ATCCOM+184 03094000 ATCSMRQ EQU ATCCOM+180 03095000 ATCACDA EQU ATCCOM+176 03096000 ATCSTMA EQU ATCCOM+172 03097000 ATCFRSTR EQU ATCCOM+168 03098000 ATCGTSTR EQU ATCCOM+164 03099000 ATCREADA EQU ATCCOM+160 03100000 ATCALOAD EQU ATCCOM+156 03101000 ATCBLDLA EQU ATCCOM+152 03102000 ATCFBRPH EQU ATCCOM+148 03103000 ATCBFTRC EQU ATCCOM+144 03104000 ATCTPBUF EQU ATCTHTRC 03105000 ATCREMOV EQU ATCCOM+136 03106000 ATCADD EQU ATCCOM+132 03107000 ATCBPDA EQU ATCCOM+128 03108000 ATCDVTPT EQU ATCCOM+124 03109000 ATCFEPT EQU ATCCOM+120 03110000 ATCFDVT EQU ATCCOM+116 03111000 ATCCONFT EQU ATCCOM+112 03112000 ATCPTCHA EQU ATCCOM+108 03113000 ATCAUTHA EQU ATCCOM+104 03114000 ATCACCTA EQU ATCCOM+100 03115000 ATCRDTH EQU ATCCOM+96 03116000 ATCFRSCH EQU ATCCOM+92 03117000 ATCFSB EQU ATCCOM+88 03118000 ATCHLTMS EQU ATCCOM+84 03119000 ATCECPRM EQU ATCCOM+80 03120000 ATCECNET EQU ATCCOM+76 03121000 ATCECOPC EQU ATCCOM+72 03122000 ATCVPARM EQU ATCCOM+68 03123000 ATCECVRQ EQU ATCCOM+64 03124000 ATCECSES EQU ATCCOM+60 03125000 ATCOCHA EQU ATCCOM+56 03126000 ATCDSPLQ EQU ATCCOM+52 03127000 ATCECDSP EQU ATCCOM+48 03128000 ATCVARYQ EQU ATCCOM+44 03129000 ATCECVRY EQU ATCCOM+40 03130000 ATCHALTQ EQU ATCCOM+36 03131000 ATCECHLT EQU ATCCOM+32 03132000 ATCMODQ EQU ATCCOM+28 03133000 ATCECMOD EQU ATCCOM+24 03134000 ATCASCHD EQU ATCCOM+20 03135000 ATCSRT EQU ATCCOM+16 03136000 ATCRDT EQU ATCCOM+12 03137000 ATCDCFRR EQU ATCCOM+8 03138000 ATCAPI EQU ATCCOM+4 03139000 ATCRSV04 EQU ATCSTAT4 03140000 ATCVTTRC EQU ATCSTAT4 03141000 ATCNCSD EQU ATCSTAT4 03142000 ATCMTST EQU ATCSTAT4 03143000 ATCTPRT EQU ATCSTAT4 03144000 ATCPRTAT EQU ATCSTAT4 03145000 @NM00086 EQU ATCPOFLG 03146000 ATCPOUNS EQU ATCPOFLG 03147000 ATCHSDMF EQU ATCSTFLG 03148000 @NM00085 EQU ATCSTAT1 03149000 ATCMDHLT EQU ATCSTAT1 03150000 ATCINHLT EQU ATCSTAT1 03151000 ATCNETSL EQU ATCSTAT1 03152000 ATCQKHLT EQU ATCSTAT1 03153000 ATCSNHLT EQU ATCSTAT1 03154000 ATCACTIV EQU ATCSTAT1 03155000 ATCSTART EQU ATCSTAT1 03156000 RPHNEXPO EQU ISTRPH+104 03157000 RPHSAV16 EQU RPHWORK+60 03158000 RPHSAV15 EQU RPHWORK+56 03159000 RPHSAV14 EQU RPHWORK+52 03160000 RPHSAV13 EQU RPHWORK+48 03161000 RPHSAV12 EQU RPHWORK+44 03162000 RPHSAV11 EQU RPHWORK+40 03163000 RPHSAV10 EQU RPHWORK+36 03164000 RPHSAVE9 EQU RPHWORK+32 03165000 RPHSAVE8 EQU RPHWORK+28 03166000 RPHSAVE7 EQU RPHWORK+24 03167000 RPHSAVE6 EQU RPHWORK+20 03168000 RPHSAVE5 EQU RPHWORK+16 03169000 RPHSAVE4 EQU RPHWORK+12 03170000 RPHSAVE3 EQU RPHWORK+8 03171000 RPHSAVE2 EQU RPHWORK+4 03172000 RPHSHALF EQU RPHSAVE1+2 03173000 RPHSBIT8 EQU RPHSBITS 03174000 RPHSBIT7 EQU RPHSBITS 03175000 RPHSBIT6 EQU RPHSBITS 03176000 RPHSBIT5 EQU RPHSBITS 03177000 RPHSBIT4 EQU RPHSBITS 03178000 RPHSBIT3 EQU RPHSBITS 03179000 RPHSBIT2 EQU RPHSBITS 03180000 RPHSBIT1 EQU RPHSBITS 03181000 RPHSBYTE EQU RPHSAVE1 03182000 RPHPABQP EQU RPHPABQA+1 03183000 RPHPABFG EQU RPHPABQA 03184000 RPHSRP34 EQU RPHSRPRM+2 03185000 RPHSRP12 EQU RPHSRPRM 03186000 RPHWEGT EQU RPHCSPA 03187000 RPHRESUM EQU RPHRESMA+1 03188000 RPHRSV01 EQU RPHWPFLG 03189000 RPHPT EQU RPHWPFLG 03190000 RPHRSKEY EQU RPHWPFLG 03191000 RPHDVTA EQU ISTRPH+12 03192000 RPHTIK EQU RPHTSKID+3 03193000 @NM00084 EQU RPHTSKID 03194000 @NM00083 EQU RPHCVFLG 03195000 RPHFRRPH EQU RPHCVFLG 03196000 RPHOWRPH EQU RPHCVFLG 03197000 RPHCDRPH EQU RPHCVFLG 03198000 RPHPSRPH EQU RPHCVFLG 03199000 RPHVYRPH EQU RPHGATE 03200000 @NM00082 EQU RPHFLGB 03201000 RPHRLCRA EQU RPHFLGB 03202000 RPHNRSAV EQU RPHFLGB 03203000 RPHFBAPS EQU RPHFLGB 03204000 RPHBSSP EQU RPHFLGB 03205000 RPHLOCK EQU RPHFLGB 03206000 RPHFNFLG EQU RPHFSTLC 03207000 RPHMLTCP EQU RPHFLAGS 03208000 RPHSMCLR EQU RPHFLAGS 03209000 RPHSMTYP EQU RPHFLAGS 03210000 RPHSMQ EQU RPHFLAGS 03211000 RPHAUTEX EQU RPHAPTYP 03212000 RPHSPGIN EQU RPHFLAGS 03213000 RPHOGIND EQU RPHFLAGS 03214000 RPHLNGTH EQU RPHCNTL+1 03215000 RPHTYPE EQU RPHCNTL 03216000 DYPPAB EQU ISTDYPAB+16 03217000 DYPRSV01 EQU ISTDYPAB+12 03218000 DYPTSKID EQU ISTDYPAB+8 03219000 DYPCHAIN EQU ISTDYPAB+4 03220000 DYPFLGS EQU ISTDYPAB+2 03221000 DYPLNGTH EQU ISTDYPAB+1 03222000 DYPTYPE EQU ISTDYPAB 03223000 LOKXCL EQU @NM00080 03224000 LOKPRY EQU @NM00080 03225000 @NM00081 EQU @NM00080 03226000 @NM00079 EQU LOKCHNG 03227000 LOKCT EQU ISTLOK 03228000 PABRPHA EQU PABRPHFG+1 03229000 PABNODQ EQU PABFLAGS 03230000 PABINHBT EQU PABFLAGS 03231000 PABERLOK EQU PABERRLK 03232000 PABSSN EQU PABFLAGS 03233000 PABDYNAM EQU PABFLAGS 03234000 PABNORPR EQU PABFLAGS 03235000 PABPRIOR EQU PABFLAGS 03236000 PABAPYP EQU PABFLAGS 03237000 PABDVTA EQU ISTPAB+9 03238000 PABOFFST EQU ISTPAB+8 03239000 PABCHNGP EQU PABCHAIN+1 03240000 PABRSV02 EQU PABCHAIN 03241000 PABDELAY EQU PABCHAIN 03242000 PABRUNNG EQU PABCHAIN 03243000 PABRESET EQU PABCHAIN 03244000 PABUNCON EQU PABCHAIN 03245000 PABCDP EQU PABCHAIN 03246000 PABRESCH EQU PABCHAIN 03247000 PABCHNG EQU PABCHAIN 03248000 PABWEQP EQU PABWEQA+1 03249000 PABRSV01 EQU PABWEQA 03250000 PABWEQG EQU PABWEQA 03251000 @NM00078 EQU SDWA+512 03252000 @NM00077 EQU SDWADPVA 03253000 SDWAEBC EQU SDWADPVA 03254000 SDWAVRAL EQU SDWARA 03255000 @NM00076 EQU SDWA+396 03256000 SDWACOMP EQU SDWA+392 03257000 SDWARCPL EQU SDWA+364 03258000 @NM00075 EQU SDWADPSA+32 03259000 SDWATO4 EQU SDWADPSL+28 03260000 SDWAFRM4 EQU SDWADPSL+24 03261000 SDWATO3 EQU SDWADPSL+20 03262000 SDWAFRM3 EQU SDWADPSL+16 03263000 SDWATO2 EQU SDWADPSL+12 03264000 SDWAFRM2 EQU SDWADPSL+8 03265000 SDWATO1 EQU SDWADPSL+4 03266000 SDWAFRM1 EQU SDWADPSL 03267000 @NM00074 EQU SDWADDAT+3 03268000 @NM00073 EQU SDWAPDAT 03269000 SDWAUSPL EQU SDWAPDAT 03270000 SDWADPSW EQU SDWAPDAT 03271000 SDWATJPA EQU SDWAPDAT 03272000 SDWATLPA EQU SDWAPDAT 03273000 SDWADREG EQU SDWAPDAT 03274000 SDWADSAH EQU SDWAPDAT 03275000 SDWADSAS EQU SDWAPDAT 03276000 @NM00072 EQU SDWADDAT+1 03277000 @NM00071 EQU SDWASDAT 03278000 SDWAQQS EQU SDWASDAT 03279000 SDWACBS EQU SDWASDAT 03280000 SDWAGTF EQU SDWASDAT 03281000 SDWASWA EQU SDWASDAT 03282000 SDWALSQA EQU SDWASDAT 03283000 SDWASQA EQU SDWASDAT 03284000 SDWANUC EQU SDWASDAT 03285000 @NM00070 EQU SDWADUMP+2 03286000 @NM00069 EQU SDWADPFS 03287000 SDWASLST EQU SDWADPFS 03288000 @NM00068 EQU SDWADPFS 03289000 SDWADLST EQU SDWADPFS 03290000 SDWADPT EQU SDWADPFS 03291000 SDWADPID EQU SDWADUMP 03292000 SDWADPLA EQU SDWA+316 03293000 @NM00067 EQU SDWALKWA+32 03294000 SDWATALW EQU SDWALKWS+28 03295000 SDWATDLW EQU SDWALKWS+24 03296000 SDWATNLW EQU SDWALKWS+20 03297000 SDWAAPLW EQU SDWALKWS+16 03298000 SDWAIPLW EQU SDWALKWS+12 03299000 SDWAILLW EQU SDWALKWS+8 03300000 SDWAIULW EQU SDWALKWS+4 03301000 SDWAICLW EQU SDWALKWS 03302000 SDWAFLLK EQU SDWAACF4 03303000 SDWACMS EQU SDWAACF4 03304000 SDWAOPTM EQU SDWAACF4 03305000 SDWATADB EQU SDWAACF4 03306000 SDWATDNB EQU SDWAACF4 03307000 SDWATNCB EQU SDWAACF4 03308000 SDWAILCH EQU SDWAACF4 03309000 SDWAIUCB EQU SDWAACF4 03310000 SDWAICAT EQU SDWAACF3 03311000 SDWAIPRG EQU SDWAACF3 03312000 SDWASALL EQU SDWAACF3 03313000 SDWAASMP EQU SDWAACF3 03314000 SDWADISP EQU SDWAACF3 03315000 @NM00066 EQU SDWAACF3 03316000 @NM00065 EQU SDWAACF2 03317000 SDWAFREE EQU SDWAACF2 03318000 SDWAUPRG EQU SDWAACF2 03319000 @NM00064 EQU SDWAACF2 03320000 SDWASPIN EQU SDWAACF2 03321000 @NM00063 EQU SDWAACF2 03322000 SDWALCPU EQU SDWACPUA+2 03323000 @NM00062 EQU SDWACPUA 03324000 SDWARECA EQU SDWA+244 03325000 @NM00061 EQU SDWA+239 03326000 @NM00060 EQU SDWAIOFS 03327000 SDWANIOP EQU SDWAIOFS 03328000 SDWANOIO EQU SDWAIOFS 03329000 SDWAIOHT EQU SDWAIOFS 03330000 SDWAIOQR EQU SDWAIOFS 03331000 SDWAFMID EQU SDWA+236 03332000 @NM00059 EQU SDWAERRD 03333000 SDWAMCIV EQU SDWAERRD 03334000 SDWARPIV EQU SDWAERRD 03335000 SDWAMABD EQU SDWAERRD 03336000 SDWACTS EQU SDWAERRD 03337000 SDWASTAE EQU SDWAERRD 03338000 SDWANRBE EQU SDWAERRD 03339000 SDWACLUP EQU SDWAERRD 03340000 @NM00058 EQU SDWAERRC 03341000 SDWAEAS EQU SDWAERRC 03342000 SDWAPERC EQU SDWAERRC 03343000 SDWAIRB EQU SDWAERRC 03344000 SDWASTAI EQU SDWAERRC 03345000 SDWASTAF EQU SDWAERRC 03346000 SDWASRBM EQU SDWAERRB 03347000 SDWALDIS EQU SDWAERRB 03348000 SDWAENRB EQU SDWAERRB 03349000 SDWATYP1 EQU SDWAERRB 03350000 @NM00057 EQU SDWAERRB 03351000 SDWAPGIO EQU SDWAERRA 03352000 SDWATEXC EQU SDWAERRA 03353000 SDWASVCE EQU SDWAERRA 03354000 SDWAABTM EQU SDWAERRA 03355000 SDWASVCD EQU SDWAERRA 03356000 SDWARKEY EQU SDWAERRA 03357000 SDWAPCHK EQU SDWAERRA 03358000 SDWATIME EQU SDWAMCH+20 03359000 SDWARFSA EQU SDWAMCH+16 03360000 @NM00056 EQU SDWAMCH+14 03361000 SDWAVEQR EQU SDWARSR2 03362000 SDWAPGFX EQU SDWARSR2 03363000 SDWAFLSQ EQU SDWARSR2 03364000 SDWAFSQA EQU SDWARSR2 03365000 SDWANUCL EQU SDWARSR2 03366000 SDWASPER EQU SDWARSR2 03367000 SDWAINTC EQU SDWARSR2 03368000 SDWAOFLN EQU SDWARSR2 03369000 SDWACHNG EQU SDWARSR1 03370000 SDWAMSER EQU SDWARSR1 03371000 @NM00055 EQU SDWARSR1 03372000 SDWACPID EQU SDWAMCH+10 03373000 SDWATERR EQU SDWAMCHD 03374000 SDWAFPRX EQU SDWAMCHD 03375000 SDWAACR EQU SDWAMCHD 03376000 SDWASCK EQU SDWAMCHD 03377000 SDWASKYF EQU SDWAMCHD 03378000 @NM00054 EQU SDWAMCHS 03379000 SDWARSRF EQU SDWAMCHS 03380000 SDWARSRC EQU SDWAMCHS 03381000 SDWAINVP EQU SDWAMCHS 03382000 SDWATSVL EQU SDWAMCHS 03383000 SDWARCDF EQU SDWAMCHS 03384000 SDWASRVL EQU SDWAMCHS 03385000 SDWASCKE EQU SDWASTCK+4 03386000 SDWASCKB EQU SDWASTCK 03387000 SDWALNTH EQU SDWAIDNT+1 03388000 SDWASPID EQU SDWAIDNT 03389000 SDWASR15 EQU SDWASRSV+60 03390000 SDWASR14 EQU SDWASRSV+56 03391000 SDWASR13 EQU SDWASRSV+52 03392000 SDWASR12 EQU SDWASRSV+48 03393000 SDWASR11 EQU SDWASRSV+44 03394000 SDWASR10 EQU SDWASRSV+40 03395000 SDWASR09 EQU SDWASRSV+36 03396000 SDWASR08 EQU SDWASRSV+32 03397000 SDWASR07 EQU SDWASRSV+28 03398000 SDWASR06 EQU SDWASRSV+24 03399000 SDWASR05 EQU SDWASRSV+20 03400000 SDWASR04 EQU SDWASRSV+16 03401000 SDWASR03 EQU SDWASRSV+12 03402000 SDWASR02 EQU SDWASRSV+8 03403000 SDWASR01 EQU SDWASRSV+4 03404000 SDWASR00 EQU SDWASRSV 03405000 SDWATRN2 EQU SDWAAEC2+4 03406000 SDWAIPC2 EQU SDWAICD2 03407000 SDWAIMC2 EQU SDWAICD2 03408000 SDWAIPR2 EQU SDWAICD2 03409000 @NM00053 EQU SDWAINC2 03410000 @NM00052 EQU SDWAILC2 03411000 SDWAIL2 EQU SDWAILC2 03412000 @NM00051 EQU SDWAILC2 03413000 @NM00050 EQU SDWAAEC2 03414000 SDWAADD2 EQU SDWANXT2+1 03415000 @NM00049 EQU SDWANXT2 03416000 @NM00048 EQU SDWAEC2+3 03417000 SDWASGN2 EQU SDWAINT2 03418000 SDWAEXP2 EQU SDWAINT2 03419000 SDWADEC2 EQU SDWAINT2 03420000 SDWAFPO2 EQU SDWAINT2 03421000 SDWACC2 EQU SDWAINT2 03422000 @NM00047 EQU SDWAINT2 03423000 SDWAPGM2 EQU SDWAMWP2 03424000 SDWAWAT2 EQU SDWAMWP2 03425000 SDWAMCK2 EQU SDWAMWP2 03426000 SDWAECT2 EQU SDWAMWP2 03427000 SDWAKEY2 EQU SDWAMWP2 03428000 SDWAEXT2 EQU SDWAEMK2 03429000 SDWAIO2 EQU SDWAEMK2 03430000 SDWATRM2 EQU SDWAEMK2 03431000 @NM00046 EQU SDWAEMK2 03432000 SDWAPER2 EQU SDWAEMK2 03433000 @NM00045 EQU SDWAEMK2 03434000 SDWATRAN EQU SDWAAEC1+4 03435000 SDWAIPC1 EQU SDWAICD1 03436000 SDWAIMC1 EQU SDWAICD1 03437000 SDWAIPR1 EQU SDWAICD1 03438000 @NM00044 EQU SDWAINC1 03439000 @NM00043 EQU SDWAILC1 03440000 SDWAIL1 EQU SDWAILC1 03441000 @NM00042 EQU SDWAILC1 03442000 @NM00041 EQU SDWAAEC1 03443000 SDWAADD1 EQU SDWANXT1+1 03444000 @NM00040 EQU SDWANXT1 03445000 @NM00039 EQU SDWAEC1+3 03446000 SDWASGN1 EQU SDWAINT1 03447000 SDWAEXP1 EQU SDWAINT1 03448000 SDWADEC1 EQU SDWAINT1 03449000 SDWAFPO1 EQU SDWAINT1 03450000 SDWACC1 EQU SDWAINT1 03451000 @NM00038 EQU SDWAINT1 03452000 SDWAPGM1 EQU SDWAMWP1 03453000 SDWAWAT1 EQU SDWAMWP1 03454000 SDWAMCK1 EQU SDWAMWP1 03455000 SDWAECT1 EQU SDWAMWP1 03456000 SDWAKEY1 EQU SDWAMWP1 03457000 SDWAEXT1 EQU SDWAEMK1 03458000 SDWAIO1 EQU SDWAEMK1 03459000 SDWATRM1 EQU SDWAEMK1 03460000 @NM00037 EQU SDWAEMK1 03461000 SDWAPER1 EQU SDWAEMK1 03462000 @NM00036 EQU SDWAEMK1 03463000 SDWAIOBR EQU SDWA+100 03464000 SDWAEPA EQU SDWA+96 03465000 @NM00035 EQU SDWANAME+4 03466000 SDWARBAD EQU SDWANAME 03467000 SDWAGR15 EQU SDWAGRSV+60 03468000 SDWAGR14 EQU SDWAGRSV+56 03469000 SDWAGR13 EQU SDWAGRSV+52 03470000 SDWAGR12 EQU SDWAGRSV+48 03471000 SDWAGR11 EQU SDWAGRSV+44 03472000 SDWAGR10 EQU SDWAGRSV+40 03473000 SDWAGR09 EQU SDWAGRSV+36 03474000 SDWAGR08 EQU SDWAGRSV+32 03475000 SDWAGR07 EQU SDWAGRSV+28 03476000 SDWAGR06 EQU SDWAGRSV+24 03477000 SDWAGR05 EQU SDWAGRSV+20 03478000 SDWAGR04 EQU SDWAGRSV+16 03479000 SDWAGR03 EQU SDWAGRSV+12 03480000 SDWAGR02 EQU SDWAGRSV+8 03481000 SDWAGR01 EQU SDWAGRSV+4 03482000 SDWAGR00 EQU SDWAGRSV 03483000 SDWANXTP EQU SDWACTL2+5 03484000 SDWASGP EQU SDWAPMKP 03485000 SDWAEUP EQU SDWAPMKP 03486000 SDWADOP EQU SDWAPMKP 03487000 SDWAFPP EQU SDWAPMKP 03488000 SDWACCP EQU SDWAPMKP 03489000 SDWAILP EQU SDWAPMKP 03490000 SDWAINTP EQU SDWACTL2+2 03491000 SDWASPVP EQU SDWAMWPP 03492000 SDWAWATP EQU SDWAMWPP 03493000 SDWAMCKP EQU SDWAMWPP 03494000 @NM00034 EQU SDWAMWPP 03495000 SDWAKEYP EQU SDWAMWPP 03496000 SDWAEXTP EQU SDWACMKP 03497000 SDWAIOP EQU SDWACMKP 03498000 SDWANXTA EQU SDWACTL1+5 03499000 SDWASGA EQU SDWAPMKA 03500000 SDWAEUA EQU SDWAPMKA 03501000 SDWADOA EQU SDWAPMKA 03502000 SDWAFPA EQU SDWAPMKA 03503000 SDWACCA EQU SDWAPMKA 03504000 SDWAILA EQU SDWAPMKA 03505000 SDWAINTA EQU SDWACTL1+2 03506000 SDWASPVA EQU SDWAMWPA 03507000 SDWAWATA EQU SDWAMWPA 03508000 SDWAMCKA EQU SDWAMWPA 03509000 @NM00033 EQU SDWAMWPA 03510000 SDWAKEYA EQU SDWAMWPA 03511000 SDWAEXTA EQU SDWACMKA 03512000 SDWAIOA EQU SDWACMKA 03513000 SDWACMPC EQU SDWAABCC+1 03514000 @NM00032 EQU SDWACMPF 03515000 SDWASTCC EQU SDWACMPF 03516000 @NM00031 EQU SDWACMPF 03517000 SDWASTEP EQU SDWACMPF 03518000 SDWAREQ EQU SDWACMPF 03519000 @NM00030 EQU FRRSFLGS+1 03520000 @NM00029 EQU FRRSFLG1 03521000 FRRSRCUR EQU FRRSFLG1 03522000 FRRSENTS EQU FRRS+84 03523000 FRRSRTMW EQU FRRS+16 03524000 @NM00004 EQU SRBSECT+40 03525000 @NM00003 EQU SRBSECT+38 03526000 SRBPRIOR EQU SRBSECT+37 03527000 SRBPKF EQU SRBSECT+36 03528000 SRBSAVE EQU SRBSECT+32 03529000 SRBPARM EQU SRBSECT+28 03530000 SRBRMTR EQU SRBSECT+24 03531000 SRBEP EQU SRBSECT+20 03532000 SRBPTCB EQU SRBFLC+4 03533000 SRBPASID EQU SRBFLC+2 03534000 SRBCPAFF EQU SRBFLC 03535000 SRBASCB EQU SRBSECT+8 03536000 SRBFLNK EQU SRBSECT+4 03537000 SRBID EQU SRBSECT 03538000 CVTLEVL EQU CVTRELNO+2 03539000 CVTNUMB EQU CVTRELNO 03540000 CVTMDL EQU CVTFIX+250 03541000 @NM00002 EQU CVTFIX+248 03542000 @NM00001 EQU CVTFIX 03543000 CVTRV482 EQU CVTXTNT2+128 03544000 CVTRV481 EQU CVTXTNT2+124 03545000 CVTRV480 EQU CVTXTNT2+120 03546000 CVTRV479 EQU CVTXTNT2+118 03547000 CVTRV478 EQU CVTXTNT2+117 03548000 CVTRV477 EQU CVTXTNT2+116 03549000 CVTRV476 EQU CVTXTNT2+115 03550000 CVTRV475 EQU CVTXTNT2+114 03551000 CVTRV474 EQU CVTRV466 03552000 CVTRV473 EQU CVTRV466 03553000 CVTRV472 EQU CVTRV466 03554000 CVTRV471 EQU CVTRV466 03555000 CVTRV470 EQU CVTRV466 03556000 CVTRV469 EQU CVTRV466 03557000 CVTRV468 EQU CVTRV466 03558000 CVTRV467 EQU CVTRV466 03559000 CVTRV465 EQU CVTRV457 03560000 CVTRV464 EQU CVTRV457 03561000 CVTRV463 EQU CVTRV457 03562000 CVTRV462 EQU CVTRV457 03563000 CVTRV461 EQU CVTRV457 03564000 CVTRV460 EQU CVTRV457 03565000 CVTRV459 EQU CVTRV457 03566000 CVTRV458 EQU CVTRV457 03567000 CVTRV456 EQU CVTXTNT2+108 03568000 CVTRV455 EQU CVTXTNT2+104 03569000 CVTRV454 EQU CVTXTNT2+100 03570000 CVTRV453 EQU CVTXTNT2+96 03571000 CVTRV452 EQU CVTXTNT2+94 03572000 CVTRV451 EQU CVTXTNT2+92 03573000 CVTRV450 EQU CVTXTNT2+90 03574000 CVTRV449 EQU CVTXTNT2+88 03575000 CVTRV448 EQU CVTXTNT2+87 03576000 CVTRV447 EQU CVTXTNT2+86 03577000 CVTRV446 EQU CVTRV438 03578000 CVTRV445 EQU CVTRV438 03579000 CVTRV444 EQU CVTRV438 03580000 CVTRV443 EQU CVTRV438 03581000 CVTRV442 EQU CVTRV438 03582000 CVTRV441 EQU CVTRV438 03583000 CVTRV440 EQU CVTRV438 03584000 CVTRV439 EQU CVTRV438 03585000 CVTRV437 EQU CVTRV429 03586000 CVTRV436 EQU CVTRV429 03587000 CVTRV435 EQU CVTRV429 03588000 CVTRV434 EQU CVTRV429 03589000 CVTRV433 EQU CVTRV429 03590000 CVTRV432 EQU CVTRV429 03591000 CVTRV431 EQU CVTRV429 03592000 CVTRV430 EQU CVTRV429 03593000 CVTRV428 EQU CVTXTNT2+80 03594000 CVTRV427 EQU CVTXTNT2+76 03595000 CVTRV426 EQU CVTXTNT2+72 03596000 CVTRV425 EQU CVTXTNT2+68 03597000 CVTATACT EQU CVTATCVT 03598000 CVTRV423 EQU CVTXTNT2+62 03599000 CVTRV422 EQU CVTXTNT2+60 03600000 CVTRV421 EQU CVTXTNT2+58 03601000 CVTRV420 EQU CVTXTNT2+56 03602000 CVTRV419 EQU CVTXTNT2+55 03603000 CVTRV418 EQU CVTXTNT2+54 03604000 CVTRV417 EQU CVTRV409 03605000 CVTRV416 EQU CVTRV409 03606000 CVTRV415 EQU CVTRV409 03607000 CVTRV414 EQU CVTRV409 03608000 CVTRV413 EQU CVTRV409 03609000 CVTRV412 EQU CVTRV409 03610000 CVTRV411 EQU CVTRV409 03611000 CVTRV410 EQU CVTRV409 03612000 CVTRV408 EQU CVTRV400 03613000 CVTRV407 EQU CVTRV400 03614000 CVTRV406 EQU CVTRV400 03615000 CVTRV405 EQU CVTRV400 03616000 CVTRV404 EQU CVTRV400 03617000 CVTRV403 EQU CVTRV400 03618000 CVTRV402 EQU CVTRV400 03619000 CVTRV401 EQU CVTRV400 03620000 CVTICB EQU CVTXTNT2+48 03621000 CVTSKTA EQU CVTXTNT2+44 03622000 CVTSHSB EQU CVTSHS 03623000 CVTRSV98 EQU CVTXTNT2+36 03624000 CVTRSV97 EQU CVTXTNT2+34 03625000 CVTRSV96 EQU CVTXTNT2+32 03626000 CVTOLTEP EQU CVTXTNT2+28 03627000 CVTQIDA EQU CVTQID+1 03628000 CVTRSV95 EQU CVTQID 03629000 CVTRSV94 EQU CVTXTNT2+20 03630000 CVTRSV93 EQU CVTXTNT2+16 03631000 CVTRSV92 EQU CVTXTNT2+12 03632000 CVTDEBVR EQU CVTXTNT2+8 03633000 CVTRSV91 EQU CVTXTNT2+6 03634000 CVTRSV9H EQU CVTFLGBT 03635000 CVTRSV9G EQU CVTFLGBT 03636000 CVTRSV9F EQU CVTFLGBT 03637000 CVTRSV9E EQU CVTFLGBT 03638000 CVTRSV9D EQU CVTFLGBT 03639000 CVTRSV9C EQU CVTFLGBT 03640000 CVTVME EQU CVTFLGBT 03641000 CVTNPE EQU CVTFLGBT 03642000 CVTNUCLS EQU CVTXTNT2+4 03643000 CVTDSSVA EQU CVTDSSV+1 03644000 CVTRSV89 EQU CVTDSSV 03645000 CVTRSV88 EQU CVTXTNT1+8 03646000 CVTRSV87 EQU CVTXTNT1+4 03647000 CVTFACHN EQU CVTXTNT1 03648000 CVTRV488 EQU CVTMAP+412 03649000 CVTRV487 EQU CVTMAP+408 03650000 CVTRV486 EQU CVTMAP+404 03651000 CVTRV485 EQU CVTMAP+400 03652000 CVTACTAP EQU CVTMAP+396 03653000 CVTAUTH EQU CVTMAP+392 03654000 CVTATMCA EQU CVTATMCT+1 03655000 CVTATMST EQU CVTATMCT 03656000 CVTRSV61 EQU CVTMAP+384 03657000 CVTVOLT1 EQU CVTVOLM1+1 03658000 CVTVOLI1 EQU CVTVOLF1 03659000 CVTSTOA EQU CVTMAP+376 03660000 CVTRSV58 EQU CVTMAP+374 03661000 CVTRSV57 EQU CVTMAP+372 03662000 CVTDDCE EQU CVTMAP+368 03663000 CVTPNWFR EQU CVTMAP+364 03664000 CVTSMF EQU CVTMAP+360 03665000 CVTSULK EQU CVTMAP+358 03666000 CVTSLKO EQU CVTSYSK 03667000 CVTSLKP EQU CVTSYSK 03668000 CVTSLKQ EQU CVTSYSK 03669000 CVTSLKR EQU CVTSYSK 03670000 CVTRSV56 EQU CVTSYSK 03671000 CVTRSV55 EQU CVTSYSK 03672000 CVTRSV54 EQU CVTSYSK 03673000 CVTRSV53 EQU CVTSYSK 03674000 CVTRSV52 EQU CVTA1F1 03675000 CVTRSV51 EQU CVTA1F1 03676000 CVTRSV50 EQU CVTA1F1 03677000 CVTRSV49 EQU CVTA1F1 03678000 CVTRSV48 EQU CVTA1F1 03679000 CVTRSV47 EQU CVTA1F1 03680000 CVTSRSW EQU CVTA1F1 03681000 CVTPFSW EQU CVTA1F1 03682000 CVTPCVT EQU CVTMAP+352 03683000 CVTRSV46 EQU CVTMAP+344 03684000 CVTRSV45 EQU CVTMAP+340 03685000 CVTRSV44 EQU CVTMAP+338 03686000 CVTRSV43 EQU CVTMAP+336 03687000 CVTHJESA EQU CVTHJES+1 03688000 CVTRSV42 EQU CVTHJES 03689000 CVTEXT2A EQU CVTEXT2+1 03690000 CVTRSV41 EQU CVTEXT2 03691000 CVTAPFA EQU CVTAPF+1 03692000 CVTRSV40 EQU CVTAPF 03693000 CVTRV518 EQU CVTINTLA 03694000 CVTRV517 EQU CVTERPV 03695000 CVTEORM EQU CVTMAP+312 03696000 CVTMCHPR EQU CVTMAP+308 03697000 CVTTZ EQU CVTMAP+304 03698000 CVTJEPS EQU CVTMAP+300 03699000 CVTJESCT EQU CVTMAP+296 03700000 CVTMODE EQU CVTMAP+292 03701000 CVTPTRV EQU CVTMAP+288 03702000 CVTREAL EQU CVTMAP+284 03703000 CVTRSV39 EQU CVTMAP+280 03704000 CVTRSV38 EQU CVTMAP+276 03705000 CVTDMSRA EQU CVTDMSR+1 03706000 CVTRV634 EQU CVTDMSRF 03707000 CVTRV633 EQU CVTDMSRF 03708000 CVTRV632 EQU CVTDMSRF 03709000 CVTRV631 EQU CVTDMSRF 03710000 CVTRV630 EQU CVTDMSRF 03711000 CVTRV629 EQU CVTDMSRF 03712000 CVTUDUMP EQU CVTDMSRF 03713000 CVTSDUMP EQU CVTDMSRF 03714000 CVTQMSGA EQU CVTQMSG+1 03715000 CVTRSV36 EQU CVTQMSG 03716000 CVTAMFF EQU CVTMAP+264 03717000 CVTPURGA EQU CVTPURG+1 03718000 CVTRSV35 EQU CVTPURG 03719000 CVTCBSP EQU CVTMAP+256 03720000 CVTATERA EQU CVTATER+1 03721000 CVTSYST EQU CVTATER 03722000 CVTVOLT2 EQU CVTTAT 03723000 CVTVOLI2 EQU CVTVOLF2 03724000 CVTAQAVB EQU CVTAQAVT+1 03725000 CVTRSV34 EQU CVTTCMFG 03726000 CVTRSV33 EQU CVTTCMFG 03727000 CVTRSV32 EQU CVTTCMFG 03728000 CVTRSV31 EQU CVTTCMFG 03729000 CVTRSV30 EQU CVTTCMFG 03730000 CVTRSV29 EQU CVTTCMFG 03731000 CVTRSV28 EQU CVTTCMFG 03732000 CVTTCRDY EQU CVTTCMFG 03733000 CVTGTFA EQU CVTGTF+1 03734000 CVTRSV27 EQU CVTGTFST 03735000 CVTRNIO EQU CVTGTFST 03736000 CVTUSR EQU CVTGTFST 03737000 CVTRV318 EQU CVTFORM 03738000 CVTRV317 EQU CVTTMODE 03739000 CVTRV316 EQU CVTSTATE 03740000 CVTRV315 EQU CVTGTFS 03741000 CVTGTFAV EQU CVTGTFS 03742000 CVT0SCR1 EQU CVTMAP+232 03743000 CVTRV515 EQU CVTMAP+228 03744000 CVTRMS EQU CVTMAP+224 03745000 CVTPATCH EQU CVTMAP+220 03746000 CVTTSCE EQU CVTMAP+216 03747000 CVTLNKSC EQU CVTMAP+214 03748000 CVTQABST EQU CVTMAP+212 03749000 CVTMDLDS EQU CVTMAP+208 03750000 CVTUSER EQU CVTMAP+204 03751000 CVTABEND EQU CVTMAP+200 03752000 CVTSMCA EQU CVTMAP+196 03753000 CVTRSV18 EQU CVTMAP+192 03754000 CVTQLPAQ EQU CVTMAP+188 03755000 CVTQCDSR EQU CVTMAP+184 03756000 CVTRSV17 EQU CVTOPTB 03757000 CVTRSV16 EQU CVTOPTB 03758000 CVTFP EQU CVTOPTB 03759000 CVTAPTHR EQU CVTOPTB 03760000 CVTNLOG EQU CVTOPTB 03761000 CVTTOD EQU CVTOPTB 03762000 CVTCTIMS EQU CVTOPTB 03763000 CVTPROT EQU CVTOPTB 03764000 CVTXPFP EQU CVTOPTA 03765000 CVTASCII EQU CVTOPTA 03766000 CVTRSV13 EQU CVTOPTA 03767000 CVTRSV12 EQU CVTOPTA 03768000 CVTNIP EQU CVTOPTA 03769000 CVTDDR EQU CVTOPTA 03770000 CVTAPR EQU CVTOPTA 03771000 CVTCCH EQU CVTOPTA 03772000 CVTSNCTR EQU CVTMAP+180 03773000 CVTQMWR EQU CVTMAP+176 03774000 CVTQOCR EQU CVTMAP+172 03775000 CVT1EF00 EQU CVTMAP+168 03776000 CVTMZ00 EQU CVTMAP+164 03777000 CVTHEAD EQU CVTMAP+160 03778000 CVTRSV11 EQU CVTMAP+156 03779000 CVT0PT01 EQU CVTMAP+152 03780000 CVTMSER EQU CVTMAP+148 03781000 CVTRV516 EQU CVTIERLC 03782000 CVTILCH EQU CVTMAP+140 03783000 CVT0DS EQU CVTMAP+136 03784000 CVTFBOSV EQU CVTMAP+132 03785000 CVTNUCB EQU CVTMAP+128 03786000 CVTIXAVL EQU CVTMAP+124 03787000 CVTIOQET EQU CVTMAP+120 03788000 CVTDCBA EQU CVTMAP+117 03789000 CVTMVS2 EQU CVTDCB 03790000 CVT6DAT EQU CVTDCB 03791000 CVT4MPS EQU CVTDCB 03792000 CVTRSV09 EQU CVTDCB 03793000 CVT4MS1 EQU CVTDCB 03794000 CVT2SPS EQU CVTDCB 03795000 CVT1SSS EQU CVTDCB 03796000 CVTRSV08 EQU CVTDCB 03797000 CVTSTB EQU CVTMAP+112 03798000 CVTQTD00 EQU CVTMAP+108 03799000 CVTQTE00 EQU CVTMAP+104 03800000 CVTCUCB EQU CVTMAP+100 03801000 CVTSJQ EQU CVTMAP+96 03802000 CVTPBLDL EQU CVTMAP+92 03803000 CVTTPC EQU CVTMAP+88 03804000 CVTSVDCB EQU CVTMAP+84 03805000 CVTBRET EQU CVTMAP+82 03806000 CVTEXIT EQU CVTMAP+80 03807000 CVT0FN00 EQU CVTMAP+76 03808000 CVTDARA EQU CVTDAR+1 03809000 CVTRSV07 EQU CVTFLGS1 03810000 CVTRSV06 EQU CVTFLGS1 03811000 CVTRSV05 EQU CVTFLGS1 03812000 CVTRSV04 EQU CVTFLGS1 03813000 CVTRSV03 EQU CVTFLGS1 03814000 CVTRSV02 EQU CVTFLGS1 03815000 CVTRSV01 EQU CVTFLGS1 03816000 CVTDMPLK EQU CVTFLGS1 03817000 CVTXITP EQU CVTMAP+68 03818000 CVTZDTAB EQU CVTMAP+64 03819000 CVTMSLT EQU CVTMAP+60 03820000 CVTDATE EQU CVTMAP+56 03821000 CVTBTERM EQU CVTMAP+52 03822000 CVTSYSAD EQU CVTMAP+48 03823000 CVTXTLER EQU CVTMAP+44 03824000 CVTILK2 EQU CVTMAP+40 03825000 CVTILK1 EQU CVTMAP+36 03826000 CVTPRLTV EQU CVTMAP+32 03827000 CVTPCNVT EQU CVTMAP+28 03828000 CVT0VL00 EQU CVTMAP+24 03829000 CVTXAPG EQU CVTMAP+20 03830000 CVTBUF EQU CVTMAP+16 03831000 CVTJOB EQU CVTMAP+12 03832000 CVTLINK EQU CVTMAP+8 03833000 CVT0EF00 EQU CVTMAP+4 03834000 CVTTCBP EQU CVTMAP 03835000 CVT EQU CVTMAP 03836000 @NM00028 EQU PSA+3668 03837000 PSASTAK EQU PSA+3072 03838000 @NM00027 EQU PSA+1048 03839000 PSAUSEND EQU PSA+1048 03840000 PSARV062 EQU PSA+1044 03841000 PSACDAL EQU PSA+1040 03842000 PSAWTCOD EQU PSA+1036 03843000 PSAATCVT EQU PSA+1032 03844000 PSAPCPSW EQU PSA+1024 03845000 PSAPIR2 EQU PSA+1020 03846000 PSARV059 EQU PSA+1018 03847000 PSASVC13 EQU PSA+1016 03848000 PSASFACC EQU PSA+1008 03849000 PSASTOP EQU PSA+992 03850000 PSASTART EQU PSA+976 03851000 PSARSPSW EQU PSA+968 03852000 PSASRPSW EQU PSA+960 03853000 PSARV045 EQU PSA+892 03854000 PSARV044 EQU PSA+888 03855000 PSARV043 EQU PSA+884 03856000 PSARV042 EQU PSA+880 03857000 PSARV041 EQU PSA+876 03858000 PSARV040 EQU PSA+872 03859000 PSARV025 EQU PSA+868 03860000 PSADSSED EQU PSA+868 03861000 PSADSSPR EQU PSA+864 03862000 PSADSSFW EQU PSA+860 03863000 PSADSS14 EQU PSA+856 03864000 PSADSSPP EQU PSA+848 03865000 PSADSSRP EQU PSA+840 03866000 PSADSS05 EQU PSADSSF4 03867000 PSADSS10 EQU PSADSSF4 03868000 PSADSSVE EQU PSADSSF4 03869000 PSADSSDE EQU PSADSSF4 03870000 PSADSSC0 EQU PSADSSF4 03871000 PSADSSIE EQU PSADSSF4 03872000 PSADSS12 EQU PSADSSF4 03873000 PSADSSRC EQU PSADSSF4 03874000 PSARV057 EQU PSADSSF3 03875000 PSARV056 EQU PSADSSF3 03876000 PSARV055 EQU PSADSSF3 03877000 PSADSSMC EQU PSADSSF3 03878000 PSADSSRW EQU PSADSSF3 03879000 PSADSSNM EQU PSADSSF3 03880000 PSADSSES EQU PSADSSF3 03881000 PSADSSGP EQU PSADSSF3 03882000 PSADSSF2 EQU PSADSSFL+1 03883000 PSADSSPI EQU PSADSSF1 03884000 PSADSSOI EQU PSADSSF1 03885000 PSADSSSP EQU PSADSSF1 03886000 PSADSSTP EQU PSADSSF1 03887000 PSADSSDW EQU PSADSSF1 03888000 PSADSSDD EQU PSADSSF1 03889000 PSADSSDM EQU PSADSSF1 03890000 PSADSSMV EQU PSADSSF1 03891000 PSADSSTS EQU PSA+816 03892000 PSADSSWK EQU PSA+812 03893000 PSADSSR3 EQU PSA+808 03894000 PSADSSR2 EQU PSA+804 03895000 PSADSSRS EQU PSA+800 03896000 PSASTOR EQU PSA+796 03897000 PSACPUSA EQU PSA+794 03898000 PSAVSTAP EQU PSA+792 03899000 PSAWKVAP EQU PSA+788 03900000 PSAWKRAP EQU PSA+784 03901000 PSAMCHIC EQU PSA+783 03902000 PSARV061 EQU PSA+782 03903000 PSASYMSK EQU PSA+781 03904000 PSAMCHFL EQU PSA+780 03905000 PSACR0 EQU PSA+776 03906000 PSAPSWSV EQU PSA+768 03907000 PSACLHS EQU PSAHLHI 03908000 PSALKR15 EQU PSALKSA+60 03909000 PSALKR14 EQU PSALKSA+56 03910000 PSALKR13 EQU PSALKSA+52 03911000 PSALKR12 EQU PSALKSA+48 03912000 PSALKR11 EQU PSALKSA+44 03913000 PSALKR10 EQU PSALKSA+40 03914000 PSALKR9 EQU PSALKSA+36 03915000 PSALKR8 EQU PSALKSA+32 03916000 PSALKR7 EQU PSALKSA+28 03917000 PSALKR6 EQU PSALKSA+24 03918000 PSALKR5 EQU PSALKSA+20 03919000 PSALKR4 EQU PSALKSA+16 03920000 PSALKR3 EQU PSALKSA+12 03921000 PSALKR2 EQU PSALKSA+8 03922000 PSALKR1 EQU PSALKSA+4 03923000 PSALKR0 EQU PSALKSA 03924000 PSARV023 EQU PSACLHT+52 03925000 PSALOCAL EQU PSACLHT+48 03926000 PSACMSL EQU PSACLHT+44 03927000 PSAOPTL EQU PSACLHT+40 03928000 PSATPACL EQU PSACLHT+36 03929000 PSATPDNL EQU PSACLHT+32 03930000 PSATPNCL EQU PSACLHT+28 03931000 PSAIOSLL EQU PSACLHT+24 03932000 PSAIOSUL EQU PSACLHT+20 03933000 PSAIOSCL EQU PSACLHT+16 03934000 PSAIOSSL EQU PSACLHT+12 03935000 PSASALCL EQU PSACLHT+8 03936000 PSAASML EQU PSACLHT+4 03937000 PSADISPL EQU PSACLHT 03938000 PSASRSA EQU PSA+636 03939000 PSARV050 EQU PSA+634 03940000 PSADSSGO EQU PSA+633 03941000 PSARECUR EQU PSA+632 03942000 PSAHLHIS EQU PSA+628 03943000 PSAIPCSA EQU PSA+624 03944000 @NM00026 EQU PSA+621 03945000 PSAIPCDM EQU PSA+620 03946000 PSAIPCD EQU PSA+616 03947000 @NM00025 EQU PSA+613 03948000 PSAIPCRM EQU PSA+612 03949000 PSAIPCR EQU PSA+608 03950000 PSAMCHEX EQU PSA+600 03951000 PSAMPSW EQU PSA+592 03952000 PSAEXPS2 EQU PSA+584 03953000 PSAEXPS1 EQU PSA+576 03954000 PSAPIREG EQU PSA+572 03955000 PSARSREG EQU PSA+568 03956000 PSAGPREG EQU PSA+556 03957000 PSARV022 EQU PSASUP4 03958000 PSARV021 EQU PSASUP4 03959000 PSARV020 EQU PSASUP4 03960000 PSARV019 EQU PSASUP4 03961000 PSARV018 EQU PSASUP4 03962000 PSARV017 EQU PSASUP4 03963000 PSARV016 EQU PSASUP4 03964000 PSARV015 EQU PSASUP4 03965000 PSARV014 EQU PSASUP3 03966000 PSARV013 EQU PSASUP3 03967000 PSARV012 EQU PSASUP3 03968000 PSARV011 EQU PSASUP3 03969000 PSASPR EQU PSASUP3 03970000 PSAPSREG EQU PSASUP3 03971000 PSAPI2 EQU PSASUP3 03972000 PSAIOSUP EQU PSASUP3 03973000 PSALCR EQU PSASUP2 03974000 PSARTM EQU PSASUP2 03975000 PSAACR EQU PSASUP2 03976000 PSAIPCE2 EQU PSASUP2 03977000 PSAIPCES EQU PSASUP2 03978000 PSAIPCEC EQU PSASUP2 03979000 PSAGTF EQU PSASUP2 03980000 PSAIPCRI EQU PSASUP2 03981000 PSARV063 EQU PSASUP1 03982000 PSATCTL EQU PSASUP1 03983000 PSADISP EQU PSASUP1 03984000 PSALOCK EQU PSASUP1 03985000 PSAPI EQU PSASUP1 03986000 PSAEXT EQU PSASUP1 03987000 PSASVC EQU PSASUP1 03988000 PSAIO EQU PSASUP1 03989000 PSAAOLD EQU PSA+548 03990000 PSAANEW EQU PSA+544 03991000 PSATOLD EQU PSA+540 03992000 PSATNEW EQU PSA+536 03993000 PSALCCAR EQU PSA+532 03994000 PSALCCAV EQU PSA+528 03995000 PSAPCCAR EQU PSA+524 03996000 PSAPCCAV EQU PSA+520 03997000 PSACPULA EQU PSA+518 03998000 PSACPUPA EQU PSA+516 03999000 PSAPSA EQU PSA+512 04000000 FLCHDEND EQU PSA+512 04001000 FLCCRSAV EQU FLCMCLA+280 04002000 FLCGRSAV EQU FLCMCLA+216 04003000 FLCFPSAV EQU FLCMCLA+184 04004000 FLCFLA EQU FLCMCLA+88 04005000 FLCRGNCD EQU FLCMCLA+84 04006000 FLCFSAA EQU FLCFSA+1 04007000 @NM00024 EQU FLCFSA 04008000 @NM00023 EQU FLCMCLA+72 04009000 FLCMCIC EQU FLCMCLA+64 04010000 @NM00022 EQU FLCMCLA+20 04011000 FLCIOAA EQU FLCIOA+1 04012000 @NM00021 EQU FLCIOA 04013000 @NM00020 EQU FLCMCLA+15 04014000 @NM00019 EQU FLCMCLA+14 04015000 @NM00018 EQU FLCMCLA+12 04016000 FLCLCL EQU FLCMCLA+8 04017000 FLCIOELA EQU FLCIOEL+1 04018000 @NM00017 EQU FLCIOEL 04019000 FLCCHNID EQU FLCMCLA 04020000 @NM00016 EQU PSA+160 04021000 FLCMTRCD EQU PSA+157 04022000 @NM00015 EQU PSA+156 04023000 FLCPERA EQU FLCPER+1 04024000 @NM00014 EQU FLCPER 04025000 @NM00013 EQU PSA+151 04026000 FLCPERCD EQU PSA+150 04027000 FLCMCNUM EQU PSA+149 04028000 @NM00012 EQU PSA+148 04029000 FLCTEAA EQU FLCTEA+1 04030000 @NM00011 EQU FLCTEA 04031000 PSAPIPC EQU PSAPICOD 04032000 PSAPIMC EQU PSAPICOD 04033000 PSAPIPER EQU PSAPICOD 04034000 PSARV049 EQU FLCPICOD 04035000 FLCPILCB EQU FLCPIILC 04036000 @NM00010 EQU FLCPIILC 04037000 @NM00009 EQU PSAEPPSW 04038000 FLCSVCN EQU PSAESPSW+2 04039000 FLCSILCB EQU FLCSVILC 04040000 @NM00008 EQU FLCSVILC 04041000 @NM00007 EQU PSAESPSW 04042000 FLCEICOD EQU PSAEEPSW+2 04043000 PSASPAD EQU PSAEEPSW 04044000 @NM00006 EQU PSA+128 04045000 FLCINPSW EQU PSA+120 04046000 FLCMNPSW EQU PSA+112 04047000 FLCPNPSW EQU PSA+104 04048000 FLCSNPSW EQU PSA+96 04049000 FLCENPSW EQU PSA+88 04050000 FLCTRACE EQU PSA+84 04051000 FLCTIMER EQU PSA+80 04052000 FLCCVT2 EQU PSA+76 04053000 FLCCAW EQU PSA+72 04054000 FLCCSW EQU PSA+64 04055000 FLCIOPSW EQU PSA+56 04056000 FLCMOPSW EQU PSA+48 04057000 FLCPOPSW EQU PSA+40 04058000 FLCSOPSW EQU PSA+32 04059000 FLCEOPSW EQU PSA+24 04060000 @NM00005 EQU FLCICCW2+4 04061000 FLCCVT EQU FLCICCW2 04062000 FLCICCW1 EQU FLCROPSW 04063000 FLCIPPSW EQU FLCRNPSW 04064000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04065000 @RT00286 EQU UNLOCK 04066000 @RC00297 EQU @RC00289 04067000 @RT00423 EQU QSEARCH 04068000 @RC00440 EQU @RC00438 04069000 @RF00459 EQU SETUP 04070000 @ENDDATA EQU * 04071000 END ISTORFBQ,(C'PLS2158',0603,78158) 04072000