TITLE 'ISTDCC13-RESET LDO REQUEST PROCESSOR *00001000 ' 00002000 ISTDCC13 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTDCC13 75.126' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * ADDRCRR=ADDR(CRACRR->CRRSPACE); /* SET BASE FOR CRR */ 00013000 L @14,RPHCRR(,ADDRRPH) 0408 00014000 L ADDRCRR,CRACRR(,@14) 0408 00015000 LA ADDRCRR,CRRSPACE(,ADDRCRR) 0408 00016000 * ADDRLDO=CRRCLDO; /* SET BASE FOR CURRENT LDO */ 00017000 L ADDRLDO,CRRCLDO(,ADDRCRR) 0409 00018000 * ADDRRPL=CRRARPL; /* SET BASE FOR RPL */ 00019000 L ADDRRPL,CRRARPL(,ADDRCRR) 0410 00020000 * CRRMAS=CRRMAS&&CRRMAS; /* CLEAR MODULE AUDIT SWITCHES */ 00021000 XC CRRMAS(8,ADDRCRR),CRRMAS(ADDRCRR) 0411 00022000 * CRRM13=ON; /* SET MODULE AUDIT SWITCH */ 00023000 OI CRRM13(ADDRCRR),B'00000010' 0412 00024000 * CRRC13=ON; /* SET AUDIT TRAIL SWITCH */ 00025000 OI CRRC13(ADDRCRR),B'00000010' 0413 00026000 */* CHECK WHETHER THIS RESET LDO IS PART */ 00027000 */* OF A CHAIN OF LDOS */ 00028000 * 0414 00029000 * IF CRRINIO=ON THEN /* CHECK INITIATE I/O SWITCH */ 00030000 TM CRRINIO(ADDRCRR),B'00100000' 0414 00031000 BNO @RF00414 0414 00032000 * DO; /* A PREVIOUS LDO REQ MAY EXIST */ 00033000 * CRRRTNCD=CRRLOGIC; /* IF ON,SET MJR RTN CODE */ 00034000 MVI CRRRTNCD(ADDRCRR),X'08' 0416 00035000 * CRRFDB2=CRRRILCP; /* SET MINOR RTN CODE */ 00036000 MVI CRRFDB2(ADDRCRR),X'1B' 0417 00037000 * END; 0418 00038000 * ELSE /* IF NO PREVIOUS REQUEST IS 0419 00039000 * OUTSTANDING */ 00040000 * DO; 0419 00041000 B @RC00414 0419 00042000 @RF00414 DS 0H 0420 00043000 * 0420 00044000 */*VMDESET ((RCREG),ZERO) */ 00045000 * 0420 00046000 * DO; /* INVOKE MODESET MACRO */ 00047000 * GEN; 0421 00048000 MODESET EXTKEY=ZERO,WORKREG=2 00049000 * RCREG=0; /* PUT RETURN CODE IN RCREG */ 00050000 SLR RCREG,RCREG 0422 00051000 * END; /* VMDESET */ 00052000 */* LINES 171988 THRU 172581 REMOVED FOR DCR 1991 ( 9/14/73 ) */ 00053000 * 0424 00054000 * IF(LDOACHN=ON)|(LDOCMHN=ON) THEN/* CHECK WHETHER THE LDO IS 00055000 * COMMAND CHAINED OR DATA 0424 00056000 * CHAINED */ 00057000 L @14,CRRCLDO(,ADDRCRR) 0424 00058000 TM LDOACHN(@14),B'11000000' 0424 00059000 BZ @RF00424 0424 00060000 * DO; 0425 00061000 * CRRRTNCD=CRRLOGIC; /* SET MAJOR RTN CODE */ 00062000 MVI CRRRTNCD(ADDRCRR),X'08' 0426 00063000 * CRRFDB2=CRRRILCP; /* MINOR RTN CODE */ 00064000 MVI CRRFDB2(ADDRCRR),X'1B' 0427 00065000 * END; 0428 00066000 * ELSE 0429 00067000 * CALL PROCESSD; /* IF NOT CALL PROCESSD TO BUILD 00068000 * THE LCCW */ 00069000 B @RC00424 0429 00070000 @RF00424 BAL @14,PROCESSD 0429 00071000 */* THIS IS THE RETURN POINT FROM PROCESSD */ 00072000 */*VMDESET ((RCREG),VTAM) */ 00073000 * 0430 00074000 * DO; /* INVOKE MODESET MACRO */ 00075000 @RC00424 DS 0H 0431 00076000 * GEN; 0431 00077000 MODESET EXTKEY=VTAM,WORKREG=2 00078000 * RCREG=0; /* PUT RETURN CODE IN RCREG */ 00079000 SLR RCREG,RCREG 0432 00080000 * END; /* VMDESET */ 00081000 */* LINES 173111 THRU 173169 REMOVED FOR DCR 1991 ( 9/14/73 ) */ 00082000 * 0434 00083000 * END; 0434 00084000 * CRRFINI=ON; /* SET REQUEST FINISH FLAG */ 00085000 @RC00414 OI CRRFINI(ADDRCRR),B'00001000' 0435 00086000 * IF CRRRTNCD=CRRLOGIC THEN 0436 00087000 CLI CRRRTNCD(ADDRCRR),X'08' 0436 00088000 BNE @RF00436 0436 00089000 * RPLAAREA=CRRCLDO; /* PUT THE LDO ADDRESS IN AN 0437 00090000 * ALTERNATE AREA IF ERROR */ 00091000 L @14,CRRCLDO(,ADDRCRR) 0437 00092000 ST @14,RPLAAREA(,ADDRRPL) 0437 00093000 * ELSE 0438 00094000 * ; 0438 00095000 * 0438 00096000 @RF00436 DS 0H 0439 00097000 */*TPESC */ 00098000 * 0439 00099000 * DO; 0439 00100000 * 0439 00101000 */* ATBUILD (ISTDYPAB,ISTAVT,ISTATCVT) */ 00102000 * 0440 00103000 */* VTAM ADDRESS VECTOR TABLE */ 0440 00104000 */* REVISIONS 002 03/06/75 */ 00105000 *DCL 1 ISTAVT BDY(WORD) BASED, 0440 00106000 * 2 ISTACVT PTR(31), /* ADDR OF VTAM CVT */ 00107000 * 2 ISTAS49 PTR(31), /* ADDR OF SVC 49 CODE */ 00108000 * 3 ISTAHIP BIT(1), /* HALT IN PROGRESS */ 00109000 * 2 ISTAS53 PTR(31), /* ADDR OF SVC 53 CODE */ 00110000 * 2 ISTAPSTA PTR(31), /* ADDR OF APS TABLE */ 00111000 * 2 AVTASID FIXED(15), /* VTAM ASID */ 00112000 * 2 ISTVTTIK FIXED(15), /* VTAMRP TASK ID */ 00113000 * 2 ISTAPSEX PTR(31), /* ADDR OF APS EXIT */ 00114000 * 2 ISTPHNM CHAR(5), /* PHASE NAME OF TRANSIENT */ 00115000 * 2 ISTX1 CHAR(1), /* TEST FIELD */ 00116000 * 2 ISTARID PTR(15), /* ADDR OF RID */ 00117000 * 2 ISTATRT PTR(15), /* ADDR OF VTAM GATES IN RETAB*/ 00118000 * 2 ISTAGTWT PTR(15), /* ADDR OF GATEWAIT ROUTINE */ 00119000 * 2 ISTVTTP PTR(15), /* ADDR OF CODE TO CHECK FOR */ 00120000 * /* PENDING TIMER INTERRUPT */ 00121000 * 2 ISTAVR01 CHAR(2), /* RESERVED */ 00122000 * 2 ISTPDAVP PTR(31); /* VECTOR FOR PDAIDS SMS TRACE*/ 00123000 * 0441 00124000 */* END OF ATBUILD */ 00125000 * 0441 00126000 * RFY 0441 00127000 * GPR15P RSTD; 0441 00128000 * DO; /* LISATCVT 0442 00129000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00130000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00131000 L GPR15P,ATCLCPTR 0443 00132000 * END; /* LISATCVT */ 00133000 * GPR15P=GPR15P->ATCESC01; 0445 00134000 L GPR15P,ATCESC01(,GPR15P) 0445 00135000 * DCL 0446 00136000 * FMZL0007 BASED(GPR15P) LABEL VALUERANGE(*); 0446 00137000 * CALL FMZL0007; 0447 00138000 BALR @14,@15 0447 00139000 * RESPECIFY 0448 00140000 * GPR15P UNRSTD; 0448 00141000 * END; /* **** END OF TPESC */ 00142000 * 0450 00143000 */********************************************************************/ 00144000 */* */ 00145000 */* ROUTINE NAME : PROCESSD - BUILD RESET LCCW */ 00146000 */* */ 00147000 */* FUNCTION : BUILDS THE PROPER LCCW FOR THE RESET COMMAND.A RESET */ 00148000 */* IS EITHER CONDITIONAL OR UNCONDITIONAL. IF UNCONDITIONAL */ 00149000 */* A CHECK IS MADE TO SEE IF IT IS IMMEDIATE ,ORDERLY,OR RESET*/ 00150000 */* AT END OF COMMAND. IF RESET CONDITIONAL THE CORESPONDING */ 00151000 */* FLAG IS SET IN THE FMCB. */ 00152000 */* */ 00153000 */* INPUT : SAME AS MAINLINE */ 00154000 */* */ 00155000 */* OUTPUT : NONE */ 00156000 */* */ 00157000 */* SUBROUTINES CALLED : NONE */ 00158000 */* */ 00159000 */* MACROS USED : NONE */ 00160000 */* */ 00161000 */********************************************************************/ 00162000 * 0450 00163000 *PROCESSD: 0450 00164000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0450 00165000 B @PB00002 0450 00166000 PROCESSD DS 0H 0451 00167000 * RFY 0451 00168000 * ISTLCCW BASED(ADDR(DCLLCCW2));/* USE 2ND LCCW */ 00169000 * RFY 0452 00170000 * REG14 RSTD; 0452 00171000 * CRRRTN1=REG14; /* SAVE THE RETURN ADDRESS */ 00172000 ST REG14,CRRRTN1(,ADDRCRR) 0453 00173000 * LCCWOP=LCPNXLCW->LCCWOP; /* MOVE LDO CMD TO 2ND LCCW */ 00174000 L @11,CRRLCPB(,ADDRCRR) 0454 00175000 LA @08,56 0454 00176000 ALR @08,@11 0454 00177000 L @05,LCPNXLCW(,@11) 0454 00178000 MVC LCCWOP(1,@08),LCCWOP(@05) 0454 00179000 * LCPNXLCW=ADDR(DCLLCCW2); /* ADJUST PTR TO POINT TO 2ND 0455 00180000 * LCCW */ 00181000 LA @05,DCLLCCW2(,@11) 0455 00182000 ST @05,LCPNXLCW(,@11) 0455 00183000 * LCPLCCW=LCPLCCW(1:4)&&LCPLCCW(1:4);/* ZERO 1ST WORD OF 1ST LCCW */ 00184000 XC LCPLCCW(8,@11),LCPLCCW(@11) 0456 00185000 * IF LDOCMD=LDORSETU THEN /* CHECK FOR RESET ORDINARY */ 00186000 L @11,CRRCLDO(,ADDRCRR) 0457 00187000 CLI LDOCMD(@11),X'2B' 0457 00188000 BNE @RF00457 0457 00189000 * DO; 0458 00190000 * IF DEVCHAR2>=DEV2980&DEVCHAR2<=DEV3275 THEN/* 2980? - 3270? */ 00191000 L @11,CRRFMCB(,ADDRCRR) 0459 00192000 LA @05,36 0459 00193000 AL @05,FMCDNCBA(,@11) 0459 00194000 CLI DEVCHAR2(@05),X'18' 0459 00195000 BL @RF00459 0459 00196000 CLI DEVCHAR2(@05),X'1C' 0459 00197000 BH @RF00459 0459 00198000 * LCCWOP=LXEC; 0460 00199000 MVI LCCWOP(@08),X'4B' 0460 00200000 * ELSE 0461 00201000 * IF DEVCRVB=ON THEN /* CHECK FOR RESET IMMEDIATE */ 00202000 B @RC00459 0461 00203000 @RF00459 L @11,CRRFMCB(,ADDRCRR) 0461 00204000 L @11,FMCDNCBA(,@11) 0461 00205000 TM DEVCRVB+36(@11),B'00100000' 0461 00206000 BNO @RF00461 0461 00207000 * LCCWOP=LXI; /* SET RESET IMMEDIATE COMMAND */ 00208000 L @11,CRRLCPB(,ADDRCRR) 0462 00209000 MVI LCCWOP+56(@11),X'2B' 0462 00210000 * ELSE 0463 00211000 * IF DEVCBSC=ON THEN /* CHECK FOR RESET ORDERLY */ 00212000 B @RC00461 0463 00213000 @RF00461 L @11,CRRFMCB(,ADDRCRR) 0463 00214000 L @11,FMCDNCBA(,@11) 0463 00215000 TM DEVCBSC+36(@11),B'10000000' 0463 00216000 BNO @RF00463 0463 00217000 * LCCWOP=LXO; /* SET RESET ORDERLY COMMAND */ 00218000 L @11,CRRLCPB(,ADDRCRR) 0464 00219000 MVI LCCWOP+56(@11),X'5B' 0464 00220000 * ELSE 0465 00221000 * LCCWOP=LXEC; /* OTHERWISE, SET RESET AT END OF 00222000 * COMMAND COMMAND */ 00223000 B @RC00463 0465 00224000 @RF00463 L @11,CRRLCPB(,ADDRCRR) 0465 00225000 MVI LCCWOP+56(@11),X'4B' 0465 00226000 * END; 0466 00227000 * ELSE 0467 00228000 * ; 0467 00229000 @RF00457 DS 0H 0468 00230000 * DCLLDO1=ADDRLDO; /* PUT ADDRESS OF LDO IN LCPB */ 00231000 @RC00457 L @11,CRRLCPB(,ADDRCRR) 0468 00232000 ST ADDRLDO,DCLLDO1(,@11) 0468 00233000 * IF LDOCMD=LDORSETC THEN /* RESET CONDITIONAL? */ 00234000 L @11,CRRCLDO(,ADDRCRR) 0469 00235000 CLI LDOCMD(@11),X'1B' 0469 00236000 BNE @RF00469 0469 00237000 * IF PABERRLK=ON THEN /* TEST TOP PAB ERROR LOCK */ 00238000 L @11,CRRFMCB(,ADDRCRR) 0470 00239000 TM PABERRLK+96(@11),B'00000100' 0470 00240000 BNO @RF00470 0470 00241000 * DO; /* SET ERROR CODES */ 00242000 * CRRRTNCD=CRRLOGIC; /* LOGICAL ERROR */ 00243000 MVI CRRRTNCD(ADDRCRR),X'08' 0472 00244000 * CRRFDB2=CRRCRJEL; /* RESET CONDITIONAL REJECTED */ 00245000 MVI CRRFDB2(ADDRCRR),X'29' 0473 00246000 * END; /* BECAUSE ERROR LOCK SET */ 00247000 * ELSE 0475 00248000 * DO; /* SET RESET CONDITIONAL FLAG */ 00249000 B @RC00470 0475 00250000 @RF00470 DS 0H 0476 00251000 * OLDVALUE=FMCCMPS2; /* SAVE OLD VALUE */ 00252000 L @11,CRRFMCB(,ADDRCRR) 0476 00253000 L OLDVALUE,FMCCMPS2(,@11) 0476 00254000 *CSWAP1: 0477 00255000 * NEWVALUE=OLDVALUE|FLAG8ON;/* TURN ON FMCFLGA8 IN REG */ 00256000 CSWAP1 LR NEWVALUE,OLDVALUE 0477 00257000 O NEWVALUE,@CF01749 0477 00258000 * CS(OLDVALUE,NEWVALUE,FMCCMPS2);/* TURN ON FMCFLGA8 IN FMCB */ 00259000 L @11,CRRFMCB(,ADDRCRR) 0478 00260000 CS OLDVALUE,@10,FMCCMPS2(@11) 0478 00261000 * BC(7,CSWAP1); /* TRY AGAIN IF NO GOOD */ 00262000 BC 7,CSWAP1 0479 00263000 * END; 0480 00264000 * ELSE 0481 00265000 * ; /* NOT RESET CONDITIONAL */ 00266000 @RF00469 DS 0H 0482 00267000 * IF CRRRTNCD=CRRNOERR THEN /* AND THERE WERE NO ERRORS */ 00268000 @RC00469 CLI CRRRTNCD(ADDRCRR),X'00' 0482 00269000 BNE @RF00482 0482 00270000 * DO; 0483 00271000 * CRRRESET=ON; /* SET RESET OPERATION FLAG ON */ 00272000 OI CRRRESET(ADDRCRR),B'00000010' 0484 00273000 * CRRINIO=ON; /* TURN INITIATE I/O FLAG ON */ 00274000 OI CRRINIO(ADDRCRR),B'00100000' 0485 00275000 */* LINES 174310 THRU 174337 REMOVED FOR DCR 1992 ( 9/14/73 ) */ 00276000 * 0486 00277000 * IF RPLDLGIN=OFF THEN /* CHECK THE 'CONTINUE ANY' */ 00278000 TM RPLDLGIN(ADDRRPL),B'10000000' 0486 00279000 BNZ @RF00486 0486 00280000 * DO; /* SWITCH IN THE RPL AND SET THE */ 00281000 * OLDVALUE=FMCCMPS2; /* 'SATISFY SPECIFIC READ FLAG IN 00282000 * THE FMCB */ 00283000 L @11,CRRFMCB(,ADDRCRR) 0488 00284000 L OLDVALUE,FMCCMPS2(,@11) 0488 00285000 *CSWAP2: 0489 00286000 * NEWVALUE=OLDVALUE&FLAG1OFF; 0489 00287000 CSWAP2 LR NEWVALUE,OLDVALUE 0489 00288000 N NEWVALUE,@CF01833 0489 00289000 * CS(OLDVALUE,NEWVALUE,FMCCMPS2); 0490 00290000 L @11,CRRFMCB(,ADDRCRR) 0490 00291000 CS OLDVALUE,@10,FMCCMPS2(@11) 0490 00292000 * BC(7,CSWAP2); 0491 00293000 BC 7,CSWAP2 0491 00294000 * END; 0492 00295000 * ELSE 0493 00296000 * DO; 0493 00297000 B @RC00486 0493 00298000 @RF00486 DS 0H 0494 00299000 * OLDVALUE=FMCCMPS2; 0494 00300000 L @11,CRRFMCB(,ADDRCRR) 0494 00301000 L OLDVALUE,FMCCMPS2(,@11) 0494 00302000 *CSWAP3: 0495 00303000 * NEWVALUE=OLDVALUE|FLAG1ON; 0495 00304000 CSWAP3 LR NEWVALUE,OLDVALUE 0495 00305000 O NEWVALUE,@CF01737 0495 00306000 * CS(OLDVALUE,NEWVALUE,FMCCMPS2); 0496 00307000 L @11,CRRFMCB(,ADDRCRR) 0496 00308000 CS OLDVALUE,@10,FMCCMPS2(@11) 0496 00309000 * BC(7,CSWAP3); 0497 00310000 BC 7,CSWAP3 0497 00311000 * END; 0498 00312000 * END; 0499 00313000 @RC00486 DS 0H 0500 00314000 * REG14=CRRRTN1; /* RETURN REG RESTORED */ 00315000 @RF00482 L REG14,CRRRTN1(,ADDRCRR) 0500 00316000 * END PROCESSD; /* RETURN TO MAIN PROCEDURE */ 00317000 @EL00002 DS 0H 0501 00318000 @EF00002 DS 0H 0501 00319000 @ER00002 BR @14 0501 00320000 @PB00002 DS 0H 0502 00321000 */* TPEPILOG */ 00322000 * 0502 00323000 * GEN(PRINT OFF); 0502 00324000 PRINT OFF 00325000 * GEN(PRINT ON); 0503 00326000 * 0503 00327000 PRINT ON 00328000 */* END OF TPEPILOG */ 00329000 * 0504 00330000 * END ISTDCC13 0504 00331000 * 0504 00332000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00333000 */*%INCLUDE SYSLIB (IFGRPL ) */ 00334000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 00335000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 00336000 * 0504 00337000 * ; 0504 00338000 @EL00001 DS 0H 0504 00339000 @EF00001 DS 0H 0504 00340000 @ER00001 BR @14 0504 00341000 @DATA DS 0H 00342000 @DATD DSECT 00343000 DS 0F 00344000 ISTDCC13 CSECT 00345000 DS 0F 00346000 @CF01737 DC XL4'40000000' 00347000 @CF01749 DC XL4'00800000' 00348000 @CF01833 DC XL4'BFFFFFFF' 00349000 @DATD DSECT 00350000 DS 0D 00351000 LCPBPTR DS A 00352000 FMCBPTR DS A 00353000 DNCBPTR DS A 00354000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00355000 @ENDDATD EQU * 00356000 ISTDCC13 CSECT 00357000 DS 0F 00358000 @SIZDATD DC AL1(0) 00359000 DC AL3(@ENDDATD-@DATD) 00360000 DS 0D 00361000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00362000 @01 EQU 01 00363000 @02 EQU 02 00364000 @03 EQU 03 00365000 @04 EQU 04 00366000 @05 EQU 05 00367000 @06 EQU 06 00368000 @07 EQU 07 00369000 @08 EQU 08 00370000 @09 EQU 09 00371000 @10 EQU 10 00372000 @11 EQU 11 00373000 @12 EQU 12 00374000 @13 EQU 13 00375000 @14 EQU 14 00376000 @15 EQU 15 00377000 RPHPTR EQU @01 00378000 GPR15P EQU @15 00379000 ADDRRPH EQU @01 00380000 ADDRRPL EQU @02 00381000 ADDRLDO EQU @04 00382000 OLDVALUE EQU @09 00383000 NEWVALUE EQU @10 00384000 ADDRCRR EQU @13 00385000 RCREG EQU @15 00386000 REG14 EQU @14 00387000 GPR00F EQU @00 00388000 GPR00P EQU @00 00389000 GPR01F EQU @01 00390000 GPR01P EQU @01 00391000 GPR02F EQU @02 00392000 GPR02P EQU @02 00393000 GPR03F EQU @03 00394000 GPR03P EQU @03 00395000 GPR04F EQU @04 00396000 GPR04P EQU @04 00397000 GPR05F EQU @05 00398000 GPR05P EQU @05 00399000 GPR06F EQU @06 00400000 GPR06P EQU @06 00401000 GPR07F EQU @07 00402000 GPR07P EQU @07 00403000 GPR08F EQU @08 00404000 GPR08P EQU @08 00405000 GPR09F EQU @09 00406000 GPR09P EQU @09 00407000 GPR10F EQU @10 00408000 GPR10P EQU @10 00409000 GPR11F EQU @11 00410000 GPR11P EQU @11 00411000 GPR12F EQU @12 00412000 GPR12P EQU @12 00413000 GPR13F EQU @13 00414000 GPR13P EQU @13 00415000 GPR14F EQU @14 00416000 GPR14P EQU @14 00417000 GPR15F EQU @15 00418000 ATCLCPTR EQU 1032 00419000 IFGRPL EQU 0 00420000 RPLCOMN EQU IFGRPL 00421000 RPLIDWD EQU RPLCOMN 00422000 RPLLEN EQU RPLIDWD+3 00423000 RPLECB EQU RPLCOMN+8 00424000 RPLFDBWD EQU RPLCOMN+12 00425000 RPLFDBK EQU RPLFDBWD+1 00426000 RPLRTNCD EQU RPLFDBK 00427000 RPLCNDCD EQU RPLFDBK+1 00428000 RPLCMPON EQU RPLCNDCD 00429000 RPLFDB2 EQU RPLCMPON 00430000 RPLERRCD EQU RPLCNDCD+1 00431000 RPLFDB3 EQU RPLERRCD 00432000 RPLKEYLE EQU RPLCOMN+16 00433000 RPLARG EQU RPLCOMN+36 00434000 RPLOPTCD EQU RPLCOMN+40 00435000 RPLOPT1 EQU RPLOPTCD 00436000 RPLECBSW EQU RPLOPT1 00437000 RPLOPT2 EQU RPLOPTCD+1 00438000 RPLADR EQU RPLOPT2 00439000 RPLOPT3 EQU RPLOPTCD+2 00440000 RPLOPT4 EQU RPLOPTCD+3 00441000 RPLNXTRP EQU RPLCOMN+44 00442000 RPLOPTC2 EQU RPLCOMN+56 00443000 RPLOPT5 EQU RPLOPTC2 00444000 RPLDLGIN EQU RPLOPT5 00445000 RPLWRTYP EQU RPLOPT5 00446000 RPLOPT6 EQU RPLOPTC2+1 00447000 RPLUNTYP EQU RPLOPT6 00448000 RPLOPT7 EQU RPLOPTC2+2 00449000 RPLCNOPT EQU RPLOPT7 00450000 RPLOPT8 EQU RPLOPTC2+3 00451000 RPLRBAR EQU RPLCOMN+60 00452000 RPLAIXID EQU RPLRBAR+2 00453000 RPLEXTDS EQU RPLCOMN+68 00454000 RPLEXTD1 EQU RPLEXTDS 00455000 RPLVTEXT EQU IFGRPL+76 00456000 RPLAAREA EQU RPLVTEXT 00457000 RPLFDBK2 EQU RPLVTEXT+12 00458000 RPLSSNSI EQU RPLFDBK2 00459000 RPLDSB EQU RPLSSNSI 00460000 RPLDSB1 EQU RPLDSB 00461000 RPLSSEI EQU RPLDSB1 00462000 RPLDSB2 EQU RPLDSB+1 00463000 RPLUSNSI EQU RPLFDBK2+2 00464000 RPLOPTC3 EQU RPLVTEXT+20 00465000 RPLOPT9 EQU RPLOPTC3 00466000 RPLOPT10 EQU RPLOPTC3+1 00467000 RPLOPT11 EQU RPLOPTC3+2 00468000 RPLOPT12 EQU RPLOPTC3+3 00469000 RPLOSENS EQU RPLVTEXT+24 00470000 RPLSSNSO EQU RPLOSENS 00471000 RPLSSEO EQU RPLSSNSO 00472000 RPLOF16 EQU 0 00473000 RPLRH3 EQU RPLOF16 00474000 RPLSRTYP EQU RPLOF16+1 00475000 RPLSTYPE EQU RPLSRTYP 00476000 RPLRTYPE EQU RPLSRTYP 00477000 RPLCHN EQU RPLOF16+2 00478000 RPLVTFL1 EQU RPLOF16+3 00479000 RPLVTFL2 EQU RPLOF16+4 00480000 RPLPOSTV EQU RPLVTFL2 00481000 RPLRESP EQU RPLVTFL2 00482000 RPLCNTRL EQU RPLOF16+5 00483000 RPLCNTDF EQU RPLCNTRL 00484000 RPLCNTDC EQU RPLCNTRL+1 00485000 RPLCNTSC EQU RPLCNTRL+2 00486000 RPLOF60 EQU 0 00487000 RPLOBSQ EQU RPLOF60+4 00488000 RPLIBSQ EQU RPLOF60+5 00489000 ISTRPH EQU 0 00490000 RPHFLAGS EQU ISTRPH+2 00491000 RPHAPTYP EQU RPHFLAGS 00492000 RPHFSTLC EQU RPHFLAGS 00493000 RPHFLGB EQU ISTRPH+3 00494000 RPHRPHA EQU ISTRPH+4 00495000 RPHTSKID EQU ISTRPH+8 00496000 RPHRESMA EQU ISTRPH+16 00497000 RPHWPFLG EQU RPHRESMA 00498000 RPHWEA EQU ISTRPH+24 00499000 RPHCSPA EQU RPHWEA 00500000 RPHSRPRM EQU ISTRPH+28 00501000 RPHCRR EQU ISTRPH+32 00502000 RPHPABQA EQU ISTRPH+36 00503000 RPHWORK EQU ISTRPH+40 00504000 RPHSAVE1 EQU RPHWORK 00505000 RPHSBITS EQU RPHSAVE1+1 00506000 ISTDCCRR EQU 0 00507000 CRRSPACE EQU ISTDCCRR+12 00508000 CRRSAREA EQU 0 00509000 CRRMAS EQU CRRSAREA+148 00510000 CRRMAS1 EQU CRRMAS 00511000 CRRM13 EQU CRRMAS1 00512000 CRRMAS2 EQU CRRMAS+1 00513000 CRRMAS3 EQU CRRMAS+2 00514000 CRRMAS4 EQU CRRMAS+3 00515000 CRRRMAS1 EQU CRRMAS+4 00516000 CRRRMAS2 EQU CRRMAS+5 00517000 CRRRMAS3 EQU CRRMAS+6 00518000 CRRSMAS EQU CRRRMAS3 00519000 CRRATS EQU CRRSAREA+156 00520000 CRRATS1 EQU CRRATS 00521000 CRRC13 EQU CRRATS1 00522000 CRRATS2 EQU CRRATS+1 00523000 CRRATS3 EQU CRRATS+2 00524000 CRRATS4 EQU CRRATS+3 00525000 CRRRATS1 EQU CRRATS+4 00526000 CRRRATS2 EQU CRRATS+5 00527000 CRRRATS3 EQU CRRATS+6 00528000 CRRSATS EQU CRRRATS3 00529000 CRRFLGS1 EQU CRRSAREA+164 00530000 CRRINIO EQU CRRFLGS1 00531000 CRRFINI EQU CRRFLGS1 00532000 CRRFLGS2 EQU CRRSAREA+165 00533000 CRRFLGS3 EQU CRRSAREA+166 00534000 CRRRESET EQU CRRFLGS3 00535000 CRRFLGS4 EQU CRRSAREA+167 00536000 CRRFLGS EQU CRRSAREA+168 00537000 CRRRFLG1 EQU CRRSAREA+169 00538000 CRRRTYPE EQU CRRRFLG1 00539000 CRRFDBK1 EQU CRRSAREA+170 00540000 CRRRTNCD EQU CRRFDBK1 00541000 CRRFDB2 EQU CRRFDBK1+1 00542000 CRRFDB3 EQU CRRFDBK1+2 00543000 CRRFDBK2 EQU CRRSAREA+176 00544000 CRRDSB EQU CRRFDBK2 00545000 CRRESR EQU CRRFDBK2+2 00546000 CRRFMCB EQU CRRSAREA+184 00547000 CRRLCPB EQU CRRSAREA+192 00548000 CRRCLDO EQU CRRSAREA+200 00549000 CRRTRBUF EQU CRRSAREA+204 00550000 CRRARPL EQU CRRTRBUF+4 00551000 CRRATCVT EQU CRRSAREA+216 00552000 CRRRTN1 EQU CRRSAREA+224 00553000 CRRBFLGS EQU CRRSAREA+280 00554000 ISTLCCW EQU 0 00555000 LCCWOP EQU ISTLCCW 00556000 LCCWRWOP EQU LCCWOP 00557000 LCCWCTL EQU LCCWRWOP 00558000 LCCWFLAG EQU ISTLCCW+1 00559000 LCCWLSI EQU LCCWFLAG 00560000 ISTLCPB EQU 0 00561000 LCPREQTG EQU ISTLCPB+2 00562000 LCPFLAGS EQU LCPREQTG 00563000 LCPZF001 EQU LCPFLAGS 00564000 LCPZRT02 EQU LCPZF001 00565000 LCPZF002 EQU LCPFLAGS 00566000 LCPZRT03 EQU LCPZF002 00567000 LCPZF003 EQU LCPFLAGS 00568000 LCPZRT04 EQU LCPZF003 00569000 LCPZF004 EQU LCPFLAGS 00570000 LCPZRT05 EQU LCPZF004 00571000 LCPZRT06 EQU LCPFLAGS 00572000 LCPZRT07 EQU LCPFLAGS 00573000 LCPMNRCD EQU LCPREQTG+1 00574000 LCPZRT08 EQU LCPMNRCD 00575000 LCPZRT09 EQU LCPMNRCD 00576000 LCPCHAIN EQU ISTLCPB+4 00577000 LCPCHAI1 EQU LCPCHAIN 00578000 LCPRUCNT EQU ISTLCPB+8 00579000 LCPFLAG2 EQU ISTLCPB+9 00580000 LCPTLBPI EQU LCPFLAG2 00581000 LCPFID0 EQU LCPFLAG2 00582000 LCPSEQ EQU ISTLCPB+10 00583000 LCPCID EQU ISTLCPB+16 00584000 LCPNXLCW EQU ISTLCPB+20 00585000 LCPFDBA EQU ISTLCPB+24 00586000 LCPFLG1 EQU ISTLCPB+37 00587000 LCPFLCCW EQU ISTLCPB+40 00588000 LCPLCCW EQU ISTLCPB+48 00589000 LCPPABA EQU LCPLCCW+4 00590000 LCPRPHA EQU LCPPABA 00591000 ISTZSAVE EQU 0 00592000 ZSAZSVBC EQU ISTZSAVE 00593000 ZSAZSVMS EQU ZSAZSVBC 00594000 ISTPFCRR EQU 0 00595000 PFCCRR EQU ISTPFCRR 00596000 PFCCRRID EQU PFCCRR 00597000 PFCCRRLN EQU PFCCRR+2 00598000 PFCHDR EQU ISTPFCRR+4 00599000 PFCCRRO EQU PFCHDR 00600000 PFCFRRO EQU PFCHDR+4 00601000 ISTCFCRR EQU 0 00602000 CFCAUDIT EQU ISTCFCRR 00603000 CFCNTRD EQU CFCAUDIT 00604000 CFCCRT EQU CFCAUDIT+1 00605000 ISTZCRR EQU 0 00606000 ZCRCRR EQU ISTZCRR 00607000 ZCRFLGS1 EQU ISTZCRR+12 00608000 ZCRFLGS2 EQU ISTZCRR+13 00609000 ZCRSWFLD EQU ISTZCRR+14 00610000 ZCRENDSH EQU ZCRSWFLD 00611000 ZCRNDLCP EQU ZCRSWFLD 00612000 ZCRRESET EQU ZCRSWFLD 00613000 ZCRFLGS3 EQU ISTZCRR+15 00614000 ZCRGENSW EQU ISTZCRR+16 00615000 ZCRPFLGS EQU ISTZCRR+17 00616000 ZCRIBPR EQU ISTZCRR+18 00617000 ZCRSCPSW EQU ISTZCRR+19 00618000 ZCRPARMS EQU ISTZCRR+24 00619000 ZCRFBPTR EQU ZCRPARMS 00620000 ZCRDFRDA EQU ZCRPARMS+10 00621000 ZCRPCOD1 EQU ZCRPARMS+12 00622000 ZCRPLSBF EQU ZCRPCOD1 00623000 ZCRPCOD2 EQU ZCRPARMS+13 00624000 ZCRSVRTN EQU ISTZCRR+56 00625000 ZCRWKARA EQU ISTZCRR+156 00626000 ZCRCIDSV EQU ISTZCRR+192 00627000 ZCRAUDIT EQU ISTZCRR+440 00628000 ZCRENTER EQU ZCRAUDIT+5 00629000 ZCRLCPB EQU ISTZCRR+480 00630000 ZCRRHRU EQU ZCRLCPB 00631000 ISTASCRR EQU 0 00632000 ASCFLAGS EQU ISTASCRR+16 00633000 ASCFLG1 EQU ASCFLAGS 00634000 ASCFLG2 EQU ASCFLAGS+2 00635000 ASCFLG3 EQU ASCFLAGS+4 00636000 ASCUSRGS EQU ISTASCRR+28 00637000 ISTAPCRR EQU 0 00638000 APCATFLG EQU ISTAPCRR+16 00639000 APCRFLG EQU ISTAPCRR+18 00640000 APCSAVE EQU ISTAPCRR+44 00641000 APCCOMF EQU ISTAPCRR+116 00642000 APCCOMF1 EQU APCCOMF 00643000 APC31FLG EQU ISTAPCRR+132 00644000 APC52FLG EQU ISTAPCRR+133 00645000 APC53FLG EQU ISTAPCRR+134 00646000 APC54FLG EQU ISTAPCRR+135 00647000 APC57FLG EQU ISTAPCRR+136 00648000 ISTCRA EQU 0 00649000 CRABASIC EQU ISTCRA 00650000 CRAHDR EQU CRABASIC 00651000 CRACRR EQU CRAHDR 00652000 CRALKACT EQU CRABASIC+8 00653000 CRASVC EQU ISTCRA+848 00654000 CRABUFA EQU CRASVC+68 00655000 ISTPAB EQU 0 00656000 PABWQCHN EQU ISTPAB 00657000 PABWEQA EQU PABWQCHN 00658000 PABCHAIN EQU PABWQCHN+4 00659000 PABRPHFG EQU ISTPAB+12 00660000 PABFLAGS EQU PABRPHFG 00661000 PABERLCK EQU PABFLAGS 00662000 PABERRLK EQU PABERLCK 00663000 ISTLOK EQU 0 00664000 LOKCHN EQU ISTLOK+1 00665000 LOKCHNG EQU LOKCHN 00666000 @NM00051 EQU LOKCHNG+2 00667000 ISTDEVCH EQU 0 00668000 DEVSHCH EQU ISTDEVCH 00669000 DEVCHAR EQU DEVSHCH 00670000 DEVTCODE EQU ISTDEVCH+1 00671000 DEVCHAR2 EQU DEVTCODE 00672000 DEVFLAGS EQU ISTDEVCH+3 00673000 DEVFCCTL EQU DEVFLAGS 00674000 DEVCBSC EQU DEVFCCTL 00675000 DEVCRVB EQU DEVFCCTL 00676000 DEVCHAR3 EQU DEVFLAGS 00677000 ISTPROCD EQU 0 00678000 PROPROC EQU ISTPROCD 00679000 PROPROC1 EQU PROPROC 00680000 PROPROC2 EQU PROPROC+1 00681000 PROPROC3 EQU PROPROC+2 00682000 PROPROC4 EQU PROPROC+3 00683000 PROPROCS EQU 0 00684000 PROSETMS EQU PROPROCS+1 00685000 PROSETM2 EQU PROSETMS 00686000 PROSETM3 EQU PROSETMS+1 00687000 PROSETM4 EQU PROSETMS+2 00688000 ISTFMCB EQU 0 00689000 FMCDNCBA EQU ISTFMCB+16 00690000 FMCSTAT EQU ISTFMCB+28 00691000 FMCSTAT1 EQU ISTFMCB+29 00692000 FMCCMDFL EQU ISTFMCB+31 00693000 FMCCMPS1 EQU ISTFMCB+36 00694000 FMCPAB3 EQU ISTFMCB+96 00695000 FMCSIPA EQU ISTFMCB+148 00696000 FMCNXOSQ EQU ISTFMCB+152 00697000 FMCNXCFM EQU FMCNXOSQ 00698000 FMCNXOSC EQU FMCNXOSQ+2 00699000 FMCSSTAT EQU ISTFMCB+159 00700000 FMCPACE EQU ISTFMCB+160 00701000 FMCPACEN EQU FMCPACE 00702000 FMCPACEM EQU FMCPACE+1 00703000 FMCPACPC EQU FMCPACE+2 00704000 FMCCVAL EQU FMCPACE+3 00705000 FMCOBCE EQU FMCCVAL 00706000 FMCCLEXT EQU ISTFMCB+164 00707000 FMCRPLA EQU FMCCLEXT 00708000 FMCFBA EQU FMCCLEXT+4 00709000 FMCCMPS2 EQU FMCCLEXT+16 00710000 FMCFLGA EQU FMCCMPS2 00711000 FMCFLGCL EQU FMCCMPS2+1 00712000 FMCPSCMD EQU FMCCMPS2+2 00713000 FMCPSTAT EQU FMCCMPS2+3 00714000 FMCSTAT2 EQU ISTFMCB+186 00715000 FMCMODEB EQU ISTFMCB+189 00716000 FMCCLSEQ EQU ISTFMCB+190 00717000 FMCRRESP EQU ISTFMCB+195 00718000 FMCSSEGQ EQU ISTFMCB+200 00719000 FMCFBAS EQU ISTFMCB+216 00720000 FMCZV002 EQU FMCFBAS 00721000 FMCSNCTL EQU ISTFMCB+224 00722000 FMCSCFLG EQU FMCSNCTL 00723000 FMCVS1 EQU ISTFMCB+232 00724000 FMCZFLAG EQU FMCVS1 00725000 FMCZF006 EQU FMCZFLAG 00726000 FMCLBXM EQU FMCVS1+12 00727000 FMCSHEAQ EQU FMCLBXM 00728000 FMCLCPBQ EQU FMCVS1+16 00729000 FMCLCPAQ EQU FMCVS1+20 00730000 FMCSEQ1 EQU FMCVS1+34 00731000 FMCZFLG2 EQU FMCVS1+35 00732000 FMCCVFLG EQU FMCVS1+44 00733000 FMCFLAG EQU 0 00734000 FMCFLGB EQU FMCFLAG 00735000 ISTDCLCP EQU 0 00736000 DCLLCPB EQU ISTDCLCP 00737000 DCLLCCW2 EQU ISTDCLCP+56 00738000 DCLRTYPE EQU ISTDCLCP+76 00739000 DCLRFLG EQU DCLRTYPE+1 00740000 DCLFLAG1 EQU ISTDCLCP+78 00741000 DCLLDO1 EQU ISTDCLCP+80 00742000 ISTLDO EQU 0 00743000 LDOCMD EQU ISTLDO 00744000 LDOFLAGS EQU ISTLDO+1 00745000 LDOACHN EQU LDOFLAGS 00746000 LDOCMHN EQU LDOFLAGS 00747000 ISTDYPAB EQU 0 00748000 ISTATCVT EQU 0 00749000 ATCCOM EQU ISTATCVT 00750000 ATCSTAT EQU ATCCOM 00751000 ATCSTAT1 EQU ATCSTAT 00752000 ATCSTFLG EQU ATCSTAT+1 00753000 ATCPOFLG EQU ATCSTAT+2 00754000 ATCSTAT4 EQU ATCSTAT+3 00755000 ATCIOTRC EQU ATCCOM+140 00756000 ATCTHTRC EQU ATCIOTRC 00757000 ATCESC01 EQU ISTATCVT+288 00758000 ATCCSMR EQU ISTATCVT+296 00759000 ATCSHRFG EQU ISTATCVT+316 00760000 ATCHPGM EQU ISTATCVT+384 00761000 ATCVLCNT EQU ISTATCVT+772 00762000 ATCSOPD EQU ISTATCVT+792 00763000 ATCSIPD EQU ISTATCVT+800 00764000 ATCSECST EQU ISTATCVT+812 00765000 ATCAOSM EQU ISTATCVT+912 00766000 ATCGSRBQ EQU ATCAOSM+4 00767000 ATCGSRBG EQU ATCGSRBQ 00768000 ATCICAPP EQU ATCAOSM+100 00769000 ATCLDAPP EQU ATCAOSM+120 00770000 ATCDAPVT EQU ATCAOSM+140 00771000 ATCVTFLG EQU ATCAOSM+392 00772000 ATCZFLAG EQU ATCAOSM+588 00773000 ISTNCB EQU 0 00774000 NCBFLAGS EQU ISTNCB+24 00775000 NCBFRAS EQU NCBFLAGS+1 00776000 NCBFTRIO EQU NCBFRAS 00777000 NCBFLAG1 EQU NCBFLAGS+2 00778000 NCBDEVCH EQU ISTNCB+36 00779000 ISTDNCB EQU 0 00780000 DNCNCB EQU ISTDNCB 00781000 DNCOS EQU ISTDNCB+56 00782000 DNCZFLGS EQU DNCOS 00783000 DNCBSCED EQU DNCOS+2 00784000 ISTAVT EQU 0 00785000 ISTAS49 EQU ISTAVT+4 00786000 FMZL0007 EQU 0 00787000 ISTRPL EQU 0 00788000 LCPZTIE EQU LCPCID 00789000 LCPZSNAM EQU LCPZTIE+8 00790000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00791000 LCPZTRV4 EQU LCPZSNAM+4 00792000 LCPZTRV1 EQU LCPZSNAM 00793000 LCPZSNA EQU LCPZTIE+4 00794000 LCPZFMCA EQU LCPZTIE 00795000 ISTPDAVP EQU ISTAVT+40 00796000 ISTAVR01 EQU ISTAVT+38 00797000 ISTVTTP EQU ISTAVT+36 00798000 ISTAGTWT EQU ISTAVT+34 00799000 ISTATRT EQU ISTAVT+32 00800000 ISTARID EQU ISTAVT+30 00801000 ISTX1 EQU ISTAVT+29 00802000 ISTPHNM EQU ISTAVT+24 00803000 ISTAPSEX EQU ISTAVT+20 00804000 ISTVTTIK EQU ISTAVT+18 00805000 AVTASID EQU ISTAVT+16 00806000 ISTAPSTA EQU ISTAVT+12 00807000 ISTAS53 EQU ISTAVT+8 00808000 ISTAHIP EQU ISTAS49 00809000 ISTACVT EQU ISTAVT 00810000 DNCZC001 EQU DNCOS+40 00811000 DNCLOCK EQU DNCOS+36 00812000 DNCZV005 EQU DNCOS+32 00813000 DNCZV004 EQU DNCOS+28 00814000 DNCZV003 EQU DNCOS+24 00815000 DNCZV002 EQU DNCOS+21 00816000 DNCZX001 EQU DNCOS+20 00817000 DNCZV001 EQU DNCOS+17 00818000 DNCZX003 EQU DNCOS+16 00819000 DNCZV000 EQU DNCOS+12 00820000 DNCSESCQ EQU DNCOS+8 00821000 DNCSESIQ EQU DNCOS+4 00822000 DNCACIP EQU DNCBSCED+1 00823000 DNCLICP EQU DNCBSCED 00824000 DNCZF008 EQU DNCZFLGS+1 00825000 DNCZPSRD EQU DNCZFLGS+1 00826000 DNCPSOL EQU DNCZFLGS+1 00827000 DNCZF007 EQU DNCZFLGS+1 00828000 DNCZF006 EQU DNCZFLGS+1 00829000 DNCZF005 EQU DNCZFLGS+1 00830000 DNCZF004 EQU DNCZFLGS+1 00831000 DNCZF003 EQU DNCZFLGS 00832000 DNCZF002 EQU DNCZFLGS 00833000 DNCZRSCH EQU DNCZFLGS 00834000 DNCDISC EQU DNCZFLGS 00835000 DNCCONT EQU DNCZFLGS 00836000 DNCINVIT EQU DNCZFLGS 00837000 DNCSESS EQU DNCZFLGS 00838000 DNCZF001 EQU DNCZFLGS 00839000 DNCMODE EQU ISTDNCB+49 00840000 DNCBHSET EQU ISTDNCB+48 00841000 NCBRSV01 EQU ISTNCB+46 00842000 NCBSWDAF EQU ISTNCB+44 00843000 NCBFMCBP EQU ISTNCB+32 00844000 NCBLTRC EQU ISTNCB+30 00845000 NCBRVPT1 EQU ISTNCB+28 00846000 NCBNMLLN EQU NCBFLAGS+3 00847000 @NM00065 EQU NCBFLAG1 00848000 @NM00064 EQU NCBFLAG1 00849000 NCBTTF EQU NCBFLAG1 00850000 NCBRSYNC EQU NCBFLAG1 00851000 NCBRSTRT EQU NCBFLAG1 00852000 NCBCONF EQU NCBFLAG1 00853000 NCBSNAI EQU NCBFLAG1 00854000 NCBFLTIO EQU NCBFTRIO 00855000 NCBCSTAT EQU NCBFLAGS 00856000 NCBNCSL EQU ISTNCB+22 00857000 NCBNCBA EQU ISTNCB+20 00858000 NCBFMCBA EQU ISTNCB+16 00859000 NCBNSNA EQU ISTNCB+12 00860000 NCBTSKID EQU ISTNCB+8 00861000 NCBRDTE EQU ISTNCB+4 00862000 NCBDAF EQU ISTNCB+2 00863000 NCBLNGTH EQU ISTNCB+1 00864000 NCBTYPE EQU ISTNCB 00865000 ATCAOS EQU ISTATCVT+1552 00866000 ATCVIOPM EQU ATCAOSM+636 00867000 ATCTPMMI EQU ATCAOSM+632 00868000 ATCTPMPB EQU ATCAOSM+600 00869000 ATCRPLCT EQU ATCAOSM+594 00870000 ATCCRACT EQU ATCAOSM+592 00871000 ATCSRBCT EQU ATCAOSM+590 00872000 ATCRSV75 EQU ATCAOSM+589 00873000 ATCRSV66 EQU ATCZFLAG 00874000 ATCZF001 EQU ATCZFLAG 00875000 ATCTPCP1 EQU ATCAOSM+584 00876000 ATCTPCP0 EQU ATCAOSM+580 00877000 ATCAICTN EQU ATCAOSM+576 00878000 ATCZR01 EQU ATCAOSM+572 00879000 ATCMPLTA EQU ATCAOSM+568 00880000 ATCASCB EQU ATCAOSM+564 00881000 ATCAP86 EQU ATCAOSM+560 00882000 ATCAP85 EQU ATCAOSM+556 00883000 ATCAP84 EQU ATCAOSM+552 00884000 ATCAP83 EQU ATCAOSM+548 00885000 ATCAP82 EQU ATCAOSM+544 00886000 ATCAP69 EQU ATCAOSM+540 00887000 ATCAP66 EQU ATCAOSM+536 00888000 ATCAP62 EQU ATCAOSM+532 00889000 ATCAPC59 EQU ATCAOSM+528 00890000 ATCAP56 EQU ATCAOSM+524 00891000 ATCAP55 EQU ATCAOSM+520 00892000 ATCRCFY0 EQU ATCAOSM+516 00893000 ATCAP41 EQU ATCAOSM+512 00894000 ATCAPC25 EQU ATCAOSM+508 00895000 ATCAP23 EQU ATCAOSM+504 00896000 ATCTPSPB EQU ATCAOSM+472 00897000 ATCTRMBP EQU ATCAOSM+440 00898000 ATCPSTA EQU ATCAOSM+432 00899000 ATCSMABF EQU ATCAOSM+428 00900000 ATCSMAPR EQU ATCAOSM+424 00901000 ATCTPWQA EQU ATCAOSM+420 00902000 ATCSMAID EQU ATCAOSM+416 00903000 ATCSMARA EQU ATCAOSM+412 00904000 ATCCACXA EQU ATCAOSM+408 00905000 ATCZLAAB EQU ATCAOSM+404 00906000 ATCATA10 EQU ATCAOSM+400 00907000 ATCHLTCB EQU ATCAOSM+396 00908000 @NM00063 EQU ATCVTFLG 00909000 ATCVTACT EQU ATCVTFLG 00910000 ATCRPT40 EQU ATCAOSM+388 00911000 ATCRPT39 EQU ATCAOSM+384 00912000 ATCRPT38 EQU ATCAOSM+380 00913000 ATCRPT37 EQU ATCAOSM+376 00914000 ATCRPT36 EQU ATCAOSM+372 00915000 ATCRPT35 EQU ATCAOSM+368 00916000 ATCRPT34 EQU ATCAOSM+364 00917000 ATCRPT33 EQU ATCAOSM+360 00918000 ATCRPT32 EQU ATCAOSM+356 00919000 ATCRPT31 EQU ATCAOSM+352 00920000 ATCRPT30 EQU ATCAOSM+348 00921000 ATCRPT29 EQU ATCAOSM+344 00922000 ATCRPT28 EQU ATCAOSM+340 00923000 ATCRPT27 EQU ATCAOSM+336 00924000 ATCRPT26 EQU ATCAOSM+332 00925000 ATCRPT25 EQU ATCAOSM+328 00926000 ATCRPT24 EQU ATCAOSM+324 00927000 ATCRPT23 EQU ATCAOSM+320 00928000 ATCRPT22 EQU ATCAOSM+316 00929000 ATCRPT21 EQU ATCAOSM+312 00930000 ATCRPT20 EQU ATCAOSM+308 00931000 ATCRPT19 EQU ATCAOSM+304 00932000 ATCRPT18 EQU ATCAOSM+300 00933000 ATCRPT17 EQU ATCAOSM+296 00934000 ATCRPT16 EQU ATCAOSM+292 00935000 ATCRPT15 EQU ATCAOSM+288 00936000 ATCRPT14 EQU ATCAOSM+284 00937000 ATCRPT13 EQU ATCAOSM+280 00938000 ATCRPT12 EQU ATCAOSM+276 00939000 ATCRPT11 EQU ATCAOSM+272 00940000 ATCAP38 EQU ATCAOSM+268 00941000 ATCAP37 EQU ATCAOSM+264 00942000 ATCZDFJ0 EQU ATCAOSM+260 00943000 ATCAP51 EQU ATCAOSM+256 00944000 ATCZPAB2 EQU ATCAOSM+224 00945000 ATCZPAB1 EQU ATCAOSM+192 00946000 ATCZLFVT EQU ATCAOSM+188 00947000 ATCZLPVT EQU ATCAOSM+184 00948000 ATCZDVTX EQU ATCAOSM+180 00949000 ATCZDVTA EQU ATCAOSM+176 00950000 ATCZDVT9 EQU ATCAOSM+172 00951000 ATCZDVT8 EQU ATCAOSM+168 00952000 ATCZDVT7 EQU ATCAOSM+164 00953000 ATCRSV56 EQU ATCDAPVT+22 00954000 ATCDAPDG EQU ATCDAPVT+20 00955000 ATCDXCEA EQU ATCDAPVT+16 00956000 ATCDCEA EQU ATCDAPVT+12 00957000 ATCDPCIA EQU ATCDAPVT+8 00958000 ATCDSIOA EQU ATCDAPVT+4 00959000 ATCDEOEA EQU ATCDAPVT 00960000 ATCZLAEA EQU ATCLDAPP+16 00961000 ATCZLCEA EQU ATCLDAPP+12 00962000 ATCRSV17 EQU ATCLDAPP+8 00963000 ATCSMFRR EQU ATCLDAPP+4 00964000 ATCCDTID EQU ATCLDAPP 00965000 ATCZAEA EQU ATCICAPP+16 00966000 ATCZCEA EQU ATCICAPP+12 00967000 ATCCDTCB EQU ATCICAPP+8 00968000 ATCZSIOA EQU ATCICAPP+4 00969000 ATCCDRPH EQU ATCICAPP 00970000 ATCAP65 EQU ATCAOSM+96 00971000 ATCZDVT6 EQU ATCAOSM+92 00972000 ATCZDVT4 EQU ATCAOSM+88 00973000 ATCZDVT3 EQU ATCAOSM+84 00974000 ATCZDVT1 EQU ATCAOSM+80 00975000 ATCICNCB EQU ATCAOSM+76 00976000 ATCZPSVT EQU ATCAOSM+72 00977000 ATCZFSVT EQU ATCAOSM+68 00978000 ATCAP64 EQU ATCAOSM+64 00979000 ATCAP63 EQU ATCAOSM+60 00980000 ATCAP61 EQU ATCAOSM+56 00981000 ATCAP58 EQU ATCAOSM+52 00982000 ATCAP57 EQU ATCAOSM+48 00983000 ATCAP54 EQU ATCAOSM+44 00984000 ATCAP53 EQU ATCAOSM+40 00985000 ATCAP52 EQU ATCAOSM+36 00986000 ATCAP34 EQU ATCAOSM+32 00987000 ATCAP32 EQU ATCAOSM+28 00988000 ATCAP31 EQU ATCAOSM+24 00989000 ATCAP12 EQU ATCAOSM+20 00990000 ATCAP11 EQU ATCAOSM+16 00991000 ATCCMTCB EQU ATCAOSM+12 00992000 ATCPRPH EQU ATCAOSM+8 00993000 ATCGSRBF EQU ATCGSRBG 00994000 ATCSRBRT EQU ATCAOSM 00995000 ATCRSVBB EQU ISTATCVT+908 00996000 ATCVDLOK EQU ISTATCVT+904 00997000 ATCVFPAB EQU ISTATCVT+872 00998000 ATCVDPAB EQU ISTATCVT+840 00999000 ATCIOECB EQU ISTATCVT+836 01000000 ATCINCW3 EQU ISTATCVT+832 01001000 ATCMODTB EQU ISTATCVT+828 01002000 ATCUSSPT EQU ISTATCVT+824 01003000 ATCSRTAB EQU ISTATCVT+820 01004000 @NM00062 EQU ISTATCVT+818 01005000 ATCNMCTR EQU ISTATCVT+816 01006000 ATCSEC51 EQU ATCSECST 01007000 ATCSEC40 EQU ATCSIPD+8 01008000 ATCSEC30 EQU ATCSIPD+4 01009000 ATCSEC21 EQU ATCSIPD 01010000 ATCSEC10 EQU ATCSOPD+4 01011000 ATCSEC01 EQU ATCSOPD 01012000 ATCPOIA EQU ISTATCVT+788 01013000 ATCPODVT EQU ISTATCVT+784 01014000 ATCS49XL EQU ISTATCVT+780 01015000 ATCS49XI EQU ISTATCVT+776 01016000 ATCLCLCT EQU ATCVLCNT+2 01017000 ATCRNCNT EQU ATCVLCNT 01018000 ATCCFEAD EQU ISTATCVT+768 01019000 ATCPTR00 EQU ISTATCVT+736 01020000 ATCRSV10 EQU ISTATCVT+704 01021000 ATCTACB EQU ISTATCVT+700 01022000 ATCVTINM EQU ISTATCVT+696 01023000 ATCTCLIM EQU ISTATCVT+692 01024000 ATCTCLOM EQU ISTATCVT+688 01025000 ATCVTIPB EQU ISTATCVT+656 01026000 ATCTCIPB EQU ISTATCVT+624 01027000 ATCTIPAB EQU ISTATCVT+592 01028000 ATCOCCCB EQU ISTATCVT+588 01029000 ATCOCCOB EQU ISTATCVT+584 01030000 ATCCDLAD EQU ISTATCVT+580 01031000 ATCCCLAD EQU ISTATCVT+576 01032000 ATCDLRPB EQU ISTATCVT+544 01033000 ATCPGPAB EQU ISTATCVT+512 01034000 ATCVPAB1 EQU ISTATCVT+480 01035000 ATCRSV97 EQU ISTATCVT+476 01036000 ATCRDTLK EQU ISTATCVT+472 01037000 ATCVOCLK EQU ISTATCVT+468 01038000 ATCCDFDN EQU ISTATCVT+464 01039000 ATCCDFIN EQU ISTATCVT+460 01040000 ATCDVTLK EQU ISTATCVT+456 01041000 ATCAP36 EQU ISTATCVT+452 01042000 ATCAP35 EQU ISTATCVT+448 01043000 ATCAP33 EQU ISTATCVT+444 01044000 ATCRSV99 EQU ISTATCVT+412 01045000 ATCLDECB EQU ISTATCVT+408 01046000 ATCLDNCS EQU ISTATCVT+404 01047000 ATCCDPTR EQU ISTATCVT+400 01048000 ATCADEL EQU ISTATCVT+396 01049000 ATCTODVT EQU ISTATCVT+392 01050000 ATCDEBCH EQU ISTATCVT+388 01051000 ATCHBSIZ EQU ATCHPGM+2 01052000 ATCHBFNO EQU ATCHPGM 01053000 ATCCRME EQU ISTATCVT+380 01054000 ATCRVCHS EQU ISTATCVT+372 01055000 ATCECTLP EQU ISTATCVT+368 01056000 ATCZDVTB EQU ISTATCVT+364 01057000 ATCECPRT EQU ISTATCVT+360 01058000 ATCVTLOD EQU ISTATCVT+356 01059000 ATCTRPAB EQU ISTATCVT+352 01060000 ATCMSGM EQU ISTATCVT+348 01061000 ATCMSGP EQU ISTATCVT+344 01062000 ATCEPT EQU ISTATCVT+340 01063000 ATCDVT EQU ISTATCVT+336 01064000 ATCTRCPT EQU ISTATCVT+332 01065000 ATCDVLOD EQU ISTATCVT+328 01066000 ATCALERT EQU ISTATCVT+324 01067000 ATCEPA EQU ISTATCVT+320 01068000 ATCSAF EQU ISTATCVT+318 01069000 ATCXRANG EQU ISTATCVT+317 01070000 ATCLAST EQU ATCSHRFG 01071000 ATCSHRTN EQU ISTATCVT+308 01072000 ATCUEP EQU ISTATCVT+304 01073000 ATCOCRT EQU ISTATCVT+300 01074000 ATCCSMA EQU ATCCSMR 01075000 ATCESC02 EQU ISTATCVT+292 01076000 ATCCDFND EQU ISTATCVT+284 01077000 ATCCDDEL EQU ISTATCVT+280 01078000 ATCCDADD EQU ISTATCVT+276 01079000 ATCMNT EQU ISTATCVT+272 01080000 ATCRSV16 EQU ISTATCVT+270 01081000 ATCMAXID EQU ISTATCVT+269 01082000 ATCMSGSP EQU ATCCOM+268 01083000 ATCCIDM EQU ATCCOM+266 01084000 ATCACTRM EQU ATCCOM+264 01085000 ATCNERAP EQU ATCCOM+260 01086000 ATCNESAL EQU ATCCOM+256 01087000 ATCRCC65 EQU ATCCOM+252 01088000 ATCRCC26 EQU ATCCOM+248 01089000 ATCRCC63 EQU ATCCOM+244 01090000 ATCRSV11 EQU ATCCOM+242 01091000 ATCVTMID EQU ATCCOM+240 01092000 ATCAPOST EQU ATCCOM+236 01093000 ATCNERFN EQU ATCCOM+232 01094000 ATCNERNE EQU ATCCOM+228 01095000 ATCNERCV EQU ATCCOM+224 01096000 ATCNERST EQU ATCCOM+220 01097000 ATCDCC61 EQU ATCCOM+216 01098000 ATCDCC60 EQU ATCCOM+212 01099000 ATCSRTDF EQU ATCCOM+208 01100000 ATCSRTAD EQU ATCCOM+204 01101000 ATCFIRA EQU ATCCOM+200 01102000 ATCSMBQ EQU ATCCOM+196 01103000 ATCSMRC EQU ATCCOM+192 01104000 ATCSMRS EQU ATCCOM+188 01105000 ATCSMQU EQU ATCCOM+184 01106000 ATCSMRQ EQU ATCCOM+180 01107000 ATCACDA EQU ATCCOM+176 01108000 ATCSTMA EQU ATCCOM+172 01109000 ATCFRSTR EQU ATCCOM+168 01110000 ATCGTSTR EQU ATCCOM+164 01111000 ATCREADA EQU ATCCOM+160 01112000 ATCALOAD EQU ATCCOM+156 01113000 ATCBLDLA EQU ATCCOM+152 01114000 ATCFBRPH EQU ATCCOM+148 01115000 ATCBFTRC EQU ATCCOM+144 01116000 ATCTPBUF EQU ATCTHTRC 01117000 ATCREMOV EQU ATCCOM+136 01118000 ATCADD EQU ATCCOM+132 01119000 ATCBPDA EQU ATCCOM+128 01120000 ATCDVTPT EQU ATCCOM+124 01121000 ATCFEPT EQU ATCCOM+120 01122000 ATCFDVT EQU ATCCOM+116 01123000 ATCCONFT EQU ATCCOM+112 01124000 ATCPTCHA EQU ATCCOM+108 01125000 ATCAUTHA EQU ATCCOM+104 01126000 ATCACCTA EQU ATCCOM+100 01127000 ATCRDTH EQU ATCCOM+96 01128000 ATCFRSCH EQU ATCCOM+92 01129000 ATCFSB EQU ATCCOM+88 01130000 ATCHLTMS EQU ATCCOM+84 01131000 ATCECPRM EQU ATCCOM+80 01132000 ATCECNET EQU ATCCOM+76 01133000 ATCECOPC EQU ATCCOM+72 01134000 ATCVPARM EQU ATCCOM+68 01135000 ATCECVRQ EQU ATCCOM+64 01136000 ATCECSES EQU ATCCOM+60 01137000 ATCOCHA EQU ATCCOM+56 01138000 ATCDSPLQ EQU ATCCOM+52 01139000 ATCECDSP EQU ATCCOM+48 01140000 ATCVARYQ EQU ATCCOM+44 01141000 ATCECVRY EQU ATCCOM+40 01142000 ATCHALTQ EQU ATCCOM+36 01143000 ATCECHLT EQU ATCCOM+32 01144000 ATCMODQ EQU ATCCOM+28 01145000 ATCECMOD EQU ATCCOM+24 01146000 ATCASCHD EQU ATCCOM+20 01147000 ATCSRT EQU ATCCOM+16 01148000 ATCRDT EQU ATCCOM+12 01149000 ATCDCFRR EQU ATCCOM+8 01150000 ATCAPI EQU ATCCOM+4 01151000 ATCRSV04 EQU ATCSTAT4 01152000 ATCNCSD EQU ATCSTAT4 01153000 ATCMTST EQU ATCSTAT4 01154000 ATCTPRT EQU ATCSTAT4 01155000 ATCPRTAT EQU ATCSTAT4 01156000 @NM00061 EQU ATCPOFLG 01157000 ATCPOUNS EQU ATCPOFLG 01158000 ATCHSDMF EQU ATCSTFLG 01159000 @NM00060 EQU ATCSTAT1 01160000 ATCINHLT EQU ATCSTAT1 01161000 ATCNETSL EQU ATCSTAT1 01162000 ATCQKHLT EQU ATCSTAT1 01163000 ATCSNHLT EQU ATCSTAT1 01164000 ATCACTIV EQU ATCSTAT1 01165000 ATCSTART EQU ATCSTAT1 01166000 DYPPAB EQU ISTDYPAB+16 01167000 DYPRSV01 EQU ISTDYPAB+12 01168000 DYPTSKID EQU ISTDYPAB+8 01169000 DYPCHAIN EQU ISTDYPAB+4 01170000 DYPFLGS EQU ISTDYPAB+2 01171000 DYPLNGTH EQU ISTDYPAB+1 01172000 DYPTYPE EQU ISTDYPAB 01173000 LDOADDR EQU ISTLDO+4 01174000 LDOLEN EQU ISTLDO+2 01175000 DCLECHAR EQU ISTDCLCP+98 01176000 DCLIOLEN EQU ISTDCLCP+96 01177000 DCLBTLEN EQU ISTDCLCP+92 01178000 DCLCLDOA EQU ISTDCLCP+88 01179000 DCLIOBUF EQU ISTDCLCP+84 01180000 DCLRSV03 EQU ISTDCLCP+79 01181000 DCLRSV02 EQU DCLFLAG1 01182000 DCLRPLS EQU DCLFLAG1 01183000 DCLBTEIS EQU DCLFLAG1 01184000 DCLNODE EQU DCLFLAG1 01185000 DCLRSV04 EQU DCLFLAG1 01186000 DCLSRESW EQU DCLFLAG1 01187000 DCLBNSP EQU DCLRFLG 01188000 DCLCONV EQU DCLRFLG 01189000 DCLRSV01 EQU DCLRFLG 01190000 DCLRQTP EQU DCLRTYPE 01191000 DCLRPLA EQU ISTDCLCP+72 01192000 DCLLCCW3 EQU ISTDCLCP+64 01193000 FMCFLRSV EQU FMCFLGB 01194000 FMCFLGA8 EQU FMCFLGB 01195000 FMCCLRPH EQU FMCVS1+45 01196000 FMCRSV0X EQU FMCCVFLG 01197000 FMCVYRPH EQU FMCCVFLG 01198000 FMCZV004 EQU FMCVS1+40 01199000 FMCLOCK2 EQU FMCVS1+36 01200000 @NM00059 EQU FMCZFLG2 01201000 FMCZF027 EQU FMCZFLG2 01202000 FMCZF026 EQU FMCZFLG2 01203000 FMCSEQ1B EQU FMCSEQ1 01204000 FMCSEQ1T EQU FMCSEQ1 01205000 FMCZX006 EQU FMCVS1+33 01206000 FMCZX005 EQU FMCVS1+32 01207000 FMCZX004 EQU FMCVS1+31 01208000 FMCZX003 EQU FMCVS1+30 01209000 FMCZX002 EQU FMCVS1+29 01210000 FMCZX001 EQU FMCVS1+28 01211000 FMCZV001 EQU FMCVS1+24 01212000 FMCAWATQ EQU FMCLCPAQ+1 01213000 @NM00058 EQU FMCLCPAQ 01214000 FMCLCPB2 EQU FMCLCPBQ+1 01215000 FMCLCPB1 EQU FMCLCPBQ 01216000 FMCASCDQ EQU FMCSHEAQ+1 01217000 @NM00057 EQU FMCSHEAQ 01218000 FMCSHEDQ EQU FMCVS1+8 01219000 FMCRSV04 EQU FMCVS1+6 01220000 FMCZH001 EQU FMCVS1+4 01221000 FMCZF025 EQU FMCZFLAG+3 01222000 FMCZF024 EQU FMCZFLAG+3 01223000 FMCZF023 EQU FMCZFLAG+3 01224000 FMCZF022 EQU FMCZFLAG+3 01225000 FMCZF021 EQU FMCZFLAG+3 01226000 FMCZF020 EQU FMCZFLAG+3 01227000 FMCZF019 EQU FMCZFLAG+3 01228000 FMCZF018 EQU FMCZFLAG+3 01229000 FMCZF017 EQU FMCZFLAG+2 01230000 FMCZF016 EQU FMCZFLAG+2 01231000 FMCZF015 EQU FMCZFLAG+2 01232000 FMCZF014 EQU FMCZFLAG+2 01233000 FMCZF013 EQU FMCZFLAG+2 01234000 FMCZF012 EQU FMCZFLAG+2 01235000 FMCZF011 EQU FMCZFLAG+2 01236000 FMCZF010 EQU FMCZFLAG+2 01237000 FMCZF00F EQU FMCZFLAG+1 01238000 FMCZF00E EQU FMCZFLAG+1 01239000 FMCZF00D EQU FMCZFLAG+1 01240000 FMCZF00C EQU FMCZFLAG+1 01241000 FMCZF00B EQU FMCZFLAG+1 01242000 FMCRSV10 EQU FMCZFLAG+1 01243000 FMCZF009 EQU FMCZFLAG+1 01244000 FMCZFD06 EQU FMCZF006+1 01245000 FMCZFC06 EQU FMCZF006 01246000 FMCZFB06 EQU FMCZF006 01247000 FMCZFA06 EQU FMCZF006 01248000 FMCZF005 EQU FMCZFLAG 01249000 FMCZF004 EQU FMCZFLAG 01250000 FMCZF003 EQU FMCZFLAG 01251000 FMCZF002 EQU FMCZFLAG 01252000 FMCZF001 EQU FMCZFLAG 01253000 FMCFRESA EQU ISTFMCB+228 01254000 FMCSCSQN EQU FMCSNCTL+2 01255000 FMCSCCTL EQU FMCSNCTL+1 01256000 FMCSTCTL EQU FMCSCFLG 01257000 FMCSCCLO EQU FMCSCFLG 01258000 FMCAPRO EQU FMCSCFLG 01259000 FMCLURO EQU FMCSCFLG 01260000 FMCOBSAC EQU FMCSCFLG 01261000 FMCIBSAC EQU FMCSCFLG 01262000 FMCFBRE EQU ISTFMCB+220 01263000 FMCFBXM EQU FMCZV002 01264000 FMCASEGQ EQU ISTFMCB+212 01265000 FMCRDTPT EQU ISTFMCB+208 01266000 FMCLOCK EQU ISTFMCB+204 01267000 FMCSEGD EQU FMCSSEGQ 01268000 FMCRSPLM EQU ISTFMCB+198 01269000 FMCPSTRS EQU ISTFMCB+196 01270000 @NM00056 EQU FMCRRESP 01271000 FMCTSLHA EQU FMCRRESP 01272000 FMCFRRN EQU FMCRRESP 01273000 FMCFME EQU FMCRRESP 01274000 FMCFEX EQU FMCRRESP 01275000 FMCFPE EQU FMCRRESP 01276000 FMCCTLB EQU ISTFMCB+194 01277000 FMCBSQNO EQU FMCCLSEQ+2 01278000 FMCTSQNO EQU FMCCLSEQ 01279000 FMCOBPRG EQU FMCMODEB 01280000 FMCIBPRG EQU FMCMODEB 01281000 FMCRESOT EQU FMCMODEB 01282000 FMCRSTSR EQU FMCMODEB 01283000 FMCLUQ EQU FMCMODEB 01284000 FMCAPQ EQU FMCMODEB 01285000 FMCCLEAR EQU FMCMODEB 01286000 FMCHOLD EQU FMCMODEB 01287000 FMCIPSEQ EQU ISTFMCB+188 01288000 FMCLUSTR EQU ISTFMCB+187 01289000 FMCRSV87 EQU FMCSTAT2 01290000 FMCSEQI EQU FMCSTAT2 01291000 FMCCPIP EQU FMCSTAT2 01292000 FMCALIPR EQU FMCSTAT2 01293000 FMCIAIO EQU FMCSTAT2 01294000 FMCZF00A EQU FMCSTAT2 01295000 FMCVPIP EQU FMCSTAT2 01296000 FMCBHSET EQU ISTFMCB+185 01297000 FMCPRMRC EQU FMCCLEXT+20 01298000 FMCRSV89 EQU FMCPSTAT 01299000 FMCPCLSD EQU FMCPSTAT 01300000 FMCDDOCD EQU FMCPSTAT 01301000 FMCIDVFD EQU FMCPSTAT 01302000 FMCELKST EQU FMCPSTAT 01303000 FMCRSV88 EQU FMCPSCMD 01304000 FMCRDBLK EQU FMCPSCMD 01305000 FMCDSEOC EQU FMCPSCMD 01306000 FMCPURGE EQU FMCPSCMD 01307000 FMCRESTI EQU FMCPSCMD 01308000 FMCCNTCT EQU FMCPSCMD 01309000 FMCINVT EQU FMCPSCMD 01310000 FMCFLGB7 EQU FMCFLGCL 01311000 FMCFLGB6 EQU FMCFLGCL 01312000 FMCFLGB5 EQU FMCFLGCL 01313000 FMCFLGB4 EQU FMCFLGCL 01314000 FMCFLGB3 EQU FMCFLGCL 01315000 FMCFLGB2 EQU FMCFLGCL 01316000 FMCFLGB1 EQU FMCFLGCL 01317000 FMCFLGB0 EQU FMCFLGCL 01318000 FMCFLGA7 EQU FMCFLGA 01319000 FMCFLGA6 EQU FMCFLGA 01320000 FMCFLGA5 EQU FMCFLGA 01321000 FMCFLGA4 EQU FMCFLGA 01322000 FMCFLGA3 EQU FMCFLGA 01323000 FMCFLGA2 EQU FMCFLGA 01324000 FMCFLGA1 EQU FMCFLGA 01325000 FMCFLGA0 EQU FMCFLGA 01326000 FMCDCLOK EQU FMCCLEXT+12 01327000 FMCRAFM EQU FMCCLEXT+8 01328000 FMCFBPTR EQU FMCFBA+1 01329000 FMCFBRSV EQU FMCFBA 01330000 FMCRPLPT EQU FMCRPLA+1 01331000 FMCRPLRS EQU FMCRPLA 01332000 FMCPRCLS EQU FMCCVAL 01333000 FMCIBCE EQU FMCCVAL 01334000 FMCONLY EQU FMCOBCE 01335000 FMCLAST EQU FMCOBCE 01336000 FMCMIDLE EQU FMCOBCE 01337000 FMCFIRST EQU FMCOBCE 01338000 FMCCPCNT EQU FMCPACPC 01339000 FMCMPCNT EQU FMCPACEM 01340000 FMCNPCNT EQU FMCPACEN 01341000 FMCCONF EQU FMCSSTAT 01342000 FMCPURCH EQU FMCSSTAT 01343000 FMCNSALU EQU FMCSSTAT 01344000 FMCBIP EQU FMCSSTAT 01345000 FMCSDTR EQU FMCSSTAT 01346000 FMCUIPI EQU FMCSSTAT 01347000 FMCCIPI EQU FMCSSTAT 01348000 FMCSNBI EQU FMCSSTAT 01349000 FMCRVD01 EQU ISTFMCB+158 01350000 FMCISSN EQU ISTFMCB+156 01351000 FMCOASN EQU FMCNXOSC 01352000 FMCOSSN EQU FMCNXCFM 01353000 FMCSIP EQU FMCSIPA 01354000 FMCEXLST EQU ISTFMCB+144 01355000 FMCPAB5 EQU ISTFMCB+128 01356000 FMCPAB4 EQU ISTFMCB+112 01357000 FMCPAB2 EQU ISTFMCB+80 01358000 FMCPAB1 EQU ISTFMCB+64 01359000 FMCFASYA EQU ISTFMCB+60 01360000 FMCMODE EQU ISTFMCB+52 01361000 FMCPROCD EQU ISTFMCB+48 01362000 FMCVWT EQU ISTFMCB+44 01363000 FMCRPLH EQU ISTFMCB+40 01364000 FMCBUFNB EQU FMCCMPS1+2 01365000 FMCBUFLM EQU FMCCMPS1 01366000 FMCDEBA EQU ISTFMCB+32 01367000 @NM00055 EQU FMCCMDFL 01368000 FMCSNA EQU FMCCMDFL 01369000 FMCVSNA EQU FMCCMDFL 01370000 FMCCMDR EQU FMCCMDFL 01371000 @NM00054 EQU ISTFMCB+30 01372000 @NM00053 EQU FMCSTAT1 01373000 FMCHPURG EQU FMCSTAT1 01374000 FMCVSP2 EQU FMCSTAT1 01375000 FMCVSP1 EQU FMCSTAT 01376000 FMCLTEAS EQU FMCSTAT 01377000 FMCZF007 EQU FMCSTAT 01378000 FMCDEDSC EQU FMCSTAT 01379000 FMCDEVOF EQU FMCSTAT 01380000 FMCDAPT EQU FMCSTAT 01381000 FMCPRMTE EQU FMCSTAT 01382000 FMCPRMTR EQU FMCSTAT 01383000 FMCUSFLD EQU ISTFMCB+24 01384000 FMCFMCBA EQU ISTFMCB+20 01385000 FMCDVTA EQU ISTFMCB+12 01386000 FMCTSKID EQU ISTFMCB+8 01387000 FMCNXTCB EQU ISTFMCB+4 01388000 FMCSAF EQU ISTFMCB+2 01389000 FMCLNGTH EQU ISTFMCB+1 01390000 FMCTYPE EQU ISTFMCB 01391000 PROSRDEF EQU PROSETM4 01392000 PRORSV47 EQU PROSETM4 01393000 PROSCON EQU PROSETM4 01394000 PRORSV46 EQU PROSETM3 01395000 PROSMONT EQU PROSETM3 01396000 PRORSV45 EQU PROSETM3 01397000 PROSNTO EQU PROSETM3 01398000 PRORSV44 EQU PROSETM3 01399000 PRORSV43 EQU PROSETM2 01400000 PROSNTFL EQU PROSETM2 01401000 PRORSV42 EQU PROSETM2 01402000 PRORSV41 EQU PROPROCS 01403000 PROMODC EQU PROPROC4 01404000 PROMODT EQU PROPROC4 01405000 PROMODM EQU PROPROC4 01406000 PROMODB EQU PROPROC4 01407000 PRORSV14 EQU PROPROC4 01408000 PRORSV13 EQU PROPROC4 01409000 PRORSV12 EQU PROPROC4 01410000 PROEIB EQU PROPROC4 01411000 PRORSV11 EQU PROPROC3 01412000 PROMONT2 EQU PROPROC3 01413000 PROMONIT EQU PROPROC3 01414000 PROSUBLK EQU PROPROC3 01415000 PRONTO EQU PROPROC3 01416000 PROLGIN EQU PROPROC3 01417000 PROERPI EQU PROPROC3 01418000 PRORSV07 EQU PROPROC3 01419000 PROCFTX EQU PROPROC2 01420000 PROEMLC EQU PROPROC2 01421000 PRONTFL EQU PROPROC2 01422000 PRORSV05 EQU PROPROC2 01423000 PRORSV04 EQU PROPROC2 01424000 PROLGOT EQU PROPROC2 01425000 PROERPO EQU PROPROC2 01426000 PRORSV03 EQU PROPROC2 01427000 PRORPLC EQU PROPROC1 01428000 PROCS EQU PROPROC1 01429000 PROCA EQU PROPROC1 01430000 PRORESPX EQU PROPROC1 01431000 PRODFASY EQU PROPROC1 01432000 PROXPOPT EQU PROPROC1 01433000 PROTRUNC EQU PROPROC1 01434000 PROASYIP EQU PROPROC1 01435000 DEVRSV03 EQU ISTDEVCH+5 01436000 DEVPHYSA EQU ISTDEVCH+4 01437000 DEVCSLPN EQU DEVCHAR3 01438000 DEVCSTCL EQU DEVCHAR3 01439000 DEVCCHEK EQU DEVCHAR3 01440000 DEVCATTN EQU DEVCHAR3 01441000 DEVCSWL EQU DEVFCCTL 01442000 DEVCSSL EQU DEVFCCTL 01443000 DEVMCODE EQU ISTDEVCH+2 01444000 DEVRSV01 EQU DEVCHAR 01445000 DEVCCTL EQU DEVCHAR 01446000 DEVNNSPT EQU DEVCHAR 01447000 DEVSPS EQU DEVCHAR 01448000 DEVSUBND EQU DEVCHAR 01449000 DEVCONVR EQU DEVCHAR 01450000 DEVOTPUT EQU DEVCHAR 01451000 DEVINPUT EQU DEVCHAR 01452000 LOKXCL EQU @NM00051 01453000 LOKPRY EQU @NM00051 01454000 @NM00052 EQU @NM00051 01455000 @NM00050 EQU LOKCHNG 01456000 LOKCT EQU ISTLOK 01457000 PABRPHA EQU PABRPHFG+1 01458000 PABNODQ EQU PABFLAGS 01459000 PABINHBT EQU PABFLAGS 01460000 PABERLOK EQU PABERRLK 01461000 PABSSN EQU PABFLAGS 01462000 PABDYNAM EQU PABFLAGS 01463000 PABNORPR EQU PABFLAGS 01464000 PABPRIOR EQU PABFLAGS 01465000 PABAPYP EQU PABFLAGS 01466000 PABDVTA EQU ISTPAB+9 01467000 PABOFFST EQU ISTPAB+8 01468000 PABCHNGP EQU PABCHAIN+1 01469000 PABRSV02 EQU PABCHAIN 01470000 PABRESET EQU PABCHAIN 01471000 PABUNCON EQU PABCHAIN 01472000 PABCDP EQU PABCHAIN 01473000 PABRESCH EQU PABCHAIN 01474000 PABCHNG EQU PABCHAIN 01475000 PABWEQP EQU PABWEQA+1 01476000 PABRSV01 EQU PABWEQA 01477000 PABWEQG EQU PABWEQA 01478000 CRACHAIN EQU ISTCRA+928 01479000 CRARSV02 EQU ISTCRA+924 01480000 CRARSV01 EQU ISTCRA+920 01481000 CRABFTBA EQU CRABUFA 01482000 CRAMASK EQU CRASVC+64 01483000 CRAHSIZ EQU CRASVC+60 01484000 CRAASCRR EQU CRASVC 01485000 CRAPROCR EQU ISTCRA+312 01486000 CRAPSS EQU ISTCRA+160 01487000 CRARPH EQU ISTCRA+52 01488000 CRALAPTR EQU CRABASIC+48 01489000 CRAL9PTR EQU CRABASIC+44 01490000 CRAL8PTR EQU CRABASIC+40 01491000 CRAL7PTR EQU CRABASIC+36 01492000 CRAL6PTR EQU CRABASIC+32 01493000 CRAL5PTR EQU CRABASIC+28 01494000 CRAL4PTR EQU CRABASIC+24 01495000 CRAL3PTR EQU CRABASIC+20 01496000 CRAL2PTR EQU CRABASIC+16 01497000 CRAL1PTR EQU CRABASIC+12 01498000 CRALEV01 EQU CRALKACT+3 01499000 CRALEV02 EQU CRALKACT+3 01500000 CRALEV03 EQU CRALKACT+3 01501000 CRALEV04 EQU CRALKACT+3 01502000 CRALEV05 EQU CRALKACT+3 01503000 CRALEV06 EQU CRALKACT+3 01504000 CRALEV07 EQU CRALKACT+3 01505000 CRALEV08 EQU CRALKACT+3 01506000 CRALEV09 EQU CRALKACT+2 01507000 CRALEV10 EQU CRALKACT+2 01508000 CRALEV11 EQU CRALKACT+2 01509000 CRALEV12 EQU CRALKACT+2 01510000 CRALEV13 EQU CRALKACT+2 01511000 CRALEV14 EQU CRALKACT+2 01512000 CRALEV15 EQU CRALKACT+2 01513000 CRALEV16 EQU CRALKACT+2 01514000 CRALEV17 EQU CRALKACT+1 01515000 CRALEV18 EQU CRALKACT+1 01516000 CRALEV19 EQU CRALKACT+1 01517000 CRALEV20 EQU CRALKACT+1 01518000 CRALEV21 EQU CRALKACT+1 01519000 CRALEV22 EQU CRALKACT+1 01520000 CRALEV23 EQU CRALKACT+1 01521000 CRALEV24 EQU CRALKACT+1 01522000 CRALEV25 EQU CRALKACT 01523000 CRALEV26 EQU CRALKACT 01524000 CRALEV27 EQU CRALKACT 01525000 CRALEV28 EQU CRALKACT 01526000 CRALEV29 EQU CRALKACT 01527000 CRALEV30 EQU CRALKACT 01528000 CRALEV31 EQU CRALKACT 01529000 CRALEV32 EQU CRALKACT 01530000 CRAFRR EQU CRAHDR+4 01531000 @NM00049 EQU ISTAPCRR+137 01532000 @NM00048 EQU APC57FLG 01533000 APCNREL EQU APC57FLG 01534000 APCRECRA EQU APC57FLG 01535000 @NM00047 EQU APC54FLG 01536000 APCRLST EQU APC54FLG 01537000 APCPR153 EQU APC53FLG 01538000 @NM00046 EQU APC52FLG 01539000 APCWKF EQU APC52FLG 01540000 APCNWF EQU APC52FLG 01541000 APCRDQ EQU APC52FLG 01542000 APCQENQ EQU APC52FLG 01543000 APCSMSR EQU APC52FLG 01544000 APCCKRQ EQU APC52FLG 01545000 @NM00045 EQU APC31FLG 01546000 APCSORT EQU APC31FLG 01547000 APCRESCH EQU APC31FLG 01548000 APCTPXIT EQU APC31FLG 01549000 APCSWTWD EQU ISTAPCRR+128 01550000 APCSAV2 EQU ISTAPCRR+124 01551000 APCSAV1 EQU ISTAPCRR+120 01552000 APCRETCD EQU APCCOMF+2 01553000 @NM00044 EQU APCCOMF1+1 01554000 APCZLBER EQU APCCOMF1 01555000 APCEXIT EQU APCCOMF1 01556000 APCRELR EQU APCCOMF1 01557000 APCIRB2 EQU APCCOMF1 01558000 APCIRB1 EQU APCCOMF1 01559000 APCSMCR EQU APCCOMF1 01560000 APCUETSK EQU APCCOMF1 01561000 APCSSTSK EQU APCCOMF1 01562000 APCESTAL EQU APCSAVE 01563000 APCFRRPM EQU ISTAPCRR+40 01564000 APCQWFO EQU ISTAPCRR+36 01565000 APCPABSV EQU ISTAPCRR+32 01566000 APCRTRN EQU ISTAPCRR+28 01567000 APCTCBA EQU ISTAPCRR+24 01568000 APCPSTA EQU ISTAPCRR+20 01569000 @NM00043 EQU APCRFLG+1 01570000 APC31R EQU APCRFLG 01571000 APC58R EQU APCRFLG 01572000 APC57R EQU APCRFLG 01573000 APC56R EQU APCRFLG 01574000 APC54R EQU APCRFLG 01575000 APC53R EQU APCRFLG 01576000 APC52R EQU APCRFLG 01577000 APC51R EQU APCRFLG 01578000 @NM00042 EQU APCATFLG+1 01579000 APC31E EQU APCATFLG 01580000 APC58E EQU APCATFLG 01581000 APC57E EQU APCATFLG 01582000 APC56E EQU APCATFLG 01583000 APC54E EQU APCATFLG 01584000 APC53E EQU APCATFLG 01585000 APC52E EQU APCATFLG 01586000 APC51E EQU APCATFLG 01587000 APCHDRSV EQU ISTAPCRR 01588000 ASCPSREG EQU ISTASCRR+44 01589000 ASCUSR01 EQU ASCUSRGS+12 01590000 ASCUSR00 EQU ASCUSRGS+8 01591000 ASCUSR15 EQU ASCUSRGS+4 01592000 ASCUSR14 EQU ASCUSRGS 01593000 ASCETRYA EQU ISTASCRR+24 01594000 ASCKEY EQU ISTASCRR+23 01595000 ASCAUDIT EQU ASCFLG3 01596000 ASCFBDUD EQU ASCFLG3 01597000 ASCLLKF EQU ASCFLG3 01598000 ASCKEYF EQU ASCFLG3 01599000 ASCFBDAL EQU ASCFLG3 01600000 ASCFSRGT EQU ASCFLG3 01601000 ASCICR EQU ASCFLG2 01602000 ASCFSRIC EQU ASCFLG2 01603000 ASCFBDIC EQU ASCFLG2 01604000 ASCFBAIC EQU ASCFLG2 01605000 ASCPASTR EQU ASCFLG1 01606000 ASCFSR EQU ASCFLG1 01607000 ASCFBD EQU ASCFLG1 01608000 ASCFBA EQU ASCFLG1 01609000 ASCPFCRR EQU ISTASCRR 01610000 ZCRRU EQU ZCRRHRU+3 01611000 ZCRRH EQU ZCRRHRU 01612000 ZCRWORDA EQU ISTZCRR+477 01613000 ZCRCMNRC EQU ISTZCRR+476 01614000 ZCRRSV97 EQU ZCRENTER+18 01615000 ZCREIC2B EQU ZCRENTER+18 01616000 ZCREAC2B EQU ZCRENTER+18 01617000 ZCRELCAB EQU ZCRENTER+18 01618000 ZCREDCMF EQU ZCRENTER+18 01619000 ZCREBCIF EQU ZCRENTER+18 01620000 ZCREICSG EQU ZCRENTER+18 01621000 ZCREDCK0 EQU ZCRENTER+18 01622000 ZCRECFY0 EQU ZCRENTER+17 01623000 ZCREKCCB EQU ZCRENTER+17 01624000 ZCREDCNB EQU ZCRENTER+17 01625000 ZCREICOE EQU ZCRENTER+17 01626000 ZCREBCNB EQU ZCRENTER+17 01627000 ZCREBC0L EQU ZCRENTER+17 01628000 ZCREBCAL EQU ZCRENTER+17 01629000 ZCREDCQR EQU ZCRENTER+17 01630000 ZCREDCPR EQU ZCRENTER+16 01631000 ZCREBCSB EQU ZCRENTER+16 01632000 ZCREAC1R EQU ZCRENTER+16 01633000 ZCRECCCI EQU ZCRENTER+16 01634000 ZCRECCAI EQU ZCRENTER+16 01635000 ZCRECCBI EQU ZCRENTER+16 01636000 ZCREBCAR EQU ZCRENTER+16 01637000 ZCREBCDR EQU ZCRENTER+16 01638000 ZCREBCBR EQU ZCRENTER+15 01639000 ZCREDCXR EQU ZCRENTER+15 01640000 ZCREDCWB EQU ZCRENTER+15 01641000 ZCREDCWR EQU ZCRENTER+15 01642000 ZCREKCCN EQU ZCRENTER+15 01643000 ZCREKCBN EQU ZCRENTER+15 01644000 ZCREKCBB EQU ZCRENTER+15 01645000 ZCREJC0B EQU ZCRENTER+15 01646000 ZCREJCDB EQU ZCRENTER+14 01647000 ZCREJCCB EQU ZCRENTER+14 01648000 ZCREJCBB EQU ZCRENTER+14 01649000 ZCREJCAB EQU ZCRENTER+14 01650000 ZCREIC1B EQU ZCRENTER+14 01651000 ZCREIC0B EQU ZCRENTER+14 01652000 ZCREICX0 EQU ZCRENTER+14 01653000 ZCREICWB EQU ZCRENTER+14 01654000 ZCREICVB EQU ZCRENTER+13 01655000 ZCREICUB EQU ZCRENTER+13 01656000 ZCREICTB EQU ZCRENTER+13 01657000 ZCREICSC EQU ZCRENTER+13 01658000 ZCREICSB EQU ZCRENTER+13 01659000 ZCREICRB EQU ZCRENTER+13 01660000 ZCREICQB EQU ZCRENTER+13 01661000 ZCREICQA EQU ZCRENTER+13 01662000 ZCREICOB EQU ZCRENTER+12 01663000 ZCREICOA EQU ZCRENTER+12 01664000 ZCREICNB EQU ZCRENTER+12 01665000 ZCREICNA EQU ZCRENTER+12 01666000 ZCREICMB EQU ZCRENTER+12 01667000 ZCREICLB EQU ZCRENTER+12 01668000 ZCREICKG EQU ZCRENTER+12 01669000 ZCREICKE EQU ZCRENTER+12 01670000 ZCREICKB EQU ZCRENTER+11 01671000 ZCREICJB EQU ZCRENTER+11 01672000 ZCREICID EQU ZCRENTER+11 01673000 ZCREICIB EQU ZCRENTER+11 01674000 ZCREICHB EQU ZCRENTER+11 01675000 ZCREICGB EQU ZCRENTER+11 01676000 ZCREICEB EQU ZCRENTER+11 01677000 ZCREICDB EQU ZCRENTER+11 01678000 ZCREICCI EQU ZCRENTER+10 01679000 ZCREICCB EQU ZCRENTER+10 01680000 ZCREICBI EQU ZCRENTER+10 01681000 ZCREICBB EQU ZCRENTER+10 01682000 ZCREICAB EQU ZCRENTER+10 01683000 ZCREICAA EQU ZCRENTER+10 01684000 ZCREHCAN EQU ZCRENTER+10 01685000 ZCREGC0B EQU ZCRENTER+10 01686000 ZCREGC0A EQU ZCRENTER+9 01687000 ZCREGCLA EQU ZCRENTER+9 01688000 ZCREGCEB EQU ZCRENTER+9 01689000 ZCREGCDB EQU ZCRENTER+9 01690000 @NM00041 EQU ZCRENTER+9 01691000 ZCREGCBB EQU ZCRENTER+9 01692000 ZCREGCAB EQU ZCRENTER+9 01693000 ZCREFCEB EQU ZCRENTER+9 01694000 ZCREFCEA EQU ZCRENTER+8 01695000 ZCREECTA EQU ZCRENTER+8 01696000 ZCREECEA EQU ZCRENTER+8 01697000 ZCREECDA EQU ZCRENTER+8 01698000 ZCREECCB EQU ZCRENTER+8 01699000 ZCREECCA EQU ZCRENTER+8 01700000 ZCREECBB EQU ZCRENTER+8 01701000 ZCREECBA EQU ZCRENTER+8 01702000 ZCREDCMB EQU ZCRENTER+7 01703000 ZCREDCL0 EQU ZCRENTER+7 01704000 ZCREDCKB EQU ZCRENTER+7 01705000 ZCREDCKA EQU ZCRENTER+7 01706000 ZCREDCJ0 EQU ZCRENTER+7 01707000 ZCREDCI0 EQU ZCRENTER+7 01708000 ZCREDCH0 EQU ZCRENTER+7 01709000 ZCREDCF0 EQU ZCRENTER+7 01710000 ZCREDCE0 EQU ZCRENTER+6 01711000 ZCREDCD0 EQU ZCRENTER+6 01712000 ZCREDCC0 EQU ZCRENTER+6 01713000 ZCREDCB0 EQU ZCRENTER+6 01714000 ZCREDCA0 EQU ZCRENTER+6 01715000 ZCRECC2B EQU ZCRENTER+6 01716000 ZCRECC1B EQU ZCRENTER+6 01717000 ZCRECC1A EQU ZCRENTER+6 01718000 ZCRECC0B EQU ZCRENTER+5 01719000 ZCRECC0A EQU ZCRENTER+5 01720000 ZCREBC0B EQU ZCRENTER+5 01721000 ZCREBC0A EQU ZCRENTER+5 01722000 ZCREBCZ0 EQU ZCRENTER+5 01723000 ZCREBCY0 EQU ZCRENTER+5 01724000 ZCREBCX0 EQU ZCRENTER+5 01725000 ZCREBCXA EQU ZCRENTER+5 01726000 ZCREBCSC EQU ZCRENTER+4 01727000 ZCREBCRB EQU ZCRENTER+4 01728000 ZCREBCRA EQU ZCRENTER+4 01729000 ZCREBCQB EQU ZCRENTER+4 01730000 ZCREBCPB EQU ZCRENTER+4 01731000 ZCREBCOB EQU ZCRENTER+4 01732000 ZCREBCNE EQU ZCRENTER+4 01733000 ZCREBCND EQU ZCRENTER+4 01734000 ZCREBCMB EQU ZCRENTER+3 01735000 ZCREBCLB EQU ZCRENTER+3 01736000 ZCREBCLA EQU ZCRENTER+3 01737000 ZCREBCKB EQU ZCRENTER+3 01738000 ZCREBCKA EQU ZCRENTER+3 01739000 ZCREBCJB EQU ZCRENTER+3 01740000 ZCREBCJA EQU ZCRENTER+3 01741000 ZCREBCID EQU ZCRENTER+3 01742000 ZCREBCIB EQU ZCRENTER+2 01743000 ZCREBCIA EQU ZCRENTER+2 01744000 ZCREBCHB EQU ZCRENTER+2 01745000 ZCREBCHA EQU ZCRENTER+2 01746000 ZCREBCGB EQU ZCRENTER+2 01747000 ZCREBCGA EQU ZCRENTER+2 01748000 ZCREBCFB EQU ZCRENTER+2 01749000 ZCREBCFA EQU ZCRENTER+2 01750000 ZCREBCEB EQU ZCRENTER+1 01751000 ZCREBCDI EQU ZCRENTER+1 01752000 ZCREBCCB EQU ZCRENTER+1 01753000 ZCREBCBI EQU ZCRENTER+1 01754000 ZCREBCBB EQU ZCRENTER+1 01755000 ZCREBCBA EQU ZCRENTER+1 01756000 ZCREBCAM EQU ZCRENTER+1 01757000 ZCREBCAI EQU ZCRENTER+1 01758000 ZCREBCAG EQU ZCRENTER 01759000 ZCREBCAE EQU ZCRENTER 01760000 ZCREBCAB EQU ZCRENTER 01761000 ZCREBCAA EQU ZCRENTER 01762000 ZCREAC1B EQU ZCRENTER 01763000 ZCREAC0B EQU ZCRENTER 01764000 ZCREAC0A EQU ZCRENTER 01765000 ZCREAC1A EQU ZCRENTER 01766000 ZCRTNAME EQU ZCRAUDIT+1 01767000 ZCRTID EQU ZCRAUDIT 01768000 ZCRREMIC EQU ISTZCRR+436 01769000 ZCRSAVEZ EQU ISTZCRR+196 01770000 ZCRDAFSV EQU ZCRCIDSV+2 01771000 ZCRSAFSV EQU ZCRCIDSV 01772000 ZCRR13SV EQU ISTZCRR+188 01773000 ZCRR2SV EQU ISTZCRR+184 01774000 ZCROPCDE EQU ISTZCRR+183 01775000 ZCRPRMTC EQU ISTZCRR+182 01776000 ZCRRCDSV EQU ISTZCRR+181 01777000 ZCRAWQSW EQU ISTZCRR+180 01778000 ZCRTOPQ EQU ISTZCRR+180 01779000 ZCRLSTFB EQU ISTZCRR+180 01780000 ZCRXSCHD EQU ISTZCRR+180 01781000 ZCRNXTEL EQU ISTZCRR+180 01782000 ZCRSCANQ EQU ISTZCRR+180 01783000 ZCRMOREL EQU ISTZCRR+180 01784000 ZCRFBPRC EQU ISTZCRR+180 01785000 ZCRFSBSV EQU ISTZCRR+176 01786000 ZCRSVWK5 EQU ZCRWKARA+16 01787000 ZCRSVWK4 EQU ZCRWKARA+12 01788000 ZCRSVWK3 EQU ZCRWKARA+8 01789000 ZCRSVWK2 EQU ZCRWKARA+4 01790000 ZCRSVWK1 EQU ZCRWKARA 01791000 ZCRSVF25 EQU ZCRSVRTN+96 01792000 ZCRSVF24 EQU ZCRSVRTN+92 01793000 ZCRSVF23 EQU ZCRSVRTN+88 01794000 ZCRSVF22 EQU ZCRSVRTN+84 01795000 ZCRSVF21 EQU ZCRSVRTN+80 01796000 ZCRSVF20 EQU ZCRSVRTN+76 01797000 ZCRSVF19 EQU ZCRSVRTN+72 01798000 ZCRSVF18 EQU ZCRSVRTN+68 01799000 ZCRSVF17 EQU ZCRSVRTN+64 01800000 ZCRSVF16 EQU ZCRSVRTN+60 01801000 ZCRSVF15 EQU ZCRSVRTN+56 01802000 ZCRSVF14 EQU ZCRSVRTN+52 01803000 ZCRSVF13 EQU ZCRSVRTN+48 01804000 ZCRSVF12 EQU ZCRSVRTN+44 01805000 ZCRSVF11 EQU ZCRSVRTN+40 01806000 ZCRSVF10 EQU ZCRSVRTN+36 01807000 ZCRSVF9 EQU ZCRSVRTN+32 01808000 ZCRSVF8 EQU ZCRSVRTN+28 01809000 ZCRSVF7 EQU ZCRSVRTN+24 01810000 ZCRSVF6 EQU ZCRSVRTN+20 01811000 ZCRSVF5 EQU ZCRSVRTN+16 01812000 ZCRSVF4 EQU ZCRSVRTN+12 01813000 ZCRSVF3 EQU ZCRSVRTN+8 01814000 ZCRSVF2 EQU ZCRSVRTN+4 01815000 ZCRSVF1 EQU ZCRSVRTN 01816000 ZCRPVZB EQU ISTZCRR+52 01817000 ZCRZLB EQU ISTZCRR+48 01818000 ZCRBFPTR EQU ISTZCRR+44 01819000 ZCRCCWA EQU ISTZCRR+40 01820000 ZCRPSW EQU ZCRPARMS+15 01821000 ZCRPCHAR EQU ZCRPARMS+14 01822000 ZCRPRES2 EQU ZCRPCOD2 01823000 ZCRPMFGF EQU ZCRPCOD2 01824000 ZCRPFHDR EQU ZCRPCOD2 01825000 ZCRPPG2 EQU ZCRPCOD2 01826000 ZCRPRES EQU ZCRPCOD1 01827000 ZCRPCFTX EQU ZCRPCOD1 01828000 ZCRPBUF EQU ZCRPCOD1 01829000 ZCRPLSCB EQU ZCRPCOD1 01830000 ZCRPLSBQ EQU ZCRPLSBF 01831000 ZCRPFSB EQU ZCRPCOD1 01832000 ZCRPLNG EQU ZCRPCOD1 01833000 ZCRPPG EQU ZCRPCOD1 01834000 ZCRDTODA EQU ZCRDFRDA 01835000 ZCRMLNG EQU ZCRPARMS+8 01836000 ZCRTBPTR EQU ZCRPARMS+4 01837000 ZCRCBPTR EQU ZCRFBPTR 01838000 ZCRCRLCP EQU ISTZCRR+20 01839000 @NM00040 EQU ZCRSCPSW 01840000 ZCRSKIPT EQU ZCRSCPSW 01841000 ZCRFSBWE EQU ZCRSCPSW 01842000 ZCRPRCMP EQU ZCRSCPSW 01843000 ZCRLREQ EQU ZCRSCPSW 01844000 ZCRRJLCP EQU ZCRSCPSW 01845000 ZCRTPINV EQU ZCRSCPSW 01846000 ZCRTPEX EQU ZCRSCPSW 01847000 @NM00039 EQU ZCRIBPR 01848000 ZCR3270R EQU ZCRIBPR 01849000 ZCR3270 EQU ZCRIBPR 01850000 ZCRLCPFD EQU ZCRIBPR 01851000 ZCRLCPFR EQU ZCRIBPR 01852000 ZCRRELK EQU ZCRIBPR 01853000 ZCRERR EQU ZCRIBPR 01854000 ZCRNOBUF EQU ZCRIBPR 01855000 @NM00038 EQU ZCRPFLGS 01856000 ZCRQAHED EQU ZCRPFLGS 01857000 ZCRF1RES EQU ZCRGENSW 01858000 ZCRBRIS EQU ZCRGENSW 01859000 ZCRCLRBD EQU ZCRGENSW 01860000 ZCREXRES EQU ZCRGENSW 01861000 ZCRLCSYN EQU ZCRGENSW 01862000 ZCRRT06 EQU ZCRGENSW 01863000 ZCRTSW2 EQU ZCRGENSW 01864000 ZCRTSW1 EQU ZCRGENSW 01865000 ZCRINLCP EQU ZCRFLGS3 01866000 ZCRWRPTR EQU ZCRFLGS3 01867000 ZCRNOFRE EQU ZCRFLGS3 01868000 ZCREDRIV EQU ZCRFLGS3 01869000 ZCRDISC EQU ZCRFLGS3 01870000 ZCRTPDIS EQU ZCRFLGS3 01871000 ZCRTPCON EQU ZCRFLGS3 01872000 ZCRTIC EQU ZCRFLGS3 01873000 ZCRCNLXL EQU ZCRRESET 01874000 ZCRENDAN EQU ZCRSWFLD 01875000 ZCRENDXL EQU ZCRSWFLD 01876000 ZCRENDX EQU ZCRSWFLD 01877000 ZCROB1 EQU ZCRNDLCP 01878000 ZCRENDPR EQU ZCRSWFLD 01879000 ZCREXTYP EQU ZCRSWFLD 01880000 ZCRSLCP EQU ZCRENDSH 01881000 ZCRIF0E3 EQU ZCRFLGS2 01882000 ZCRIF0E2 EQU ZCRFLGS2 01883000 ZCRIF0E1 EQU ZCRFLGS2 01884000 ZCROB EQU ZCRFLGS2 01885000 ZCRFMSED EQU ZCRFLGS2 01886000 ZCRSHEDI EQU ZCRFLGS2 01887000 ZCRLOCAL EQU ZCRFLGS2 01888000 ZCRFEXIT EQU ZCRFLGS1 01889000 ZCRUNSOL EQU ZCRFLGS1 01890000 ZCRENDLP EQU ZCRFLGS1 01891000 ZCRNRMEX EQU ZCRFLGS1 01892000 ZCRWAIT EQU ZCRFLGS1 01893000 ZCRDEQSW EQU ZCRFLGS1 01894000 ZCRQUESW EQU ZCRFLGS1 01895000 ZCREXSW EQU ZCRFLGS1 01896000 ZCRFRRA EQU ISTZCRR+8 01897000 ZCRCHAIN EQU ISTZCRR+4 01898000 ZCRFLAG EQU ZCRCRR+3 01899000 ZCRLEN EQU ZCRCRR+1 01900000 ZCRID EQU ZCRCRR 01901000 CCFRSVD1 EQU CFCCRT 01902000 CCFCR2 EQU CFCCRT 01903000 CCFCRP EQU CFCCRT 01904000 CCFCR1 EQU CFCCRT 01905000 CCFCS2 EQU CFCCRT 01906000 CCFCS1 EQU CFCCRT 01907000 NCFRSVD EQU CFCNTRD 01908000 NCFCR2 EQU CFCNTRD 01909000 NCFCRP EQU CFCNTRD 01910000 NCFCR1 EQU CFCNTRD 01911000 NCFCS2 EQU CFCNTRD 01912000 NCFCS1 EQU CFCNTRD 01913000 PFCRSV01 EQU ISTPFCRR+13 01914000 PFCFTA EQU ISTPFCRR+12 01915000 CRRFRR EQU PFCFRRO 01916000 CRRCHAIN EQU PFCCRRO 01917000 CRRLEN EQU PFCCRRLN 01918000 PFCRSV10 EQU PFCCRR+1 01919000 CRRID EQU PFCCRRID 01920000 ZSAZTRAC EQU ISTZSAVE+36 01921000 ZSAZSVVR EQU ISTZSAVE+12 01922000 ZSAZSVRR EQU ISTZSAVE+8 01923000 ZSAZSVFC EQU ISTZSAVE+4 01924000 ZSAZACTV EQU ZSAZSVMS 01925000 LCPFTYPE EQU LCPRPHA 01926000 LCPRSTQH EQU LCPLCCW 01927000 LCPCLREP EQU ISTLCPB+44 01928000 LCPUBFSB EQU LCPFLCCW 01929000 LCPRSV77 EQU ISTLCPB+39 01930000 LCPLCCWC EQU ISTLCPB+38 01931000 LCPRSV78 EQU LCPFLG1 01932000 LCPTRANS EQU LCPFLG1 01933000 LCPSTLB EQU LCPFLG1 01934000 LCPREDRV EQU LCPFLG1 01935000 LCPDIRPT EQU LCPFLG1 01936000 LCPINTER EQU LCPFLG1 01937000 LCPRESET EQU LCPFLG1 01938000 LCPSTYPE EQU ISTLCPB+36 01939000 LCPFSNCH EQU ISTLCPB+34 01940000 LCPFOSN EQU ISTLCPB+32 01941000 LCPTLBAD EQU ISTLCPB+28 01942000 LCPFDB2 EQU LCPFDBA+1 01943000 LCPFDB1 EQU LCPFDBA 01944000 LCPDAF EQU LCPCID+2 01945000 LCPSAF EQU LCPCID 01946000 LCPLCCW1 EQU ISTLCPB+12 01947000 LCPRRCNT EQU LCPSEQ+1 01948000 LCPRRCCT EQU LCPSEQ 01949000 LCPATOP EQU LCPFLAG2 01950000 LCPFREE EQU LCPFLAG2 01951000 LCPDSTAT EQU LCPFLAG2 01952000 LCPEXRES EQU LCPFID0 01953000 LCPZRIMM EQU LCPTLBPI 01954000 LCPRSTRT EQU LCPFLAG2 01955000 LCPASYN EQU LCPFLAG2 01956000 LCPPRFLG EQU LCPFLAG2 01957000 LCPZMIRC EQU LCPRUCNT 01958000 LCPCHAI2 EQU LCPCHAIN+1 01959000 LCPCHNG EQU LCPCHAI1 01960000 LCPZRT0B EQU LCPMNRCD 01961000 LCPZRT0A EQU LCPMNRCD 01962000 LCPZRTL9 EQU LCPZRT09 01963000 LCPZRTL8 EQU LCPZRT08 01964000 LCPZRTL7 EQU LCPZRT07 01965000 LCPZRTL6 EQU LCPZRT06 01966000 LCPZRTL5 EQU LCPZRT05 01967000 LCPZRTL4 EQU LCPZRT04 01968000 LCPZRTL3 EQU LCPZRT03 01969000 LCPZRTL2 EQU LCPZRT02 01970000 LCPZRT01 EQU LCPFLAGS 01971000 LCPZRT00 EQU LCPFLAGS 01972000 LCPLNGTH EQU ISTLCPB+1 01973000 LCPTYPE EQU ISTLCPB 01974000 LCCWDATA EQU ISTLCCW+4 01975000 LCCWCNT EQU ISTLCCW+2 01976000 LCCWACI EQU LCCWFLAG 01977000 LCCWRFI EQU LCCWFLAG 01978000 LCCWPER EQU LCCWLSI 01979000 LCCWIDAT EQU LCCWFLAG 01980000 LCCWNTVC EQU LCCWFLAG 01981000 LCCWCKPT EQU LCCWFLAG 01982000 LCCWCC EQU LCCWFLAG 01983000 LCCWCD EQU LCCWFLAG 01984000 LCCWTYPE EQU LCCWCTL 01985000 LCCWMODE EQU LCCWCTL 01986000 LCCWSOP EQU LCCWRWOP 01987000 @NM00037 EQU LCCWRWOP 01988000 LCCWSD EQU LCCWOP 01989000 LCCWSI EQU LCCWOP 01990000 CRRRVPT5 EQU CRRSAREA+316 01991000 CRRRVPT4 EQU CRRSAREA+312 01992000 CRRRVPT3 EQU CRRSAREA+308 01993000 CRRRVPT2 EQU CRRSAREA+304 01994000 CRRRVPT1 EQU CRRSAREA+300 01995000 CRRRVCR2 EQU CRRSAREA+292 01996000 CRRRVCR1 EQU CRRSAREA+291 01997000 CRRXFNCD EQU CRRSAREA+290 01998000 CRRLDOCT EQU CRRSAREA+288 01999000 CRRBTLEN EQU CRRSAREA+284 02000000 CRRBLEN EQU CRRSAREA+282 02001000 CRRBRTCD EQU CRRSAREA+281 02002000 @NM00036 EQU CRRBFLGS 02003000 CRRBFLG1 EQU CRRBFLGS 02004000 CRRBLDAD EQU CRRSAREA+276 02005000 CRRBARAD EQU CRRSAREA+272 02006000 CRRRTN12 EQU CRRSAREA+268 02007000 CRRRTN11 EQU CRRSAREA+264 02008000 CRRRTN10 EQU CRRSAREA+260 02009000 CRRRTN9 EQU CRRSAREA+256 02010000 CRRRTN8 EQU CRRSAREA+252 02011000 CRRRTN7 EQU CRRSAREA+248 02012000 CRRRTN6 EQU CRRSAREA+244 02013000 CRRRTN5 EQU CRRSAREA+240 02014000 CRRRTN4 EQU CRRSAREA+236 02015000 CRRRTN3 EQU CRRSAREA+232 02016000 CRRRTN2 EQU CRRSAREA+228 02017000 CRRRES1 EQU CRRSAREA+222 02018000 CRRLCNT EQU CRRSAREA+220 02019000 CRRVALCK EQU CRRSAREA+212 02020000 CRRBIND EQU CRRTRBUF+3 02021000 CRRTRRES EQU CRRTRBUF 02022000 CRRUECB EQU CRRSAREA+196 02023000 CRRCMDAD EQU CRRSAREA+188 02024000 CRRCLCCW EQU CRRSAREA+180 02025000 CRRESR2 EQU CRRESR+1 02026000 CRRESR1 EQU CRRESR 02027000 CRRDSB2 EQU CRRDSB+1 02028000 CRRDSB1 EQU CRRDSB 02029000 CRRDTACT EQU CRRSAREA+174 02030000 CRRRSV99 EQU CRRSAREA+173 02031000 CRRRDSOH EQU CRRFDB3 02032000 CRRRLG EQU CRRFDB3 02033000 CRRLGFRC EQU CRRFDB3 02034000 CRRRDEOT EQU CRRFDB3 02035000 CRRRDEOM EQU CRRFDB3 02036000 CRRRDEOB EQU CRRFDB3 02037000 CRRUNUSD EQU CRRFDB3 02038000 CRRUINPT EQU CRRFDB3 02039000 CRRSTSAV EQU CRRFDB2 02040000 CRRCUERR EQU CRRFDB2 02041000 CRRDLGFL EQU CRRFDB2 02042000 CRRIOERR EQU CRRFDB2 02043000 CRRDVUNS EQU CRRFDB2 02044000 CRRATND EQU CRRFDB2 02045000 CRRRVID EQU CRRFDB2 02046000 CRRERLK EQU CRRFDB2 02047000 CRRNSNA EQU CRRRTYPE 02048000 CRRDFSYN EQU CRRRTYPE 02049000 CRRRESP EQU CRRRTYPE 02050000 CRRDFASY EQU CRRRTYPE 02051000 CRRDBLCK EQU CRRRFLG1 02052000 CRRRPSBD EQU CRRRFLG1 02053000 CRRRPLOQ EQU CRRRFLG1 02054000 CRRRPLS EQU CRRRFLG1 02055000 CRRSW7 EQU CRRFLGS 02056000 CRRSW6 EQU CRRFLGS 02057000 CRRSW5 EQU CRRFLGS 02058000 CRRSW4 EQU CRRFLGS 02059000 CRRSW3 EQU CRRFLGS 02060000 CRRSW2 EQU CRRFLGS 02061000 CRRSW1 EQU CRRFLGS 02062000 CRRSW0 EQU CRRFLGS 02063000 CRRRSV04 EQU CRRFLGS4 02064000 CRRDLCCW EQU CRRFLGS3 02065000 CRRSUBBK EQU CRRFLGS3 02066000 CRRRSV08 EQU CRRFLGS3 02067000 CRRDEBQ EQU CRRFLGS3 02068000 CRRSTSPR EQU CRRFLGS3 02069000 CRRDREQ EQU CRRFLGS3 02070000 CRRDFDBK EQU CRRFLGS3 02071000 CRRDFSB EQU CRRFLGS2 02072000 CRRDPROC EQU CRRFLGS2 02073000 CRREXTS EQU CRRFLGS2 02074000 CRRELSRI EQU CRRFLGS2 02075000 CRRPOST EQU CRRFLGS2 02076000 CRRENDLW EQU CRRFLGS2 02077000 CRRPRGIP EQU CRRFLGS2 02078000 CRRDEXP EQU CRRFLGS2 02079000 CRRSOLRQ EQU CRRFLGS1 02080000 CRRREQP EQU CRRFLGS1 02081000 CRRCPROC EQU CRRFLGS1 02082000 CRRPREIO EQU CRRFLGS1 02083000 CRRFLDOS EQU CRRFLGS1 02084000 CRRDOCUR EQU CRRFLGS1 02085000 CRRRATS4 EQU CRRATS+7 02086000 @NM00035 EQU CRRSATS 02087000 CRRASC51 EQU CRRSATS 02088000 CRRASC40 EQU CRRSATS 02089000 CRRASC30 EQU CRRSATS 02090000 CRRASC21 EQU CRRSATS 02091000 CRRASC10 EQU CRRSATS 02092000 CRRASC01 EQU CRRSATS 02093000 @NM00034 EQU CRRRATS2 02094000 CRRPLIC EQU CRRRATS2 02095000 CRRRC81 EQU CRRRATS2 02096000 CRRRC80 EQU CRRRATS2 02097000 CRRRC65 EQU CRRRATS2 02098000 CRRRC63 EQU CRRRATS2 02099000 CRRRC55 EQU CRRRATS2 02100000 CRRRC54 EQU CRRRATS2 02101000 CRRRC53 EQU CRRRATS1 02102000 CRRRC52 EQU CRRRATS1 02103000 CRRRC51 EQU CRRRATS1 02104000 CRRRC30 EQU CRRRATS1 02105000 CRRRC26 EQU CRRRATS1 02106000 CRRRC23 EQU CRRRATS1 02107000 CRRRC22 EQU CRRRATS1 02108000 CRRRC21 EQU CRRRATS1 02109000 @NM00033 EQU CRRATS4 02110000 CRRC3X EQU CRRATS4 02111000 CRRC85 EQU CRRATS4 02112000 CRRC83 EQU CRRATS4 02113000 CRRC82 EQU CRRATS4 02114000 CRRC61 EQU CRRATS4 02115000 CRRC60 EQU CRRATS4 02116000 CRRC81 EQU CRRATS3 02117000 CRRC80 EQU CRRATS3 02118000 CRRC75 EQU CRRATS3 02119000 CRRC51 EQU CRRATS3 02120000 CRRC50 EQU CRRATS3 02121000 CRRC42 EQU CRRATS3 02122000 CRRC41 EQU CRRATS3 02123000 CRRC40 EQU CRRATS3 02124000 CRRC32 EQU CRRATS2 02125000 CRRC31 EQU CRRATS2 02126000 CRRC30 EQU CRRATS2 02127000 CRRC25 EQU CRRATS2 02128000 CRRC24 EQU CRRATS2 02129000 CRRC23 EQU CRRATS2 02130000 CRRC22 EQU CRRATS2 02131000 CRRC21 EQU CRRATS2 02132000 CRRC20 EQU CRRATS1 02133000 CRRC12 EQU CRRATS1 02134000 CRRC11 EQU CRRATS1 02135000 CRRC10 EQU CRRATS1 02136000 CRRC02 EQU CRRATS1 02137000 CRRC01 EQU CRRATS1 02138000 CRRC00 EQU CRRATS1 02139000 CRRRMAS4 EQU CRRMAS+7 02140000 @NM00032 EQU CRRSMAS 02141000 CRRMSC51 EQU CRRSMAS 02142000 CRRMSC40 EQU CRRSMAS 02143000 CRRMSC30 EQU CRRSMAS 02144000 CRRMSC21 EQU CRRSMAS 02145000 CRRMSC10 EQU CRRSMAS 02146000 CRRMSC01 EQU CRRSMAS 02147000 @NM00031 EQU CRRRMAS2 02148000 CRRRM81 EQU CRRRMAS2 02149000 CRRRM80 EQU CRRRMAS2 02150000 CRRRM65 EQU CRRRMAS2 02151000 CRRRM63 EQU CRRRMAS2 02152000 CRRRM55 EQU CRRRMAS2 02153000 CRRRM54 EQU CRRRMAS2 02154000 CRRRM53 EQU CRRRMAS1 02155000 CRRRM52 EQU CRRRMAS1 02156000 CRRRM51 EQU CRRRMAS1 02157000 CRRRM30 EQU CRRRMAS1 02158000 CRRRM26 EQU CRRRMAS1 02159000 CRRRM23 EQU CRRRMAS1 02160000 CRRRM22 EQU CRRRMAS1 02161000 CRRRM21 EQU CRRRMAS1 02162000 @NM00030 EQU CRRMAS4 02163000 CRRM3X EQU CRRMAS4 02164000 CRRM85 EQU CRRMAS4 02165000 CRRM83 EQU CRRMAS4 02166000 CRRM82 EQU CRRMAS4 02167000 CRRM61 EQU CRRMAS4 02168000 CRRM60 EQU CRRMAS4 02169000 CRRM81 EQU CRRMAS3 02170000 CRRM80 EQU CRRMAS3 02171000 CRRM75 EQU CRRMAS3 02172000 CRRM51 EQU CRRMAS3 02173000 CRRM50 EQU CRRMAS3 02174000 CRRM42 EQU CRRMAS3 02175000 CRRM41 EQU CRRMAS3 02176000 CRRM40 EQU CRRMAS3 02177000 CRRM32 EQU CRRMAS2 02178000 CRRM31 EQU CRRMAS2 02179000 CRRM30 EQU CRRMAS2 02180000 CRRM25 EQU CRRMAS2 02181000 CRRM24 EQU CRRMAS2 02182000 CRRM23 EQU CRRMAS2 02183000 CRRM22 EQU CRRMAS2 02184000 CRRM21 EQU CRRMAS2 02185000 CRRM20 EQU CRRMAS1 02186000 CRRM12 EQU CRRMAS1 02187000 CRRM11 EQU CRRMAS1 02188000 CRRM10 EQU CRRMAS1 02189000 CRRM02 EQU CRRMAS1 02190000 CRRM01 EQU CRRMAS1 02191000 CRRM00 EQU CRRMAS1 02192000 CRRFSB EQU CRRSAREA+144 02193000 CRRSAVE1 EQU CRRSAREA+72 02194000 CRRSAVE EQU CRRSAREA 02195000 CRRRSV22 EQU ISTDCCRR+4 02196000 CRRCRR EQU ISTDCCRR 02197000 RPHNEXPO EQU ISTRPH+104 02198000 RPHSAV16 EQU RPHWORK+60 02199000 RPHSAV15 EQU RPHWORK+56 02200000 RPHSAV14 EQU RPHWORK+52 02201000 RPHSAV13 EQU RPHWORK+48 02202000 RPHSAV12 EQU RPHWORK+44 02203000 RPHSAV11 EQU RPHWORK+40 02204000 RPHSAV10 EQU RPHWORK+36 02205000 RPHSAVE9 EQU RPHWORK+32 02206000 RPHSAVE8 EQU RPHWORK+28 02207000 RPHSAVE7 EQU RPHWORK+24 02208000 RPHSAVE6 EQU RPHWORK+20 02209000 RPHSAVE5 EQU RPHWORK+16 02210000 RPHSAVE4 EQU RPHWORK+12 02211000 RPHSAVE3 EQU RPHWORK+8 02212000 RPHSAVE2 EQU RPHWORK+4 02213000 RPHSHALF EQU RPHSAVE1+2 02214000 RPHSBIT8 EQU RPHSBITS 02215000 RPHSBIT7 EQU RPHSBITS 02216000 RPHSBIT6 EQU RPHSBITS 02217000 RPHSBIT5 EQU RPHSBITS 02218000 RPHSBIT4 EQU RPHSBITS 02219000 RPHSBIT3 EQU RPHSBITS 02220000 RPHSBIT2 EQU RPHSBITS 02221000 RPHSBIT1 EQU RPHSBITS 02222000 RPHSBYTE EQU RPHSAVE1 02223000 RPHPABQP EQU RPHPABQA+1 02224000 RPHPABFG EQU RPHPABQA 02225000 RPHSRP34 EQU RPHSRPRM+2 02226000 RPHSRP12 EQU RPHSRPRM 02227000 RPHWEGT EQU RPHCSPA 02228000 RPHMAJCB EQU ISTRPH+21 02229000 RPHPABOF EQU ISTRPH+20 02230000 RPHRESUM EQU RPHRESMA+1 02231000 RPHRSV01 EQU RPHWPFLG 02232000 RPHPURGE EQU RPHWPFLG 02233000 RPHPT EQU RPHWPFLG 02234000 RPHWT EQU RPHWPFLG 02235000 RPHRSKEY EQU RPHWPFLG 02236000 RPHDVTA EQU ISTRPH+12 02237000 RPHTIK EQU RPHTSKID+3 02238000 @NM00029 EQU RPHTSKID 02239000 RPHRPHAP EQU RPHRPHA+1 02240000 @NM00028 EQU RPHRPHA 02241000 RPHGATE EQU RPHRPHA 02242000 @NM00027 EQU RPHFLGB 02243000 RPHRLCRA EQU RPHFLGB 02244000 RPHNRSAV EQU RPHFLGB 02245000 RPHPGCMP EQU RPHFLGB 02246000 RPHFBAPS EQU RPHFLGB 02247000 RPHBSSP EQU RPHFLGB 02248000 RPHLOCK EQU RPHFLGB 02249000 RPHFNFLG EQU RPHFSTLC 02250000 RPHMLTCP EQU RPHFLAGS 02251000 RPHSMCLR EQU RPHFLAGS 02252000 RPHSMTYP EQU RPHFLAGS 02253000 RPHSMQ EQU RPHFLAGS 02254000 RPHAUTEX EQU RPHAPTYP 02255000 RPHSPGIN EQU RPHFLAGS 02256000 RPHOGIND EQU RPHFLAGS 02257000 RPHLNGTH EQU ISTRPH+1 02258000 RPHTYPE EQU ISTRPH 02259000 RPLSEQNO EQU RPLOF60+6 02260000 @NM00026 EQU RPLIBSQ 02261000 RPLIINV EQU RPLIBSQ 02262000 RPLINEG EQU RPLIBSQ 02263000 RPLIPOS EQU RPLIBSQ 02264000 RPLIIGN EQU RPLIBSQ 02265000 RPLIRSET EQU RPLIBSQ 02266000 RPLITST EQU RPLIBSQ 02267000 RPLISET EQU RPLIBSQ 02268000 @NM00025 EQU RPLOBSQ 02269000 RPLOINV EQU RPLOBSQ 02270000 RPLONEG EQU RPLOBSQ 02271000 RPLOPOS EQU RPLOBSQ 02272000 RPLOIGN EQU RPLOBSQ 02273000 RPLORSET EQU RPLOBSQ 02274000 RPLOTST EQU RPLOBSQ 02275000 RPLOSET EQU RPLOBSQ 02276000 RPLIBSQV EQU RPLOF60+2 02277000 RPLOBSQV EQU RPLOF60 02278000 @NM00024 EQU RPLCNTSC 02279000 RPLRSHUT EQU RPLCNTSC 02280000 RPLRQR EQU RPLCNTSC 02281000 RPLSHUTC EQU RPLCNTSC 02282000 RPLSHUTD EQU RPLCNTSC 02283000 RPLSTSN EQU RPLCNTSC 02284000 RPLCLEAR EQU RPLCNTSC 02285000 RPLSDT EQU RPLCNTSC 02286000 @NM00023 EQU RPLCNTDC 02287000 RPLSIGNL EQU RPLCNTDC 02288000 RPLLUS EQU RPLCNTDC 02289000 RPLRTR EQU RPLCNTDC 02290000 RPLBID EQU RPLCNTDC 02291000 @NM00022 EQU RPLCNTDF 02292000 RPLQI EQU RPLCNTDF 02293000 RPLRELQ EQU RPLCNTDF 02294000 RPLCHASE EQU RPLCNTDF 02295000 RPLQEC EQU RPLCNTDF 02296000 RPLQC EQU RPLCNTDF 02297000 RPLCNCEL EQU RPLCNTDF 02298000 RPLDATA EQU RPLCNTDF 02299000 RPLRRN EQU RPLRESP 02300000 RPLNFME EQU RPLRESP 02301000 RPLEX EQU RPLRESP 02302000 @NM00021 EQU RPLRESP 02303000 @NM00020 EQU RPLPOSTV 02304000 RPLSCHED EQU RPLPOSTV 02305000 @NM00019 EQU RPLVTFL1 02306000 RPLAUTUS EQU RPLVTFL1 02307000 RPLVTUSE EQU RPLVTFL1 02308000 @NM00018 EQU RPLVTFL1 02309000 @NM00017 EQU RPLCHN 02310000 RPLONLY EQU RPLCHN 02311000 RPLLAST EQU RPLCHN 02312000 RPLMIDLE EQU RPLCHN 02313000 RPLFIRST EQU RPLCHN 02314000 @NM00016 EQU RPLRTYPE 02315000 RPLDFASY EQU RPLRTYPE 02316000 RPLNFSYN EQU RPLRTYPE 02317000 RPLRRESP EQU RPLRTYPE 02318000 @NM00015 EQU RPLSTYPE 02319000 RPLSRESP EQU RPLSTYPE 02320000 @NM00014 EQU RPLRH3 02321000 RPLCSI EQU RPLRH3 02322000 RPLCHREQ EQU RPLRH3 02323000 RPLCMD EQU RPLRH3 02324000 RPLEB EQU RPLRH3 02325000 RPLBB EQU RPLRH3 02326000 RPLSIGDA EQU RPLVTEXT+32 02327000 RPLSAV13 EQU RPLVTEXT+28 02328000 RPLUSNSO EQU RPLOSENS+2 02329000 RPLSSMO EQU RPLSSNSO+1 02330000 @NM00013 EQU RPLSSEO 02331000 RPLRRO EQU RPLSSEO 02332000 RPLFIO EQU RPLSSEO 02333000 RPLSTATO EQU RPLSSEO 02334000 RPLCPMO EQU RPLSSEO 02335000 @NM00012 EQU RPLSSEO 02336000 RPLFMHDR EQU RPLOPT12 02337000 @NM00011 EQU RPLOPT12 02338000 @NM00010 EQU RPLOPT12 02339000 @NM00009 EQU RPLOPT12 02340000 RPLNIBTK EQU RPLOPT12 02341000 RPLTRUNC EQU RPLOPT12 02342000 RPLKEEP EQU RPLOPT12 02343000 @NM00008 EQU RPLOPT12 02344000 RPLRSVE8 EQU RPLOPT11 02345000 RPLRSVE7 EQU RPLOPT11 02346000 RPLRSVE6 EQU RPLOPT11 02347000 RPLRSVE5 EQU RPLOPT11 02348000 RPLRSVE4 EQU RPLOPT11 02349000 RPLSTOP EQU RPLOPT11 02350000 RPLSTART EQU RPLOPT11 02351000 RPLQUIES EQU RPLOPT11 02352000 RPLRSVI6 EQU RPLOPT10 02353000 RPLRSVI5 EQU RPLOPT10 02354000 RPLRSVI4 EQU RPLOPT10 02355000 RPLRSVI3 EQU RPLOPT10 02356000 RPLRSVI2 EQU RPLOPT10 02357000 RPLSPARM EQU RPLOPT10 02358000 RPLDSPLY EQU RPLOPT10 02359000 RPLBSCID EQU RPLOPT10 02360000 RPLTOPL EQU RPLOPT9 02361000 RPLCIDE EQU RPLOPT9 02362000 RPLRNNM EQU RPLOPT9 02363000 RPLAPPST EQU RPLOPT9 02364000 RPLCOUNT EQU RPLOPT9 02365000 RPLTERMS EQU RPLOPT9 02366000 RPLDEVCH EQU RPLOPT9 02367000 RPLLOGON EQU RPLOPT9 02368000 RPLUSFLD EQU RPLVTEXT+16 02369000 RPLESR2 EQU RPLUSNSI+1 02370000 RPLESR1 EQU RPLUSNSI 02371000 RPLSSMI EQU RPLDSB2 02372000 @NM00007 EQU RPLSSEI 02373000 RPLRRI EQU RPLSSEI 02374000 RPLFII EQU RPLSSEI 02375000 RPLSTATI EQU RPLSSEI 02376000 RPLCPMI EQU RPLSSEI 02377000 RPLPATHI EQU RPLSSEI 02378000 RPLARCLN EQU RPLVTEXT+8 02379000 RPLAARLN EQU RPLVTEXT+4 02380000 RPLERMSA EQU RPLCOMN+72 02381000 RPLEMLEN EQU RPLCOMN+70 02382000 RPLACTIV EQU RPLCOMN+69 02383000 RPLBRANC EQU RPLEXTD1 02384000 RPLNIB EQU RPLEXTD1 02385000 @NM00006 EQU RPLEXTD1 02386000 RPLEXIT EQU RPLEXTD1 02387000 RPLNEXIT EQU RPLEXTD1 02388000 RPLEXSCH EQU RPLEXTD1 02389000 RPLDDDD EQU RPLRBAR+4 02390000 @NM00005 EQU RPLRBAR+3 02391000 @NM00004 EQU RPLAIXID 02392000 RPLAXPKP EQU RPLAIXID 02393000 RPLAIXPC EQU RPLRBAR 02394000 RPLRSV88 EQU RPLOPT8 02395000 RPLUNCON EQU RPLOPT8 02396000 RPLACTV EQU RPLOPT8 02397000 RPLSESS EQU RPLOPT8 02398000 RPLPEND EQU RPLOPT8 02399000 RPLODPRM EQU RPLOPT8 02400000 RPLODACP EQU RPLOPT8 02401000 RPLODACQ EQU RPLOPT8 02402000 RPLRSV78 EQU RPLOPT7 02403000 RPLRSV77 EQU RPLOPT7 02404000 RPLRLSOP EQU RPLOPT7 02405000 RPLTPOST EQU RPLOPT7 02406000 RPLQOPT EQU RPLOPT7 02407000 RPLCNIMM EQU RPLCNOPT 02408000 RPLCNANY EQU RPLCNOPT 02409000 RPLCNALL EQU RPLCNOPT 02410000 RPLRSV68 EQU RPLOPT6 02411000 RPLRSV67 EQU RPLOPT6 02412000 RPLLOCK EQU RPLOPT6 02413000 RPLNCOND EQU RPLOPT6 02414000 RPLCOND EQU RPLOPT6 02415000 RPLEOT EQU RPLUNTYP 02416000 RPLEOM EQU RPLUNTYP 02417000 RPLEOB EQU RPLUNTYP 02418000 RPLWROPT EQU RPLOPT5 02419000 RPLNODE EQU RPLOPT5 02420000 RPLERACE EQU RPLWRTYP 02421000 RPLEAU EQU RPLWRTYP 02422000 RPLNERAS EQU RPLWRTYP 02423000 RPLPSOPT EQU RPLOPT5 02424000 @NM00003 EQU RPLOPT5 02425000 RPLBUFL EQU RPLCOMN+52 02426000 RPLRLEN EQU RPLCOMN+48 02427000 RPLCHAIN EQU RPLNXTRP 02428000 RPLBOP EQU RPLOPT4 02429000 @NM00002 EQU RPLOPT4 02430000 RPLMKFRM EQU RPLOPT4 02431000 RPLENDTR EQU RPLOPT4 02432000 RPLALIGN EQU RPLOPT3 02433000 RPLFMT EQU RPLOPT3 02434000 RPLFLD EQU RPLOPT3 02435000 RPLVFY EQU RPLOPT3 02436000 RPLBLK EQU RPLOPT3 02437000 RPLSFORM EQU RPLOPT3 02438000 RPLEODS EQU RPLOPT3 02439000 RPLNSP EQU RPLOPT2 02440000 RPLUPD EQU RPLOPT2 02441000 @NM00001 EQU RPLOPT2 02442000 RPLLRD EQU RPLOPT2 02443000 RPLBWD EQU RPLOPT2 02444000 RPLCNV EQU RPLOPT2 02445000 RPLADD EQU RPLADR 02446000 RPLKEY EQU RPLOPT2 02447000 RPLECBIN EQU RPLECBSW 02448000 RPLGEN EQU RPLOPT1 02449000 RPLKGE EQU RPLOPT1 02450000 RPLASY EQU RPLOPT1 02451000 RPLSKP EQU RPLOPT1 02452000 RPLSEQ EQU RPLOPT1 02453000 RPLDIR EQU RPLOPT1 02454000 RPLLOC EQU RPLOPT1 02455000 RPLDAF EQU RPLARG+2 02456000 RPLSAF EQU RPLARG 02457000 RPLAREA EQU RPLCOMN+32 02458000 RPLTCBPT EQU RPLCOMN+28 02459000 RPLDACB EQU RPLCOMN+24 02460000 RPLCCHAR EQU RPLCOMN+20 02461000 RPLSTRID EQU RPLCOMN+18 02462000 RPLKEYL EQU RPLKEYLE 02463000 RPLRDSOH EQU RPLFDB3 02464000 RPLRLG EQU RPLFDB3 02465000 RPLLGFRC EQU RPLFDB3 02466000 RPLREOT EQU RPLFDB3 02467000 RPLREOM EQU RPLFDB3 02468000 RPLREOB EQU RPLFDB3 02469000 RPLSV32 EQU RPLFDB3 02470000 RPLUINPT EQU RPLFDB3 02471000 RPLSTSAV EQU RPLFDB2 02472000 RPLCUERR EQU RPLFDB2 02473000 RPLDLGFL EQU RPLFDB2 02474000 RPLIOERR EQU RPLFDB2 02475000 RPLDVUNS EQU RPLFDB2 02476000 RPLATND EQU RPLFDB2 02477000 RPLRVID EQU RPLFDB2 02478000 RPLERLK EQU RPLFDB2 02479000 RPLERREG EQU RPLRTNCD 02480000 RPLSTAT EQU RPLFDBWD 02481000 RPLPOST EQU RPLECB 02482000 RPLWAIT EQU RPLECB 02483000 RPLPLHPT EQU RPLCOMN+4 02484000 RPLLEN2 EQU RPLLEN 02485000 RPLREQ EQU RPLIDWD+2 02486000 RPLSTYP EQU RPLIDWD+1 02487000 RPLID EQU RPLIDWD 02488000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02489000 @RC00463 EQU @RC00457 02490000 @RC00461 EQU @RC00457 02491000 @RC00459 EQU @RC00457 02492000 @RC00470 EQU @RC00469 02493000 @ENDDATA EQU * 02494000 END ISTDCC13,(C'PLS0325',0603,75126) 02495000