TITLE '-ISTAPM61- ***ESTAE EXIT INTERFACE RTN*** *00001000 ' 00002000 ISTAPC61 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTAPC61 77.266' 0001 00008000 DROP @15 00009000 @PROLOG BALR @11,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@11 0001 00012000 * IF ENTCODE=SDWAABS /* IF NO SDWA @OZ04697*/ 00013000 * THEN 0284 00014000 C ENTCODE,@CF02219 0284 00015000 BE @RT00284 0284 00016000 * ; /* THEN NO SAVE AREA @OZ04697*/ 00017000 * ELSE 0286 00018000 * DO; /* ELSE STORE REGS @OZ04697*/ 00019000 * STM(R14,R12,SVSTRT); /* @OZ04697*/ 00020000 STM R14,R12,SVSTRT(R13) 0287 00021000 * RFY 0288 00022000 * R12 UNRSTD; /* @OZ04697*/ 00023000 * RFY 0289 00024000 * STDSAVE BASED(SAVER13); /* @OZ04697*/ 00025000 * SAVER13=R13; /* PROTECT SAVEAREA PTR ACROSS 0290 00026000 * TPMSG, SETLOCKS @OZ04697*/ 00027000 LR SAVER13,R13 0290 00028000 * END; /* END STORE REGS @OZ04697*/ 00029000 * DO; /* LISATCVT 0292 00030000 * CVTBASE(PAGEABLE,(ATCVTPTR)) */ 00031000 @RT00284 DS 0H 0293 00032000 * ATCVTPTR=ATCLCPTR; /* SET UP ATCVT POINTER */ 00033000 L ATCVTPTR,ATCLCPTR 0293 00034000 * END; /* LISATCVT @G35RKD1*/ 00035000 * RFY 0295 00036000 * R15 RSTD; /* @G35RKD1*/ 00037000 * IF ATCVTPTR=ZERO /* IF NO ATCVT @G35RKD1*/ 00038000 * |ATCABEN=ON /* OR VTAM ABEND IN PROCESS 0296 00039000 * @G35RKD1*/ 00040000 * THEN 0296 00041000 LTR ATCVTPTR,ATCVTPTR 0296 00042000 BZ @RT00296 0296 00043000 TM ATCABEN(ATCVTPTR),B'10000000' 0296 00044000 BNO @RF00296 0296 00045000 @RT00296 DS 0H 0297 00046000 * DO; /* NOTE: THIS SITUATION WILL ONLY 00047000 * OCCUR AS A RESULT OF A VTAM 0297 00048000 * ABEND AND THE ABENDING OF AN 00049000 * APPLICATION FOR WHICH TPEND 0297 00050000 * EXIT COULD NOT BE SCHEDULED. 00051000 * APM61 IS SIMPLY PERCOLATED TO 00052000 * , NO CONDITION EXISTS . 0297 00053000 * @G35RKD1*/ 00054000 * IF ENTCODE^=SDWAABS /* IF SDWA PRESENT @G35RKD1*/ 00055000 * THEN 0298 00056000 C ENTCODE,@CF02219 0298 00057000 BE @RF00298 0298 00058000 * LM(R14,R12,SVSTRT); /* RESTORE REGS @G35RKD1*/ 00059000 LM R14,R12,SVSTRT(SAVER13) 0299 00060000 * R15=0; /* THEN SKIP ALL PROCESSING 0300 00061000 * @G35RKD1*/ 00062000 @RF00298 SLR R15,R15 0300 00063000 * RETURN; /* AND RETURN IMMEDIATELY 0301 00064000 * @G35RKD1*/ 00065000 @EL00001 DS 0H 0301 00066000 @EF00001 DS 0H 0301 00067000 @ER00001 BR @14 0301 00068000 * END; /* END NO ATCVT OR VTAM ABEND 0302 00069000 * @G35RKD1*/ 00070000 * RFY 0303 00071000 * R15 UNRSTD; /* @G35RKD1*/ 00072000 @RF00296 DS 0H 0304 00073000 * SAVER14=R14; /* SAVE REG14 FOR RETURN PURPOSES*/ 00074000 LR SAVER14,R14 0304 00075000 * RFY 0305 00076000 * R14 UNRSTD; /* @OZ04697*/ 00077000 * SAVER0=ENTCODE; /* SAVE REG0 FOR ENTRY CODE 0306 00078000 * @Z40GKD1*/ 00079000 LR SAVER0,ENTCODE 0306 00080000 * SDWAPTR=R1; /* SAVE POSSIBLE POINTER TO SDWA 00081000 * @Z40GKD1*/ 00082000 LR SDWAPTR,R1 0307 00083000 */* ISSUE MESSAGE BEFORE TAKING DUMP TO NOTIFY OPERATOR */ 00084000 * 0308 00085000 * IF ENTCODE^=12 /* SDWA EXISTENCE CODE TEST */ 00086000 * THEN 0308 00087000 C ENTCODE,@CF02219 0308 00088000 BE @RF00308 0308 00089000 * DO; /* IT DOES, SO ISSUE TPMSG, USING 00090000 * SAVEAREA */ 00091000 * R13=ADDR(SAVEREGS); /* REG13 POINTS TO 72-BYTE 0310 00092000 * SAVERAEA @OZ04697*/ 00093000 LA R13,SAVEREGS(,SDWAPTR) 0310 00094000 */* PSATOLD->TCB->TIOT->JOBNAME,STEPNAME @ZM41321*/ 00095000 * 0311 00096000 * SAVNAM1=TIOCNJOB; /* @ZM41321*/ 00097000 L @06,TCBPTR 0311 00098000 L @06,TCBTIO(,@06) 0311 00099000 MVC SAVNAM1(8,SDWAPTR),TIOCNJOB(@06) 0311 00100000 * SAVNAM2=TIOCSTEP; /* @ZM41321*/ 00101000 MVC SAVNAM2(8,SDWAPTR),TIOCSTEP(@06) 0312 00102000 * RFY 0313 00103000 * R6 RSTD; /* @ZM41321*/ 00104000 * R6=ADDR(SAVNAM1); /* @ZM41321*/ 00105000 LA R6,SAVNAM1(,SDWAPTR) 0314 00106000 */*TPMSG MSGID('413I')MSG((R6))PLAREA(SAVPARMS) */ 00107000 * 0315 00108000 * DO; 0315 00109000 * DCL 0316 00110000 * REG1009 REG(1) PTR; 0316 00111000 * RFY 0317 00112000 * (REG1009) RSTD; 0317 00113000 * RFY 0318 00114000 * (EMCR13) RSTD; 0318 00115000 * DCL 0319 00116000 * 1 * BASED(REG1009), 0319 00117000 * 2 CMZID009 PTR(31), 0319 00118000 * 2 *, 0319 00119000 * 3 CMZRL009 PTR(8), 0319 00120000 * 3 CMZRA009 PTR(24) BDY(BYTE), 0319 00121000 * 2 CMZEA009 PTR(31), 0319 00122000 * 2 CMZVP009 PTR(31); 0319 00123000 * 0319 00124000 */*XREGSET PID('PLAREA')PPARM(SAVPARMS)RREG(,REG1009) */ 00125000 * 0320 00126000 * DO; 0320 00127000 * REG1009=ADDR(SAVPARMS); /* SET RREG SYMBOL TO ADDRESS OF 00128000 * PPARM OPERAND */ 00129000 LA REG1009,SAVPARMS(,SDWAPTR) 0321 00130000 * END; /* XREGSET */ 00131000 * CMZID009=0; 0323 00132000 SLR @03,@03 0323 00133000 ST @03,CMZID009(,REG1009) 0323 00134000 * CMZRL009=0; 0324 00135000 MVI CMZRL009(REG1009),X'00' 0324 00136000 * CMZRA009=0; 0325 00137000 STCM @03,7,CMZRA009(REG1009) 0325 00138000 * CMZEA009=0; 0326 00139000 ST @03,CMZEA009(,REG1009) 0326 00140000 * CMZVP009=0; 0327 00141000 ST @03,CMZVP009(,REG1009) 0327 00142000 * DCL 0328 00143000 * CMZAA009 CHAR(4) INIT('413I'); 0328 00144000 * CMZID009=ADDR(CMZAA009); 0329 00145000 LA @03,CMZAA009 0329 00146000 ST @03,CMZID009(,REG1009) 0329 00147000 * CMZVP009=R6; 0330 00148000 ST R6,CMZVP009(,REG1009) 0330 00149000 * DCL 0331 00150000 * CMZSA009(18) PTR(31) BASED(EMCR13); 0331 00151000 * DCL 0332 00152000 * CMZZO009(1) FIXED(31) INIT(0); 0332 00153000 * CMZSA009(5)=CMZZO009; 0333 00154000 L @03,CMZZO009 0333 00155000 ST @03,CMZSA009+16(,EMCR13) 0333 00156000 * DCL 0334 00157000 * REG15009 REG(15) PTR; 0334 00158000 * RFY 0335 00159000 * REG15009 RSTD; 0335 00160000 * DO; /* LISATCVT 0336 00161000 * CVTBASE(PAGEABLE,(REG15009)) */ 00162000 * REG15009=ATCLCPTR; /* SET UP ATCVT POINTER */ 00163000 L REG15009,ATCLCPTR 0337 00164000 * END; /* LISATCVT */ 00165000 * DCL 0339 00166000 * CMTA009 BASED(REG15009) ENTRY VALUERANGE(*); 0339 00167000 * REG15009=REG15009->ATCMSGP; 0340 00168000 L REG15009,ATCMSGP(,REG15009) 0340 00169000 * CALL CMTA009; 0341 00170000 BALR @14,@15 0341 00171000 * RESPECIFY 0342 00172000 * (REG1009, 0342 00173000 * REG15009) UNRESTRICTED; 0342 00174000 * RFY 0343 00175000 * (EMCR13) UNRSTD; 0343 00176000 * END; /* @ZM41321*/ 00177000 * RFY 0345 00178000 * (R6, 0345 00179000 * R13) UNRSTD; /* @OZ04697*/ 00180000 * END; /* @ZM41321*/ 00181000 * ELSE 0347 00182000 * DO; /* NO SDWA, DO WRITE TO OPERATOR 00183000 * NOW */ 00184000 B @RC00308 0347 00185000 @RF00308 DS 0H 0348 00186000 * R1=ADDR(I041900); /* @ZM41321*/ 00187000 LA R1,I041900 0348 00188000 */***** IWTO **** */ 00189000 * 0349 00190000 * DO; 0349 00191000 * GEN; 0350 00192000 WTO MF=(E,(1)) 00193000 * END; /* IWTO @ZM41321*/ 00194000 * END; /* END SDWA PRESENT @Z40GKD1*/ 00195000 * GEN(MODESET EXTKEY=ZERO); /* SET KEY ZERO @ZM30372*/ 00196000 @RC00308 DS 0H 0353 00197000 MODESET EXTKEY=ZERO 00198000 * R1=ADDR(SDMPLST); /* POINT TO PARAMS @ZM33532*/ 00199000 LA R1,SDMPLST 0354 00200000 * GEN(SDUMP MF=(E,(1))); /* SVC DUMP @ZM33532*/ 00201000 SDUMP MF=(E,(1)) 00202000 * RFY 0356 00203000 * R1 UNRSTD; /* @OZ04697*/ 00204000 * RFY 0357 00205000 * (GPR07P, 0357 00206000 * GPR05P, 0357 00207000 * GPR12F) RSTD; /* @Y30APGE*/ 00208000 * DO; /* LISATCVT 0358 00209000 * CVTBASE(PAGEABLE,(ATCVTPTR)) */ 00210000 * ATCVTPTR=ATCLCPTR; /* SET UP ATCVT POINTER */ 00211000 L ATCVTPTR,ATCLCPTR 0359 00212000 * END; /* LISATCVT @Y30APGE*/ 00213000 * GPR07P=ATCVTPTR->ATCAP69; /* GET ADDR OF ISTAPM69 @Y30APGE*/ 00214000 L GPR07P,ATCAP69(,ATCVTPTR) 0361 00215000 * GEN REFS(GPR07P,GPR05P,GPR12F); 0362 00216000 * /* @Y30APGE*/ 00217000 SETFRR A,FRRAD=(GPR07P),PARMAD=(GPR05P),WRKREGS=(GPR05P,GPR12F) 00218000 * FRRID=APC61ID; /* FILL IN FRR PARM FIELD 0363 00219000 * @Y30APGE*/ 00220000 MVC FRRID(8,GPR05P),@CC03630 0363 00221000 * RFY 0364 00222000 * (GPR07P, 0364 00223000 * GPR05P, 0364 00224000 * GPR12F) UNRSTD; /* @Y30APGE*/ 00225000 * 0364 00226000 * /*****************************************************************/ 00227000 * /* */ 00228000 * /* * OBTAIN LOCAL MEMORY LOCK (SETLOCK). REGS=USE PARAMETER */ 00229000 * /* CAUSES REGS 14,15,0,1 TO BE CORRUPTED */ 00230000 * /* */ 00231000 * /*****************************************************************/ 00232000 * 0365 00233000 *LOCKSET: 0365 00234000 * GEN; 0365 00235000 LOCKSET DS 0H 0365 00236000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,REGS=USE, X00237000 RELATED=(ECB,ISTAPC61(LOCKREL)) 00238000 * ENTCODE=SAVER0; /* RESTORE REG0 AFTER SETFRR & 0366 00239000 * SETLOCK @Z40GKD1*/ 00240000 LR ENTCODE,SAVER0 0366 00241000 * RFY 0367 00242000 * SAVER0 UNRSTD; 0367 00243000 * 0367 00244000 * /*****************************************************************/ 00245000 * /* */ 00246000 * /* * GET ADDR OF VTAM CVT (LISATCVT) */ 00247000 * /* */ 00248000 * /*****************************************************************/ 00249000 * 0368 00250000 * DO; /* LISATCVT 0368 00251000 * CVTBASE(PAGEABLE,(ATCVTPTR)) */ 00252000 * ATCVTPTR=ATCLCPTR; /* SET UP ATCVT POINTER */ 00253000 L ATCVTPTR,ATCLCPTR 0369 00254000 * END; /* LISATCVT */ 00255000 * IF ENTCODE=SDWAABS THEN /* IF SDWA ABSENT */ 00256000 C ENTCODE,@CF02219 0371 00257000 BNE @RF00371 0371 00258000 * DO; 0372 00259000 * IF R2^=ZERO /* DOES CRA EXIST ? @ZM32662*/ 00260000 * THEN /* YES- CRA EXISTS @ZM32662*/ 00261000 LTR R2,R2 0373 00262000 BZ @RF00373 0373 00263000 * DO; /* CLEAN IT OR QUE IT @ZM32662*/ 00264000 * CRAPTR=R2; /* INITIALIZE PTR TO CRA @Z40GKD1*/ 00265000 LR CRAPTR,R2 0375 00266000 * APCRRPTR=ADDR(CRAPSS); /* LOCATE PST VIA APCPSTA */ 00267000 LA APCRRPTR,CRAPSS(,CRAPTR) 0376 00268000 * IF TCBPTR=ATCCDTCB /* IS ABENDING TASK VTAM TASK ? 00269000 * @OZ04697*/ 00270000 * THEN 0377 00271000 CLC TCBPTR(4),ATCCDTCB(ATCVTPTR) 0377 00272000 BNE @RF00377 0377 00273000 * DO; /* YES @OZ04697*/ 00274000 * CALL PSTCLN; /* SUBROUTINE FOR PST CLEANUP 0379 00275000 * @OZ04697*/ 00276000 BAL @14,PSTCLN 0379 00277000 * ENTCODE=SDWAABS; /* RESTORE ENTRY CODE @OZ04697*/ 00278000 LA ENTCODE,12 0380 00279000 * END; /* @OZ04697*/ 00280000 * ELSE 0382 00281000 * DO; /* @OZ04697*/ 00282000 B @RC00377 0382 00283000 @RF00377 DS 0H 0383 00284000 * RFY 0383 00285000 * ISTDCE BASED(DCEPTR);/* @Z40GKD1*/ 00286000 * RFY 0384 00287000 * ISTMPST BASED(PSTMPSTP);/* @Z40GKD1*/ 00288000 * RFY 0385 00289000 * ISTACDEB BASED(DCEDBPTR);/* @Z40GKD1*/ 00290000 * DCEPTR=MPSDBTBL; /* GET POINTER TO DCE CHAIN 0386 00291000 * @Z40GKD1*/ 00292000 L @06,PSTPTR(,APCRRPTR) 0386 00293000 L @06,PSTMPSTP(,@06) 0386 00294000 L DCEPTR,MPSDBTBL(,@06) 0386 00295000 * RFY 0387 00296000 * (GPR03P, 0387 00297000 * GPR04P) RSTD; /* @Z40GKD1*/ 00298000 * DO WHILE DCEPTR^=ZERO;/* WHILE THERE ARE DEBS ON THE 00299000 * CHAIN @Z40GKD1*/ 00300000 B @DE00388 0388 00301000 @DL00388 DS 0H 0389 00302000 * IF ACDTSKID^=PSTPTR/* IF DEB NOT ASSOCIATED WITH 0389 00303000 * ABENDING TASK @Z40GKD1*/ 00304000 * THEN 0389 00305000 L @06,DCEDBPTR(,DCEPTR) 0389 00306000 CLC ACDTSKID(4,@06),PSTPTR(APCRRPTR) 0389 00307000 BNE @RT00389 0389 00308000 * ; /* THEN IGNORE IT @Z40GKD1*/ 00309000 * ELSE 0391 00310000 * DO; /* ELSE FLAG DEB AS BELONGING TO 00311000 * ABENDING TASK @Z40GKD1*/ 00312000 * GPR03P=ACDSSFLG(1:4);/* ACDEB FLAGS @Z40GKD1*/ 00313000 L @06,DCEDBPTR(,DCEPTR) 0392 00314000 ICM GPR03P,15,ACDSSFLG(@06) 0392 00315000 *SETABND: 0393 00316000 * GPR04P=GPR03P|'40000000'X;/* TURN ON ACDABEND 00317000 * @Z40GKD1*/ 00318000 SETABND LR GPR04P,GPR03P 0393 00319000 O GPR04P,@CF01895 0393 00320000 * CS(GPR03P,GPR04P,ACDSSFLG(1:4));/* TEST IF ON 00321000 * @Z40GKD1*/ 00322000 L @06,DCEDBPTR(,DCEPTR) 0394 00323000 CS GPR03P,@04,ACDSSFLG(@06) 0394 00324000 * BC(4,SETABND);/* RETRY IF FAIL @Z40GKD1*/ 00325000 BC 4,SETABND 0395 00326000 * END; /* END DEB TASK ABENDING @Z40GKD1*/ 00327000 * DCEPTR=DCECHN; /* EITHER WAY, NOW EXAMINE NEXT 00328000 * DCE @Z40GKD1*/ 00329000 @RT00389 L DCEPTR,DCECHN(,DCEPTR) 0397 00330000 * END; /* END DO WHILE @Z40GKD1*/ 00331000 @DE00388 LTR DCEPTR,DCEPTR 0398 00332000 BNZ @DL00388 0398 00333000 */* SET ABEND IN PROCESS FLAG IN PST */ 00334000 * 0399 00335000 * GPR03P=PSTFLGA; /* COMPARE REG FOR CS @ZM32232*/ 00336000 L @06,PSTPTR(,APCRRPTR) 0399 00337000 L GPR03P,PSTFLGA(,@06) 0399 00338000 *ABINP1: 0400 00339000 * GPR04P=GPR03P|PSTABIP1;/* SWAP PSTABINP BIT ON 0400 00340000 * @ZM32232*/ 00341000 ABINP1 LR GPR04P,GPR03P 0400 00342000 O GPR04P,@CF01934 0400 00343000 * GPR04P=GPR04P|PSTDMPC1;/* IND DUMP TAKEN @ZM33532*/ 00344000 O GPR04P,@CF03279 0401 00345000 * CS(GPR03P,GPR04P,PSTFLGA);/* USE CS LOGIC @ZM32232*/ 00346000 L @06,PSTPTR(,APCRRPTR) 0402 00347000 CS GPR03P,@04,PSTFLGA(@06) 0402 00348000 * BC(7,ABINP1); /* TRY AGAIN IF IT FAILS @ZM32232*/ 00349000 BC 7,ABINP1 0403 00350000 * RFY 0404 00351000 * (GPR03P, 0404 00352000 * GPR04P) UNRSTD; /* RELEASE REGS @ZM32232*/ 00353000 * END; /* END OF TCB NOT VTAM'S @Z40KGK1*/ 00354000 * END; /* END OF CLEAN IT OR QUE IT 0406 00355000 * @ZM32662*/ 00356000 * ELSE /* ELSE NO CRA EXISTS @OZ04697*/ 00357000 * DO; 0407 00358000 B @RC00373 0407 00359000 @RF00373 DS 0H 0408 00360000 * IF TCBPTR=ATCCDTCB /* IF VTAM TASK ABEND @OZ04697*/ 00361000 * THEN 0408 00362000 CLC TCBPTR(4),ATCCDTCB(ATCVTPTR) 0408 00363000 BNE @RF00408 0408 00364000 * ATCVTMAB=ON; /* THEN SET INDICATOR TO SHOW IT 00365000 * @OZ04697*/ 00366000 L @06,ATCVTMAB-3(,ATCVTPTR) 0409 00367000 @GL00002 LR @04,@06 0409 00368000 O @04,@CF03785 0409 00369000 CS @06,@04,ATCVTMAB-3(ATCVTPTR) 0409 00370000 BNE @GL00002 0409 00371000 * ELSE 0410 00372000 * ; /* NOT VTAM ABEND, DO NOTHING 0410 00373000 * @OZ04697*/ 00374000 @RF00408 DS 0H 0411 00375000 * END; /* END NO CRA @OZ04697*/ 00376000 * END; /* END OF SDWA ABSENT */ 00377000 * ELSE 0413 00378000 * DO; 0413 00379000 B @RC00371 0413 00380000 @RF00371 DS 0H 0414 00381000 * CRAPTR=SDWAPARM; /* LOCATE PST VIA SDWA */ 00382000 L CRAPTR,SDWAPARM(,SDWAPTR) 0414 00383000 * IF CRAPTR^=ZERO /* DOES CRA EXIST ? @ZM32662*/ 00384000 * THEN 0415 00385000 SLR @06,@06 0415 00386000 CR CRAPTR,@06 0415 00387000 BE @RF00415 0415 00388000 * DO; /* CLEAN IT OR QUE IT AND RECORD 00389000 * IT @ZM32662*/ 00390000 */* CHECK IF PI IN ISTORFBA OR ISTORFBD--IF SO,RECORD THE ACTIVE 0417 00391000 * RPH AT TIME OF ERROR AND RETRY AT SMS CALLERS RETURN ADDRESS 0417 00392000 * @ZM33611 */ 00393000 * 0417 00394000 * IF FBABASE=ATCSMRQ+'18'X/* IF R10=FBA BASE REG @ZM33611*/ 00395000 * THEN 0417 00396000 LA @04,24 0417 00397000 AL @04,ATCSMRQ(,ATCVTPTR) 0417 00398000 L @03,FBABASE-1(,SDWAPTR) 0417 00399000 LA @03,0(,@03) 0417 00400000 CR @04,@03 0417 00401000 BNE @RF00417 0417 00402000 * DO; /* @ZM33611*/ 00403000 * SDWAMODN=FBAID; /* ERROR MODULE @ZM33611*/ 00404000 MVC SDWAMODN(8,SDWAPTR),@CC03640 0419 00405000 * SDWAGR10=0; /* ZERO OUT FBAS BASE @ZM33611*/ 00406000 ST @06,SDWAGR10(,SDWAPTR) 0420 00407000 * SDWASR15=24; /* RETRY REG 15=RC @ZM33611*/ 00408000 MVC SDWASR15(4,SDWAPTR),@CF00070 0421 00409000 * GO TO SMSETRP; /* GO RECORD ERROR @ZM33611*/ 00410000 B SMSETRP 0422 00411000 * END; /* @ZM33611*/ 00412000 * IF FBDBASE=ATCSMRS+'18'X/* IS R9=FDB BASE REG? @ZM33611*/ 00413000 * THEN 0424 00414000 @RF00417 LA @06,24 0424 00415000 AL @06,ATCSMRS(,ATCVTPTR) 0424 00416000 L @04,FBDBASE-1(,SDWAPTR) 0424 00417000 LA @04,0(,@04) 0424 00418000 CR @06,@04 0424 00419000 BNE @RF00424 0424 00420000 * DO; /* @ZM33611*/ 00421000 * SDWAMODN=FBDID; /* ERROR MODULE ID @ZM33611*/ 00422000 MVC SDWAMODN(8,SDWAPTR),@CC03642 0426 00423000 * SDWAGR09=0; /* ZERO OUT FBDS BASE @ZM33611*/ 00424000 SLR @06,@06 0427 00425000 ST @06,SDWAGR09(,SDWAPTR) 0427 00426000 * SDWASR15='4'X; /* RETRY REG 15=RC @ZM33611*/ 00427000 LA @06,4 0428 00428000 ST @06,SDWASR15(,SDWAPTR) 0428 00429000 *SMSETRP: 0429 00430000 * R1=ADDR(CRARPH); /* GET @ OF ACTIVE RPH @ZM33611*/ 00431000 SMSETRP LA R1,CRARPH(,CRAPTR) 0429 00432000 * SDWASRSV(1:60)=SDWAGRSV(1:60);/* RETRY REGS 0-14 AT 00433000 * TIME OF ERROR @ZM33611*/ 00434000 MVC SDWASRSV(60,SDWAPTR),SDWAGRSV(SDWAPTR) 0430 00435000 * SDWAVRA(1:108)=R1->ISTRPH(1:108);/* VARIABLE DATA = 00436000 * ACTIVE RPH @ZM33611*/ 00437000 MVC SDWAVRA(108,SDWAPTR),ISTRPH(R1) 0431 00438000 * SDWAURAL=108; /* SET LENGTH OF VARIABLE DATA 0432 00439000 * @ZM33611*/ 00440000 MVI SDWAURAL(SDWAPTR),X'6C' 0432 00441000 * SDWAHEX=ON; /* RECORD IN HEX @ZM33611*/ 00442000 OI SDWAHEX(SDWAPTR),B'10000000' 0433 00443000 * SDWAREXN=FRRID; /* ID FRR IN SDWA @ZM33611*/ 00444000 MVC SDWAREXN(8,SDWAPTR),FRRID(GPR05P) 0434 00445000 * R1=SDWAPTR; /* SET SDWA ADDR IN R1 @ZM33611*/ 00446000 LR R1,SDWAPTR 0435 00447000 * DO; /* SETRP RETADDR(SMSRTY)RC(SDWARE 00448000 * TY)RECORD(YES)RETREGS(YES)FRES 00449000 * DWA(YES) */ 00450000 * RESPECIFY 0437 00451000 * (GPR00P, 0437 00452000 * GPR01P, 0437 00453000 * GPR14P, 0437 00454000 * GPR15P) RSTD; 0437 00455000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 00456000 MVI SDWARCDE(GPR01P),X'04' 0438 00457000 * GPR01P->SDWARTYA=ADDR(SMSRTY);/* SAVE RETRY ADDRESS*/ 00458000 L @06,SDWAGR14(,SDWAPTR) 0439 00459000 ST @06,SDWARTYA(,GPR01P) 0439 00460000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 00461000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00462000 * GPR01P->SDWAUPRG='1'B;/* TURN ON RETREGS INDICATOR */ 00463000 OI SDWAFREE(GPR01P),B'10001100' 0442 00464000 * RESPECIFY 0443 00465000 * (GPR00P, 0443 00466000 * GPR01P, 0443 00467000 * GPR14P, 0443 00468000 * GPR15P) UNRSTD; 0443 00469000 * END; /* @ZA17020*/ 00470000 * END; /* @ZM33611*/ 00471000 * ELSE 0446 00472000 * DO; /* ERROR NOT IN SMS @Z40GKD1*/ 00473000 B @RC00424 0446 00474000 @RF00424 DS 0H 0447 00475000 * APCRRPTR=ADDR(CRAPSS);/* PSS RECOVERY RECORD */ 00476000 LA APCRRPTR,CRAPSS(,CRAPTR) 0447 00477000 * SDWAURAL=LNAVRAL; /* SET LENGTH OF VAR RECORDING 0448 00478000 * AREA */ 00479000 MVI SDWAURAL(SDWAPTR),X'64' 0448 00480000 * SDWAREXN=APC61ID; /* SET ID OF ISTAPC61 INTO SDWA 00481000 * @Z30APGE*/ 00482000 MVC SDWAREXN(8,SDWAPTR),@CC03630 0449 00483000 * SDWAHEX=ON; /* SET RECORD IN HEX BIT @Z30APGE*/ 00484000 OI SDWAHEX(SDWAPTR),B'10000000' 0450 00485000 * SDWAVRA(1:4)=CRRDEFD;/* COPY DATA TO BE RECORDED */ 00486000 MVC SDWAVRA(4,SDWAPTR),CRRDEFD(CRAPTR) 0451 00487000 * SDWAVRA(5:40)=LOCKS(1:36);/* COPY DATA TO BE RECORDED*/ 00488000 MVC SDWAVRA+4(36,SDWAPTR),LOCKS(CRAPTR) 0452 00489000 * SDWAVRA(41:60)=CRAPSS(1:20);/* COPY DATA TO BE 0453 00490000 * RECORDED */ 00491000 MVC SDWAVRA+40(20,SDWAPTR),CRAPSS(CRAPTR) 0453 00492000 * SDWAVRA(61:80)=CRAPROCR(1:20);/* COPY DATA TO BE 0454 00493000 * RECORDED */ 00494000 MVC SDWAVRA+60(20,SDWAPTR),CRAPROCR(CRAPTR) 0454 00495000 * SDWAVRA(81:100)=CRASVC(1:20);/* COPY DATA TO BE 0455 00496000 * RECORDED */ 00497000 MVC SDWAVRA+80(20,SDWAPTR),CRASVC(CRAPTR) 0455 00498000 * IF TCBPTR=ATCCDTCB /* IS ABENDING TASK VTAM TASK? 0456 00499000 * @OZ04697*/ 00500000 * THEN 0456 00501000 CLC TCBPTR(4),ATCCDTCB(ATCVTPTR) 0456 00502000 BNE @RF00456 0456 00503000 * DO; /* YES @OZ04697*/ 00504000 * SDWAPTR=SAVER13;/* PROTECT PTR TO SAVEAREA 0458 00505000 * @OZ04697*/ 00506000 LR SDWAPTR,SAVER13 0458 00507000 * CALL PSTCLN; /* SUBROUTINE TO PERFORM PST 0459 00508000 * CLEANUP @OZ04697*/ 00509000 BAL @14,PSTCLN 0459 00510000 * SAVER13=SDWAPTR;/* RESTORE SAVEAREA PTR @OZ04697*/ 00511000 LR SAVER13,SDWAPTR 0460 00512000 * SDWAPTR=STDSV1; /* RESTORE SDWA PTR FROM SAVEAREA 00513000 * @OZ04697*/ 00514000 L SDWAPTR,STDSV1(,SAVER13) 0461 00515000 * END; /* @OZ04697*/ 00516000 * ELSE /* @Z40KGK1*/ 00517000 * DO; /* @Z40KGK1*/ 00518000 B @RC00456 0463 00519000 @RF00456 DS 0H 0464 00520000 * DCEPTR=MPSDBTBL;/* GET POINTER TO DCE CHAIN 0464 00521000 * @Z40GKD1*/ 00522000 L @06,PSTPTR(,APCRRPTR) 0464 00523000 L @06,PSTMPSTP(,@06) 0464 00524000 L DCEPTR,MPSDBTBL(,@06) 0464 00525000 * RFY 0465 00526000 * (GPR03P, 0465 00527000 * GPR04P) RSTD; /* @Z40GKD1*/ 00528000 * DO WHILE DCEPTR^=ZERO;/* WHILE THERE ARE DEBS ON 00529000 * THE CHAIN @ZM41320*/ 00530000 B @DE00466 0466 00531000 @DL00466 DS 0H 0467 00532000 * IF ACDTSKID^=PSTPTR/* IF DEB NOT ASSOCIATED 0467 00533000 * WITH ABENDING TASK @Z40GKD1*/ 00534000 * THEN 0467 00535000 L @06,DCEDBPTR(,DCEPTR) 0467 00536000 CLC ACDTSKID(4,@06),PSTPTR(APCRRPTR) 0467 00537000 BNE @RT00467 0467 00538000 * ; /* THEN IGNORE IT @Z40GKD1*/ 00539000 * ELSE 0469 00540000 * DO; /* ELSE FLAG DEB AS BELONGING TO 00541000 * ABENDING TASK @Z40GKD1*/ 00542000 * GPR03P=ACDSSFLG(1:4);/* ACDEB FLAGS 0470 00543000 * @Z40GKD1*/ 00544000 L @06,DCEDBPTR(,DCEPTR) 0470 00545000 ICM GPR03P,15,ACDSSFLG(@06) 0470 00546000 *SETAB: 0471 00547000 * GPR04P=GPR03P|'40000000'X;/* TURN ON 0471 00548000 * ACDABEND @Z40GKD1*/ 00549000 SETAB LR GPR04P,GPR03P 0471 00550000 O GPR04P,@CF01895 0471 00551000 * CS(GPR03P,GPR04P,ACDSSFLG(1:4));/* TEST IF 00552000 * ON @Z40GKD1*/ 00553000 L @06,DCEDBPTR(,DCEPTR) 0472 00554000 CS GPR03P,@04,ACDSSFLG(@06) 0472 00555000 * BC(4,SETAB);/* RETRY IF FAIL @Z40GKD1*/ 00556000 BC 4,SETAB 0473 00557000 * END; /* END DEB TASK ABENDING @Z40GKD1*/ 00558000 * DCEPTR=DCECHN;/* EITHER WAY, NOW EXAMINE NEXT 00559000 * DCE @Z40GKD1*/ 00560000 @RT00467 L DCEPTR,DCECHN(,DCEPTR) 0475 00561000 * END; /* END DO WHILE @Z40GKD1*/ 00562000 @DE00466 LTR DCEPTR,DCEPTR 0476 00563000 BNZ @DL00466 0476 00564000 */* SET ABEND IN PROCESS FLAG IN PST */ 00565000 * 0477 00566000 * GPR03P=PSTFLGA; /* COMPARE REG FOR CS @ZM32232*/ 00567000 L @06,PSTPTR(,APCRRPTR) 0477 00568000 L GPR03P,PSTFLGA(,@06) 0477 00569000 *ABINP2: 0478 00570000 * GPR04P=GPR03P|PSTABIP1;/* SWAP PSTABINP ON 0478 00571000 * @ZM32232*/ 00572000 ABINP2 LR GPR04P,GPR03P 0478 00573000 O GPR04P,@CF01934 0478 00574000 * GPR04P=GPR04P|PSTDMPC1;/* IND DUMP TAKEN @ZM33532*/ 00575000 O GPR04P,@CF03279 0479 00576000 * CS(GPR03P,GPR04P,PSTFLGA);/* USE CS LOGIC 0480 00577000 * @ZM32232*/ 00578000 L @06,PSTPTR(,APCRRPTR) 0480 00579000 CS GPR03P,@04,PSTFLGA(@06) 0480 00580000 * BC(7,ABINP2); /* IF FAIL TRY AGAIN @ZM32232*/ 00581000 BC 7,ABINP2 0481 00582000 * RFY 0482 00583000 * (GPR03P, 0482 00584000 * GPR04P) UNRSTD;/* RELEASE CS REGS @ZM32232*/ 00585000 * END; /* END OF NOT VTAM ABEND @OZ04691*/ 00586000 * END; /* END OF NOT SMS ERROR @Z40GKD1*/ 00587000 * END; /* END OF CRA EXISTS @ZM32662*/ 00588000 * ELSE 0486 00589000 * DO; /* NO CRA EXISTS @ZM32662*/ 00590000 B @RC00415 0486 00591000 @RF00415 DS 0H 0487 00592000 * IF TCBPTR=ATCCDTCB /* IF VTAM TASK ABEND @OZ04697*/ 00593000 * THEN 0487 00594000 CLC TCBPTR(4),ATCCDTCB(ATCVTPTR) 0487 00595000 BNE @RF00487 0487 00596000 * ATCVTMAB=ON; /* NO CLEANUP BUT TURN ON FLAG 0488 00597000 * @OZ04697*/ 00598000 L @06,ATCVTMAB-3(,ATCVTPTR) 0488 00599000 @GL00003 LR @04,@06 0488 00600000 O @04,@CF03785 0488 00601000 CS @06,@04,ATCVTMAB-3(ATCVTPTR) 0488 00602000 BNE @GL00003 0488 00603000 * ELSE 0489 00604000 * ; /* ELSE NOT VTAM TASK ABEND 0489 00605000 * @OZ04697*/ 00606000 @RF00487 DS 0H 0490 00607000 * SDWAVRA(1:16)=NOCRA; /* RECORD FACT OF NO CRA @ZM32662*/ 00608000 MVC SDWAVRA(16,SDWAPTR),@CC03636 0490 00609000 * SDWAURAL=LENGTH(NOCRA); /* LENGTH OF MSG @ZM32662*/ 00610000 MVI SDWAURAL(SDWAPTR),X'10' 0491 00611000 * SDWAREXN=APC61ID; /* IDENTIFY RECORDER @ZM32662*/ 00612000 MVC SDWAREXN(8,SDWAPTR),@CC03630 0492 00613000 * SDWAEBC=ON; /* EBCIDIC MSG @ZM32662*/ 00614000 OI SDWAEBC(SDWAPTR),B'01000000' 0493 00615000 * END; /* END NO CRA VIA SDWA @ZM32662*/ 00616000 * 0494 00617000 * /*************************************************************/ 00618000 * /* */ 00619000 * /* * RECORD DATA, CONTINUE TERMINATION (SETRP) */ 00620000 * /* */ 00621000 * /*************************************************************/ 00622000 * 0495 00623000 * R1=SDWAPTR; /* RESTORE REG 1 PRIOR TO SETRP 00624000 * @Z30APGE*/ 00625000 @RC00415 LR R1,SDWAPTR 0495 00626000 * DO; /* SETRP RECORD(YES)RC(0) */ 00627000 * RESPECIFY 0497 00628000 * (GPR00P, 0497 00629000 * GPR01P, 0497 00630000 * GPR14P, 0497 00631000 * GPR15P) RSTD; 0497 00632000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00633000 MVI SDWARCDE(GPR01P),X'00' 0498 00634000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00635000 OI SDWARCRD(GPR01P),B'10000000' 0499 00636000 * RESPECIFY 0500 00637000 * (GPR00P, 0500 00638000 * GPR01P, 0500 00639000 * GPR14P, 0500 00640000 * GPR15P) UNRSTD; 0500 00641000 * END; 0501 00642000 * END; /* END OF SDWA EXISTS @Z40GKD1*/ 00643000 * 0502 00644000 * /*****************************************************************/ 00645000 * /* */ 00646000 * /* * RELEASE LOCAL LOCK (SETLOCK) */ 00647000 * /* */ 00648000 * /*****************************************************************/ 00649000 * 0503 00650000 *LOCKREL: 0503 00651000 * ; 0503 00652000 @RC00371 DS 0H 0503 00653000 LOCKREL DS 0H 0504 00654000 * RFY 0504 00655000 * (SAVER11) RSTD; /* RESTRICT BASE REG @ZM32046*/ 00656000 * SAVER11=R11; /* SAVE BASE REG 11 ACROSS 0505 00657000 * SETLOCK @ZM32046*/ 00658000 LR SAVER11,R11 0505 00659000 * DO; /* SETLOCK (RELEASE) TYPE(LOCAL) 00660000 * RELATED(ECB,ISTAPC61(LOCKSET))*/ 00661000 * RFY 0507 00662000 * (GPR11P, 0507 00663000 * GPR12P, 0507 00664000 * GPR13P, 0507 00665000 * GPR14P) RSTD; 0507 00666000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0508 00667000 * TABLE. */ 00668000 L GPR13P,PSALITA 0508 00669000 * GEN(LM GPR11P,GPR13P,588(GPR13P));/* LOAD LOCKWORD, CLHT AND 0509 00670000 * ENTRY ADRS. */ 00671000 LM GPR11P,GPR13P,588(GPR13P) 00672000 * GEN(BALR GPR14P,GPR13P); /* BALR TO SETLOCK RTN. */ 00673000 BALR GPR14P,GPR13P 00674000 * RFY 0511 00675000 * (GPR11P, 0511 00676000 * GPR12P, 0511 00677000 * GPR13P, 0511 00678000 * GPR14P) UNRSTD; 0511 00679000 * END; /* SETLOCK (RELEASE) TYPE(LOCAL) 00680000 * RELATED(ECB,ISTAPC61(LOCKSET))*/ 00681000 * R11=SAVER11; /* RESTORE BASE REG @ZM32046*/ 00682000 * 0513 00683000 LR R11,SAVER11 0513 00684000 * /*****************************************************************/ 00685000 * /* */ 00686000 * /* * DELETE ISTAPM69 FROM FRR STACK @ZM32046*/ 00687000 * /* */ 00688000 * /*****************************************************************/ 00689000 * 0514 00690000 * GEN REFS(GPR03P,GPR04P,PSACSTK,PSA,FRRSCURR,FRRS,FRRSEMP,FRRSELEN) 00691000 * SETS(GPR03P,GPR04P,FRRSCURR); 0514 00692000 * 0514 00693000 * /*DELETE ISTAPM69 @ZM32046* 00694000 SETFRR D,WRKREGS=(GPR03P,GPR04P) 00695000 * /*****************************************************************/ 00696000 * /* */ 00697000 * /* SETLOCK DESTROYED REGS 11-14 */ 00698000 * /* */ 00699000 * /*****************************************************************/ 00700000 * 0515 00701000 * IF ENTCODE=SDWAABS /* IF THERE HAD BEEN NO SDWA 0515 00702000 * @OZ04697*/ 00703000 * THEN 0515 00704000 C ENTCODE,@CF02219 0515 00705000 BNE @RF00515 0515 00706000 * DO; /* THEN RESTORE RETURN ADDRESS 0516 00707000 * @OZ04697*/ 00708000 * RFY 0517 00709000 * R14 RSTD; 0517 00710000 * R14=SAVER14; /* RESTORE REG 14 FOR RETURN */ 00711000 LR R14,SAVER14 0518 00712000 * END; /* END NO SDWA @OZ04697*/ 00713000 * ELSE 0520 00714000 * DO; /* ELSE SDWA SAVE AREA WAS USED 00715000 * @OZ04697*/ 00716000 B @RC00515 0520 00717000 @RF00515 DS 0H 0521 00718000 * RFY 0521 00719000 * STDSAVE BASED(R13); /* @OZ04697*/ 00720000 * RFY 0522 00721000 * (R13, 0522 00722000 * R14, 0522 00723000 * R12) RSTD; /* @OZ04697*/ 00724000 * R13=SAVER13; /* RESTORE ORIGINAL PTR TO 0523 00725000 * SAVEAREA @OZ04697*/ 00726000 LR R13,SAVER13 0523 00727000 * LM(R14,R12,SVSTRT); /* RESTORE INPUT REGS @OZ04697*/ 00728000 LM R14,R12,SVSTRT(R13) 0524 00729000 * RFY 0525 00730000 * (R13, 0525 00731000 * R12) UNRSTD; /* @OZ04697*/ 00732000 * END; /* END SAVE AREA WAS USED 0526 00733000 * @OZ04697*/ 00734000 * RFY 0527 00735000 * R15 RSTD; 0527 00736000 @RC00515 DS 0H 0528 00737000 * R15=0; /* SET RETURN CODE @Z40GKD1*/ 00738000 SLR R15,R15 0528 00739000 * RFY 0529 00740000 * (ENTCODE, 0529 00741000 * GPR13P, 0529 00742000 * GPR03P, 0529 00743000 * R1, 0529 00744000 * R2) UNRSTD; /* @OZ04697*/ 00745000 *PSTCLN: 0530 00746000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0530 00747000 * 0530 00748000 B @PB00002 0530 00749000 PSTCLN DS 0H 0531 00750000 */******************************************************************* 00751000 * THIS SUBROUTINE IS WRITTEN IN SUPPORT OF APAR OZ04697. IT IS 0531 00752000 * * CALLED WHEN THE PROCESS WHICH ABENDED IS THE VTAM TASK ITSELF, 0531 00753000 * * PROVIDED THAT A CRA IS AVAILABLE AND THE ERROR DID NOT OCCUR IN 00754000 * * SMS (IN WHICH CASE A RETRY WILL BE ATTEMPTED). THE PURPOSE OF 0531 00755000 * * THE SUBROUTINE IS TO CLEAN UP RESOURCES ASSOCIATED WITH THE 0531 00756000 * * PROCESS WHICH ABENDED, SO THAT PROCESSES NECESSARY FOR THE 0531 00757000 * * ORDERLY TERMINATION OF VTAM WILL BE DISPATCHABLE. 0531 00758000 * * 0531 00759000 * * ON INPUT, REGISTER 7 POINTS TO THE PSS RECOVERY RECORD 0531 00760000 * * REGISTER 9 HOLDS THE SYSTEM RETURN ADDR 0531 00761000 * * REGISTER 10 POINTS TO SAVE AREA IF SDWA WAS PROVIDED 0531 00762000 * * REGISTER 11 IS THE BASE REGISTER 0531 00763000 * * REGISTER 12 POINTS TO THE CRA 0531 00764000 * * REGISTER 14 IS THE RETURN ADDR FOR THE SUBROUTINE CALL 00765000 * * 0531 00766000 * * REGISTERS 9,10,11, AND 14 WILL BE RETURNED INTACT. THE VALUE 0531 00767000 * * OF ALL OTHER REGISTERS IS UNPREDICTABLE. THE CRA ASSOCIATED 0531 00768000 * * WITH THE ABENDING TASK WILL BE MARKED PURGE COMPLETE IF IT IS 0531 00769000 * * TPWAITING. IF ALREADY TPPOSTED, THE CRA WILL BE RELSTORED 0531 00770000 * ***************************************************************** */ 00771000 * 0531 00772000 * /*****************************************************************/ 00773000 * /* */ 00774000 * /* REGISTER DECLARES FOR PSTCLN */ 00775000 * /* */ 00776000 * /*****************************************************************/ 00777000 * 0531 00778000 * DCL 0531 00779000 * SUBR0 PTR(31) REG(0); /* WORK REG FOR LOCK RELEASE LOOP*/ 00780000 * DCL 0532 00781000 * SUBRPHP PTR(31) REG(1); /* PTR TO CRARPH */ 00782000 * DCL 0533 00783000 * SUBCOMP PTR(31) REG(2); /* CS COMPARE REG */ 00784000 * DCL 0534 00785000 * SUBWK3 PTR(31) REG(3); /* WK REG FOR RECOVERY DYPAB 0534 00786000 * INIT. */ 00787000 * DCL 0535 00788000 * SUBCODD PTR(31) REG(3); /* CDS ODD COMPARE REG */ 00789000 * DCL 0536 00790000 * SUBBACK PTR(31) REG(3); /* BACK POINTER FOR RPHPABQ 0536 00791000 * SEARCH */ 00792000 * DCL 0537 00793000 * SUBWK4 PTR(31) REG(4); /* WK REG FOR RECOVERY DYPAB 0537 00794000 * INIT. */ 00795000 * DCL 0538 00796000 * SUBSWAP PTR(31) REG(4); /* CS SWAP REGISTER */ 00797000 * DCL 0539 00798000 * SUBSODD PTR(31) REG(5); /* CDS ODD SWAP REG */ 00799000 * DCL 0540 00800000 * SUBPAB32 PTR(31) REG(5); /* INPUT PARAM FOR ISTAPC32 CALL */ 00801000 * DCL 0541 00802000 * SUBAPC PTR(31) REG(7) RSTD; /* PTR TO PSS RECOVERY RECORD */ 00803000 * DCL 0542 00804000 * SUBATCVT PTR(31) REG(8); /* ATCVT PTR */ 00805000 * DCL 0543 00806000 * SUBPABP PTR(31) REG(8); /* PTR TO CURRENT PAB */ 00807000 * DCL 0544 00808000 * SUBCRA PTR(31) REG(12) RSTD; /* PTR TO CRA */ 00809000 * DCL 0545 00810000 * SUBPSTP PTR(31) REG(12); /* SAVE PST@ OVER CALL TO APC64 */ 00811000 * DCL 0546 00812000 * SUBSAV14 PTR(31) REG(13) RSTD;/* SAVE RETURN ADDRESS */ 00813000 * DCL 0547 00814000 * SUBR14 PTR(31) REG(14); /* SUBRTN CALL RETURN ADDR */ 00815000 * DCL 0548 00816000 * SUBCALLR PTR(31) REG(15); /* ENTRY PT ADDR FOR CALLS */ 00817000 * 0548 00818000 * /*****************************************************************/ 00819000 * /* */ 00820000 * /* RESPECIFIES FOR PSTCLN */ 00821000 * /* */ 00822000 * /*****************************************************************/ 00823000 * 0549 00824000 * RFY 0549 00825000 * ISTAPCRR BASED(SUBAPC); 0549 00826000 * RFY 0550 00827000 * ISTPST BASED(APCPSTA); 0550 00828000 * RFY 0551 00829000 * ISTRPH BASED(SUBRPHP); 0551 00830000 * RFY 0552 00831000 * ISTPAB BASED(SUBPABP); 0552 00832000 * RFY 0553 00833000 * ISTCRA BASED(SUBCRA); 0553 00834000 * 0553 00835000 * /*****************************************************************/ 00836000 * /* */ 00837000 * /* CONSTANTS FOR PSTCLN */ 00838000 * /* */ 00839000 * /*****************************************************************/ 00840000 * 0554 00841000 * DCL 0554 00842000 * SUBPGON BIT(32) CONSTANT('00000010'X);/* TURN RPHPURGE ON */ 00843000 * DCL 0555 00844000 * SUBON BIT(1) CONSTANT('1'B); /* TURN A BIT ON */ 00845000 * DCL 0556 00846000 * SUBOFF BIT(1) CONSTANT('0'B); /* TURN A BIT OFF */ 00847000 * 0556 00848000 * /*****************************************************************/ 00849000 * /* */ 00850000 * /* BASED VARIABLES */ 00851000 * /* */ 00852000 * /*****************************************************************/ 00853000 * 0557 00854000 * DCL 0557 00855000 * ISTAPC64 ENTRY BASED(SUBCALLR) VALRG(0); 0557 00856000 * DCL 0558 00857000 * ISTAPC41 ENTRY BASED(SUBCALLR) VALRG(0); 0558 00858000 * DCL 0559 00859000 * ISTAPC32 ENTRY BASED(SUBCALLR) VALRG(0); 0559 00860000 * DCL 0560 00861000 * RCOVPAB CHAR(LENGTH(ISTDYPAB)) DEFINED(CRAPROCR); 0560 00862000 * 0561 00863000 * /*****************************************************************/ 00864000 * /* */ 00865000 * /* START OF CODE */ 00866000 * /* */ 00867000 * /*****************************************************************/ 00868000 * 0561 00869000 * RFY 0561 00870000 * (SUBATCVT, 0561 00871000 * SUBRPHP) RSTD; 0561 00872000 * SUBSAV14=SUBR14; /* SAVE RETURN ADDRESS */ 00873000 LR SUBSAV14,SUBR14 0562 00874000 * DO; /* LISATCVT 0563 00875000 * CVTBASE(PAGEABLE,(SUBATCVT)) */ 00876000 * SUBATCVT=ATCLCPTR; /* SET UP ATCVT POINTER */ 00877000 L SUBATCVT,ATCLCPTR 0564 00878000 * END; /* LISATCVT GET ATCVT ADDRESS */ 00879000 * SUBATCVT->ATCVTMAB=SUBON; /* VTAM ABENDING FLAG ON */ 00880000 L @06,ATCVTMAB-3(,SUBATCVT) 0566 00881000 @GL00004 LR @04,@06 0566 00882000 O @04,@CF03785 0566 00883000 CS @06,@04,ATCVTMAB-3(SUBATCVT) 0566 00884000 BNE @GL00004 0566 00885000 * RFY 0567 00886000 * SUBATCVT UNRSTD; 0567 00887000 * SUBRPHP=ADDR(CRARPH); /* PICK UP PTR TO CRA'S RPH */ 00888000 LA SUBRPHP,CRARPH(,SUBCRA) 0568 00889000 * RPHPURGE=SUBON; /* MARK PURGE IN PROGRESS IN RPH */ 00890000 OI RPHPURGE(SUBRPHP),B'00000010' 0569 00891000 * RFY 0570 00892000 * (SUBCOMP, 0570 00893000 * SUBSWAP) RSTD; 0570 00894000 * 0570 00895000 * /*****************************************************************/ 00896000 * /* */ 00897000 * /* GATE THE PST READY QUEUE TO PREVENT FURTHER USE AT THIS TIME */ 00898000 * /* */ 00899000 * /*****************************************************************/ 00900000 * 0571 00901000 * SUBCOMP=PSTRQUE; /* READY Q PTR */ 00902000 L @06,APCPSTA(,SUBAPC) 0571 00903000 L SUBCOMP,PSTRQUE(,@06) 0571 00904000 *SUB02: 0572 00905000 * SUBSWAP=SUBCOMP|PSTGATE1; /* TURN GATE BIT ON FOR SWAP */ 00906000 SUB02 LR SUBSWAP,SUBCOMP 0572 00907000 O SUBSWAP,@CF01889 0572 00908000 * CS(SUBCOMP,SUBSWAP,PSTRQUE); /* TURN IT ON IN PST */ 00909000 L @06,APCPSTA(,SUBAPC) 0573 00910000 CS SUBCOMP,@04,PSTRQUE(@06) 0573 00911000 * BC(7,SUB02); /* IF FAIL, RETRY */ 00912000 * 0574 00913000 BC 7,SUB02 0574 00914000 * /*****************************************************************/ 00915000 * /* */ 00916000 * /* IF A PAB EXISTS, TRY TO RESCHEDULE IT */ 00917000 * /* */ 00918000 * /*****************************************************************/ 00919000 * 0575 00920000 * RFY 0575 00921000 * SUBPABP RSTD; 0575 00922000 * SUBPABP=RPHMAJCB+RPHPABOF; /* ADDR OF CURRENT PAB FROM RPH */ 00923000 L SUBPABP,RPHMAJCB-1(,SUBRPHP) 0576 00924000 LA SUBPABP,0(,SUBPABP) 0576 00925000 SLR @06,@06 0576 00926000 IC @06,RPHPABOF(,SUBRPHP) 0576 00927000 ALR SUBPABP,@06 0576 00928000 * RFY 0577 00929000 * (SUBCODD, 0577 00930000 * SUBSODD) RSTD; 0577 00931000 * IF SUBPABP^=0 /* IF THERE IS A PAB */ 00932000 * THEN 0578 00933000 LTR SUBPABP,SUBPABP 0578 00934000 BZ @RF00578 0578 00935000 * DO; /* YES, THERE IS A PAB */ 00936000 * IF(CRACRR^=ADDR(CRAPSS))| /* IF PSS NOT IN CONTROL */ 00937000 * ((APC31R=SUBON)&(APCRESCH=SUBOFF))|/* OR APC31 WAS 0580 00938000 * RUNNING BUT RESCHED NOT YET 0580 00939000 * DONE */ 00940000 * ((APC31R=SUBOFF)&(PABRPHA=SUBRPHP))/* OR APC31 WAS NOT 0580 00941000 * RUNNING BUT PAB NOT YET MOVED 00942000 * TO RPHPABQ */ 00943000 * THEN 0580 00944000 LA @06,CRAPSS(,SUBCRA) 0580 00945000 C @06,CRACRR(,SUBCRA) 0580 00946000 BNE @RT00580 0580 00947000 TM APC31R(SUBAPC),B'00000001' 0580 00948000 BNO @GL00005 0580 00949000 TM APCRESCH(SUBAPC),B'01000000' 0580 00950000 BZ @RT00580 0580 00951000 @GL00005 TM APC31R(SUBAPC),B'00000001' 0580 00952000 BNZ @RF00580 0580 00953000 L @06,PABRPHA-1(,SUBPABP) 0580 00954000 LA @06,0(,@06) 0580 00955000 CR SUBRPHP,@06 0580 00956000 BNE @RF00580 0580 00957000 @RT00580 DS 0H 0581 00958000 * DO; /* THEN TRY TO RESCHEDULE */ 00959000 * SUBCOMP=PABCHAIN; /* OBTAIN RESCHEDULE FLAG-WORD */ 00960000 L SUBCOMP,PABCHAIN(,SUBPABP) 0582 00961000 *SUB01: 0583 00962000 * SUBSWAP=SUBCOMP&PABRESC0;/* TURN OF PABRESCH IN REG */ 00963000 SUB01 LR SUBSWAP,SUBCOMP 0583 00964000 N SUBSWAP,@CF01893 0583 00965000 * CS(SUBCOMP,SUBSWAP,PABCHAIN);/* TRY TO TURN OFF IN PAB */ 00966000 CS SUBCOMP,@04,PABCHAIN(SUBPABP) 0584 00967000 * BC(7,SUB01); /* TRY AGAIN IF FAIL */ 00968000 BC 7,SUB01 0585 00969000 * PABRPHA=0; /* DISCONNECT PAB FROM CURRENT 0586 00970000 * RPH */ 00971000 SLR @06,@06 0586 00972000 STCM @06,7,PABRPHA(SUBPABP) 0586 00973000 * LM(SUBCOMP,SUBCODD,PABWQCHN);/* PICK UP WK ELEM Q PTR AND 00974000 * PAB CHAIN PTR */ 00975000 LM SUBCOMP,SUBCODD,PABWQCHN(SUBPABP) 0587 00976000 *SUB03: 0588 00977000 * IF((SUBCOMP&'00FFFFFF'X)^=0)|/* IF PAB WK ELEM QUEUE NOT 00978000 * EMPTY (ADDR FLD ^= 0) */ 00979000 * ((SUBCODD&PABUNCO1)^=0)/* OR PAB IS TO BE 0588 00980000 * UNCONDITIONALLY RESCHED. */ 00981000 * THEN 0588 00982000 SUB03 SLR @06,@06 0588 00983000 LR @00,SUBCOMP 0588 00984000 N @00,@CF03757 0588 00985000 CR @00,@06 0588 00986000 BNE @RT00588 0588 00987000 LR @00,SUBCODD 0588 00988000 N @00,@CF01907 0588 00989000 CR @00,@06 0588 00990000 BE @RF00588 0588 00991000 @RT00588 DS 0H 0589 00992000 * DO; /* THEN RESCHEDULE PAB */ 00993000 *SUB06: 0590 00994000 * SUBSODD=SUBCODD&PABUNCO0;/* TURN OFF UNCOND. RESCHED 00995000 * BIT IN REG. */ 00996000 SUB06 LR SUBSODD,SUBCODD 0590 00997000 N SUBSODD,@CF01905 0590 00998000 * CS(SUBCODD,SUBSODD,PABCHAIN);/* TURN OFF IN PAB */ 00999000 CS SUBCODD,@05,PABCHAIN(SUBPABP) 0591 01000000 * BC(7,SUB06); /* IF FAIL, TRY AGAIN */ 01001000 BC 7,SUB06 0592 01002000 * PABCHNGP=RPHPABQP; /* IF SUCCEED, MOVE PAB TO 0593 01003000 * RPHPABQ */ 01004000 MVC PABCHNGP(3,SUBPABP),RPHPABQP(SUBRPHP) 0593 01005000 * RPHPABQP=SUBPABP; /* FOR RESCHEDULE */ 01006000 STCM SUBPABP,7,RPHPABQP(SUBRPHP) 0594 01007000 * END; /* END WORK EL. QUEUE NOT EMPTY */ 01008000 * ELSE /* ELSE WORK EL. QUEUE IS EMPTY */ 01009000 * DO; /* RESET PAB FLAGS FOR NO 0596 01010000 * RESCHEDULE */ 01011000 B @RC00588 0596 01012000 @RF00588 DS 0H 0597 01013000 * SUBSWAP=SUBCOMP&PABWEQG0;/* SET TO UNGATE PAB WK ELEM 01014000 * Q */ 01015000 L @06,@CF01887 0597 01016000 LR SUBSWAP,SUBCOMP 0597 01017000 NR SUBSWAP,@06 0597 01018000 * SUBSODD=SUBCODD&PABCHNG0;/* SET TO UNGATE PAB CHAIN */ 01019000 NR @06,SUBCODD 0598 01020000 LR SUBSODD,@06 0598 01021000 * CDS(SUBCOMP,SUBSWAP,PABWQCHN);/* UNGATE PAB CHAIN AND 01022000 * PAB WK ELEMENT Q */ 01023000 CDS SUBCOMP,SUBSWAP,PABWQCHN(SUBPABP) 0599 01024000 * BC(7,SUB03); /* IF FAIL, MUST REEXAMINE WK EL 01025000 * Q */ 01026000 BC 7,SUB03 0600 01027000 * END; /* END OF RESET FLAGS FOR NO 0601 01028000 * RESCHED. */ 01029000 * END; /* END OF TRY TO RESCHEDULE */ 01030000 * END; /* END OF THERE IS A PAB */ 01031000 * ELSE 0604 01032000 * ; /* NO PROCESSING TO DO IF NO PAB */ 01033000 @RF00578 DS 0H 0605 01034000 * RFY 0605 01035000 * (SUBCODD, 0605 01036000 * SUBSODD, 0605 01037000 * SUBSWAP, 0605 01038000 * SUBCOMP) UNRSTD; 0605 01039000 @RC00578 DS 0H 0606 01040000 * 0606 01041000 * /*****************************************************************/ 01042000 * /* */ 01043000 * /* RESCHEDULE ALL PABS QUEUED ON RPHPABQ */ 01044000 * /* */ 01045000 * /*****************************************************************/ 01046000 * 0606 01047000 * RFY 0606 01048000 * (SUBBACK) RSTD; 0606 01049000 * DO WHILE(RPHPABQP^=0); /* EMPTY RPHPABQ OF ALL PABS */ 01050000 B @DE00607 0607 01051000 @DL00607 DS 0H 0608 01052000 * SUBBACK=0; /* INITIALIZE BACK PTR */ 01053000 SLR SUBBACK,SUBBACK 0608 01054000 * SUBPABP=RPHPABQP; /* GET 1ST PAB ON Q */ 01055000 L SUBPABP,RPHPABQP-1(,SUBRPHP) 0609 01056000 LA SUBPABP,0(,SUBPABP) 0609 01057000 * DO WHILE(PABCHNGP^=0); /* FIND END OF Q */ 01058000 B @DE00610 0610 01059000 @DL00610 DS 0H 0611 01060000 * SUBBACK=SUBPABP; /* SAVE CURRENT PAB PTR */ 01061000 LR SUBBACK,SUBPABP 0611 01062000 * SUBPABP=PABCHNGP; /* PICK UP NEXT PAB PTR */ 01063000 L @06,PABCHNGP-1(,SUBPABP) 0612 01064000 LA @06,0(,@06) 0612 01065000 LR SUBPABP,@06 0612 01066000 * END; /* END DOWHILE TO END OF Q */ 01067000 @DE00610 L @06,PABCHNGP-1(,SUBPABP) 0613 01068000 LA @06,0(,@06) 0613 01069000 LTR @06,@06 0613 01070000 BNZ @DL00610 0613 01071000 * IF SUBBACK=0 /* WAS ONLY ONE PAB ON Q? */ 01072000 * THEN /* YES */ 01073000 SLR @06,@06 0614 01074000 CR SUBBACK,@06 0614 01075000 BNE @RF00614 0614 01076000 * RPHPABQP=0; /* DEQUEUE IT FROM RPH Q */ 01077000 STCM @06,7,RPHPABQP(SUBRPHP) 0615 01078000 * ELSE 0616 01079000 * SUBBACK->PABCHNGP=0; /* ELSE DEQUEUE LAST PAB ON CHAIN*/ 01080000 B @RC00614 0616 01081000 @RF00614 SLR @06,@06 0616 01082000 STCM @06,7,PABCHNGP(SUBBACK) 0616 01083000 * RFY 0617 01084000 * (SUBCALLR, 0617 01085000 * SUBPAB32) RSTD; 0617 01086000 @RC00614 DS 0H 0618 01087000 * SUBPAB32=SUBPABP; /* SET UP PARAM FOR CALL TO 0618 01088000 * ISTAPC32 */ 01089000 LR SUBPAB32,SUBPABP 0618 01090000 * DO; /* LISATCVT 0619 01091000 * CVTBASE(PAGEABLE,(SUBATCVT)) */ 01092000 * SUBATCVT=ATCLCPTR; /* SET UP ATCVT POINTER */ 01093000 L SUBATCVT,ATCLCPTR 0620 01094000 * END; /* LISATCVT */ 01095000 * SUBCALLR=SUBATCVT->ATCAP32; /* GET ENTRY PT ADDRESS */ 01096000 L SUBCALLR,ATCAP32(,SUBATCVT) 0622 01097000 * CALL ISTAPC32; /* LET APC32 QUEUE PAB TO PST OR 01098000 * MPST READY QUEUE */ 01099000 BALR @14,@15 0623 01100000 * RFY 0624 01101000 * (SUBCALLR, 0624 01102000 * SUBPAB32) UNRSTD; 0624 01103000 * END; /* END DOWHILE RPHPABQ NOT EMPTY */ 01104000 @DE00607 L @06,RPHPABQP-1(,SUBRPHP) 0625 01105000 LA @06,0(,@06) 0625 01106000 LTR @06,@06 0625 01107000 BNZ @DL00607 0625 01108000 * RFY 0626 01109000 * (SUBBACK) UNRSTD; 0626 01110000 * 0627 01111000 * /*****************************************************************/ 01112000 * /* */ 01113000 * /* INITIALIZE THE RECOVERY DYPAB IN CRAPROCR SO IF THE RPH IS */ 01114000 * /* POSTED AFTER CLEANUP, IT WILL RUN UNDER AN SRB AND VTAM WILL */ 01115000 * /* GET CONTROL */ 01116000 * /* */ 01117000 * /*****************************************************************/ 01118000 * 0627 01119000 * RFY 0627 01120000 * (SUBWK3, 0627 01121000 * SUBWK4) RSTD; 0627 01122000 * SUBWK3=ADDR(RCOVPAB); /* POINT TO RECOVERY DYPAB IN CRA*/ 01123000 LA SUBWK3,RCOVPAB(,SUBCRA) 0628 01124000 * SUBWK4=ADDR(SUBWK3->DYPPAB); /* POINT TO RECOVERY PAB */ 01125000 LA SUBWK4,DYPPAB(,SUBWK3) 0629 01126000 * SUBWK3->ISTDYPAB(1:LENGTH(ISTDYPAB)) 0630 01127000 * 0630 01128000 * /*****************************************************************/ 01129000 * /* */ 01130000 * /* COPY INTO RECOVERY DYPAB */ 01131000 * /* */ 01132000 * /*****************************************************************/ 01133000 * 0630 01134000 * =PSTSMDYP(1:LENGTH(ISTDYPAB)); 0630 01135000 * 0630 01136000 L @06,APCPSTA(,SUBAPC) 0630 01137000 MVC ISTDYPAB(32,SUBWK3),PSTSMDYP(@06) 0630 01138000 * /*****************************************************************/ 01139000 * /* */ 01140000 * /* FROM PST SMS PAB */ 01141000 * /* */ 01142000 * /*****************************************************************/ 01143000 * 0631 01144000 * SUBWK4->PABRPHA=SUBRPHP; /* CONNECT RECOVERY PAB TO RPH */ 01145000 STCM SUBRPHP,7,PABRPHA(SUBWK4) 0631 01146000 * SUBWK4->PABFLAGS='00'X; /* SET ALL PAB FLAGS OFF */ 01147000 MVI PABFLAGS(SUBWK4),X'00' 0632 01148000 * SUBWK4->PABDYNAM=SUBON; /* NOW SET FLAG TO SHOW DYNAMIC 01149000 * PAB */ 01150000 OI PABDYNAM(SUBWK4),B'00010000' 0633 01151000 * RPHPABOF=SUBWK4->PABOFFST; /* CONNECT RPH TO PAB */ 01152000 MVC RPHPABOF(1,SUBRPHP),PABOFFST(SUBWK4) 0634 01153000 * RPHMAJCB=SUBWK3; /* RPH MAJCB IS CRAPROCR=DYPAB */ 01154000 STCM SUBWK3,7,RPHMAJCB(SUBRPHP) 0635 01155000 * SUBWK3->DYPTSKID=APCPSTA->PSTMPSTP;/* POINT PAB TO VTAM'S MPST IN 01156000 * CASE IT GETS POSTED AFTER TASK 01157000 * TERM COMPLETES */ 01158000 L @00,PSTMPSTP(,@06) 0636 01159000 ST @00,DYPTSKID(,SUBWK3) 0636 01160000 * APCRTRN=CVTSRBRT; /* INSURE SRB RETURN ADDRESS */ 01161000 L @06,CVTPTR 0637 01162000 L @06,CVTSRBRT(,@06) 0637 01163000 ST @06,APCRTRN(,SUBAPC) 0637 01164000 * APCSSTSK='0'B; /* IDENTIFY AS SRB PROCESS */ 01165000 NI APCSSTSK(SUBAPC),B'01111111' 0638 01166000 * RFY 0639 01167000 * (SUBWK3, 0639 01168000 * SUBWK4) UNRSTD; 0639 01169000 * RFY 0640 01170000 * (SUBCALLR, 0640 01171000 * SUBPSTP) RSTD; 0640 01172000 * SUBPSTP=APCPSTA; /* SAVE PST ADDR OVER CALL TO 0641 01173000 * APC64 */ 01174000 L @06,APCPSTA(,SUBAPC) 0641 01175000 LR SUBPSTP,@06 0641 01176000 * RFY 0642 01177000 * ISTPST BASED(SUBPSTP); 0642 01178000 * DO; /* LISATCVT 0643 01179000 * CVTBASE(PAGEABLE,(SUBATCVT)) */ 01180000 * SUBATCVT=ATCLCPTR; /* SET UP ATCVT POINTER */ 01181000 L SUBATCVT,ATCLCPTR 0644 01182000 * END; /* LISATCVT */ 01183000 * SUBCALLR=SUBATCVT->ATCAP64; /* SET UP FOR CALL TO APC64 */ 01184000 L SUBCALLR,ATCAP64(,SUBATCVT) 0646 01185000 * SUBRPHP=RPHCRR; /* REG 1 MUST POINT TO CRA ON 0647 01186000 * INPUT */ 01187000 L SUBRPHP,RPHCRR(,SUBRPHP) 0647 01188000 * CALL ISTAPC64; /* APC64 WILL FREE ALL LOCKS HELD 01189000 * BY CURRENT RPH, AND WILL SET 01190000 * RPH PURGE COMPLETE OR RELSTORE 01191000 * THE CRA */ 01192000 BALR @14,@15 0648 01193000 * RFY 0649 01194000 * (SUBCALLR) UNRSTD; 0649 01195000 * RFY 0650 01196000 * (SUBCOMP, 0650 01197000 * SUBSWAP, 0650 01198000 * SUBPSTP) RSTD; 0650 01199000 * 0650 01200000 */*PSTFLGA HAS IRB IN USE, USER EXIT RUNNING, AND SYSTEM SERVICE 0651 01201000 * RUNNING FLAGS */ 01202000 * 0651 01203000 * SUBCOMP=PSTFLGA; 0651 01204000 L SUBCOMP,PSTFLGA(,SUBPSTP) 0651 01205000 *SUB04: 0652 01206000 * SUBSWAP=SUBCOMP&PSTIRB10 /* SET IRB1-IN-USE FLAG OFF */ 01207000 * &PSTIRB20 /* SET IRB2-IN-USE FLAG OFF */ 01208000 * &PSTUERN0 /* SET USER EXIT FLAG OFF */ 01209000 * &PSTSSRN0; /* SET SYSTEM SERVICE FLAG OFF */ 01210000 SUB04 LR SUBSWAP,SUBCOMP 0652 01211000 N SUBSWAP,@CF03782 0652 01212000 * CS(SUBCOMP,SUBSWAP,PSTFLGA); /* TURN THEM OFF IN PST */ 01213000 CS SUBCOMP,@04,PSTFLGA(SUBPSTP) 0653 01214000 * BC(7,SUB04); /* IF FAIL, TRY AGAIN */ 01215000 BC 7,SUB04 0654 01216000 * DO; /* LISATCVT 0655 01217000 * CVTBASE(PAGEABLE,(SUBATCVT)) */ 01218000 * SUBATCVT=ATCLCPTR; /* SET UP ATCVT POINTER */ 01219000 L SUBATCVT,ATCLCPTR 0656 01220000 * END; /* LISATCVT */ 01221000 * RFY 0658 01222000 * (SUBCOMP, 0658 01223000 * SUBSWAP) UNRSTD; 0658 01224000 * RFY 0659 01225000 * (SUBCALLR) RSTD; 0659 01226000 * SUBRPHP=SUBPSTP; /* SET UP REG1 WITH PST ADDR FOR 01227000 * CALL TO APC41 */ 01228000 LR SUBRPHP,SUBPSTP 0660 01229000 * SUBCALLR=SUBATCVT->ATCAP41; /* SET UP FOR CALL TO APC41 */ 01230000 L SUBCALLR,ATCAP41(,SUBATCVT) 0661 01231000 * CALL ISTAPC41; /* SCHEDULE AN IRB FOR ANY PABS 01232000 * ON PST READY Q */ 01233000 BALR @14,@15 0662 01234000 * RFY 0663 01235000 * (SUBPSTP, 0663 01236000 * SUBATCVT, 0663 01237000 * SUBCALLR) UNRSTD; 0663 01238000 * RFY 0664 01239000 * SUBR14 RSTD; 0664 01240000 * SUBR14=SUBSAV14; /* RESTORE RETURN ADDRESS */ 01241000 LR SUBR14,SUBSAV14 0665 01242000 * RETURN; /* RETURN TO CALLER */ 01243000 @EL00002 DS 0H 0666 01244000 @EF00002 DS 0H 0666 01245000 @ER00002 BR @14 0666 01246000 * END PSTCLN; /* END OF SUBROUTINE */ 01247000 @PB00002 DS 0H 0668 01248000 */* TPEPILOG */ 01249000 * 0668 01250000 * GEN(PRINT OFF); 0668 01251000 PRINT OFF 01252000 * DECLARE 0669 01253000 * EMCR0 PTR REG(0), 0669 01254000 * EMCR1 PTR REG(1), 0669 01255000 * EMCR2 PTR REG(2), 0669 01256000 * EMCR3 PTR REG(3), 0669 01257000 * EMCR4 PTR REG(4), 0669 01258000 * EMCR5 PTR REG(5), 0669 01259000 * EMCR6 PTR REG(6), 0669 01260000 * EMCR7 PTR REG(7), 0669 01261000 * EMCR8 PTR REG(8), 0669 01262000 * EMCR9 PTR REG(9), 0669 01263000 * EMCR10 PTR REG(10), 0669 01264000 * EMCR11 PTR REG(11), 0669 01265000 * EMCR12 PTR REG(12), 0669 01266000 * EMCR13 PTR REG(13), 0669 01267000 * EMCR14 PTR REG(14), 0669 01268000 * EMCR15 PTR REG(15); 0669 01269000 * GEN(PRINT ON); 0670 01270000 * 0670 01271000 PRINT ON 01272000 */* END OF TPEPILOG */ 01273000 * 0671 01274000 * END ISTAPC61 0671 01275000 * 0671 01276000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01277000 */*%INCLUDE SYSLIB (CVT ) */ 01278000 */*%INCLUDE SYSLIB (IHASRB ) */ 01279000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01280000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01281000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01282000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01283000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 01284000 * 0671 01285000 * ; 0671 01286000 B @EL00001 0671 01287000 @DATA DS 0H 01288000 @DATD DSECT 01289000 DS 0F 01290000 ISTAPC61 CSECT 01291000 DS 0F 01292000 @CF02219 DC F'12' 01293000 @CF00070 DC F'24' 01294000 @CF03782 DC F'268435455' 01295000 @CF01887 DC XL4'7FFFFFFF' 01296000 @CF01889 DC XL4'80000000' 01297000 @CF01893 DC XL4'BFFFFFFF' 01298000 @CF01895 DC XL4'40000000' 01299000 @CF01905 DC XL4'EFFFFFFF' 01300000 @CF01907 DC XL4'10000000' 01301000 @CF01934 DC XL4'01000000' 01302000 @CF03279 DC XL4'00400000' 01303000 @CF03757 DC XL4'00FFFFFF' 01304000 @CF03785 DC BL4'00000000000000000000000010000000' 01305000 @DATD DSECT 01306000 DS 0D 01307000 ISTAPC61 CSECT 01308000 DS 0F 01309000 @SIZDATD DC AL1(0) 01310000 DC AL3(@ENDDATD-@DATD) 01311000 DS 0D 01312000 @CC03636 DC C'NO CRA AVAILABLE' 01313000 @CC03630 DC C'ISTAPC61' 01314000 @CC03640 DC C'ISTORFBA' 01315000 @CC03642 DC C'ISTORFBD' 01316000 I041900 DS CL81 01317000 ORG I041900 01318000 I0190001 DC F'75' 01319000 I0190002 DC X'8000' 01320000 I0190003 DC CL71' DUMP BEING TAKEN FOR ABENDING TASK ' 01321000 I0419004 DC X'1000' 01322000 I0419005 DC X'4100' 01323000 ORG I041900+81 01324000 CMZAA009 DC CL4'413I' 01325000 DS CL3 01326000 CMZZO009 DC F'0' 01327000 ISTAPC61 CSECT 01328000 * /* SDUMP, IS FORM @ZM33532*/ 01329000 SDMPLST SDUMP HDR='ISTAPC61-VTAM IRB ABEND', *01330000 SDATA=(SQA,NUC,RGN,LPA,TRT,ALLPSA,CSA),MF=L 01331000 @DATD DSECT 01332000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01333000 @ENDDATD EQU * 01334000 ISTAPC61 CSECT 01335000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01336000 @01 EQU 01 01337000 @02 EQU 02 01338000 @03 EQU 03 01339000 @04 EQU 04 01340000 @05 EQU 05 01341000 @06 EQU 06 01342000 @07 EQU 07 01343000 @08 EQU 08 01344000 @09 EQU 09 01345000 @10 EQU 10 01346000 @11 EQU 11 01347000 @12 EQU 12 01348000 @13 EQU 13 01349000 @14 EQU 14 01350000 @15 EQU 15 01351000 SDWAPTR EQU @10 01352000 RPHPTR EQU @01 01353000 GPR00P EQU @00 01354000 GPR01P EQU @01 01355000 GPR03P EQU @03 01356000 GPR04P EQU @04 01357000 GPR05P EQU @05 01358000 GPR07P EQU @07 01359000 GPR11P EQU @11 01360000 GPR12F EQU @12 01361000 GPR12P EQU @12 01362000 GPR13P EQU @13 01363000 GPR14P EQU @14 01364000 GPR15P EQU @15 01365000 ENTCODE EQU @00 01366000 R1 EQU @01 01367000 R2 EQU @02 01368000 SAVER13 EQU @02 01369000 SAVER0 EQU @04 01370000 DCEPTR EQU @05 01371000 R6 EQU @06 01372000 SAVER11 EQU @07 01373000 APCRRPTR EQU @07 01374000 ATCVTPTR EQU @08 01375000 SAVER14 EQU @09 01376000 R11 EQU @11 01377000 CRAPTR EQU @12 01378000 R12 EQU @12 01379000 R13 EQU @13 01380000 R14 EQU @14 01381000 R15 EQU @15 01382000 REG1009 EQU @01 01383000 EMCR13 EQU @13 01384000 REG15009 EQU @15 01385000 SUBRPHP EQU @01 01386000 SUBCOMP EQU @02 01387000 SUBWK3 EQU @03 01388000 SUBCODD EQU @03 01389000 SUBBACK EQU @03 01390000 SUBWK4 EQU @04 01391000 SUBSWAP EQU @04 01392000 SUBSODD EQU @05 01393000 SUBPAB32 EQU @05 01394000 SUBAPC EQU @07 01395000 SUBATCVT EQU @08 01396000 SUBPABP EQU @08 01397000 SUBCRA EQU @12 01398000 SUBPSTP EQU @12 01399000 SUBSAV14 EQU @13 01400000 SUBR14 EQU @14 01401000 SUBCALLR EQU @15 01402000 EMCR0 EQU @00 01403000 EMCR1 EQU @01 01404000 EMCR10 EQU @10 01405000 EMCR11 EQU @11 01406000 EMCR12 EQU @12 01407000 EMCR14 EQU @14 01408000 EMCR15 EQU @15 01409000 EMCR2 EQU @02 01410000 EMCR3 EQU @03 01411000 EMCR4 EQU @04 01412000 EMCR5 EQU @05 01413000 EMCR6 EQU @06 01414000 EMCR7 EQU @07 01415000 EMCR8 EQU @08 01416000 EMCR9 EQU @09 01417000 GPR00F EQU @00 01418000 GPR01F EQU @01 01419000 GPR02F EQU @02 01420000 GPR02P EQU @02 01421000 GPR03F EQU @03 01422000 GPR04F EQU @04 01423000 GPR05F EQU @05 01424000 GPR06F EQU @06 01425000 GPR06P EQU @06 01426000 GPR07F EQU @07 01427000 GPR08F EQU @08 01428000 GPR08P EQU @08 01429000 GPR09F EQU @09 01430000 GPR09P EQU @09 01431000 GPR10F EQU @10 01432000 GPR10P EQU @10 01433000 GPR11F EQU @11 01434000 GPR13F EQU @13 01435000 GPR14F EQU @14 01436000 GPR15F EQU @15 01437000 R4 EQU @04 01438000 SUBR0 EQU @00 01439000 CVTPTR EQU 16 01440000 PSA EQU 0 01441000 FLCRNPSW EQU PSA 01442000 FLCROPSW EQU PSA+8 01443000 FLCICCW2 EQU PSA+16 01444000 PSAEEPSW EQU PSA+132 01445000 PSAESPSW EQU PSA+136 01446000 FLCSVILC EQU PSAESPSW+1 01447000 PSAEPPSW EQU PSA+140 01448000 FLCPIILC EQU PSAEPPSW+1 01449000 FLCPICOD EQU PSAEPPSW+2 01450000 PSAPICOD EQU FLCPICOD+1 01451000 FLCTEA EQU PSAEPPSW+4 01452000 FLCPER EQU PSA+152 01453000 FLCMCLA EQU PSA+168 01454000 FLCIOEL EQU FLCMCLA+4 01455000 FLCIOA EQU FLCMCLA+16 01456000 FLCFSA EQU FLCMCLA+80 01457000 PSATOLD EQU PSA+540 01458000 PSASUPER EQU PSA+552 01459000 PSASUP1 EQU PSASUPER 01460000 PSASUP2 EQU PSASUPER+1 01461000 PSASUP3 EQU PSASUPER+2 01462000 PSASUP4 EQU PSASUPER+3 01463000 PSACLHT EQU PSA+640 01464000 PSALKSA EQU PSA+696 01465000 PSAHLHI EQU PSA+760 01466000 PSALITA EQU PSA+764 01467000 PSADSSFL EQU PSA+836 01468000 PSADSSF1 EQU PSADSSFL 01469000 PSADSSF3 EQU PSADSSFL+2 01470000 PSADSSF4 EQU PSADSSFL+3 01471000 PSARSVT EQU PSA+896 01472000 ATCLCPTR EQU 1032 01473000 CVTMAP EQU 0 01474000 CVTDAR EQU CVTMAP+72 01475000 CVTFLGS1 EQU CVTDAR 01476000 CVTDCB EQU CVTMAP+116 01477000 CVTIERLC EQU CVTMAP+144 01478000 CVTOPTA EQU CVTMAP+182 01479000 CVTOPTB EQU CVTMAP+183 01480000 CVTGTF EQU CVTMAP+236 01481000 CVTGTFST EQU CVTGTF 01482000 CVTGTFS EQU CVTGTFST 01483000 CVTSTATE EQU CVTGTFST 01484000 CVTTMODE EQU CVTGTFST 01485000 CVTFORM EQU CVTGTFST 01486000 CVTAQAVT EQU CVTMAP+240 01487000 CVTTCMFG EQU CVTAQAVT 01488000 CVTVOLM2 EQU CVTMAP+244 01489000 CVTTATA EQU CVTVOLM2 01490000 CVTTSKS EQU CVTTATA 01491000 CVTVOLF2 EQU CVTTSKS 01492000 CVTTAT EQU CVTTATA+1 01493000 CVTATER EQU CVTMAP+248 01494000 CVTEXT1 EQU CVTMAP+252 01495000 CVTPURG EQU CVTMAP+260 01496000 CVTQMSG EQU CVTMAP+268 01497000 CVTDMSR EQU CVTMAP+272 01498000 CVTRSV37 EQU CVTDMSR 01499000 CVTDMSRF EQU CVTRSV37 01500000 CVTERPV EQU CVTMAP+316 01501000 CVTINTLA EQU CVTMAP+320 01502000 CVTAPF EQU CVTMAP+324 01503000 CVTEXT2 EQU CVTMAP+328 01504000 CVTHJES EQU CVTMAP+332 01505000 CVTPGSIA EQU CVTMAP+348 01506000 CVTA1F1 EQU CVTMAP+356 01507000 CVTSYSK EQU CVTMAP+357 01508000 CVTVOLM1 EQU CVTMAP+380 01509000 CVTVOLF1 EQU CVTVOLM1 01510000 CVTATMCT EQU CVTMAP+388 01511000 CVTXTNT1 EQU 0 01512000 CVTXTNT2 EQU 0 01513000 CVTDSSV EQU CVTXTNT2 01514000 CVTFLGBT EQU CVTXTNT2+5 01515000 CVTQID EQU CVTXTNT2+24 01516000 CVTSHS EQU CVTXTNT2+40 01517000 CVTRV400 EQU CVTXTNT2+52 01518000 CVTRV409 EQU CVTXTNT2+53 01519000 CVTATCVT EQU CVTXTNT2+64 01520000 CVTRV429 EQU CVTXTNT2+84 01521000 CVTRV438 EQU CVTXTNT2+85 01522000 CVTRV457 EQU CVTXTNT2+112 01523000 CVTRV466 EQU CVTXTNT2+113 01524000 CVTFIX EQU 0 01525000 CVTRELNO EQU CVTFIX+252 01526000 SRBSECT EQU 0 01527000 SRBFLC EQU SRBSECT+12 01528000 SRBPTR EQU 0 01529000 SDWA EQU 0 01530000 SDWAPARM EQU SDWA 01531000 SDWAFIOB EQU SDWA+4 01532000 SDWAABCC EQU SDWAFIOB 01533000 SDWACMPF EQU SDWAABCC 01534000 SDWACTL1 EQU SDWA+8 01535000 SDWACMKA EQU SDWACTL1 01536000 SDWAMWPA EQU SDWACTL1+1 01537000 SDWAPMKA EQU SDWACTL1+4 01538000 SDWACTL2 EQU SDWA+16 01539000 SDWACMKP EQU SDWACTL2 01540000 SDWAMWPP EQU SDWACTL2+1 01541000 SDWAPMKP EQU SDWACTL2+4 01542000 SDWAGRSV EQU SDWA+24 01543000 SDWAGR09 EQU SDWAGRSV+36 01544000 SDWAGR10 EQU SDWAGRSV+40 01545000 SDWAGR14 EQU SDWAGRSV+56 01546000 SDWANAME EQU SDWA+88 01547000 SDWAEC1 EQU SDWA+104 01548000 SDWAEMK1 EQU SDWAEC1 01549000 SDWAMWP1 EQU SDWAEC1+1 01550000 SDWAINT1 EQU SDWAEC1+2 01551000 SDWANXT1 EQU SDWAEC1+4 01552000 SDWAAEC1 EQU SDWA+112 01553000 SDWAILC1 EQU SDWAAEC1+1 01554000 SDWAINC1 EQU SDWAAEC1+2 01555000 SDWAICD1 EQU SDWAINC1+1 01556000 SDWAEC2 EQU SDWA+120 01557000 SDWAEMK2 EQU SDWAEC2 01558000 SDWAMWP2 EQU SDWAEC2+1 01559000 SDWAINT2 EQU SDWAEC2+2 01560000 SDWANXT2 EQU SDWAEC2+4 01561000 SDWAAEC2 EQU SDWA+128 01562000 SDWAILC2 EQU SDWAAEC2+1 01563000 SDWAINC2 EQU SDWAAEC2+2 01564000 SDWAICD2 EQU SDWAINC2+1 01565000 SDWASRSV EQU SDWA+136 01566000 SDWASR15 EQU SDWASRSV+60 01567000 SDWAIDNT EQU SDWA+200 01568000 SDWAMCH EQU SDWA+204 01569000 SDWASTCK EQU SDWAMCH 01570000 SDWAMCHI EQU SDWAMCH+8 01571000 SDWAMCHS EQU SDWAMCHI 01572000 SDWAMCHD EQU SDWAMCHI+1 01573000 SDWARSR1 EQU SDWAMCH+12 01574000 SDWARSR2 EQU SDWAMCH+13 01575000 SDWAFLGS EQU SDWA+232 01576000 SDWAERRA EQU SDWAFLGS 01577000 SDWAERRB EQU SDWAFLGS+1 01578000 SDWAERRC EQU SDWAFLGS+2 01579000 SDWAERRD EQU SDWAFLGS+3 01580000 SDWAIOFS EQU SDWA+238 01581000 SDWARTYA EQU SDWA+240 01582000 SDWACPUA EQU SDWA+248 01583000 SDWAPARQ EQU SDWA+252 01584000 SDWARCDE EQU SDWAPARQ 01585000 SDWAACF2 EQU SDWAPARQ+1 01586000 SDWARCRD EQU SDWAACF2 01587000 SDWAUPRG EQU SDWAACF2 01588000 SDWAFREE EQU SDWAACF2 01589000 SDWAACF3 EQU SDWAPARQ+2 01590000 SDWAACF4 EQU SDWAPARQ+3 01591000 SDWALKWA EQU SDWA+256 01592000 SDWALKWS EQU SDWALKWA 01593000 SDWARECP EQU SDWA+292 01594000 SDWAMODN EQU SDWARECP 01595000 SDWAREXN EQU SDWARECP+16 01596000 SDWASNPA EQU SDWA+320 01597000 SDWADUMP EQU SDWASNPA 01598000 SDWADPFS EQU SDWADUMP+1 01599000 SDWADDAT EQU SDWASNPA+4 01600000 SDWASDAT EQU SDWADDAT 01601000 SDWAPDAT EQU SDWADDAT+2 01602000 SDWADPSA EQU SDWA+328 01603000 SDWADPSL EQU SDWADPSA 01604000 SDWARA EQU SDWA+400 01605000 SDWADPVA EQU SDWARA+2 01606000 SDWAHEX EQU SDWADPVA 01607000 SDWAEBC EQU SDWADPVA 01608000 SDWAURAL EQU SDWARA+3 01609000 SDWAVRA EQU SDWARA+4 01610000 FRRS EQU 0 01611000 FRRSHEAD EQU FRRS 01612000 FRRSEMP EQU FRRSHEAD 01613000 FRRSELEN EQU FRRSHEAD+8 01614000 FRRSCURR EQU FRRSHEAD+12 01615000 FRRSPTR EQU 0 01616000 FRRSENTR EQU 0 01617000 FRRSFLGS EQU FRRSENTR+4 01618000 FRRSFLG1 EQU FRRSFLGS 01619000 FRREPTR EQU 0 01620000 TCBFIX EQU 0 01621000 TCBFRS EQU TCBFIX 01622000 TCB EQU 0 01623000 TCBPIE EQU TCB+4 01624000 TCBPMASK EQU TCBPIE 01625000 TCBTIO EQU TCB+12 01626000 TCBCMP EQU TCB+16 01627000 TCBCMPF EQU TCBCMP 01628000 TCBCPP EQU TCBCMPF 01629000 TCBSTCC EQU TCBCMPF 01630000 TCBCDBL EQU TCBCMPF 01631000 TCBCWTO EQU TCBCMPF 01632000 TCBCIND EQU TCBCMPF 01633000 TCBCMSG EQU TCBCMPF 01634000 TCBTRN EQU TCB+20 01635000 TCBABF EQU TCBTRN 01636000 TCBMSS EQU TCB+24 01637000 TCBPKF EQU TCB+28 01638000 TCBFLGS EQU TCB+29 01639000 TCBFLGS1 EQU TCBFLGS 01640000 TCBFLGS2 EQU TCBFLGS+1 01641000 TCBFLGS3 EQU TCBFLGS+2 01642000 TCBFLGS4 EQU TCBFLGS+3 01643000 TCBFLGS5 EQU TCBFLGS+4 01644000 TCBABWF EQU TCBFLGS5 01645000 TCBJPQ EQU TCB+44 01646000 TCBPURGE EQU TCBJPQ 01647000 TCBGRS EQU TCB+48 01648000 TCBFSA EQU TCB+112 01649000 TCBTME EQU TCB+120 01650000 TCBJSTCB EQU TCB+124 01651000 TCBTSFLG EQU TCB+148 01652000 TCBTSTSK EQU TCBTSFLG 01653000 TCBSTAB EQU TCB+160 01654000 TCBNSTAE EQU TCBSTAB 01655000 TCBTCT EQU TCB+164 01656000 TCBTCTGF EQU TCBTCT 01657000 TCBSCNDY EQU TCB+172 01658000 TCBNDSP EQU TCBSCNDY 01659000 TCBNDSP1 EQU TCBNDSP+1 01660000 TCBNDSP2 EQU TCBNDSP+2 01661000 TCBNDSP3 EQU TCBNDSP+3 01662000 TCBJSCB EQU TCB+180 01663000 TCBRECDE EQU TCBJSCB 01664000 TCBEXT1 EQU TCB+196 01665000 TCBBITS EQU TCB+200 01666000 TCBNDSP4 EQU TCBBITS 01667000 TCBNDSP5 EQU TCBBITS+1 01668000 TCBFLGS6 EQU TCBBITS+2 01669000 TCBFLGS7 EQU TCBBITS+3 01670000 TCBDAR EQU TCB+204 01671000 TCBDARC EQU TCBDAR 01672000 TCBEXT2 EQU TCB+208 01673000 TCBFOE EQU TCB+244 01674000 TCBESTAE EQU TCB+264 01675000 TCBESTRM EQU TCBESTAE+1 01676000 TCBFBYT1 EQU TCB+276 01677000 TCBFBYT2 EQU TCB+277 01678000 TCBRV124 EQU TCB+278 01679000 TCBRV133 EQU TCB+279 01680000 TCBXTNT2 EQU 0 01681000 TCBGTF EQU TCBXTNT2 01682000 TCBTFLG EQU TCBGTF 01683000 TCBRV146 EQU TCBXTNT2+28 01684000 TCBRV155 EQU TCBXTNT2+29 01685000 TCBRV164 EQU TCBXTNT2+30 01686000 TCBRV173 EQU TCBXTNT2+31 01687000 TIOT1 EQU 0 01688000 TIOCNJOB EQU TIOT1 01689000 TIOCSTEP EQU TIOT1+8 01690000 ISTPAB EQU 0 01691000 PABWQCHN EQU ISTPAB 01692000 PABWEQA EQU PABWQCHN 01693000 PABCHAIN EQU PABWQCHN+4 01694000 PABCHNGP EQU PABCHAIN+1 01695000 PABOFFST EQU ISTPAB+8 01696000 PABRPHFG EQU ISTPAB+12 01697000 PABFLAGS EQU PABRPHFG 01698000 PABDYNAM EQU PABFLAGS 01699000 PABERLCK EQU PABFLAGS 01700000 PABERRLK EQU PABERLCK 01701000 PABRPHA EQU PABRPHFG+1 01702000 ISTLOK EQU 0 01703000 LOKCHN EQU ISTLOK+1 01704000 LOKCHNG EQU LOKCHN 01705000 @NM00086 EQU LOKCHNG+2 01706000 ISTDYPAB EQU 0 01707000 DYPTSKID EQU ISTDYPAB+8 01708000 DYPPAB EQU ISTDYPAB+16 01709000 ISTRPH EQU 0 01710000 RPHCNTL EQU ISTRPH 01711000 RPHFLAGS EQU RPHCNTL+2 01712000 RPHAPTYP EQU RPHFLAGS 01713000 RPHFSTLC EQU RPHFLAGS 01714000 RPHFLGB EQU RPHCNTL+3 01715000 RPHRPHA EQU ISTRPH+4 01716000 RPHTSKID EQU ISTRPH+8 01717000 RPHRESMA EQU ISTRPH+16 01718000 RPHWPFLG EQU RPHRESMA 01719000 RPHPURGE EQU RPHWPFLG 01720000 RPHPABOF EQU ISTRPH+20 01721000 RPHMAJCB EQU ISTRPH+21 01722000 RPHWEA EQU ISTRPH+24 01723000 RPHCSPA EQU RPHWEA 01724000 RPHSRPRM EQU ISTRPH+28 01725000 RPHCRR EQU ISTRPH+32 01726000 RPHPABQA EQU ISTRPH+36 01727000 RPHPABQP EQU RPHPABQA+1 01728000 RPHWORK EQU ISTRPH+40 01729000 RPHSAVE1 EQU RPHWORK 01730000 RPHSBITS EQU RPHSAVE1+1 01731000 ISTATCVT EQU 0 01732000 ATCCOM EQU ISTATCVT 01733000 ATCSTAT EQU ATCCOM 01734000 ATCSTAT1 EQU ATCSTAT 01735000 ATCSTFLG EQU ATCSTAT+1 01736000 ATCPOFLG EQU ATCSTAT+2 01737000 ATCSTAT4 EQU ATCSTAT+3 01738000 ATCIOTRC EQU ATCCOM+140 01739000 ATCTHTRC EQU ATCIOTRC 01740000 ATCSMRQ EQU ATCCOM+180 01741000 ATCSMRS EQU ATCCOM+188 01742000 ATCCSMR EQU ISTATCVT+296 01743000 ATCSHRFG EQU ISTATCVT+316 01744000 ATCMSGP EQU ISTATCVT+344 01745000 ATCHPGM EQU ISTATCVT+384 01746000 ATCVLCNT EQU ISTATCVT+772 01747000 ATCRNO EQU ISTATCVT+788 01748000 ATCSOPD EQU ISTATCVT+792 01749000 ATCSIPD EQU ISTATCVT+800 01750000 ATCSECST EQU ISTATCVT+812 01751000 ATCSTAT2 EQU ISTATCVT+818 01752000 ATCVTBAM EQU ISTATCVT+908 01753000 @NM00097 EQU ATCVTBAM+3 01754000 ATCVTMAB EQU @NM00097 01755000 ATCAOSM EQU ISTATCVT+912 01756000 ATCGSRBQ EQU ATCAOSM+4 01757000 ATCGSRBG EQU ATCGSRBQ 01758000 ATCAP32 EQU ATCAOSM+28 01759000 ATCAP63 EQU ATCAOSM+60 01760000 ATCAP64 EQU ATCAOSM+64 01761000 ATCICAPP EQU ATCAOSM+100 01762000 ATCCDTCB EQU ATCICAPP+8 01763000 ATCLDAPP EQU ATCAOSM+120 01764000 ATCDAPVT EQU ATCAOSM+140 01765000 ATCCRA EQU ATCAOSM+280 01766000 ATCCRACN EQU ATCCRA+4 01767000 ATCSRB EQU ATCAOSM+288 01768000 ATCSRBCN EQU ATCSRB+4 01769000 ATCCRPL EQU ATCAOSM+296 01770000 ATCRPLCN EQU ATCCRPL+4 01771000 ATCSQAFR EQU ATCAOSM+304 01772000 ATCORTBC EQU ATCSQAFR+4 01773000 ATCORSRB EQU ATCORTBC 01774000 @NM00099 EQU ATCAOSM+332 01775000 ATCABEN EQU @NM00099 01776000 ATCVTFLG EQU ATCAOSM+392 01777000 ATCAP41 EQU ATCAOSM+512 01778000 ATCAP69 EQU ATCAOSM+540 01779000 ATCZFLAG EQU ATCAOSM+588 01780000 ISTLCCW EQU 0 01781000 LCCWOP EQU ISTLCCW 01782000 LCCWRWOP EQU LCCWOP 01783000 LCCWCTL EQU LCCWRWOP 01784000 LCCWFLAG EQU ISTLCCW+1 01785000 LCCWLSI EQU LCCWFLAG 01786000 ISTLCPB EQU 0 01787000 LCPREQTG EQU ISTLCPB+2 01788000 LCPFLAGS EQU LCPREQTG 01789000 LCPZF001 EQU LCPFLAGS 01790000 LCPZRT02 EQU LCPZF001 01791000 LCPZF002 EQU LCPFLAGS 01792000 LCPZRT03 EQU LCPZF002 01793000 LCPZF003 EQU LCPFLAGS 01794000 LCPZRT04 EQU LCPZF003 01795000 LCPZF004 EQU LCPFLAGS 01796000 LCPZRT05 EQU LCPZF004 01797000 LCPZRT06 EQU LCPFLAGS 01798000 LCPZRT07 EQU LCPFLAGS 01799000 LCPMNRCD EQU LCPREQTG+1 01800000 LCPZRT08 EQU LCPMNRCD 01801000 LCPZRT09 EQU LCPMNRCD 01802000 LCPCHAIN EQU ISTLCPB+4 01803000 LCPCHAI1 EQU LCPCHAIN 01804000 LCPRUCNT EQU ISTLCPB+8 01805000 LCPFLAG2 EQU ISTLCPB+9 01806000 LCPTLBPI EQU LCPFLAG2 01807000 LCPFID0 EQU LCPFLAG2 01808000 LCPSEQ EQU ISTLCPB+10 01809000 LCPCID EQU ISTLCPB+16 01810000 LCPFDBA EQU ISTLCPB+24 01811000 LCPFLG1 EQU ISTLCPB+37 01812000 LCPFLCCW EQU ISTLCPB+40 01813000 LCPLCCW EQU ISTLCPB+48 01814000 LCPPABA EQU LCPLCCW+4 01815000 LCPRPHA EQU LCPPABA 01816000 LCPBPTR EQU 0 01817000 ISTZSAVE EQU 0 01818000 ZSAZSVBC EQU ISTZSAVE 01819000 ZSAZSVMS EQU ZSAZSVBC 01820000 ISTPFCRR EQU 0 01821000 PFCCRR EQU ISTPFCRR 01822000 PFCCRRID EQU PFCCRR 01823000 PFCCRRLN EQU PFCCRR+2 01824000 PFCHDR EQU ISTPFCRR+4 01825000 PFCCRRO EQU PFCHDR 01826000 PFCFRRO EQU PFCHDR+4 01827000 ISTCFCRR EQU 0 01828000 CFCAUDIT EQU ISTCFCRR 01829000 CFCNTRD EQU CFCAUDIT 01830000 CFCCRT EQU CFCAUDIT+1 01831000 ISTZCRR EQU 0 01832000 ZCRCRR EQU ISTZCRR 01833000 ZCRFLGS1 EQU ISTZCRR+12 01834000 ZCRFLGS2 EQU ISTZCRR+13 01835000 ZCRSWFLD EQU ISTZCRR+14 01836000 ZCRENDSH EQU ZCRSWFLD 01837000 ZCRNDLCP EQU ZCRSWFLD 01838000 ZCRRESET EQU ZCRSWFLD 01839000 ZCRFLGS3 EQU ISTZCRR+15 01840000 ZCRGENSW EQU ISTZCRR+16 01841000 ZCRPFLGS EQU ISTZCRR+17 01842000 ZCRIBPR EQU ISTZCRR+18 01843000 ZCRSCPSW EQU ISTZCRR+19 01844000 ZCRPARMS EQU ISTZCRR+24 01845000 ZCRFBPTR EQU ZCRPARMS 01846000 ZCRDFRDA EQU ZCRPARMS+10 01847000 ZCRPCOD1 EQU ZCRPARMS+12 01848000 ZCRPLSBF EQU ZCRPCOD1 01849000 ZCRPCOD2 EQU ZCRPARMS+13 01850000 ZCRSVRTN EQU ISTZCRR+56 01851000 ZCRWKARA EQU ISTZCRR+156 01852000 ZCRCIDSV EQU ISTZCRR+192 01853000 ZCRAUDIT EQU ISTZCRR+440 01854000 ZCRENTER EQU ZCRAUDIT+5 01855000 ZCRLCPB EQU ISTZCRR+480 01856000 ZCRRHRU EQU ZCRLCPB 01857000 ISTASCRR EQU 0 01858000 ASCFLAGS EQU ISTASCRR+16 01859000 ASCFLG1 EQU ASCFLAGS 01860000 ASCFLG2 EQU ASCFLAGS+2 01861000 ASCFLG3 EQU ASCFLAGS+4 01862000 ASCUSRGS EQU ISTASCRR+28 01863000 ISTAPCRR EQU 0 01864000 APCATFLG EQU ISTAPCRR+16 01865000 APCRFLG EQU ISTAPCRR+18 01866000 APC31R EQU APCRFLG 01867000 APCPSTA EQU ISTAPCRR+20 01868000 APCRTRN EQU ISTAPCRR+28 01869000 APCSAVE EQU ISTAPCRR+44 01870000 APCCOMF EQU ISTAPCRR+116 01871000 APCCOMF1 EQU APCCOMF 01872000 APCSSTSK EQU APCCOMF1 01873000 APC31FLG EQU ISTAPCRR+132 01874000 APCRESCH EQU APC31FLG 01875000 APC52FLG EQU ISTAPCRR+133 01876000 APC53FLG EQU ISTAPCRR+134 01877000 APC54FLG EQU ISTAPCRR+135 01878000 APC57FLG EQU ISTAPCRR+136 01879000 ISTCRA EQU 0 01880000 CRABASIC EQU ISTCRA 01881000 CRAHDR EQU CRABASIC 01882000 CRACRR EQU CRAHDR 01883000 CRALKACT EQU CRABASIC+8 01884000 CRARPH EQU ISTCRA+52 01885000 CRAPSS EQU ISTCRA+160 01886000 CRAPROCR EQU ISTCRA+312 01887000 CRASVC EQU ISTCRA+848 01888000 CRABUFA EQU CRASVC+68 01889000 ISTPST EQU 0 01890000 PSTRQFGA EQU ISTPST+8 01891000 PSTRQUE EQU PSTRQFGA 01892000 PSTFLGA EQU PSTRQFGA+4 01893000 PSTABINP EQU PSTFLGA 01894000 PSTMPSTP EQU ISTPST+20 01895000 PSTSMDYP EQU ISTPST+64 01896000 PSTDMPS EQU ISTPST+132 01897000 ISTAVT EQU 0 01898000 ISTAS49 EQU ISTAVT+4 01899000 ISTDCE EQU 0 01900000 DCEDBPTR EQU ISTDCE 01901000 DCECHN EQU ISTDCE+4 01902000 ISTMPST EQU 0 01903000 MPSRSV07 EQU ISTMPST+4 01904000 MPSRQUE EQU ISTMPST+8 01905000 MPSFLGA EQU ISTMPST+12 01906000 MPSCRA EQU ISTMPST+24 01907000 MPSCRACT EQU MPSCRA+4 01908000 MPSSRB EQU ISTMPST+32 01909000 MPSSRBCT EQU MPSSRB+4 01910000 MPSCRPL EQU ISTMPST+40 01911000 MPSRPLCT EQU MPSCRPL+4 01912000 MPSDBTBL EQU ISTMPST+124 01913000 ISTACDEB EQU 0 01914000 ACDVTPRX EQU ISTACDEB 01915000 ACDTSKID EQU ACDVTPRX+8 01916000 ACDDBPFX EQU ISTACDEB+16 01917000 ACDTBLOF EQU ACDDBPFX+6 01918000 ACDBASIC EQU ISTACDEB+24 01919000 ACDTCBAD EQU ACDBASIC 01920000 ACDNMSUB EQU ACDTCBAD 01921000 ACDDEBAD EQU ACDBASIC+4 01922000 ACDUSRPG EQU ACDBASIC+16 01923000 ACDACBAD EQU ACDBASIC+24 01924000 ACDAPPAD EQU ACDBASIC+28 01925000 ACDVTAM EQU ISTACDEB+56 01926000 ACDSSFLG EQU ACDVTAM+80 01927000 ACDAPDAT EQU ACDVTAM+83 01928000 ISTMPLT EQU 0 01929000 MPLCDS EQU ISTMPLT+16 01930000 MPLFLGS1 EQU MPLCDS+6 01931000 SMSRTY EQU 0 01932000 FRRAREA EQU 0 01933000 FRRID EQU FRRAREA 01934000 STDSAVE EQU 0 01935000 SVSTRT EQU STDSAVE+12 01936000 STDSV1 EQU SVSTRT+12 01937000 @NM00125 EQU 0 01938000 CMZID009 EQU @NM00125 01939000 @NM00126 EQU @NM00125+4 01940000 CMZRL009 EQU @NM00126 01941000 CMZRA009 EQU @NM00126+1 01942000 CMZEA009 EQU @NM00125+8 01943000 CMZVP009 EQU @NM00125+12 01944000 CMZSA009 EQU 0 01945000 CMTA009 EQU 0 01946000 ISTAPC64 EQU 0 01947000 ISTAPC41 EQU 0 01948000 ISTAPC32 EQU 0 01949000 ISTAPC63 EQU 0 01950000 CVTS01 EQU CVTPGSIA 01951000 CVTLPDIA EQU CVTS01+12 01952000 CVTDIRST EQU CVTLPDIA 01953000 CVTSLIDA EQU CVTS01+24 01954000 CVTCTLFG EQU CVTS01+50 01955000 CVTSRBRT EQU CVTS01+100 01956000 CVTRV210 EQU CVTS01+424 01957000 CVTRV219 EQU CVTS01+425 01958000 CVTRV228 EQU CVTS01+426 01959000 CVTRV237 EQU CVTS01+427 01960000 CVTMFRTR EQU CVTS01+452 01961000 CVTRV262 EQU CVTS01+468 01962000 CVTRV271 EQU CVTS01+469 01963000 CVTRV280 EQU CVTS01+470 01964000 CVTRV289 EQU CVTS01+471 01965000 CVTGSDA EQU CVTS01+600 01966000 PSARSVTE EQU PSARSVT 01967000 PSACSTK EQU PSARSVTE 01968000 TCBPTR EQU PSATOLD 01969000 TIOTPTR EQU TCBTIO 01970000 TIOENTRY EQU TIOT1+24 01971000 TIOESTTA EQU TIOENTRY+1 01972000 TIOERLOC EQU TIOENTRY+2 01973000 TIOELINK EQU TIOERLOC+1 01974000 TIOESYOT EQU TIOELINK 01975000 TIOESTTC EQU TIOENTRY+15 01976000 TIOESTTB EQU TIOENTRY+16 01977000 POOLSTAR EQU TIOENTRY+20 01978000 TIOEDEVE EQU TIOESTTB 01979000 TIOSTTB EQU TIOEDEVE 01980000 LCPZTIE EQU LCPCID 01981000 LCPZSNAM EQU LCPZTIE+8 01982000 PSTPTR EQU APCPSTA 01983000 LOCKS EQU CRALKACT 01984000 CRRDEFD EQU CRACRR 01985000 FBABREG EQU SDWAGR10 01986000 FBABASE EQU FBABREG+1 01987000 FBDBREG EQU SDWAGR09 01988000 FBDBASE EQU FBDBREG+1 01989000 SAVEREGS EQU SDWAVRA 01990000 SAVPARMS EQU SDWAVRA+72 01991000 SAVNAM1 EQU SDWAVRA+88 01992000 SAVNAM2 EQU SDWAVRA+96 01993000 RCOVPAB EQU CRAPROCR 01994000 FLC EQU PSA 01995000 SRB EQU SRBSECT 01996000 * START UNREFERENCED COMPONENTS 01997000 @NM00120 EQU FBDBREG 01998000 @NM00119 EQU FBABREG 01999000 LCPZTRV4 EQU LCPZSNAM+4 02000000 LCPZTRV1 EQU LCPZSNAM 02001000 LCPZSNA EQU LCPZTIE+4 02002000 LCPZFMCA EQU LCPZTIE 02003000 TIOUCBP EQU TIOEDEVE+1 02004000 TIOVERF EQU TIOSTTB 02005000 TIOUNLD EQU TIOSTTB 02006000 TIOMNTD EQU TIOSTTB 02007000 TIOSETU EQU TIOSTTB 02008000 TIOVLSR EQU TIOSTTB 02009000 TIOPVIO EQU TIOSTTB 02010000 TIOREQD EQU TIOSTTB 02011000 TIOUSED EQU TIOSTTB 02012000 TIOTFEND EQU POOLSTAR+16 02013000 TIOPSLOT EQU POOLSTAR+13 02014000 TIOPSTTB EQU POOLSTAR+12 02015000 TIOPPOOL EQU POOLSTAR+4 02016000 TIOPNSRT EQU POOLSTAR+3 02017000 @NM00084 EQU POOLSTAR+2 02018000 TIOPNSLT EQU POOLSTAR+1 02019000 @NM00083 EQU POOLSTAR 02020000 TIOEFSRT EQU TIOENTRY+17 02021000 TIOSVERF EQU TIOESTTB 02022000 TIOSUNLD EQU TIOESTTB 02023000 TIOSMNTD EQU TIOESTTB 02024000 TIOSSETU EQU TIOESTTB 02025000 TIOSVLSR EQU TIOESTTB 02026000 TIOSPVIO EQU TIOESTTB 02027000 TIOSREQD EQU TIOESTTB 02028000 TIOSUSED EQU TIOESTTB 02029000 TIOSBALS EQU TIOESTTC 02030000 TIOSBALP EQU TIOESTTC 02031000 TIOSVOLS EQU TIOESTTC 02032000 TIOSVOLP EQU TIOESTTC 02033000 TIOSAFFS EQU TIOESTTC 02034000 TIOSAFFP EQU TIOESTTC 02035000 TIOSDEFR EQU TIOESTTC 02036000 TIOSDKCR EQU TIOESTTC 02037000 TIOEJFCB EQU TIOENTRY+12 02038000 TIOEDDNM EQU TIOENTRY+4 02039000 TIOTREM EQU TIOELINK 02040000 TIOESSDS EQU TIOESYOT 02041000 TIOESYIN EQU TIOELINK 02042000 TIOEQNAM EQU TIOELINK 02043000 TIOEDYNM EQU TIOELINK 02044000 TIOTTERM EQU TIOELINK 02045000 TIOTRV01 EQU TIOELINK 02046000 TIOSYOUT EQU TIOELINK 02047000 TIOEWTCT EQU TIOERLOC 02048000 TIOSDSP2 EQU TIOESTTA 02049000 TIOSDSP1 EQU TIOESTTA 02050000 TIOSLABL EQU TIOESTTA 02051000 TIOSDADS EQU TIOESTTA 02052000 TIOSJBLB EQU TIOESTTA 02053000 TIOSPLTS EQU TIOESTTA 02054000 TIOSPLTP EQU TIOESTTA 02055000 TIOSLTYP EQU TIOESTTA 02056000 TIOELNGH EQU TIOENTRY 02057000 PSARSAV EQU PSARSVTE+60 02058000 PSARSTK EQU PSARSVTE+56 02059000 PSAESAV3 EQU PSARSVTE+52 02060000 PSAESTK3 EQU PSARSVTE+48 02061000 PSAESAV2 EQU PSARSVTE+44 02062000 PSAESTK2 EQU PSARSVTE+40 02063000 PSAESAV1 EQU PSARSVTE+36 02064000 PSAESTK1 EQU PSARSVTE+32 02065000 PSAPSAV EQU PSARSVTE+28 02066000 PSAPSTK EQU PSARSVTE+24 02067000 PSAMSAV EQU PSARSVTE+20 02068000 PSAMSTK EQU PSARSVTE+16 02069000 PSASSAV EQU PSARSVTE+12 02070000 PSASSTK EQU PSARSVTE+8 02071000 PSANSTK EQU PSARSVTE+4 02072000 CVTRV628 EQU CVTS01+728 02073000 CVTRV627 EQU CVTS01+724 02074000 CVTRV626 EQU CVTS01+720 02075000 CVTRV625 EQU CVTS01+716 02076000 CVTRV624 EQU CVTS01+712 02077000 CVTRV623 EQU CVTS01+708 02078000 CVTRV622 EQU CVTS01+704 02079000 CVTRV621 EQU CVTS01+700 02080000 CVTRV620 EQU CVTS01+696 02081000 CVTRV619 EQU CVTS01+692 02082000 CVTRV618 EQU CVTS01+688 02083000 CVTRV617 EQU CVTS01+684 02084000 CVTRV616 EQU CVTS01+680 02085000 CVTRV615 EQU CVTS01+676 02086000 CVTRV614 EQU CVTS01+672 02087000 CVTRV613 EQU CVTS01+668 02088000 CVTTCASP EQU CVTS01+664 02089000 CVT0PT03 EQU CVTS01+660 02090000 CVT0PT0E EQU CVTS01+656 02091000 CVTIRM EQU CVTS01+652 02092000 CVTCGK EQU CVTS01+648 02093000 CVTRV607 EQU CVTS01+644 02094000 CVTRV606 EQU CVTS01+640 02095000 CVTRV605 EQU CVTS01+636 02096000 CVTRV604 EQU CVTS01+632 02097000 CVTEFF02 EQU CVTS01+628 02098000 CVTCBBR EQU CVTS01+624 02099000 CVTSSCR EQU CVTS01+620 02100000 CVTEVENT EQU CVTS01+616 02101000 CVTCRCA EQU CVTS01+612 02102000 CVTTPIO EQU CVTS01+608 02103000 CVTADV EQU CVTS01+604 02104000 CVTGSDAB EQU CVTGSDA 02105000 CVTQV3 EQU CVTS01+596 02106000 CVTQV2 EQU CVTS01+592 02107000 CVTQV1 EQU CVTS01+588 02108000 CVTRPT EQU CVTS01+584 02109000 CVTSSRB EQU CVTS01+580 02110000 CVTCSDRL EQU CVTS01+576 02111000 CVTEXP1 EQU CVTS01+572 02112000 CVTRMPMT EQU CVTS01+568 02113000 CVTRMPTT EQU CVTS01+564 02114000 CVTVPSA EQU CVTS01+560 02115000 CVTVSTOP EQU CVTS01+556 02116000 CVTGTFR8 EQU CVTS01+552 02117000 CVTQUIT EQU CVTS01+548 02118000 CVTVACR EQU CVTS01+544 02119000 CVTWTCB EQU CVTS01+540 02120000 CVTSTPRS EQU CVTS01+536 02121000 CVT0PT02 EQU CVTS01+532 02122000 CVTDARCM EQU CVTS01+528 02123000 CVTIRECM EQU CVTS01+524 02124000 CVTJRECM EQU CVTS01+520 02125000 CVTVEMS0 EQU CVTS01+516 02126000 CVTSPFRR EQU CVTS01+512 02127000 CVTRLSTG EQU CVTS01+508 02128000 CVT0TC0A EQU CVTS01+504 02129000 CVTGMBR EQU CVTS01+500 02130000 CVTLFRM EQU CVTS01+496 02131000 CVTRMBR EQU CVTS01+492 02132000 CVTVIOP EQU CVTS01+488 02133000 CVTRV307 EQU CVTS01+486 02134000 CVTRV306 EQU CVTS01+484 02135000 CVTRV305 EQU CVTS01+482 02136000 CVTRV304 EQU CVTS01+480 02137000 CVTRV303 EQU CVTS01+478 02138000 CVTRV302 EQU CVTS01+476 02139000 CVTTRCA EQU CVTS01+472 02140000 CVTRV297 EQU CVTRV289 02141000 CVTRV296 EQU CVTRV289 02142000 CVTRV295 EQU CVTRV289 02143000 CVTRV294 EQU CVTRV289 02144000 CVTRV293 EQU CVTRV289 02145000 CVTRV292 EQU CVTRV289 02146000 CVTRV291 EQU CVTRV289 02147000 CVTRV290 EQU CVTRV289 02148000 CVTRV288 EQU CVTRV280 02149000 CVTRV287 EQU CVTRV280 02150000 CVTRV286 EQU CVTRV280 02151000 CVTRV285 EQU CVTRV280 02152000 CVTRV284 EQU CVTRV280 02153000 CVTRV283 EQU CVTRV280 02154000 CVTRV282 EQU CVTRV280 02155000 CVTRV281 EQU CVTRV280 02156000 CVTRV279 EQU CVTRV271 02157000 CVTRV278 EQU CVTRV271 02158000 CVTRV277 EQU CVTRV271 02159000 CVTRV276 EQU CVTRV271 02160000 CVTRV275 EQU CVTRV271 02161000 CVTRV274 EQU CVTRV271 02162000 CVTRV273 EQU CVTRV271 02163000 CVTRV272 EQU CVTRV271 02164000 CVTRV270 EQU CVTRV262 02165000 CVTRV269 EQU CVTRV262 02166000 CVTRV268 EQU CVTRV262 02167000 CVTRV267 EQU CVTRV262 02168000 CVTRV266 EQU CVTRV262 02169000 CVTRV265 EQU CVTRV262 02170000 CVTRV264 EQU CVTRV262 02171000 CVTRV263 EQU CVTRV262 02172000 CVTVFP EQU CVTS01+464 02173000 CVTVSI EQU CVTS01+460 02174000 CVTVPSIB EQU CVTS01+456 02175000 CVTMFACT EQU CVTMFRTR 02176000 CVTMFCTL EQU CVTS01+448 02177000 CVTPVBP EQU CVTS01+444 02178000 CVTPWI EQU CVTS01+440 02179000 CVTRV254 EQU CVTS01+438 02180000 CVTRV253 EQU CVTS01+436 02181000 CVTRV252 EQU CVTS01+434 02182000 CVTRV251 EQU CVTS01+433 02183000 CVTRV250 EQU CVTS01+432 02184000 CVTRV249 EQU CVTS01+431 02185000 CVTRV248 EQU CVTS01+430 02186000 CVTRV247 EQU CVTS01+429 02187000 CVTRV246 EQU CVTS01+428 02188000 CVTRV245 EQU CVTRV237 02189000 CVTRV244 EQU CVTRV237 02190000 CVTRV243 EQU CVTRV237 02191000 CVTRV242 EQU CVTRV237 02192000 CVTRV241 EQU CVTRV237 02193000 CVTRV240 EQU CVTRV237 02194000 CVTRV239 EQU CVTRV237 02195000 CVTRV238 EQU CVTRV237 02196000 CVTRV236 EQU CVTRV228 02197000 CVTRV235 EQU CVTRV228 02198000 CVTRV234 EQU CVTRV228 02199000 CVTRV233 EQU CVTRV228 02200000 CVTRV232 EQU CVTRV228 02201000 CVTRV231 EQU CVTRV228 02202000 CVTRV230 EQU CVTRV228 02203000 CVTRV229 EQU CVTRV228 02204000 CVTRV227 EQU CVTRV219 02205000 CVTRV226 EQU CVTRV219 02206000 CVTRV225 EQU CVTRV219 02207000 CVTRV224 EQU CVTRV219 02208000 CVTRV223 EQU CVTRV219 02209000 CVTRV222 EQU CVTRV219 02210000 CVTRV221 EQU CVTRV219 02211000 CVTRV220 EQU CVTRV219 02212000 CVTRV218 EQU CVTRV210 02213000 CVTRV217 EQU CVTRV210 02214000 CVTRV216 EQU CVTRV210 02215000 CVTRV215 EQU CVTRV210 02216000 CVTRV214 EQU CVTRV210 02217000 CVTRV213 EQU CVTRV210 02218000 CVTRV212 EQU CVTRV210 02219000 CVTRV211 EQU CVTRV210 02220000 CVTLCCAT EQU CVTS01+420 02221000 CVTPCCAT EQU CVTS01+416 02222000 CVTIPCRP EQU CVTS01+412 02223000 CVTIPCRI EQU CVTS01+408 02224000 CVTIPCDS EQU CVTS01+404 02225000 CVTAIDVT EQU CVTS01+400 02226000 CVTSSAP EQU CVTS01+396 02227000 CVTEHCIR EQU CVTS01+392 02228000 CVTEHDEF EQU CVTS01+388 02229000 CVTDAIR EQU CVTS01+384 02230000 CVTPERFM EQU CVTS01+380 02231000 CVT044R2 EQU CVTS01+376 02232000 CVTFETCH EQU CVTS01+372 02233000 CVTRSTWD EQU CVTS01+368 02234000 CVTSPOST EQU CVTS01+364 02235000 CVTIOBP EQU CVTS01+360 02236000 CVTASMVT EQU CVTS01+356 02237000 CVTRECRQ EQU CVTS01+352 02238000 CVTWSAC EQU CVTS01+348 02239000 CVTRV149 EQU CVTS01+344 02240000 CVTWSAL EQU CVTS01+340 02241000 CVTSPSA EQU CVTS01+336 02242000 CVTGLMN EQU CVTS01+332 02243000 CVTVEAC0 EQU CVTS01+328 02244000 CVT062R1 EQU CVTS01+324 02245000 CVTRPOST EQU CVTS01+320 02246000 CVTDQIQE EQU CVTS01+316 02247000 CVTCSD EQU CVTS01+312 02248000 CVTLKRMA EQU CVTS01+308 02249000 CVTRSPIE EQU CVTS01+304 02250000 CVTRENQ EQU CVTS01+300 02251000 CVTLQCB EQU CVTS01+296 02252000 CVTFQCB EQU CVTS01+292 02253000 CVTQCS01 EQU CVTS01+288 02254000 CVTAPFT EQU CVTS01+284 02255000 CVTPARRL EQU CVTS01+280 02256000 CVTVWAIT EQU CVTS01+276 02257000 CVTGSPL EQU CVTS01+272 02258000 CVTLSMQ EQU CVTS01+268 02259000 CVTGSMQ EQU CVTS01+264 02260000 CVTEXPRO EQU CVTS01+260 02261000 CVTOPCTP EQU CVTS01+256 02262000 CVTSIC EQU CVTS01+252 02263000 CVTTPIOS EQU CVTS01+248 02264000 CVTRTMS EQU CVTS01+244 02265000 CVTSDBF EQU CVTS01+240 02266000 CVTSCBP EQU CVTS01+236 02267000 CVTSDMP EQU CVTS01+232 02268000 CVTSV60 EQU CVTS01+228 02269000 CVTRTMCT EQU CVTS01+224 02270000 CVTASCBL EQU CVTS01+220 02271000 CVTASCBH EQU CVTS01+216 02272000 CVTGDA EQU CVTS01+212 02273000 CVTASVT EQU CVTS01+208 02274000 CVTVVMDI EQU CVTS01+204 02275000 CVTAQTOP EQU CVTS01+200 02276000 CVTIOSCS EQU CVTS01+196 02277000 CVTSDRM EQU CVTS01+192 02278000 CVTOPTE EQU CVTS01+188 02279000 CVTSTXU EQU CVTS01+184 02280000 CVTQUIS EQU CVTS01+180 02281000 CVTPARS EQU CVTS01+176 02282000 CVTS1EE EQU CVTS01+172 02283000 CVTFRAS EQU CVTS01+168 02284000 CVTQSAS EQU CVTS01+164 02285000 CVTCRAS EQU CVTS01+160 02286000 CVTCRMN EQU CVTS01+156 02287000 CVTDELCP EQU CVTS01+152 02288000 CVTFRECL EQU CVTS01+148 02289000 CVTGETCL EQU CVTS01+144 02290000 CVTBLDCP EQU CVTS01+140 02291000 CVTAUTHL EQU CVTS01+136 02292000 CVTSCAN EQU CVTS01+132 02293000 CVTRV144 EQU CVTS01+130 02294000 CVTMAXMP EQU CVTS01+128 02295000 CVTSTCK EQU CVTS01+124 02296000 CVTRV139 EQU CVTS01+123 02297000 CVTDSSAC EQU CVTS01+122 02298000 CVTRV513 EQU CVTS01+121 02299000 CVTIOSPL EQU CVTS01+120 02300000 CVTPTGT EQU CVTS01+116 02301000 CVTCSPIE EQU CVTS01+112 02302000 CVTSMFEX EQU CVTS01+108 02303000 CVTOLT0A EQU CVTS01+104 02304000 CVTPUTL EQU CVTS01+96 02305000 CVTASCRL EQU CVTS01+92 02306000 CVTASCRF EQU CVTS01+88 02307000 CVTRV326 EQU CVTS01+84 02308000 CVTRV325 EQU CVTS01+80 02309000 CVTRV324 EQU CVTS01+76 02310000 CVT0VL01 EQU CVTS01+72 02311000 CVTSHRVM EQU CVTS01+68 02312000 CVTRV332 EQU CVTS01+64 02313000 CVTTAS EQU CVTS01+60 02314000 CVTRSCN EQU CVTS01+56 02315000 CVTTRAC2 EQU CVTS01+54 02316000 CVTTRACE EQU CVTS01+52 02317000 CVTAPG EQU CVTS01+51 02318000 CVTSDTRC EQU CVTCTLFG 02319000 CVTGTRCE EQU CVTCTLFG 02320000 CVTNOMP EQU CVTCTLFG 02321000 CVTRSV79 EQU CVTCTLFG 02322000 CVTDSTAT EQU CVTCTLFG 02323000 CVTRSV78 EQU CVTCTLFG 02324000 CVTRV333 EQU CVTCTLFG 02325000 CVTRV323 EQU CVTCTLFG 02326000 CVTSPVLK EQU CVTS01+49 02327000 CVTRSV77 EQU CVTS01+48 02328000 CVTRV331 EQU CVTS01+44 02329000 CVTRV330 EQU CVTS01+40 02330000 CVTRV329 EQU CVTS01+36 02331000 CVTRV328 EQU CVTS01+32 02332000 CVTRV322 EQU CVTS01+28 02333000 CVTSLID EQU CVTSLIDA+1 02334000 CVTSYLK EQU CVTSLIDA 02335000 CVTRV321 EQU CVTS01+20 02336000 CVTRV320 EQU CVTS01+16 02337000 CVTLPDIR EQU CVTLPDIA+1 02338000 CVTRSV69 EQU CVTDIRST 02339000 CVTRSV68 EQU CVTDIRST 02340000 CVTRSV67 EQU CVTDIRST 02341000 CVTRSV66 EQU CVTDIRST 02342000 CVTRSV65 EQU CVTDIRST 02343000 CVTRSV64 EQU CVTDIRST 02344000 CVTRSV63 EQU CVTDIRST 02345000 CVTDICOM EQU CVTDIRST 02346000 CVTPVTP EQU CVTS01+8 02347000 CVTLPDSR EQU CVTS01+4 02348000 CVTGETL EQU CVTS01 02349000 @NM00124 EQU SVSTRT+16 02350000 STDSV0 EQU SVSTRT+8 02351000 @NM00123 EQU SVSTRT+4 02352000 STDSV14 EQU SVSTRT 02353000 @NM00122 EQU STDSAVE 02354000 @NM00121 EQU FRRAREA+8 02355000 MPLRSVD5 EQU MPLCDS+7 02356000 MPLRSVD4 EQU MPLFLGS1 02357000 MPLASID EQU MPLCDS+4 02358000 MPLADDR EQU MPLCDS 02359000 MPLRSVD2 EQU ISTMPLT+12 02360000 MPLRSVD1 EQU ISTMPLT+10 02361000 MPLECNT EQU ISTMPLT+8 02362000 MPLID EQU ISTMPLT+4 02363000 MPLCHN EQU ISTMPLT 02364000 ACDREFQ EQU ISTACDEB+204 02365000 ACDASFQ EQU ISTACDEB+200 02366000 ACDSOP EQU ISTACDEB+184 02367000 ACDSIP EQU ISTACDEB+168 02368000 ACDRSV24 EQU ACDVTAM+108 02369000 ACDRSV23 EQU ACDVTAM+104 02370000 ACDRSV22 EQU ACDVTAM+100 02371000 ACDOCWAD EQU ACDVTAM+96 02372000 ACDRSV10 EQU ACDVTAM+92 02373000 ACDAPDDT EQU ACDAPDAT+1 02374000 ACDAPDLN EQU ACDAPDAT 02375000 ACDRSV07 EQU ACDVTAM+82 02376000 ACDRSV06 EQU ACDVTAM+81 02377000 @NM00118 EQU ACDSSFLG 02378000 ACDTSO EQU ACDSSFLG 02379000 ACDTPEND EQU ACDSSFLG 02380000 ACDAICLS EQU ACDSSFLG 02381000 ACDABEND EQU ACDSSFLG 02382000 ACDCACB EQU ACDSSFLG 02383000 ACDRSV21 EQU ACDVTAM+64 02384000 ACDSSPAB EQU ACDVTAM+48 02385000 ACDNEPAB EQU ACDVTAM+32 02386000 ACDRSV20 EQU ACDVTAM+20 02387000 ACDRARQ EQU ACDVTAM+16 02388000 ACDRAFQ EQU ACDVTAM+12 02389000 ACDFMCB EQU ACDVTAM+8 02390000 ACDRDTE EQU ACDVTAM+4 02391000 ACDLOCK EQU ACDVTAM 02392000 ACDAPP EQU ACDAPPAD+1 02393000 ACDEXSCL EQU ACDAPPAD 02394000 ACDACB EQU ACDACBAD+1 02395000 ACDDEBID EQU ACDACBAD 02396000 ACDPROTG EQU ACDACBAD 02397000 ACDECBAD EQU ACDBASIC+20 02398000 ACDUSRPB EQU ACDUSRPG+1 02399000 ACDNMEXT EQU ACDUSRPG 02400000 ACDPRLEN EQU ACDBASIC+15 02401000 ACDFLGS1 EQU ACDBASIC+14 02402000 ACDQSCNT EQU ACDBASIC+13 02403000 ACDOPATB EQU ACDBASIC+12 02404000 ACDIRBAD EQU ACDBASIC+8 02405000 ACDDEB EQU ACDDEBAD+1 02406000 ACDAMLNG EQU ACDDEBAD 02407000 ACDTCB EQU ACDTCBAD+1 02408000 ACDOPNAD EQU ACDNMSUB 02409000 ACDRSV03 EQU ACDTBLOF+1 02410000 ACDRSV02 EQU ACDTBLOF 02411000 ACDAMTYP EQU ACDDBPFX+5 02412000 ACDLENG EQU ACDDBPFX+4 02413000 ACDDEBX EQU ACDDBPFX 02414000 ACDRSV08 EQU ACDVTPRX+12 02415000 ACDCHN EQU ACDVTPRX+4 02416000 ACDSAF EQU ACDVTPRX+2 02417000 ACDLNGTH EQU ACDVTPRX+1 02418000 ACDTYPE EQU ACDVTPRX 02419000 MPSSRB1 EQU ISTMPST+172 02420000 MPSSAVE EQU ISTMPST+140 02421000 MPSMQLBP EQU ISTMPST+136 02422000 MPSSYSRT EQU ISTMPST+132 02423000 MPSQEL EQU ISTMPST+128 02424000 MPSASCB EQU ISTMPST+120 02425000 MPSTPPAB EQU ISTMPST+88 02426000 MPSSMPAB EQU ISTMPST+56 02427000 MPSSMRPH EQU ISTMPST+52 02428000 MPSSRB55 EQU ISTMPST+48 02429000 MPSRPLAC EQU MPSRPLCT+2 02430000 MPSRPLRC EQU MPSRPLCT 02431000 MPSCRPLQ EQU MPSCRPL 02432000 MPSSRBAC EQU MPSSRBCT+2 02433000 MPSSRBRC EQU MPSSRBCT 02434000 MPSSRBQ EQU MPSSRB 02435000 MPSCRAAC EQU MPSCRACT+2 02436000 MPSCRARC EQU MPSCRACT 02437000 MPSCRAQ EQU MPSCRA 02438000 MPSMPSTP EQU ISTMPST+20 02439000 MPSPSTCT EQU ISTMPST+16 02440000 MPSASID EQU MPSFLGA+2 02441000 MPSRSV02 EQU MPSFLGA+1 02442000 MPSPSTAB EQU MPSFLGA 02443000 MPSRSV01 EQU MPSFLGA 02444000 MPSTPBU EQU MPSFLGA 02445000 MPMEMTRM EQU MPSFLGA 02446000 MPSAUTH EQU MPSFLGA 02447000 MPSCRAO EQU MPSFLGA 02448000 MPSSRBO EQU MPSFLGA 02449000 MPSRQUEG EQU MPSRQUE 02450000 MPSTSOIR EQU MPSRSV07 02451000 MPSTSOIW EQU MPSRSV07 02452000 MPSID EQU ISTMPST 02453000 DCERSV01 EQU ISTDCE+12 02454000 DCETERM EQU ISTDCE+8 02455000 ISTPDAVP EQU ISTAVT+40 02456000 ISTAVR01 EQU ISTAVT+38 02457000 ISTVTTP EQU ISTAVT+36 02458000 ISTAGTWT EQU ISTAVT+34 02459000 ISTATRT EQU ISTAVT+32 02460000 ISTARID EQU ISTAVT+30 02461000 ISTX1 EQU ISTAVT+29 02462000 ISTPHNM EQU ISTAVT+24 02463000 ISTAPSEX EQU ISTAVT+20 02464000 ISTVTTIK EQU ISTAVT+18 02465000 AVTASID EQU ISTAVT+16 02466000 ISTAPSTA EQU ISTAVT+12 02467000 ISTAS53 EQU ISTAVT+8 02468000 ISTAHIP EQU ISTAS49 02469000 ISTACVT EQU ISTAVT 02470000 PSTDRDYQ EQU PSTDMPS+1 02471000 @NM00117 EQU PSTDMPS 02472000 PSTDGATE EQU PSTDMPS 02473000 PSTDEBP EQU ISTPST+128 02474000 PSTSAVE EQU ISTPST+96 02475000 PSTCRRS EQU ISTPST+60 02476000 PSTCRR1 EQU ISTPST+56 02477000 PSTIQE22 EQU ISTPST+52 02478000 PSTIQE21 EQU ISTPST+48 02479000 PSTIQE12 EQU ISTPST+44 02480000 PSTIQE11 EQU ISTPST+40 02481000 PSTUEQ EQU ISTPST+36 02482000 PSTNSSQ EQU ISTPST+32 02483000 PSTPSSQ EQU ISTPST+28 02484000 PSTACBCT EQU ISTPST+24 02485000 PSTTCBA EQU ISTPST+16 02486000 PSTRSV08 EQU PSTFLGA+1 02487000 PSTDMPC EQU PSTFLGA+1 02488000 PSTABEND EQU PSTABINP 02489000 PSTAUTH EQU PSTFLGA 02490000 PSTSMCU EQU PSTFLGA 02491000 PSTSMQR EQU PSTFLGA 02492000 PSTIRBU2 EQU PSTFLGA 02493000 PSTIRBU1 EQU PSTFLGA 02494000 PSTUERN EQU PSTFLGA 02495000 PSTSSRN EQU PSTFLGA 02496000 PSTRQUEA EQU PSTRQUE+1 02497000 PSTRSV07 EQU PSTRQUE 02498000 PSTRSV06 EQU PSTRQUE 02499000 PSTRSV05 EQU PSTRQUE 02500000 PSTRSV04 EQU PSTRQUE 02501000 PSTRSV03 EQU PSTRQUE 02502000 PSTRSV02 EQU PSTRQUE 02503000 PSTRSV01 EQU PSTRQUE 02504000 PSTRQFLG EQU PSTRQUE 02505000 PSTCHAIN EQU ISTPST+4 02506000 @NM00116 EQU ISTPST+2 02507000 PSTLNGTH EQU ISTPST+1 02508000 PSTTYPE EQU ISTPST 02509000 CRACHAIN EQU ISTCRA+928 02510000 CRARSV02 EQU ISTCRA+924 02511000 CRARSV01 EQU ISTCRA+920 02512000 CRABFTBA EQU CRABUFA 02513000 CRAMASK EQU CRASVC+64 02514000 CRAHSIZ EQU CRASVC+60 02515000 CRAASCRR EQU CRASVC 02516000 CRALAPTR EQU CRABASIC+48 02517000 CRAL9PTR EQU CRABASIC+44 02518000 CRAL8PTR EQU CRABASIC+40 02519000 CRAL7PTR EQU CRABASIC+36 02520000 CRAL6PTR EQU CRABASIC+32 02521000 CRAL5PTR EQU CRABASIC+28 02522000 CRAL4PTR EQU CRABASIC+24 02523000 CRAL3PTR EQU CRABASIC+20 02524000 CRAL2PTR EQU CRABASIC+16 02525000 CRAL1PTR EQU CRABASIC+12 02526000 CRALEV01 EQU CRALKACT+3 02527000 CRALEV02 EQU CRALKACT+3 02528000 CRALEV03 EQU CRALKACT+3 02529000 CRALEV04 EQU CRALKACT+3 02530000 CRALEV05 EQU CRALKACT+3 02531000 CRALEV06 EQU CRALKACT+3 02532000 CRALEV07 EQU CRALKACT+3 02533000 CRALEV08 EQU CRALKACT+3 02534000 CRALEV09 EQU CRALKACT+2 02535000 CRALEV10 EQU CRALKACT+2 02536000 CRALEV11 EQU CRALKACT+2 02537000 CRALEV12 EQU CRALKACT+2 02538000 CRALEV13 EQU CRALKACT+2 02539000 CRALEV14 EQU CRALKACT+2 02540000 CRALEV15 EQU CRALKACT+2 02541000 CRALEV16 EQU CRALKACT+2 02542000 CRALEV17 EQU CRALKACT+1 02543000 CRALEV18 EQU CRALKACT+1 02544000 CRALEV19 EQU CRALKACT+1 02545000 CRALEV20 EQU CRALKACT+1 02546000 CRALEV21 EQU CRALKACT+1 02547000 CRALEV22 EQU CRALKACT+1 02548000 CRALEV23 EQU CRALKACT+1 02549000 CRALEV24 EQU CRALKACT+1 02550000 CRALEV25 EQU CRALKACT 02551000 CRALEV26 EQU CRALKACT 02552000 CRALEV27 EQU CRALKACT 02553000 CRALEV28 EQU CRALKACT 02554000 CRALEV29 EQU CRALKACT 02555000 CRALEV30 EQU CRALKACT 02556000 CRALEV31 EQU CRALKACT 02557000 CRALEV32 EQU CRALKACT 02558000 CRAFRR EQU CRAHDR+4 02559000 @NM00115 EQU ISTAPCRR+137 02560000 @NM00114 EQU APC57FLG 02561000 APCNREL EQU APC57FLG 02562000 APCRECRA EQU APC57FLG 02563000 @NM00113 EQU APC54FLG 02564000 APCRLST EQU APC54FLG 02565000 APCPR153 EQU APC53FLG 02566000 @NM00112 EQU APC52FLG 02567000 APCWKF EQU APC52FLG 02568000 APCNWF EQU APC52FLG 02569000 APCRDQ EQU APC52FLG 02570000 APCQENQ EQU APC52FLG 02571000 APCSMSR EQU APC52FLG 02572000 APCCKRQ EQU APC52FLG 02573000 @NM00111 EQU APC31FLG 02574000 APCSORT EQU APC31FLG 02575000 APCTPXIT EQU APC31FLG 02576000 APCSWTWD EQU ISTAPCRR+128 02577000 APCSAV2 EQU ISTAPCRR+124 02578000 APCSAV1 EQU ISTAPCRR+120 02579000 APCRETCD EQU APCCOMF+2 02580000 @NM00110 EQU APCCOMF1+1 02581000 APCZLBER EQU APCCOMF1 02582000 APCEXIT EQU APCCOMF1 02583000 APCRELR EQU APCCOMF1 02584000 APCIRB2 EQU APCCOMF1 02585000 APCIRB1 EQU APCCOMF1 02586000 APCSMCR EQU APCCOMF1 02587000 APCUETSK EQU APCCOMF1 02588000 APCESTAL EQU APCSAVE 02589000 APCFRRPM EQU ISTAPCRR+40 02590000 APCQWFO EQU ISTAPCRR+36 02591000 APCPABSV EQU ISTAPCRR+32 02592000 APCTCBA EQU ISTAPCRR+24 02593000 @NM00109 EQU APCRFLG+1 02594000 APC58R EQU APCRFLG 02595000 APC57R EQU APCRFLG 02596000 APC56R EQU APCRFLG 02597000 APC54R EQU APCRFLG 02598000 APC53R EQU APCRFLG 02599000 APC52R EQU APCRFLG 02600000 APC51R EQU APCRFLG 02601000 @NM00108 EQU APCATFLG+1 02602000 APC31E EQU APCATFLG 02603000 APC58E EQU APCATFLG 02604000 APC57E EQU APCATFLG 02605000 APC56E EQU APCATFLG 02606000 APC54E EQU APCATFLG 02607000 APC53E EQU APCATFLG 02608000 APC52E EQU APCATFLG 02609000 APC51E EQU APCATFLG 02610000 APCHDRSV EQU ISTAPCRR 02611000 ASCPSREG EQU ISTASCRR+44 02612000 ASCUSR01 EQU ASCUSRGS+12 02613000 ASCUSR00 EQU ASCUSRGS+8 02614000 ASCUSR15 EQU ASCUSRGS+4 02615000 ASCUSR14 EQU ASCUSRGS 02616000 ASCETRYA EQU ISTASCRR+24 02617000 ASCKEY EQU ISTASCRR+23 02618000 ASCAUDIT EQU ASCFLG3 02619000 ASCFBDUD EQU ASCFLG3 02620000 ASCLLKF EQU ASCFLG3 02621000 ASCKEYF EQU ASCFLG3 02622000 ASCFBDAL EQU ASCFLG3 02623000 ASCFSRGT EQU ASCFLG3 02624000 ASCICR EQU ASCFLG2 02625000 ASCFSRIC EQU ASCFLG2 02626000 ASCFBDIC EQU ASCFLG2 02627000 ASCFBAIC EQU ASCFLG2 02628000 ASCPASTR EQU ASCFLG1 02629000 ASCFSR EQU ASCFLG1 02630000 ASCFBD EQU ASCFLG1 02631000 ASCFBA EQU ASCFLG1 02632000 ASCPFCRR EQU ISTASCRR 02633000 ZCRRU EQU ZCRRHRU+3 02634000 ZCRRH EQU ZCRRHRU 02635000 ZCRWORDA EQU ISTZCRR+477 02636000 ZCRCMNRC EQU ISTZCRR+476 02637000 ZCRRSV97 EQU ZCRENTER+18 02638000 ZCREIC2B EQU ZCRENTER+18 02639000 ZCREAC2B EQU ZCRENTER+18 02640000 ZCRELCAB EQU ZCRENTER+18 02641000 ZCREDCMF EQU ZCRENTER+18 02642000 ZCREBCIF EQU ZCRENTER+18 02643000 ZCREICSG EQU ZCRENTER+18 02644000 ZCREDCK0 EQU ZCRENTER+18 02645000 ZCRECFY0 EQU ZCRENTER+17 02646000 ZCREKCCB EQU ZCRENTER+17 02647000 ZCREDCNB EQU ZCRENTER+17 02648000 ZCREICOE EQU ZCRENTER+17 02649000 ZCREBCNB EQU ZCRENTER+17 02650000 ZCREBC0L EQU ZCRENTER+17 02651000 ZCREBCAL EQU ZCRENTER+17 02652000 ZCREDCQR EQU ZCRENTER+17 02653000 ZCREDCPR EQU ZCRENTER+16 02654000 ZCREBCSB EQU ZCRENTER+16 02655000 ZCREAC1R EQU ZCRENTER+16 02656000 ZCRECCCI EQU ZCRENTER+16 02657000 ZCRECCAI EQU ZCRENTER+16 02658000 ZCRECCBI EQU ZCRENTER+16 02659000 ZCREBCAR EQU ZCRENTER+16 02660000 ZCREBCDR EQU ZCRENTER+16 02661000 ZCREBCBR EQU ZCRENTER+15 02662000 ZCREDCXR EQU ZCRENTER+15 02663000 ZCREDCWB EQU ZCRENTER+15 02664000 ZCREDCWR EQU ZCRENTER+15 02665000 ZCREKCCN EQU ZCRENTER+15 02666000 ZCREKCBN EQU ZCRENTER+15 02667000 ZCREKCBB EQU ZCRENTER+15 02668000 ZCREJC0B EQU ZCRENTER+15 02669000 ZCREJCDB EQU ZCRENTER+14 02670000 ZCREJCCB EQU ZCRENTER+14 02671000 ZCREJCBB EQU ZCRENTER+14 02672000 ZCREJCAB EQU ZCRENTER+14 02673000 ZCREIC1B EQU ZCRENTER+14 02674000 ZCREIC0B EQU ZCRENTER+14 02675000 ZCREICX0 EQU ZCRENTER+14 02676000 ZCREICWB EQU ZCRENTER+14 02677000 ZCREICVB EQU ZCRENTER+13 02678000 ZCREICUB EQU ZCRENTER+13 02679000 ZCREICTB EQU ZCRENTER+13 02680000 ZCREICSC EQU ZCRENTER+13 02681000 ZCREICSB EQU ZCRENTER+13 02682000 ZCREICRB EQU ZCRENTER+13 02683000 ZCREICQB EQU ZCRENTER+13 02684000 ZCREICQA EQU ZCRENTER+13 02685000 ZCREICOB EQU ZCRENTER+12 02686000 ZCREICOA EQU ZCRENTER+12 02687000 ZCREICNB EQU ZCRENTER+12 02688000 ZCREICNA EQU ZCRENTER+12 02689000 ZCREICMB EQU ZCRENTER+12 02690000 ZCREICLB EQU ZCRENTER+12 02691000 ZCREICKG EQU ZCRENTER+12 02692000 ZCREICKE EQU ZCRENTER+12 02693000 ZCREICKB EQU ZCRENTER+11 02694000 ZCREICJB EQU ZCRENTER+11 02695000 ZCREICID EQU ZCRENTER+11 02696000 ZCREICIB EQU ZCRENTER+11 02697000 ZCREICHB EQU ZCRENTER+11 02698000 ZCREICGB EQU ZCRENTER+11 02699000 ZCREICEB EQU ZCRENTER+11 02700000 ZCREICDB EQU ZCRENTER+11 02701000 ZCREICCI EQU ZCRENTER+10 02702000 ZCREICCB EQU ZCRENTER+10 02703000 ZCREICBI EQU ZCRENTER+10 02704000 ZCREICBB EQU ZCRENTER+10 02705000 ZCREICAB EQU ZCRENTER+10 02706000 ZCREICAA EQU ZCRENTER+10 02707000 ZCREHCAN EQU ZCRENTER+10 02708000 ZCREGC0B EQU ZCRENTER+10 02709000 ZCREGC0A EQU ZCRENTER+9 02710000 ZCREGCLA EQU ZCRENTER+9 02711000 ZCREGCEB EQU ZCRENTER+9 02712000 ZCREGCDB EQU ZCRENTER+9 02713000 @NM00107 EQU ZCRENTER+9 02714000 ZCREGCBB EQU ZCRENTER+9 02715000 ZCREGCAB EQU ZCRENTER+9 02716000 ZCREFCEB EQU ZCRENTER+9 02717000 ZCREFCEA EQU ZCRENTER+8 02718000 ZCREECTA EQU ZCRENTER+8 02719000 ZCREECEA EQU ZCRENTER+8 02720000 ZCREECDA EQU ZCRENTER+8 02721000 ZCREECCB EQU ZCRENTER+8 02722000 ZCREECCA EQU ZCRENTER+8 02723000 ZCREECBB EQU ZCRENTER+8 02724000 ZCREECBA EQU ZCRENTER+8 02725000 ZCREDCMB EQU ZCRENTER+7 02726000 ZCREDCL0 EQU ZCRENTER+7 02727000 ZCREDCKB EQU ZCRENTER+7 02728000 ZCREDCKA EQU ZCRENTER+7 02729000 ZCREDCJ0 EQU ZCRENTER+7 02730000 ZCREDCI0 EQU ZCRENTER+7 02731000 ZCREDCH0 EQU ZCRENTER+7 02732000 ZCREDCF0 EQU ZCRENTER+7 02733000 ZCREDCE0 EQU ZCRENTER+6 02734000 ZCREDCD0 EQU ZCRENTER+6 02735000 ZCREDCC0 EQU ZCRENTER+6 02736000 ZCREDCB0 EQU ZCRENTER+6 02737000 ZCREDCA0 EQU ZCRENTER+6 02738000 ZCRECC2B EQU ZCRENTER+6 02739000 ZCRECC1B EQU ZCRENTER+6 02740000 ZCRECC1A EQU ZCRENTER+6 02741000 ZCRECC0B EQU ZCRENTER+5 02742000 ZCRECC0A EQU ZCRENTER+5 02743000 ZCREBC0B EQU ZCRENTER+5 02744000 ZCREBC0A EQU ZCRENTER+5 02745000 ZCREBCZ0 EQU ZCRENTER+5 02746000 ZCREBCY0 EQU ZCRENTER+5 02747000 ZCREBCX0 EQU ZCRENTER+5 02748000 ZCREBCXA EQU ZCRENTER+5 02749000 ZCREBCSC EQU ZCRENTER+4 02750000 ZCREBCRB EQU ZCRENTER+4 02751000 ZCREBCRA EQU ZCRENTER+4 02752000 ZCREBCQB EQU ZCRENTER+4 02753000 ZCREBCPB EQU ZCRENTER+4 02754000 ZCREBCOB EQU ZCRENTER+4 02755000 ZCREBCNE EQU ZCRENTER+4 02756000 ZCREBCND EQU ZCRENTER+4 02757000 ZCREBCMB EQU ZCRENTER+3 02758000 ZCREBCLB EQU ZCRENTER+3 02759000 ZCREBCLA EQU ZCRENTER+3 02760000 ZCREBCKB EQU ZCRENTER+3 02761000 ZCREBCKA EQU ZCRENTER+3 02762000 ZCREBCJB EQU ZCRENTER+3 02763000 ZCREBCJA EQU ZCRENTER+3 02764000 ZCREBCID EQU ZCRENTER+3 02765000 ZCREBCIB EQU ZCRENTER+2 02766000 ZCREBCIA EQU ZCRENTER+2 02767000 ZCREBCHB EQU ZCRENTER+2 02768000 ZCREBCHA EQU ZCRENTER+2 02769000 ZCREBCGB EQU ZCRENTER+2 02770000 ZCREBCGA EQU ZCRENTER+2 02771000 ZCREBCFB EQU ZCRENTER+2 02772000 ZCREBCFA EQU ZCRENTER+2 02773000 ZCREBCEB EQU ZCRENTER+1 02774000 ZCREBCDI EQU ZCRENTER+1 02775000 ZCREBCCB EQU ZCRENTER+1 02776000 ZCREBCBI EQU ZCRENTER+1 02777000 ZCREBCBB EQU ZCRENTER+1 02778000 ZCREBCBA EQU ZCRENTER+1 02779000 ZCREBCAM EQU ZCRENTER+1 02780000 ZCREBCAI EQU ZCRENTER+1 02781000 ZCREBCAG EQU ZCRENTER 02782000 ZCREBCAE EQU ZCRENTER 02783000 ZCREBCAB EQU ZCRENTER 02784000 ZCREBCAA EQU ZCRENTER 02785000 ZCREAC1B EQU ZCRENTER 02786000 ZCREAC0B EQU ZCRENTER 02787000 ZCREAC0A EQU ZCRENTER 02788000 ZCREAC1A EQU ZCRENTER 02789000 ZCRTNAME EQU ZCRAUDIT+1 02790000 ZCRTID EQU ZCRAUDIT 02791000 ZCRREMIC EQU ISTZCRR+436 02792000 ZCRSAVEZ EQU ISTZCRR+196 02793000 ZCRDAFSV EQU ZCRCIDSV+2 02794000 ZCRSAFSV EQU ZCRCIDSV 02795000 ZCRR13SV EQU ISTZCRR+188 02796000 ZCRR2SV EQU ISTZCRR+184 02797000 ZCROPCDE EQU ISTZCRR+183 02798000 ZCRPRMTC EQU ISTZCRR+182 02799000 ZCRRCDSV EQU ISTZCRR+181 02800000 ZCRAWQSW EQU ISTZCRR+180 02801000 ZCRTOPQ EQU ISTZCRR+180 02802000 ZCRLSTFB EQU ISTZCRR+180 02803000 ZCRXSCHD EQU ISTZCRR+180 02804000 ZCRNXTEL EQU ISTZCRR+180 02805000 ZCRSCANQ EQU ISTZCRR+180 02806000 ZCRMOREL EQU ISTZCRR+180 02807000 ZCRFBPRC EQU ISTZCRR+180 02808000 ZCRFSBSV EQU ISTZCRR+176 02809000 ZCRSVWK5 EQU ZCRWKARA+16 02810000 ZCRSVWK4 EQU ZCRWKARA+12 02811000 ZCRSVWK3 EQU ZCRWKARA+8 02812000 ZCRSVWK2 EQU ZCRWKARA+4 02813000 ZCRSVWK1 EQU ZCRWKARA 02814000 ZCRSVF25 EQU ZCRSVRTN+96 02815000 ZCRSVF24 EQU ZCRSVRTN+92 02816000 ZCRSVF23 EQU ZCRSVRTN+88 02817000 ZCRSVF22 EQU ZCRSVRTN+84 02818000 ZCRSVF21 EQU ZCRSVRTN+80 02819000 ZCRSVF20 EQU ZCRSVRTN+76 02820000 ZCRSVF19 EQU ZCRSVRTN+72 02821000 ZCRSVF18 EQU ZCRSVRTN+68 02822000 ZCRSVF17 EQU ZCRSVRTN+64 02823000 ZCRSVF16 EQU ZCRSVRTN+60 02824000 ZCRSVF15 EQU ZCRSVRTN+56 02825000 ZCRSVF14 EQU ZCRSVRTN+52 02826000 ZCRSVF13 EQU ZCRSVRTN+48 02827000 ZCRSVF12 EQU ZCRSVRTN+44 02828000 ZCRSVF11 EQU ZCRSVRTN+40 02829000 ZCRSVF10 EQU ZCRSVRTN+36 02830000 ZCRSVF9 EQU ZCRSVRTN+32 02831000 ZCRSVF8 EQU ZCRSVRTN+28 02832000 ZCRSVF7 EQU ZCRSVRTN+24 02833000 ZCRSVF6 EQU ZCRSVRTN+20 02834000 ZCRSVF5 EQU ZCRSVRTN+16 02835000 ZCRSVF4 EQU ZCRSVRTN+12 02836000 ZCRSVF3 EQU ZCRSVRTN+8 02837000 ZCRSVF2 EQU ZCRSVRTN+4 02838000 ZCRSVF1 EQU ZCRSVRTN 02839000 ZCRPVZB EQU ISTZCRR+52 02840000 ZCRZLB EQU ISTZCRR+48 02841000 ZCRBFPTR EQU ISTZCRR+44 02842000 ZCRCCWA EQU ISTZCRR+40 02843000 ZCRPSW EQU ZCRPARMS+15 02844000 ZCRPCHAR EQU ZCRPARMS+14 02845000 ZCRPRES2 EQU ZCRPCOD2 02846000 ZCRPMFGF EQU ZCRPCOD2 02847000 ZCRPFHDR EQU ZCRPCOD2 02848000 ZCRPPG2 EQU ZCRPCOD2 02849000 ZCRPRES EQU ZCRPCOD1 02850000 ZCRPCFTX EQU ZCRPCOD1 02851000 ZCRPBUF EQU ZCRPCOD1 02852000 ZCRPLSCB EQU ZCRPCOD1 02853000 ZCRPLSBQ EQU ZCRPLSBF 02854000 ZCRPFSB EQU ZCRPCOD1 02855000 ZCRPLNG EQU ZCRPCOD1 02856000 ZCRPPG EQU ZCRPCOD1 02857000 ZCRDTODA EQU ZCRDFRDA 02858000 ZCRMLNG EQU ZCRPARMS+8 02859000 ZCRTBPTR EQU ZCRPARMS+4 02860000 ZCRCBPTR EQU ZCRFBPTR 02861000 ZCRCRLCP EQU ISTZCRR+20 02862000 @NM00106 EQU ZCRSCPSW 02863000 ZCRSKIPT EQU ZCRSCPSW 02864000 ZCRFSBWE EQU ZCRSCPSW 02865000 ZCRPRCMP EQU ZCRSCPSW 02866000 ZCRLREQ EQU ZCRSCPSW 02867000 ZCRRJLCP EQU ZCRSCPSW 02868000 ZCRTPINV EQU ZCRSCPSW 02869000 ZCRTPEX EQU ZCRSCPSW 02870000 @NM00105 EQU ZCRIBPR 02871000 ZCR3270R EQU ZCRIBPR 02872000 ZCR3270 EQU ZCRIBPR 02873000 ZCRLCPFD EQU ZCRIBPR 02874000 ZCRLCPFR EQU ZCRIBPR 02875000 ZCRRELK EQU ZCRIBPR 02876000 ZCRERR EQU ZCRIBPR 02877000 ZCRNOBUF EQU ZCRIBPR 02878000 @NM00104 EQU ZCRPFLGS 02879000 ZCRQAHED EQU ZCRPFLGS 02880000 ZCRF1RES EQU ZCRGENSW 02881000 ZCRBRIS EQU ZCRGENSW 02882000 ZCRCLRBD EQU ZCRGENSW 02883000 ZCREXRES EQU ZCRGENSW 02884000 ZCRLCSYN EQU ZCRGENSW 02885000 ZCRRT06 EQU ZCRGENSW 02886000 ZCRTSW2 EQU ZCRGENSW 02887000 ZCRTSW1 EQU ZCRGENSW 02888000 ZCRINLCP EQU ZCRFLGS3 02889000 ZCRWRPTR EQU ZCRFLGS3 02890000 ZCRNOFRE EQU ZCRFLGS3 02891000 ZCREDRIV EQU ZCRFLGS3 02892000 ZCRDISC EQU ZCRFLGS3 02893000 ZCRTPDIS EQU ZCRFLGS3 02894000 ZCRTPCON EQU ZCRFLGS3 02895000 ZCRTIC EQU ZCRFLGS3 02896000 ZCRCNLXL EQU ZCRRESET 02897000 ZCRENDAN EQU ZCRSWFLD 02898000 ZCRENDXL EQU ZCRSWFLD 02899000 ZCRENDX EQU ZCRSWFLD 02900000 ZCROB1 EQU ZCRNDLCP 02901000 ZCRENDPR EQU ZCRSWFLD 02902000 ZCREXTYP EQU ZCRSWFLD 02903000 ZCRSLCP EQU ZCRENDSH 02904000 ZCRIF0E3 EQU ZCRFLGS2 02905000 ZCRIF0E2 EQU ZCRFLGS2 02906000 ZCRIF0E1 EQU ZCRFLGS2 02907000 ZCROB EQU ZCRFLGS2 02908000 ZCRFMSED EQU ZCRFLGS2 02909000 ZCRSHEDI EQU ZCRFLGS2 02910000 ZCRLOCAL EQU ZCRFLGS2 02911000 ZCRFEXIT EQU ZCRFLGS1 02912000 ZCRUNSOL EQU ZCRFLGS1 02913000 ZCRENDLP EQU ZCRFLGS1 02914000 ZCRNRMEX EQU ZCRFLGS1 02915000 ZCRWAIT EQU ZCRFLGS1 02916000 ZCRDEQSW EQU ZCRFLGS1 02917000 ZCRQUESW EQU ZCRFLGS1 02918000 ZCREXSW EQU ZCRFLGS1 02919000 ZCRFRRA EQU ISTZCRR+8 02920000 ZCRCHAIN EQU ISTZCRR+4 02921000 ZCRFLAG EQU ZCRCRR+3 02922000 ZCRLEN EQU ZCRCRR+1 02923000 ZCRID EQU ZCRCRR 02924000 CCFRSVD1 EQU CFCCRT 02925000 CCFCR2 EQU CFCCRT 02926000 CCFCRP EQU CFCCRT 02927000 CCFCR1 EQU CFCCRT 02928000 CCFCS2 EQU CFCCRT 02929000 CCFCS1 EQU CFCCRT 02930000 NCFRSVD EQU CFCNTRD 02931000 NCFCR2 EQU CFCNTRD 02932000 NCFCRP EQU CFCNTRD 02933000 NCFCR1 EQU CFCNTRD 02934000 NCFCS2 EQU CFCNTRD 02935000 NCFCS1 EQU CFCNTRD 02936000 PFCRSV01 EQU ISTPFCRR+13 02937000 PFCFTA EQU ISTPFCRR+12 02938000 CRRFRR EQU PFCFRRO 02939000 CRRCHAIN EQU PFCCRRO 02940000 CRRLEN EQU PFCCRRLN 02941000 PFCRSV10 EQU PFCCRR+1 02942000 CRRID EQU PFCCRRID 02943000 ZSAZTRAC EQU ISTZSAVE+36 02944000 ZSAZSVVR EQU ISTZSAVE+12 02945000 ZSAZSVRR EQU ISTZSAVE+8 02946000 ZSAZSVFC EQU ISTZSAVE+4 02947000 ZSAZACTV EQU ZSAZSVMS 02948000 LCPFTYPE EQU LCPRPHA 02949000 LCPRSTQH EQU LCPLCCW 02950000 LCPCLREP EQU ISTLCPB+44 02951000 LCPUBFSB EQU LCPFLCCW 02952000 LCPRSV77 EQU ISTLCPB+39 02953000 LCPLCCWC EQU ISTLCPB+38 02954000 LCPRSV78 EQU LCPFLG1 02955000 LCPTRANS EQU LCPFLG1 02956000 LCPSTLB EQU LCPFLG1 02957000 LCPREDRV EQU LCPFLG1 02958000 LCPDIRPT EQU LCPFLG1 02959000 LCPINTER EQU LCPFLG1 02960000 LCPRESET EQU LCPFLG1 02961000 LCPSTYPE EQU ISTLCPB+36 02962000 LCPFSNCH EQU ISTLCPB+34 02963000 LCPFOSN EQU ISTLCPB+32 02964000 LCPTLBAD EQU ISTLCPB+28 02965000 LCPFDB2 EQU LCPFDBA+1 02966000 LCPFDB1 EQU LCPFDBA 02967000 LCPNXLCW EQU ISTLCPB+20 02968000 LCPDAF EQU LCPCID+2 02969000 LCPSAF EQU LCPCID 02970000 LCPLCCW1 EQU ISTLCPB+12 02971000 LCPRRCNT EQU LCPSEQ+1 02972000 LCPRRCCT EQU LCPSEQ 02973000 LCPATOP EQU LCPFLAG2 02974000 LCPFREE EQU LCPFLAG2 02975000 LCPDSTAT EQU LCPFLAG2 02976000 LCPEXRES EQU LCPFID0 02977000 LCPZRIMM EQU LCPTLBPI 02978000 LCPRSTRT EQU LCPFLAG2 02979000 LCPASYN EQU LCPFLAG2 02980000 LCPPRFLG EQU LCPFLAG2 02981000 LCPZMIRC EQU LCPRUCNT 02982000 LCPCHAI2 EQU LCPCHAIN+1 02983000 LCPCHNG EQU LCPCHAI1 02984000 LCPZRT0B EQU LCPMNRCD 02985000 LCPZRT0A EQU LCPMNRCD 02986000 LCPZRTL9 EQU LCPZRT09 02987000 LCPZRTL8 EQU LCPZRT08 02988000 LCPZRTL7 EQU LCPZRT07 02989000 LCPZRTL6 EQU LCPZRT06 02990000 LCPZRTL5 EQU LCPZRT05 02991000 LCPZRTL4 EQU LCPZRT04 02992000 LCPZRTL3 EQU LCPZRT03 02993000 LCPZRTL2 EQU LCPZRT02 02994000 LCPZRT01 EQU LCPFLAGS 02995000 LCPZRT00 EQU LCPFLAGS 02996000 LCPLNGTH EQU ISTLCPB+1 02997000 LCPTYPE EQU ISTLCPB 02998000 LCCWDATA EQU ISTLCCW+4 02999000 LCCWCNT EQU ISTLCCW+2 03000000 LCCWACI EQU LCCWFLAG 03001000 LCCWRFI EQU LCCWFLAG 03002000 LCCWPER EQU LCCWLSI 03003000 LCCWIDAT EQU LCCWFLAG 03004000 LCCWNTVC EQU LCCWFLAG 03005000 LCCWCKPT EQU LCCWFLAG 03006000 LCCWCC EQU LCCWFLAG 03007000 LCCWCD EQU LCCWFLAG 03008000 LCCWTYPE EQU LCCWCTL 03009000 LCCWMODE EQU LCCWCTL 03010000 LCCWSOP EQU LCCWRWOP 03011000 @NM00103 EQU LCCWRWOP 03012000 LCCWSD EQU LCCWOP 03013000 LCCWSI EQU LCCWOP 03014000 ATCAOS EQU ISTATCVT+1584 03015000 ATCPOPAB EQU ATCAOSM+640 03016000 ATCVIOPM EQU ATCAOSM+636 03017000 ATCTPMMI EQU ATCAOSM+632 03018000 ATCTPMPB EQU ATCAOSM+600 03019000 ATCRSV88 EQU ATCAOSM+596 03020000 ATCRPLCT EQU ATCAOSM+594 03021000 ATCCRACT EQU ATCAOSM+592 03022000 ATCSRBCT EQU ATCAOSM+590 03023000 ATCRSV75 EQU ATCAOSM+589 03024000 ATCRSV66 EQU ATCZFLAG 03025000 ATCZF001 EQU ATCZFLAG 03026000 ATCTPCP1 EQU ATCAOSM+584 03027000 ATCTPCP0 EQU ATCAOSM+580 03028000 ATCAICTN EQU ATCAOSM+576 03029000 ATCZR01 EQU ATCAOSM+572 03030000 ATCMPLTA EQU ATCAOSM+568 03031000 ATCASCB EQU ATCAOSM+564 03032000 ATCAP86 EQU ATCAOSM+560 03033000 ATCAP85 EQU ATCAOSM+556 03034000 ATCAP84 EQU ATCAOSM+552 03035000 ATCAP83 EQU ATCAOSM+548 03036000 ATCAP82 EQU ATCAOSM+544 03037000 ATCAP66 EQU ATCAOSM+536 03038000 ATCAP62 EQU ATCAOSM+532 03039000 ATCAPC59 EQU ATCAOSM+528 03040000 ATCAP56 EQU ATCAOSM+524 03041000 ATCAP55 EQU ATCAOSM+520 03042000 ATCRCFY0 EQU ATCAOSM+516 03043000 ATCAPC25 EQU ATCAOSM+508 03044000 ATCAP23 EQU ATCAOSM+504 03045000 ATCTPSPB EQU ATCAOSM+472 03046000 ATCTRMPB EQU ATCAOSM+440 03047000 ATCAPBE EQU ATCAOSM+436 03048000 ATCPSTA EQU ATCAOSM+432 03049000 ATCSMABF EQU ATCAOSM+428 03050000 ATCSMAPR EQU ATCAOSM+424 03051000 ATCTPWQA EQU ATCAOSM+420 03052000 ATCSMAID EQU ATCAOSM+416 03053000 ATCSMARA EQU ATCAOSM+412 03054000 ATCCACXA EQU ATCAOSM+408 03055000 ATCZLAAB EQU ATCAOSM+404 03056000 ATCATA10 EQU ATCAOSM+400 03057000 ATCHLTCB EQU ATCAOSM+396 03058000 @NM00102 EQU ATCVTFLG 03059000 ATCVTACT EQU ATCVTFLG 03060000 ATCRPT40 EQU ATCAOSM+388 03061000 ATCRPT39 EQU ATCAOSM+384 03062000 ATCRPT38 EQU ATCAOSM+380 03063000 ATCRPT37 EQU ATCAOSM+376 03064000 ATCRPT36 EQU ATCAOSM+372 03065000 ATCRPT35 EQU ATCAOSM+368 03066000 ATCRPT34 EQU ATCAOSM+364 03067000 ATCRPT33 EQU ATCAOSM+360 03068000 ATCRPT32 EQU ATCAOSM+356 03069000 ATCRPT31 EQU ATCAOSM+352 03070000 ATCRPT30 EQU ATCAOSM+348 03071000 ATCRPT29 EQU ATCAOSM+344 03072000 ATCRPT28 EQU ATCAOSM+340 03073000 ATCRPT27 EQU ATCAOSM+336 03074000 @NM00101 EQU ATCAOSM+333 03075000 @NM00100 EQU @NM00099 03076000 ATCSNUF EQU @NM00099 03077000 ATCOPKL EQU @NM00099 03078000 ATCAIWT EQU ATCAOSM+328 03079000 ATCINFDD EQU ATCAOSM+324 03080000 ATCORFMG EQU ATCAOSM+320 03081000 ATCORFRL EQU ATCAOSM+316 03082000 ATCOROBT EQU ATCAOSM+312 03083000 ATCORQG EQU ATCORSRB 03084000 ATCORTBF EQU ATCSQAFR 03085000 ATCRPLAC EQU ATCRPLCN+2 03086000 ATCRPLRC EQU ATCRPLCN 03087000 ATCCRPLQ EQU ATCCRPL 03088000 ATCSRBAC EQU ATCSRBCN+2 03089000 ATCSRBRC EQU ATCSRBCN 03090000 ATCSRBQ EQU ATCSRB 03091000 ATCCRAAC EQU ATCCRACN+2 03092000 ATCCRARC EQU ATCCRACN 03093000 ATCCRAQ EQU ATCCRA 03094000 ATCRPT12 EQU ATCAOSM+276 03095000 ATCDMAPP EQU ATCAOSM+272 03096000 ATCAP38 EQU ATCAOSM+268 03097000 ATCAP37 EQU ATCAOSM+264 03098000 ATCZDFJ0 EQU ATCAOSM+260 03099000 ATCAP51 EQU ATCAOSM+256 03100000 ATCZPAB2 EQU ATCAOSM+224 03101000 ATCZPAB1 EQU ATCAOSM+192 03102000 ATCZLFVT EQU ATCAOSM+188 03103000 ATCZLPVT EQU ATCAOSM+184 03104000 ATCZDVTX EQU ATCAOSM+180 03105000 ATCZDVTA EQU ATCAOSM+176 03106000 ATCZDVT9 EQU ATCAOSM+172 03107000 ATCZDVT8 EQU ATCAOSM+168 03108000 ATCZDVT7 EQU ATCAOSM+164 03109000 ATCRSV56 EQU ATCDAPVT+22 03110000 ATCDAPDG EQU ATCDAPVT+20 03111000 ATCDXCEA EQU ATCDAPVT+16 03112000 ATCDCEA EQU ATCDAPVT+12 03113000 ATCDPCIA EQU ATCDAPVT+8 03114000 ATCDSIOA EQU ATCDAPVT+4 03115000 ATCDEOEA EQU ATCDAPVT 03116000 ATCZLAEA EQU ATCLDAPP+16 03117000 ATCZLCEA EQU ATCLDAPP+12 03118000 ATCRSV17 EQU ATCLDAPP+8 03119000 ATCSMFRR EQU ATCLDAPP+4 03120000 ATCCDTID EQU ATCLDAPP 03121000 ATCZAEA EQU ATCICAPP+16 03122000 ATCZCEA EQU ATCICAPP+12 03123000 ATCZSIOA EQU ATCICAPP+4 03124000 ATCCDRPH EQU ATCICAPP 03125000 ATCAP65 EQU ATCAOSM+96 03126000 ATCZDVT6 EQU ATCAOSM+92 03127000 ATCZDVT4 EQU ATCAOSM+88 03128000 ATCZDVT3 EQU ATCAOSM+84 03129000 ATCZDVT1 EQU ATCAOSM+80 03130000 ATCICNCB EQU ATCAOSM+76 03131000 ATCZPSVT EQU ATCAOSM+72 03132000 ATCZFSVT EQU ATCAOSM+68 03133000 ATCAP61 EQU ATCAOSM+56 03134000 ATCAP58 EQU ATCAOSM+52 03135000 ATCAP57 EQU ATCAOSM+48 03136000 ATCAP54 EQU ATCAOSM+44 03137000 ATCAP53 EQU ATCAOSM+40 03138000 ATCAP52 EQU ATCAOSM+36 03139000 ATCAP34 EQU ATCAOSM+32 03140000 ATCAP31 EQU ATCAOSM+24 03141000 ATCAP12 EQU ATCAOSM+20 03142000 ATCAP11 EQU ATCAOSM+16 03143000 ATCCMTCB EQU ATCAOSM+12 03144000 ATCPRPH EQU ATCAOSM+8 03145000 ATCGSRBF EQU ATCGSRBG 03146000 ATCSRBRT EQU ATCAOSM 03147000 @NM00098 EQU @NM00097 03148000 @NM00096 EQU ATCVTBAM 03149000 ATCVDLOK EQU ISTATCVT+904 03150000 ATCVFPAB EQU ISTATCVT+872 03151000 ATCVDPAB EQU ISTATCVT+840 03152000 ATCIOECB EQU ISTATCVT+836 03153000 ATCINCW3 EQU ISTATCVT+832 03154000 ATCMODTB EQU ISTATCVT+828 03155000 ATCUSSPT EQU ISTATCVT+824 03156000 ATCSRTAB EQU ISTATCVT+820 03157000 @NM00095 EQU ISTATCVT+819 03158000 @NM00094 EQU ATCSTAT2 03159000 ATCTRSMS EQU ATCSTAT2 03160000 ATCTRLOK EQU ATCSTAT2 03161000 ATCTRPSS EQU ATCSTAT2 03162000 ATCTRESC EQU ATCSTAT2 03163000 ATCTRAPI EQU ATCSTAT2 03164000 ATCNMCTR EQU ISTATCVT+816 03165000 ATCSEC51 EQU ATCSECST 03166000 ATCSEC40 EQU ATCSIPD+8 03167000 ATCSEC30 EQU ATCSIPD+4 03168000 ATCSEC21 EQU ATCSIPD 03169000 ATCSEC10 EQU ATCSOPD+4 03170000 ATCSEC01 EQU ATCSOPD 03171000 ATCPOIA EQU ATCRNO+1 03172000 @NM00093 EQU ATCRNO 03173000 ATCPODVT EQU ISTATCVT+784 03174000 ATCS49XL EQU ISTATCVT+780 03175000 ATCS49XI EQU ISTATCVT+776 03176000 ATCLCLCT EQU ATCVLCNT+2 03177000 ATCRNCNT EQU ATCVLCNT 03178000 ATCCFEAD EQU ISTATCVT+768 03179000 ATCPTR00 EQU ISTATCVT+736 03180000 ATCRSV10 EQU ISTATCVT+704 03181000 ATCTACB EQU ISTATCVT+700 03182000 ATCVTINM EQU ISTATCVT+696 03183000 ATCTCLIM EQU ISTATCVT+692 03184000 ATCTCLOM EQU ISTATCVT+688 03185000 ATCVTIPB EQU ISTATCVT+656 03186000 ATCTCIPB EQU ISTATCVT+624 03187000 ATCTIPAB EQU ISTATCVT+592 03188000 ATCOCCCB EQU ISTATCVT+588 03189000 ATCOCCOB EQU ISTATCVT+584 03190000 ATCCDLAD EQU ISTATCVT+580 03191000 ATCCCLAD EQU ISTATCVT+576 03192000 ATCDLRPB EQU ISTATCVT+544 03193000 ATCPGPAB EQU ISTATCVT+512 03194000 ATCVPAB1 EQU ISTATCVT+480 03195000 ATCRSV97 EQU ISTATCVT+476 03196000 ATCRDTLK EQU ISTATCVT+472 03197000 ATCVOCLK EQU ISTATCVT+468 03198000 ATCCDFDN EQU ISTATCVT+464 03199000 ATCCDFIN EQU ISTATCVT+460 03200000 ATCDVTLK EQU ISTATCVT+456 03201000 ATCAP36 EQU ISTATCVT+452 03202000 ATCAP35 EQU ISTATCVT+448 03203000 ATCAP33 EQU ISTATCVT+444 03204000 ATCRSV99 EQU ISTATCVT+440 03205000 ATCONFIG EQU ISTATCVT+432 03206000 ATCNODDS EQU ISTATCVT+428 03207000 ATCNODEL EQU ISTATCVT+420 03208000 ATCRSV69 EQU ISTATCVT+416 03209000 ATCAPCR5 EQU ISTATCVT+412 03210000 ATCLDECB EQU ISTATCVT+408 03211000 ATCLDNCS EQU ISTATCVT+404 03212000 ATCCDPTR EQU ISTATCVT+400 03213000 ATCADEL EQU ISTATCVT+396 03214000 ATCTODVT EQU ISTATCVT+392 03215000 ATCDEBCH EQU ISTATCVT+388 03216000 ATCHBSIZ EQU ATCHPGM+2 03217000 ATCHBFNO EQU ATCHPGM 03218000 ATCCRME EQU ISTATCVT+380 03219000 ATCRVCHS EQU ISTATCVT+372 03220000 ATCECTLP EQU ISTATCVT+368 03221000 ATCZDVTB EQU ISTATCVT+364 03222000 ATCECPRT EQU ISTATCVT+360 03223000 ATCVTLOD EQU ISTATCVT+356 03224000 ATCTRPAB EQU ISTATCVT+352 03225000 ATCMSGM EQU ISTATCVT+348 03226000 ATCEPT EQU ISTATCVT+340 03227000 ATCDVT EQU ISTATCVT+336 03228000 ATCTRCPT EQU ISTATCVT+332 03229000 ATCDVLOD EQU ISTATCVT+328 03230000 ATCALERT EQU ISTATCVT+324 03231000 ATCEPA EQU ISTATCVT+320 03232000 ATCSAF EQU ISTATCVT+318 03233000 ATCXRANG EQU ISTATCVT+317 03234000 ATCLAST EQU ATCSHRFG 03235000 ATCSHRTN EQU ISTATCVT+308 03236000 ATCUEP EQU ISTATCVT+304 03237000 ATCOCRT EQU ISTATCVT+300 03238000 ATCCSMA EQU ATCCSMR 03239000 ATCESC02 EQU ISTATCVT+292 03240000 ATCESC01 EQU ISTATCVT+288 03241000 ATCCDFND EQU ISTATCVT+284 03242000 ATCCDDEL EQU ISTATCVT+280 03243000 ATCCDADD EQU ISTATCVT+276 03244000 ATCMNT EQU ISTATCVT+272 03245000 ATCRSV16 EQU ISTATCVT+270 03246000 ATCMAXID EQU ISTATCVT+269 03247000 ATCMSGSP EQU ATCCOM+268 03248000 ATCCIDM EQU ATCCOM+266 03249000 ATCACTRM EQU ATCCOM+264 03250000 ATCNERAP EQU ATCCOM+260 03251000 ATCNESAL EQU ATCCOM+256 03252000 ATCRCC65 EQU ATCCOM+252 03253000 ATCRCC26 EQU ATCCOM+248 03254000 ATCRCC63 EQU ATCCOM+244 03255000 ATCRSV11 EQU ATCCOM+242 03256000 ATCVTMID EQU ATCCOM+240 03257000 ATCAPOST EQU ATCCOM+236 03258000 ATCNERFN EQU ATCCOM+232 03259000 ATCNERNE EQU ATCCOM+228 03260000 ATCNERCV EQU ATCCOM+224 03261000 ATCNERST EQU ATCCOM+220 03262000 ATCDCC61 EQU ATCCOM+216 03263000 ATCDCC60 EQU ATCCOM+212 03264000 ATCSRTDF EQU ATCCOM+208 03265000 ATCSRTAD EQU ATCCOM+204 03266000 ATCFIRA EQU ATCCOM+200 03267000 ATCSMBQ EQU ATCCOM+196 03268000 ATCSMRC EQU ATCCOM+192 03269000 ATCSMQU EQU ATCCOM+184 03270000 ATCACDA EQU ATCCOM+176 03271000 ATCSTMA EQU ATCCOM+172 03272000 ATCFRSTR EQU ATCCOM+168 03273000 ATCGTSTR EQU ATCCOM+164 03274000 ATCREADA EQU ATCCOM+160 03275000 ATCALOAD EQU ATCCOM+156 03276000 ATCBLDLA EQU ATCCOM+152 03277000 ATCFBRPH EQU ATCCOM+148 03278000 ATCBFTRC EQU ATCCOM+144 03279000 ATCTPBUF EQU ATCTHTRC 03280000 ATCREMOV EQU ATCCOM+136 03281000 ATCADD EQU ATCCOM+132 03282000 ATCBPDA EQU ATCCOM+128 03283000 ATCDVTPT EQU ATCCOM+124 03284000 ATCFEPT EQU ATCCOM+120 03285000 ATCFDVT EQU ATCCOM+116 03286000 ATCCONFT EQU ATCCOM+112 03287000 ATCPTCHA EQU ATCCOM+108 03288000 ATCAUTHA EQU ATCCOM+104 03289000 ATCACCTA EQU ATCCOM+100 03290000 ATCRDTH EQU ATCCOM+96 03291000 ATCFRSCH EQU ATCCOM+92 03292000 ATCFSB EQU ATCCOM+88 03293000 ATCHLTMS EQU ATCCOM+84 03294000 ATCECPRM EQU ATCCOM+80 03295000 ATCECNET EQU ATCCOM+76 03296000 ATCECOPC EQU ATCCOM+72 03297000 ATCVPARM EQU ATCCOM+68 03298000 ATCECVRQ EQU ATCCOM+64 03299000 ATCECSES EQU ATCCOM+60 03300000 ATCOCHA EQU ATCCOM+56 03301000 ATCDSPLQ EQU ATCCOM+52 03302000 ATCECDSP EQU ATCCOM+48 03303000 ATCVARYQ EQU ATCCOM+44 03304000 ATCECVRY EQU ATCCOM+40 03305000 ATCHALTQ EQU ATCCOM+36 03306000 ATCECHLT EQU ATCCOM+32 03307000 ATCMODQ EQU ATCCOM+28 03308000 ATCECMOD EQU ATCCOM+24 03309000 ATCASCHD EQU ATCCOM+20 03310000 ATCSRT EQU ATCCOM+16 03311000 ATCRDT EQU ATCCOM+12 03312000 ATCDCFRR EQU ATCCOM+8 03313000 ATCAPI EQU ATCCOM+4 03314000 ATCRSV04 EQU ATCSTAT4 03315000 ATCVTTRC EQU ATCSTAT4 03316000 ATCNCSD EQU ATCSTAT4 03317000 ATCMTST EQU ATCSTAT4 03318000 ATCTPRT EQU ATCSTAT4 03319000 ATCPRTAT EQU ATCSTAT4 03320000 @NM00092 EQU ATCPOFLG 03321000 ATCPOUNS EQU ATCPOFLG 03322000 ATCHSDMF EQU ATCSTFLG 03323000 @NM00091 EQU ATCSTAT1 03324000 ATCMDHLT EQU ATCSTAT1 03325000 ATCINHLT EQU ATCSTAT1 03326000 ATCNETSL EQU ATCSTAT1 03327000 ATCQKHLT EQU ATCSTAT1 03328000 ATCSNHLT EQU ATCSTAT1 03329000 ATCACTIV EQU ATCSTAT1 03330000 ATCSTART EQU ATCSTAT1 03331000 RPHNEXPO EQU ISTRPH+104 03332000 RPHSAV16 EQU RPHWORK+60 03333000 RPHSAV15 EQU RPHWORK+56 03334000 RPHSAV14 EQU RPHWORK+52 03335000 RPHSAV13 EQU RPHWORK+48 03336000 RPHSAV12 EQU RPHWORK+44 03337000 RPHSAV11 EQU RPHWORK+40 03338000 RPHSAV10 EQU RPHWORK+36 03339000 RPHSAVE9 EQU RPHWORK+32 03340000 RPHSAVE8 EQU RPHWORK+28 03341000 RPHSAVE7 EQU RPHWORK+24 03342000 RPHSAVE6 EQU RPHWORK+20 03343000 RPHSAVE5 EQU RPHWORK+16 03344000 RPHSAVE4 EQU RPHWORK+12 03345000 RPHSAVE3 EQU RPHWORK+8 03346000 RPHSAVE2 EQU RPHWORK+4 03347000 RPHSHALF EQU RPHSAVE1+2 03348000 RPHSBIT8 EQU RPHSBITS 03349000 RPHSBIT7 EQU RPHSBITS 03350000 RPHSBIT6 EQU RPHSBITS 03351000 RPHSBIT5 EQU RPHSBITS 03352000 RPHSBIT4 EQU RPHSBITS 03353000 RPHSBIT3 EQU RPHSBITS 03354000 RPHSBIT2 EQU RPHSBITS 03355000 RPHSBIT1 EQU RPHSBITS 03356000 RPHSBYTE EQU RPHSAVE1 03357000 RPHPABFG EQU RPHPABQA 03358000 RPHSRP34 EQU RPHSRPRM+2 03359000 RPHSRP12 EQU RPHSRPRM 03360000 RPHWEGT EQU RPHCSPA 03361000 RPHRESUM EQU RPHRESMA+1 03362000 RPHRSV01 EQU RPHWPFLG 03363000 RPHPT EQU RPHWPFLG 03364000 RPHWT EQU RPHWPFLG 03365000 RPHRSKEY EQU RPHWPFLG 03366000 RPHDVTA EQU ISTRPH+12 03367000 RPHTIK EQU RPHTSKID+3 03368000 @NM00090 EQU RPHTSKID 03369000 RPHRPHAP EQU RPHRPHA+1 03370000 @NM00089 EQU RPHRPHA 03371000 RPHGATE EQU RPHRPHA 03372000 @NM00088 EQU RPHFLGB 03373000 RPHRLCRA EQU RPHFLGB 03374000 RPHNRSAV EQU RPHFLGB 03375000 RPHPGCMP EQU RPHFLGB 03376000 RPHFBAPS EQU RPHFLGB 03377000 RPHBSSP EQU RPHFLGB 03378000 RPHLOCK EQU RPHFLGB 03379000 RPHFNFLG EQU RPHFSTLC 03380000 RPHMLTCP EQU RPHFLAGS 03381000 RPHSMCLR EQU RPHFLAGS 03382000 RPHSMTYP EQU RPHFLAGS 03383000 RPHSMQ EQU RPHFLAGS 03384000 RPHAUTEX EQU RPHAPTYP 03385000 RPHSPGIN EQU RPHFLAGS 03386000 RPHOGIND EQU RPHFLAGS 03387000 RPHLNGTH EQU RPHCNTL+1 03388000 RPHTYPE EQU RPHCNTL 03389000 DYPRSV01 EQU ISTDYPAB+12 03390000 DYPCHAIN EQU ISTDYPAB+4 03391000 DYPFLGS EQU ISTDYPAB+2 03392000 DYPLNGTH EQU ISTDYPAB+1 03393000 DYPTYPE EQU ISTDYPAB 03394000 LOKXCL EQU @NM00086 03395000 LOKPRY EQU @NM00086 03396000 @NM00087 EQU @NM00086 03397000 @NM00085 EQU LOKCHNG 03398000 LOKCT EQU ISTLOK 03399000 PABNODQ EQU PABFLAGS 03400000 PABINHBT EQU PABFLAGS 03401000 PABERLOK EQU PABERRLK 03402000 PABSSN EQU PABFLAGS 03403000 PABNORPR EQU PABFLAGS 03404000 PABPRIOR EQU PABFLAGS 03405000 PABAPYP EQU PABFLAGS 03406000 PABDVTA EQU ISTPAB+9 03407000 PABRSV02 EQU PABCHAIN 03408000 PABDELAY EQU PABCHAIN 03409000 PABRUNNG EQU PABCHAIN 03410000 PABRESET EQU PABCHAIN 03411000 PABUNCON EQU PABCHAIN 03412000 PABCDP EQU PABCHAIN 03413000 PABRESCH EQU PABCHAIN 03414000 PABCHNG EQU PABCHAIN 03415000 PABWEQP EQU PABWEQA+1 03416000 PABRSV01 EQU PABWEQA 03417000 PABWEQG EQU PABWEQA 03418000 @NM00082 EQU TCBXTNT2+32 03419000 TCBRV181 EQU TCBRV173 03420000 TCBRV180 EQU TCBRV173 03421000 TCBRV179 EQU TCBRV173 03422000 TCBRV178 EQU TCBRV173 03423000 TCBRV177 EQU TCBRV173 03424000 TCBRV176 EQU TCBRV173 03425000 TCBRV175 EQU TCBRV173 03426000 TCBRV174 EQU TCBRV173 03427000 TCBRV172 EQU TCBRV164 03428000 TCBRV171 EQU TCBRV164 03429000 TCBRV170 EQU TCBRV164 03430000 TCBRV169 EQU TCBRV164 03431000 TCBRV168 EQU TCBRV164 03432000 TCBRV167 EQU TCBRV164 03433000 TCBRV166 EQU TCBRV164 03434000 TCBRV165 EQU TCBRV164 03435000 TCBRV163 EQU TCBRV155 03436000 TCBRV162 EQU TCBRV155 03437000 TCBRV161 EQU TCBRV155 03438000 TCBRV160 EQU TCBRV155 03439000 TCBRV159 EQU TCBRV155 03440000 TCBRV158 EQU TCBRV155 03441000 TCBRV157 EQU TCBRV155 03442000 TCBRV156 EQU TCBRV155 03443000 TCBRV154 EQU TCBRV146 03444000 TCBRV153 EQU TCBRV146 03445000 TCBRV152 EQU TCBRV146 03446000 TCBRV151 EQU TCBRV146 03447000 TCBRV150 EQU TCBRV146 03448000 TCBRV149 EQU TCBRV146 03449000 TCBRV148 EQU TCBRV146 03450000 TCBRV147 EQU TCBRV146 03451000 TCBRV145 EQU TCBXTNT2+26 03452000 TCBRV144 EQU TCBXTNT2+24 03453000 TCBRV143 EQU TCBXTNT2+20 03454000 TCBRV142 EQU TCBXTNT2+16 03455000 TCBRSV49 EQU TCBXTNT2+12 03456000 TCBEVENT EQU TCBXTNT2+8 03457000 TCBRCMP EQU TCBXTNT2+5 03458000 TCBRSVAB EQU TCBXTNT2+4 03459000 TCBGTFA EQU TCBGTF+1 03460000 TCBRSV47 EQU TCBTFLG 03461000 TCBRSV46 EQU TCBTFLG 03462000 TCBRSV45 EQU TCBTFLG 03463000 TCBRSV44 EQU TCBTFLG 03464000 TCBRSV43 EQU TCBTFLG 03465000 TCBDSPIT EQU TCBTFLG 03466000 TCBERRTN EQU TCBTFLG 03467000 TCBASYNC EQU TCBTFLG 03468000 @NM00081 EQU TCB+296 03469000 TCBSVCA2 EQU TCB+292 03470000 TCBSWASA EQU TCB+288 03471000 TCBDBTB EQU TCB+284 03472000 TCBRPT EQU TCB+280 03473000 TCBRV141 EQU TCBRV133 03474000 TCBRV140 EQU TCBRV133 03475000 TCBRV139 EQU TCBRV133 03476000 TCBRV138 EQU TCBRV133 03477000 TCBRV137 EQU TCBRV133 03478000 TCBRV136 EQU TCBRV133 03479000 TCBRV135 EQU TCBRV133 03480000 TCBRV134 EQU TCBRV133 03481000 TCBRV132 EQU TCBRV124 03482000 TCBRV131 EQU TCBRV124 03483000 TCBRV130 EQU TCBRV124 03484000 TCBRV129 EQU TCBRV124 03485000 TCBRV128 EQU TCBRV124 03486000 TCBRV127 EQU TCBRV124 03487000 TCBRV126 EQU TCBRV124 03488000 TCBRV125 EQU TCBRV124 03489000 TCBRV123 EQU TCBFBYT2 03490000 TCBRV122 EQU TCBFBYT2 03491000 TCBECBNV EQU TCBFBYT2 03492000 TCBSSSYN EQU TCBFBYT2 03493000 TCBFPRAP EQU TCBFBYT2 03494000 TCBFDW EQU TCBFBYT2 03495000 TCBFMW EQU TCBFBYT2 03496000 TCBCNCB EQU TCBFBYT2 03497000 TCBLLH EQU TCBFBYT1 03498000 TCBRV113 EQU TCBFBYT1 03499000 TCBEOT EQU TCBFBYT1 03500000 TCBRTM2 EQU TCBFBYT1 03501000 TCBPGNLY EQU TCBFBYT1 03502000 TCBNDIOS EQU TCBFBYT1 03503000 TCBACTIV EQU TCBFBYT1 03504000 TCBEOTFM EQU TCBFBYT1 03505000 TCBAFFN EQU TCB+274 03506000 TCBCCPVI EQU TCB+272 03507000 TCBUKYSP EQU TCB+268 03508000 TCBMODE EQU TCBESTAE+3 03509000 TCBERTYP EQU TCBESTAE+2 03510000 TCBRV314 EQU TCBESTRM 03511000 TCBRV313 EQU TCBESTRM 03512000 TCBRV312 EQU TCBESTRM 03513000 TCBRV311 EQU TCBESTRM 03514000 TCBRV310 EQU TCBESTRM 03515000 TCBRV309 EQU TCBESTRM 03516000 TCBRV308 EQU TCBESTRM 03517000 TCBETERM EQU TCBESTRM 03518000 TCBSCBKY EQU TCBESTAE 03519000 TCBRTM12 EQU TCB+260 03520000 TCBTCBID EQU TCB+256 03521000 TCBRSV96 EQU TCB+252 03522000 TCBSWA EQU TCB+248 03523000 TCBFOEA EQU TCBFOE+1 03524000 TCBRSV42 EQU TCBFOE 03525000 TCBRV306 EQU TCB+240 03526000 TCBRSV41 EQU TCB+239 03527000 TCBTID EQU TCB+238 03528000 TCBRSVAA EQU TCB+237 03529000 TCBABCUR EQU TCB+236 03530000 TCBTMSAV EQU TCB+232 03531000 TCBIOTIM EQU TCB+228 03532000 TCBRTWA EQU TCB+224 03533000 TCBBACK EQU TCB+220 03534000 TCBTIRB EQU TCB+216 03535000 TCBAECB EQU TCB+212 03536000 TCBEXT2A EQU TCBEXT2+1 03537000 TCBRSV39 EQU TCBEXT2 03538000 TCBSTMCT EQU TCB+207 03539000 TCBSYSCT EQU TCB+206 03540000 TCBRSV37 EQU TCB+205 03541000 TCBEXSVC EQU TCBDAR 03542000 TCBDARMS EQU TCBDAR 03543000 TCBDARWT EQU TCBDAR 03544000 TCBDARO EQU TCBDAR 03545000 TCBDARMC EQU TCBDARC 03546000 TCBDARD EQU TCBDAR 03547000 TCBDARS EQU TCBDAR 03548000 TCBDARP EQU TCBDAR 03549000 TCBGTOFM EQU TCBFLGS7 03550000 TCBADMP EQU TCBFLGS7 03551000 TCBRSTSK EQU TCBFLGS7 03552000 TCBSVCS EQU TCBFLGS7 03553000 TCBSTACK EQU TCBFLGS7 03554000 TCBRSV34 EQU TCBFLGS7 03555000 TCBRSV33 EQU TCBFLGS7 03556000 TCBGPECB EQU TCBFLGS7 03557000 TCBNTJS EQU TCBFLGS6 03558000 TCBAPG EQU TCBFLGS6 03559000 TCBMIGR EQU TCBFLGS6 03560000 TCBRV303 EQU TCBFLGS6 03561000 TCBSPVLK EQU TCBFLGS6 03562000 TCBCPU EQU TCBFLGS6 03563000 TCBPIE17 EQU TCBFLGS6 03564000 TCBRV EQU TCBFLGS6 03565000 TCBRSV79 EQU TCBNDSP5 03566000 TCBRSV78 EQU TCBNDSP5 03567000 TCBRSV77 EQU TCBNDSP5 03568000 TCBRSV76 EQU TCBNDSP5 03569000 TCBRSV75 EQU TCBNDSP5 03570000 TCBRSV74 EQU TCBNDSP5 03571000 TCBRSV95 EQU TCBNDSP5 03572000 TCBRSV94 EQU TCBNDSP5 03573000 TCBRSV93 EQU TCBNDSP4 03574000 TCBRSV92 EQU TCBNDSP4 03575000 TCBRSV91 EQU TCBNDSP4 03576000 TCBRSV90 EQU TCBNDSP4 03577000 TCBRSV89 EQU TCBNDSP4 03578000 TCBRSV88 EQU TCBNDSP4 03579000 TCBRSV87 EQU TCBNDSP4 03580000 TCBRSV86 EQU TCBNDSP4 03581000 TCBEXT1A EQU TCBEXT1+1 03582000 TCBRSV32 EQU TCBEXT1 03583000 TCBEXCPD EQU TCB+192 03584000 TCBIOBRC EQU TCB+188 03585000 TCBDDWTC EQU TCB+186 03586000 TCBDDEXC EQU TCB+184 03587000 TCBJSCBB EQU TCBJSCB+1 03588000 @NM00080 EQU TCBRECDE 03589000 TCBREC EQU TCBRECDE 03590000 TCBMDIDS EQU TCB+176 03591000 TCBNDINT EQU TCBNDSP3 03592000 TCBRSV27 EQU TCBNDSP3 03593000 TCBRSV26 EQU TCBNDSP3 03594000 TCBRSV25 EQU TCBNDSP3 03595000 TCBRSV24 EQU TCBNDSP3 03596000 TCBSRBND EQU TCBNDSP3 03597000 TCBRV302 EQU TCBNDSP3 03598000 TCBLJSND EQU TCBNDSP3 03599000 TCBABE EQU TCBNDSP2 03600000 TCBDSS EQU TCBNDSP2 03601000 TCBOWAIT EQU TCBNDSP2 03602000 TCBIWAIT EQU TCBNDSP2 03603000 TCBNDTS EQU TCBNDSP2 03604000 TCBNDSVC EQU TCBNDSP2 03605000 TCBSTPP EQU TCBNDSP2 03606000 TCBABD EQU TCBNDSP2 03607000 TCBRSV22 EQU TCBNDSP1 03608000 TCBPIEND EQU TCBNDSP1 03609000 TCBTPSP EQU TCBNDSP1 03610000 TCBDDRND EQU TCBNDSP1 03611000 TCBRSPND EQU TCBNDSP1 03612000 TCBRSTND EQU TCBNDSP1 03613000 TCBDARPN EQU TCBNDSP1 03614000 TCBDARTN EQU TCBNDSP1 03615000 TCBNDSP0 EQU TCBNDSP 03616000 TCBUSER EQU TCB+168 03617000 TCBTCTB EQU TCBTCT+1 03618000 TCBRSV9C EQU TCBTCTGF 03619000 TCBRSV9B EQU TCBTCTGF 03620000 TCBRSV9A EQU TCBTCTGF 03621000 TCBRSV99 EQU TCBTCTGF 03622000 TCBRSV98 EQU TCBTCTGF 03623000 TCBRSV97 EQU TCBTCTGF 03624000 TCBRSV20 EQU TCBTCTGF 03625000 TCBSMFGF EQU TCBTCTGF 03626000 TCBSTABB EQU TCBSTAB+1 03627000 TCBSTCUR EQU TCBNSTAE 03628000 TCBRV301 EQU TCBNSTAE 03629000 TCBSYNCH EQU TCBNSTAE 03630000 TCBHALT EQU TCBNSTAE 03631000 TCBPPSUP EQU TCBNSTAE 03632000 TCB33E EQU TCBNSTAE 03633000 TCBQUIES EQU TCBNSTAE 03634000 TCBSTABE EQU TCBNSTAE 03635000 TCBAQE EQU TCB+156 03636000 TCBPQE EQU TCB+152 03637000 TCBTSDP EQU TCB+151 03638000 TCBTSLP EQU TCB+150 03639000 TCBSTPCT EQU TCB+149 03640000 TCBCPUBN EQU TCBTSFLG 03641000 TCBDYDSP EQU TCBTSFLG 03642000 TCBRSV18 EQU TCBTSFLG 03643000 TCBRSV17 EQU TCBTSFLG 03644000 TCBTIOTG EQU TCBTSFLG 03645000 TCBATT EQU TCBTSFLG 03646000 TCBSTPPR EQU TCBTSFLG 03647000 TCBRV300 EQU TCBTSTSK 03648000 TCBECB EQU TCB+144 03649000 TCBIQE EQU TCB+140 03650000 TCBLTC EQU TCB+136 03651000 TCBOTC EQU TCB+132 03652000 TCBNTC EQU TCB+128 03653000 TCBJSTCA EQU TCBJSTCB+1 03654000 TCBRSV16 EQU TCBJSTCB 03655000 TCBTQET EQU TCBTME 03656000 TCBTCB EQU TCB+116 03657000 TCBFSAB EQU TCBFSA+1 03658000 TCBQEL EQU TCBFSA 03659000 TCBGRS15 EQU TCBGRS+60 03660000 TCBGRS14 EQU TCBGRS+56 03661000 TCBGRS13 EQU TCBGRS+52 03662000 TCBGRS12 EQU TCBGRS+48 03663000 TCBGRS11 EQU TCBGRS+44 03664000 TCBGRS10 EQU TCBGRS+40 03665000 TCBGRS9 EQU TCBGRS+36 03666000 TCBGRS8 EQU TCBGRS+32 03667000 TCBGRS7 EQU TCBGRS+28 03668000 TCBGRS6 EQU TCBGRS+24 03669000 TCBGRS5 EQU TCBGRS+20 03670000 TCBGRS4 EQU TCBGRS+16 03671000 TCBGRS3 EQU TCBGRS+12 03672000 TCBGRS2 EQU TCBGRS+8 03673000 TCBGRS1 EQU TCBGRS+4 03674000 TCBGRS0 EQU TCBGRS 03675000 TCBJPQB EQU TCBJPQ+1 03676000 TCBRSV15 EQU TCBPURGE 03677000 TCBRSV14 EQU TCBPURGE 03678000 TCBRSV13 EQU TCBPURGE 03679000 TCBRSV12 EQU TCBPURGE 03680000 TCBRSV11 EQU TCBPURGE 03681000 TCBRSV10 EQU TCBPURGE 03682000 TCBRSV09 EQU TCBPURGE 03683000 TCBJPQF EQU TCBPURGE 03684000 TCBJLB EQU TCB+40 03685000 TCBLLS EQU TCB+36 03686000 TCBDSP EQU TCB+35 03687000 TCBLMP EQU TCB+34 03688000 TCBPNDSP EQU TCBFLGS5 03689000 TCBFCD1 EQU TCBFLGS5 03690000 TCBSTP EQU TCBFLGS5 03691000 TCBSYS EQU TCBFLGS5 03692000 TCBANDSP EQU TCBFLGS5 03693000 TCBPAGE EQU TCBFLGS5 03694000 TCBUXNDF EQU TCBABWF 03695000 TCBFC EQU TCBFLGS5 03696000 TCBONDSP EQU TCBFLGS4 03697000 TCBMPCND EQU TCBFLGS4 03698000 TCBMPCVQ EQU TCBFLGS4 03699000 TCBUXNDV EQU TCBFLGS4 03700000 TCBHNDSP EQU TCBFLGS4 03701000 TCBRQENA EQU TCBFLGS4 03702000 TCBSER EQU TCBFLGS4 03703000 TCBNDUMP EQU TCBFLGS4 03704000 TCBDWSTA EQU TCBFLGS3 03705000 TCBRSV08 EQU TCBFLGS3 03706000 TCBRSV07 EQU TCBFLGS3 03707000 TCBRSV06 EQU TCBFLGS3 03708000 TCBABGM EQU TCBFLGS3 03709000 TCBABTRM EQU TCBFLGS3 03710000 TCBADINP EQU TCBFLGS3 03711000 TCBFSM EQU TCBFLGS3 03712000 TCBFTS EQU TCBFLGS2 03713000 TCBFETXR EQU TCBFLGS2 03714000 TCBFDSOP EQU TCBFLGS2 03715000 TCBFJMC EQU TCBFLGS2 03716000 TCBFSMC EQU TCBFLGS2 03717000 TCBFABOP EQU TCBFLGS2 03718000 TCBFSTI EQU TCBFLGS2 03719000 TCBFOINP EQU TCBFLGS2 03720000 TCBFX EQU TCBFLGS1 03721000 TCBFS EQU TCBFLGS1 03722000 TCBFT EQU TCBFLGS1 03723000 TCBPDUMP EQU TCBFLGS1 03724000 TCBNONPR EQU TCBFLGS1 03725000 TCBFERA EQU TCBFLGS1 03726000 TCBFE EQU TCBFLGS1 03727000 TCBFA EQU TCBFLGS1 03728000 TCBZERO EQU TCBPKF 03729000 TCBFLAG EQU TCBPKF 03730000 TCBMSSB EQU TCBMSS+1 03731000 TCBRSV03 EQU TCBMSS 03732000 TCBTRNB EQU TCBTRN+1 03733000 TCBRSV02 EQU TCBABF 03734000 TCBOLTEP EQU TCBABF 03735000 TCBTCP EQU TCBABF 03736000 TCBTCPP EQU TCBABF 03737000 TCBRSV01 EQU TCBABF 03738000 TCBGRPH EQU TCBABF 03739000 TCBNOCHK EQU TCBABF 03740000 TCBMOD91 EQU TCBABF 03741000 TCBCMPC EQU TCBCMP+1 03742000 TCBRV318 EQU TCBCMSG 03743000 TCBRV317 EQU TCBCIND 03744000 TCBRV316 EQU TCBCWTO 03745000 TCBCASID EQU TCBCDBL 03746000 TCBNOCC EQU TCBSTCC 03747000 TCBDMPO EQU TCBCPP 03748000 TCBCSTEP EQU TCBCMPF 03749000 TCBCREQ EQU TCBCMPF 03750000 TCBDEB EQU TCB+8 03751000 TCBPIEA EQU TCBPIE+1 03752000 TCBPM EQU TCBPMASK 03753000 @NM00079 EQU TCBPMASK 03754000 TCBRBP EQU TCB 03755000 TCBFRS6 EQU TCBFRS+24 03756000 TCBFRS4 EQU TCBFRS+16 03757000 TCBFRS2 EQU TCBFRS+8 03758000 TCBFRS0 EQU TCBFRS 03759000 FRRSPARM EQU FRRSENTR+8 03760000 @NM00078 EQU FRRSFLGS+1 03761000 @NM00077 EQU FRRSFLG1 03762000 FRRSRCUR EQU FRRSFLG1 03763000 FRRSFRRA EQU FRRSENTR 03764000 FRRSENTS EQU FRRS+84 03765000 FRRSRTMW EQU FRRS+16 03766000 FRRSLAST EQU FRRSHEAD+4 03767000 @NM00052 EQU SDWA+512 03768000 @NM00051 EQU SDWADPVA 03769000 SDWAVRAL EQU SDWARA 03770000 @NM00050 EQU SDWA+396 03771000 SDWACOMP EQU SDWA+392 03772000 SDWARCPL EQU SDWA+364 03773000 @NM00049 EQU SDWADPSA+32 03774000 SDWATO4 EQU SDWADPSL+28 03775000 SDWAFRM4 EQU SDWADPSL+24 03776000 SDWATO3 EQU SDWADPSL+20 03777000 SDWAFRM3 EQU SDWADPSL+16 03778000 SDWATO2 EQU SDWADPSL+12 03779000 SDWAFRM2 EQU SDWADPSL+8 03780000 SDWATO1 EQU SDWADPSL+4 03781000 SDWAFRM1 EQU SDWADPSL 03782000 @NM00048 EQU SDWADDAT+3 03783000 @NM00047 EQU SDWAPDAT 03784000 SDWAUSPL EQU SDWAPDAT 03785000 SDWADPSW EQU SDWAPDAT 03786000 SDWATJPA EQU SDWAPDAT 03787000 SDWATLPA EQU SDWAPDAT 03788000 SDWADREG EQU SDWAPDAT 03789000 SDWADSAH EQU SDWAPDAT 03790000 SDWADSAS EQU SDWAPDAT 03791000 @NM00046 EQU SDWADDAT+1 03792000 @NM00045 EQU SDWASDAT 03793000 SDWAQQS EQU SDWASDAT 03794000 SDWACBS EQU SDWASDAT 03795000 SDWAGTF EQU SDWASDAT 03796000 SDWASWA EQU SDWASDAT 03797000 SDWALSQA EQU SDWASDAT 03798000 SDWASQA EQU SDWASDAT 03799000 SDWANUC EQU SDWASDAT 03800000 @NM00044 EQU SDWADUMP+2 03801000 @NM00043 EQU SDWADPFS 03802000 SDWASLST EQU SDWADPFS 03803000 @NM00042 EQU SDWADPFS 03804000 SDWADLST EQU SDWADPFS 03805000 SDWADPT EQU SDWADPFS 03806000 SDWADPID EQU SDWADUMP 03807000 SDWADPLA EQU SDWA+316 03808000 SDWACSCT EQU SDWARECP+8 03809000 @NM00041 EQU SDWALKWA+32 03810000 SDWATALW EQU SDWALKWS+28 03811000 SDWATDLW EQU SDWALKWS+24 03812000 SDWATNLW EQU SDWALKWS+20 03813000 SDWAAPLW EQU SDWALKWS+16 03814000 SDWAIPLW EQU SDWALKWS+12 03815000 SDWAILLW EQU SDWALKWS+8 03816000 SDWAIULW EQU SDWALKWS+4 03817000 SDWAICLW EQU SDWALKWS 03818000 SDWAFLLK EQU SDWAACF4 03819000 SDWACMS EQU SDWAACF4 03820000 SDWAOPTM EQU SDWAACF4 03821000 SDWATADB EQU SDWAACF4 03822000 SDWATDNB EQU SDWAACF4 03823000 SDWATNCB EQU SDWAACF4 03824000 SDWAILCH EQU SDWAACF4 03825000 SDWAIUCB EQU SDWAACF4 03826000 SDWAICAT EQU SDWAACF3 03827000 SDWAIPRG EQU SDWAACF3 03828000 SDWASALL EQU SDWAACF3 03829000 SDWAASMP EQU SDWAACF3 03830000 SDWADISP EQU SDWAACF3 03831000 @NM00040 EQU SDWAACF3 03832000 @NM00039 EQU SDWAACF2 03833000 @NM00038 EQU SDWAACF2 03834000 SDWASPIN EQU SDWAACF2 03835000 @NM00037 EQU SDWAACF2 03836000 SDWALCPU EQU SDWACPUA+2 03837000 @NM00036 EQU SDWACPUA 03838000 SDWARECA EQU SDWA+244 03839000 @NM00035 EQU SDWA+239 03840000 @NM00034 EQU SDWAIOFS 03841000 SDWANIOP EQU SDWAIOFS 03842000 SDWANOIO EQU SDWAIOFS 03843000 SDWAIOHT EQU SDWAIOFS 03844000 SDWAIOQR EQU SDWAIOFS 03845000 SDWAFMID EQU SDWA+236 03846000 @NM00033 EQU SDWAERRD 03847000 SDWAMCIV EQU SDWAERRD 03848000 SDWARPIV EQU SDWAERRD 03849000 SDWAMABD EQU SDWAERRD 03850000 SDWACTS EQU SDWAERRD 03851000 SDWASTAE EQU SDWAERRD 03852000 SDWANRBE EQU SDWAERRD 03853000 SDWACLUP EQU SDWAERRD 03854000 @NM00032 EQU SDWAERRC 03855000 SDWAEAS EQU SDWAERRC 03856000 SDWAPERC EQU SDWAERRC 03857000 SDWAIRB EQU SDWAERRC 03858000 SDWASTAI EQU SDWAERRC 03859000 SDWASTAF EQU SDWAERRC 03860000 SDWASRBM EQU SDWAERRB 03861000 SDWALDIS EQU SDWAERRB 03862000 SDWAENRB EQU SDWAERRB 03863000 SDWATYP1 EQU SDWAERRB 03864000 @NM00031 EQU SDWAERRB 03865000 SDWAPGIO EQU SDWAERRA 03866000 SDWATEXC EQU SDWAERRA 03867000 SDWASVCE EQU SDWAERRA 03868000 SDWAABTM EQU SDWAERRA 03869000 SDWASVCD EQU SDWAERRA 03870000 SDWARKEY EQU SDWAERRA 03871000 SDWAPCHK EQU SDWAERRA 03872000 SDWAMCHK EQU SDWAERRA 03873000 SDWATIME EQU SDWAMCH+20 03874000 SDWARFSA EQU SDWAMCH+16 03875000 @NM00030 EQU SDWAMCH+14 03876000 SDWAVEQR EQU SDWARSR2 03877000 SDWAPGFX EQU SDWARSR2 03878000 SDWAFLSQ EQU SDWARSR2 03879000 SDWAFSQA EQU SDWARSR2 03880000 SDWANUCL EQU SDWARSR2 03881000 SDWASPER EQU SDWARSR2 03882000 SDWAINTC EQU SDWARSR2 03883000 SDWAOFLN EQU SDWARSR2 03884000 SDWACHNG EQU SDWARSR1 03885000 SDWAMSER EQU SDWARSR1 03886000 @NM00029 EQU SDWARSR1 03887000 SDWACPID EQU SDWAMCH+10 03888000 SDWATERR EQU SDWAMCHD 03889000 SDWAFPRX EQU SDWAMCHD 03890000 SDWAINSF EQU SDWAMCHD 03891000 SDWAACR EQU SDWAMCHD 03892000 SDWASCK EQU SDWAMCHD 03893000 SDWAPSWU EQU SDWAMCHD 03894000 SDWAREGU EQU SDWAMCHD 03895000 SDWASKYF EQU SDWAMCHD 03896000 @NM00028 EQU SDWAMCHS 03897000 SDWARSRF EQU SDWAMCHS 03898000 SDWARSRC EQU SDWAMCHS 03899000 SDWAINVP EQU SDWAMCHS 03900000 SDWATSVL EQU SDWAMCHS 03901000 SDWARCDF EQU SDWAMCHS 03902000 SDWASRVL EQU SDWAMCHS 03903000 SDWASCKE EQU SDWASTCK+4 03904000 SDWASCKB EQU SDWASTCK 03905000 SDWALNTH EQU SDWAIDNT+1 03906000 SDWASPID EQU SDWAIDNT 03907000 SDWASR14 EQU SDWASRSV+56 03908000 SDWASR13 EQU SDWASRSV+52 03909000 SDWASR12 EQU SDWASRSV+48 03910000 SDWASR11 EQU SDWASRSV+44 03911000 SDWASR10 EQU SDWASRSV+40 03912000 SDWASR09 EQU SDWASRSV+36 03913000 SDWASR08 EQU SDWASRSV+32 03914000 SDWASR07 EQU SDWASRSV+28 03915000 SDWASR06 EQU SDWASRSV+24 03916000 SDWASR05 EQU SDWASRSV+20 03917000 SDWASR04 EQU SDWASRSV+16 03918000 SDWASR03 EQU SDWASRSV+12 03919000 SDWASR02 EQU SDWASRSV+8 03920000 SDWASR01 EQU SDWASRSV+4 03921000 SDWASR00 EQU SDWASRSV 03922000 SDWATRN2 EQU SDWAAEC2+4 03923000 SDWAIPC2 EQU SDWAICD2 03924000 SDWAIMC2 EQU SDWAICD2 03925000 SDWAIPR2 EQU SDWAICD2 03926000 @NM00027 EQU SDWAINC2 03927000 @NM00026 EQU SDWAILC2 03928000 SDWAIL2 EQU SDWAILC2 03929000 @NM00025 EQU SDWAILC2 03930000 @NM00024 EQU SDWAAEC2 03931000 SDWAADD2 EQU SDWANXT2+1 03932000 @NM00023 EQU SDWANXT2 03933000 @NM00022 EQU SDWAEC2+3 03934000 SDWASGN2 EQU SDWAINT2 03935000 SDWAEXP2 EQU SDWAINT2 03936000 SDWADEC2 EQU SDWAINT2 03937000 SDWAFPO2 EQU SDWAINT2 03938000 SDWACC2 EQU SDWAINT2 03939000 @NM00021 EQU SDWAINT2 03940000 SDWAPGM2 EQU SDWAMWP2 03941000 SDWAWAT2 EQU SDWAMWP2 03942000 SDWAMCK2 EQU SDWAMWP2 03943000 SDWAECT2 EQU SDWAMWP2 03944000 SDWAKEY2 EQU SDWAMWP2 03945000 SDWAEXT2 EQU SDWAEMK2 03946000 SDWAIO2 EQU SDWAEMK2 03947000 SDWATRM2 EQU SDWAEMK2 03948000 @NM00020 EQU SDWAEMK2 03949000 SDWAPER2 EQU SDWAEMK2 03950000 @NM00019 EQU SDWAEMK2 03951000 SDWATRAN EQU SDWAAEC1+4 03952000 SDWAIPC1 EQU SDWAICD1 03953000 SDWAIMC1 EQU SDWAICD1 03954000 SDWAIPR1 EQU SDWAICD1 03955000 @NM00018 EQU SDWAINC1 03956000 @NM00017 EQU SDWAILC1 03957000 SDWAIL1 EQU SDWAILC1 03958000 @NM00016 EQU SDWAILC1 03959000 @NM00015 EQU SDWAAEC1 03960000 SDWAADD1 EQU SDWANXT1+1 03961000 @NM00014 EQU SDWANXT1 03962000 @NM00013 EQU SDWAEC1+3 03963000 SDWASGN1 EQU SDWAINT1 03964000 SDWAEXP1 EQU SDWAINT1 03965000 SDWADEC1 EQU SDWAINT1 03966000 SDWAFPO1 EQU SDWAINT1 03967000 SDWACC1 EQU SDWAINT1 03968000 @NM00012 EQU SDWAINT1 03969000 SDWAPGM1 EQU SDWAMWP1 03970000 SDWAWAT1 EQU SDWAMWP1 03971000 SDWAMCK1 EQU SDWAMWP1 03972000 SDWAECT1 EQU SDWAMWP1 03973000 SDWAKEY1 EQU SDWAMWP1 03974000 SDWAEXT1 EQU SDWAEMK1 03975000 SDWAIO1 EQU SDWAEMK1 03976000 SDWATRM1 EQU SDWAEMK1 03977000 @NM00011 EQU SDWAEMK1 03978000 SDWAPER1 EQU SDWAEMK1 03979000 @NM00010 EQU SDWAEMK1 03980000 SDWAIOBR EQU SDWA+100 03981000 SDWAEPA EQU SDWA+96 03982000 @NM00009 EQU SDWANAME+4 03983000 SDWARBAD EQU SDWANAME 03984000 SDWAGR15 EQU SDWAGRSV+60 03985000 SDWAGR13 EQU SDWAGRSV+52 03986000 SDWAGR12 EQU SDWAGRSV+48 03987000 SDWAGR11 EQU SDWAGRSV+44 03988000 SDWAGR08 EQU SDWAGRSV+32 03989000 SDWAGR07 EQU SDWAGRSV+28 03990000 SDWAGR06 EQU SDWAGRSV+24 03991000 SDWAGR05 EQU SDWAGRSV+20 03992000 SDWAGR04 EQU SDWAGRSV+16 03993000 SDWAGR03 EQU SDWAGRSV+12 03994000 SDWAGR02 EQU SDWAGRSV+8 03995000 SDWAGR01 EQU SDWAGRSV+4 03996000 SDWAGR00 EQU SDWAGRSV 03997000 SDWANXTP EQU SDWACTL2+5 03998000 SDWASGP EQU SDWAPMKP 03999000 SDWAEUP EQU SDWAPMKP 04000000 SDWADOP EQU SDWAPMKP 04001000 SDWAFPP EQU SDWAPMKP 04002000 SDWACCP EQU SDWAPMKP 04003000 SDWAILP EQU SDWAPMKP 04004000 SDWAINTP EQU SDWACTL2+2 04005000 SDWASPVP EQU SDWAMWPP 04006000 SDWAWATP EQU SDWAMWPP 04007000 SDWAMCKP EQU SDWAMWPP 04008000 @NM00008 EQU SDWAMWPP 04009000 SDWAKEYP EQU SDWAMWPP 04010000 SDWAEXTP EQU SDWACMKP 04011000 SDWAIOP EQU SDWACMKP 04012000 SDWANXTA EQU SDWACTL1+5 04013000 SDWASGA EQU SDWAPMKA 04014000 SDWAEUA EQU SDWAPMKA 04015000 SDWADOA EQU SDWAPMKA 04016000 SDWAFPA EQU SDWAPMKA 04017000 SDWACCA EQU SDWAPMKA 04018000 SDWAILA EQU SDWAPMKA 04019000 SDWAINTA EQU SDWACTL1+2 04020000 SDWASPVA EQU SDWAMWPA 04021000 SDWAWATA EQU SDWAMWPA 04022000 SDWAMCKA EQU SDWAMWPA 04023000 @NM00007 EQU SDWAMWPA 04024000 SDWAKEYA EQU SDWAMWPA 04025000 SDWAEXTA EQU SDWACMKA 04026000 SDWAIOA EQU SDWACMKA 04027000 SDWACMPC EQU SDWAABCC+1 04028000 @NM00006 EQU SDWACMPF 04029000 SDWASTCC EQU SDWACMPF 04030000 @NM00005 EQU SDWACMPF 04031000 SDWASTEP EQU SDWACMPF 04032000 SDWAREQ EQU SDWACMPF 04033000 @NM00004 EQU SRBSECT+40 04034000 @NM00003 EQU SRBSECT+38 04035000 SRBPRIOR EQU SRBSECT+37 04036000 SRBPKF EQU SRBSECT+36 04037000 SRBSAVE EQU SRBSECT+32 04038000 SRBPARM EQU SRBSECT+28 04039000 SRBRMTR EQU SRBSECT+24 04040000 SRBEP EQU SRBSECT+20 04041000 SRBPTCB EQU SRBFLC+4 04042000 SRBPASID EQU SRBFLC+2 04043000 SRBCPAFF EQU SRBFLC 04044000 SRBASCB EQU SRBSECT+8 04045000 SRBFLNK EQU SRBSECT+4 04046000 SRBID EQU SRBSECT 04047000 CVTLEVL EQU CVTRELNO+2 04048000 CVTNUMB EQU CVTRELNO 04049000 CVTMDL EQU CVTFIX+250 04050000 @NM00002 EQU CVTFIX+248 04051000 @NM00001 EQU CVTFIX 04052000 CVTRV482 EQU CVTXTNT2+128 04053000 CVTRV481 EQU CVTXTNT2+124 04054000 CVTRV480 EQU CVTXTNT2+120 04055000 CVTRV479 EQU CVTXTNT2+118 04056000 CVTRV478 EQU CVTXTNT2+117 04057000 CVTRV477 EQU CVTXTNT2+116 04058000 CVTRV476 EQU CVTXTNT2+115 04059000 CVTRV475 EQU CVTXTNT2+114 04060000 CVTRV474 EQU CVTRV466 04061000 CVTRV473 EQU CVTRV466 04062000 CVTRV472 EQU CVTRV466 04063000 CVTRV471 EQU CVTRV466 04064000 CVTRV470 EQU CVTRV466 04065000 CVTRV469 EQU CVTRV466 04066000 CVTRV468 EQU CVTRV466 04067000 CVTRV467 EQU CVTRV466 04068000 CVTRV465 EQU CVTRV457 04069000 CVTRV464 EQU CVTRV457 04070000 CVTRV463 EQU CVTRV457 04071000 CVTRV462 EQU CVTRV457 04072000 CVTRV461 EQU CVTRV457 04073000 CVTRV460 EQU CVTRV457 04074000 CVTRV459 EQU CVTRV457 04075000 CVTRV458 EQU CVTRV457 04076000 CVTRV456 EQU CVTXTNT2+108 04077000 CVTRV455 EQU CVTXTNT2+104 04078000 CVTRV454 EQU CVTXTNT2+100 04079000 CVTRV453 EQU CVTXTNT2+96 04080000 CVTRV452 EQU CVTXTNT2+94 04081000 CVTRV451 EQU CVTXTNT2+92 04082000 CVTRV450 EQU CVTXTNT2+90 04083000 CVTRV449 EQU CVTXTNT2+88 04084000 CVTRV448 EQU CVTXTNT2+87 04085000 CVTRV447 EQU CVTXTNT2+86 04086000 CVTRV446 EQU CVTRV438 04087000 CVTRV445 EQU CVTRV438 04088000 CVTRV444 EQU CVTRV438 04089000 CVTRV443 EQU CVTRV438 04090000 CVTRV442 EQU CVTRV438 04091000 CVTRV441 EQU CVTRV438 04092000 CVTRV440 EQU CVTRV438 04093000 CVTRV439 EQU CVTRV438 04094000 CVTRV437 EQU CVTRV429 04095000 CVTRV436 EQU CVTRV429 04096000 CVTRV435 EQU CVTRV429 04097000 CVTRV434 EQU CVTRV429 04098000 CVTRV433 EQU CVTRV429 04099000 CVTRV432 EQU CVTRV429 04100000 CVTRV431 EQU CVTRV429 04101000 CVTRV430 EQU CVTRV429 04102000 CVTRV428 EQU CVTXTNT2+80 04103000 CVTRV427 EQU CVTXTNT2+76 04104000 CVTRV426 EQU CVTXTNT2+72 04105000 CVTRV425 EQU CVTXTNT2+68 04106000 CVTATACT EQU CVTATCVT 04107000 CVTRV423 EQU CVTXTNT2+62 04108000 CVTRV422 EQU CVTXTNT2+60 04109000 CVTRV421 EQU CVTXTNT2+58 04110000 CVTRV420 EQU CVTXTNT2+56 04111000 CVTRV419 EQU CVTXTNT2+55 04112000 CVTRV418 EQU CVTXTNT2+54 04113000 CVTRV417 EQU CVTRV409 04114000 CVTRV416 EQU CVTRV409 04115000 CVTRV415 EQU CVTRV409 04116000 CVTRV414 EQU CVTRV409 04117000 CVTRV413 EQU CVTRV409 04118000 CVTRV412 EQU CVTRV409 04119000 CVTRV411 EQU CVTRV409 04120000 CVTRV410 EQU CVTRV409 04121000 CVTRV408 EQU CVTRV400 04122000 CVTRV407 EQU CVTRV400 04123000 CVTRV406 EQU CVTRV400 04124000 CVTRV405 EQU CVTRV400 04125000 CVTRV404 EQU CVTRV400 04126000 CVTRV403 EQU CVTRV400 04127000 CVTRV402 EQU CVTRV400 04128000 CVTRV401 EQU CVTRV400 04129000 CVTICB EQU CVTXTNT2+48 04130000 CVTSKTA EQU CVTXTNT2+44 04131000 CVTSHSB EQU CVTSHS 04132000 CVTRSV98 EQU CVTXTNT2+36 04133000 CVTRSV97 EQU CVTXTNT2+34 04134000 CVTRSV96 EQU CVTXTNT2+32 04135000 CVTOLTEP EQU CVTXTNT2+28 04136000 CVTQIDA EQU CVTQID+1 04137000 CVTRSV95 EQU CVTQID 04138000 CVTRSV94 EQU CVTXTNT2+20 04139000 CVTRSV93 EQU CVTXTNT2+16 04140000 CVTRSV92 EQU CVTXTNT2+12 04141000 CVTDEBVR EQU CVTXTNT2+8 04142000 CVTRSV91 EQU CVTXTNT2+6 04143000 CVTRSV9H EQU CVTFLGBT 04144000 CVTRSV9G EQU CVTFLGBT 04145000 CVTRSV9F EQU CVTFLGBT 04146000 CVTRSV9E EQU CVTFLGBT 04147000 CVTRSV9D EQU CVTFLGBT 04148000 CVTRSV9C EQU CVTFLGBT 04149000 CVTVME EQU CVTFLGBT 04150000 CVTNPE EQU CVTFLGBT 04151000 CVTNUCLS EQU CVTXTNT2+4 04152000 CVTDSSVA EQU CVTDSSV+1 04153000 CVTRSV89 EQU CVTDSSV 04154000 CVTRSV88 EQU CVTXTNT1+8 04155000 CVTRSV87 EQU CVTXTNT1+4 04156000 CVTFACHN EQU CVTXTNT1 04157000 CVTRV488 EQU CVTMAP+412 04158000 CVTRV487 EQU CVTMAP+408 04159000 CVTRV486 EQU CVTMAP+404 04160000 CVTRV485 EQU CVTMAP+400 04161000 CVTACTAP EQU CVTMAP+396 04162000 CVTAUTH EQU CVTMAP+392 04163000 CVTATMCA EQU CVTATMCT+1 04164000 CVTATMST EQU CVTATMCT 04165000 CVTRSV61 EQU CVTMAP+384 04166000 CVTVOLT1 EQU CVTVOLM1+1 04167000 CVTVOLI1 EQU CVTVOLF1 04168000 CVTSTOA EQU CVTMAP+376 04169000 CVTRSV58 EQU CVTMAP+374 04170000 CVTRSV57 EQU CVTMAP+372 04171000 CVTDDCE EQU CVTMAP+368 04172000 CVTPNWFR EQU CVTMAP+364 04173000 CVTSMF EQU CVTMAP+360 04174000 CVTSULK EQU CVTMAP+358 04175000 CVTSLKO EQU CVTSYSK 04176000 CVTSLKP EQU CVTSYSK 04177000 CVTSLKQ EQU CVTSYSK 04178000 CVTSLKR EQU CVTSYSK 04179000 CVTRSV56 EQU CVTSYSK 04180000 CVTRSV55 EQU CVTSYSK 04181000 CVTRSV54 EQU CVTSYSK 04182000 CVTRSV53 EQU CVTSYSK 04183000 CVTRSV52 EQU CVTA1F1 04184000 CVTRSV51 EQU CVTA1F1 04185000 CVTRSV50 EQU CVTA1F1 04186000 CVTRSV49 EQU CVTA1F1 04187000 CVTRSV48 EQU CVTA1F1 04188000 CVTRSV47 EQU CVTA1F1 04189000 CVTSRSW EQU CVTA1F1 04190000 CVTPFSW EQU CVTA1F1 04191000 CVTPCVT EQU CVTMAP+352 04192000 CVTRSV46 EQU CVTMAP+344 04193000 CVTRSV45 EQU CVTMAP+340 04194000 CVTRSV44 EQU CVTMAP+338 04195000 CVTRSV43 EQU CVTMAP+336 04196000 CVTHJESA EQU CVTHJES+1 04197000 CVTRSV42 EQU CVTHJES 04198000 CVTEXT2A EQU CVTEXT2+1 04199000 CVTRSV41 EQU CVTEXT2 04200000 CVTAPFA EQU CVTAPF+1 04201000 CVTRSV40 EQU CVTAPF 04202000 CVTRV518 EQU CVTINTLA 04203000 CVTRV517 EQU CVTERPV 04204000 CVTEORM EQU CVTMAP+312 04205000 CVTMCHPR EQU CVTMAP+308 04206000 CVTTZ EQU CVTMAP+304 04207000 CVTJEPS EQU CVTMAP+300 04208000 CVTJESCT EQU CVTMAP+296 04209000 CVTMODE EQU CVTMAP+292 04210000 CVTPTRV EQU CVTMAP+288 04211000 CVTREAL EQU CVTMAP+284 04212000 CVTRSV39 EQU CVTMAP+280 04213000 CVTRSV38 EQU CVTMAP+276 04214000 CVTDMSRA EQU CVTDMSR+1 04215000 CVTRV634 EQU CVTDMSRF 04216000 CVTRV633 EQU CVTDMSRF 04217000 CVTRV632 EQU CVTDMSRF 04218000 CVTRV631 EQU CVTDMSRF 04219000 CVTRV630 EQU CVTDMSRF 04220000 CVTRV629 EQU CVTDMSRF 04221000 CVTUDUMP EQU CVTDMSRF 04222000 CVTSDUMP EQU CVTDMSRF 04223000 CVTQMSGA EQU CVTQMSG+1 04224000 CVTRSV36 EQU CVTQMSG 04225000 CVTAMFF EQU CVTMAP+264 04226000 CVTPURGA EQU CVTPURG+1 04227000 CVTRSV35 EQU CVTPURG 04228000 CVTCBSP EQU CVTMAP+256 04229000 CVTATERA EQU CVTATER+1 04230000 CVTSYST EQU CVTATER 04231000 CVTVOLT2 EQU CVTTAT 04232000 CVTVOLI2 EQU CVTVOLF2 04233000 CVTAQAVB EQU CVTAQAVT+1 04234000 CVTRSV34 EQU CVTTCMFG 04235000 CVTRSV33 EQU CVTTCMFG 04236000 CVTRSV32 EQU CVTTCMFG 04237000 CVTRSV31 EQU CVTTCMFG 04238000 CVTRSV30 EQU CVTTCMFG 04239000 CVTRSV29 EQU CVTTCMFG 04240000 CVTRSV28 EQU CVTTCMFG 04241000 CVTTCRDY EQU CVTTCMFG 04242000 CVTGTFA EQU CVTGTF+1 04243000 CVTRSV27 EQU CVTGTFST 04244000 CVTRNIO EQU CVTGTFST 04245000 CVTUSR EQU CVTGTFST 04246000 CVTRV318 EQU CVTFORM 04247000 CVTRV317 EQU CVTTMODE 04248000 CVTRV316 EQU CVTSTATE 04249000 CVTRV315 EQU CVTGTFS 04250000 CVTGTFAV EQU CVTGTFS 04251000 CVT0SCR1 EQU CVTMAP+232 04252000 CVTRV515 EQU CVTMAP+228 04253000 CVTRMS EQU CVTMAP+224 04254000 CVTPATCH EQU CVTMAP+220 04255000 CVTTSCE EQU CVTMAP+216 04256000 CVTLNKSC EQU CVTMAP+214 04257000 CVTQABST EQU CVTMAP+212 04258000 CVTMDLDS EQU CVTMAP+208 04259000 CVTUSER EQU CVTMAP+204 04260000 CVTABEND EQU CVTMAP+200 04261000 CVTSMCA EQU CVTMAP+196 04262000 CVTRSV18 EQU CVTMAP+192 04263000 CVTQLPAQ EQU CVTMAP+188 04264000 CVTQCDSR EQU CVTMAP+184 04265000 CVTRSV17 EQU CVTOPTB 04266000 CVTRSV16 EQU CVTOPTB 04267000 CVTFP EQU CVTOPTB 04268000 CVTAPTHR EQU CVTOPTB 04269000 CVTNLOG EQU CVTOPTB 04270000 CVTTOD EQU CVTOPTB 04271000 CVTCTIMS EQU CVTOPTB 04272000 CVTPROT EQU CVTOPTB 04273000 CVTXPFP EQU CVTOPTA 04274000 CVTASCII EQU CVTOPTA 04275000 CVTRSV13 EQU CVTOPTA 04276000 CVTRSV12 EQU CVTOPTA 04277000 CVTNIP EQU CVTOPTA 04278000 CVTDDR EQU CVTOPTA 04279000 CVTAPR EQU CVTOPTA 04280000 CVTCCH EQU CVTOPTA 04281000 CVTSNCTR EQU CVTMAP+180 04282000 CVTQMWR EQU CVTMAP+176 04283000 CVTQOCR EQU CVTMAP+172 04284000 CVT1EF00 EQU CVTMAP+168 04285000 CVTMZ00 EQU CVTMAP+164 04286000 CVTHEAD EQU CVTMAP+160 04287000 CVTRSV11 EQU CVTMAP+156 04288000 CVT0PT01 EQU CVTMAP+152 04289000 CVTMSER EQU CVTMAP+148 04290000 CVTRV516 EQU CVTIERLC 04291000 CVTILCH EQU CVTMAP+140 04292000 CVT0DS EQU CVTMAP+136 04293000 CVTFBOSV EQU CVTMAP+132 04294000 CVTNUCB EQU CVTMAP+128 04295000 CVTIXAVL EQU CVTMAP+124 04296000 CVTIOQET EQU CVTMAP+120 04297000 CVTDCBA EQU CVTMAP+117 04298000 CVTMVS2 EQU CVTDCB 04299000 CVT6DAT EQU CVTDCB 04300000 CVT4MPS EQU CVTDCB 04301000 CVTRSV09 EQU CVTDCB 04302000 CVT4MS1 EQU CVTDCB 04303000 CVT2SPS EQU CVTDCB 04304000 CVT1SSS EQU CVTDCB 04305000 CVTRSV08 EQU CVTDCB 04306000 CVTSTB EQU CVTMAP+112 04307000 CVTQTD00 EQU CVTMAP+108 04308000 CVTQTE00 EQU CVTMAP+104 04309000 CVTCUCB EQU CVTMAP+100 04310000 CVTSJQ EQU CVTMAP+96 04311000 CVTPBLDL EQU CVTMAP+92 04312000 CVTTPC EQU CVTMAP+88 04313000 CVTSVDCB EQU CVTMAP+84 04314000 CVTBRET EQU CVTMAP+82 04315000 CVTEXIT EQU CVTMAP+80 04316000 CVT0FN00 EQU CVTMAP+76 04317000 CVTDARA EQU CVTDAR+1 04318000 CVTRSV07 EQU CVTFLGS1 04319000 CVTRSV06 EQU CVTFLGS1 04320000 CVTRSV05 EQU CVTFLGS1 04321000 CVTRSV04 EQU CVTFLGS1 04322000 CVTRSV03 EQU CVTFLGS1 04323000 CVTRSV02 EQU CVTFLGS1 04324000 CVTRSV01 EQU CVTFLGS1 04325000 CVTDMPLK EQU CVTFLGS1 04326000 CVTXITP EQU CVTMAP+68 04327000 CVTZDTAB EQU CVTMAP+64 04328000 CVTMSLT EQU CVTMAP+60 04329000 CVTDATE EQU CVTMAP+56 04330000 CVTBTERM EQU CVTMAP+52 04331000 CVTSYSAD EQU CVTMAP+48 04332000 CVTXTLER EQU CVTMAP+44 04333000 CVTILK2 EQU CVTMAP+40 04334000 CVTILK1 EQU CVTMAP+36 04335000 CVTPRLTV EQU CVTMAP+32 04336000 CVTPCNVT EQU CVTMAP+28 04337000 CVT0VL00 EQU CVTMAP+24 04338000 CVTXAPG EQU CVTMAP+20 04339000 CVTBUF EQU CVTMAP+16 04340000 CVTJOB EQU CVTMAP+12 04341000 CVTLINK EQU CVTMAP+8 04342000 CVT0EF00 EQU CVTMAP+4 04343000 CVTTCBP EQU CVTMAP 04344000 CVT EQU CVTMAP 04345000 @NM00076 EQU PSA+3668 04346000 PSASTAK EQU PSA+3072 04347000 @NM00075 EQU PSA+1048 04348000 PSAUSEND EQU PSA+1048 04349000 PSARV062 EQU PSA+1044 04350000 PSACDAL EQU PSA+1040 04351000 PSAWTCOD EQU PSA+1036 04352000 PSAATCVT EQU PSA+1032 04353000 PSAPCPSW EQU PSA+1024 04354000 PSAPIR2 EQU PSA+1020 04355000 PSARV059 EQU PSA+1018 04356000 PSASVC13 EQU PSA+1016 04357000 PSALSFCC EQU PSA+1012 04358000 PSASFACC EQU PSA+1008 04359000 PSASTOP EQU PSA+992 04360000 PSASTART EQU PSA+976 04361000 PSARSPSW EQU PSA+968 04362000 PSASRPSW EQU PSA+960 04363000 PSARV045 EQU PSA+892 04364000 PSARV044 EQU PSA+888 04365000 PSARV043 EQU PSA+884 04366000 PSARV042 EQU PSA+880 04367000 PSARV041 EQU PSA+876 04368000 PSARV040 EQU PSA+872 04369000 PSARV025 EQU PSA+868 04370000 PSADSSED EQU PSA+868 04371000 PSADSSPR EQU PSA+864 04372000 PSADSSFW EQU PSA+860 04373000 PSADSS14 EQU PSA+856 04374000 PSADSSPP EQU PSA+848 04375000 PSADSSRP EQU PSA+840 04376000 PSADSS05 EQU PSADSSF4 04377000 PSADSS10 EQU PSADSSF4 04378000 PSADSSVE EQU PSADSSF4 04379000 PSADSSDE EQU PSADSSF4 04380000 PSADSSC0 EQU PSADSSF4 04381000 PSADSSIE EQU PSADSSF4 04382000 PSADSS12 EQU PSADSSF4 04383000 PSADSSRC EQU PSADSSF4 04384000 PSARV057 EQU PSADSSF3 04385000 PSARV056 EQU PSADSSF3 04386000 PSARV055 EQU PSADSSF3 04387000 PSADSSMC EQU PSADSSF3 04388000 PSADSSRW EQU PSADSSF3 04389000 PSADSSNM EQU PSADSSF3 04390000 PSADSSES EQU PSADSSF3 04391000 PSADSSGP EQU PSADSSF3 04392000 PSADSSF2 EQU PSADSSFL+1 04393000 PSADSSPI EQU PSADSSF1 04394000 PSADSSOI EQU PSADSSF1 04395000 PSADSSSP EQU PSADSSF1 04396000 PSADSSTP EQU PSADSSF1 04397000 PSADSSDW EQU PSADSSF1 04398000 PSADSSDD EQU PSADSSF1 04399000 PSADSSDM EQU PSADSSF1 04400000 PSADSSMV EQU PSADSSF1 04401000 PSADSSTS EQU PSA+816 04402000 PSADSSWK EQU PSA+812 04403000 PSADSSR3 EQU PSA+808 04404000 PSADSSR2 EQU PSA+804 04405000 PSADSSRS EQU PSA+800 04406000 PSASTOR EQU PSA+796 04407000 PSACPUSA EQU PSA+794 04408000 PSAVSTAP EQU PSA+792 04409000 PSAWKVAP EQU PSA+788 04410000 PSAWKRAP EQU PSA+784 04411000 PSAMCHIC EQU PSA+783 04412000 PSARV061 EQU PSA+782 04413000 PSASYMSK EQU PSA+781 04414000 PSAMCHFL EQU PSA+780 04415000 PSACR0 EQU PSA+776 04416000 PSAPSWSV EQU PSA+768 04417000 PSACLHS EQU PSAHLHI 04418000 PSALKR15 EQU PSALKSA+60 04419000 PSALKR14 EQU PSALKSA+56 04420000 PSALKR13 EQU PSALKSA+52 04421000 PSALKR12 EQU PSALKSA+48 04422000 PSALKR11 EQU PSALKSA+44 04423000 PSALKR10 EQU PSALKSA+40 04424000 PSALKR9 EQU PSALKSA+36 04425000 PSALKR8 EQU PSALKSA+32 04426000 PSALKR7 EQU PSALKSA+28 04427000 PSALKR6 EQU PSALKSA+24 04428000 PSALKR5 EQU PSALKSA+20 04429000 PSALKR4 EQU PSALKSA+16 04430000 PSALKR3 EQU PSALKSA+12 04431000 PSALKR2 EQU PSALKSA+8 04432000 PSALKR1 EQU PSALKSA+4 04433000 PSALKR0 EQU PSALKSA 04434000 PSARV023 EQU PSACLHT+52 04435000 PSALOCAL EQU PSACLHT+48 04436000 PSACMSL EQU PSACLHT+44 04437000 PSAOPTL EQU PSACLHT+40 04438000 PSATPACL EQU PSACLHT+36 04439000 PSATPDNL EQU PSACLHT+32 04440000 PSATPNCL EQU PSACLHT+28 04441000 PSAIOSLL EQU PSACLHT+24 04442000 PSAIOSUL EQU PSACLHT+20 04443000 PSAIOSCL EQU PSACLHT+16 04444000 PSAIOSSL EQU PSACLHT+12 04445000 PSASALCL EQU PSACLHT+8 04446000 PSAASML EQU PSACLHT+4 04447000 PSADISPL EQU PSACLHT 04448000 PSASRSA EQU PSA+636 04449000 PSARV050 EQU PSA+634 04450000 PSADSSGO EQU PSA+633 04451000 PSARECUR EQU PSA+632 04452000 PSAHLHIS EQU PSA+628 04453000 PSAIPCSA EQU PSA+624 04454000 @NM00074 EQU PSA+621 04455000 PSAIPCDM EQU PSA+620 04456000 PSAIPCD EQU PSA+616 04457000 @NM00073 EQU PSA+613 04458000 PSAIPCRM EQU PSA+612 04459000 PSAIPCR EQU PSA+608 04460000 PSAMCHEX EQU PSA+600 04461000 PSAMPSW EQU PSA+592 04462000 PSAEXPS2 EQU PSA+584 04463000 PSAEXPS1 EQU PSA+576 04464000 PSAPIREG EQU PSA+572 04465000 PSARSREG EQU PSA+568 04466000 PSAGPREG EQU PSA+556 04467000 PSARV022 EQU PSASUP4 04468000 PSARV021 EQU PSASUP4 04469000 PSARV020 EQU PSASUP4 04470000 PSARV019 EQU PSASUP4 04471000 PSARV018 EQU PSASUP4 04472000 PSARV017 EQU PSASUP4 04473000 PSARV016 EQU PSASUP4 04474000 PSARV015 EQU PSASUP4 04475000 PSARV014 EQU PSASUP3 04476000 PSARV013 EQU PSASUP3 04477000 PSARV012 EQU PSASUP3 04478000 PSARV011 EQU PSASUP3 04479000 PSASPR EQU PSASUP3 04480000 PSAPSREG EQU PSASUP3 04481000 PSAPI2 EQU PSASUP3 04482000 PSAIOSUP EQU PSASUP3 04483000 PSALCR EQU PSASUP2 04484000 PSARTM EQU PSASUP2 04485000 PSAACR EQU PSASUP2 04486000 PSAIPCE2 EQU PSASUP2 04487000 PSAIPCES EQU PSASUP2 04488000 PSAIPCEC EQU PSASUP2 04489000 PSAGTF EQU PSASUP2 04490000 PSAIPCRI EQU PSASUP2 04491000 PSARV063 EQU PSASUP1 04492000 PSATCTL EQU PSASUP1 04493000 PSADISP EQU PSASUP1 04494000 PSALOCK EQU PSASUP1 04495000 PSAPI EQU PSASUP1 04496000 PSAEXT EQU PSASUP1 04497000 PSASVC EQU PSASUP1 04498000 PSAIO EQU PSASUP1 04499000 PSAAOLD EQU PSA+548 04500000 PSAANEW EQU PSA+544 04501000 PSATNEW EQU PSA+536 04502000 PSALCCAR EQU PSA+532 04503000 PSALCCAV EQU PSA+528 04504000 PSAPCCAR EQU PSA+524 04505000 PSAPCCAV EQU PSA+520 04506000 PSACPULA EQU PSA+518 04507000 PSACPUPA EQU PSA+516 04508000 PSAPSA EQU PSA+512 04509000 FLCHDEND EQU PSA+512 04510000 FLCCRSAV EQU FLCMCLA+280 04511000 FLCGRSAV EQU FLCMCLA+216 04512000 FLCFPSAV EQU FLCMCLA+184 04513000 FLCFLA EQU FLCMCLA+88 04514000 FLCRGNCD EQU FLCMCLA+84 04515000 FLCFSAA EQU FLCFSA+1 04516000 @NM00072 EQU FLCFSA 04517000 @NM00071 EQU FLCMCLA+72 04518000 FLCMCIC EQU FLCMCLA+64 04519000 @NM00070 EQU FLCMCLA+20 04520000 FLCIOAA EQU FLCIOA+1 04521000 @NM00069 EQU FLCIOA 04522000 @NM00068 EQU FLCMCLA+15 04523000 @NM00067 EQU FLCMCLA+14 04524000 @NM00066 EQU FLCMCLA+12 04525000 FLCLCL EQU FLCMCLA+8 04526000 FLCIOELA EQU FLCIOEL+1 04527000 @NM00065 EQU FLCIOEL 04528000 FLCCHNID EQU FLCMCLA 04529000 @NM00064 EQU PSA+160 04530000 FLCMTRCD EQU PSA+157 04531000 @NM00063 EQU PSA+156 04532000 FLCPERA EQU FLCPER+1 04533000 @NM00062 EQU FLCPER 04534000 @NM00061 EQU PSA+151 04535000 FLCPERCD EQU PSA+150 04536000 FLCMCNUM EQU PSA+149 04537000 @NM00060 EQU PSA+148 04538000 FLCTEAA EQU FLCTEA+1 04539000 @NM00059 EQU FLCTEA 04540000 PSAPIPC EQU PSAPICOD 04541000 PSAPIMC EQU PSAPICOD 04542000 PSAPIPER EQU PSAPICOD 04543000 PSARV049 EQU FLCPICOD 04544000 FLCPILCB EQU FLCPIILC 04545000 @NM00058 EQU FLCPIILC 04546000 @NM00057 EQU PSAEPPSW 04547000 FLCSVCN EQU PSAESPSW+2 04548000 FLCSILCB EQU FLCSVILC 04549000 @NM00056 EQU FLCSVILC 04550000 @NM00055 EQU PSAESPSW 04551000 FLCEICOD EQU PSAEEPSW+2 04552000 PSASPAD EQU PSAEEPSW 04553000 @NM00054 EQU PSA+128 04554000 FLCINPSW EQU PSA+120 04555000 FLCMNPSW EQU PSA+112 04556000 FLCPNPSW EQU PSA+104 04557000 FLCSNPSW EQU PSA+96 04558000 FLCENPSW EQU PSA+88 04559000 FLCTRACE EQU PSA+84 04560000 FLCTIMER EQU PSA+80 04561000 FLCCVT2 EQU PSA+76 04562000 FLCCAW EQU PSA+72 04563000 FLCCSW EQU PSA+64 04564000 FLCIOPSW EQU PSA+56 04565000 FLCMOPSW EQU PSA+48 04566000 FLCPOPSW EQU PSA+40 04567000 FLCSOPSW EQU PSA+32 04568000 FLCEOPSW EQU PSA+24 04569000 @NM00053 EQU FLCICCW2+4 04570000 FLCCVT EQU FLCICCW2 04571000 FLCICCW1 EQU FLCROPSW 04572000 FLCIPPSW EQU FLCRNPSW 04573000 * END UNREFERENCED COMPONENTS 04574000 @RC00373 EQU @RC00371 04575000 @RC00424 EQU @RC00415 04576000 @RC00456 EQU @RC00415 04577000 @RF00580 EQU @RC00578 04578000 @RC00588 EQU @RC00578 04579000 @RC00377 EQU @RC00373 04580000 @ENDDATA EQU * 04581000 END ISTAPC61,(C'PLS1856',0603,77266) 04582000