TITLE 'ISTAPA54-USER EXIT DISPATCHER *00001000 ' 00002000 ISTAPC54 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTAPC54 77.290' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * /**/ 00011000 */********************************************************************/ 00012000 */* BEGIN CODE */ 00013000 */********************************************************************/ 00014000 * /**/ 00015000 * STM(GPR14,GPR12,APCSAVE); 0346 00016000 STM GPR14,GPR12,APCSAVE(CRRREG) 0346 00017000 * GENERATE REFS(GPR12) SETS(GPR12); 0347 00018000 BALR GPR12,0 00019000 USING *,GPR12 00020000 * APC54E=ONCON; /*SET AUDIT ENTRY BIT ON. */ 00021000 OI APC54E(CRRREG),B'00010000' 0348 00022000 * APC54R=ONCON; /*SET AUDIT RUNNING BIT ON */ 00023000 OI APC54R(CRRREG),B'00010000' 0349 00024000 * /**/ 00025000 * /************************************************************/ 00026000 * /* DEQUEUE USER EXIT PAB FROM PST */ 00027000 * /*USER EXIT QUEUE. */ 00028000 * /************************************************************/ 00029000 * /**/ 00030000 * RFY BPABREG RSTD; 0350 00031000 *L0: PABREG=UEXTQUE; /*@XM02033*/ 00032000 L0 L PABREG,UEXTQUE(,ANCHREG) 0351 00033000 * IF PABREG=0 /*@XM02033*/ 00034000 * THEN; /*@XM02033*/ 00035000 LTR PABREG,PABREG 0352 00036000 BZ @RT00352 0352 00037000 * ELSE /*@XM02033*/ 00038000 * DO; /*@XM02033*/ 00039000 * BPABREG=0; /*@XM02033*/ 00040000 SLR BPABREG,BPABREG 0355 00041000 * DO WHILE(PABCHNGP^=0); /*@XM02033*/ 00042000 B @DE00356 0356 00043000 @DL00356 DS 0H 0357 00044000 * BPABREG=PABREG; /*@XM02033*/ 00045000 LR BPABREG,PABREG 0357 00046000 * PABREG=PABCHNGP; /*@XM02033*/ 00047000 L @10,PABCHNGP-1(,PABREG) 0358 00048000 LA @10,0(,@10) 0358 00049000 LR PABREG,@10 0358 00050000 * END; /*@XM02033*/ 00051000 @DE00356 L @10,PABCHNGP-1(,PABREG) 0359 00052000 LA @10,0(,@10) 0359 00053000 LTR @10,@10 0359 00054000 BNZ @DL00356 0359 00055000 * IF BPABREG=0 /*@XM02033*/ 00056000 * THEN /*@XM02033*/ 00057000 LTR BPABREG,BPABREG 0360 00058000 BNZ @RF00360 0360 00059000 * DO; /*@XM02033*/ 00060000 */* PABS ARE ONLY PLACED ON THE PST USER EXIT DISP. QUE BY APC52 */ 00061000 */* THEY ARE ALWAYS PUT ON THE FRONT OF THE QUEUE BY APC52-THEREFORE*/ 00062000 */* COMPARE + SWAP LOGIC ONLY NEEDED FOR ONE + ONLY ONE PAB */ 00063000 * CS (PABREG,BPABREG,UEXTQUE); /*@XM02033*/ 00064000 CS PABREG,@08,UEXTQUE(ANCHREG) 0362 00065000 * BC (NE,L0); /*@XM02033*/ 00066000 BC 7,L0 0363 00067000 * END; /*@XM02033*/ 00068000 * ELSE /*@XM02033*/ 00069000 * BPABREG->PABCHNGP=0; /*@XM02033*/ 00070000 B @RC00360 0365 00071000 @RF00360 SLR @10,@10 0365 00072000 STCM @10,7,PABCHNGP(BPABREG) 0365 00073000 * END; /*@XM02033*/ 00074000 @RC00360 DS 0H 0367 00075000 * RFY BPABREG UNRSTD; 0367 00076000 @RT00352 DS 0H 0368 00077000 * /**/ 00078000 * /************************************************************/ 00079000 * /*IF PABREG IS ZERO - THEN THE USER */ 0368 00080000 * /*EXIT QUEUE IS EMPTY. RESTORE REGS AND RETURN TO ISTAPA52. */ 00081000 * /************************************************************/ 00082000 * /**/ 00083000 * IF PABREG=0 /*IS USER EXIT QUEUE EMPTY? */ 00084000 * THEN 0368 00085000 LTR PABREG,PABREG 0368 00086000 BNZ @RF00368 0368 00087000 */*T1*/ DO; /*YES. */ 00088000 * APC54R=OFFCON; /*TURN OFF AUDIT RUNNING BIT */ 00089000 NI APC54R(CRRREG),B'11101111' 0370 00090000 * RFY GPR14 RSTD; 0371 00091000 * LM (GPR14,GPR12,APCSAVE); /*RESTORE CALLERS REGS. */ 00092000 LM GPR14,GPR12,APCSAVE(CRRREG) 0372 00093000 * GOTO ZRTN; /*RETURN TO ISTAPA52 @XL03HTK */ 00094000 BR GPR14 0373 00095000 * RFY GPR14 UNRSTD; 0374 00096000 */*END T1*/ END; 0375 00097000 * /**/ 00098000 * /************************************************************/ 00099000 * /*IF USER EXIT QUEUE IS NOT EMPTY, GET DEB POINTER FROM ACB.*/ 00100000 * /*TO DO THIS CHECK THE UECB TO SEE IF AN RPL EXIT IS */ 00101000 * /*INDICATED. IF SO GET THE ACB ADDRESS FROM THE RPL. IF NOT */ 00102000 * /*GET THE ADDRESS FROM THE UECB PARM LIST. */ 00103000 * /************************************************************/ 00104000 * /**/ 00105000 * ELSE 0376 00106000 */*E1*/ DO; /*NO. USER EXIT QUEUE IS NOT EMPTY. */ 00107000 @RF00368 DS 0H 0377 00108000 * RFY (MPSTREG,PSTREG) RSTD; /*@ZA03505*/ 00109000 * RFY ISTMPST BASED(MPSTREG); /*@ZA03505*/ 00110000 * UECBREG=PABWEQA; /* GET ADDRESS OF UECB @ZA08954*/ 00111000 L UECBREG,PABWEQA(,PABREG) 0379 00112000 * PSTREG=APCPSTA; /*@ZA03505*/ 00113000 L PSTREG,APCPSTA(,CRRREG) 0380 00114000 * MPSTREG=PSTMPSTP; /*@ZA03505*/ 00115000 L MPSTREG,PSTMPSTP(,PSTREG) 0381 00116000 * IF MPMEMTRM=ONCON|PSTABINP=ONCON /*@ZA03505*/ 00117000 * THEN; /*@ZA03505*/ 00118000 TM MPMEMTRM(MPSTREG),B'00010000' 0382 00119000 BO @RT00382 0382 00120000 TM PSTABINP(PSTREG),B'00000001' 0382 00121000 BO @RT00382 0382 00122000 * ELSE DO; /*@ZA03505*/ 00123000 * RFY ACDEBREG RSTD; 0385 00124000 * IF UECTYPE=ZERO /*UECB INDICATE RPL EXIT? */ 00125000 * THEN /* YES. */ 00126000 CLC UECTYPE(1,UECBREG),ZERO 0386 00127000 BNE @RF00386 0386 00128000 */*T2*/ ACDEBREG=UECRPLAD->RPLDACB->ACBDEB; /*GET VTAM DEB ADR. */ 00129000 L @14,UECRPLAD(,UECBREG) 0387 00130000 L @14,RPLDACB(,@14) 0387 00131000 L ACDEBREG,ACBDEB-1(,@14) 0387 00132000 LA ACDEBREG,0(,ACDEBREG) 0387 00133000 * ELSE /* NO. */ 00134000 */*E2*/ ACDEBREG=UECACB->ACBDEB; /*GET VTAM DEB ADDRESS. */ 00135000 B @RC00386 0388 00136000 @RF00386 L @14,UECACB(,UECBREG) 0388 00137000 L ACDEBREG,ACBDEB-1(,@14) 0388 00138000 LA ACDEBREG,0(,ACDEBREG) 0388 00139000 * /**/ 00140000 * /*BACK DEB ADDRESS UP TO POINT TO DEB VTAM PREFIX */ 00141000 * ACDEBREG=ACDEBREG-(LENGTH(ACDVTPRX)+LENGTH(ACDDBPFX)); 0389 00142000 @RC00386 SL ACDEBREG,@CF00069 0389 00143000 * /**/ 00144000 * /************************************************************/ 00145000 * /*CHECK TO SEE IF THE ACB IS IN PROCESS OF BEING CLOSED. IF */ 00146000 * /*SO, RELEASE THE UECB IMMEDIATELY. IF NOT ISSUE THE SYNCH */ 00147000 * /*MACRO. */ 00148000 * /************************************************************/ 00149000 */*T3*/ 0390 00150000 * IF ACDCACB=ONCON /*@ZA03505*/ 00151000 * THEN; /*CLOSE IN PROCESS ON ACB - RELEASE VRPL+ UECB */ 00152000 TM ACDCACB(ACDEBREG),B'10000000' 0390 00153000 BO @RT00390 0390 00154000 * ELSE /*CLOSE NOT IN PROCESS - ISSUE SYNCH MACRO IF */ 00155000 */*E3*/ DO; /*VTAM NOT ABENDING.*/ 00156000 * /**/ 00157000 * /************************************************************/ 00158000 * /* THE FOLLOWING TWO INSTRUCTIONS WILL ESTABLISH */ 00159000 * /*ADDRESSABILITY TO THE CRA THAT CONTAINS THE CRR ENTERED */ 00160000 * /*WITH. THE CRA IS NEEDED TO SAVE ALL REGISTERS WHEN ISSUING*/ 00161000 * /*THE SYNCH MACRO. */ 00162000 * /************************************************************/ 00163000 * /**/ 00164000 * RFY (CRAREG,GPR0) RSTD; 0393 00165000 * CRAREG=CRRREG; /*PSUEDO PTR FOR ASSEMBLER */ 00166000 LR CRAREG,CRRREG 0394 00167000 * CRAREG=CRRREG-(ADDR(CRAPSS)-ADDR(ISTCRA)); 0395 00168000 LA @14,CRAPSS(,CRAREG) 0395 00169000 LCR @14,@14 0395 00170000 ALR @14,CRAREG 0395 00171000 ALR @14,CRRREG 0395 00172000 LR CRAREG,@14 0395 00173000 * STM (GPR0,GPR15,CRASVC); /*SAVE REGS ACROSS SYNCH MACRO */ 00174000 STM GPR0,GPR15,CRASVC(CRAREG) 0396 00175000 * GPR15=PROCESS; /*PROCESS PTR FROM PAB DVT */ 0397 00176000 L @08,PABDVTA-1(,PABREG) 0397 00177000 LA @08,0(,@08) 0397 00178000 L GPR15,PROCESS(,@08) 0397 00179000 * IF GPR15=0 /*PAB DVT NOT INIT. @X50BHTK*/ 00180000 * THEN DO; /*@X50BHTK*/ 00181000 SLR @14,@14 0398 00182000 CR GPR15,@14 0398 00183000 BNE @RF00398 0398 00184000 * EXLSTREG=0; /*CLEAR EXLST PTR SW @X50BHTK*/ 00185000 LR EXLSTREG,@14 0400 00186000 * IF UECTYPE=0 /*UECB IND RPL EXIT @X50BHTK*/ 00187000 * THEN /* @X50BHTK*/ 00188000 CLI UECTYPE(UECBREG),0 0401 00189000 BNE @RF00401 0401 00190000 * DO; /*YES-DO RPL PROC @X50BHTK*/ 00191000 * UECBREG=UECRPLAD; /*RPL PTR FROM UECB @X50BHTK*/ 00192000 L UECBREG,UECRPLAD(,UECBREG) 0403 00193000 * UECBREG->RPLEXSCH=ONCON; /*SET RPL EXIT SCHED @X50BHTK*/ 00194000 OI RPLEXSCH(UECBREG),B'10000000' 0404 00195000 * GPR15=UECBREG->RPLECB; /*SET EXIT IND.-RPL @X50BHTK*/ 00196000 L GPR15,RPLECB(,UECBREG) 0405 00197000 * END; /* @X50BHTK*/ 00198000 * ELSE /*EXIT LIST PROCESS @X50BHTK*/ 00199000 * IF UECEXLST^=0 /*EXIT LIST ADDR @X50BHTK*/ 00200000 * THEN /*IN UECB @X50BHTK*/ 00201000 B @RC00401 0407 00202000 @RF00401 L @14,UECEXLST(,UECBREG) 0407 00203000 LTR @14,@14 0407 00204000 BZ @RF00407 0407 00205000 * EXLSTREG=UECEXLST; /*YES @X50BHTK*/ 00206000 LR EXLSTREG,@14 0408 00207000 * ELSE /*NO-CK FOR EX LIST @X50BHTK*/ 00208000 * IF UECACB^=0 & UECACB ->ACBUEL^=0 /*ADDR FROM DEB @X50BHTK*/ 00209000 * THEN /* @X50BHTK*/ 00210000 B @RC00407 0409 00211000 @RF00407 SLR @14,@14 0409 00212000 L @08,UECACB(,UECBREG) 0409 00213000 CR @08,@14 0409 00214000 BE @RF00409 0409 00215000 L @08,ACBUEL(,@08) 0409 00216000 CR @08,@14 0409 00217000 BE @RF00409 0409 00218000 * EXLSTREG=UECACB->ACBUEL; /* @X50BHTK*/ 00219000 LR EXLSTREG,@08 0410 00220000 * ELSE; /*NO EXIT LIST PTR @X50BHTK*/ 00221000 @RF00409 DS 0H 0412 00222000 * IF EXLSTREG^=0 /* @X50BHTK*/ 00223000 * THEN /*GET EXIT LIST ENTRY @X50BHTK*/ 00224000 @RC00407 DS 0H 0412 00225000 @RC00401 LTR EXLSTREG,EXLSTREG 0412 00226000 BZ @RF00412 0412 00227000 * DO; /*DISPLACEMENT @X50BHTK*/ 00228000 * RFY CUEDISP RSTD; 0414 00229000 * CUEDISP=(UECTYPE*LENGTH(EXLENTRY))-LENGTH(EXLENTRY); /*@X50BHTK*/ 00230000 LA @14,5 0415 00231000 SLR @03,@03 0415 00232000 IC @03,UECTYPE(,UECBREG) 0415 00233000 MR @02,@14 0415 00234000 SLR @03,@14 0415 00235000 LR CUEDISP,@03 0415 00236000 * IF CUEDISP+LENGTH(EXLENTRY)>EXLLEN2 /*EXIT LIST @X50BHTK*/ 00237000 * THEN; /*HAVE ENTRY @X50BHTK*/ 00238000 ALR @14,CUEDISP 0416 00239000 CH @14,EXLLEN2(,EXLSTREG) 0416 00240000 BH @RT00416 0416 00241000 * ELSE /*YES- @X50BHTK*/ 00242000 * DO; /*STEP TO EXIT @X50BHTK*/ 00243000 * RFY IFGEXLEF BASED(EXLSTREG); /* @X50BHTK*/ 00244000 * EXLSTREG=EXLSTREG + CUEDISP; /*ENTRY @X50BHTK*/ 00245000 ALR EXLSTREG,CUEDISP 0420 00246000 * RFY CUEDISP UNRSTD; 0421 00247000 */* LINKAGE FROM VTAM TO FOLLOWING ASYNCHRONOUS ROUTINES */ 0422 00248000 */*EXLST ROUTINE (LOGON,LOGOFF,RELREG,ASYIP,UNSIP,ATTN,TPEND) AND RPL*/ 00249000 */*EXIT ROUTINES*/ 0422 00250000 */*IF EXIT LIST ADDRESS=0 --NO SYNCH */ 0422 00251000 * IF EXLEADDR^=0 /*@X50BHTK*/ 00252000 * THEN /* @X50BHTK*/ 00253000 ICM @14,15,EXLEADDR(EXLSTREG) 0422 00254000 BZ @RF00422 0422 00255000 * DO; /* @X50BHTK*/ 00256000 */***********************************************************@ZA25102*/ 00257000 */***** REMOVED CODE FROM HERE FOR APAR OZ18928 @ZA25102*/ 00258000 */***********************************************************@ZA25102*/ 00259000 * IF UECTYPE=UECTPEND /* THEN IF TPEND EXIT @ZA26004*/ 00260000 * THEN DO; /* @ZA26004*/ 00261000 CLI UECTYPE(UECBREG),X'0D' 0424 00262000 BNE @RF00424 0424 00263000 * ACDTPEND=ONCON; /* INDICATE TPEND @ZA26004*/ 00264000 OI ACDTPEND(ACDEBREG),B'00010000' 0426 00265000 * END; /* END WAS TPEND EXIT @ZA26004*/ 00266000 * ELSE; /* NULL ELSE,NOT TPEND@ZA26004*/ 00267000 @RF00424 DS 0H 0429 00268000 * GPR15 = EXLEADDR; /* THEN ALLOW EXIT @ZA18928*/ 00269000 ICM GPR15,15,EXLEADDR(EXLSTREG) 0429 00270000 * UECBREG=ADDR(UECPLIST); /*PARMS FOR USER @X50BHTK*/ 00271000 LA @14,UECPLIST(,UECBREG) 0430 00272000 LR UECBREG,@14 0430 00273000 * END; /*PROCESS @X50BHTK*/ 00274000 * ELSE; /* @X50BHTK*/ 00275000 @RF00422 DS 0H 0433 00276000 * END; /* @X50BHTK*/ 00277000 * END; /* @X50BHTK*/ 00278000 * ELSE; /* @X50BHTK*/ 00279000 @RF00412 DS 0H 0436 00280000 * END; /*@X50BHTK*/ 00281000 * ELSE; /*@X50BHTK*/ 00282000 @RF00398 DS 0H 0438 00283000 * IF GPR15=0 /* IF REG. 15 IS ZERO @X50BHTK*/ 00284000 * THEN; /* THEN IGNORE EXIT @X50BHTK*/ 00285000 @RC00398 LTR GPR15,GPR15 0438 00286000 BZ @RT00438 0438 00287000 * ELSE /* @X50BHTK*/ 00288000 * DO; /* @X50BHTK*/ 00289000 * IF ACDTSO = ONCON /* CHECK AUTHORIZED @ZA08960*/ 00290000 * THEN /*@ZA08960*/ 00291000 TM ACDTSO(ACDEBREG),B'00001000' 0441 00292000 BNO @RF00441 0441 00293000 * DO; /*@ZA08960*/ 00294000 * AUTHE=ONCON; /* AUTHORIZED EXIT @ZA08960*/ 00295000 OI AUTHE(CRRREG),B'00000001' 0443 00296000 * RFY KEYREG RSTD; /* MODESET KEY REG @ZA08960*/ 00297000 * KEYREG=TSOKEY; /* KEY 6 FOR TSO @ZA08960*/ 00298000 LA KEYREG,96 0445 00299000 *KEY6: GEN; /*@ZA08960*/ 00300000 KEY6 DS 0H 0446 00301000 MODESET KEYADDR=(2),WORKREG=2,RELATED=(KEY0) 00302000 * CALL GPR15; /* CALL EXIT ROUTINE @ZA08960*/ 00303000 BALR @14,@15 0447 00304000 * KEYREG=0; /* KEY FOR APC54 @ZA08954*/ 00305000 SLR KEYREG,KEYREG 0448 00306000 *KEY0: GEN; /*@ZA08960*/ 00307000 KEY0 DS 0H 0449 00308000 MODESET KEYADDR=(2),WORKREG=2,RELATED=(KEY6) 00309000 * RFY KEYREG UNRSTD; /* RELEASE KEY REG @ZA08960*/ 00310000 * CRAREG=CURTCB->TCBSTABB->SCBCRA; /*GET CURRENT CRA@ZA08960*/ 00311000 L @14,CURTCB 0451 00312000 L @14,TCBSTABB-1(,@14) 0451 00313000 LA @14,0(,@14) 0451 00314000 L CRAREG,SCBCRA-1(,@14) 0451 00315000 LA CRAREG,0(,CRAREG) 0451 00316000 * LM (GPR0,GPR15,CRASVC); /*PTR AND RESTORE REGS. @ZA08960*/ 00317000 LM GPR0,GPR15,CRASVC(CRAREG) 0452 00318000 * END; /*@ZA08960*/ 00319000 * ELSE /*@ZA08960*/ 00320000 * DO; /*@ZA08960*/ 00321000 B @RC00441 0454 00322000 @RF00441 DS 0H 0455 00323000 * GENERATE REFS(GPR15); 0455 00324000 SYNCH (GPR15) 00325000 * CRAREG=CURTCB->TCBSTABB->SCBCRA;/*GET CURRENT CRA @ZA26882*/ 00326000 L @14,CURTCB 0456 00327000 L @14,TCBSTABB-1(,@14) 0456 00328000 LA @14,0(,@14) 0456 00329000 L CRAREG,SCBCRA-1(,@14) 0456 00330000 LA CRAREG,0(,CRAREG) 0456 00331000 * LM (GPR0,GPR15,CRASVC); /* PTR AND RESTORE REGS @ZA26882*/ 00332000 LM GPR0,GPR15,CRASVC(CRAREG) 0457 00333000 * END; /*@ZA08960*/ 00334000 * END; /*@X50BHTK*/ 00335000 @RC00441 DS 0H 0460 00336000 */* THESE TWO LINES MOVED BY @ZA26882*/ 00337000 */* APAR OZ26882 @ZA26882*/ 00338000 * AUTHE=OFFCON; /* RESET AUDIT TRAIL @ZA08960*/ 00339000 @RT00438 NI AUTHE(CRRREG),B'11111110' 0460 00340000 * ACDTPEND=OFFCON; /*GUARANTEE TPEND FLAG OFF @ZA26004*/ 00341000 NI ACDTPEND(ACDEBREG),B'11101111' 0461 00342000 */*ENDE3*/END; 0462 00343000 * END; /*@ZA03505*/ 00344000 @RT00390 DS 0H 0464 00345000 * RFY (PSTREG,MPSTREG) UNRSTD; /*@ZA03505*/ 00346000 @RT00382 DS 0H 0465 00347000 * RFY (CRAREG,GPR0) UNRSTD; 0465 00348000 * /**/ 00349000 * /************************************************************/ 00350000 * /*RELEASE THE UECB AND VRPL IF ANY VIA THE RELSTORE MACRO. */ 00351000 * /************************************************************/ 00352000 * /**/ 00353000 * IF UECVRPL=0 0466 00354000 * THEN; 0466 00355000 L @14,UECVRPL(,UECBREG) 0466 00356000 LTR @14,@14 0466 00357000 BZ @RT00466 0466 00358000 * ELSE 0468 00359000 * /*RELSTORE BUFADDR(UECVRPL)CLEAR(NO)SAVE(NO)*/ 0468 00360000 * DO; 0468 00361000 */* ATBUILD (ISTATCVT,ISTRPH) */ 0469 00362000 */* END OF ATBUILD */ 0469 00363000 * DCL GPR00F FIXED(31) REG(00); 0469 00364000 * DCL GPR00P PTR(31) REG(00); 0470 00365000 * DCL GPR01F FIXED(31) REG(01); 0471 00366000 * DCL GPR01P PTR(31) REG(01); 0472 00367000 * DCL GPR02F FIXED(31) REG(02); 0473 00368000 * DCL GPR02P PTR(31) REG(02); 0474 00369000 * DCL GPR03F FIXED(31) REG(03); 0475 00370000 * DCL GPR03P PTR(31) REG(03); 0476 00371000 * DCL GPR04F FIXED(31) REG(04); 0477 00372000 * DCL GPR04P PTR(31) REG(04); 0478 00373000 * DCL GPR05F FIXED(31) REG(05); 0479 00374000 * DCL GPR05P PTR(31) REG(05); 0480 00375000 * DCL GPR06F FIXED(31) REG(06); 0481 00376000 * DCL GPR06P PTR(31) REG(06); 0482 00377000 * DCL GPR07F FIXED(31) REG(07); 0483 00378000 * DCL GPR07P PTR(31) REG(07); 0484 00379000 * DCL GPR08F FIXED(31) REG(08); 0485 00380000 * DCL GPR08P PTR(31) REG(08); 0486 00381000 * DCL GPR09F FIXED(31) REG(09); 0487 00382000 * DCL GPR09P PTR(31) REG(09); 0488 00383000 * DCL GPR10F FIXED(31) REG(10); 0489 00384000 * DCL GPR10P PTR(31) REG(10); 0490 00385000 * DCL GPR11F FIXED(31) REG(11); 0491 00386000 * DCL GPR11P PTR(31) REG(11); 0492 00387000 * DCL GPR12F FIXED(31) REG(12); 0493 00388000 * DCL GPR12P PTR(31) REG(12); 0494 00389000 * DCL GPR13F FIXED(31) REG(13); 0495 00390000 * DCL GPR13P PTR(31) REG(13); 0496 00391000 * DCL GPR14F FIXED(31) REG(14); 0497 00392000 * DCL GPR14P PTR(31) REG(14); 0498 00393000 * DCL GPR15F FIXED(31) REG(15); 0499 00394000 * DCL GPR15P PTR(31) REG(15); 0500 00395000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0501 00396000 * GPR04P=UECVRPL; 0502 00397000 L GPR04P,UECVRPL(,UECBREG) 0502 00398000 * DCL 1 FMZA0006 FIXED(31) STATIC LOCAL, 0503 00399000 * 2 * FIXED(8) INIT(0), 0503 00400000 * 2 * PTR(24) INIT(0); 0503 00401000 * GPR03F = FMZA0006; 0504 00402000 * 0504 00403000 L GPR03F,FMZA0006 0504 00404000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0505 00405000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0506 00406000 L GPR15P,ATCLCPTR 0506 00407000 * END; /*LISATCVT*/ 0507 00408000 * GPR02P = GPR15P->ATCBPDA; 0508 00409000 L GPR02P,ATCBPDA(,GPR15P) 0508 00410000 * GPR15P=GPR15P->ATCSMRS; 0509 00411000 L GPR15P,ATCSMRS(,GPR15P) 0509 00412000 * DCL FMZL0006 BASED(GPR15P) LABEL VALUERANGE(*); 0510 00413000 * CALL FMZL0006; 0511 00414000 BALR @14,@15 0511 00415000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 0512 00416000 * END ;/**********END OF RELSTORE EXPANSION**********/ 0513 00417000 * /*RELSTORE BUFADDR(UECBREG)CLEAR(NO)SAVE(NO)*/ 0514 00418000 * DO; 0514 00419000 @RT00466 DS 0H 0515 00420000 */* ATBUILD (ISTATCVT,ISTRPH) */ 0515 00421000 */* END OF ATBUILD */ 0515 00422000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0515 00423000 * GPR04P=UECBREG; 0516 00424000 LR GPR04P,UECBREG 0516 00425000 * DCL 1 FMZA0022 FIXED(31) STATIC LOCAL, 0517 00426000 * 2 * FIXED(8) INIT(0), 0517 00427000 * 2 * PTR(24) INIT(0); 0517 00428000 * GPR03F = FMZA0022; 0518 00429000 * 0518 00430000 L GPR03F,FMZA0022 0518 00431000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0519 00432000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0520 00433000 L GPR15P,ATCLCPTR 0520 00434000 * END; /*LISATCVT*/ 0521 00435000 * GPR02P = GPR15P->ATCBPDA; 0522 00436000 L GPR02P,ATCBPDA(,GPR15P) 0522 00437000 * GPR15P=GPR15P->ATCSMRS; 0523 00438000 L GPR15P,ATCSMRS(,GPR15P) 0523 00439000 * DCL FMZL0022 BASED(GPR15P) LABEL VALUERANGE(*); 0524 00440000 * CALL FMZL0022; 0525 00441000 BALR @14,@15 0525 00442000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 0526 00443000 * END ;/**********END OF RELSTORE EXPANSION**********/ 0527 00444000 * GO TO L0; 0528 00445000 B L0 0528 00446000 * /*ENDE1*/ END; 0529 00447000 * 0529 00448000 */* TPEPILOG */ 0530 00449000 * GEN (PRINT OFF); 0530 00450000 * 0530 00451000 PRINT OFF 00452000 * GEN (PRINT ON); 0531 00453000 PRINT ON 00454000 */* END OF TPEPILOG */ 0532 00455000 * END 0532 00456000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00457000 */*%INCLUDE SYSLIB (CVT ) * 00458000 */*%INCLUDE SYSLIB (IFGACB ) * 00459000 */*%INCLUDE SYSLIB (IFGACBVT) * 00460000 */*%INCLUDE SYSLIB (IFGRPL ) * 00461000 */*%INCLUDE SYSLIB (IFGRPLVT) * 00462000 */*%INCLUDE SYSLIB (ISTRPLFB) * 00463000 */*%INCLUDE SYSLIB (IFGEXLST) * 00464000 */*%INCLUDE SYSLIB (IFGEXLVT) * 00465000 */*%INCLUDE SYSLIB (IKJTCB ) * 00466000 */*%INCLUDE SYSLIB (IHAPSA ) * 00467000 */*%INCLUDE SYSLIB (IHASRB ) * 00468000 *; 0532 00469000 @EL00001 DS 0H 0532 00470000 @EF00001 DS 0H 0532 00471000 @ER00001 BR @14 0532 00472000 @DATA DS 0H 00473000 @DATD DSECT 00474000 DS 0F 00475000 ISTAPC54 CSECT 00476000 DS 0F 00477000 @CF00069 DC F'24' 00478000 @DATD DSECT 00479000 DS 0D 00480000 CVTPTR DS A 00481000 TCBPTR DS A 00482000 SRBPTR DS A 00483000 LCPBPTR DS A 00484000 FMCBPTR DS A 00485000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00486000 @ENDDATD EQU * 00487000 ISTAPC54 CSECT 00488000 DS 0F 00489000 @SIZDATD DC AL1(0) 00490000 DC AL3(@ENDDATD-@DATD) 00491000 DS 0D 00492000 FMZA0006 DS FL4 00493000 ORG FMZA0006 00494000 @NM00133 DC AL1(0) 00495000 @NM00134 DC AL3(0) 00496000 ORG FMZA0006+4 00497000 FMZA0022 DS FL4 00498000 ORG FMZA0022 00499000 @NM00135 DC AL1(0) 00500000 @NM00136 DC AL3(0) 00501000 ORG FMZA0022+4 00502000 ZERO DC X'00' 00503000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00504000 @01 EQU 01 00505000 @02 EQU 02 00506000 @03 EQU 03 00507000 @04 EQU 04 00508000 @05 EQU 05 00509000 @06 EQU 06 00510000 @07 EQU 07 00511000 @08 EQU 08 00512000 @09 EQU 09 00513000 @10 EQU 10 00514000 @11 EQU 11 00515000 @12 EQU 12 00516000 @13 EQU 13 00517000 @14 EQU 14 00518000 @15 EQU 15 00519000 RPHPTR EQU @01 00520000 GPR0 EQU @00 00521000 UECBREG EQU @01 00522000 KEYREG EQU @02 00523000 ACDEBREG EQU @04 00524000 CRAREG EQU @05 00525000 MPSTREG EQU @06 00526000 CUEDISP EQU @06 00527000 EXLSTREG EQU @07 00528000 BPABREG EQU @08 00529000 PABREG EQU @09 00530000 PSTREG EQU @10 00531000 ANCHREG EQU @11 00532000 GPR12 EQU @12 00533000 CRRREG EQU @13 00534000 GPR14 EQU @14 00535000 GPR15 EQU @15 00536000 GPR02P EQU @02 00537000 GPR03F EQU @03 00538000 GPR03P EQU @03 00539000 GPR04P EQU @04 00540000 GPR15P EQU @15 00541000 GPR00F EQU @00 00542000 GPR00P EQU @00 00543000 GPR01F EQU @01 00544000 GPR01P EQU @01 00545000 GPR02F EQU @02 00546000 GPR04F EQU @04 00547000 GPR05F EQU @05 00548000 GPR05P EQU @05 00549000 GPR06F EQU @06 00550000 GPR06P EQU @06 00551000 GPR07F EQU @07 00552000 GPR07P EQU @07 00553000 GPR08F EQU @08 00554000 GPR08P EQU @08 00555000 GPR09F EQU @09 00556000 GPR09P EQU @09 00557000 GPR10F EQU @10 00558000 GPR10P EQU @10 00559000 GPR11F EQU @11 00560000 GPR11P EQU @11 00561000 GPR12F EQU @12 00562000 GPR12P EQU @12 00563000 GPR13F EQU @13 00564000 GPR13P EQU @13 00565000 GPR14F EQU @14 00566000 GPR14P EQU @14 00567000 GPR15F EQU @15 00568000 PSA EQU 0 00569000 FLCRNPSW EQU PSA 00570000 FLCROPSW EQU PSA+8 00571000 FLCICCW2 EQU PSA+16 00572000 PSAEEPSW EQU PSA+132 00573000 PSAESPSW EQU PSA+136 00574000 FLCSVILC EQU PSAESPSW+1 00575000 PSAEPPSW EQU PSA+140 00576000 FLCPIILC EQU PSAEPPSW+1 00577000 FLCPICOD EQU PSAEPPSW+2 00578000 PSAPICOD EQU FLCPICOD+1 00579000 FLCTEA EQU PSAEPPSW+4 00580000 FLCPER EQU PSA+152 00581000 FLCMCLA EQU PSA+168 00582000 FLCIOEL EQU FLCMCLA+4 00583000 FLCIOA EQU FLCMCLA+16 00584000 FLCFSA EQU FLCMCLA+80 00585000 PSATOLD EQU PSA+540 00586000 PSASUPER EQU PSA+552 00587000 PSASUP1 EQU PSASUPER 00588000 PSASUP2 EQU PSASUPER+1 00589000 PSASUP3 EQU PSASUPER+2 00590000 PSASUP4 EQU PSASUPER+3 00591000 PSACLHT EQU PSA+640 00592000 PSALKSA EQU PSA+696 00593000 PSAHLHI EQU PSA+760 00594000 PSADSSFL EQU PSA+836 00595000 PSADSSF1 EQU PSADSSFL 00596000 PSADSSF3 EQU PSADSSFL+2 00597000 PSADSSF4 EQU PSADSSFL+3 00598000 PSARSVT EQU PSA+896 00599000 ATCLCPTR EQU 1032 00600000 CVTMAP EQU 0 00601000 CVTDAR EQU CVTMAP+72 00602000 CVTFLGS1 EQU CVTDAR 00603000 CVTDCB EQU CVTMAP+116 00604000 CVTIERLC EQU CVTMAP+144 00605000 CVTOPTA EQU CVTMAP+182 00606000 CVTOPTB EQU CVTMAP+183 00607000 CVTGTF EQU CVTMAP+236 00608000 CVTGTFST EQU CVTGTF 00609000 CVTGTFS EQU CVTGTFST 00610000 CVTSTATE EQU CVTGTFST 00611000 CVTTMODE EQU CVTGTFST 00612000 CVTFORM EQU CVTGTFST 00613000 CVTAQAVT EQU CVTMAP+240 00614000 CVTTCMFG EQU CVTAQAVT 00615000 CVTVOLM2 EQU CVTMAP+244 00616000 CVTTATA EQU CVTVOLM2 00617000 CVTTSKS EQU CVTTATA 00618000 CVTVOLF2 EQU CVTTSKS 00619000 CVTTAT EQU CVTTATA+1 00620000 CVTATER EQU CVTMAP+248 00621000 CVTEXT1 EQU CVTMAP+252 00622000 CVTPURG EQU CVTMAP+260 00623000 CVTQMSG EQU CVTMAP+268 00624000 CVTDMSR EQU CVTMAP+272 00625000 CVTRSV37 EQU CVTDMSR 00626000 CVTDMSRF EQU CVTRSV37 00627000 CVTERPV EQU CVTMAP+316 00628000 CVTINTLA EQU CVTMAP+320 00629000 CVTAPF EQU CVTMAP+324 00630000 CVTEXT2 EQU CVTMAP+328 00631000 CVTHJES EQU CVTMAP+332 00632000 CVTPGSIA EQU CVTMAP+348 00633000 CVTA1F1 EQU CVTMAP+356 00634000 CVTSYSK EQU CVTMAP+357 00635000 CVTVOLM1 EQU CVTMAP+380 00636000 CVTVOLF1 EQU CVTVOLM1 00637000 CVTATMCT EQU CVTMAP+388 00638000 CVTXTNT1 EQU 0 00639000 CVTXTNT2 EQU 0 00640000 CVTDSSV EQU CVTXTNT2 00641000 CVTFLGBT EQU CVTXTNT2+5 00642000 CVTQID EQU CVTXTNT2+24 00643000 CVTSHS EQU CVTXTNT2+40 00644000 CVTRV400 EQU CVTXTNT2+52 00645000 CVTRV409 EQU CVTXTNT2+53 00646000 CVTATCVT EQU CVTXTNT2+64 00647000 CVTRV429 EQU CVTXTNT2+84 00648000 CVTRV438 EQU CVTXTNT2+85 00649000 CVTRV457 EQU CVTXTNT2+112 00650000 CVTRV466 EQU CVTXTNT2+113 00651000 CVTFIX EQU 0 00652000 CVTRELNO EQU CVTFIX+252 00653000 IFGACB EQU 0 00654000 ACBCOMN EQU IFGACB 00655000 ACBLENG EQU ACBCOMN+2 00656000 ACBLENG2 EQU ACBLENG 00657000 ACBAMBL EQU ACBCOMN+4 00658000 ACBJWA EQU ACBAMBL 00659000 ACBMACRF EQU ACBCOMN+12 00660000 ACBMACR1 EQU ACBMACRF 00661000 ACBADR EQU ACBMACR1 00662000 ACBCNV EQU ACBMACR1 00663000 ACBMACR2 EQU ACBMACRF+1 00664000 ACBBUFPL EQU ACBCOMN+20 00665000 ACBMACR3 EQU ACBBUFPL 00666000 ACBRECFM EQU ACBCOMN+24 00667000 ACBCCTYP EQU ACBCOMN+25 00668000 ACBOPT EQU ACBCOMN+26 00669000 ACBDSORG EQU ACBOPT 00670000 ACBCROPS EQU ACBDSORG 00671000 ACBDVIND EQU ACBDSORG 00672000 ACBEXLST EQU ACBCOMN+36 00673000 ACBUEL EQU ACBEXLST 00674000 ACBDDNM EQU ACBCOMN+40 00675000 ACBAMETH EQU ACBDDNM+3 00676000 ACBDEB EQU ACBDDNM+5 00677000 ACBOFLGS EQU ACBCOMN+48 00678000 ACBEXFG EQU ACBOFLGS 00679000 ACBIOSFG EQU ACBOFLGS 00680000 ACBINFLG EQU ACBCOMN+50 00681000 ACBVVIC EQU ACBINFLG 00682000 ACBUJFCB EQU ACBCOMN+52 00683000 ACBBLKSZ EQU ACBCOMN+60 00684000 ACBVTEXT EQU IFGACB+76 00685000 IFGRPL EQU 0 00686000 RPLCOMN EQU IFGRPL 00687000 RPLIDWD EQU RPLCOMN 00688000 RPLLEN EQU RPLIDWD+3 00689000 RPLECB EQU RPLCOMN+8 00690000 RPLFDBWD EQU RPLCOMN+12 00691000 RPLFDBK EQU RPLFDBWD+1 00692000 RPLRTNCD EQU RPLFDBK 00693000 RPLCNDCD EQU RPLFDBK+1 00694000 RPLCMPON EQU RPLCNDCD 00695000 RPLFDB2 EQU RPLCMPON 00696000 RPLERRCD EQU RPLCNDCD+1 00697000 RPLFDB3 EQU RPLERRCD 00698000 RPLKEYLE EQU RPLCOMN+16 00699000 RPLDACB EQU RPLCOMN+24 00700000 RPLARG EQU RPLCOMN+36 00701000 RPLOPTCD EQU RPLCOMN+40 00702000 RPLOPT1 EQU RPLOPTCD 00703000 RPLECBSW EQU RPLOPT1 00704000 RPLOPT2 EQU RPLOPTCD+1 00705000 RPLADR EQU RPLOPT2 00706000 RPLOPT3 EQU RPLOPTCD+2 00707000 RPLOPT4 EQU RPLOPTCD+3 00708000 RPLNXTRP EQU RPLCOMN+44 00709000 RPLOPTC2 EQU RPLCOMN+56 00710000 RPLOPT5 EQU RPLOPTC2 00711000 RPLWRTYP EQU RPLOPT5 00712000 RPLOPT6 EQU RPLOPTC2+1 00713000 RPLUNTYP EQU RPLOPT6 00714000 RPLOPT7 EQU RPLOPTC2+2 00715000 RPLCNOPT EQU RPLOPT7 00716000 RPLOPT8 EQU RPLOPTC2+3 00717000 RPLRBAR EQU RPLCOMN+60 00718000 RPLAIXID EQU RPLRBAR+2 00719000 RPLEXTDS EQU RPLCOMN+68 00720000 RPLEXTD1 EQU RPLEXTDS 00721000 RPLEXSCH EQU RPLEXTD1 00722000 RPLVTEXT EQU IFGRPL+76 00723000 RPLFDBK2 EQU RPLVTEXT+12 00724000 RPLSSNSI EQU RPLFDBK2 00725000 RPLDSB EQU RPLSSNSI 00726000 RPLDSB1 EQU RPLDSB 00727000 RPLSSEI EQU RPLDSB1 00728000 RPLDSB2 EQU RPLDSB+1 00729000 RPLUSNSI EQU RPLFDBK2+2 00730000 RPLOPTC3 EQU RPLVTEXT+20 00731000 RPLOPT9 EQU RPLOPTC3 00732000 RPLOPT10 EQU RPLOPTC3+1 00733000 RPLOPT11 EQU RPLOPTC3+2 00734000 RPLOPT12 EQU RPLOPTC3+3 00735000 RPLOSENS EQU RPLVTEXT+24 00736000 RPLSSNSO EQU RPLOSENS 00737000 RPLSSEO EQU RPLSSNSO 00738000 RPLOF16 EQU 0 00739000 RPLRH3 EQU RPLOF16 00740000 RPLSRTYP EQU RPLOF16+1 00741000 RPLSTYPE EQU RPLSRTYP 00742000 RPLRTYPE EQU RPLSRTYP 00743000 RPLCHN EQU RPLOF16+2 00744000 RPLVTFL1 EQU RPLOF16+3 00745000 RPLVTFL2 EQU RPLOF16+4 00746000 RPLPOSTV EQU RPLVTFL2 00747000 RPLRESP EQU RPLVTFL2 00748000 RPLCNTRL EQU RPLOF16+5 00749000 RPLCNTDF EQU RPLCNTRL 00750000 RPLCNTDC EQU RPLCNTRL+1 00751000 RPLCNTSC EQU RPLCNTRL+2 00752000 RPLOF60 EQU 0 00753000 RPLOBSQ EQU RPLOF60+4 00754000 RPLIBSQ EQU RPLOF60+5 00755000 IFGEXLST EQU 0 00756000 EXLCOMN EQU IFGEXLST 00757000 EXLLEN EQU EXLCOMN+2 00758000 EXLLEN2 EQU EXLLEN 00759000 EXLEODF EQU EXLCOMN+5 00760000 EXLSYNF EQU EXLCOMN+10 00761000 EXLLERF EQU EXLCOMN+15 00762000 EXLSCIPF EQU EXLCOMN+20 00763000 EXLLGNF EQU EXLCOMN+25 00764000 EXLJRNF EQU EXLCOMN+30 00765000 EXLOPNF EQU EXLCOMN+35 00766000 EXLVTEXT EQU IFGEXLST+40 00767000 EXLNLGNF EQU EXLVTEXT 00768000 EXLRLRQF EQU EXLVTEXT+5 00769000 EXLATTNF EQU EXLVTEXT+15 00770000 EXLTPNDF EQU EXLVTEXT+20 00771000 EXLDFAS EQU 0 00772000 EXLDFASF EQU EXLDFAS 00773000 EXLRESP EQU 0 00774000 EXLRESPF EQU EXLRESP 00775000 IFGEXLEF EQU 0 00776000 EXLENTRY EQU IFGEXLEF 00777000 EXLFLAG EQU EXLENTRY 00778000 EXLENFL EQU EXLFLAG 00779000 EXLEXITP EQU EXLENTRY+1 00780000 EXLEADDR EQU EXLEXITP 00781000 TCBFIX EQU 0 00782000 TCBFRS EQU TCBFIX 00783000 TCB EQU 0 00784000 TCBPIE EQU TCB+4 00785000 TCBPMASK EQU TCBPIE 00786000 TCBCMP EQU TCB+16 00787000 TCBCMPF EQU TCBCMP 00788000 TCBCPP EQU TCBCMPF 00789000 TCBSTCC EQU TCBCMPF 00790000 TCBCDBL EQU TCBCMPF 00791000 TCBCWTO EQU TCBCMPF 00792000 TCBCIND EQU TCBCMPF 00793000 TCBCMSG EQU TCBCMPF 00794000 TCBTRN EQU TCB+20 00795000 TCBABF EQU TCBTRN 00796000 TCBMSS EQU TCB+24 00797000 TCBPKF EQU TCB+28 00798000 TCBFLGS EQU TCB+29 00799000 TCBFLGS1 EQU TCBFLGS 00800000 TCBFLGS2 EQU TCBFLGS+1 00801000 TCBFLGS3 EQU TCBFLGS+2 00802000 TCBFLGS4 EQU TCBFLGS+3 00803000 TCBFLGS5 EQU TCBFLGS+4 00804000 TCBABWF EQU TCBFLGS5 00805000 TCBJPQ EQU TCB+44 00806000 TCBPURGE EQU TCBJPQ 00807000 TCBGRS EQU TCB+48 00808000 TCBFSA EQU TCB+112 00809000 TCBTME EQU TCB+120 00810000 TCBJSTCB EQU TCB+124 00811000 TCBTSFLG EQU TCB+148 00812000 TCBTSTSK EQU TCBTSFLG 00813000 TCBSTAB EQU TCB+160 00814000 TCBNSTAE EQU TCBSTAB 00815000 TCBSTABB EQU TCBSTAB+1 00816000 TCBTCT EQU TCB+164 00817000 TCBTCTGF EQU TCBTCT 00818000 TCBSCNDY EQU TCB+172 00819000 TCBNDSP EQU TCBSCNDY 00820000 TCBNDSP1 EQU TCBNDSP+1 00821000 TCBNDSP2 EQU TCBNDSP+2 00822000 TCBNDSP3 EQU TCBNDSP+3 00823000 TCBJSCB EQU TCB+180 00824000 TCBRECDE EQU TCBJSCB 00825000 TCBEXT1 EQU TCB+196 00826000 TCBBITS EQU TCB+200 00827000 TCBNDSP4 EQU TCBBITS 00828000 TCBNDSP5 EQU TCBBITS+1 00829000 TCBFLGS6 EQU TCBBITS+2 00830000 TCBFLGS7 EQU TCBBITS+3 00831000 TCBDAR EQU TCB+204 00832000 TCBDARC EQU TCBDAR 00833000 TCBEXT2 EQU TCB+208 00834000 TCBFOE EQU TCB+244 00835000 TCBESTAE EQU TCB+264 00836000 TCBESTRM EQU TCBESTAE+1 00837000 TCBFBYT1 EQU TCB+276 00838000 TCBFBYT2 EQU TCB+277 00839000 TCBRV124 EQU TCB+278 00840000 TCBRV133 EQU TCB+279 00841000 TCBXTNT2 EQU 0 00842000 TCBGTF EQU TCBXTNT2 00843000 TCBTFLG EQU TCBGTF 00844000 TCBRV146 EQU TCBXTNT2+28 00845000 TCBRV155 EQU TCBXTNT2+29 00846000 TCBRV164 EQU TCBXTNT2+30 00847000 TCBRV173 EQU TCBXTNT2+31 00848000 SRBSECT EQU 0 00849000 SRBFLC EQU SRBSECT+12 00850000 ISTPAB EQU 0 00851000 PABWQCHN EQU ISTPAB 00852000 PABWEQA EQU PABWQCHN 00853000 PABCHAIN EQU PABWQCHN+4 00854000 PABCHNGP EQU PABCHAIN+1 00855000 PABDVTA EQU ISTPAB+9 00856000 PABRPHFG EQU ISTPAB+12 00857000 PABFLAGS EQU PABRPHFG 00858000 PABERLCK EQU PABFLAGS 00859000 PABERRLK EQU PABERLCK 00860000 ISTLOK EQU 0 00861000 LOKCHN EQU ISTLOK+1 00862000 LOKCHNG EQU LOKCHN 00863000 @NM00090 EQU LOKCHNG+2 00864000 ISTDYPAB EQU 0 00865000 ISTRPH EQU 0 00866000 RPHCNTL EQU ISTRPH 00867000 RPHFLAGS EQU RPHCNTL+2 00868000 RPHAPTYP EQU RPHFLAGS 00869000 RPHFSTLC EQU RPHFLAGS 00870000 RPHFLGB EQU RPHCNTL+3 00871000 RPHRPHA EQU ISTRPH+4 00872000 RPHTSKID EQU ISTRPH+8 00873000 RPHRESMA EQU ISTRPH+16 00874000 RPHWPFLG EQU RPHRESMA 00875000 RPHWEA EQU ISTRPH+24 00876000 RPHCSPA EQU RPHWEA 00877000 RPHSRPRM EQU ISTRPH+28 00878000 RPHPABQA EQU ISTRPH+36 00879000 RPHWORK EQU ISTRPH+40 00880000 RPHSAVE1 EQU RPHWORK 00881000 RPHSBITS EQU RPHSAVE1+1 00882000 ISTATCVT EQU 0 00883000 ATCCOM EQU ISTATCVT 00884000 ATCSTAT EQU ATCCOM 00885000 ATCSTAT1 EQU ATCSTAT 00886000 ATCSTFLG EQU ATCSTAT+1 00887000 ATCPOFLG EQU ATCSTAT+2 00888000 ATCSTAT4 EQU ATCSTAT+3 00889000 ATCBPDA EQU ATCCOM+128 00890000 ATCIOTRC EQU ATCCOM+140 00891000 ATCTHTRC EQU ATCIOTRC 00892000 ATCSMRS EQU ATCCOM+188 00893000 ATCCSMR EQU ISTATCVT+296 00894000 ATCSHRFG EQU ISTATCVT+316 00895000 ATCHPGM EQU ISTATCVT+384 00896000 ATCVLCNT EQU ISTATCVT+772 00897000 ATCRNO EQU ISTATCVT+788 00898000 ATCSOPD EQU ISTATCVT+792 00899000 ATCSIPD EQU ISTATCVT+800 00900000 ATCSECST EQU ISTATCVT+812 00901000 ATCSTAT2 EQU ISTATCVT+818 00902000 ATCVTBAM EQU ISTATCVT+908 00903000 @NM00101 EQU ATCVTBAM+3 00904000 ATCAOSM EQU ISTATCVT+912 00905000 ATCGSRBQ EQU ATCAOSM+4 00906000 ATCGSRBG EQU ATCGSRBQ 00907000 ATCICAPP EQU ATCAOSM+100 00908000 ATCLDAPP EQU ATCAOSM+120 00909000 ATCDAPVT EQU ATCAOSM+140 00910000 ATCCRA EQU ATCAOSM+280 00911000 ATCCRACN EQU ATCCRA+4 00912000 ATCSRB EQU ATCAOSM+288 00913000 ATCSRBCN EQU ATCSRB+4 00914000 ATCCRPL EQU ATCAOSM+296 00915000 ATCRPLCN EQU ATCCRPL+4 00916000 ATCSQAFR EQU ATCAOSM+304 00917000 ATCORTBC EQU ATCSQAFR+4 00918000 ATCORSRB EQU ATCORTBC 00919000 @NM00103 EQU ATCAOSM+332 00920000 ATCVTFLG EQU ATCAOSM+392 00921000 ATCZFLAG EQU ATCAOSM+588 00922000 ISTPFCRR EQU 0 00923000 PFCCRR EQU ISTPFCRR 00924000 PFCCRRID EQU PFCCRR 00925000 PFCCRRLN EQU PFCCRR+2 00926000 PFCHDR EQU ISTPFCRR+4 00927000 PFCCRRO EQU PFCHDR 00928000 PFCFRRO EQU PFCHDR+4 00929000 ISTAPCRR EQU 0 00930000 APCATFLG EQU ISTAPCRR+16 00931000 APC54E EQU APCATFLG 00932000 APCRFLG EQU ISTAPCRR+18 00933000 APC54R EQU APCRFLG 00934000 APCPSTA EQU ISTAPCRR+20 00935000 APCSAVE EQU ISTAPCRR+44 00936000 APCCOMF EQU ISTAPCRR+116 00937000 APCCOMF1 EQU APCCOMF 00938000 APC31FLG EQU ISTAPCRR+132 00939000 APC52FLG EQU ISTAPCRR+133 00940000 APC53FLG EQU ISTAPCRR+134 00941000 APC54FLG EQU ISTAPCRR+135 00942000 APC57FLG EQU ISTAPCRR+136 00943000 ISTUECB EQU 0 00944000 UECTYPE EQU ISTUECB+3 00945000 UECEXLST EQU ISTUECB+12 00946000 UECPLIST EQU ISTUECB+32 00947000 UECACB EQU UECPLIST 00948000 UECRPLAD EQU UECACB 00949000 UECNDID EQU UECPLIST+4 00950000 UECTPNCD EQU UECNDID 00951000 UECREQTR EQU UECPLIST+8 00952000 UECDLEN EQU UECPLIST+12 00953000 UECRSNCD EQU UECDLEN 00954000 UECVRPL EQU UECPLIST+16 00955000 ISTLCCW EQU 0 00956000 LCCWOP EQU ISTLCCW 00957000 LCCWRWOP EQU LCCWOP 00958000 LCCWCTL EQU LCCWRWOP 00959000 LCCWFLAG EQU ISTLCCW+1 00960000 LCCWLSI EQU LCCWFLAG 00961000 ISTLCPB EQU 0 00962000 LCPREQTG EQU ISTLCPB+2 00963000 LCPFLAGS EQU LCPREQTG 00964000 LCPZF001 EQU LCPFLAGS 00965000 LCPZRT02 EQU LCPZF001 00966000 LCPZF002 EQU LCPFLAGS 00967000 LCPZRT03 EQU LCPZF002 00968000 LCPZF003 EQU LCPFLAGS 00969000 LCPZRT04 EQU LCPZF003 00970000 LCPZF004 EQU LCPFLAGS 00971000 LCPZRT05 EQU LCPZF004 00972000 LCPZRT06 EQU LCPFLAGS 00973000 LCPZRT07 EQU LCPFLAGS 00974000 LCPMNRCD EQU LCPREQTG+1 00975000 LCPZRT08 EQU LCPMNRCD 00976000 LCPZRT09 EQU LCPMNRCD 00977000 LCPCHAIN EQU ISTLCPB+4 00978000 LCPCHAI1 EQU LCPCHAIN 00979000 LCPRUCNT EQU ISTLCPB+8 00980000 LCPFLAG2 EQU ISTLCPB+9 00981000 LCPTLBPI EQU LCPFLAG2 00982000 LCPFID0 EQU LCPFLAG2 00983000 LCPSEQ EQU ISTLCPB+10 00984000 LCPCID EQU ISTLCPB+16 00985000 LCPFDBA EQU ISTLCPB+24 00986000 LCPFLG1 EQU ISTLCPB+37 00987000 LCPFLCCW EQU ISTLCPB+40 00988000 LCPLCCW EQU ISTLCPB+48 00989000 LCPPABA EQU LCPLCCW+4 00990000 LCPRPHA EQU LCPPABA 00991000 ISTZSAVE EQU 0 00992000 ZSAZSVBC EQU ISTZSAVE 00993000 ZSAZSVMS EQU ZSAZSVBC 00994000 ISTCFCRR EQU 0 00995000 CFCAUDIT EQU ISTCFCRR 00996000 CFCNTRD EQU CFCAUDIT 00997000 CFCCRT EQU CFCAUDIT+1 00998000 ISTZCRR EQU 0 00999000 ZCRCRR EQU ISTZCRR 01000000 ZCRFLGS1 EQU ISTZCRR+12 01001000 ZCRFLGS2 EQU ISTZCRR+13 01002000 ZCRSWFLD EQU ISTZCRR+14 01003000 ZCRENDSH EQU ZCRSWFLD 01004000 ZCRNDLCP EQU ZCRSWFLD 01005000 ZCRRESET EQU ZCRSWFLD 01006000 ZCRFLGS3 EQU ISTZCRR+15 01007000 ZCRGENSW EQU ISTZCRR+16 01008000 ZCRPFLGS EQU ISTZCRR+17 01009000 ZCRIBPR EQU ISTZCRR+18 01010000 ZCRSCPSW EQU ISTZCRR+19 01011000 ZCRPARMS EQU ISTZCRR+24 01012000 ZCRFBPTR EQU ZCRPARMS 01013000 ZCRDFRDA EQU ZCRPARMS+10 01014000 ZCRPCOD1 EQU ZCRPARMS+12 01015000 ZCRPLSBF EQU ZCRPCOD1 01016000 ZCRPCOD2 EQU ZCRPARMS+13 01017000 ZCRSVRTN EQU ISTZCRR+56 01018000 ZCRWKARA EQU ISTZCRR+156 01019000 ZCRCIDSV EQU ISTZCRR+192 01020000 ZCRAUDIT EQU ISTZCRR+440 01021000 ZCRENTER EQU ZCRAUDIT+5 01022000 ZCRLCPB EQU ISTZCRR+480 01023000 ZCRRHRU EQU ZCRLCPB 01024000 ISTASCRR EQU 0 01025000 ASCFLAGS EQU ISTASCRR+16 01026000 ASCFLG1 EQU ASCFLAGS 01027000 ASCFLG2 EQU ASCFLAGS+2 01028000 ASCFLG3 EQU ASCFLAGS+4 01029000 ASCUSRGS EQU ISTASCRR+28 01030000 ISTCRA EQU 0 01031000 CRABASIC EQU ISTCRA 01032000 CRAHDR EQU CRABASIC 01033000 CRALKACT EQU CRABASIC+8 01034000 CRAPSS EQU ISTCRA+160 01035000 CRASVC EQU ISTCRA+848 01036000 CRABUFA EQU CRASVC+68 01037000 ISTACDEB EQU 0 01038000 ACDVTPRX EQU ISTACDEB 01039000 ACDDBPFX EQU ISTACDEB+16 01040000 ACDTBLOF EQU ACDDBPFX+6 01041000 ACDBASIC EQU ISTACDEB+24 01042000 ACDTCBAD EQU ACDBASIC 01043000 ACDNMSUB EQU ACDTCBAD 01044000 ACDDEBAD EQU ACDBASIC+4 01045000 ACDUSRPG EQU ACDBASIC+16 01046000 ACDACBAD EQU ACDBASIC+24 01047000 ACDAPPAD EQU ACDBASIC+28 01048000 ACDVTAM EQU ISTACDEB+56 01049000 ACDSSFLG EQU ACDVTAM+80 01050000 ACDCACB EQU ACDSSFLG 01051000 ACDTPEND EQU ACDSSFLG 01052000 ACDTSO EQU ACDSSFLG 01053000 ACDAPDAT EQU ACDVTAM+83 01054000 ISTDEVCH EQU 0 01055000 DEVSHCH EQU ISTDEVCH 01056000 DEVCHAR EQU DEVSHCH 01057000 DEVTCODE EQU ISTDEVCH+1 01058000 DEVFLAGS EQU ISTDEVCH+3 01059000 DEVFCCTL EQU DEVFLAGS 01060000 DEVCHAR3 EQU DEVFLAGS 01061000 ISTPROCD EQU 0 01062000 PROPROC EQU ISTPROCD 01063000 PROPROC1 EQU PROPROC 01064000 PROPROC2 EQU PROPROC+1 01065000 PROPROC3 EQU PROPROC+2 01066000 PROPROC4 EQU PROPROC+3 01067000 PROPROCS EQU 0 01068000 PROSETMS EQU PROPROCS+1 01069000 PROSETM2 EQU PROSETMS 01070000 PROSETM3 EQU PROSETMS+1 01071000 PROSETM4 EQU PROSETMS+2 01072000 ISTFMCB EQU 0 01073000 FMCSTAT EQU ISTFMCB+28 01074000 FMCSTAT1 EQU ISTFMCB+29 01075000 FMCCMDFL EQU ISTFMCB+31 01076000 FMCCMPS1 EQU ISTFMCB+36 01077000 FMCSIPA EQU ISTFMCB+148 01078000 FMCNXOSQ EQU ISTFMCB+152 01079000 FMCNXCFM EQU FMCNXOSQ 01080000 FMCNXOSC EQU FMCNXOSQ+2 01081000 FMCSSTAT EQU ISTFMCB+159 01082000 FMCPACE EQU ISTFMCB+160 01083000 FMCPACEN EQU FMCPACE 01084000 FMCPACEM EQU FMCPACE+1 01085000 FMCPACPC EQU FMCPACE+2 01086000 FMCCVAL EQU FMCPACE+3 01087000 FMCOBCE EQU FMCCVAL 01088000 FMCCLEXT EQU ISTFMCB+164 01089000 FMCRPLA EQU FMCCLEXT 01090000 FMCFBA EQU FMCCLEXT+4 01091000 FMCCMPS2 EQU FMCCLEXT+16 01092000 FMCFLGA EQU FMCCMPS2 01093000 FMCFLGCL EQU FMCCMPS2+1 01094000 FMCPSCMD EQU FMCCMPS2+2 01095000 FMCPSTAT EQU FMCCMPS2+3 01096000 FMCSTAT2 EQU ISTFMCB+186 01097000 FMCMODEB EQU ISTFMCB+189 01098000 FMCCLSEQ EQU ISTFMCB+190 01099000 FMCRRESP EQU ISTFMCB+195 01100000 FMCSSEGQ EQU ISTFMCB+200 01101000 FMCFBAS EQU ISTFMCB+216 01102000 FMCZV002 EQU FMCFBAS 01103000 FMCSNCTL EQU ISTFMCB+224 01104000 FMCSCFLG EQU FMCSNCTL 01105000 FMCVS1 EQU ISTFMCB+232 01106000 FMCZFLAG EQU FMCVS1 01107000 FMCZF006 EQU FMCZFLAG 01108000 FMCLBXM EQU FMCVS1+12 01109000 FMCSHEAQ EQU FMCLBXM 01110000 FMCLCPBQ EQU FMCVS1+16 01111000 FMCLCPAQ EQU FMCVS1+20 01112000 FMCSEQ1 EQU FMCVS1+34 01113000 FMCZFLG2 EQU FMCVS1+35 01114000 FMCCVFLG EQU FMCVS1+44 01115000 FMCFLAG EQU 0 01116000 FMCFLGB EQU FMCFLAG 01117000 ISTPST EQU 0 01118000 PSTRQFGA EQU ISTPST+8 01119000 PSTRQUE EQU PSTRQFGA 01120000 PSTFLGA EQU PSTRQFGA+4 01121000 PSTABINP EQU PSTFLGA 01122000 PSTMPSTP EQU ISTPST+20 01123000 PSTDMPS EQU ISTPST+132 01124000 ISTMPST EQU 0 01125000 MPSRSV07 EQU ISTMPST+4 01126000 MPSRQUE EQU ISTMPST+8 01127000 MPSFLGA EQU ISTMPST+12 01128000 MPMEMTRM EQU MPSFLGA 01129000 MPSCRA EQU ISTMPST+24 01130000 MPSCRACT EQU MPSCRA+4 01131000 MPSSRB EQU ISTMPST+32 01132000 MPSSRBCT EQU MPSSRB+4 01133000 MPSCRPL EQU ISTMPST+40 01134000 MPSRPLCT EQU MPSCRPL+4 01135000 ZRTN EQU 0 01136000 PROCESS EQU 0 01137000 UEXTQUE EQU 0 01138000 ISTSCB EQU 0 01139000 SCBCRA EQU ISTSCB+9 01140000 FMZL0006 EQU 0 01141000 FMZL0022 EQU 0 01142000 ISTACB EQU 0 01143000 ISTRPL EQU 0 01144000 CVTS01 EQU CVTPGSIA 01145000 CVTLPDIA EQU CVTS01+12 01146000 CVTDIRST EQU CVTLPDIA 01147000 CVTSLIDA EQU CVTS01+24 01148000 CVTCTLFG EQU CVTS01+50 01149000 CVTRV210 EQU CVTS01+424 01150000 CVTRV219 EQU CVTS01+425 01151000 CVTRV228 EQU CVTS01+426 01152000 CVTRV237 EQU CVTS01+427 01153000 CVTMFRTR EQU CVTS01+452 01154000 CVTRV262 EQU CVTS01+468 01155000 CVTRV271 EQU CVTS01+469 01156000 CVTRV280 EQU CVTS01+470 01157000 CVTRV289 EQU CVTS01+471 01158000 CVTGSDA EQU CVTS01+600 01159000 PSARSVTE EQU PSARSVT 01160000 LCPZTIE EQU LCPCID 01161000 LCPZSNAM EQU LCPZTIE+8 01162000 APCBITS EQU APCCOMF 01163000 AUTHE EQU APCBITS 01164000 CURTCB EQU PSATOLD 01165000 FLC EQU PSA 01166000 SRB EQU SRBSECT 01167000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01168000 @NM00132 EQU APCBITS+1 01169000 @NM00131 EQU APCBITS 01170000 LCPZTRV4 EQU LCPZSNAM+4 01171000 LCPZTRV1 EQU LCPZSNAM 01172000 LCPZSNA EQU LCPZTIE+4 01173000 LCPZFMCA EQU LCPZTIE 01174000 PSARSAV EQU PSARSVTE+60 01175000 PSARSTK EQU PSARSVTE+56 01176000 PSAESAV3 EQU PSARSVTE+52 01177000 PSAESTK3 EQU PSARSVTE+48 01178000 PSAESAV2 EQU PSARSVTE+44 01179000 PSAESTK2 EQU PSARSVTE+40 01180000 PSAESAV1 EQU PSARSVTE+36 01181000 PSAESTK1 EQU PSARSVTE+32 01182000 PSAPSAV EQU PSARSVTE+28 01183000 PSAPSTK EQU PSARSVTE+24 01184000 PSAMSAV EQU PSARSVTE+20 01185000 PSAMSTK EQU PSARSVTE+16 01186000 PSASSAV EQU PSARSVTE+12 01187000 PSASSTK EQU PSARSVTE+8 01188000 PSANSTK EQU PSARSVTE+4 01189000 PSACSTK EQU PSARSVTE 01190000 CVTRV628 EQU CVTS01+728 01191000 CVTRV627 EQU CVTS01+724 01192000 CVTRV626 EQU CVTS01+720 01193000 CVTRV625 EQU CVTS01+716 01194000 CVTRV624 EQU CVTS01+712 01195000 CVTRV623 EQU CVTS01+708 01196000 CVTRV622 EQU CVTS01+704 01197000 CVTRV621 EQU CVTS01+700 01198000 CVTRV620 EQU CVTS01+696 01199000 CVTRV619 EQU CVTS01+692 01200000 CVTRV618 EQU CVTS01+688 01201000 CVTRV617 EQU CVTS01+684 01202000 CVTRV616 EQU CVTS01+680 01203000 CVTRV615 EQU CVTS01+676 01204000 CVTRV614 EQU CVTS01+672 01205000 CVTRV613 EQU CVTS01+668 01206000 CVTTCASP EQU CVTS01+664 01207000 CVT0PT03 EQU CVTS01+660 01208000 CVT0PT0E EQU CVTS01+656 01209000 CVTIRM EQU CVTS01+652 01210000 CVTCGK EQU CVTS01+648 01211000 CVTRV607 EQU CVTS01+644 01212000 CVTRV606 EQU CVTS01+640 01213000 CVTRV605 EQU CVTS01+636 01214000 CVTRV604 EQU CVTS01+632 01215000 CVTEFF02 EQU CVTS01+628 01216000 CVTCBBR EQU CVTS01+624 01217000 CVTSSCR EQU CVTS01+620 01218000 CVTEVENT EQU CVTS01+616 01219000 CVTCRCA EQU CVTS01+612 01220000 CVTTPIO EQU CVTS01+608 01221000 CVTADV EQU CVTS01+604 01222000 CVTGSDAB EQU CVTGSDA 01223000 CVTQV3 EQU CVTS01+596 01224000 CVTQV2 EQU CVTS01+592 01225000 CVTQV1 EQU CVTS01+588 01226000 CVTRPT EQU CVTS01+584 01227000 CVTSSRB EQU CVTS01+580 01228000 CVTCSDRL EQU CVTS01+576 01229000 CVTEXP1 EQU CVTS01+572 01230000 CVTRMPMT EQU CVTS01+568 01231000 CVTRMPTT EQU CVTS01+564 01232000 CVTVPSA EQU CVTS01+560 01233000 CVTVSTOP EQU CVTS01+556 01234000 CVTGTFR8 EQU CVTS01+552 01235000 CVTQUIT EQU CVTS01+548 01236000 CVTVACR EQU CVTS01+544 01237000 CVTWTCB EQU CVTS01+540 01238000 CVTSTPRS EQU CVTS01+536 01239000 CVT0PT02 EQU CVTS01+532 01240000 CVTDARCM EQU CVTS01+528 01241000 CVTIRECM EQU CVTS01+524 01242000 CVTJRECM EQU CVTS01+520 01243000 CVTVEMS0 EQU CVTS01+516 01244000 CVTSPFRR EQU CVTS01+512 01245000 CVTRLSTG EQU CVTS01+508 01246000 CVT0TC0A EQU CVTS01+504 01247000 CVTGMBR EQU CVTS01+500 01248000 CVTLFRM EQU CVTS01+496 01249000 CVTRMBR EQU CVTS01+492 01250000 CVTVIOP EQU CVTS01+488 01251000 CVTRV307 EQU CVTS01+486 01252000 CVTRV306 EQU CVTS01+484 01253000 CVTRV305 EQU CVTS01+482 01254000 CVTRV304 EQU CVTS01+480 01255000 CVTRV303 EQU CVTS01+478 01256000 CVTRV302 EQU CVTS01+476 01257000 CVTTRCA EQU CVTS01+472 01258000 CVTRV297 EQU CVTRV289 01259000 CVTRV296 EQU CVTRV289 01260000 CVTRV295 EQU CVTRV289 01261000 CVTRV294 EQU CVTRV289 01262000 CVTRV293 EQU CVTRV289 01263000 CVTRV292 EQU CVTRV289 01264000 CVTRV291 EQU CVTRV289 01265000 CVTRV290 EQU CVTRV289 01266000 CVTRV288 EQU CVTRV280 01267000 CVTRV287 EQU CVTRV280 01268000 CVTRV286 EQU CVTRV280 01269000 CVTRV285 EQU CVTRV280 01270000 CVTRV284 EQU CVTRV280 01271000 CVTRV283 EQU CVTRV280 01272000 CVTRV282 EQU CVTRV280 01273000 CVTRV281 EQU CVTRV280 01274000 CVTRV279 EQU CVTRV271 01275000 CVTRV278 EQU CVTRV271 01276000 CVTRV277 EQU CVTRV271 01277000 CVTRV276 EQU CVTRV271 01278000 CVTRV275 EQU CVTRV271 01279000 CVTRV274 EQU CVTRV271 01280000 CVTRV273 EQU CVTRV271 01281000 CVTRV272 EQU CVTRV271 01282000 CVTRV270 EQU CVTRV262 01283000 CVTRV269 EQU CVTRV262 01284000 CVTRV268 EQU CVTRV262 01285000 CVTRV267 EQU CVTRV262 01286000 CVTRV266 EQU CVTRV262 01287000 CVTRV265 EQU CVTRV262 01288000 CVTRV264 EQU CVTRV262 01289000 CVTRV263 EQU CVTRV262 01290000 CVTVFP EQU CVTS01+464 01291000 CVTVSI EQU CVTS01+460 01292000 CVTVPSIB EQU CVTS01+456 01293000 CVTMFACT EQU CVTMFRTR 01294000 CVTMFCTL EQU CVTS01+448 01295000 CVTPVBP EQU CVTS01+444 01296000 CVTPWI EQU CVTS01+440 01297000 CVTRV254 EQU CVTS01+438 01298000 CVTRV253 EQU CVTS01+436 01299000 CVTRV252 EQU CVTS01+434 01300000 CVTRV251 EQU CVTS01+433 01301000 CVTRV250 EQU CVTS01+432 01302000 CVTRV249 EQU CVTS01+431 01303000 CVTRV248 EQU CVTS01+430 01304000 CVTRV247 EQU CVTS01+429 01305000 CVTRV246 EQU CVTS01+428 01306000 CVTRV245 EQU CVTRV237 01307000 CVTRV244 EQU CVTRV237 01308000 CVTRV243 EQU CVTRV237 01309000 CVTRV242 EQU CVTRV237 01310000 CVTRV241 EQU CVTRV237 01311000 CVTRV240 EQU CVTRV237 01312000 CVTRV239 EQU CVTRV237 01313000 CVTRV238 EQU CVTRV237 01314000 CVTRV236 EQU CVTRV228 01315000 CVTRV235 EQU CVTRV228 01316000 CVTRV234 EQU CVTRV228 01317000 CVTRV233 EQU CVTRV228 01318000 CVTRV232 EQU CVTRV228 01319000 CVTRV231 EQU CVTRV228 01320000 CVTRV230 EQU CVTRV228 01321000 CVTRV229 EQU CVTRV228 01322000 CVTRV227 EQU CVTRV219 01323000 CVTRV226 EQU CVTRV219 01324000 CVTRV225 EQU CVTRV219 01325000 CVTRV224 EQU CVTRV219 01326000 CVTRV223 EQU CVTRV219 01327000 CVTRV222 EQU CVTRV219 01328000 CVTRV221 EQU CVTRV219 01329000 CVTRV220 EQU CVTRV219 01330000 CVTRV218 EQU CVTRV210 01331000 CVTRV217 EQU CVTRV210 01332000 CVTRV216 EQU CVTRV210 01333000 CVTRV215 EQU CVTRV210 01334000 CVTRV214 EQU CVTRV210 01335000 CVTRV213 EQU CVTRV210 01336000 CVTRV212 EQU CVTRV210 01337000 CVTRV211 EQU CVTRV210 01338000 CVTLCCAT EQU CVTS01+420 01339000 CVTPCCAT EQU CVTS01+416 01340000 CVTIPCRP EQU CVTS01+412 01341000 CVTIPCRI EQU CVTS01+408 01342000 CVTIPCDS EQU CVTS01+404 01343000 CVTAIDVT EQU CVTS01+400 01344000 CVTSSAP EQU CVTS01+396 01345000 CVTEHCIR EQU CVTS01+392 01346000 CVTEHDEF EQU CVTS01+388 01347000 CVTDAIR EQU CVTS01+384 01348000 CVTPERFM EQU CVTS01+380 01349000 CVT044R2 EQU CVTS01+376 01350000 CVTFETCH EQU CVTS01+372 01351000 CVTRSTWD EQU CVTS01+368 01352000 CVTSPOST EQU CVTS01+364 01353000 CVTIOBP EQU CVTS01+360 01354000 CVTASMVT EQU CVTS01+356 01355000 CVTRECRQ EQU CVTS01+352 01356000 CVTWSAC EQU CVTS01+348 01357000 CVTRV149 EQU CVTS01+344 01358000 CVTWSAL EQU CVTS01+340 01359000 CVTSPSA EQU CVTS01+336 01360000 CVTGLMN EQU CVTS01+332 01361000 CVTVEAC0 EQU CVTS01+328 01362000 CVT062R1 EQU CVTS01+324 01363000 CVTRPOST EQU CVTS01+320 01364000 CVTDQIQE EQU CVTS01+316 01365000 CVTCSD EQU CVTS01+312 01366000 CVTLKRMA EQU CVTS01+308 01367000 CVTRSPIE EQU CVTS01+304 01368000 CVTRENQ EQU CVTS01+300 01369000 CVTLQCB EQU CVTS01+296 01370000 CVTFQCB EQU CVTS01+292 01371000 CVTQCS01 EQU CVTS01+288 01372000 CVTAPFT EQU CVTS01+284 01373000 CVTPARRL EQU CVTS01+280 01374000 CVTVWAIT EQU CVTS01+276 01375000 CVTGSPL EQU CVTS01+272 01376000 CVTLSMQ EQU CVTS01+268 01377000 CVTGSMQ EQU CVTS01+264 01378000 CVTEXPRO EQU CVTS01+260 01379000 CVTOPCTP EQU CVTS01+256 01380000 CVTSIC EQU CVTS01+252 01381000 CVTTPIOS EQU CVTS01+248 01382000 CVTRTMS EQU CVTS01+244 01383000 CVTSDBF EQU CVTS01+240 01384000 CVTSCBP EQU CVTS01+236 01385000 CVTSDMP EQU CVTS01+232 01386000 CVTSV60 EQU CVTS01+228 01387000 CVTRTMCT EQU CVTS01+224 01388000 CVTASCBL EQU CVTS01+220 01389000 CVTASCBH EQU CVTS01+216 01390000 CVTGDA EQU CVTS01+212 01391000 CVTASVT EQU CVTS01+208 01392000 CVTVVMDI EQU CVTS01+204 01393000 CVTAQTOP EQU CVTS01+200 01394000 CVTIOSCS EQU CVTS01+196 01395000 CVTSDRM EQU CVTS01+192 01396000 CVTOPTE EQU CVTS01+188 01397000 CVTSTXU EQU CVTS01+184 01398000 CVTQUIS EQU CVTS01+180 01399000 CVTPARS EQU CVTS01+176 01400000 CVTS1EE EQU CVTS01+172 01401000 CVTFRAS EQU CVTS01+168 01402000 CVTQSAS EQU CVTS01+164 01403000 CVTCRAS EQU CVTS01+160 01404000 CVTCRMN EQU CVTS01+156 01405000 CVTDELCP EQU CVTS01+152 01406000 CVTFRECL EQU CVTS01+148 01407000 CVTGETCL EQU CVTS01+144 01408000 CVTBLDCP EQU CVTS01+140 01409000 CVTAUTHL EQU CVTS01+136 01410000 CVTSCAN EQU CVTS01+132 01411000 CVTRV144 EQU CVTS01+130 01412000 CVTMAXMP EQU CVTS01+128 01413000 CVTSTCK EQU CVTS01+124 01414000 CVTRV139 EQU CVTS01+123 01415000 CVTDSSAC EQU CVTS01+122 01416000 CVTRV513 EQU CVTS01+121 01417000 CVTIOSPL EQU CVTS01+120 01418000 CVTPTGT EQU CVTS01+116 01419000 CVTCSPIE EQU CVTS01+112 01420000 CVTSMFEX EQU CVTS01+108 01421000 CVTOLT0A EQU CVTS01+104 01422000 CVTSRBRT EQU CVTS01+100 01423000 CVTPUTL EQU CVTS01+96 01424000 CVTASCRL EQU CVTS01+92 01425000 CVTASCRF EQU CVTS01+88 01426000 CVTRV326 EQU CVTS01+84 01427000 CVTRV325 EQU CVTS01+80 01428000 CVTRV324 EQU CVTS01+76 01429000 CVT0VL01 EQU CVTS01+72 01430000 CVTSHRVM EQU CVTS01+68 01431000 CVTRV332 EQU CVTS01+64 01432000 CVTTAS EQU CVTS01+60 01433000 CVTRSCN EQU CVTS01+56 01434000 CVTTRAC2 EQU CVTS01+54 01435000 CVTTRACE EQU CVTS01+52 01436000 CVTAPG EQU CVTS01+51 01437000 CVTSDTRC EQU CVTCTLFG 01438000 CVTGTRCE EQU CVTCTLFG 01439000 CVTNOMP EQU CVTCTLFG 01440000 CVTRSV79 EQU CVTCTLFG 01441000 CVTDSTAT EQU CVTCTLFG 01442000 CVTRSV78 EQU CVTCTLFG 01443000 CVTRV333 EQU CVTCTLFG 01444000 CVTRV323 EQU CVTCTLFG 01445000 CVTSPVLK EQU CVTS01+49 01446000 CVTRSV77 EQU CVTS01+48 01447000 CVTRV331 EQU CVTS01+44 01448000 CVTRV330 EQU CVTS01+40 01449000 CVTRV329 EQU CVTS01+36 01450000 CVTRV328 EQU CVTS01+32 01451000 CVTRV322 EQU CVTS01+28 01452000 CVTSLID EQU CVTSLIDA+1 01453000 CVTSYLK EQU CVTSLIDA 01454000 CVTRV321 EQU CVTS01+20 01455000 CVTRV320 EQU CVTS01+16 01456000 CVTLPDIR EQU CVTLPDIA+1 01457000 CVTRSV69 EQU CVTDIRST 01458000 CVTRSV68 EQU CVTDIRST 01459000 CVTRSV67 EQU CVTDIRST 01460000 CVTRSV66 EQU CVTDIRST 01461000 CVTRSV65 EQU CVTDIRST 01462000 CVTRSV64 EQU CVTDIRST 01463000 CVTRSV63 EQU CVTDIRST 01464000 CVTDICOM EQU CVTDIRST 01465000 CVTPVTP EQU CVTS01+8 01466000 CVTLPDSR EQU CVTS01+4 01467000 CVTGETL EQU CVTS01 01468000 SCBRB EQU ISTSCB+13 01469000 SCBFLAG3 EQU ISTSCB+12 01470000 SCBFLAG2 EQU ISTSCB+8 01471000 SCBEXRTN EQU ISTSCB+4 01472000 SCBCHAIN EQU ISTSCB+1 01473000 SCBFLAG1 EQU ISTSCB 01474000 MPSSRB1 EQU ISTMPST+172 01475000 MPSSAVE EQU ISTMPST+140 01476000 MPSMQLBP EQU ISTMPST+136 01477000 MPSSYSRT EQU ISTMPST+132 01478000 MPSQEL EQU ISTMPST+128 01479000 MPSDBTBL EQU ISTMPST+124 01480000 MPSASCB EQU ISTMPST+120 01481000 MPSTPPAB EQU ISTMPST+88 01482000 MPSSMPAB EQU ISTMPST+56 01483000 MPSSMRPH EQU ISTMPST+52 01484000 MPSSRB55 EQU ISTMPST+48 01485000 MPSRPLAC EQU MPSRPLCT+2 01486000 MPSRPLRC EQU MPSRPLCT 01487000 MPSCRPLQ EQU MPSCRPL 01488000 MPSSRBAC EQU MPSSRBCT+2 01489000 MPSSRBRC EQU MPSSRBCT 01490000 MPSSRBQ EQU MPSSRB 01491000 MPSCRAAC EQU MPSCRACT+2 01492000 MPSCRARC EQU MPSCRACT 01493000 MPSCRAQ EQU MPSCRA 01494000 MPSMPSTP EQU ISTMPST+20 01495000 MPSPSTCT EQU ISTMPST+16 01496000 MPSASID EQU MPSFLGA+2 01497000 MPSRSV02 EQU MPSFLGA+1 01498000 MPSPSTAB EQU MPSFLGA 01499000 MPSRSV01 EQU MPSFLGA 01500000 MPSTPBU EQU MPSFLGA 01501000 MPSAUTH EQU MPSFLGA 01502000 MPSCRAO EQU MPSFLGA 01503000 MPSSRBO EQU MPSFLGA 01504000 MPSRQUEG EQU MPSRQUE 01505000 MPSTSOIR EQU MPSRSV07 01506000 MPSTSOIW EQU MPSRSV07 01507000 MPSID EQU ISTMPST 01508000 PSTDRDYQ EQU PSTDMPS+1 01509000 @NM00130 EQU PSTDMPS 01510000 PSTDGATE EQU PSTDMPS 01511000 PSTDEBP EQU ISTPST+128 01512000 PSTSAVE EQU ISTPST+96 01513000 PSTSMDYP EQU ISTPST+64 01514000 PSTCRRS EQU ISTPST+60 01515000 PSTCRR1 EQU ISTPST+56 01516000 PSTIQE22 EQU ISTPST+52 01517000 PSTIQE21 EQU ISTPST+48 01518000 PSTIQE12 EQU ISTPST+44 01519000 PSTIQE11 EQU ISTPST+40 01520000 PSTUEQ EQU ISTPST+36 01521000 PSTNSSQ EQU ISTPST+32 01522000 PSTPSSQ EQU ISTPST+28 01523000 PSTACBCT EQU ISTPST+24 01524000 PSTTCBA EQU ISTPST+16 01525000 PSTRSV08 EQU PSTFLGA+1 01526000 PSTDMPC EQU PSTFLGA+1 01527000 PSTABEND EQU PSTABINP 01528000 PSTAUTH EQU PSTFLGA 01529000 PSTSMCU EQU PSTFLGA 01530000 PSTSMQR EQU PSTFLGA 01531000 PSTIRBU2 EQU PSTFLGA 01532000 PSTIRBU1 EQU PSTFLGA 01533000 PSTUERN EQU PSTFLGA 01534000 PSTSSRN EQU PSTFLGA 01535000 PSTRQUEA EQU PSTRQUE+1 01536000 PSTRSV07 EQU PSTRQUE 01537000 PSTRSV06 EQU PSTRQUE 01538000 PSTRSV05 EQU PSTRQUE 01539000 PSTRSV04 EQU PSTRQUE 01540000 PSTRSV03 EQU PSTRQUE 01541000 PSTRSV02 EQU PSTRQUE 01542000 PSTRSV01 EQU PSTRQUE 01543000 PSTRQFLG EQU PSTRQUE 01544000 PSTCHAIN EQU ISTPST+4 01545000 @NM00129 EQU ISTPST+2 01546000 PSTLNGTH EQU ISTPST+1 01547000 PSTTYPE EQU ISTPST 01548000 FMCFLRSV EQU FMCFLGB 01549000 FMCFLGA8 EQU FMCFLGB 01550000 FMCCLRPH EQU FMCVS1+45 01551000 FMCRSV0X EQU FMCCVFLG 01552000 FMCVYRPH EQU FMCCVFLG 01553000 FMCZV004 EQU FMCVS1+40 01554000 FMCLOCK2 EQU FMCVS1+36 01555000 @NM00128 EQU FMCZFLG2 01556000 FMCZF027 EQU FMCZFLG2 01557000 FMCZF026 EQU FMCZFLG2 01558000 FMCSEQ1B EQU FMCSEQ1 01559000 FMCSEQ1T EQU FMCSEQ1 01560000 FMCZX006 EQU FMCVS1+33 01561000 FMCZX005 EQU FMCVS1+32 01562000 FMCZX004 EQU FMCVS1+31 01563000 FMCZX003 EQU FMCVS1+30 01564000 FMCZX002 EQU FMCVS1+29 01565000 FMCZX001 EQU FMCVS1+28 01566000 FMCZV001 EQU FMCVS1+24 01567000 FMCAWATQ EQU FMCLCPAQ+1 01568000 @NM00127 EQU FMCLCPAQ 01569000 FMCLCPB2 EQU FMCLCPBQ+1 01570000 FMCLCPB1 EQU FMCLCPBQ 01571000 FMCASCDQ EQU FMCSHEAQ+1 01572000 @NM00126 EQU FMCSHEAQ 01573000 FMCSHEDQ EQU FMCVS1+8 01574000 FMCZFCSQ EQU FMCVS1+6 01575000 FMCZH001 EQU FMCVS1+4 01576000 FMCZF025 EQU FMCZFLAG+3 01577000 FMCZF024 EQU FMCZFLAG+3 01578000 FMCZF023 EQU FMCZFLAG+3 01579000 FMCZF022 EQU FMCZFLAG+3 01580000 FMCZF021 EQU FMCZFLAG+3 01581000 FMCZF020 EQU FMCZFLAG+3 01582000 FMCZF019 EQU FMCZFLAG+3 01583000 FMCZF018 EQU FMCZFLAG+3 01584000 FMCZF017 EQU FMCZFLAG+2 01585000 FMCZF016 EQU FMCZFLAG+2 01586000 FMCZF015 EQU FMCZFLAG+2 01587000 FMCZF014 EQU FMCZFLAG+2 01588000 FMCZF013 EQU FMCZFLAG+2 01589000 FMCZF012 EQU FMCZFLAG+2 01590000 FMCZF011 EQU FMCZFLAG+2 01591000 FMCZF010 EQU FMCZFLAG+2 01592000 FMCZF00F EQU FMCZFLAG+1 01593000 FMCZF00E EQU FMCZFLAG+1 01594000 FMCZF00D EQU FMCZFLAG+1 01595000 FMCZF00C EQU FMCZFLAG+1 01596000 FMCZF00B EQU FMCZFLAG+1 01597000 FMCRSV10 EQU FMCZFLAG+1 01598000 FMCZF009 EQU FMCZFLAG+1 01599000 FMCZFD06 EQU FMCZF006+1 01600000 FMCZFC06 EQU FMCZF006 01601000 FMCZFB06 EQU FMCZF006 01602000 FMCZFA06 EQU FMCZF006 01603000 FMCZF005 EQU FMCZFLAG 01604000 FMCZF004 EQU FMCZFLAG 01605000 FMCZF003 EQU FMCZFLAG 01606000 FMCZF002 EQU FMCZFLAG 01607000 FMCZF001 EQU FMCZFLAG 01608000 FMCFRESA EQU ISTFMCB+228 01609000 FMCSCSQN EQU FMCSNCTL+2 01610000 FMCSCCTL EQU FMCSNCTL+1 01611000 FMCSTCTL EQU FMCSCFLG 01612000 FMCSCCLO EQU FMCSCFLG 01613000 FMCAPRO EQU FMCSCFLG 01614000 FMCLURO EQU FMCSCFLG 01615000 FMCOBSAC EQU FMCSCFLG 01616000 FMCIBSAC EQU FMCSCFLG 01617000 FMCFBRE EQU ISTFMCB+220 01618000 FMCFBXM EQU FMCZV002 01619000 FMCASEGQ EQU ISTFMCB+212 01620000 FMCRDTPT EQU ISTFMCB+208 01621000 FMCLOCK EQU ISTFMCB+204 01622000 FMCSEGD EQU FMCSSEGQ 01623000 FMCRSPLM EQU ISTFMCB+198 01624000 FMCPSTRS EQU ISTFMCB+196 01625000 @NM00125 EQU FMCRRESP 01626000 FMCTSLHA EQU FMCRRESP 01627000 FMCFRRN EQU FMCRRESP 01628000 FMCFME EQU FMCRRESP 01629000 FMCFEX EQU FMCRRESP 01630000 FMCFPE EQU FMCRRESP 01631000 FMCCTLB EQU ISTFMCB+194 01632000 FMCBSQNO EQU FMCCLSEQ+2 01633000 FMCTSQNO EQU FMCCLSEQ 01634000 FMCOBPRG EQU FMCMODEB 01635000 FMCIBPRG EQU FMCMODEB 01636000 FMCRESOT EQU FMCMODEB 01637000 FMCRSTSR EQU FMCMODEB 01638000 FMCLUQ EQU FMCMODEB 01639000 FMCAPQ EQU FMCMODEB 01640000 FMCCLEAR EQU FMCMODEB 01641000 FMCHOLD EQU FMCMODEB 01642000 FMCIPSEQ EQU ISTFMCB+188 01643000 FMCLUSTR EQU ISTFMCB+187 01644000 FMCRSV87 EQU FMCSTAT2 01645000 FMCSEQI EQU FMCSTAT2 01646000 FMCCPIP EQU FMCSTAT2 01647000 FMCALIPR EQU FMCSTAT2 01648000 FMCIAIO EQU FMCSTAT2 01649000 FMCZF00A EQU FMCSTAT2 01650000 FMCVPIP EQU FMCSTAT2 01651000 FMCBHSET EQU ISTFMCB+185 01652000 FMCPRMRC EQU FMCCLEXT+20 01653000 FMCRSV89 EQU FMCPSTAT 01654000 FMCPCLSD EQU FMCPSTAT 01655000 FMCDDOCD EQU FMCPSTAT 01656000 FMCIDVFD EQU FMCPSTAT 01657000 FMCELKST EQU FMCPSTAT 01658000 FMCRSV88 EQU FMCPSCMD 01659000 FMCRDBLK EQU FMCPSCMD 01660000 FMCDSEOC EQU FMCPSCMD 01661000 FMCPURGE EQU FMCPSCMD 01662000 FMCRESTI EQU FMCPSCMD 01663000 FMCCNTCT EQU FMCPSCMD 01664000 FMCINVT EQU FMCPSCMD 01665000 FMCFLGB7 EQU FMCFLGCL 01666000 FMCFLGB6 EQU FMCFLGCL 01667000 FMCFLGB5 EQU FMCFLGCL 01668000 FMCFLGB4 EQU FMCFLGCL 01669000 FMCFLGB3 EQU FMCFLGCL 01670000 FMCFLGB2 EQU FMCFLGCL 01671000 FMCFLGB1 EQU FMCFLGCL 01672000 FMCFLGB0 EQU FMCFLGCL 01673000 FMCFLGA7 EQU FMCFLGA 01674000 FMCFLGA6 EQU FMCFLGA 01675000 FMCFLGA5 EQU FMCFLGA 01676000 FMCFLGA4 EQU FMCFLGA 01677000 FMCFLGA3 EQU FMCFLGA 01678000 FMCFLGA2 EQU FMCFLGA 01679000 FMCFLGA1 EQU FMCFLGA 01680000 FMCFLGA0 EQU FMCFLGA 01681000 FMCDCLOK EQU FMCCLEXT+12 01682000 FMCRAFM EQU FMCCLEXT+8 01683000 FMCFBPTR EQU FMCFBA+1 01684000 FMCFBRSV EQU FMCFBA 01685000 FMCRPLPT EQU FMCRPLA+1 01686000 FMCRPLRS EQU FMCRPLA 01687000 FMCPRCLS EQU FMCCVAL 01688000 FMCIBCE EQU FMCCVAL 01689000 FMCONLY EQU FMCOBCE 01690000 FMCLAST EQU FMCOBCE 01691000 FMCMIDLE EQU FMCOBCE 01692000 FMCFIRST EQU FMCOBCE 01693000 FMCCPCNT EQU FMCPACPC 01694000 FMCMPCNT EQU FMCPACEM 01695000 FMCNPCNT EQU FMCPACEN 01696000 FMCCONF EQU FMCSSTAT 01697000 FMCPURCH EQU FMCSSTAT 01698000 FMCNSALU EQU FMCSSTAT 01699000 FMCBIP EQU FMCSSTAT 01700000 FMCSDTR EQU FMCSSTAT 01701000 FMCUIPI EQU FMCSSTAT 01702000 FMCCIPI EQU FMCSSTAT 01703000 FMCSNBI EQU FMCSSTAT 01704000 FMCRVD01 EQU ISTFMCB+158 01705000 FMCISSN EQU ISTFMCB+156 01706000 FMCOASN EQU FMCNXOSC 01707000 FMCOSSN EQU FMCNXCFM 01708000 FMCSIP EQU FMCSIPA 01709000 FMCEXLST EQU ISTFMCB+144 01710000 FMCPAB5 EQU ISTFMCB+128 01711000 FMCPAB4 EQU ISTFMCB+112 01712000 FMCPAB3 EQU ISTFMCB+96 01713000 FMCPAB2 EQU ISTFMCB+80 01714000 FMCPAB1 EQU ISTFMCB+64 01715000 FMCFASYA EQU ISTFMCB+60 01716000 FMCMODE EQU ISTFMCB+52 01717000 FMCPROCD EQU ISTFMCB+48 01718000 FMCVWT EQU ISTFMCB+44 01719000 FMCRPLH EQU ISTFMCB+40 01720000 FMCBUFNB EQU FMCCMPS1+2 01721000 FMCBUFLM EQU FMCCMPS1 01722000 FMCDEBA EQU ISTFMCB+32 01723000 @NM00124 EQU FMCCMDFL 01724000 FMCSNA EQU FMCCMDFL 01725000 FMCVSNA EQU FMCCMDFL 01726000 FMCCMDR EQU FMCCMDFL 01727000 @NM00123 EQU ISTFMCB+30 01728000 @NM00122 EQU FMCSTAT1 01729000 FMCLTCLS EQU FMCSTAT1 01730000 FMCHPURG EQU FMCSTAT1 01731000 FMCVSP2 EQU FMCSTAT1 01732000 FMCVSP1 EQU FMCSTAT 01733000 FMCLTEAS EQU FMCSTAT 01734000 FMCZF007 EQU FMCSTAT 01735000 FMCDEDSC EQU FMCSTAT 01736000 FMCDEVOF EQU FMCSTAT 01737000 FMCDAPT EQU FMCSTAT 01738000 FMCPRMTE EQU FMCSTAT 01739000 FMCPRMTR EQU FMCSTAT 01740000 FMCUSFLD EQU ISTFMCB+24 01741000 FMCFMCBA EQU ISTFMCB+20 01742000 FMCDNCBA EQU ISTFMCB+16 01743000 FMCDVTA EQU ISTFMCB+12 01744000 FMCTSKID EQU ISTFMCB+8 01745000 FMCNXTCB EQU ISTFMCB+4 01746000 FMCSAF EQU ISTFMCB+2 01747000 FMCLNGTH EQU ISTFMCB+1 01748000 FMCTYPE EQU ISTFMCB 01749000 PROSRDEF EQU PROSETM4 01750000 PRORSV47 EQU PROSETM4 01751000 PROSCON EQU PROSETM4 01752000 PRORSV46 EQU PROSETM3 01753000 PROSMONT EQU PROSETM3 01754000 PRORSV45 EQU PROSETM3 01755000 PROSNTO EQU PROSETM3 01756000 PRORSV44 EQU PROSETM3 01757000 PRORSV43 EQU PROSETM2 01758000 PROSNTFL EQU PROSETM2 01759000 PRORSV42 EQU PROSETM2 01760000 PRORSV41 EQU PROPROCS 01761000 PROMODC EQU PROPROC4 01762000 PROMODT EQU PROPROC4 01763000 PROMODM EQU PROPROC4 01764000 PROMODB EQU PROPROC4 01765000 PRORSV14 EQU PROPROC4 01766000 PRORSV13 EQU PROPROC4 01767000 PRORSV12 EQU PROPROC4 01768000 PROEIB EQU PROPROC4 01769000 PROMONT3 EQU PROPROC3 01770000 PROMONT2 EQU PROPROC3 01771000 PROMONIT EQU PROPROC3 01772000 PROSUBLK EQU PROPROC3 01773000 PRONTO EQU PROPROC3 01774000 PROLGIN EQU PROPROC3 01775000 PROERPI EQU PROPROC3 01776000 PRORSV07 EQU PROPROC3 01777000 PROCFTX EQU PROPROC2 01778000 PROEMLC EQU PROPROC2 01779000 PRONTFL EQU PROPROC2 01780000 PRORSV05 EQU PROPROC2 01781000 PRORSV04 EQU PROPROC2 01782000 PROLGOT EQU PROPROC2 01783000 PROERPO EQU PROPROC2 01784000 PRORSV03 EQU PROPROC2 01785000 PRORPLC EQU PROPROC1 01786000 PROCS EQU PROPROC1 01787000 PROCA EQU PROPROC1 01788000 PRORESPX EQU PROPROC1 01789000 PRODFASY EQU PROPROC1 01790000 PROXPOPT EQU PROPROC1 01791000 PROTRUNC EQU PROPROC1 01792000 PROASYIP EQU PROPROC1 01793000 DEVRSV03 EQU ISTDEVCH+5 01794000 DEVPHYSA EQU ISTDEVCH+4 01795000 DEVCSLPN EQU DEVCHAR3 01796000 DEVCSTCL EQU DEVCHAR3 01797000 DEVCCHEK EQU DEVCHAR3 01798000 DEVCATTN EQU DEVCHAR3 01799000 DEVCSWL EQU DEVFCCTL 01800000 DEVCRVB EQU DEVFCCTL 01801000 DEVCSSL EQU DEVFCCTL 01802000 DEVCBSC EQU DEVFCCTL 01803000 DEVMCODE EQU ISTDEVCH+2 01804000 DEVCHAR2 EQU DEVTCODE 01805000 DEVRSV01 EQU DEVCHAR 01806000 DEVCCTL EQU DEVCHAR 01807000 DEVNNSPT EQU DEVCHAR 01808000 DEVSPS EQU DEVCHAR 01809000 DEVSUBND EQU DEVCHAR 01810000 DEVCONVR EQU DEVCHAR 01811000 DEVOTPUT EQU DEVCHAR 01812000 DEVINPUT EQU DEVCHAR 01813000 ACDREFQ EQU ISTACDEB+204 01814000 ACDASFQ EQU ISTACDEB+200 01815000 ACDSOP EQU ISTACDEB+184 01816000 ACDSIP EQU ISTACDEB+168 01817000 ACDRSV24 EQU ACDVTAM+108 01818000 ACDRSV23 EQU ACDVTAM+104 01819000 ACDRSV22 EQU ACDVTAM+100 01820000 ACDOCWAD EQU ACDVTAM+96 01821000 ACDRSV10 EQU ACDVTAM+92 01822000 ACDAPDDT EQU ACDAPDAT+1 01823000 ACDAPDLN EQU ACDAPDAT 01824000 ACDRSV07 EQU ACDVTAM+82 01825000 ACDRSV06 EQU ACDVTAM+81 01826000 @NM00121 EQU ACDSSFLG 01827000 ACDAICLS EQU ACDSSFLG 01828000 ACDABEND EQU ACDSSFLG 01829000 ACDRSV21 EQU ACDVTAM+64 01830000 ACDSSPAB EQU ACDVTAM+48 01831000 ACDNEPAB EQU ACDVTAM+32 01832000 ACDRSV20 EQU ACDVTAM+20 01833000 ACDRARQ EQU ACDVTAM+16 01834000 ACDRAFQ EQU ACDVTAM+12 01835000 ACDFMCB EQU ACDVTAM+8 01836000 ACDRDTE EQU ACDVTAM+4 01837000 ACDLOCK EQU ACDVTAM 01838000 ACDAPP EQU ACDAPPAD+1 01839000 ACDEXSCL EQU ACDAPPAD 01840000 ACDACB EQU ACDACBAD+1 01841000 ACDDEBID EQU ACDACBAD 01842000 ACDPROTG EQU ACDACBAD 01843000 ACDECBAD EQU ACDBASIC+20 01844000 ACDUSRPB EQU ACDUSRPG+1 01845000 ACDNMEXT EQU ACDUSRPG 01846000 ACDPRLEN EQU ACDBASIC+15 01847000 ACDFLGS1 EQU ACDBASIC+14 01848000 ACDQSCNT EQU ACDBASIC+13 01849000 ACDOPATB EQU ACDBASIC+12 01850000 ACDIRBAD EQU ACDBASIC+8 01851000 ACDDEB EQU ACDDEBAD+1 01852000 ACDAMLNG EQU ACDDEBAD 01853000 ACDTCB EQU ACDTCBAD+1 01854000 ACDOPNAD EQU ACDNMSUB 01855000 ACDRSV03 EQU ACDTBLOF+1 01856000 ACDRSV02 EQU ACDTBLOF 01857000 ACDAMTYP EQU ACDDBPFX+5 01858000 ACDLENG EQU ACDDBPFX+4 01859000 ACDDEBX EQU ACDDBPFX 01860000 ACDRSV08 EQU ACDVTPRX+12 01861000 ACDTSKID EQU ACDVTPRX+8 01862000 ACDCHN EQU ACDVTPRX+4 01863000 ACDSAF EQU ACDVTPRX+2 01864000 ACDLNGTH EQU ACDVTPRX+1 01865000 ACDTYPE EQU ACDVTPRX 01866000 CRACHAIN EQU ISTCRA+928 01867000 CRARSV02 EQU ISTCRA+924 01868000 CRARSV01 EQU ISTCRA+920 01869000 CRABFTBA EQU CRABUFA 01870000 CRAMASK EQU CRASVC+64 01871000 CRAHSIZ EQU CRASVC+60 01872000 CRAASCRR EQU CRASVC 01873000 CRAPROCR EQU ISTCRA+312 01874000 CRARPH EQU ISTCRA+52 01875000 CRALAPTR EQU CRABASIC+48 01876000 CRAL9PTR EQU CRABASIC+44 01877000 CRAL8PTR EQU CRABASIC+40 01878000 CRAL7PTR EQU CRABASIC+36 01879000 CRAL6PTR EQU CRABASIC+32 01880000 CRAL5PTR EQU CRABASIC+28 01881000 CRAL4PTR EQU CRABASIC+24 01882000 CRAL3PTR EQU CRABASIC+20 01883000 CRAL2PTR EQU CRABASIC+16 01884000 CRAL1PTR EQU CRABASIC+12 01885000 CRALEV01 EQU CRALKACT+3 01886000 CRALEV02 EQU CRALKACT+3 01887000 CRALEV03 EQU CRALKACT+3 01888000 CRALEV04 EQU CRALKACT+3 01889000 CRALEV05 EQU CRALKACT+3 01890000 CRALEV06 EQU CRALKACT+3 01891000 CRALEV07 EQU CRALKACT+3 01892000 CRALEV08 EQU CRALKACT+3 01893000 CRALEV09 EQU CRALKACT+2 01894000 CRALEV10 EQU CRALKACT+2 01895000 CRALEV11 EQU CRALKACT+2 01896000 CRALEV12 EQU CRALKACT+2 01897000 CRALEV13 EQU CRALKACT+2 01898000 CRALEV14 EQU CRALKACT+2 01899000 CRALEV15 EQU CRALKACT+2 01900000 CRALEV16 EQU CRALKACT+2 01901000 CRALEV17 EQU CRALKACT+1 01902000 CRALEV18 EQU CRALKACT+1 01903000 CRALEV19 EQU CRALKACT+1 01904000 CRALEV20 EQU CRALKACT+1 01905000 CRALEV21 EQU CRALKACT+1 01906000 CRALEV22 EQU CRALKACT+1 01907000 CRALEV23 EQU CRALKACT+1 01908000 CRALEV24 EQU CRALKACT+1 01909000 CRALEV25 EQU CRALKACT 01910000 CRALEV26 EQU CRALKACT 01911000 CRALEV27 EQU CRALKACT 01912000 CRALEV28 EQU CRALKACT 01913000 CRALEV29 EQU CRALKACT 01914000 CRALEV30 EQU CRALKACT 01915000 CRALEV31 EQU CRALKACT 01916000 CRALEV32 EQU CRALKACT 01917000 CRAFRR EQU CRAHDR+4 01918000 CRACRR EQU CRAHDR 01919000 ASCPSREG EQU ISTASCRR+44 01920000 ASCUSR01 EQU ASCUSRGS+12 01921000 ASCUSR00 EQU ASCUSRGS+8 01922000 ASCUSR15 EQU ASCUSRGS+4 01923000 ASCUSR14 EQU ASCUSRGS 01924000 ASCETRYA EQU ISTASCRR+24 01925000 ASCKEY EQU ISTASCRR+23 01926000 ASCAUDIT EQU ASCFLG3 01927000 ASCFBDUD EQU ASCFLG3 01928000 ASCLLKF EQU ASCFLG3 01929000 ASCKEYF EQU ASCFLG3 01930000 ASCFBDAL EQU ASCFLG3 01931000 ASCFSRGT EQU ASCFLG3 01932000 ASCICR EQU ASCFLG2 01933000 ASCFSRIC EQU ASCFLG2 01934000 ASCFBDIC EQU ASCFLG2 01935000 ASCFBAIC EQU ASCFLG2 01936000 ASCPASTR EQU ASCFLG1 01937000 ASCFSR EQU ASCFLG1 01938000 ASCFBD EQU ASCFLG1 01939000 ASCFBA EQU ASCFLG1 01940000 ASCPFCRR EQU ISTASCRR 01941000 ZCRRU EQU ZCRRHRU+3 01942000 ZCRRH EQU ZCRRHRU 01943000 ZCRWORDA EQU ISTZCRR+477 01944000 ZCRCMNRC EQU ISTZCRR+476 01945000 ZCRRSV97 EQU ZCRENTER+18 01946000 ZCREIC2B EQU ZCRENTER+18 01947000 ZCREAC2B EQU ZCRENTER+18 01948000 ZCRELCAB EQU ZCRENTER+18 01949000 ZCREDCMF EQU ZCRENTER+18 01950000 ZCREBCIF EQU ZCRENTER+18 01951000 ZCREICSG EQU ZCRENTER+18 01952000 ZCREDCK0 EQU ZCRENTER+18 01953000 ZCRECFY0 EQU ZCRENTER+17 01954000 ZCREKCCB EQU ZCRENTER+17 01955000 ZCREDCNB EQU ZCRENTER+17 01956000 ZCREICOE EQU ZCRENTER+17 01957000 ZCREBCNB EQU ZCRENTER+17 01958000 ZCREBC0L EQU ZCRENTER+17 01959000 ZCREBCAL EQU ZCRENTER+17 01960000 ZCREDCQR EQU ZCRENTER+17 01961000 ZCREDCPR EQU ZCRENTER+16 01962000 ZCREBCSB EQU ZCRENTER+16 01963000 ZCREAC1R EQU ZCRENTER+16 01964000 ZCRECCCI EQU ZCRENTER+16 01965000 ZCRECCAI EQU ZCRENTER+16 01966000 ZCRECCBI EQU ZCRENTER+16 01967000 ZCREBCAR EQU ZCRENTER+16 01968000 ZCREBCDR EQU ZCRENTER+16 01969000 ZCREBCBR EQU ZCRENTER+15 01970000 ZCREDCXR EQU ZCRENTER+15 01971000 ZCREDCWB EQU ZCRENTER+15 01972000 ZCREDCWR EQU ZCRENTER+15 01973000 ZCREKCCN EQU ZCRENTER+15 01974000 ZCREKCBN EQU ZCRENTER+15 01975000 ZCREKCBB EQU ZCRENTER+15 01976000 ZCREJC0B EQU ZCRENTER+15 01977000 ZCREJCDB EQU ZCRENTER+14 01978000 ZCREJCCB EQU ZCRENTER+14 01979000 ZCREJCBB EQU ZCRENTER+14 01980000 ZCREJCAB EQU ZCRENTER+14 01981000 ZCREIC1B EQU ZCRENTER+14 01982000 ZCREIC0B EQU ZCRENTER+14 01983000 ZCREICX0 EQU ZCRENTER+14 01984000 ZCREICWB EQU ZCRENTER+14 01985000 ZCREICVB EQU ZCRENTER+13 01986000 ZCREICUB EQU ZCRENTER+13 01987000 ZCREICTB EQU ZCRENTER+13 01988000 ZCREICSC EQU ZCRENTER+13 01989000 ZCREICSB EQU ZCRENTER+13 01990000 ZCREICRB EQU ZCRENTER+13 01991000 ZCREICQB EQU ZCRENTER+13 01992000 ZCREICQA EQU ZCRENTER+13 01993000 ZCREICOB EQU ZCRENTER+12 01994000 ZCREICOA EQU ZCRENTER+12 01995000 ZCREICNB EQU ZCRENTER+12 01996000 ZCREICNA EQU ZCRENTER+12 01997000 ZCREICMB EQU ZCRENTER+12 01998000 ZCREICLB EQU ZCRENTER+12 01999000 ZCREICKG EQU ZCRENTER+12 02000000 ZCREICKE EQU ZCRENTER+12 02001000 ZCREICKB EQU ZCRENTER+11 02002000 ZCREICJB EQU ZCRENTER+11 02003000 ZCREICID EQU ZCRENTER+11 02004000 ZCREICIB EQU ZCRENTER+11 02005000 ZCREICHB EQU ZCRENTER+11 02006000 ZCREICGB EQU ZCRENTER+11 02007000 ZCREICEB EQU ZCRENTER+11 02008000 ZCREICDB EQU ZCRENTER+11 02009000 ZCREICCI EQU ZCRENTER+10 02010000 ZCREICCB EQU ZCRENTER+10 02011000 ZCREICBI EQU ZCRENTER+10 02012000 ZCREICBB EQU ZCRENTER+10 02013000 ZCREICAB EQU ZCRENTER+10 02014000 ZCREICAA EQU ZCRENTER+10 02015000 ZCREHCAN EQU ZCRENTER+10 02016000 ZCREGC0B EQU ZCRENTER+10 02017000 ZCREGC0A EQU ZCRENTER+9 02018000 ZCREGCLA EQU ZCRENTER+9 02019000 ZCREGCEB EQU ZCRENTER+9 02020000 ZCREGCDB EQU ZCRENTER+9 02021000 @NM00120 EQU ZCRENTER+9 02022000 ZCREGCBB EQU ZCRENTER+9 02023000 ZCREGCAB EQU ZCRENTER+9 02024000 ZCREFCEB EQU ZCRENTER+9 02025000 ZCREFCEA EQU ZCRENTER+8 02026000 ZCREECTA EQU ZCRENTER+8 02027000 ZCREECEA EQU ZCRENTER+8 02028000 ZCREECDA EQU ZCRENTER+8 02029000 ZCREECCB EQU ZCRENTER+8 02030000 ZCREECCA EQU ZCRENTER+8 02031000 ZCREECBB EQU ZCRENTER+8 02032000 ZCREECBA EQU ZCRENTER+8 02033000 ZCREDCMB EQU ZCRENTER+7 02034000 ZCREDCL0 EQU ZCRENTER+7 02035000 ZCREDCKB EQU ZCRENTER+7 02036000 ZCREDCKA EQU ZCRENTER+7 02037000 ZCREDCJ0 EQU ZCRENTER+7 02038000 ZCREDCI0 EQU ZCRENTER+7 02039000 ZCREDCH0 EQU ZCRENTER+7 02040000 ZCREDCF0 EQU ZCRENTER+7 02041000 ZCREDCE0 EQU ZCRENTER+6 02042000 ZCREDCD0 EQU ZCRENTER+6 02043000 ZCREDCC0 EQU ZCRENTER+6 02044000 ZCREDCB0 EQU ZCRENTER+6 02045000 ZCREDCA0 EQU ZCRENTER+6 02046000 ZCRECC2B EQU ZCRENTER+6 02047000 ZCRECC1B EQU ZCRENTER+6 02048000 ZCRECC1A EQU ZCRENTER+6 02049000 ZCRECC0B EQU ZCRENTER+5 02050000 ZCRECC0A EQU ZCRENTER+5 02051000 ZCREBC0B EQU ZCRENTER+5 02052000 ZCREBC0A EQU ZCRENTER+5 02053000 ZCREBCZ0 EQU ZCRENTER+5 02054000 ZCREBCY0 EQU ZCRENTER+5 02055000 ZCREBCX0 EQU ZCRENTER+5 02056000 ZCREBCXA EQU ZCRENTER+5 02057000 ZCREBCSC EQU ZCRENTER+4 02058000 ZCREBCRB EQU ZCRENTER+4 02059000 ZCREBCRA EQU ZCRENTER+4 02060000 ZCREBCQB EQU ZCRENTER+4 02061000 ZCREBCPB EQU ZCRENTER+4 02062000 ZCREBCOB EQU ZCRENTER+4 02063000 ZCREBCNE EQU ZCRENTER+4 02064000 ZCREBCND EQU ZCRENTER+4 02065000 ZCREBCMB EQU ZCRENTER+3 02066000 ZCREBCLB EQU ZCRENTER+3 02067000 ZCREBCLA EQU ZCRENTER+3 02068000 ZCREBCKB EQU ZCRENTER+3 02069000 ZCREBCKA EQU ZCRENTER+3 02070000 ZCREBCJB EQU ZCRENTER+3 02071000 ZCREBCJA EQU ZCRENTER+3 02072000 ZCREBCID EQU ZCRENTER+3 02073000 ZCREBCIB EQU ZCRENTER+2 02074000 ZCREBCIA EQU ZCRENTER+2 02075000 ZCREBCHB EQU ZCRENTER+2 02076000 ZCREBCHA EQU ZCRENTER+2 02077000 ZCREBCGB EQU ZCRENTER+2 02078000 ZCREBCGA EQU ZCRENTER+2 02079000 ZCREBCFB EQU ZCRENTER+2 02080000 ZCREBCFA EQU ZCRENTER+2 02081000 ZCREBCEB EQU ZCRENTER+1 02082000 ZCREBCDI EQU ZCRENTER+1 02083000 ZCREBCCB EQU ZCRENTER+1 02084000 ZCREBCBI EQU ZCRENTER+1 02085000 ZCREBCBB EQU ZCRENTER+1 02086000 ZCREBCBA EQU ZCRENTER+1 02087000 ZCREBCAM EQU ZCRENTER+1 02088000 ZCREBCAI EQU ZCRENTER+1 02089000 ZCREBCAG EQU ZCRENTER 02090000 ZCREBCAE EQU ZCRENTER 02091000 ZCREBCAB EQU ZCRENTER 02092000 ZCREBCAA EQU ZCRENTER 02093000 ZCREAC1B EQU ZCRENTER 02094000 ZCREAC0B EQU ZCRENTER 02095000 ZCREAC0A EQU ZCRENTER 02096000 ZCREAC1A EQU ZCRENTER 02097000 ZCRTNAME EQU ZCRAUDIT+1 02098000 ZCRTID EQU ZCRAUDIT 02099000 ZCRREMIC EQU ISTZCRR+436 02100000 ZCRSAVEZ EQU ISTZCRR+196 02101000 ZCRDAFSV EQU ZCRCIDSV+2 02102000 ZCRSAFSV EQU ZCRCIDSV 02103000 ZCRR13SV EQU ISTZCRR+188 02104000 ZCRR2SV EQU ISTZCRR+184 02105000 ZCROPCDE EQU ISTZCRR+183 02106000 ZCRPRMTC EQU ISTZCRR+182 02107000 ZCRRCDSV EQU ISTZCRR+181 02108000 ZCRAWQSW EQU ISTZCRR+180 02109000 ZCRTOPQ EQU ISTZCRR+180 02110000 ZCRLSTFB EQU ISTZCRR+180 02111000 ZCRXSCHD EQU ISTZCRR+180 02112000 ZCRNXTEL EQU ISTZCRR+180 02113000 ZCRSCANQ EQU ISTZCRR+180 02114000 ZCRMOREL EQU ISTZCRR+180 02115000 ZCRFBPRC EQU ISTZCRR+180 02116000 ZCRFSBSV EQU ISTZCRR+176 02117000 ZCRSVWK5 EQU ZCRWKARA+16 02118000 ZCRSVWK4 EQU ZCRWKARA+12 02119000 ZCRSVWK3 EQU ZCRWKARA+8 02120000 ZCRSVWK2 EQU ZCRWKARA+4 02121000 ZCRSVWK1 EQU ZCRWKARA 02122000 ZCRSVF25 EQU ZCRSVRTN+96 02123000 ZCRSVF24 EQU ZCRSVRTN+92 02124000 ZCRSVF23 EQU ZCRSVRTN+88 02125000 ZCRSVF22 EQU ZCRSVRTN+84 02126000 ZCRSVF21 EQU ZCRSVRTN+80 02127000 ZCRSVF20 EQU ZCRSVRTN+76 02128000 ZCRSVF19 EQU ZCRSVRTN+72 02129000 ZCRSVF18 EQU ZCRSVRTN+68 02130000 ZCRSVF17 EQU ZCRSVRTN+64 02131000 ZCRSVF16 EQU ZCRSVRTN+60 02132000 ZCRSVF15 EQU ZCRSVRTN+56 02133000 ZCRSVF14 EQU ZCRSVRTN+52 02134000 ZCRSVF13 EQU ZCRSVRTN+48 02135000 ZCRSVF12 EQU ZCRSVRTN+44 02136000 ZCRSVF11 EQU ZCRSVRTN+40 02137000 ZCRSVF10 EQU ZCRSVRTN+36 02138000 ZCRSVF9 EQU ZCRSVRTN+32 02139000 ZCRSVF8 EQU ZCRSVRTN+28 02140000 ZCRSVF7 EQU ZCRSVRTN+24 02141000 ZCRSVF6 EQU ZCRSVRTN+20 02142000 ZCRSVF5 EQU ZCRSVRTN+16 02143000 ZCRSVF4 EQU ZCRSVRTN+12 02144000 ZCRSVF3 EQU ZCRSVRTN+8 02145000 ZCRSVF2 EQU ZCRSVRTN+4 02146000 ZCRSVF1 EQU ZCRSVRTN 02147000 ZCRPVZB EQU ISTZCRR+52 02148000 ZCRZLB EQU ISTZCRR+48 02149000 ZCRBFPTR EQU ISTZCRR+44 02150000 ZCRCCWA EQU ISTZCRR+40 02151000 ZCRPSW EQU ZCRPARMS+15 02152000 ZCRPCHAR EQU ZCRPARMS+14 02153000 ZCRPRES2 EQU ZCRPCOD2 02154000 ZCRPMFGF EQU ZCRPCOD2 02155000 ZCRPFHDR EQU ZCRPCOD2 02156000 ZCRPPG2 EQU ZCRPCOD2 02157000 ZCRPRES EQU ZCRPCOD1 02158000 ZCRPCFTX EQU ZCRPCOD1 02159000 ZCRPBUF EQU ZCRPCOD1 02160000 ZCRPLSCB EQU ZCRPCOD1 02161000 ZCRPLSBQ EQU ZCRPLSBF 02162000 ZCRPFSB EQU ZCRPCOD1 02163000 ZCRPLNG EQU ZCRPCOD1 02164000 ZCRPPG EQU ZCRPCOD1 02165000 ZCRDTODA EQU ZCRDFRDA 02166000 ZCRMLNG EQU ZCRPARMS+8 02167000 ZCRTBPTR EQU ZCRPARMS+4 02168000 ZCRCBPTR EQU ZCRFBPTR 02169000 ZCRCRLCP EQU ISTZCRR+20 02170000 @NM00119 EQU ZCRSCPSW 02171000 ZCRSKIPT EQU ZCRSCPSW 02172000 ZCRFSBWE EQU ZCRSCPSW 02173000 ZCRPRCMP EQU ZCRSCPSW 02174000 ZCRLREQ EQU ZCRSCPSW 02175000 ZCRRJLCP EQU ZCRSCPSW 02176000 ZCRTPINV EQU ZCRSCPSW 02177000 ZCRTPEX EQU ZCRSCPSW 02178000 @NM00118 EQU ZCRIBPR 02179000 ZCR3270R EQU ZCRIBPR 02180000 ZCR3270 EQU ZCRIBPR 02181000 ZCRLCPFD EQU ZCRIBPR 02182000 ZCRLCPFR EQU ZCRIBPR 02183000 ZCRRELK EQU ZCRIBPR 02184000 ZCRERR EQU ZCRIBPR 02185000 ZCRNOBUF EQU ZCRIBPR 02186000 @NM00117 EQU ZCRPFLGS 02187000 ZCRQAHED EQU ZCRPFLGS 02188000 ZCRF1RES EQU ZCRGENSW 02189000 ZCRBRIS EQU ZCRGENSW 02190000 ZCRCLRBD EQU ZCRGENSW 02191000 ZCREXRES EQU ZCRGENSW 02192000 ZCRLCSYN EQU ZCRGENSW 02193000 ZCRRT06 EQU ZCRGENSW 02194000 ZCRTSW2 EQU ZCRGENSW 02195000 ZCRTSW1 EQU ZCRGENSW 02196000 ZCRINLCP EQU ZCRFLGS3 02197000 ZCRWRPTR EQU ZCRFLGS3 02198000 ZCRNOFRE EQU ZCRFLGS3 02199000 ZCREDRIV EQU ZCRFLGS3 02200000 ZCRDISC EQU ZCRFLGS3 02201000 ZCRTPDIS EQU ZCRFLGS3 02202000 ZCRTPCON EQU ZCRFLGS3 02203000 ZCRTIC EQU ZCRFLGS3 02204000 ZCRCNLXL EQU ZCRRESET 02205000 ZCRENDAN EQU ZCRSWFLD 02206000 ZCRENDXL EQU ZCRSWFLD 02207000 ZCRENDX EQU ZCRSWFLD 02208000 ZCROB1 EQU ZCRNDLCP 02209000 ZCRENDPR EQU ZCRSWFLD 02210000 ZCREXTYP EQU ZCRSWFLD 02211000 ZCRSLCP EQU ZCRENDSH 02212000 ZCRIF0E3 EQU ZCRFLGS2 02213000 ZCRIF0E2 EQU ZCRFLGS2 02214000 ZCRIF0E1 EQU ZCRFLGS2 02215000 ZCROB EQU ZCRFLGS2 02216000 ZCRFMSED EQU ZCRFLGS2 02217000 ZCRSHEDI EQU ZCRFLGS2 02218000 ZCRLOCAL EQU ZCRFLGS2 02219000 ZCRFEXIT EQU ZCRFLGS1 02220000 ZCRUNSOL EQU ZCRFLGS1 02221000 ZCRENDLP EQU ZCRFLGS1 02222000 ZCRNRMEX EQU ZCRFLGS1 02223000 ZCRWAIT EQU ZCRFLGS1 02224000 ZCRDEQSW EQU ZCRFLGS1 02225000 ZCRQUESW EQU ZCRFLGS1 02226000 ZCREXSW EQU ZCRFLGS1 02227000 ZCRFRRA EQU ISTZCRR+8 02228000 ZCRCHAIN EQU ISTZCRR+4 02229000 ZCRFLAG EQU ZCRCRR+3 02230000 ZCRLEN EQU ZCRCRR+1 02231000 ZCRID EQU ZCRCRR 02232000 CCFRSVD1 EQU CFCCRT 02233000 CCFCR2 EQU CFCCRT 02234000 CCFCRP EQU CFCCRT 02235000 CCFCR1 EQU CFCCRT 02236000 CCFCS2 EQU CFCCRT 02237000 CCFCS1 EQU CFCCRT 02238000 NCFRSVD EQU CFCNTRD 02239000 NCFCR2 EQU CFCNTRD 02240000 NCFCRP EQU CFCNTRD 02241000 NCFCR1 EQU CFCNTRD 02242000 NCFCS2 EQU CFCNTRD 02243000 NCFCS1 EQU CFCNTRD 02244000 ZSAZTRAC EQU ISTZSAVE+36 02245000 ZSAZSVVR EQU ISTZSAVE+12 02246000 ZSAZSVRR EQU ISTZSAVE+8 02247000 ZSAZSVFC EQU ISTZSAVE+4 02248000 ZSAZACTV EQU ZSAZSVMS 02249000 LCPFTYPE EQU LCPRPHA 02250000 LCPRSTQH EQU LCPLCCW 02251000 LCPCLREP EQU ISTLCPB+44 02252000 LCPUBFSB EQU LCPFLCCW 02253000 LCPRSV77 EQU ISTLCPB+39 02254000 LCPLCCWC EQU ISTLCPB+38 02255000 LCPRSV78 EQU LCPFLG1 02256000 LCPTRANS EQU LCPFLG1 02257000 LCPSTLB EQU LCPFLG1 02258000 LCPREDRV EQU LCPFLG1 02259000 LCPDIRPT EQU LCPFLG1 02260000 LCPINTER EQU LCPFLG1 02261000 LCPRESET EQU LCPFLG1 02262000 LCPSTYPE EQU ISTLCPB+36 02263000 LCPFSNCH EQU ISTLCPB+34 02264000 LCPFOSN EQU ISTLCPB+32 02265000 LCPTLBAD EQU ISTLCPB+28 02266000 LCPFDB2 EQU LCPFDBA+1 02267000 LCPFDB1 EQU LCPFDBA 02268000 LCPNXLCW EQU ISTLCPB+20 02269000 LCPDAF EQU LCPCID+2 02270000 LCPSAF EQU LCPCID 02271000 LCPLCCW1 EQU ISTLCPB+12 02272000 LCPRRCNT EQU LCPSEQ+1 02273000 LCPRRCCT EQU LCPSEQ 02274000 LCPATOP EQU LCPFLAG2 02275000 LCPFREE EQU LCPFLAG2 02276000 LCPDSTAT EQU LCPFLAG2 02277000 LCPEXRES EQU LCPFID0 02278000 LCPZRIMM EQU LCPTLBPI 02279000 LCPRSTRT EQU LCPFLAG2 02280000 LCPASYN EQU LCPFLAG2 02281000 LCPPRFLG EQU LCPFLAG2 02282000 LCPZMIRC EQU LCPRUCNT 02283000 LCPCHAI2 EQU LCPCHAIN+1 02284000 LCPCHNG EQU LCPCHAI1 02285000 LCPZRT0B EQU LCPMNRCD 02286000 LCPZRT0A EQU LCPMNRCD 02287000 LCPZRTL9 EQU LCPZRT09 02288000 LCPZRTL8 EQU LCPZRT08 02289000 LCPZRTL7 EQU LCPZRT07 02290000 LCPZRTL6 EQU LCPZRT06 02291000 LCPZRTL5 EQU LCPZRT05 02292000 LCPZRTL4 EQU LCPZRT04 02293000 LCPZRTL3 EQU LCPZRT03 02294000 LCPZRTL2 EQU LCPZRT02 02295000 LCPZRT01 EQU LCPFLAGS 02296000 LCPZRT00 EQU LCPFLAGS 02297000 LCPLNGTH EQU ISTLCPB+1 02298000 LCPTYPE EQU ISTLCPB 02299000 LCCWDATA EQU ISTLCCW+4 02300000 LCCWCNT EQU ISTLCCW+2 02301000 LCCWACI EQU LCCWFLAG 02302000 LCCWRFI EQU LCCWFLAG 02303000 LCCWPER EQU LCCWLSI 02304000 LCCWIDAT EQU LCCWFLAG 02305000 LCCWNTVC EQU LCCWFLAG 02306000 LCCWCKPT EQU LCCWFLAG 02307000 LCCWCC EQU LCCWFLAG 02308000 LCCWCD EQU LCCWFLAG 02309000 LCCWTYPE EQU LCCWCTL 02310000 LCCWMODE EQU LCCWCTL 02311000 LCCWSOP EQU LCCWRWOP 02312000 @NM00116 EQU LCCWRWOP 02313000 LCCWSD EQU LCCWOP 02314000 LCCWSI EQU LCCWOP 02315000 UECRVPT4 EQU ISTUECB+80 02316000 UECRVPT3 EQU ISTUECB+76 02317000 UECLGDTA EQU ISTUECB+72 02318000 UECDVTPT EQU ISTUECB+68 02319000 UECREQNM EQU ISTUECB+60 02320000 UECSYMNM EQU ISTUECB+52 02321000 UECRSNBT EQU UECRSNCD+3 02322000 @NM00115 EQU UECRSNCD 02323000 UECUSFLD EQU UECREQTR 02324000 UECDAF EQU UECTPNCD+2 02325000 UECSAF EQU UECTPNCD 02326000 UECPAB EQU ISTUECB+16 02327000 UECTSKID EQU ISTUECB+8 02328000 UECFORW EQU ISTUECB+4 02329000 UECRSV01 EQU ISTUECB+2 02330000 UECLEN EQU ISTUECB+1 02331000 UECID EQU ISTUECB 02332000 @NM00114 EQU ISTAPCRR+137 02333000 @NM00113 EQU APC57FLG 02334000 APCNREL EQU APC57FLG 02335000 APCRECRA EQU APC57FLG 02336000 @NM00112 EQU APC54FLG 02337000 APCRLST EQU APC54FLG 02338000 APCPR153 EQU APC53FLG 02339000 @NM00111 EQU APC52FLG 02340000 APCWKF EQU APC52FLG 02341000 APCNWF EQU APC52FLG 02342000 APCRDQ EQU APC52FLG 02343000 APCQENQ EQU APC52FLG 02344000 APCSMSR EQU APC52FLG 02345000 APCCKRQ EQU APC52FLG 02346000 @NM00110 EQU APC31FLG 02347000 APCSORT EQU APC31FLG 02348000 APCRESCH EQU APC31FLG 02349000 APCTPXIT EQU APC31FLG 02350000 APCSWTWD EQU ISTAPCRR+128 02351000 APCSAV2 EQU ISTAPCRR+124 02352000 APCSAV1 EQU ISTAPCRR+120 02353000 APCRETCD EQU APCCOMF+2 02354000 @NM00109 EQU APCCOMF1+1 02355000 APCZLBER EQU APCCOMF1 02356000 APCEXIT EQU APCCOMF1 02357000 APCRELR EQU APCCOMF1 02358000 APCIRB2 EQU APCCOMF1 02359000 APCIRB1 EQU APCCOMF1 02360000 APCSMCR EQU APCCOMF1 02361000 APCUETSK EQU APCCOMF1 02362000 APCSSTSK EQU APCCOMF1 02363000 APCESTAL EQU APCSAVE 02364000 APCFRRPM EQU ISTAPCRR+40 02365000 APCQWFO EQU ISTAPCRR+36 02366000 APCPABSV EQU ISTAPCRR+32 02367000 APCRTRN EQU ISTAPCRR+28 02368000 APCTCBA EQU ISTAPCRR+24 02369000 @NM00108 EQU APCRFLG+1 02370000 APC31R EQU APCRFLG 02371000 APC58R EQU APCRFLG 02372000 APC57R EQU APCRFLG 02373000 APC56R EQU APCRFLG 02374000 APC53R EQU APCRFLG 02375000 APC52R EQU APCRFLG 02376000 APC51R EQU APCRFLG 02377000 @NM00107 EQU APCATFLG+1 02378000 APC31E EQU APCATFLG 02379000 APC58E EQU APCATFLG 02380000 APC57E EQU APCATFLG 02381000 APC56E EQU APCATFLG 02382000 APC53E EQU APCATFLG 02383000 APC52E EQU APCATFLG 02384000 APC51E EQU APCATFLG 02385000 APCHDRSV EQU ISTAPCRR 02386000 PFCRSV01 EQU ISTPFCRR+13 02387000 PFCFTA EQU ISTPFCRR+12 02388000 CRRFRR EQU PFCFRRO 02389000 CRRCHAIN EQU PFCCRRO 02390000 CRRLEN EQU PFCCRRLN 02391000 PFCRSV10 EQU PFCCRR+1 02392000 CRRID EQU PFCCRRID 02393000 ATCAOS EQU ISTATCVT+1584 02394000 ATCPOPAB EQU ATCAOSM+640 02395000 ATCVIOPM EQU ATCAOSM+636 02396000 ATCTPMMI EQU ATCAOSM+632 02397000 ATCTPMPB EQU ATCAOSM+600 02398000 ATCRSV88 EQU ATCAOSM+596 02399000 ATCRPLCT EQU ATCAOSM+594 02400000 ATCCRACT EQU ATCAOSM+592 02401000 ATCSRBCT EQU ATCAOSM+590 02402000 ATCRSV75 EQU ATCAOSM+589 02403000 ATCRSV66 EQU ATCZFLAG 02404000 ATCZF001 EQU ATCZFLAG 02405000 ATCTPCP1 EQU ATCAOSM+584 02406000 ATCTPCP0 EQU ATCAOSM+580 02407000 ATCAICTN EQU ATCAOSM+576 02408000 ATCZR01 EQU ATCAOSM+572 02409000 ATCMPLTA EQU ATCAOSM+568 02410000 ATCASCB EQU ATCAOSM+564 02411000 ATCAP86 EQU ATCAOSM+560 02412000 ATCAP85 EQU ATCAOSM+556 02413000 ATCAP84 EQU ATCAOSM+552 02414000 ATCAP83 EQU ATCAOSM+548 02415000 ATCAP82 EQU ATCAOSM+544 02416000 ATCAP69 EQU ATCAOSM+540 02417000 ATCAP66 EQU ATCAOSM+536 02418000 ATCAP62 EQU ATCAOSM+532 02419000 ATCAPC59 EQU ATCAOSM+528 02420000 ATCAP56 EQU ATCAOSM+524 02421000 ATCAP55 EQU ATCAOSM+520 02422000 ATCRCFY0 EQU ATCAOSM+516 02423000 ATCAP41 EQU ATCAOSM+512 02424000 ATCAPC25 EQU ATCAOSM+508 02425000 ATCAP23 EQU ATCAOSM+504 02426000 ATCTPSPB EQU ATCAOSM+472 02427000 ATCTRMPB EQU ATCAOSM+440 02428000 ATCAPBE EQU ATCAOSM+436 02429000 ATCPSTA EQU ATCAOSM+432 02430000 ATCSMABF EQU ATCAOSM+428 02431000 ATCSMAPR EQU ATCAOSM+424 02432000 ATCTPWQA EQU ATCAOSM+420 02433000 ATCSMAID EQU ATCAOSM+416 02434000 ATCSMARA EQU ATCAOSM+412 02435000 ATCCACXA EQU ATCAOSM+408 02436000 ATCZLAAB EQU ATCAOSM+404 02437000 ATCATA10 EQU ATCAOSM+400 02438000 ATCHLTCB EQU ATCAOSM+396 02439000 @NM00106 EQU ATCVTFLG 02440000 ATCVTACT EQU ATCVTFLG 02441000 ATCRPT40 EQU ATCAOSM+388 02442000 ATCRPT39 EQU ATCAOSM+384 02443000 ATCRPT38 EQU ATCAOSM+380 02444000 ATCRPT37 EQU ATCAOSM+376 02445000 ATCRPT36 EQU ATCAOSM+372 02446000 ATCRPT35 EQU ATCAOSM+368 02447000 ATCRPT34 EQU ATCAOSM+364 02448000 ATCRPT33 EQU ATCAOSM+360 02449000 ATCRPT32 EQU ATCAOSM+356 02450000 ATCRPT31 EQU ATCAOSM+352 02451000 ATCRPT30 EQU ATCAOSM+348 02452000 ATCRPT29 EQU ATCAOSM+344 02453000 ATCRPT28 EQU ATCAOSM+340 02454000 ATCRPT27 EQU ATCAOSM+336 02455000 @NM00105 EQU ATCAOSM+333 02456000 @NM00104 EQU @NM00103 02457000 ATCSNUF EQU @NM00103 02458000 ATCOPKL EQU @NM00103 02459000 ATCABEN EQU @NM00103 02460000 ATCAIWT EQU ATCAOSM+328 02461000 ATCINFDD EQU ATCAOSM+324 02462000 ATCORFMG EQU ATCAOSM+320 02463000 ATCORFRL EQU ATCAOSM+316 02464000 ATCOROBT EQU ATCAOSM+312 02465000 ATCORQG EQU ATCORSRB 02466000 ATCORTBF EQU ATCSQAFR 02467000 ATCRPLAC EQU ATCRPLCN+2 02468000 ATCRPLRC EQU ATCRPLCN 02469000 ATCCRPLQ EQU ATCCRPL 02470000 ATCSRBAC EQU ATCSRBCN+2 02471000 ATCSRBRC EQU ATCSRBCN 02472000 ATCSRBQ EQU ATCSRB 02473000 ATCCRAAC EQU ATCCRACN+2 02474000 ATCCRARC EQU ATCCRACN 02475000 ATCCRAQ EQU ATCCRA 02476000 ATCRPT12 EQU ATCAOSM+276 02477000 ATCDMAPP EQU ATCAOSM+272 02478000 ATCAP38 EQU ATCAOSM+268 02479000 ATCAP37 EQU ATCAOSM+264 02480000 ATCZDFJ0 EQU ATCAOSM+260 02481000 ATCAP51 EQU ATCAOSM+256 02482000 ATCZPAB2 EQU ATCAOSM+224 02483000 ATCZPAB1 EQU ATCAOSM+192 02484000 ATCZLFVT EQU ATCAOSM+188 02485000 ATCZLPVT EQU ATCAOSM+184 02486000 ATCZDVTX EQU ATCAOSM+180 02487000 ATCZDVTA EQU ATCAOSM+176 02488000 ATCZDVT9 EQU ATCAOSM+172 02489000 ATCZDVT8 EQU ATCAOSM+168 02490000 ATCZDVT7 EQU ATCAOSM+164 02491000 ATCRSV56 EQU ATCDAPVT+22 02492000 ATCDAPDG EQU ATCDAPVT+20 02493000 ATCDXCEA EQU ATCDAPVT+16 02494000 ATCDCEA EQU ATCDAPVT+12 02495000 ATCDPCIA EQU ATCDAPVT+8 02496000 ATCDSIOA EQU ATCDAPVT+4 02497000 ATCDEOEA EQU ATCDAPVT 02498000 ATCZLAEA EQU ATCLDAPP+16 02499000 ATCZLCEA EQU ATCLDAPP+12 02500000 ATCRSV17 EQU ATCLDAPP+8 02501000 ATCSMFRR EQU ATCLDAPP+4 02502000 ATCCDTID EQU ATCLDAPP 02503000 ATCZAEA EQU ATCICAPP+16 02504000 ATCZCEA EQU ATCICAPP+12 02505000 ATCCDTCB EQU ATCICAPP+8 02506000 ATCZSIOA EQU ATCICAPP+4 02507000 ATCCDRPH EQU ATCICAPP 02508000 ATCAP65 EQU ATCAOSM+96 02509000 ATCZDVT6 EQU ATCAOSM+92 02510000 ATCZDVT4 EQU ATCAOSM+88 02511000 ATCZDVT3 EQU ATCAOSM+84 02512000 ATCZDVT1 EQU ATCAOSM+80 02513000 ATCICNCB EQU ATCAOSM+76 02514000 ATCZPSVT EQU ATCAOSM+72 02515000 ATCZFSVT EQU ATCAOSM+68 02516000 ATCAP64 EQU ATCAOSM+64 02517000 ATCAP63 EQU ATCAOSM+60 02518000 ATCAP61 EQU ATCAOSM+56 02519000 ATCAP58 EQU ATCAOSM+52 02520000 ATCAP57 EQU ATCAOSM+48 02521000 ATCAP54 EQU ATCAOSM+44 02522000 ATCAP53 EQU ATCAOSM+40 02523000 ATCAP52 EQU ATCAOSM+36 02524000 ATCAP34 EQU ATCAOSM+32 02525000 ATCAP32 EQU ATCAOSM+28 02526000 ATCAP31 EQU ATCAOSM+24 02527000 ATCAP12 EQU ATCAOSM+20 02528000 ATCAP11 EQU ATCAOSM+16 02529000 ATCCMTCB EQU ATCAOSM+12 02530000 ATCPRPH EQU ATCAOSM+8 02531000 ATCGSRBF EQU ATCGSRBG 02532000 ATCSRBRT EQU ATCAOSM 02533000 @NM00102 EQU @NM00101 02534000 ATCVTMAB EQU @NM00101 02535000 @NM00100 EQU ATCVTBAM 02536000 ATCVDLOK EQU ISTATCVT+904 02537000 ATCVFPAB EQU ISTATCVT+872 02538000 ATCVDPAB EQU ISTATCVT+840 02539000 ATCIOECB EQU ISTATCVT+836 02540000 ATCINCW3 EQU ISTATCVT+832 02541000 ATCMODTB EQU ISTATCVT+828 02542000 ATCUSSPT EQU ISTATCVT+824 02543000 ATCSRTAB EQU ISTATCVT+820 02544000 @NM00099 EQU ISTATCVT+819 02545000 @NM00098 EQU ATCSTAT2 02546000 ATCTRSMS EQU ATCSTAT2 02547000 ATCTRLOK EQU ATCSTAT2 02548000 ATCTRPSS EQU ATCSTAT2 02549000 ATCTRESC EQU ATCSTAT2 02550000 ATCTRAPI EQU ATCSTAT2 02551000 ATCNMCTR EQU ISTATCVT+816 02552000 ATCSEC51 EQU ATCSECST 02553000 ATCSEC40 EQU ATCSIPD+8 02554000 ATCSEC30 EQU ATCSIPD+4 02555000 ATCSEC21 EQU ATCSIPD 02556000 ATCSEC10 EQU ATCSOPD+4 02557000 ATCSEC01 EQU ATCSOPD 02558000 ATCPOIA EQU ATCRNO+1 02559000 @NM00097 EQU ATCRNO 02560000 ATCPODVT EQU ISTATCVT+784 02561000 ATCS49XL EQU ISTATCVT+780 02562000 ATCS49XI EQU ISTATCVT+776 02563000 ATCLCLCT EQU ATCVLCNT+2 02564000 ATCRNCNT EQU ATCVLCNT 02565000 ATCCFEAD EQU ISTATCVT+768 02566000 ATCPTR00 EQU ISTATCVT+736 02567000 ATCRSV10 EQU ISTATCVT+704 02568000 ATCTACB EQU ISTATCVT+700 02569000 ATCVTINM EQU ISTATCVT+696 02570000 ATCTCLIM EQU ISTATCVT+692 02571000 ATCTCLOM EQU ISTATCVT+688 02572000 ATCVTIPB EQU ISTATCVT+656 02573000 ATCTCIPB EQU ISTATCVT+624 02574000 ATCTIPAB EQU ISTATCVT+592 02575000 ATCOCCCB EQU ISTATCVT+588 02576000 ATCOCCOB EQU ISTATCVT+584 02577000 ATCCDLAD EQU ISTATCVT+580 02578000 ATCCCLAD EQU ISTATCVT+576 02579000 ATCDLRPB EQU ISTATCVT+544 02580000 ATCPGPAB EQU ISTATCVT+512 02581000 ATCVPAB1 EQU ISTATCVT+480 02582000 ATCRSV97 EQU ISTATCVT+476 02583000 ATCRDTLK EQU ISTATCVT+472 02584000 ATCVOCLK EQU ISTATCVT+468 02585000 ATCCDFDN EQU ISTATCVT+464 02586000 ATCCDFIN EQU ISTATCVT+460 02587000 ATCDVTLK EQU ISTATCVT+456 02588000 ATCAP36 EQU ISTATCVT+452 02589000 ATCAP35 EQU ISTATCVT+448 02590000 ATCAP33 EQU ISTATCVT+444 02591000 ATCRSV99 EQU ISTATCVT+440 02592000 ATCONFIG EQU ISTATCVT+432 02593000 ATCNODDS EQU ISTATCVT+428 02594000 ATCNODEL EQU ISTATCVT+420 02595000 ATCRSV69 EQU ISTATCVT+416 02596000 ATCAPCR5 EQU ISTATCVT+412 02597000 ATCLDECB EQU ISTATCVT+408 02598000 ATCLDNCS EQU ISTATCVT+404 02599000 ATCCDPTR EQU ISTATCVT+400 02600000 ATCADEL EQU ISTATCVT+396 02601000 ATCTODVT EQU ISTATCVT+392 02602000 ATCDEBCH EQU ISTATCVT+388 02603000 ATCHBSIZ EQU ATCHPGM+2 02604000 ATCHBFNO EQU ATCHPGM 02605000 ATCCRME EQU ISTATCVT+380 02606000 ATCRVCHS EQU ISTATCVT+372 02607000 ATCECTLP EQU ISTATCVT+368 02608000 ATCZDVTB EQU ISTATCVT+364 02609000 ATCECPRT EQU ISTATCVT+360 02610000 ATCVTLOD EQU ISTATCVT+356 02611000 ATCTRPAB EQU ISTATCVT+352 02612000 ATCMSGM EQU ISTATCVT+348 02613000 ATCMSGP EQU ISTATCVT+344 02614000 ATCEPT EQU ISTATCVT+340 02615000 ATCDVT EQU ISTATCVT+336 02616000 ATCTRCPT EQU ISTATCVT+332 02617000 ATCDVLOD EQU ISTATCVT+328 02618000 ATCALERT EQU ISTATCVT+324 02619000 ATCEPA EQU ISTATCVT+320 02620000 ATCSAF EQU ISTATCVT+318 02621000 ATCXRANG EQU ISTATCVT+317 02622000 ATCLAST EQU ATCSHRFG 02623000 ATCSHRTN EQU ISTATCVT+308 02624000 ATCUEP EQU ISTATCVT+304 02625000 ATCOCRT EQU ISTATCVT+300 02626000 ATCCSMA EQU ATCCSMR 02627000 ATCESC02 EQU ISTATCVT+292 02628000 ATCESC01 EQU ISTATCVT+288 02629000 ATCCDFND EQU ISTATCVT+284 02630000 ATCCDDEL EQU ISTATCVT+280 02631000 ATCCDADD EQU ISTATCVT+276 02632000 ATCMNT EQU ISTATCVT+272 02633000 ATCRSV16 EQU ISTATCVT+270 02634000 ATCMAXID EQU ISTATCVT+269 02635000 ATCMSGSP EQU ATCCOM+268 02636000 ATCCIDM EQU ATCCOM+266 02637000 ATCACTRM EQU ATCCOM+264 02638000 ATCNERAP EQU ATCCOM+260 02639000 ATCNESAL EQU ATCCOM+256 02640000 ATCRCC65 EQU ATCCOM+252 02641000 ATCRCC26 EQU ATCCOM+248 02642000 ATCRCC63 EQU ATCCOM+244 02643000 ATCRSV11 EQU ATCCOM+242 02644000 ATCVTMID EQU ATCCOM+240 02645000 ATCAPOST EQU ATCCOM+236 02646000 ATCNERFN EQU ATCCOM+232 02647000 ATCNERNE EQU ATCCOM+228 02648000 ATCNERCV EQU ATCCOM+224 02649000 ATCNERST EQU ATCCOM+220 02650000 ATCDCC61 EQU ATCCOM+216 02651000 ATCDCC60 EQU ATCCOM+212 02652000 ATCSRTDF EQU ATCCOM+208 02653000 ATCSRTAD EQU ATCCOM+204 02654000 ATCFIRA EQU ATCCOM+200 02655000 ATCSMBQ EQU ATCCOM+196 02656000 ATCSMRC EQU ATCCOM+192 02657000 ATCSMQU EQU ATCCOM+184 02658000 ATCSMRQ EQU ATCCOM+180 02659000 ATCACDA EQU ATCCOM+176 02660000 ATCSTMA EQU ATCCOM+172 02661000 ATCFRSTR EQU ATCCOM+168 02662000 ATCGTSTR EQU ATCCOM+164 02663000 ATCREADA EQU ATCCOM+160 02664000 ATCALOAD EQU ATCCOM+156 02665000 ATCBLDLA EQU ATCCOM+152 02666000 ATCFBRPH EQU ATCCOM+148 02667000 ATCBFTRC EQU ATCCOM+144 02668000 ATCTPBUF EQU ATCTHTRC 02669000 ATCREMOV EQU ATCCOM+136 02670000 ATCADD EQU ATCCOM+132 02671000 ATCDVTPT EQU ATCCOM+124 02672000 ATCFEPT EQU ATCCOM+120 02673000 ATCFDVT EQU ATCCOM+116 02674000 ATCCONFT EQU ATCCOM+112 02675000 ATCPTCHA EQU ATCCOM+108 02676000 ATCAUTHA EQU ATCCOM+104 02677000 ATCACCTA EQU ATCCOM+100 02678000 ATCRDTH EQU ATCCOM+96 02679000 ATCFRSCH EQU ATCCOM+92 02680000 ATCFSB EQU ATCCOM+88 02681000 ATCHLTMS EQU ATCCOM+84 02682000 ATCECPRM EQU ATCCOM+80 02683000 ATCECNET EQU ATCCOM+76 02684000 ATCECOPC EQU ATCCOM+72 02685000 ATCVPARM EQU ATCCOM+68 02686000 ATCECVRQ EQU ATCCOM+64 02687000 ATCECSES EQU ATCCOM+60 02688000 ATCOCHA EQU ATCCOM+56 02689000 ATCDSPLQ EQU ATCCOM+52 02690000 ATCECDSP EQU ATCCOM+48 02691000 ATCVARYQ EQU ATCCOM+44 02692000 ATCECVRY EQU ATCCOM+40 02693000 ATCHALTQ EQU ATCCOM+36 02694000 ATCECHLT EQU ATCCOM+32 02695000 ATCMODQ EQU ATCCOM+28 02696000 ATCECMOD EQU ATCCOM+24 02697000 ATCASCHD EQU ATCCOM+20 02698000 ATCSRT EQU ATCCOM+16 02699000 ATCRDT EQU ATCCOM+12 02700000 ATCDCFRR EQU ATCCOM+8 02701000 ATCAPI EQU ATCCOM+4 02702000 ATCRSV04 EQU ATCSTAT4 02703000 ATCVTTRC EQU ATCSTAT4 02704000 ATCNCSD EQU ATCSTAT4 02705000 ATCMTST EQU ATCSTAT4 02706000 ATCTPRT EQU ATCSTAT4 02707000 ATCPRTAT EQU ATCSTAT4 02708000 @NM00096 EQU ATCPOFLG 02709000 ATCPOUNS EQU ATCPOFLG 02710000 ATCHSDMF EQU ATCSTFLG 02711000 @NM00095 EQU ATCSTAT1 02712000 ATCMDHLT EQU ATCSTAT1 02713000 ATCINHLT EQU ATCSTAT1 02714000 ATCNETSL EQU ATCSTAT1 02715000 ATCQKHLT EQU ATCSTAT1 02716000 ATCSNHLT EQU ATCSTAT1 02717000 ATCACTIV EQU ATCSTAT1 02718000 ATCSTART EQU ATCSTAT1 02719000 RPHNEXPO EQU ISTRPH+104 02720000 RPHSAV16 EQU RPHWORK+60 02721000 RPHSAV15 EQU RPHWORK+56 02722000 RPHSAV14 EQU RPHWORK+52 02723000 RPHSAV13 EQU RPHWORK+48 02724000 RPHSAV12 EQU RPHWORK+44 02725000 RPHSAV11 EQU RPHWORK+40 02726000 RPHSAV10 EQU RPHWORK+36 02727000 RPHSAVE9 EQU RPHWORK+32 02728000 RPHSAVE8 EQU RPHWORK+28 02729000 RPHSAVE7 EQU RPHWORK+24 02730000 RPHSAVE6 EQU RPHWORK+20 02731000 RPHSAVE5 EQU RPHWORK+16 02732000 RPHSAVE4 EQU RPHWORK+12 02733000 RPHSAVE3 EQU RPHWORK+8 02734000 RPHSAVE2 EQU RPHWORK+4 02735000 RPHSHALF EQU RPHSAVE1+2 02736000 RPHSBIT8 EQU RPHSBITS 02737000 RPHSBIT7 EQU RPHSBITS 02738000 RPHSBIT6 EQU RPHSBITS 02739000 RPHSBIT5 EQU RPHSBITS 02740000 RPHSBIT4 EQU RPHSBITS 02741000 RPHSBIT3 EQU RPHSBITS 02742000 RPHSBIT2 EQU RPHSBITS 02743000 RPHSBIT1 EQU RPHSBITS 02744000 RPHSBYTE EQU RPHSAVE1 02745000 RPHPABQP EQU RPHPABQA+1 02746000 RPHPABFG EQU RPHPABQA 02747000 RPHCRR EQU ISTRPH+32 02748000 RPHSRP34 EQU RPHSRPRM+2 02749000 RPHSRP12 EQU RPHSRPRM 02750000 RPHWEGT EQU RPHCSPA 02751000 RPHMAJCB EQU ISTRPH+21 02752000 RPHPABOF EQU ISTRPH+20 02753000 RPHRESUM EQU RPHRESMA+1 02754000 RPHRSV01 EQU RPHWPFLG 02755000 RPHPURGE EQU RPHWPFLG 02756000 RPHPT EQU RPHWPFLG 02757000 RPHWT EQU RPHWPFLG 02758000 RPHRSKEY EQU RPHWPFLG 02759000 RPHDVTA EQU ISTRPH+12 02760000 RPHTIK EQU RPHTSKID+3 02761000 @NM00094 EQU RPHTSKID 02762000 RPHRPHAP EQU RPHRPHA+1 02763000 @NM00093 EQU RPHRPHA 02764000 RPHGATE EQU RPHRPHA 02765000 @NM00092 EQU RPHFLGB 02766000 RPHRLCRA EQU RPHFLGB 02767000 RPHNRSAV EQU RPHFLGB 02768000 RPHPGCMP EQU RPHFLGB 02769000 RPHFBAPS EQU RPHFLGB 02770000 RPHBSSP EQU RPHFLGB 02771000 RPHLOCK EQU RPHFLGB 02772000 RPHFNFLG EQU RPHFSTLC 02773000 RPHMLTCP EQU RPHFLAGS 02774000 RPHSMCLR EQU RPHFLAGS 02775000 RPHSMTYP EQU RPHFLAGS 02776000 RPHSMQ EQU RPHFLAGS 02777000 RPHAUTEX EQU RPHAPTYP 02778000 RPHSPGIN EQU RPHFLAGS 02779000 RPHOGIND EQU RPHFLAGS 02780000 RPHLNGTH EQU RPHCNTL+1 02781000 RPHTYPE EQU RPHCNTL 02782000 DYPPAB EQU ISTDYPAB+16 02783000 DYPRSV01 EQU ISTDYPAB+12 02784000 DYPTSKID EQU ISTDYPAB+8 02785000 DYPCHAIN EQU ISTDYPAB+4 02786000 DYPFLGS EQU ISTDYPAB+2 02787000 DYPLNGTH EQU ISTDYPAB+1 02788000 DYPTYPE EQU ISTDYPAB 02789000 LOKXCL EQU @NM00090 02790000 LOKPRY EQU @NM00090 02791000 @NM00091 EQU @NM00090 02792000 @NM00089 EQU LOKCHNG 02793000 LOKCT EQU ISTLOK 02794000 PABRPHA EQU PABRPHFG+1 02795000 PABNODQ EQU PABFLAGS 02796000 PABINHBT EQU PABFLAGS 02797000 PABERLOK EQU PABERRLK 02798000 PABSSN EQU PABFLAGS 02799000 PABDYNAM EQU PABFLAGS 02800000 PABNORPR EQU PABFLAGS 02801000 PABPRIOR EQU PABFLAGS 02802000 PABAPYP EQU PABFLAGS 02803000 PABOFFST EQU ISTPAB+8 02804000 PABRSV02 EQU PABCHAIN 02805000 PABDELAY EQU PABCHAIN 02806000 PABRUNNG EQU PABCHAIN 02807000 PABRESET EQU PABCHAIN 02808000 PABUNCON EQU PABCHAIN 02809000 PABCDP EQU PABCHAIN 02810000 PABRESCH EQU PABCHAIN 02811000 PABCHNG EQU PABCHAIN 02812000 PABWEQP EQU PABWEQA+1 02813000 PABRSV01 EQU PABWEQA 02814000 PABWEQG EQU PABWEQA 02815000 @NM00088 EQU SRBSECT+40 02816000 @NM00087 EQU SRBSECT+38 02817000 SRBPRIOR EQU SRBSECT+37 02818000 SRBPKF EQU SRBSECT+36 02819000 SRBSAVE EQU SRBSECT+32 02820000 SRBPARM EQU SRBSECT+28 02821000 SRBRMTR EQU SRBSECT+24 02822000 SRBEP EQU SRBSECT+20 02823000 SRBPTCB EQU SRBFLC+4 02824000 SRBPASID EQU SRBFLC+2 02825000 SRBCPAFF EQU SRBFLC 02826000 SRBASCB EQU SRBSECT+8 02827000 SRBFLNK EQU SRBSECT+4 02828000 SRBID EQU SRBSECT 02829000 @NM00062 EQU TCBXTNT2+32 02830000 TCBRV181 EQU TCBRV173 02831000 TCBRV180 EQU TCBRV173 02832000 TCBRV179 EQU TCBRV173 02833000 TCBRV178 EQU TCBRV173 02834000 TCBRV177 EQU TCBRV173 02835000 TCBRV176 EQU TCBRV173 02836000 TCBRV175 EQU TCBRV173 02837000 TCBRV174 EQU TCBRV173 02838000 TCBRV172 EQU TCBRV164 02839000 TCBRV171 EQU TCBRV164 02840000 TCBRV170 EQU TCBRV164 02841000 TCBRV169 EQU TCBRV164 02842000 TCBRV168 EQU TCBRV164 02843000 TCBRV167 EQU TCBRV164 02844000 TCBRV166 EQU TCBRV164 02845000 TCBRV165 EQU TCBRV164 02846000 TCBRV163 EQU TCBRV155 02847000 TCBRV162 EQU TCBRV155 02848000 TCBRV161 EQU TCBRV155 02849000 TCBRV160 EQU TCBRV155 02850000 TCBRV159 EQU TCBRV155 02851000 TCBRV158 EQU TCBRV155 02852000 TCBRV157 EQU TCBRV155 02853000 TCBRV156 EQU TCBRV155 02854000 TCBRV154 EQU TCBRV146 02855000 TCBRV153 EQU TCBRV146 02856000 TCBRV152 EQU TCBRV146 02857000 TCBRV151 EQU TCBRV146 02858000 TCBRV150 EQU TCBRV146 02859000 TCBRV149 EQU TCBRV146 02860000 TCBRV148 EQU TCBRV146 02861000 TCBRV147 EQU TCBRV146 02862000 TCBRV145 EQU TCBXTNT2+26 02863000 TCBRV144 EQU TCBXTNT2+24 02864000 TCBRV143 EQU TCBXTNT2+20 02865000 TCBRV142 EQU TCBXTNT2+16 02866000 TCBRSV49 EQU TCBXTNT2+12 02867000 TCBEVENT EQU TCBXTNT2+8 02868000 TCBRCMP EQU TCBXTNT2+5 02869000 TCBRSVAB EQU TCBXTNT2+4 02870000 TCBGTFA EQU TCBGTF+1 02871000 TCBRSV47 EQU TCBTFLG 02872000 TCBRSV46 EQU TCBTFLG 02873000 TCBRSV45 EQU TCBTFLG 02874000 TCBRSV44 EQU TCBTFLG 02875000 TCBRSV43 EQU TCBTFLG 02876000 TCBDSPIT EQU TCBTFLG 02877000 TCBERRTN EQU TCBTFLG 02878000 TCBASYNC EQU TCBTFLG 02879000 @NM00061 EQU TCB+296 02880000 TCBSVCA2 EQU TCB+292 02881000 TCBSWASA EQU TCB+288 02882000 TCBDBTB EQU TCB+284 02883000 TCBRPT EQU TCB+280 02884000 TCBRV141 EQU TCBRV133 02885000 TCBRV140 EQU TCBRV133 02886000 TCBRV139 EQU TCBRV133 02887000 TCBRV138 EQU TCBRV133 02888000 TCBRV137 EQU TCBRV133 02889000 TCBRV136 EQU TCBRV133 02890000 TCBRV135 EQU TCBRV133 02891000 TCBRV134 EQU TCBRV133 02892000 TCBRV132 EQU TCBRV124 02893000 TCBRV131 EQU TCBRV124 02894000 TCBRV130 EQU TCBRV124 02895000 TCBRV129 EQU TCBRV124 02896000 TCBRV128 EQU TCBRV124 02897000 TCBRV127 EQU TCBRV124 02898000 TCBRV126 EQU TCBRV124 02899000 TCBRV125 EQU TCBRV124 02900000 TCBRV123 EQU TCBFBYT2 02901000 TCBRV122 EQU TCBFBYT2 02902000 TCBECBNV EQU TCBFBYT2 02903000 TCBSSSYN EQU TCBFBYT2 02904000 TCBFPRAP EQU TCBFBYT2 02905000 TCBFDW EQU TCBFBYT2 02906000 TCBFMW EQU TCBFBYT2 02907000 TCBCNCB EQU TCBFBYT2 02908000 TCBLLH EQU TCBFBYT1 02909000 TCBRV113 EQU TCBFBYT1 02910000 TCBEOT EQU TCBFBYT1 02911000 TCBRTM2 EQU TCBFBYT1 02912000 TCBPGNLY EQU TCBFBYT1 02913000 TCBNDIOS EQU TCBFBYT1 02914000 TCBACTIV EQU TCBFBYT1 02915000 TCBEOTFM EQU TCBFBYT1 02916000 TCBAFFN EQU TCB+274 02917000 TCBCCPVI EQU TCB+272 02918000 TCBUKYSP EQU TCB+268 02919000 TCBMODE EQU TCBESTAE+3 02920000 TCBERTYP EQU TCBESTAE+2 02921000 TCBRV314 EQU TCBESTRM 02922000 TCBRV313 EQU TCBESTRM 02923000 TCBRV312 EQU TCBESTRM 02924000 TCBRV311 EQU TCBESTRM 02925000 TCBRV310 EQU TCBESTRM 02926000 TCBRV309 EQU TCBESTRM 02927000 TCBRV308 EQU TCBESTRM 02928000 TCBETERM EQU TCBESTRM 02929000 TCBSCBKY EQU TCBESTAE 02930000 TCBRTM12 EQU TCB+260 02931000 TCBTCBID EQU TCB+256 02932000 TCBRSV96 EQU TCB+252 02933000 TCBSWA EQU TCB+248 02934000 TCBFOEA EQU TCBFOE+1 02935000 TCBRSV42 EQU TCBFOE 02936000 TCBRV306 EQU TCB+240 02937000 TCBRSV41 EQU TCB+239 02938000 TCBTID EQU TCB+238 02939000 TCBRSVAA EQU TCB+237 02940000 TCBABCUR EQU TCB+236 02941000 TCBTMSAV EQU TCB+232 02942000 TCBIOTIM EQU TCB+228 02943000 TCBRTWA EQU TCB+224 02944000 TCBBACK EQU TCB+220 02945000 TCBTIRB EQU TCB+216 02946000 TCBAECB EQU TCB+212 02947000 TCBEXT2A EQU TCBEXT2+1 02948000 TCBRSV39 EQU TCBEXT2 02949000 TCBSTMCT EQU TCB+207 02950000 TCBSYSCT EQU TCB+206 02951000 TCBRSV37 EQU TCB+205 02952000 TCBEXSVC EQU TCBDAR 02953000 TCBDARMS EQU TCBDAR 02954000 TCBDARWT EQU TCBDAR 02955000 TCBDARO EQU TCBDAR 02956000 TCBDARMC EQU TCBDARC 02957000 TCBDARD EQU TCBDAR 02958000 TCBDARS EQU TCBDAR 02959000 TCBDARP EQU TCBDAR 02960000 TCBGTOFM EQU TCBFLGS7 02961000 TCBADMP EQU TCBFLGS7 02962000 TCBRSTSK EQU TCBFLGS7 02963000 TCBSVCS EQU TCBFLGS7 02964000 TCBSTACK EQU TCBFLGS7 02965000 TCBRSV34 EQU TCBFLGS7 02966000 TCBRSV33 EQU TCBFLGS7 02967000 TCBGPECB EQU TCBFLGS7 02968000 TCBNTJS EQU TCBFLGS6 02969000 TCBAPG EQU TCBFLGS6 02970000 TCBMIGR EQU TCBFLGS6 02971000 TCBRV303 EQU TCBFLGS6 02972000 TCBSPVLK EQU TCBFLGS6 02973000 TCBCPU EQU TCBFLGS6 02974000 TCBPIE17 EQU TCBFLGS6 02975000 TCBRV EQU TCBFLGS6 02976000 TCBRSV79 EQU TCBNDSP5 02977000 TCBRSV78 EQU TCBNDSP5 02978000 TCBRSV77 EQU TCBNDSP5 02979000 TCBRSV76 EQU TCBNDSP5 02980000 TCBRSV75 EQU TCBNDSP5 02981000 TCBRSV74 EQU TCBNDSP5 02982000 TCBRSV95 EQU TCBNDSP5 02983000 TCBRSV94 EQU TCBNDSP5 02984000 TCBRSV93 EQU TCBNDSP4 02985000 TCBRSV92 EQU TCBNDSP4 02986000 TCBRSV91 EQU TCBNDSP4 02987000 TCBRSV90 EQU TCBNDSP4 02988000 TCBRSV89 EQU TCBNDSP4 02989000 TCBRSV88 EQU TCBNDSP4 02990000 TCBRSV87 EQU TCBNDSP4 02991000 TCBRSV86 EQU TCBNDSP4 02992000 TCBEXT1A EQU TCBEXT1+1 02993000 TCBRSV32 EQU TCBEXT1 02994000 TCBEXCPD EQU TCB+192 02995000 TCBIOBRC EQU TCB+188 02996000 TCBDDWTC EQU TCB+186 02997000 TCBDDEXC EQU TCB+184 02998000 TCBJSCBB EQU TCBJSCB+1 02999000 @NM00060 EQU TCBRECDE 03000000 TCBREC EQU TCBRECDE 03001000 TCBMDIDS EQU TCB+176 03002000 TCBNDINT EQU TCBNDSP3 03003000 TCBRSV27 EQU TCBNDSP3 03004000 TCBRSV26 EQU TCBNDSP3 03005000 TCBRSV25 EQU TCBNDSP3 03006000 TCBRSV24 EQU TCBNDSP3 03007000 TCBSRBND EQU TCBNDSP3 03008000 TCBRV302 EQU TCBNDSP3 03009000 TCBLJSND EQU TCBNDSP3 03010000 TCBABE EQU TCBNDSP2 03011000 TCBDSS EQU TCBNDSP2 03012000 TCBOWAIT EQU TCBNDSP2 03013000 TCBIWAIT EQU TCBNDSP2 03014000 TCBNDTS EQU TCBNDSP2 03015000 TCBNDSVC EQU TCBNDSP2 03016000 TCBSTPP EQU TCBNDSP2 03017000 TCBABD EQU TCBNDSP2 03018000 TCBRSV22 EQU TCBNDSP1 03019000 TCBPIEND EQU TCBNDSP1 03020000 TCBTPSP EQU TCBNDSP1 03021000 TCBDDRND EQU TCBNDSP1 03022000 TCBRSPND EQU TCBNDSP1 03023000 TCBRSTND EQU TCBNDSP1 03024000 TCBDARPN EQU TCBNDSP1 03025000 TCBDARTN EQU TCBNDSP1 03026000 TCBNDSP0 EQU TCBNDSP 03027000 TCBUSER EQU TCB+168 03028000 TCBTCTB EQU TCBTCT+1 03029000 TCBRSV9C EQU TCBTCTGF 03030000 TCBRSV9B EQU TCBTCTGF 03031000 TCBRSV9A EQU TCBTCTGF 03032000 TCBRSV99 EQU TCBTCTGF 03033000 TCBRSV98 EQU TCBTCTGF 03034000 TCBRSV97 EQU TCBTCTGF 03035000 TCBRSV20 EQU TCBTCTGF 03036000 TCBSMFGF EQU TCBTCTGF 03037000 TCBSTCUR EQU TCBNSTAE 03038000 TCBRV301 EQU TCBNSTAE 03039000 TCBSYNCH EQU TCBNSTAE 03040000 TCBHALT EQU TCBNSTAE 03041000 TCBPPSUP EQU TCBNSTAE 03042000 TCB33E EQU TCBNSTAE 03043000 TCBQUIES EQU TCBNSTAE 03044000 TCBSTABE EQU TCBNSTAE 03045000 TCBAQE EQU TCB+156 03046000 TCBPQE EQU TCB+152 03047000 TCBTSDP EQU TCB+151 03048000 TCBTSLP EQU TCB+150 03049000 TCBSTPCT EQU TCB+149 03050000 TCBCPUBN EQU TCBTSFLG 03051000 TCBDYDSP EQU TCBTSFLG 03052000 TCBRSV18 EQU TCBTSFLG 03053000 TCBRSV17 EQU TCBTSFLG 03054000 TCBTIOTG EQU TCBTSFLG 03055000 TCBATT EQU TCBTSFLG 03056000 TCBSTPPR EQU TCBTSFLG 03057000 TCBRV300 EQU TCBTSTSK 03058000 TCBECB EQU TCB+144 03059000 TCBIQE EQU TCB+140 03060000 TCBLTC EQU TCB+136 03061000 TCBOTC EQU TCB+132 03062000 TCBNTC EQU TCB+128 03063000 TCBJSTCA EQU TCBJSTCB+1 03064000 TCBRSV16 EQU TCBJSTCB 03065000 TCBTQET EQU TCBTME 03066000 TCBTCB EQU TCB+116 03067000 TCBFSAB EQU TCBFSA+1 03068000 TCBQEL EQU TCBFSA 03069000 TCBGRS15 EQU TCBGRS+60 03070000 TCBGRS14 EQU TCBGRS+56 03071000 TCBGRS13 EQU TCBGRS+52 03072000 TCBGRS12 EQU TCBGRS+48 03073000 TCBGRS11 EQU TCBGRS+44 03074000 TCBGRS10 EQU TCBGRS+40 03075000 TCBGRS9 EQU TCBGRS+36 03076000 TCBGRS8 EQU TCBGRS+32 03077000 TCBGRS7 EQU TCBGRS+28 03078000 TCBGRS6 EQU TCBGRS+24 03079000 TCBGRS5 EQU TCBGRS+20 03080000 TCBGRS4 EQU TCBGRS+16 03081000 TCBGRS3 EQU TCBGRS+12 03082000 TCBGRS2 EQU TCBGRS+8 03083000 TCBGRS1 EQU TCBGRS+4 03084000 TCBGRS0 EQU TCBGRS 03085000 TCBJPQB EQU TCBJPQ+1 03086000 TCBRSV15 EQU TCBPURGE 03087000 TCBRSV14 EQU TCBPURGE 03088000 TCBRSV13 EQU TCBPURGE 03089000 TCBRSV12 EQU TCBPURGE 03090000 TCBRSV11 EQU TCBPURGE 03091000 TCBRSV10 EQU TCBPURGE 03092000 TCBRSV09 EQU TCBPURGE 03093000 TCBJPQF EQU TCBPURGE 03094000 TCBJLB EQU TCB+40 03095000 TCBLLS EQU TCB+36 03096000 TCBDSP EQU TCB+35 03097000 TCBLMP EQU TCB+34 03098000 TCBPNDSP EQU TCBFLGS5 03099000 TCBFCD1 EQU TCBFLGS5 03100000 TCBSTP EQU TCBFLGS5 03101000 TCBSYS EQU TCBFLGS5 03102000 TCBANDSP EQU TCBFLGS5 03103000 TCBPAGE EQU TCBFLGS5 03104000 TCBUXNDF EQU TCBABWF 03105000 TCBFC EQU TCBFLGS5 03106000 TCBONDSP EQU TCBFLGS4 03107000 TCBMPCND EQU TCBFLGS4 03108000 TCBMPCVQ EQU TCBFLGS4 03109000 TCBUXNDV EQU TCBFLGS4 03110000 TCBHNDSP EQU TCBFLGS4 03111000 TCBRQENA EQU TCBFLGS4 03112000 TCBSER EQU TCBFLGS4 03113000 TCBNDUMP EQU TCBFLGS4 03114000 TCBDWSTA EQU TCBFLGS3 03115000 TCBRSV08 EQU TCBFLGS3 03116000 TCBRSV07 EQU TCBFLGS3 03117000 TCBRSV06 EQU TCBFLGS3 03118000 TCBABGM EQU TCBFLGS3 03119000 TCBABTRM EQU TCBFLGS3 03120000 TCBADINP EQU TCBFLGS3 03121000 TCBFSM EQU TCBFLGS3 03122000 TCBFTS EQU TCBFLGS2 03123000 TCBFETXR EQU TCBFLGS2 03124000 TCBFDSOP EQU TCBFLGS2 03125000 TCBFJMC EQU TCBFLGS2 03126000 TCBFSMC EQU TCBFLGS2 03127000 TCBFABOP EQU TCBFLGS2 03128000 TCBFSTI EQU TCBFLGS2 03129000 TCBFOINP EQU TCBFLGS2 03130000 TCBFX EQU TCBFLGS1 03131000 TCBFS EQU TCBFLGS1 03132000 TCBFT EQU TCBFLGS1 03133000 TCBPDUMP EQU TCBFLGS1 03134000 TCBNONPR EQU TCBFLGS1 03135000 TCBFERA EQU TCBFLGS1 03136000 TCBFE EQU TCBFLGS1 03137000 TCBFA EQU TCBFLGS1 03138000 TCBZERO EQU TCBPKF 03139000 TCBFLAG EQU TCBPKF 03140000 TCBMSSB EQU TCBMSS+1 03141000 TCBRSV03 EQU TCBMSS 03142000 TCBTRNB EQU TCBTRN+1 03143000 TCBRSV02 EQU TCBABF 03144000 TCBOLTEP EQU TCBABF 03145000 TCBTCP EQU TCBABF 03146000 TCBTCPP EQU TCBABF 03147000 TCBRSV01 EQU TCBABF 03148000 TCBGRPH EQU TCBABF 03149000 TCBNOCHK EQU TCBABF 03150000 TCBMOD91 EQU TCBABF 03151000 TCBCMPC EQU TCBCMP+1 03152000 TCBRV318 EQU TCBCMSG 03153000 TCBRV317 EQU TCBCIND 03154000 TCBRV316 EQU TCBCWTO 03155000 TCBCASID EQU TCBCDBL 03156000 TCBNOCC EQU TCBSTCC 03157000 TCBDMPO EQU TCBCPP 03158000 TCBCSTEP EQU TCBCMPF 03159000 TCBCREQ EQU TCBCMPF 03160000 TCBTIO EQU TCB+12 03161000 TCBDEB EQU TCB+8 03162000 TCBPIEA EQU TCBPIE+1 03163000 TCBPM EQU TCBPMASK 03164000 @NM00059 EQU TCBPMASK 03165000 TCBRBP EQU TCB 03166000 TCBFRS6 EQU TCBFRS+24 03167000 TCBFRS4 EQU TCBFRS+16 03168000 TCBFRS2 EQU TCBFRS+8 03169000 TCBFRS0 EQU TCBFRS 03170000 @NM00058 EQU EXLENFL 03171000 EXLLNK EQU EXLENFL 03172000 EXLACTM EQU EXLENFL 03173000 EXLSPEC EQU EXLENFL 03174000 EXLRESPP EQU EXLRESP+1 03175000 @NM00057 EQU EXLRESPF 03176000 EXLRESPK EQU EXLRESPF 03177000 EXLRESPA EQU EXLRESPF 03178000 EXLRESPS EQU EXLRESPF 03179000 EXLDFASP EQU EXLDFAS+1 03180000 @NM00056 EQU EXLDFASF 03181000 EXLDFASK EQU EXLDFASF 03182000 EXLDFASA EQU EXLDFASF 03183000 EXLDFASS EQU EXLDFASF 03184000 EXLTPNDP EQU EXLVTEXT+21 03185000 @NM00055 EQU EXLTPNDF 03186000 EXLTPNDK EQU EXLTPNDF 03187000 EXLTPNDA EQU EXLTPNDF 03188000 EXLTPNDS EQU EXLTPNDF 03189000 EXLATTNP EQU EXLVTEXT+16 03190000 @NM00054 EQU EXLATTNF 03191000 EXLATTNK EQU EXLATTNF 03192000 EXLATTNA EQU EXLATTNF 03193000 EXLATTNS EQU EXLATTNF 03194000 @NM00053 EQU EXLVTEXT+10 03195000 EXLRLRQP EQU EXLVTEXT+6 03196000 @NM00052 EQU EXLRLRQF 03197000 EXLRLRQK EQU EXLRLRQF 03198000 EXLRLRQA EQU EXLRLRQF 03199000 EXLRLRQS EQU EXLRLRQF 03200000 EXLNLGNP EQU EXLVTEXT+1 03201000 @NM00051 EQU EXLNLGNF 03202000 EXLNLGNK EQU EXLNLGNF 03203000 EXLNLGNA EQU EXLNLGNF 03204000 EXLNLGNS EQU EXLNLGNF 03205000 EXLOPNP EQU EXLCOMN+36 03206000 @NM00050 EQU EXLOPNF 03207000 EXLOPNK EQU EXLOPNF 03208000 EXLOPNA EQU EXLOPNF 03209000 EXLOPNS EQU EXLOPNF 03210000 EXLJRNP EQU EXLCOMN+31 03211000 @NM00049 EQU EXLJRNF 03212000 EXLJRNK EQU EXLJRNF 03213000 EXLJRNA EQU EXLJRNF 03214000 EXLJRNS EQU EXLJRNF 03215000 EXLLGNP EQU EXLCOMN+26 03216000 @NM00048 EQU EXLLGNF 03217000 EXLLGNK EQU EXLLGNF 03218000 EXLLGNA EQU EXLLGNF 03219000 EXLLGNS EQU EXLLGNF 03220000 EXLSCIPP EQU EXLCOMN+21 03221000 @NM00047 EQU EXLSCIPF 03222000 EXLSCIPK EQU EXLSCIPF 03223000 EXLSCIPA EQU EXLSCIPF 03224000 EXLSCIPS EQU EXLSCIPF 03225000 EXLLERP EQU EXLCOMN+16 03226000 @NM00046 EQU EXLLERF 03227000 EXLLERK EQU EXLLERF 03228000 EXLLERA EQU EXLLERF 03229000 EXLLERS EQU EXLLERF 03230000 EXLSYNP EQU EXLCOMN+11 03231000 @NM00045 EQU EXLSYNF 03232000 EXLSYNK EQU EXLSYNF 03233000 EXLSYNA EQU EXLSYNF 03234000 EXLSYNS EQU EXLSYNF 03235000 EXLEODP EQU EXLCOMN+6 03236000 @NM00044 EQU EXLEODF 03237000 EXLEODK EQU EXLEODF 03238000 EXLEODA EQU EXLEODF 03239000 EXLEODS EQU EXLEODF 03240000 @NM00043 EQU EXLCOMN+4 03241000 EXLSTYP EQU EXLCOMN+1 03242000 EXLID EQU EXLCOMN 03243000 RPLSEQNO EQU RPLOF60+6 03244000 @NM00042 EQU RPLIBSQ 03245000 RPLIINV EQU RPLIBSQ 03246000 RPLINEG EQU RPLIBSQ 03247000 RPLIPOS EQU RPLIBSQ 03248000 RPLIIGN EQU RPLIBSQ 03249000 RPLIRSET EQU RPLIBSQ 03250000 RPLITST EQU RPLIBSQ 03251000 RPLISET EQU RPLIBSQ 03252000 @NM00041 EQU RPLOBSQ 03253000 RPLOINV EQU RPLOBSQ 03254000 RPLONEG EQU RPLOBSQ 03255000 RPLOPOS EQU RPLOBSQ 03256000 RPLOIGN EQU RPLOBSQ 03257000 RPLORSET EQU RPLOBSQ 03258000 RPLOTST EQU RPLOBSQ 03259000 RPLOSET EQU RPLOBSQ 03260000 RPLIBSQV EQU RPLOF60+2 03261000 RPLOBSQV EQU RPLOF60 03262000 @NM00040 EQU RPLCNTSC 03263000 RPLRSHUT EQU RPLCNTSC 03264000 RPLRQR EQU RPLCNTSC 03265000 RPLSHUTC EQU RPLCNTSC 03266000 RPLSHUTD EQU RPLCNTSC 03267000 RPLSTSN EQU RPLCNTSC 03268000 RPLCLEAR EQU RPLCNTSC 03269000 RPLSDT EQU RPLCNTSC 03270000 @NM00039 EQU RPLCNTDC 03271000 RPLSIGNL EQU RPLCNTDC 03272000 RPLLUS EQU RPLCNTDC 03273000 RPLRTR EQU RPLCNTDC 03274000 RPLBID EQU RPLCNTDC 03275000 @NM00038 EQU RPLCNTDF 03276000 RPLQI EQU RPLCNTDF 03277000 RPLRELQ EQU RPLCNTDF 03278000 RPLCHASE EQU RPLCNTDF 03279000 RPLQEC EQU RPLCNTDF 03280000 RPLQC EQU RPLCNTDF 03281000 RPLCNCEL EQU RPLCNTDF 03282000 RPLDATA EQU RPLCNTDF 03283000 RPLRRN EQU RPLRESP 03284000 RPLNFME EQU RPLRESP 03285000 RPLEX EQU RPLRESP 03286000 @NM00037 EQU RPLRESP 03287000 @NM00036 EQU RPLPOSTV 03288000 RPLSCHED EQU RPLPOSTV 03289000 @NM00035 EQU RPLVTFL1 03290000 RPLAUTUS EQU RPLVTFL1 03291000 RPLVTUSE EQU RPLVTFL1 03292000 @NM00034 EQU RPLVTFL1 03293000 @NM00033 EQU RPLCHN 03294000 RPLONLY EQU RPLCHN 03295000 RPLLAST EQU RPLCHN 03296000 RPLMIDLE EQU RPLCHN 03297000 RPLFIRST EQU RPLCHN 03298000 @NM00032 EQU RPLRTYPE 03299000 RPLDFASY EQU RPLRTYPE 03300000 RPLNFSYN EQU RPLRTYPE 03301000 RPLRRESP EQU RPLRTYPE 03302000 @NM00031 EQU RPLSTYPE 03303000 RPLSRESP EQU RPLSTYPE 03304000 @NM00030 EQU RPLRH3 03305000 RPLCSI EQU RPLRH3 03306000 RPLCHREQ EQU RPLRH3 03307000 RPLCMD EQU RPLRH3 03308000 RPLEB EQU RPLRH3 03309000 RPLBB EQU RPLRH3 03310000 RPLSIGDA EQU RPLVTEXT+32 03311000 RPLSAV13 EQU RPLVTEXT+28 03312000 RPLUSNSO EQU RPLOSENS+2 03313000 RPLSSMO EQU RPLSSNSO+1 03314000 @NM00029 EQU RPLSSEO 03315000 RPLRRO EQU RPLSSEO 03316000 RPLFIO EQU RPLSSEO 03317000 RPLSTATO EQU RPLSSEO 03318000 RPLCPMO EQU RPLSSEO 03319000 @NM00028 EQU RPLSSEO 03320000 RPLFMHDR EQU RPLOPT12 03321000 @NM00027 EQU RPLOPT12 03322000 @NM00026 EQU RPLOPT12 03323000 @NM00025 EQU RPLOPT12 03324000 RPLNIBTK EQU RPLOPT12 03325000 RPLTRUNC EQU RPLOPT12 03326000 RPLKEEP EQU RPLOPT12 03327000 @NM00024 EQU RPLOPT12 03328000 RPLRSVE8 EQU RPLOPT11 03329000 RPLRSVE7 EQU RPLOPT11 03330000 RPLRSVE6 EQU RPLOPT11 03331000 RPLRSVE5 EQU RPLOPT11 03332000 RPLRSVE4 EQU RPLOPT11 03333000 RPLSTOP EQU RPLOPT11 03334000 RPLSTART EQU RPLOPT11 03335000 RPLQUIES EQU RPLOPT11 03336000 RPLRSVI6 EQU RPLOPT10 03337000 RPLRSVI5 EQU RPLOPT10 03338000 RPLRSVI4 EQU RPLOPT10 03339000 RPLRSVI3 EQU RPLOPT10 03340000 RPLRSVI2 EQU RPLOPT10 03341000 RPLSPARM EQU RPLOPT10 03342000 RPLDSPLY EQU RPLOPT10 03343000 RPLBSCID EQU RPLOPT10 03344000 RPLTOPL EQU RPLOPT9 03345000 RPLCIDE EQU RPLOPT9 03346000 RPLRNNM EQU RPLOPT9 03347000 RPLAPPST EQU RPLOPT9 03348000 RPLCOUNT EQU RPLOPT9 03349000 RPLTERMS EQU RPLOPT9 03350000 RPLDEVCH EQU RPLOPT9 03351000 RPLLOGON EQU RPLOPT9 03352000 RPLUSFLD EQU RPLVTEXT+16 03353000 RPLESR2 EQU RPLUSNSI+1 03354000 RPLESR1 EQU RPLUSNSI 03355000 RPLSSMI EQU RPLDSB2 03356000 @NM00023 EQU RPLSSEI 03357000 RPLRRI EQU RPLSSEI 03358000 RPLFII EQU RPLSSEI 03359000 RPLSTATI EQU RPLSSEI 03360000 RPLCPMI EQU RPLSSEI 03361000 RPLPATHI EQU RPLSSEI 03362000 RPLARCLN EQU RPLVTEXT+8 03363000 RPLAARLN EQU RPLVTEXT+4 03364000 RPLAAREA EQU RPLVTEXT 03365000 RPLERMSA EQU RPLCOMN+72 03366000 RPLEMLEN EQU RPLCOMN+70 03367000 RPLACTIV EQU RPLCOMN+69 03368000 RPLBRANC EQU RPLEXTD1 03369000 RPLNIB EQU RPLEXTD1 03370000 @NM00022 EQU RPLEXTD1 03371000 RPLEXIT EQU RPLEXTD1 03372000 RPLNEXIT EQU RPLEXTD1 03373000 RPLDDDD EQU RPLRBAR+4 03374000 @NM00021 EQU RPLRBAR+3 03375000 @NM00020 EQU RPLAIXID 03376000 RPLAXPKP EQU RPLAIXID 03377000 RPLAIXPC EQU RPLRBAR 03378000 RPLRSV88 EQU RPLOPT8 03379000 RPLUNCON EQU RPLOPT8 03380000 RPLACTV EQU RPLOPT8 03381000 RPLSESS EQU RPLOPT8 03382000 RPLPEND EQU RPLOPT8 03383000 RPLODPRM EQU RPLOPT8 03384000 RPLODACP EQU RPLOPT8 03385000 RPLODACQ EQU RPLOPT8 03386000 RPLRSV78 EQU RPLOPT7 03387000 RPLTCRNO EQU RPLOPT7 03388000 RPLRLSOP EQU RPLOPT7 03389000 RPLTPOST EQU RPLOPT7 03390000 RPLQOPT EQU RPLOPT7 03391000 RPLCNIMM EQU RPLCNOPT 03392000 RPLCNANY EQU RPLCNOPT 03393000 RPLCNALL EQU RPLCNOPT 03394000 RPLRSV68 EQU RPLOPT6 03395000 RPLRSV67 EQU RPLOPT6 03396000 RPLLOCK EQU RPLOPT6 03397000 RPLNCOND EQU RPLOPT6 03398000 RPLCOND EQU RPLOPT6 03399000 RPLEOT EQU RPLUNTYP 03400000 RPLEOM EQU RPLUNTYP 03401000 RPLEOB EQU RPLUNTYP 03402000 RPLWROPT EQU RPLOPT5 03403000 RPLNODE EQU RPLOPT5 03404000 RPLERACE EQU RPLWRTYP 03405000 RPLEAU EQU RPLWRTYP 03406000 RPLNERAS EQU RPLWRTYP 03407000 RPLPSOPT EQU RPLOPT5 03408000 @NM00019 EQU RPLOPT5 03409000 RPLDLGIN EQU RPLOPT5 03410000 RPLBUFL EQU RPLCOMN+52 03411000 RPLRLEN EQU RPLCOMN+48 03412000 RPLCHAIN EQU RPLNXTRP 03413000 RPLBOP EQU RPLOPT4 03414000 @NM00018 EQU RPLOPT4 03415000 RPLMKFRM EQU RPLOPT4 03416000 RPLENDTR EQU RPLOPT4 03417000 RPLALIGN EQU RPLOPT3 03418000 RPLFMT EQU RPLOPT3 03419000 RPLFLD EQU RPLOPT3 03420000 RPLVFY EQU RPLOPT3 03421000 RPLBLK EQU RPLOPT3 03422000 RPLSFORM EQU RPLOPT3 03423000 RPLEODS EQU RPLOPT3 03424000 RPLNSP EQU RPLOPT2 03425000 RPLUPD EQU RPLOPT2 03426000 @NM00017 EQU RPLOPT2 03427000 RPLLRD EQU RPLOPT2 03428000 RPLBWD EQU RPLOPT2 03429000 RPLCNV EQU RPLOPT2 03430000 RPLADD EQU RPLADR 03431000 RPLKEY EQU RPLOPT2 03432000 RPLECBIN EQU RPLECBSW 03433000 RPLGEN EQU RPLOPT1 03434000 RPLKGE EQU RPLOPT1 03435000 RPLASY EQU RPLOPT1 03436000 RPLSKP EQU RPLOPT1 03437000 RPLSEQ EQU RPLOPT1 03438000 RPLDIR EQU RPLOPT1 03439000 RPLLOC EQU RPLOPT1 03440000 RPLDAF EQU RPLARG+2 03441000 RPLSAF EQU RPLARG 03442000 RPLAREA EQU RPLCOMN+32 03443000 RPLTCBPT EQU RPLCOMN+28 03444000 RPLCCHAR EQU RPLCOMN+20 03445000 RPLSTRID EQU RPLCOMN+18 03446000 RPLKEYL EQU RPLKEYLE 03447000 RPLRDSOH EQU RPLFDB3 03448000 RPLRLG EQU RPLFDB3 03449000 RPLLGFRC EQU RPLFDB3 03450000 RPLREOT EQU RPLFDB3 03451000 RPLREOM EQU RPLFDB3 03452000 RPLREOB EQU RPLFDB3 03453000 RPLSV32 EQU RPLFDB3 03454000 RPLUINPT EQU RPLFDB3 03455000 RPLSTSAV EQU RPLFDB2 03456000 RPLCUERR EQU RPLFDB2 03457000 RPLDLGFL EQU RPLFDB2 03458000 RPLIOERR EQU RPLFDB2 03459000 RPLDVUNS EQU RPLFDB2 03460000 RPLATND EQU RPLFDB2 03461000 RPLRVID EQU RPLFDB2 03462000 RPLERLK EQU RPLFDB2 03463000 RPLERREG EQU RPLRTNCD 03464000 RPLSTAT EQU RPLFDBWD 03465000 RPLPOST EQU RPLECB 03466000 RPLWAIT EQU RPLECB 03467000 RPLPLHPT EQU RPLCOMN+4 03468000 RPLLEN2 EQU RPLLEN 03469000 RPLREQ EQU RPLIDWD+2 03470000 RPLSTYP EQU RPLIDWD+1 03471000 RPLID EQU RPLIDWD 03472000 @NM00016 EQU ACBVTEXT+8 03473000 @NM00015 EQU ACBVTEXT+6 03474000 ACBRTN EQU ACBVTEXT 03475000 ACBAPID EQU ACBCOMN+72 03476000 ACBCBMWA EQU ACBCOMN+68 03477000 ACBUAPTR EQU ACBCOMN+64 03478000 ACBLRECL EQU ACBCOMN+62 03479000 ACBMSGLN EQU ACBBLKSZ 03480000 ACBBUFSP EQU ACBCOMN+56 03481000 @NM00014 EQU ACBUJFCB+1 03482000 ACBOPTN EQU ACBUJFCB 03483000 @NM00013 EQU ACBINFLG+1 03484000 ACBBYPSS EQU ACBINFLG 03485000 ACBSDS EQU ACBVVIC 03486000 ACBUCRA EQU ACBINFLG 03487000 ACBSCRA EQU ACBINFLG 03488000 ACBCAT EQU ACBINFLG 03489000 ACBIJRQE EQU ACBINFLG 03490000 ACBJEPS EQU ACBINFLG 03491000 @NM00012 EQU ACBINFLG 03492000 ACBERFLG EQU ACBCOMN+49 03493000 ACBBUSY EQU ACBIOSFG 03494000 ACBLOCK EQU ACBEXFG 03495000 @NM00011 EQU ACBOFLGS 03496000 ACBDSERR EQU ACBOFLGS 03497000 ACBOPEN EQU ACBOFLGS 03498000 ACBEOV EQU ACBOFLGS 03499000 @NM00010 EQU ACBOFLGS 03500000 ACBERFL EQU ACBDDNM+4 03501000 ACBAM EQU ACBAMETH 03502000 ACBINFL EQU ACBDDNM+2 03503000 ACBTIOT EQU ACBDDNM 03504000 ACBPASSW EQU ACBCOMN+32 03505000 ACBMSGAR EQU ACBCOMN+28 03506000 @NM00009 EQU ACBDSORG+1 03507000 ACBDORGA EQU ACBDSORG+1 03508000 @NM00008 EQU ACBDSORG 03509000 ACBOPTJ EQU ACBDVIND 03510000 ACBCRNRE EQU ACBCROPS 03511000 ACBCRNCK EQU ACBCROPS 03512000 ACBASA EQU ACBCCTYP 03513000 @NM00007 EQU ACBCCTYP 03514000 ACBTRCID EQU ACBCCTYP 03515000 @NM00006 EQU ACBRECFM 03516000 ACBRECAF EQU ACBRECFM 03517000 ACBJBUF EQU ACBBUFPL+2 03518000 ACBMACR4 EQU ACBBUFPL+1 03519000 @NM00005 EQU ACBMACR3 03520000 ACBNCFX EQU ACBMACR3 03521000 ACBSIS EQU ACBMACR3 03522000 ACBDFR EQU ACBMACR3 03523000 ACBICI EQU ACBMACR3 03524000 ACBGSR EQU ACBMACR3 03525000 ACBLSR EQU ACBMACR3 03526000 @NM00004 EQU ACBMACR3 03527000 ACBBUFNI EQU ACBCOMN+18 03528000 ACBBUFND EQU ACBCOMN+16 03529000 ACBSTRNO EQU ACBCOMN+15 03530000 ACBBSTNO EQU ACBCOMN+14 03531000 ACBAIX EQU ACBMACR2 03532000 ACBDSN EQU ACBMACR2 03533000 ACBRST EQU ACBMACR2 03534000 ACBLOGON EQU ACBMACR2 03535000 ACBSKP EQU ACBMACR2 03536000 @NM00003 EQU ACBMACR2 03537000 ACBUBF EQU ACBMACR1 03538000 ACBOUT EQU ACBMACR1 03539000 ACBIN EQU ACBMACR1 03540000 ACBDIR EQU ACBMACR1 03541000 ACBSEQ EQU ACBMACR1 03542000 ACBBLK EQU ACBCNV 03543000 ACBADD EQU ACBADR 03544000 ACBKEY EQU ACBMACR1 03545000 ACBINRTN EQU ACBCOMN+8 03546000 ACBIBCT EQU ACBJWA 03547000 ACBLEN2 EQU ACBLENG2 03548000 ACBSTYP EQU ACBCOMN+1 03549000 ACBID EQU ACBCOMN 03550000 CVTLEVL EQU CVTRELNO+2 03551000 CVTNUMB EQU CVTRELNO 03552000 CVTMDL EQU CVTFIX+250 03553000 @NM00002 EQU CVTFIX+248 03554000 @NM00001 EQU CVTFIX 03555000 CVTRV482 EQU CVTXTNT2+128 03556000 CVTRV481 EQU CVTXTNT2+124 03557000 CVTRV480 EQU CVTXTNT2+120 03558000 CVTRV479 EQU CVTXTNT2+118 03559000 CVTRV478 EQU CVTXTNT2+117 03560000 CVTRV477 EQU CVTXTNT2+116 03561000 CVTRV476 EQU CVTXTNT2+115 03562000 CVTRV475 EQU CVTXTNT2+114 03563000 CVTRV474 EQU CVTRV466 03564000 CVTRV473 EQU CVTRV466 03565000 CVTRV472 EQU CVTRV466 03566000 CVTRV471 EQU CVTRV466 03567000 CVTRV470 EQU CVTRV466 03568000 CVTRV469 EQU CVTRV466 03569000 CVTRV468 EQU CVTRV466 03570000 CVTRV467 EQU CVTRV466 03571000 CVTRV465 EQU CVTRV457 03572000 CVTRV464 EQU CVTRV457 03573000 CVTRV463 EQU CVTRV457 03574000 CVTRV462 EQU CVTRV457 03575000 CVTRV461 EQU CVTRV457 03576000 CVTRV460 EQU CVTRV457 03577000 CVTRV459 EQU CVTRV457 03578000 CVTRV458 EQU CVTRV457 03579000 CVTRV456 EQU CVTXTNT2+108 03580000 CVTRV455 EQU CVTXTNT2+104 03581000 CVTRV454 EQU CVTXTNT2+100 03582000 CVTRV453 EQU CVTXTNT2+96 03583000 CVTRV452 EQU CVTXTNT2+94 03584000 CVTRV451 EQU CVTXTNT2+92 03585000 CVTRV450 EQU CVTXTNT2+90 03586000 CVTRV449 EQU CVTXTNT2+88 03587000 CVTRV448 EQU CVTXTNT2+87 03588000 CVTRV447 EQU CVTXTNT2+86 03589000 CVTRV446 EQU CVTRV438 03590000 CVTRV445 EQU CVTRV438 03591000 CVTRV444 EQU CVTRV438 03592000 CVTRV443 EQU CVTRV438 03593000 CVTRV442 EQU CVTRV438 03594000 CVTRV441 EQU CVTRV438 03595000 CVTRV440 EQU CVTRV438 03596000 CVTRV439 EQU CVTRV438 03597000 CVTRV437 EQU CVTRV429 03598000 CVTRV436 EQU CVTRV429 03599000 CVTRV435 EQU CVTRV429 03600000 CVTRV434 EQU CVTRV429 03601000 CVTRV433 EQU CVTRV429 03602000 CVTRV432 EQU CVTRV429 03603000 CVTRV431 EQU CVTRV429 03604000 CVTRV430 EQU CVTRV429 03605000 CVTRV428 EQU CVTXTNT2+80 03606000 CVTRV427 EQU CVTXTNT2+76 03607000 CVTRV426 EQU CVTXTNT2+72 03608000 CVTRV425 EQU CVTXTNT2+68 03609000 CVTATACT EQU CVTATCVT 03610000 CVTRV423 EQU CVTXTNT2+62 03611000 CVTRV422 EQU CVTXTNT2+60 03612000 CVTRV421 EQU CVTXTNT2+58 03613000 CVTRV420 EQU CVTXTNT2+56 03614000 CVTRV419 EQU CVTXTNT2+55 03615000 CVTRV418 EQU CVTXTNT2+54 03616000 CVTRV417 EQU CVTRV409 03617000 CVTRV416 EQU CVTRV409 03618000 CVTRV415 EQU CVTRV409 03619000 CVTRV414 EQU CVTRV409 03620000 CVTRV413 EQU CVTRV409 03621000 CVTRV412 EQU CVTRV409 03622000 CVTRV411 EQU CVTRV409 03623000 CVTRV410 EQU CVTRV409 03624000 CVTRV408 EQU CVTRV400 03625000 CVTRV407 EQU CVTRV400 03626000 CVTRV406 EQU CVTRV400 03627000 CVTRV405 EQU CVTRV400 03628000 CVTRV404 EQU CVTRV400 03629000 CVTRV403 EQU CVTRV400 03630000 CVTRV402 EQU CVTRV400 03631000 CVTRV401 EQU CVTRV400 03632000 CVTICB EQU CVTXTNT2+48 03633000 CVTSKTA EQU CVTXTNT2+44 03634000 CVTSHSB EQU CVTSHS 03635000 CVTRSV98 EQU CVTXTNT2+36 03636000 CVTRSV97 EQU CVTXTNT2+34 03637000 CVTRSV96 EQU CVTXTNT2+32 03638000 CVTOLTEP EQU CVTXTNT2+28 03639000 CVTQIDA EQU CVTQID+1 03640000 CVTRSV95 EQU CVTQID 03641000 CVTRSV94 EQU CVTXTNT2+20 03642000 CVTRSV93 EQU CVTXTNT2+16 03643000 CVTRSV92 EQU CVTXTNT2+12 03644000 CVTDEBVR EQU CVTXTNT2+8 03645000 CVTRSV91 EQU CVTXTNT2+6 03646000 CVTRSV9H EQU CVTFLGBT 03647000 CVTRSV9G EQU CVTFLGBT 03648000 CVTRSV9F EQU CVTFLGBT 03649000 CVTRSV9E EQU CVTFLGBT 03650000 CVTRSV9D EQU CVTFLGBT 03651000 CVTRSV9C EQU CVTFLGBT 03652000 CVTVME EQU CVTFLGBT 03653000 CVTNPE EQU CVTFLGBT 03654000 CVTNUCLS EQU CVTXTNT2+4 03655000 CVTDSSVA EQU CVTDSSV+1 03656000 CVTRSV89 EQU CVTDSSV 03657000 CVTRSV88 EQU CVTXTNT1+8 03658000 CVTRSV87 EQU CVTXTNT1+4 03659000 CVTFACHN EQU CVTXTNT1 03660000 CVTRV488 EQU CVTMAP+412 03661000 CVTRV487 EQU CVTMAP+408 03662000 CVTRV486 EQU CVTMAP+404 03663000 CVTRV485 EQU CVTMAP+400 03664000 CVTACTAP EQU CVTMAP+396 03665000 CVTAUTH EQU CVTMAP+392 03666000 CVTATMCA EQU CVTATMCT+1 03667000 CVTATMST EQU CVTATMCT 03668000 CVTRSV61 EQU CVTMAP+384 03669000 CVTVOLT1 EQU CVTVOLM1+1 03670000 CVTVOLI1 EQU CVTVOLF1 03671000 CVTSTOA EQU CVTMAP+376 03672000 CVTRSV58 EQU CVTMAP+374 03673000 CVTRSV57 EQU CVTMAP+372 03674000 CVTDDCE EQU CVTMAP+368 03675000 CVTPNWFR EQU CVTMAP+364 03676000 CVTSMF EQU CVTMAP+360 03677000 CVTSULK EQU CVTMAP+358 03678000 CVTSLKO EQU CVTSYSK 03679000 CVTSLKP EQU CVTSYSK 03680000 CVTSLKQ EQU CVTSYSK 03681000 CVTSLKR EQU CVTSYSK 03682000 CVTRSV56 EQU CVTSYSK 03683000 CVTRSV55 EQU CVTSYSK 03684000 CVTRSV54 EQU CVTSYSK 03685000 CVTRSV53 EQU CVTSYSK 03686000 CVTRSV52 EQU CVTA1F1 03687000 CVTRSV51 EQU CVTA1F1 03688000 CVTRSV50 EQU CVTA1F1 03689000 CVTRSV49 EQU CVTA1F1 03690000 CVTRSV48 EQU CVTA1F1 03691000 CVTRSV47 EQU CVTA1F1 03692000 CVTSRSW EQU CVTA1F1 03693000 CVTPFSW EQU CVTA1F1 03694000 CVTPCVT EQU CVTMAP+352 03695000 CVTRSV46 EQU CVTMAP+344 03696000 CVTRSV45 EQU CVTMAP+340 03697000 CVTRSV44 EQU CVTMAP+338 03698000 CVTRSV43 EQU CVTMAP+336 03699000 CVTHJESA EQU CVTHJES+1 03700000 CVTRSV42 EQU CVTHJES 03701000 CVTEXT2A EQU CVTEXT2+1 03702000 CVTRSV41 EQU CVTEXT2 03703000 CVTAPFA EQU CVTAPF+1 03704000 CVTRSV40 EQU CVTAPF 03705000 CVTRV518 EQU CVTINTLA 03706000 CVTRV517 EQU CVTERPV 03707000 CVTEORM EQU CVTMAP+312 03708000 CVTMCHPR EQU CVTMAP+308 03709000 CVTTZ EQU CVTMAP+304 03710000 CVTJEPS EQU CVTMAP+300 03711000 CVTJESCT EQU CVTMAP+296 03712000 CVTMODE EQU CVTMAP+292 03713000 CVTPTRV EQU CVTMAP+288 03714000 CVTREAL EQU CVTMAP+284 03715000 CVTRSV39 EQU CVTMAP+280 03716000 CVTRSV38 EQU CVTMAP+276 03717000 CVTDMSRA EQU CVTDMSR+1 03718000 CVTRV634 EQU CVTDMSRF 03719000 CVTRV633 EQU CVTDMSRF 03720000 CVTRV632 EQU CVTDMSRF 03721000 CVTRV631 EQU CVTDMSRF 03722000 CVTRV630 EQU CVTDMSRF 03723000 CVTRV629 EQU CVTDMSRF 03724000 CVTUDUMP EQU CVTDMSRF 03725000 CVTSDUMP EQU CVTDMSRF 03726000 CVTQMSGA EQU CVTQMSG+1 03727000 CVTRSV36 EQU CVTQMSG 03728000 CVTAMFF EQU CVTMAP+264 03729000 CVTPURGA EQU CVTPURG+1 03730000 CVTRSV35 EQU CVTPURG 03731000 CVTCBSP EQU CVTMAP+256 03732000 CVTATERA EQU CVTATER+1 03733000 CVTSYST EQU CVTATER 03734000 CVTVOLT2 EQU CVTTAT 03735000 CVTVOLI2 EQU CVTVOLF2 03736000 CVTAQAVB EQU CVTAQAVT+1 03737000 CVTRSV34 EQU CVTTCMFG 03738000 CVTRSV33 EQU CVTTCMFG 03739000 CVTRSV32 EQU CVTTCMFG 03740000 CVTRSV31 EQU CVTTCMFG 03741000 CVTRSV30 EQU CVTTCMFG 03742000 CVTRSV29 EQU CVTTCMFG 03743000 CVTRSV28 EQU CVTTCMFG 03744000 CVTTCRDY EQU CVTTCMFG 03745000 CVTGTFA EQU CVTGTF+1 03746000 CVTRSV27 EQU CVTGTFST 03747000 CVTRNIO EQU CVTGTFST 03748000 CVTUSR EQU CVTGTFST 03749000 CVTRV318 EQU CVTFORM 03750000 CVTRV317 EQU CVTTMODE 03751000 CVTRV316 EQU CVTSTATE 03752000 CVTRV315 EQU CVTGTFS 03753000 CVTGTFAV EQU CVTGTFS 03754000 CVT0SCR1 EQU CVTMAP+232 03755000 CVTRV515 EQU CVTMAP+228 03756000 CVTRMS EQU CVTMAP+224 03757000 CVTPATCH EQU CVTMAP+220 03758000 CVTTSCE EQU CVTMAP+216 03759000 CVTLNKSC EQU CVTMAP+214 03760000 CVTQABST EQU CVTMAP+212 03761000 CVTMDLDS EQU CVTMAP+208 03762000 CVTUSER EQU CVTMAP+204 03763000 CVTABEND EQU CVTMAP+200 03764000 CVTSMCA EQU CVTMAP+196 03765000 CVTRSV18 EQU CVTMAP+192 03766000 CVTQLPAQ EQU CVTMAP+188 03767000 CVTQCDSR EQU CVTMAP+184 03768000 CVTRSV17 EQU CVTOPTB 03769000 CVTRSV16 EQU CVTOPTB 03770000 CVTFP EQU CVTOPTB 03771000 CVTAPTHR EQU CVTOPTB 03772000 CVTNLOG EQU CVTOPTB 03773000 CVTTOD EQU CVTOPTB 03774000 CVTCTIMS EQU CVTOPTB 03775000 CVTPROT EQU CVTOPTB 03776000 CVTXPFP EQU CVTOPTA 03777000 CVTASCII EQU CVTOPTA 03778000 CVTRSV13 EQU CVTOPTA 03779000 CVTRSV12 EQU CVTOPTA 03780000 CVTNIP EQU CVTOPTA 03781000 CVTDDR EQU CVTOPTA 03782000 CVTAPR EQU CVTOPTA 03783000 CVTCCH EQU CVTOPTA 03784000 CVTSNCTR EQU CVTMAP+180 03785000 CVTQMWR EQU CVTMAP+176 03786000 CVTQOCR EQU CVTMAP+172 03787000 CVT1EF00 EQU CVTMAP+168 03788000 CVTMZ00 EQU CVTMAP+164 03789000 CVTHEAD EQU CVTMAP+160 03790000 CVTRSV11 EQU CVTMAP+156 03791000 CVT0PT01 EQU CVTMAP+152 03792000 CVTMSER EQU CVTMAP+148 03793000 CVTRV516 EQU CVTIERLC 03794000 CVTILCH EQU CVTMAP+140 03795000 CVT0DS EQU CVTMAP+136 03796000 CVTFBOSV EQU CVTMAP+132 03797000 CVTNUCB EQU CVTMAP+128 03798000 CVTIXAVL EQU CVTMAP+124 03799000 CVTIOQET EQU CVTMAP+120 03800000 CVTDCBA EQU CVTMAP+117 03801000 CVTMVS2 EQU CVTDCB 03802000 CVT6DAT EQU CVTDCB 03803000 CVT4MPS EQU CVTDCB 03804000 CVTRSV09 EQU CVTDCB 03805000 CVT4MS1 EQU CVTDCB 03806000 CVT2SPS EQU CVTDCB 03807000 CVT1SSS EQU CVTDCB 03808000 CVTRSV08 EQU CVTDCB 03809000 CVTSTB EQU CVTMAP+112 03810000 CVTQTD00 EQU CVTMAP+108 03811000 CVTQTE00 EQU CVTMAP+104 03812000 CVTCUCB EQU CVTMAP+100 03813000 CVTSJQ EQU CVTMAP+96 03814000 CVTPBLDL EQU CVTMAP+92 03815000 CVTTPC EQU CVTMAP+88 03816000 CVTSVDCB EQU CVTMAP+84 03817000 CVTBRET EQU CVTMAP+82 03818000 CVTEXIT EQU CVTMAP+80 03819000 CVT0FN00 EQU CVTMAP+76 03820000 CVTDARA EQU CVTDAR+1 03821000 CVTRSV07 EQU CVTFLGS1 03822000 CVTRSV06 EQU CVTFLGS1 03823000 CVTRSV05 EQU CVTFLGS1 03824000 CVTRSV04 EQU CVTFLGS1 03825000 CVTRSV03 EQU CVTFLGS1 03826000 CVTRSV02 EQU CVTFLGS1 03827000 CVTRSV01 EQU CVTFLGS1 03828000 CVTDMPLK EQU CVTFLGS1 03829000 CVTXITP EQU CVTMAP+68 03830000 CVTZDTAB EQU CVTMAP+64 03831000 CVTMSLT EQU CVTMAP+60 03832000 CVTDATE EQU CVTMAP+56 03833000 CVTBTERM EQU CVTMAP+52 03834000 CVTSYSAD EQU CVTMAP+48 03835000 CVTXTLER EQU CVTMAP+44 03836000 CVTILK2 EQU CVTMAP+40 03837000 CVTILK1 EQU CVTMAP+36 03838000 CVTPRLTV EQU CVTMAP+32 03839000 CVTPCNVT EQU CVTMAP+28 03840000 CVT0VL00 EQU CVTMAP+24 03841000 CVTXAPG EQU CVTMAP+20 03842000 CVTBUF EQU CVTMAP+16 03843000 CVTJOB EQU CVTMAP+12 03844000 CVTLINK EQU CVTMAP+8 03845000 CVT0EF00 EQU CVTMAP+4 03846000 CVTTCBP EQU CVTMAP 03847000 CVT EQU CVTMAP 03848000 @NM00086 EQU PSA+3668 03849000 PSASTAK EQU PSA+3072 03850000 @NM00085 EQU PSA+1048 03851000 PSAUSEND EQU PSA+1048 03852000 PSARV062 EQU PSA+1044 03853000 PSACDAL EQU PSA+1040 03854000 PSAWTCOD EQU PSA+1036 03855000 PSAATCVT EQU PSA+1032 03856000 PSAPCPSW EQU PSA+1024 03857000 PSAPIR2 EQU PSA+1020 03858000 PSARV059 EQU PSA+1018 03859000 PSASVC13 EQU PSA+1016 03860000 PSALSFCC EQU PSA+1012 03861000 PSASFACC EQU PSA+1008 03862000 PSASTOP EQU PSA+992 03863000 PSASTART EQU PSA+976 03864000 PSARSPSW EQU PSA+968 03865000 PSASRPSW EQU PSA+960 03866000 PSARV045 EQU PSA+892 03867000 PSARV044 EQU PSA+888 03868000 PSARV043 EQU PSA+884 03869000 PSARV042 EQU PSA+880 03870000 PSARV041 EQU PSA+876 03871000 PSARV040 EQU PSA+872 03872000 PSARV025 EQU PSA+868 03873000 PSADSSED EQU PSA+868 03874000 PSADSSPR EQU PSA+864 03875000 PSADSSFW EQU PSA+860 03876000 PSADSS14 EQU PSA+856 03877000 PSADSSPP EQU PSA+848 03878000 PSADSSRP EQU PSA+840 03879000 PSADSS05 EQU PSADSSF4 03880000 PSADSS10 EQU PSADSSF4 03881000 PSADSSVE EQU PSADSSF4 03882000 PSADSSDE EQU PSADSSF4 03883000 PSADSSC0 EQU PSADSSF4 03884000 PSADSSIE EQU PSADSSF4 03885000 PSADSS12 EQU PSADSSF4 03886000 PSADSSRC EQU PSADSSF4 03887000 PSARV057 EQU PSADSSF3 03888000 PSARV056 EQU PSADSSF3 03889000 PSARV055 EQU PSADSSF3 03890000 PSADSSMC EQU PSADSSF3 03891000 PSADSSRW EQU PSADSSF3 03892000 PSADSSNM EQU PSADSSF3 03893000 PSADSSES EQU PSADSSF3 03894000 PSADSSGP EQU PSADSSF3 03895000 PSADSSF2 EQU PSADSSFL+1 03896000 PSADSSPI EQU PSADSSF1 03897000 PSADSSOI EQU PSADSSF1 03898000 PSADSSSP EQU PSADSSF1 03899000 PSADSSTP EQU PSADSSF1 03900000 PSADSSDW EQU PSADSSF1 03901000 PSADSSDD EQU PSADSSF1 03902000 PSADSSDM EQU PSADSSF1 03903000 PSADSSMV EQU PSADSSF1 03904000 PSADSSTS EQU PSA+816 03905000 PSADSSWK EQU PSA+812 03906000 PSADSSR3 EQU PSA+808 03907000 PSADSSR2 EQU PSA+804 03908000 PSADSSRS EQU PSA+800 03909000 PSASTOR EQU PSA+796 03910000 PSACPUSA EQU PSA+794 03911000 PSAVSTAP EQU PSA+792 03912000 PSAWKVAP EQU PSA+788 03913000 PSAWKRAP EQU PSA+784 03914000 PSAMCHIC EQU PSA+783 03915000 PSARV061 EQU PSA+782 03916000 PSASYMSK EQU PSA+781 03917000 PSAMCHFL EQU PSA+780 03918000 PSACR0 EQU PSA+776 03919000 PSAPSWSV EQU PSA+768 03920000 PSALITA EQU PSA+764 03921000 PSACLHS EQU PSAHLHI 03922000 PSALKR15 EQU PSALKSA+60 03923000 PSALKR14 EQU PSALKSA+56 03924000 PSALKR13 EQU PSALKSA+52 03925000 PSALKR12 EQU PSALKSA+48 03926000 PSALKR11 EQU PSALKSA+44 03927000 PSALKR10 EQU PSALKSA+40 03928000 PSALKR9 EQU PSALKSA+36 03929000 PSALKR8 EQU PSALKSA+32 03930000 PSALKR7 EQU PSALKSA+28 03931000 PSALKR6 EQU PSALKSA+24 03932000 PSALKR5 EQU PSALKSA+20 03933000 PSALKR4 EQU PSALKSA+16 03934000 PSALKR3 EQU PSALKSA+12 03935000 PSALKR2 EQU PSALKSA+8 03936000 PSALKR1 EQU PSALKSA+4 03937000 PSALKR0 EQU PSALKSA 03938000 PSARV023 EQU PSACLHT+52 03939000 PSALOCAL EQU PSACLHT+48 03940000 PSACMSL EQU PSACLHT+44 03941000 PSAOPTL EQU PSACLHT+40 03942000 PSATPACL EQU PSACLHT+36 03943000 PSATPDNL EQU PSACLHT+32 03944000 PSATPNCL EQU PSACLHT+28 03945000 PSAIOSLL EQU PSACLHT+24 03946000 PSAIOSUL EQU PSACLHT+20 03947000 PSAIOSCL EQU PSACLHT+16 03948000 PSAIOSSL EQU PSACLHT+12 03949000 PSASALCL EQU PSACLHT+8 03950000 PSAASML EQU PSACLHT+4 03951000 PSADISPL EQU PSACLHT 03952000 PSASRSA EQU PSA+636 03953000 PSARV050 EQU PSA+634 03954000 PSADSSGO EQU PSA+633 03955000 PSARECUR EQU PSA+632 03956000 PSAHLHIS EQU PSA+628 03957000 PSAIPCSA EQU PSA+624 03958000 @NM00084 EQU PSA+621 03959000 PSAIPCDM EQU PSA+620 03960000 PSAIPCD EQU PSA+616 03961000 @NM00083 EQU PSA+613 03962000 PSAIPCRM EQU PSA+612 03963000 PSAIPCR EQU PSA+608 03964000 PSAMCHEX EQU PSA+600 03965000 PSAMPSW EQU PSA+592 03966000 PSAEXPS2 EQU PSA+584 03967000 PSAEXPS1 EQU PSA+576 03968000 PSAPIREG EQU PSA+572 03969000 PSARSREG EQU PSA+568 03970000 PSAGPREG EQU PSA+556 03971000 PSARV022 EQU PSASUP4 03972000 PSARV021 EQU PSASUP4 03973000 PSARV020 EQU PSASUP4 03974000 PSARV019 EQU PSASUP4 03975000 PSARV018 EQU PSASUP4 03976000 PSARV017 EQU PSASUP4 03977000 PSARV016 EQU PSASUP4 03978000 PSARV015 EQU PSASUP4 03979000 PSARV014 EQU PSASUP3 03980000 PSARV013 EQU PSASUP3 03981000 PSARV012 EQU PSASUP3 03982000 PSARV011 EQU PSASUP3 03983000 PSASPR EQU PSASUP3 03984000 PSAPSREG EQU PSASUP3 03985000 PSAPI2 EQU PSASUP3 03986000 PSAIOSUP EQU PSASUP3 03987000 PSALCR EQU PSASUP2 03988000 PSARTM EQU PSASUP2 03989000 PSAACR EQU PSASUP2 03990000 PSAIPCE2 EQU PSASUP2 03991000 PSAIPCES EQU PSASUP2 03992000 PSAIPCEC EQU PSASUP2 03993000 PSAGTF EQU PSASUP2 03994000 PSAIPCRI EQU PSASUP2 03995000 PSARV063 EQU PSASUP1 03996000 PSATCTL EQU PSASUP1 03997000 PSADISP EQU PSASUP1 03998000 PSALOCK EQU PSASUP1 03999000 PSAPI EQU PSASUP1 04000000 PSAEXT EQU PSASUP1 04001000 PSASVC EQU PSASUP1 04002000 PSAIO EQU PSASUP1 04003000 PSAAOLD EQU PSA+548 04004000 PSAANEW EQU PSA+544 04005000 PSATNEW EQU PSA+536 04006000 PSALCCAR EQU PSA+532 04007000 PSALCCAV EQU PSA+528 04008000 PSAPCCAR EQU PSA+524 04009000 PSAPCCAV EQU PSA+520 04010000 PSACPULA EQU PSA+518 04011000 PSACPUPA EQU PSA+516 04012000 PSAPSA EQU PSA+512 04013000 FLCHDEND EQU PSA+512 04014000 FLCCRSAV EQU FLCMCLA+280 04015000 FLCGRSAV EQU FLCMCLA+216 04016000 FLCFPSAV EQU FLCMCLA+184 04017000 FLCFLA EQU FLCMCLA+88 04018000 FLCRGNCD EQU FLCMCLA+84 04019000 FLCFSAA EQU FLCFSA+1 04020000 @NM00082 EQU FLCFSA 04021000 @NM00081 EQU FLCMCLA+72 04022000 FLCMCIC EQU FLCMCLA+64 04023000 @NM00080 EQU FLCMCLA+20 04024000 FLCIOAA EQU FLCIOA+1 04025000 @NM00079 EQU FLCIOA 04026000 @NM00078 EQU FLCMCLA+15 04027000 @NM00077 EQU FLCMCLA+14 04028000 @NM00076 EQU FLCMCLA+12 04029000 FLCLCL EQU FLCMCLA+8 04030000 FLCIOELA EQU FLCIOEL+1 04031000 @NM00075 EQU FLCIOEL 04032000 FLCCHNID EQU FLCMCLA 04033000 @NM00074 EQU PSA+160 04034000 FLCMTRCD EQU PSA+157 04035000 @NM00073 EQU PSA+156 04036000 FLCPERA EQU FLCPER+1 04037000 @NM00072 EQU FLCPER 04038000 @NM00071 EQU PSA+151 04039000 FLCPERCD EQU PSA+150 04040000 FLCMCNUM EQU PSA+149 04041000 @NM00070 EQU PSA+148 04042000 FLCTEAA EQU FLCTEA+1 04043000 @NM00069 EQU FLCTEA 04044000 PSAPIPC EQU PSAPICOD 04045000 PSAPIMC EQU PSAPICOD 04046000 PSAPIPER EQU PSAPICOD 04047000 PSARV049 EQU FLCPICOD 04048000 FLCPILCB EQU FLCPIILC 04049000 @NM00068 EQU FLCPIILC 04050000 @NM00067 EQU PSAEPPSW 04051000 FLCSVCN EQU PSAESPSW+2 04052000 FLCSILCB EQU FLCSVILC 04053000 @NM00066 EQU FLCSVILC 04054000 @NM00065 EQU PSAESPSW 04055000 FLCEICOD EQU PSAEEPSW+2 04056000 PSASPAD EQU PSAEEPSW 04057000 @NM00064 EQU PSA+128 04058000 FLCINPSW EQU PSA+120 04059000 FLCMNPSW EQU PSA+112 04060000 FLCPNPSW EQU PSA+104 04061000 FLCSNPSW EQU PSA+96 04062000 FLCENPSW EQU PSA+88 04063000 FLCTRACE EQU PSA+84 04064000 FLCTIMER EQU PSA+80 04065000 FLCCVT2 EQU PSA+76 04066000 FLCCAW EQU PSA+72 04067000 FLCCSW EQU PSA+64 04068000 FLCIOPSW EQU PSA+56 04069000 FLCMOPSW EQU PSA+48 04070000 FLCPOPSW EQU PSA+40 04071000 FLCSOPSW EQU PSA+32 04072000 FLCEOPSW EQU PSA+24 04073000 @NM00063 EQU FLCICCW2+4 04074000 FLCCVT EQU FLCICCW2 04075000 FLCICCW1 EQU FLCROPSW 04076000 FLCIPPSW EQU FLCRNPSW 04077000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04078000 @RC00412 EQU @RC00398 04079000 @RT00416 EQU @RC00412 04080000 @ENDDATA EQU * 04081000 END ISTAPC54,(C'PLS1953',0603,77290) 04082000