TITLE 'ISTINCNS-NETWORK SOLICITOR ATTACH/DETACH ROUTINE *00001000 ' 00002000 ISTINCNS CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTINCNS 78.079' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 ST @13,@SA00001+4 0001 00015000 LA @10,@SA00001 0001 00016000 ST @10,8(,@13) 0001 00017000 LR @13,@10 0001 00018000 */********************************************************************* 00019000 */* MAINLINE ISTINCNS DETERMINES WHETHER ENTRY WAS VIA THE MODIFY * 00020000 */* COMMAND OR OPTIONAL SERVICES. IF ENTRY WAS NOT FROM MODIFY * 00021000 */* THE NOTMDFY SUBRTN IS CALLED TO HANDLE THE PROCESSING. * 00022000 */* IF ENTRY WAS FROM THE MODIFY COMMAND, MAINLINE DETERMINES * 00023000 */* WHETHER THIS IS A MODIFY NETSOL=YES OR A MODIFY NETSOL=NO * 00024000 */* IF NETSOL =YES & LDPACTIF=0(INDICATING NETSOL NOT ACTIVE), * 00025000 */* ATTACHNS IS CALLED TO ATTACH NETSOL. IF NETSOL=YES & LDPACTIF=1 * 00026000 */* A MESSAGE IS WRITTEN TO THE OPERATOR. * 00027000 */* IF THE COMMAND WAS NETSOL=NO, TESTSTOP IS CALLED TO SEE IF * 00028000 */* NETSOL SHOULD BE STOPPED. * 00029000 */********************************************************************* 00030000 *NCSPLPTR=R1; /* SAVE PTR TO NCSPL */ 0555 00031000 LR NCSPLPTR,R1 0555 00032000 *RCSAVE=0; /* CLEAR RETURN CODE */ 0556 00033000 SLR @10,@10 0556 00034000 ST @10,RCSAVE 0556 00035000 * 0557 00036000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(VCVTPTR)) */ 0557 00037000 * VCVTPTR = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0558 00038000 L VCVTPTR,ATCLCPTR 0558 00039000 * END; /*LISATCVT*/ /* GET VTAM CVT ADD. */ 0559 00040000 *IF NCSPLPTR=0 THEN /* IF PTR IS ZERO THEN ENTRY IS NOT FROM MODIFY */ 00041000 SLR @08,@08 0560 00042000 CR NCSPLPTR,@08 0560 00043000 BNE @RF00560 0560 00044000 * DO; /*@XA08364*/ 00045000 * CALL NOTMDFY; 0562 00046000 BAL @14,NOTMDFY 0562 00047000 * END; /*@XA08364*/ 00048000 *ELSE DO; /* ELSE CLAUSE FOR NCSPL @ ^= 0 */ 0564 00049000 B @RC00560 0564 00050000 @RF00560 DS 0H 0565 00051000 * IF NCSPLVBF=NCSMNSY THEN /* SEE IF NETSOL ATTACH BIT ON */ 0565 00052000 CLC NCSPLVBF(2,NCSPLPTR),@CB02285 0565 00053000 BNE @RF00565 0565 00054000 * DO; 0566 00055000 * CNSCONID=NCSPLSID; /*@XA08364*/ 00056000 MVC CNSCONID(9),NCSPLSID(NCSPLPTR) 0567 00057000 * IF LDPACTIF='1'B THEN /* IF ACTIVE BIT IS* 00058000 * 0568 00059000 L @09,ATCCONFT(,VCVTPTR) 0568 00060000 TM LDPACTIF+1172(@09),B'00100000' 0568 00061000 BNO @RF00568 0568 00062000 */*TPMSG MSGID('106I')OPTIONS(CNSCONID)*/ 0569 00063000 * 0569 00064000 * DO; 0569 00065000 * DCL REG1013 REG(1) PTR; 0570 00066000 * RFY (REG1013) RSTD; 0571 00067000 * 0571 00068000 * RFY (EMCR13) RSTD; 0572 00069000 * DCL 1 * BASED(REG1013), 0573 00070000 * 2 CMZID013 PTR(31), 0573 00071000 * 2 *, 0573 00072000 * 3 CMZRL013 PTR(8), 0573 00073000 * 3 CMZRA013 PTR(24) BDY(BYTE), 0573 00074000 * 2 CMZEA013 PTR(31), 0573 00075000 * 2 CMZVP013 PTR(31); 0573 00076000 * DCL CMZPL013(4) FIXED INIT((4)0); 0574 00077000 * REG1013 = ADDR(CMZPL013); 0575 00078000 LA REG1013,CMZPL013 0575 00079000 * DCL CMZAA013 CHAR(4) INIT('106I'); 0576 00080000 * CMZID013 = ADDR(CMZAA013); 0577 00081000 LA @10,CMZAA013 0577 00082000 ST @10,CMZID013(,REG1013) 0577 00083000 * DCL CMZSA013 (18) PTR(31) BASED(EMCR13); 0578 00084000 * CMZSA013(5) = ADDR(CNSCONID); 0579 00085000 * 0579 00086000 LA @10,CNSCONID 0579 00087000 ST @10,CMZSA013+16(,EMCR13) 0579 00088000 * DCL REG15013 REG(15) PTR; 0580 00089000 * RFY REG15013 RSTD; 0581 00090000 * 0581 00091000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15013)) */ 0582 00092000 * REG15013 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0583 00093000 L REG15013,ATCLCPTR 0583 00094000 * END; /*LISATCVT*/ 0584 00095000 * DCL CMTA013 BASED(REG15013) ENTRY VALUERANGE(*); 0585 00096000 * REG15013 = REG15013->ATCMSGP; 0586 00097000 L REG15013,ATCMSGP(,REG15013) 0586 00098000 * CALL CMTA013; 0587 00099000 BALR @14,@15 0587 00100000 * RESPECIFY (REG1013,REG15013) UNRESTRICTED; 0588 00101000 * 0588 00102000 * RFY (EMCR13) UNRSTD; 0589 00103000 * END; /*@XA08364*/ 0590 00104000 * /* INDICATING NET-* 00105000 * /* SOL ACTIVE */ 00106000 * ELSE CALL ATTACHNS; /* ELSE CALL ATTACHNS SUBRTN 0591 00107000 * TO ATTACH NETSOL */ 0591 00108000 B @RC00568 0591 00109000 @RF00568 BAL @14,ATTACHNS 0591 00110000 * END; /* END FOR NCSPLNSY=1 */ 0592 00111000 * ELSE CALL TESTSTOP; /* ELSE CALL SUBRTN TO SEE IF NETSOL 0593 00112000 * SHOULD BE STOPPED */ 0593 00113000 B @RC00565 0593 00114000 @RF00565 BAL @14,TESTSTOP 0593 00115000 * END; /* END ELSE CLAUSE FOR NCSPL @ ^= 0 */ 0594 00116000 @RC00565 DS 0H 0595 00117000 * IF CNSDYPAB^=0 THEN /* FREESTOR DYPAB? @ZM33575*/ 00118000 @RC00560 L @10,CNSDYPAB 0595 00119000 LTR @10,@10 0595 00120000 BZ @RF00595 0595 00121000 * DO; /* YES @ZM33575*/ 00122000 * CNSWKPTR = ADDR(CNSWKE); /* ADDR OF WORK AREA @ZM33575*/ 00123000 LA CNSWKPTR,CNSWKE 0597 00124000 * GEN REFS(R2,R14,CNSWKPTR) SETS(REGSAVE) 0598 00125000 * (STM R2,R14,REGSAVE(CNSWKPTR)); /* SAVE REGS OVER FREESTOR @ZM33575*/ 00126000 STM R2,R14,REGSAVE(CNSWKPTR) 00127000 * R0 = LENGTH(ISTDYPAB); /* LENGTH OF FREESTOR @ZM33575*/ 00128000 LA R0,32 0599 00129000 * R1 = CNSDYPAB; /* DYPAB ADDR FOR FREESTOR @ZM33575*/ 00130000 L R1,CNSDYPAB 0600 00131000 * /*FREESTOR AREA(R1)SIZE(R0)TYPE(PAGEABLE)FETCHP(NO)CLEAR(YES)SAVE(NO 00132000 **/ 0601 00133000 * DO; 0601 00134000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 0602 00135000 */* END OF ATBUILD */ 0602 00136000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) RSTD; 0602 00137000 * GPR00F = R0; /*SIZE IN REG0*/ 00138000 * DCL 1 CMZA0021 FIXED(31) STATIC LOCAL, 0604 00139000 * 2 * FIXED(8) INIT(32), /* OPTION FLAGS */ 00140000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00141000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 00142000 * 2 * FIXED(8) INIT('01'X); /* REQUEST TYPE */ 00143000 * GPR03F = CMZA0021; 0605 00144000 L GPR03F,CMZA0021 0605 00145000 * RFY (GPR04P) RSTD; 0606 00146000 * GPR04P = R1; /*PUT FREEMAIN ADDR IN REG4*/ 00147000 * 0607 00148000 LR GPR04P,R1 0607 00149000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR02P)) */ 0608 00150000 * GPR02P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0609 00151000 L GPR02P,ATCLCPTR 0609 00152000 * END; /*LISATCVT*/ 0610 00153000 * CALL GPR02P -> ATCGTSTR; /*CALL ISTORFSR*/ 00154000 L @15,ATCGTSTR(,GPR02P) 0611 00155000 BALR @14,@15 0611 00156000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P) UNRSTD; 0612 00157000 * END ; /*END OF FREESTOR*/ 00158000 * /* @ZM33575*/ 0614 00159000 * GEN REFS(REGSAVE,CNSWKPTR) SETS(R2,R14) 0614 00160000 * (LM R2,R14,REGSAVE(CNSWKPTR)); /* RELOAD REGS @ZM33575*/ 00161000 LM R2,R14,REGSAVE(CNSWKPTR) 00162000 * CNSDYPAB=0; /*RESET DYPAB PTR @ZM33575*/ 00163000 SLR @10,@10 0615 00164000 ST @10,CNSDYPAB 0615 00165000 * END; /*@ZM33575*/ 00166000 *RETURN CODE(RCSAVE); 0617 00167000 @RF00595 L @15,RCSAVE 0617 00168000 @EL00001 L @13,4(,@13) 0617 00169000 @EF00001 DS 0H 0617 00170000 @ER00001 L @14,12(,@13) 0617 00171000 LM @00,@12,20(@13) 0617 00172000 BR @14 0617 00173000 */********************************************************************* 00174000 */* THE TESTSTOP SUBROUTINE PROCESSES THE MODIFY NETSOL=NO COMMAND * 00175000 */* IF NETSOL IS NOT ACTIVE(LDPACTIF=0), TESTSTOP PUTS OUT A MSG. * 00176000 */* OTHERWISE, IT TPQUES AN INTERNAL 'DYNAMIC' PAB TO GET THE ASYNCH- * 00177000 */* RONOUS ROUTINE(ISTINCAS) SCHEDULED. REGISTERS ARE SAVED IN THE * 00178000 */* INTERNAL WORK ELEMENT. A VWAIT IS DONE ON ASYNCHRONOUS ROUTINE * 00179000 */* PROCESSING. * 00180000 */********************************************************************* 00181000 *TESTSTOP: PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0618 00182000 TESTSTOP DS 0H 0619 00183000 *DCL TESTSAVE PTR (31) INIT(0); /* SAVE AREA FOR REG 14 @Y30APHQ*/ 00184000 *TESTSAVE=R14; /* SAVE REG 14 */ 0620 00185000 ST R14,TESTSAVE 0620 00186000 *IF LDPACTIF='1'B&ACDACB ^=0 THEN /* IF NETSOL IS ACTIVE @OX14282*/ 00187000 L @09,ATCCONFT(,VCVTPTR) 0621 00188000 TM LDPACTIF+1172(@09),B'00100000' 0621 00189000 BNO @RF00621 0621 00190000 L @09,RAPACDEB+556(,@09) 0621 00191000 L @09,ACDACB-1(,@09) 0621 00192000 LA @09,0(,@09) 0621 00193000 LTR @09,@09 0621 00194000 BZ @RF00621 0621 00195000 * DO; 0622 00196000 * CNSWKPTR=ADDR(CNSWKE); /*@ZM33575*/ 00197000 LA CNSWKPTR,CNSWKE 0623 00198000 * GEN REFS(R2,R14,CNSWKPTR) SETS(REGSAVE) 0624 00199000 * (STM R2,R14,REGSAVE(CNSWKPTR)); /* SAVE REGS OVER GETSTOR @ZM33575*/ 00200000 STM R2,R14,REGSAVE(CNSWKPTR) 00201000 * /*GETSTOR SIZE(LENGTH(ISTDYPAB))TYPE(PAGEABLE)FETCHP(NO)CLEAR(YES)SA 00202000 *E(NO)ADSPACE(COMMON)KEY(VTAM)*/ 0625 00203000 * DO; 0625 00204000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 0626 00205000 */* END OF ATBUILD */ 0626 00206000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) RSTD; 0626 00207000 * GPR00F = LENGTH(ISTDYPAB); /*SIZE IN REG0*/ 00208000 LA GPR00F,32 0627 00209000 * DCL 1 CMZA0040 FIXED(31) STATIC LOCAL, 0628 00210000 * 2 * FIXED(8) INIT(32), /* OPTION FLAGS */ 00211000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00212000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 00213000 * 2 * FIXED(8) INIT('00'X); /* REQUEST TYPE */ 00214000 * GPR03F = CMZA0040; 0629 00215000 * 0629 00216000 L GPR03F,CMZA0040 0629 00217000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR02P)) */ 0630 00218000 * GPR02P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0631 00219000 L GPR02P,ATCLCPTR 0631 00220000 * END; /*LISATCVT*/ 0632 00221000 * CALL GPR02P -> ATCGTSTR; /*CALL ISTORFSR*/ 00222000 L @15,ATCGTSTR(,GPR02P) 0633 00223000 BALR @14,@15 0633 00224000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) UNRSTD; 0634 00225000 * END ; /*END OF GETSTOR*/ 00226000 * /* @ZM33575*/ 0636 00227000 * R0=R3; /*SAVE ADDR FROM GETSTOR @ZM33575*/ 00228000 LR R0,R3 0636 00229000 * GEN REFS(REGSAVE,CNSWKPTR) SETS(R2,R14) 0637 00230000 * (LM R2,R14,REGSAVE(CNSWKPTR)); /* RELOAD REGS @ZM33575*/ 00231000 LM R2,R14,REGSAVE(CNSWKPTR) 00232000 * IF RCREG ^= 0 THEN /* WAS GETSTOR GOOD @ZM33575*/ 00233000 * 0638 00234000 LTR RCREG,RCREG 0638 00235000 BZ @RF00638 0638 00236000 */*TPMSG MSGID('123I')OPTIONS(CNSCONID)*/ 0639 00237000 * 0639 00238000 * DO; 0639 00239000 * DCL REG1058 REG(1) PTR; 0640 00240000 * RFY (REG1058) RSTD; 0641 00241000 * 0641 00242000 * RFY (EMCR13) RSTD; 0642 00243000 * DCL 1 * BASED(REG1058), 0643 00244000 * 2 CMZID058 PTR(31), 0643 00245000 * 2 *, 0643 00246000 * 3 CMZRL058 PTR(8), 0643 00247000 * 3 CMZRA058 PTR(24) BDY(BYTE), 0643 00248000 * 2 CMZEA058 PTR(31), 0643 00249000 * 2 CMZVP058 PTR(31); 0643 00250000 * DCL CMZPL058(4) FIXED INIT((4)0); 0644 00251000 * REG1058 = ADDR(CMZPL058); 0645 00252000 LA REG1058,CMZPL058 0645 00253000 * DCL CMZAA058 CHAR(4) INIT('123I'); 0646 00254000 * CMZID058 = ADDR(CMZAA058); 0647 00255000 LA @10,CMZAA058 0647 00256000 ST @10,CMZID058(,REG1058) 0647 00257000 * DCL CMZSA058 (18) PTR(31) BASED(EMCR13); 0648 00258000 * CMZSA058(5) = ADDR(CNSCONID); 0649 00259000 * 0649 00260000 LA @10,CNSCONID 0649 00261000 ST @10,CMZSA058+16(,EMCR13) 0649 00262000 * DCL REG15058 REG(15) PTR; 0650 00263000 * RFY REG15058 RSTD; 0651 00264000 * 0651 00265000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15058)) */ 0652 00266000 * REG15058 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0653 00267000 L REG15058,ATCLCPTR 0653 00268000 * END; /*LISATCVT*/ 0654 00269000 * DCL CMTA058 BASED(REG15058) ENTRY VALUERANGE(*); 0655 00270000 * REG15058 = REG15058->ATCMSGP; 0656 00271000 L REG15058,ATCMSGP(,REG15058) 0656 00272000 * CALL CMTA058; 0657 00273000 BALR @14,@15 0657 00274000 * RESPECIFY (REG1058,REG15058) UNRESTRICTED; 0658 00275000 * 0658 00276000 * RFY (EMCR13) UNRSTD; 0659 00277000 * END; /*@XA08364*/ 0660 00278000 * ELSE /* YES - GETSORE WAS GOOD @ZM33575*/ 00279000 * DO; /*@ZM33575*/ 00280000 B @RC00638 0661 00281000 @RF00638 DS 0H 0662 00282000 * CNSDYPAB=R0; /*RESET DYPAB PTR @ZM33575*/ 00283000 ST R0,CNSDYPAB 0662 00284000 * CNSWRKEL='00'X; /* ZERO WORK ELEMENT */ 0663 00285000 LA @09,CNSWKE 0663 00286000 XC CNSWRKEL+1(67,@09),CNSWRKEL+1(@09) 0663 00287000 MVI CNSWRKEL(@09),X'00' 0663 00288000 * DYPTSKID=ACDTSKID; /* MOVE IN TASK ID */ 0664 00289000 L @08,CNSDYPAB 0664 00290000 L @07,ATCCONFT(,VCVTPTR) 0664 00291000 L @07,RAPACDEB+556(,@07) 0664 00292000 L @07,ACDTSKID(,@07) 0664 00293000 ST @07,DYPTSKID(,@08) 0664 00294000 * PABDVTA=ADDR(CNSDVT1); /* SET UP DVT ADD IN PAB */ 0665 00295000 LA @07,16 0665 00296000 ALR @07,@08 0665 00297000 LA @06,CNSDVT1(,@09) 0665 00298000 STCM @06,7,PABDVTA(@07) 0665 00299000 * PABOFFST=ADDR(DYPPAB)-CNSDYPAB; /* SET PAB OFFSET @ZM33575*/ 00300000 LA @06,DYPPAB(,@08) 0666 00301000 SLR @06,@08 0666 00302000 STC @06,PABOFFST(,@07) 0666 00303000 * CNSDVT1=ADDR(ISTINCAS); /* SET PTR TO NS DETACH RTN */ 0667 00304000 LA @08,ISTINCAS 0667 00305000 ST @08,CNSDVT1(,@09) 0667 00306000 * GEN SETS(REGSAVE) REFS(ISTINCAS); /* SAVE REGS IN WK ELEMENT */ 00307000 * 0668 00308000 STM 2,13,REGSAVE(CNSWKPTR) 00309000 */* TPQUE (CNSWKPTR,DYPPAB) NORM NSTR */ 0669 00310000 * 0669 00311000 * DO; 0669 00312000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) RSTD; 0670 00313000 * GPR00P=0; 0671 00314000 SLR GPR00P,GPR00P 0671 00315000 * GPR15P=ADDR(DYPPAB); /*HOLD PAB PTR*/ 0672 00316000 L GPR15P,CNSDYPAB 0672 00317000 LA GPR15P,DYPPAB(,GPR15P) 0672 00318000 * GPR04P=CNSWKPTR; /*WORK ELE PTR*/ 0673 00319000 LR GPR04P,CNSWKPTR 0673 00320000 * GPR05P=GPR15P; /*PASS PAB PTR*/ 0674 00321000 LR GPR05P,GPR15P 0674 00322000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0675 00323000 L @10,ATCLCPTR 0675 00324000 L @15,ATCAP37(,@10) 0675 00325000 BALR @14,@15 0675 00326000 * GEN(NOPR 8)NOSETS NOREFS; 0676 00327000 NOPR 8 00328000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) UNRSTD; 0677 00329000 * END; /**** END OF TPQUE GENERATION ****/ /*@ZM3 00330000 *575*/ 0678 00331000 * CNSWKPTR=ADDR(CNSWKE); /* GET WORK PTR ADD */ 0679 00332000 LA CNSWKPTR,CNSWKE 0679 00333000 * GEN REFS(REGSAVE,CNSWKPTR) (LM 2,13,REGSAVE(CNSWKPTR)); 0680 00334000 LM 2,13,REGSAVE(CNSWKPTR) 00335000 * END; /*@ZM33575*/ 00336000 */*VWAIT ECB(CNSECB)TASK(VTAM)*/ 0682 00337000 * DO; 0682 00338000 @RC00638 DS 0H 0683 00339000 * /*DECLARE AND RESTRICT REG 1*/ 00340000 * RESPECIFY GPR01F RSTD; /*INVOKE XREGSET MACRO TO*/ 00341000 * /*TEST ECB PARM VALIDITY */ 00342000 * 0684 00343000 */*XREGSET PPARM(CNSECB)RREG(1,GPR01F)PID('ECB')*/ 0684 00344000 * DO; 0684 00345000 * GPR01F=ADDR(CNSECB); /*SET RREG SYMBOL TO ADDRESS*/ 00346000 LA GPR01F,CNSWKE 0685 00347000 LA GPR01F,CNSECB(,GPR01F) 0685 00348000 * /*OF PPARM OPERAND */ 00349000 * END; /* XREGSET */ 0686 00350000 * GEN; 0687 00351000 WAIT 1,ECB=(1) 00352000 * RESPECIFY GPR01F UNRSTD; /*UNRESTRICT REG 1 */ 00353000 * END; /* VWAIT */ /* WAIT FOR PROC TO RUN */ 0689 00354000 * END; /* END FOR LDPACTIF = 1 */ 0690 00355000 * ELSE IF LDPACTIF ^= '1'B THEN; /* IF SO SKIP MSG @OX14282*/ 00356000 B @RC00621 0691 00357000 @RF00621 L @09,ATCCONFT(,VCVTPTR) 0691 00358000 TM LDPACTIF+1172(@09),B'00100000' 0691 00359000 BNO @RT00691 0691 00360000 *ELSE 0693 00361000 */*TPMSG MSGID('108I')OPTIONS(CNSCONID)*/ 0693 00362000 * 0693 00363000 * DO; 0693 00364000 * DCL REG1074 REG(1) PTR; 0694 00365000 * RFY (REG1074) RSTD; 0695 00366000 * 0695 00367000 * RFY (EMCR13) RSTD; 0696 00368000 * DCL 1 * BASED(REG1074), 0697 00369000 * 2 CMZID074 PTR(31), 0697 00370000 * 2 *, 0697 00371000 * 3 CMZRL074 PTR(8), 0697 00372000 * 3 CMZRA074 PTR(24) BDY(BYTE), 0697 00373000 * 2 CMZEA074 PTR(31), 0697 00374000 * 2 CMZVP074 PTR(31); 0697 00375000 * DCL CMZPL074(4) FIXED INIT((4)0); 0698 00376000 * REG1074 = ADDR(CMZPL074); 0699 00377000 LA REG1074,CMZPL074 0699 00378000 * DCL CMZAA074 CHAR(4) INIT('108I'); 0700 00379000 * CMZID074 = ADDR(CMZAA074); 0701 00380000 LA @10,CMZAA074 0701 00381000 ST @10,CMZID074(,REG1074) 0701 00382000 * DCL CMZSA074 (18) PTR(31) BASED(EMCR13); 0702 00383000 * CMZSA074(5) = ADDR(CNSCONID); 0703 00384000 * 0703 00385000 LA @10,CNSCONID 0703 00386000 ST @10,CMZSA074+16(,EMCR13) 0703 00387000 * DCL REG15074 REG(15) PTR; 0704 00388000 * RFY REG15074 RSTD; 0705 00389000 * 0705 00390000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15074)) */ 0706 00391000 * REG15074 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0707 00392000 L REG15074,ATCLCPTR 0707 00393000 * END; /*LISATCVT*/ 0708 00394000 * DCL CMTA074 BASED(REG15074) ENTRY VALUERANGE(*); 0709 00395000 * REG15074 = REG15074->ATCMSGP; 0710 00396000 L REG15074,ATCMSGP(,REG15074) 0710 00397000 * CALL CMTA074; 0711 00398000 BALR @14,@15 0711 00399000 * RESPECIFY (REG1074,REG15074) UNRESTRICTED; 0712 00400000 * 0712 00401000 * RFY (EMCR13) UNRSTD; 0713 00402000 * END; /* PI03004*/ 0714 00403000 *R14=TESTSAVE; /* RESTORE REG 14 */ 0715 00404000 @RT00691 DS 0H 0715 00405000 @RC00621 L R14,TESTSAVE 0715 00406000 *END TESTSTOP; 0716 00407000 @EL00002 DS 0H 0716 00408000 @EF00002 DS 0H 0716 00409000 @ER00002 BR @14 0716 00410000 */********************************************************************* 00411000 */* ISTINCAS IS THE ASYNCHRONOUS ROUTINE WHICH SCHEDULES THE NET- * 00412000 */* WORK SOLICITOR TPEND EXIT ON A MODIFY NETSOL=NO COMMAND. A REQ- * 00413000 */* STORE IS DONE FOR THE UECB AND ,IF SUCCESSFUL, IS SET UP AND * 00414000 */* TPQUE'D TO GET TO THE USER EXIT INTERFACE ROUTINE. THIS RTN CALLS * 00415000 */* THE TPEND EXIT. * 00416000 */* THE ADDRESS OF ISTINCAS' RPH IS PUT IN THE CONFIGURATION TABLE * 00417000 */* THIS RPH WILL BE TPPOSTED BY ISTINCA0AFTER THE NETWORK SOLICITOR * 00418000 */* TPEND EXIT RETURNS. * 00419000 */********************************************************************* 00420000 *ISTINCAS: PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0717 00421000 ISTINCAS DS 0H 0718 00422000 *DCL CODE4 CONSTANT(4); /* CODE TO QUEUE STORAGE REQUEST */ 0718 00423000 *DCL NSWKAD REG(11) RSTD; /* USED TO GET WK EL PTR @ZM33574*/ 00424000 *NSWKAD=RPHWEA; /* GET WORK ELEMENT PTR */ 0720 00425000 L NSWKAD,RPHWEA(,RPHPTR) 0720 00426000 *GEN REFS(REGSAVE,NSWKAD) (LM 2,13,REGSAVE(NSWKAD)); 0721 00427000 LM 2,13,REGSAVE(NSWKAD) 00428000 * DO; 0722 00429000 */*** CRRMAINT PROCNM(ISTINCAS)COMP(IT) ***/ 0723 00430000 * DCL CMZK0082 PTR(31) REG(1); 0723 00431000 * RFY (CMZK0082) RSTD; 0724 00432000 * 0724 00433000 */* ATBUILD (ISTRPH,ISTCRA,ISTPFCRR,ISTITCRR) */ 0725 00434000 */* END OF ATBUILD */ 0725 00435000 * /*** SAVE CRR AND FRR POINTERS ***/ 0725 00436000 *ADDR(CMZK0082->RPHCRR->CRAPROCR)->PFCCRRO = CMZK0082->RPHCRR->CRACRR; 00437000 L @09,RPHCRR(,CMZK0082) 0725 00438000 LA @08,312 0725 00439000 ALR @08,@09 0725 00440000 L @07,CRACRR(,@09) 0725 00441000 ST @07,PFCCRRO(,@08) 0725 00442000 *ADDR(CMZK0082->RPHCRR->CRAPROCR)->PFCFRRO = CMZK0082->RPHCRR->CRAFRR; 00443000 L @07,CRAFRR(,@09) 0726 00444000 ST @07,PFCFRRO(,@08) 0726 00445000 * /*** SET UP POINTERS TO OUR CRR, FRR ***/ 0727 00446000 *CMZK0082->RPHCRR->CRACRR = ADDR(CMZK0082->RPHCRR->CRAPROCR); 0727 00447000 LA @08,CRAPROCR(,@09) 0727 00448000 ST @08,CRACRR(,@09) 0727 00449000 *CMZK0082->RPHCRR->CRAFRR = 0; 0728 00450000 SLR @07,@07 0728 00451000 ST @07,CRAFRR(,@09) 0728 00452000 * /*** SET OUR COMPONENT PROCESS ID IN CRR ***/ 0729 00453000 *CMZK0082->RPHCRR->CRACRR->PFCFTA = TIDINCAS; 0729 00454000 MVI PFCFTA(@08),X'08' 0729 00455000 * /*** CLEAR COMPONENT ENTERED INDICATORS ***/ 0730 00456000 *CMZK0082->RPHCRR->CRACRR->ITCNTRD = '0'B; 0730 00457000 MVI ITCNTRD(@08),B'00000000' 0730 00458000 * /*** SET ENTERED BIT FOR THIS PROCEDURE ***/ 0731 00459000 *CMZK0082->RPHCRR->CRACRR->NINCAS = '1'B; 0731 00460000 OI NINCAS(@08),B'00000010' 0731 00461000 * /*** CLEAR AND SET CURRENT PROCEDURE BIT ***/ 0732 00462000 *CMZK0082->RPHCRR->CRACRR->ITCCRT = '0'B; 0732 00463000 MVI ITCCRT(@08),B'00000000' 0732 00464000 *CMZK0082->RPHCRR->CRACRR->CINCAS = '1'B; 0733 00465000 OI CINCAS(@08),B'00000010' 0733 00466000 * END; 0734 00467000 *RPHSVPTR=RPHPTR; /* SAVE RPH PTR FROM TPMSG */ 0735 00468000 ST RPHPTR,RPHSVPTR 0735 00469000 * /*REQSTORE CBID(UECB)CLEAR(YES)*/ 0736 00470000 * DO; 0736 00471000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 0737 00472000 */* END OF ATBUILD */ 0737 00473000 * 0737 00474000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0737 00475000 * 0737 00476000 * RFY (GPR01P,GPR13P) RSTD; 0738 00477000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0739 00478000 * 0739 00479000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00480000 * RFY (GPR01P,GPR13P) UNRSTD; 0740 00481000 * 0740 00482000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0741 00483000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0742 00484000 L GPR15P,ATCLCPTR 0742 00485000 * END; /*LISATCVT*/ 0743 00486000 * GPR02P=GPR15P->ATCBPDA | '80000000'X; 0744 00487000 L GPR02P,ATCBPDA(,GPR15P) 0744 00488000 O GPR02P,@CF02541 0744 00489000 * DCL 1 FMZA0084 FIXED(31) STATIC LOCAL, 0745 00490000 * 2 * FIXED(8) INIT(152), 0745 00491000 * 2 * PTR(24) INIT(0); 0745 00492000 * GPR03F=FMZA0084; 0746 00493000 L GPR03F,FMZA0084 0746 00494000 * GPR04F=17; 0747 00495000 LA GPR04F,17 0747 00496000 * GPR15P=GPR15P->ATCSMRQ; 0748 00497000 L GPR15P,ATCSMRQ(,GPR15P) 0748 00498000 * DCL FMZL0084 BASED(GPR15P) LABEL VALUERANGE(*); 0749 00499000 * CALL FMZL0084; 0750 00500000 * 0750 00501000 BALR @14,@15 0750 00502000 * RFY (GPR13P) RSTD; 0751 00503000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0752 00504000 * 0752 00505000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00506000 * RFY (GPR13P) UNRSTD; 0753 00507000 * 0753 00508000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 0754 00509000 * END ; /********* END OF REQSTORE EXPANSION **********/ 0755 00510000 *IF RCREG > CODE4 THEN /* REQSTORE FAILED */ 0756 00511000 * 0756 00512000 C RCREG,@CF00054 0756 00513000 BNH @RF00756 0756 00514000 */*TPMSG MSGID('123I')OPTIONS(CNSCONID)*/ 0757 00515000 * 0757 00516000 * DO; 0757 00517000 * DCL REG1103 REG(1) PTR; 0758 00518000 * RFY (REG1103) RSTD; 0759 00519000 * 0759 00520000 * RFY (EMCR13) RSTD; 0760 00521000 * DCL 1 * BASED(REG1103), 0761 00522000 * 2 CMZID103 PTR(31), 0761 00523000 * 2 *, 0761 00524000 * 3 CMZRL103 PTR(8), 0761 00525000 * 3 CMZRA103 PTR(24) BDY(BYTE), 0761 00526000 * 2 CMZEA103 PTR(31), 0761 00527000 * 2 CMZVP103 PTR(31); 0761 00528000 * DCL CMZPL103(4) FIXED INIT((4)0); 0762 00529000 * REG1103 = ADDR(CMZPL103); 0763 00530000 LA REG1103,CMZPL103 0763 00531000 * DCL CMZAA103 CHAR(4) INIT('123I'); 0764 00532000 * CMZID103 = ADDR(CMZAA103); 0765 00533000 LA @10,CMZAA103 0765 00534000 ST @10,CMZID103(,REG1103) 0765 00535000 * DCL CMZSA103 (18) PTR(31) BASED(EMCR13); 0766 00536000 * CMZSA103(5) = ADDR(CNSCONID); 0767 00537000 * 0767 00538000 LA @10,CNSCONID 0767 00539000 ST @10,CMZSA103+16(,EMCR13) 0767 00540000 * DCL REG15103 REG(15) PTR; 0768 00541000 * RFY REG15103 RSTD; 0769 00542000 * 0769 00543000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15103)) */ 0770 00544000 * REG15103 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0771 00545000 L REG15103,ATCLCPTR 0771 00546000 * END; /*LISATCVT*/ 0772 00547000 * DCL CMTA103 BASED(REG15103) ENTRY VALUERANGE(*); 0773 00548000 * REG15103 = REG15103->ATCMSGP; 0774 00549000 L REG15103,ATCMSGP(,REG15103) 0774 00550000 * CALL CMTA103; 0775 00551000 BALR @14,@15 0775 00552000 * RESPECIFY (REG1103,REG15103) UNRESTRICTED; 0776 00553000 * 0776 00554000 * RFY (EMCR13) UNRSTD; 0777 00555000 * END; /*@XA08364*/ 0778 00556000 *ELSE DO; /* ELSE CLAUE FOR REQSTORE O.K. */ 0779 00557000 B @RC00756 0779 00558000 @RF00756 DS 0H 0780 00559000 * UECBPTR=RPHSRPRM; /* GET UECB PTR FROM RPH */ 0780 00560000 L UECBPTR,RPHSRPRM(,RPHPTR) 0780 00561000 * RFY ISTRPRE BASED(ADDR(CONNTSOL)); 0781 00562000 * RFY ISTRAP BASED(ADDR(CONNTSOL)); 0782 00563000 * 0782 00564000 */*** START -TPLOCK (RDTLOCK)- ***/ 0783 00565000 * DO; 0783 00566000 * 0783 00567000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0784 00568000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00569000 STM GPR00P,GPR14P,RPHWORK(GPR01P) 00570000 * GPR15P = ATCAP35; /*ADDRESS OF LOCK ROUTINE*/ 00571000 L GPR15P,ATCAP35(,VCVTPTR) 0786 00572000 * GPR02P = ADDR(ATCRDTLK); /*SET PARAM - LOCKWORD PTR*/ 00573000 LA GPR02P,ATCRDTLK(,VCVTPTR) 0787 00574000 * GPR04P = GPR01P->RPHCRR; /*SET PARAM - ISTCRA PTR*/ 0788 00575000 L GPR04P,RPHCRR(,GPR01P) 0788 00576000 * GPR00P = CRALMS03; /*SET PARAM - LOCK LEVEL FLAG*/ 00577000 LA GPR00P,4 0789 00578000 * GPR03P = ADDR(GPR04P->CRAL3PTR); 0790 00579000 LA GPR03P,CRAL3PTR(,GPR04P) 0790 00580000 * /*SET PARAM - LOCK LEVEL PTR*/ 00581000 * DCL FMZL0111 BASED(GPR15P) LABEL VALUERANGE(*); 0791 00582000 * CALL FMZL0111; 0792 00583000 BALR @14,@15 0792 00584000 * GENERATE REFS(GPR00P,GPR01P,GPR14P,RPHWORK) SETS(GPR00P,GPR01P 00585000 *GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P,GPR10P,GPR11P, 00586000 *PR12P,GPR13P,GPR14P,GPR15P); 0793 00587000 * 0793 00588000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00589000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 0794 00590000 * END; 0795 00591000 */*** END -TPLOCK (RDTLOCK)- ***/ 0796 00592000 * /* THE FOLLOWING CODE SCHEDULES THE NETWORK */ 0796 00593000 * /* SOLICITOR TPEND EXIT */ 0796 00594000 * /* SET UP PAB AND UECB FOR TPEND(HALT QUICK) */ 0796 00595000 * UECTSKID=ACDTSKID; /* FILL IN NETSOL'S TASK ID */ 0796 00596000 LA @08,916 0796 00597000 AL @08,ATCCONFT(,VCVTPTR) 0796 00598000 L @07,RAPACDEB(,@08) 0796 00599000 L @06,ACDTSKID(,@07) 0796 00600000 ST @06,UECTSKID(,UECBPTR) 0796 00601000 * UECACB=ACDACB; /* GET ACB @ FROM NETSOL'S DEB */ 0797 00602000 L @07,ACDACB-1(,@07) 0797 00603000 LA @07,0(,@07) 0797 00604000 ST @07,UECACB(,UECBPTR) 0797 00605000 * UECTYPE=UECTPEND; /* INDICATE TPEND EXIT IN UECB */ 0798 00606000 MVI UECTYPE(UECBPTR),X'0D' 0798 00607000 * UECID=UEID; 0799 00608000 MVI UECID(UECBPTR),X'10' 0799 00609000 * UECLEN=LENGTH(ISTUECB); 0800 00610000 MVI UECLEN(UECBPTR),X'54' 0800 00611000 * UECNDID=RPRCOMID; /* GET CID OF NETWORK SOLICITOR */ 0801 00612000 L @08,RPRCOMID(,@08) 0801 00613000 ST @08,UECNDID(,UECBPTR) 0801 00614000 * UECDVTPT=ATCUEP; /* PTR TO USER EXIT INTERFACE RTN */ 0802 00615000 L @08,ATCUEP(,VCVTPTR) 0802 00616000 ST @08,UECDVTPT(,UECBPTR) 0802 00617000 * RFY ISTPAB BASED(ADDR(UECPAB)); 0803 00618000 * PABDVTA=ADDR(UECDVTPT); 0804 00619000 LA @08,16 0804 00620000 ALR @08,UECBPTR 0804 00621000 LA @07,UECDVTPT(,UECBPTR) 0804 00622000 STCM @07,7,PABDVTA(@08) 0804 00623000 * PABAPYP='1'B; /* INDICATE USER EXIT RTN */ 0805 00624000 OI PABAPYP(@08),B'10000000' 0805 00625000 * PABOFFST=ADDR(UECPAB)-ADDR(ISTUECB); /* FILL IN PAB OFFSET */ 00626000 LA @07,UECPAB(,UECBPTR) 0806 00627000 SLR @07,UECBPTR 0806 00628000 STC @07,PABOFFST(,@08) 0806 00629000 * RPHPTR=RPHSVPTR; /* PUT PTR TO RPH IN REG 1 */ 0807 00630000 L RPHPTR,RPHSVPTR 0807 00631000 * GEN (STM R3,R10,CNSREGSV) 0808 00632000 * SETS (CNSREGSV); /*@XA09313*/ 00633000 * 0808 00634000 STM R3,R10,CNSREGSV 00635000 * R0 = ACDTSKID; /* ADDRESS OF PST @XA09313*/ 00636000 L @08,ATCCONFT(,VCVTPTR) 0809 00637000 L @08,RAPACDEB+916(,@08) 0809 00638000 L R0,ACDTSKID(,@08) 0809 00639000 * R2 = UECBPTR; /* ADDRESS OF BUFFER @XA09313*/ 00640000 LR R2,UECBPTR 0810 00641000 * CALL ISTORAID; /*@XA09313*/ 00642000 L @15,ATCSMAID(,VCVTPTR) 0811 00643000 BALR @14,@15 0811 00644000 * GEN (LM R3,R10,CNSREGSV) 0812 00645000 * REFS(CNSREGSV); /*@VS42153*/ 00646000 * 0812 00647000 LM R3,R10,CNSREGSV 00648000 */* TPQUE (UECBPTR,UECPAB) NORM */ 0813 00649000 * 0813 00650000 * DO; 0813 00651000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) RSTD; 0814 00652000 * GEN REFS(GPR01P) SETS(RPHWORK) 0815 00653000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0815 00654000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00655000 * GPR00P=0; 0816 00656000 SLR GPR00P,GPR00P 0816 00657000 * GPR15P=ADDR(UECPAB); /*HOLD PAB PTR*/ 0817 00658000 LA GPR15P,UECPAB(,UECBPTR) 0817 00659000 * GPR04P=UECBPTR; /*WORK ELE PTR*/ 0818 00660000 LR GPR04P,UECBPTR 0818 00661000 * GPR05P=GPR15P; /*PASS PAB PTR*/ 0819 00662000 LR GPR05P,GPR15P 0819 00663000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0820 00664000 L @09,ATCLCPTR 0820 00665000 L @15,ATCAP37(,@09) 0820 00666000 BALR @14,@15 0820 00667000 * GEN(NOPR 0)NOSETS NOREFS; 0821 00668000 NOPR 0 00669000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) UNRSTD; 0822 00670000 * END; /**** END OF TPQUE GENERATION ****/ /* SCHEDULE TPEND */ 00671000 * GEN (LM R3,R10,CNSREGSV) 0824 00672000 * REFS(CNSREGSV); /*@XA09313*/ 00673000 LM R3,R10,CNSREGSV 00674000 * /* RELEASE THE RDT LOCK SO NETWORK SOLICITOR */ 0825 00675000 * /* TPEND EXIT CAN CLOSE HIS ACB */ 0825 00676000 * 0825 00677000 */*** START -TPUNLOCK (RDTLOCK)- ***/ 0825 00678000 * DO; 0825 00679000 * 0825 00680000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 0826 00681000 */* END OF ATBUILD */ 0826 00682000 * 0826 00683000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0826 00684000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00685000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00686000 * GPR02P = ADDR(ATCRDTLK); /*SET PARAM - LOCKWORD PTR*/ 00687000 LA GPR02P,ATCRDTLK(,VCVTPTR) 0828 00688000 * GPR04P = GPR01P->RPHCRR; /*SET PARAM - ISTCRA PTR*/ 0829 00689000 L GPR04P,RPHCRR(,GPR01P) 0829 00690000 * GPR00P = CRALMS03; /*SET PARAM - LOCK LEVEL FLAG*/ 00691000 LA GPR00P,4 0830 00692000 * GPR03P = ADDR(GPR04P->CRAL3PTR); 0831 00693000 LA GPR03P,CRAL3PTR(,GPR04P) 0831 00694000 * /*SET PARAM - LOCK LEVEL PTR*/ 00695000 * 0832 00696000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0832 00697000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0833 00698000 L GPR15P,ATCLCPTR 0833 00699000 * END; /*LISATCVT*/ 0834 00700000 * GPR15P=GPR15P->ATCAP33; 0835 00701000 L GPR15P,ATCAP33(,GPR15P) 0835 00702000 * DCL FMZL0122 BASED(GPR15P) LABEL VALUERANGE(*); 0836 00703000 * CALL FMZL0122; 0837 00704000 BALR @14,@15 0837 00705000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(GPR00P,GPR01P 00706000 *GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P,GPR10P,GPR11P, 00707000 *PR12P,GPR13P,GPR14P,GPR15P); 0838 00708000 * 0838 00709000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00710000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 0839 00711000 * END; 0840 00712000 */*** END -TPUNLOCK (RDTLOCK)- ***/ 0841 00713000 * LDPACTIF='0'B; /* TURN OFF ACTIVE BIT IN */ 0841 00714000 L @09,ATCCONFT(,VCVTPTR) 0841 00715000 NI LDPACTIF+1172(@09),B'11011111' 0841 00716000 * /* ATTACH PARAMETER LIST */ 0842 00717000 * END; /* END ELSE CLAUSE FOR REQSTORE O.K. */ 0842 00718000 *SAVE13=SAVEPTR; /* SAVE R13 OVER VPOST @XM42113*/ 00719000 @RC00756 ST SAVEPTR,SAVE13 0843 00720000 *SAVEPTR=ADDR(CNSSAVE); /* ADDR OF SAVE FOR VSETLCK&VPOST @XM42113*/ 00721000 LA SAVEPTR,CNSSAVE 0844 00722000 */* OBTAIN LOCAL MEMORY LOCK */ 0845 00723000 *CASOBLCK: 0845 00724000 */*VSETLCK (RCREG,OBTAIN,LOCAL,ISTINCAS(CASRELCK))*/ 0845 00725000 * DO; 0845 00726000 CASOBLCK DS 0H 0846 00727000 * /*DECLARE AND RESTRICT REGS */ 00728000 * /* 2,10,11,12,13,14, AND 15 00729000 **/ 0846 00730000 * RFY (GPR02P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P) RSTD 00731000 * 0846 00732000 * /*SAVE REGS 2 AND 10 THRU 14*/ 00733000 * GEN REFS(GPR02F,GPR10F,GPR11F,GPR12F,GPR14F,GPR13P); 0847 00734000 * 0847 00735000 STM GPR10F,GPR12F,0(GPR13P) 00736000 ST GPR14F,12(GPR13P) 00737000 ST GPR02F,16(GPR13P) 00738000 * /*INVOKE MODESET TO CHANGE */ 00739000 * /*PSW PROTECTION KEY TO 0 */ 00740000 * GEN SETS(2); 0848 00741000 * 0848 00742000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 00743000 * GPR10P=GPR13P; /*PUT SAVE AREA ADDR IN R 10*/ 00744000 LR GPR10P,GPR13P 0849 00745000 * /*INVOKE OS/VS SETLOCK MACRO*/ 00746000 * GEN REFS(GPR13P,PSALITA,FLC) SETS(GPR12F); 0850 00747000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *00748000 RELATED=ISTINCAS(CASRELCK) 00749000 * GPR15P=GPR13P; /*PUT RETURN CODE IN R 15 */ 00750000 LR GPR15P,GPR13P 0851 00751000 * /*INVOKE MODESET MACRO TO */ 00752000 * DO; /*RESTORE PSW PROTECTION KEY*/ 00753000 * GEN SETS(2); 0853 00754000 MODESET KEYADDR=(2),WORKREG=2 00755000 * END; /* RESTORE REGISTERS */ 00756000 * GEN REFS(GPR10F,GPR13P) SETS(GPR10F,GPR11F, 0855 00757000 * GPR12F,GPR13F,GPR14F,GPR02F); 0855 00758000 LR GPR13F,GPR10F 00759000 LM GPR10F,GPR12F,0(GPR13P) 00760000 L GPR14F,12(GPR13P) 00761000 L GPR02F,16(GPR13P) 00762000 * IF GPR15F=4 THEN GPR15F=0; 0856 00763000 C GPR15F,@CF00054 0856 00764000 BNE @RF00856 0856 00765000 SLR GPR15F,GPR15F 0857 00766000 * RCREG=GPR15F; /*PUT RETURN CODE IN RCREG*/ 00767000 * 0858 00768000 @RF00856 DS 0H 0859 00769000 * RFY (GPR02P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P) UNRS 00770000 *D; END; /*VSETLCK */ 0859 00771000 */*VPOST ECB(CNSECB)*/ 0861 00772000 * DO; 0861 00773000 * 0861 00774000 * RFY (GPR00P,GPR01P,GPR02P,GPR05P,GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,G 00775000 *R14P,GPR15P) RSTD; /*DECLARE AND RESTRICT REGS */ 00776000 * /* SAVE REGS */ 0863 00777000 * GEN REFS(GPR00F,GPR01F,GPR02F,GPR05F,GPR09F, 0863 00778000 * GPR10F,GPR11F,GPR12P,GPR13P,GPR14F,GPR15F); 0863 00779000 STM GPR14F,GPR12F,0(GPR13P) 00780000 * GPR00P=GPR13P; /*SAVE REG 13 IN REG 0 */ 00781000 LR GPR00P,GPR13P 0864 00782000 * /*INVOKE XREGSET MACRO TO*/ 00783000 * /*CHECK ECB PARAMETER AND*/ 00784000 * /*PUT ADDRESS IN REG 1 */ 00785000 * 0865 00786000 */*XREGSET PID('ECB')PPARM(CNSECB)RREG(1,GPR01P)*/ 0865 00787000 * DO; 0865 00788000 * GPR01P=ADDR(CNSECB); /*SET RREG SYMBOL TO ADDRESS*/ 00789000 LA GPR01P,CNSWKE 0866 00790000 LA GPR01P,CNSECB(,GPR01P) 0866 00791000 * /*OF PPARM OPERAND */ 00792000 * END; /* XREGSET */ 0867 00793000 * GPR10F=0; /*SET COMPLETION CODE TO 0*/ 00794000 SLR GPR10F,GPR10F 0868 00795000 * GPR11P=GPR01P; /*PUT ECB ADDR IN REG 11 */ 00796000 LR GPR11P,GPR01P 0869 00797000 * DCL CMZP0135 PTR(31) LOCATION(16); /*ESTABLISH POINTER TO CVT */ 00798000 */*VMDESET ((15),ZERO,(2))*/ 0871 00799000 * DO; /* INVOKE MODESET MACRO */ 00800000 * GEN SETS (2); 0872 00801000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 00802000 * GPR15F=0; 0873 00803000 SLR GPR15F,GPR15F 0873 00804000 * /*PUT RETURN CODE IN RCREG*/ 00805000 * END; /* VMDESET */ 0874 00806000 * GPR05F=GPR02F; 0875 00807000 LR GPR05F,GPR02F 0875 00808000 * CALL CMZP0135->CVT0PT01; /*BRANCH TO TASK SUPERVISOR */ 00809000 L @08,CMZP0135 0876 00810000 L @15,CVT0PT01(,@08) 0876 00811000 BALR @14,@15 0876 00812000 * /* POST ROUTINE (IEA0PT01) */ 00813000 * GPR02F=GPR05F; 0877 00814000 * 0877 00815000 LR GPR02F,GPR05F 0877 00816000 */*VMDESET ((15),,,(2))*/ 0878 00817000 * DO; /* INVOKE MODESET MACRO */ 00818000 * GEN SETS (2); 0879 00819000 MODESET KEYADDR=(2),WORKREG=2 00820000 * GPR15F=0; 0880 00821000 SLR GPR15F,GPR15F 0880 00822000 * /*PUT RETURN CODE IN RCREG*/ 00823000 * END; /* VMDESET */ 0881 00824000 * GPR13P=GPR00P; /*RESTORE SAVE AREA ADDR */ 00825000 LR GPR13P,GPR00P 0882 00826000 * /* FROM REGISTER 0 */ 00827000 * /*RESTORE REGS */ 0883 00828000 * GEN REFS(GPR13P) SETS(GPR00F, 0883 00829000 * GPR01F,GPR02F,GPR05F,GPR09F,GPR10F,GPR11F, 0883 00830000 * GPR12F,GPR14F,GPR15F); 0883 00831000 * 0883 00832000 LM GPR14F,GPR12F,0(GPR13P) 00833000 * RFY (GPR00P,GPR01P,GPR02P,GPR05P,GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,G 00834000 *R14P,GPR15P) UNRSTD; /*UNRESTRICT REGS */ 0884 00835000 * END; /* VPOST */ /* POST MAINLINE DONE */ 0885 00836000 */* RELEASE LOCAL MEMORY LOCK */ 0886 00837000 *CASRELCK: 0886 00838000 */*VSETLCK (RCREG,RELEASE,LOCAL,ISTINCAS(CASOBLCK))*/ 0886 00839000 * DO; 0886 00840000 CASRELCK DS 0H 0887 00841000 * /*DECLARE AND RESTRICT REGS */ 00842000 * /* 2,10,11,12,13,14, AND 15 00843000 **/ 0887 00844000 * RFY (GPR02P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P) RSTD 00845000 * 0887 00846000 * /*SAVE REGS 2 AND 10 THRU 14*/ 00847000 * GEN REFS(GPR02F,GPR10F,GPR11F,GPR12F,GPR14F,GPR13P); 0888 00848000 * 0888 00849000 STM GPR10F,GPR12F,0(GPR13P) 00850000 ST GPR14F,12(GPR13P) 00851000 ST GPR02F,16(GPR13P) 00852000 * /*INVOKE MODESET TO CHANGE */ 00853000 * /*PSW PROTECTION KEY TO 0 */ 00854000 * GEN SETS(2); 0889 00855000 * 0889 00856000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 00857000 * GPR10P=GPR13P; /*PUT SAVE AREA ADDR IN R 10*/ 00858000 LR GPR10P,GPR13P 0890 00859000 * /*INVOKE OS/VS SETLOCK MACRO*/ 00860000 * GEN REFS(GPR13P,PSALITA,FLC) SETS(GPR12F); 0891 00861000 SETLOCK RELEASE,TYPE=LOCAL, *00862000 RELATED=ISTINCAS(CASOBLCK) 00863000 * GPR15P=GPR13P; /*PUT RETURN CODE IN R 15 */ 00864000 LR GPR15P,GPR13P 0892 00865000 * /*INVOKE MODESET MACRO TO */ 00866000 * DO; /*RESTORE PSW PROTECTION KEY*/ 00867000 * GEN SETS(2); 0894 00868000 MODESET KEYADDR=(2),WORKREG=2 00869000 * END; /* RESTORE REGISTERS */ 00870000 * GEN REFS(GPR10F,GPR13P) SETS(GPR10F,GPR11F, 0896 00871000 * GPR12F,GPR13F,GPR14F,GPR02F); 0896 00872000 LR GPR13F,GPR10F 00873000 LM GPR10F,GPR12F,0(GPR13P) 00874000 L GPR14F,12(GPR13P) 00875000 L GPR02F,16(GPR13P) 00876000 * IF GPR15F=4 THEN GPR15F=0; 0897 00877000 C GPR15F,@CF00054 0897 00878000 BNE @RF00897 0897 00879000 SLR GPR15F,GPR15F 0898 00880000 * RCREG=GPR15F; /*PUT RETURN CODE IN RCREG*/ 00881000 * 0899 00882000 @RF00897 DS 0H 0900 00883000 * RFY (GPR02P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P) UNRS 00884000 *D; END; /*VSETLCK */ 0900 00885000 *SAVEPTR=SAVE13; /* REESTABLISH R13 @XM42113*/ 00886000 L SAVEPTR,SAVE13 0902 00887000 *RPHPTR=RPHSVPTR; /* RESTORE RPH PTR */ 0903 00888000 L RPHPTR,RPHSVPTR 0903 00889000 */* TPEXIT NORM */ 0904 00890000 * DO; 0904 00891000 * RESPECIFY GPR15P RSTD; 0905 00892000 * 0905 00893000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 0906 00894000 */* END OF ATBUILD */ 0906 00895000 * 0906 00896000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0906 00897000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0907 00898000 L GPR15P,ATCLCPTR 0907 00899000 * END; /*LISATCVT*/ 0908 00900000 * RESPECIFY GPR00F RSTD; 0909 00901000 * GPR00F=4; /* SET PARAMETER REGISTER TO 4 */ 0910 00902000 LA GPR00F,4 0910 00903000 * GPR15P=GPR15P->ATCAP31; 0911 00904000 L GPR15P,ATCAP31(,GPR15P) 0911 00905000 * DCL FMZL0148 BASED(GPR15P) LABEL VALUERANGE(*); 0912 00906000 * CALL FMZL0148; 0913 00907000 BALR @14,@15 0913 00908000 * RESPECIFY (GPR00F,GPR15P) UNRSTD; 0914 00909000 * END; /***** END OF TPEXIT *****/ 0915 00910000 *END ISTINCAS; 0916 00911000 @EL00003 DS 0H 0916 00912000 @EF00003 DS 0H 0916 00913000 @ER00003 BR @14 0916 00914000 */********************************************************************* 00915000 */* THIS SUBROUTINE CALLS ISTINCA0 TO ATTACH THE NETWORK SOLICITOR. * 00916000 */* IF THE RETURN CODE FROM ISTINCA0 IS 0, A MESSAGE IS WRITTEN TO * 00917000 */* INDICATE NETSOL IS ACTIVE. * 00918000 */********************************************************************* 00919000 *ATTACHNS: PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0917 00920000 ATTACHNS DS 0H 0918 00921000 *DCL ATTSAVE PTR(31) INIT(0); /* SAVE AREA FOR REG 14 @Z30APHQ*/ 00922000 *ATTSAVE=R14; /* SAVE REG 14 */ 0919 00923000 ST R14,ATTSAVE 0919 00924000 *R1=ADDR(CONFNSAT); /* GET PARM LIST PTR IN REG 1 */ 0920 00925000 L R1,ATCCONFT(,VCVTPTR) 0920 00926000 LA R1,CONFNSAT(,R1) 0920 00927000 *CALL ISTINCA0; /* CALL TO GET NETSOL ATTACHED */ 0921 00928000 L @15,@CV04292 0921 00929000 BALR @14,@15 0921 00930000 *IF RCREG=RETURN4 THEN; /* IF ATTACH FAILED R.C. 4 */ 0922 00931000 C RCREG,@CF00054 0922 00932000 BE @RT00922 0922 00933000 *ELSE 0924 00934000 */*TPMSG MSGID('110I')OPTIONS(CNSCONID)*/ 0924 00935000 * 0924 00936000 * DO; 0924 00937000 * DCL REG1156 REG(1) PTR; 0925 00938000 * RFY (REG1156) RSTD; 0926 00939000 * 0926 00940000 * RFY (EMCR13) RSTD; 0927 00941000 * DCL 1 * BASED(REG1156), 0928 00942000 * 2 CMZID156 PTR(31), 0928 00943000 * 2 *, 0928 00944000 * 3 CMZRL156 PTR(8), 0928 00945000 * 3 CMZRA156 PTR(24) BDY(BYTE), 0928 00946000 * 2 CMZEA156 PTR(31), 0928 00947000 * 2 CMZVP156 PTR(31); 0928 00948000 * DCL CMZPL156(4) FIXED INIT((4)0); 0929 00949000 * REG1156 = ADDR(CMZPL156); 0930 00950000 LA REG1156,CMZPL156 0930 00951000 * DCL CMZAA156 CHAR(4) INIT('110I'); 0931 00952000 * CMZID156 = ADDR(CMZAA156); 0932 00953000 LA @10,CMZAA156 0932 00954000 ST @10,CMZID156(,REG1156) 0932 00955000 * DCL CMZSA156 (18) PTR(31) BASED(EMCR13); 0933 00956000 * CMZSA156(5) = ADDR(CNSCONID); 0934 00957000 * 0934 00958000 LA @10,CNSCONID 0934 00959000 ST @10,CMZSA156+16(,EMCR13) 0934 00960000 * DCL REG15156 REG(15) PTR; 0935 00961000 * RFY REG15156 RSTD; 0936 00962000 * 0936 00963000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15156)) */ 0937 00964000 * REG15156 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0938 00965000 L REG15156,ATCLCPTR 0938 00966000 * END; /*LISATCVT*/ 0939 00967000 * DCL CMTA156 BASED(REG15156) ENTRY VALUERANGE(*); 0940 00968000 * REG15156 = REG15156->ATCMSGP; 0941 00969000 L REG15156,ATCMSGP(,REG15156) 0941 00970000 * CALL CMTA156; 0942 00971000 BALR @14,@15 0942 00972000 * RESPECIFY (REG1156,REG15156) UNRESTRICTED; 0943 00973000 * 0943 00974000 * RFY (EMCR13) UNRSTD; 0944 00975000 * END; /*@XA08364*/ 0945 00976000 *R14=ATTSAVE; /* SAVE REG 14 */ 0946 00977000 @RT00922 L R14,ATTSAVE 0946 00978000 *END ATTACHNS; 0947 00979000 @EL00004 DS 0H 0947 00980000 @EF00004 DS 0H 0947 00981000 @ER00004 BR @14 0947 00982000 */********************************************************************* 00983000 */* THE NOTMDFY SUBROUTINE IS CALLED WHEN ISTINCNS IS ENTERED FROM * 00984000 */* OTHER THAN A MODIFY COMMAND. IF LDPACTIF=1(I.E. NETSOL ALREADY * 00985000 */* ACTIVE), NO ACTION IS TAKEN. OTHERWISE, THE ATTACHNS SUBROUTINE * 00986000 */* IS CALLED TO ATTACH THE NETWORK SOLICITOR. * 00987000 */********************************************************************* 00988000 *NOTMDFY: PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0948 00989000 NOTMDFY DS 0H 0949 00990000 *DCL NOTSAVE PTR (31) INIT(0); /* SAVE AREA FOR REG 14 @Z30APHQ*/ 00991000 *NOTSAVE=R14; /* SAVE REG 14 */ 0950 00992000 ST R14,NOTSAVE 0950 00993000 *IF ATCNETSL='1'B THEN 0951 00994000 TM ATCNETSL(VCVTPTR),B'00001000' 0951 00995000 BNO @RF00951 0951 00996000 * DO; 0952 00997000 * IF LDPACTIF='1'B THEN; /* SEE IF NETSOL ACTIVE */ 0953 00998000 L @09,ATCCONFT(,VCVTPTR) 0953 00999000 TM LDPACTIF+1172(@09),B'00100000' 0953 01000000 BO @RT00953 0953 01001000 * /* IF ACTIVE, DON'T ATTACH */ 0955 01002000 * ELSE CALL ATTACHNS; /* ELSE GET NETSOL ATTACHED */ 0955 01003000 BAL @14,ATTACHNS 0955 01004000 * END; /* END CLAUSE FOR CONNSNEC=1 */ 0956 01005000 *ELSE; 0957 01006000 @RF00951 DS 0H 0958 01007000 *R14=NOTSAVE; /* RESTORE REG 14 */ 0958 01008000 @RC00951 L R14,NOTSAVE 0958 01009000 *END NOTMDFY; 0959 01010000 * 0959 01011000 @EL00005 DS 0H 0959 01012000 @EF00005 DS 0H 0959 01013000 @ER00005 BR @14 0959 01014000 */* TPEPILOG */ 0960 01015000 * GEN (PRINT OFF); 0960 01016000 * 0960 01017000 * 0960 01018000 PRINT OFF 01019000 * DECLARE 0961 01020000 * EMCR0 PTR REG(0), 0961 01021000 * EMCR1 PTR REG(1), 0961 01022000 * EMCR2 PTR REG(2), 0961 01023000 * EMCR3 PTR REG(3), 0961 01024000 * EMCR4 PTR REG(4), 0961 01025000 * EMCR5 PTR REG(5), 0961 01026000 * EMCR6 PTR REG(6), 0961 01027000 * EMCR7 PTR REG(7), 0961 01028000 * EMCR8 PTR REG(8), 0961 01029000 * EMCR9 PTR REG(9), 0961 01030000 * EMCR10 PTR REG(10), 0961 01031000 * EMCR11 PTR REG(11), 0961 01032000 * EMCR12 PTR REG(12), 0961 01033000 * EMCR13 PTR REG(13), 0961 01034000 * EMCR14 PTR REG(14), 0961 01035000 * EMCR15 PTR REG(15); 0961 01036000 * DCL ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*); /*RESET ROUTINE*/ 0962 01037000 * DCL ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*); /*TPQUE ROUTINE*/ 0963 01038000 * GEN (PRINT ON); 0964 01039000 PRINT ON 01040000 */* END OF TPEPILOG */ 0965 01041000 */* ATDSPLY INVOKED. */ 0965 01042000 */********************************************************************/ 01043000 */* THE FOLLOWING ATBUILD INCLUSIONS HAVE BEEN MADE IN THIS */ 01044000 */* COMPILATION: */ 01045000 */* ISTAVT */ 01046000 */* ISTLOK */ 01047000 */* ISTDEVCH */ 01048000 */* ISTLDPRM */ 01049000 */* ISTRDT */ 01050000 */* ISTCONFT */ 01051000 */* ISTPOHD */ 01052000 */* ISTPFX */ 01053000 */* ISTNCSPL */ 01054000 */* ISTPAB */ 01055000 */* ISTDYPAB */ 01056000 */* ISTRPH */ 01057000 */* ISTATCVT */ 01058000 */* ISTUECB */ 01059000 */* ISTWKE */ 01060000 */* ISTACDEB */ 01061000 */* ISTLCCW */ 01062000 */* ISTLCPB */ 01063000 */* ISTZSAVE */ 01064000 */* ISTPFCRR */ 01065000 */* ISTCFCRR */ 01066000 */* ISTZCRR */ 01067000 */* ISTASCRR */ 01068000 */* ISTAPCRR */ 01069000 */* ISTCRA */ 01070000 */* ISTITCRR */ 01071000 */********************************************************************/ 01072000 */* END OF ATDSPLY. */ 0965 01073000 *END ISTINCNS 0965 01074000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01075000 */*%INCLUDE SYSLIB (CVT ) * 01076000 */*%INCLUDE SYSLIB (IHAPSA ) * 01077000 *; 0965 01078000 B @EL00001 0965 01079000 @DATA DS 0H 01080000 DS 0F 01081000 @SA00001 DS 18F 01082000 DS 0F 01083000 @CF00054 DC F'4' 01084000 @CF02541 DC XL4'80000000' 01085000 @CV04292 DC V(ISTINCA0) 01086000 DS 0D 01087000 CVTPTR DS A 01088000 WKEPTR DS A 01089000 LCPBPTR DS A 01090000 RPHSVPTR DS A 01091000 RCSAVE DC F'0' 01092000 SAVE13 DS A 01093000 CNSDYPAB DC A(0) 01094000 CMZA0021 DS FL4 01095000 ORG CMZA0021 01096000 @NM00085 DC AL1(32) 01097000 @NM00086 DC AL1(96) 01098000 @NM00087 DC AL1(241) 01099000 @NM00088 DC XL1'01' 01100000 ORG CMZA0021+4 01101000 TESTSAVE DC A(0) 01102000 CMZA0040 DS FL4 01103000 ORG CMZA0040 01104000 @NM00089 DC AL1(32) 01105000 @NM00090 DC AL1(96) 01106000 @NM00091 DC AL1(241) 01107000 @NM00092 DC XL1'00' 01108000 ORG CMZA0040+4 01109000 FMZA0084 DS FL4 01110000 ORG FMZA0084 01111000 @NM00097 DC AL1(152) 01112000 @NM00098 DC AL3(0) 01113000 ORG FMZA0084+4 01114000 ATTSAVE DC A(0) 01115000 NOTSAVE DC A(0) 01116000 @CB02285 DC X'0008' 01117000 DS CL2 01118000 CNSWKE DS CL68 01119000 CNSREGSV DS CL32 01120000 CNSCONID DC B'00000000' 01121000 DC XL8'0' 01122000 CNSCONCL DC B'00000000' 01123000 DC XL8'0' 01124000 CMZAA013 DC CL4'106I' 01125000 CMZAA058 DC CL4'123I' 01126000 CMZAA074 DC CL4'108I' 01127000 CMZAA103 DC CL4'123I' 01128000 CMZAA156 DC CL4'110I' 01129000 DS CL2 01130000 CNSSAVE DS 16A 01131000 CMZPL013 DC 4F'0' 01132000 CMZPL058 DC 4F'0' 01133000 CMZPL074 DC 4F'0' 01134000 CMZPL103 DC 4F'0' 01135000 CMZPL156 DC 4F'0' 01136000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01137000 @01 EQU 01 01138000 @02 EQU 02 01139000 @03 EQU 03 01140000 @04 EQU 04 01141000 @05 EQU 05 01142000 @06 EQU 06 01143000 @07 EQU 07 01144000 @08 EQU 08 01145000 @09 EQU 09 01146000 @10 EQU 10 01147000 @11 EQU 11 01148000 @12 EQU 12 01149000 @13 EQU 13 01150000 @14 EQU 14 01151000 @15 EQU 15 01152000 UECBPTR EQU @09 01153000 VCVTPTR EQU @10 01154000 NCSPLPTR EQU @09 01155000 LDPRMPTR EQU @01 01156000 RPHPTR EQU @01 01157000 GPR00F EQU @00 01158000 GPR00P EQU @00 01159000 GPR01F EQU @01 01160000 GPR01P EQU @01 01161000 GPR02F EQU @02 01162000 GPR02P EQU @02 01163000 GPR03F EQU @03 01164000 GPR03P EQU @03 01165000 GPR04F EQU @04 01166000 GPR04P EQU @04 01167000 GPR05F EQU @05 01168000 GPR05P EQU @05 01169000 GPR06P EQU @06 01170000 GPR07P EQU @07 01171000 GPR08P EQU @08 01172000 GPR09F EQU @09 01173000 GPR09P EQU @09 01174000 GPR10F EQU @10 01175000 GPR10P EQU @10 01176000 GPR11F EQU @11 01177000 GPR11P EQU @11 01178000 GPR12F EQU @12 01179000 GPR12P EQU @12 01180000 GPR13F EQU @13 01181000 GPR13P EQU @13 01182000 GPR14F EQU @14 01183000 GPR14P EQU @14 01184000 GPR15F EQU @15 01185000 GPR15P EQU @15 01186000 R0 EQU @00 01187000 R1 EQU @01 01188000 R2 EQU @02 01189000 R3 EQU @03 01190000 R4 EQU @04 01191000 R5 EQU @05 01192000 CNSWKPTR EQU @11 01193000 R14 EQU @14 01194000 RCREG EQU @15 01195000 SAVEPTR EQU @13 01196000 REG1013 EQU @01 01197000 EMCR13 EQU @13 01198000 REG15013 EQU @15 01199000 REG1058 EQU @01 01200000 REG15058 EQU @15 01201000 REG1074 EQU @01 01202000 REG15074 EQU @15 01203000 NSWKAD EQU @11 01204000 CMZK0082 EQU @01 01205000 REG1103 EQU @01 01206000 REG15103 EQU @15 01207000 REG1156 EQU @01 01208000 REG15156 EQU @15 01209000 EMCR0 EQU @00 01210000 EMCR1 EQU @01 01211000 EMCR10 EQU @10 01212000 EMCR11 EQU @11 01213000 EMCR12 EQU @12 01214000 EMCR14 EQU @14 01215000 EMCR15 EQU @15 01216000 EMCR2 EQU @02 01217000 EMCR3 EQU @03 01218000 EMCR4 EQU @04 01219000 EMCR5 EQU @05 01220000 EMCR6 EQU @06 01221000 EMCR7 EQU @07 01222000 EMCR8 EQU @08 01223000 EMCR9 EQU @09 01224000 GPR06F EQU @06 01225000 GPR07F EQU @07 01226000 GPR08F EQU @08 01227000 R10 EQU @10 01228000 PSA EQU 0 01229000 FLCRNPSW EQU PSA 01230000 FLCROPSW EQU PSA+8 01231000 FLCICCW2 EQU PSA+16 01232000 PSAEEPSW EQU PSA+132 01233000 PSAESPSW EQU PSA+136 01234000 FLCSVILC EQU PSAESPSW+1 01235000 PSAEPPSW EQU PSA+140 01236000 FLCPIILC EQU PSAEPPSW+1 01237000 FLCPICOD EQU PSAEPPSW+2 01238000 PSAPICOD EQU FLCPICOD+1 01239000 FLCTEA EQU PSAEPPSW+4 01240000 FLCPER EQU PSA+152 01241000 FLCMCLA EQU PSA+168 01242000 FLCIOEL EQU FLCMCLA+4 01243000 FLCIOA EQU FLCMCLA+16 01244000 FLCFSA EQU FLCMCLA+80 01245000 PSASUPER EQU PSA+552 01246000 PSASUP1 EQU PSASUPER 01247000 PSASUP2 EQU PSASUPER+1 01248000 PSASUP3 EQU PSASUPER+2 01249000 PSASUP4 EQU PSASUPER+3 01250000 PSACLHT EQU PSA+640 01251000 PSALKSA EQU PSA+696 01252000 PSAHLHI EQU PSA+760 01253000 PSALITA EQU PSA+764 01254000 PSADSSFL EQU PSA+836 01255000 PSADSSF1 EQU PSADSSFL 01256000 PSADSSF3 EQU PSADSSFL+2 01257000 PSADSSF4 EQU PSADSSFL+3 01258000 PSARSVT EQU PSA+896 01259000 ATCLCPTR EQU 1032 01260000 CMZP0135 EQU 16 01261000 CVTMAP EQU 0 01262000 CVTDAR EQU CVTMAP+72 01263000 CVTFLGS1 EQU CVTDAR 01264000 CVTDCB EQU CVTMAP+116 01265000 CVTIERLC EQU CVTMAP+144 01266000 CVT0PT01 EQU CVTMAP+152 01267000 CVTOPTA EQU CVTMAP+182 01268000 CVTOPTB EQU CVTMAP+183 01269000 CVTGTF EQU CVTMAP+236 01270000 CVTGTFST EQU CVTGTF 01271000 CVTGTFS EQU CVTGTFST 01272000 CVTSTATE EQU CVTGTFST 01273000 CVTTMODE EQU CVTGTFST 01274000 CVTFORM EQU CVTGTFST 01275000 CVTAQAVT EQU CVTMAP+240 01276000 CVTTCMFG EQU CVTAQAVT 01277000 CVTVOLM2 EQU CVTMAP+244 01278000 CVTTATA EQU CVTVOLM2 01279000 CVTTSKS EQU CVTTATA 01280000 CVTVOLF2 EQU CVTTSKS 01281000 CVTTAT EQU CVTTATA+1 01282000 CVTATER EQU CVTMAP+248 01283000 CVTEXT1 EQU CVTMAP+252 01284000 CVTPURG EQU CVTMAP+260 01285000 CVTQMSG EQU CVTMAP+268 01286000 CVTDMSR EQU CVTMAP+272 01287000 CVTRSV37 EQU CVTDMSR 01288000 CVTDMSRF EQU CVTRSV37 01289000 CVTERPV EQU CVTMAP+316 01290000 CVTINTLA EQU CVTMAP+320 01291000 CVTAPF EQU CVTMAP+324 01292000 CVTEXT2 EQU CVTMAP+328 01293000 CVTHJES EQU CVTMAP+332 01294000 CVTPGSIA EQU CVTMAP+348 01295000 CVTA1F1 EQU CVTMAP+356 01296000 CVTSYSK EQU CVTMAP+357 01297000 CVTVOLM1 EQU CVTMAP+380 01298000 CVTVOLF1 EQU CVTVOLM1 01299000 CVTATMCT EQU CVTMAP+388 01300000 CVTXTNT1 EQU 0 01301000 CVTXTNT2 EQU 0 01302000 CVTDSSV EQU CVTXTNT2 01303000 CVTFLGBT EQU CVTXTNT2+5 01304000 CVTQID EQU CVTXTNT2+24 01305000 CVTSHS EQU CVTXTNT2+40 01306000 CVTRV400 EQU CVTXTNT2+52 01307000 CVTRV409 EQU CVTXTNT2+53 01308000 CVTATCVT EQU CVTXTNT2+64 01309000 CVTRV429 EQU CVTXTNT2+84 01310000 CVTRV438 EQU CVTXTNT2+85 01311000 CVTRV457 EQU CVTXTNT2+112 01312000 CVTRV466 EQU CVTXTNT2+113 01313000 CVTFIX EQU 0 01314000 CVTRELNO EQU CVTFIX+252 01315000 ISTAVT EQU 0 01316000 ISTAS49 EQU ISTAVT+4 01317000 ISTLOK EQU 0 01318000 LOKCHN EQU ISTLOK+1 01319000 LOKCHNG EQU LOKCHN 01320000 @NM00028 EQU LOKCHNG+2 01321000 ISTDEVCH EQU 0 01322000 DEVSHCH EQU ISTDEVCH 01323000 DEVCHAR EQU DEVSHCH 01324000 DEVTCODE EQU ISTDEVCH+1 01325000 DEVFLAGS EQU ISTDEVCH+3 01326000 DEVFCCTL EQU DEVFLAGS 01327000 DEVCHAR3 EQU DEVFLAGS 01328000 ISTLDPRM EQU 0 01329000 LDPFG EQU ISTLDPRM+20 01330000 LDPFB2 EQU ISTLDPRM+21 01331000 LDPACTIF EQU LDPFB2 01332000 ISTRPRE EQU 0 01333000 RPRCOMID EQU ISTRPRE+8 01334000 RPRFLAGA EQU ISTRPRE+21 01335000 RPRFLAGB EQU ISTRPRE+22 01336000 RPRCAUSE EQU ISTRPRE+23 01337000 RPRFLAGD EQU ISTRPRE+61 01338000 RPRFLAGC EQU ISTRPRE+62 01339000 ISTRCPRE EQU 0 01340000 RCPPMODE EQU ISTRCPRE+91 01341000 RCPLGNIN EQU ISTRCPRE+92 01342000 ISTRDT EQU 0 01343000 RDTPLEN EQU ISTRDT+72 01344000 RDTPRIOR EQU RDTPLEN 01345000 RDTFLAGB EQU ISTRDT+91 01346000 RDTVYRPH EQU ISTRDT+108 01347000 RDTSTCNT EQU ISTRDT+112 01348000 ISTRAP EQU 0 01349000 RAPACDEB EQU ISTRAP+76 01350000 RAPFLG EQU ISTRAP+108 01351000 RAPFLGB EQU ISTRAP+109 01352000 RAPFLGC EQU ISTRAP+110 01353000 ISTRLC EQU 0 01354000 RLCADR EQU ISTRLC+72 01355000 RLCFLAG EQU RLCADR 01356000 ISTRRN EQU 0 01357000 RRNADR EQU ISTRRN+136 01358000 RRNFLAG EQU RRNADR 01359000 RRNUCBAD EQU RRNADR+1 01360000 RRNRDF EQU ISTRRN+172 01361000 RRNRDFA EQU RRNRDF 01362000 RRNRDFB EQU RRNRDF+1 01363000 RRNCMF EQU ISTRRN+176 01364000 RRNCMFA EQU RRNCMF 01365000 RRNCMFB EQU RRNCMF+1 01366000 RRNCMFC EQU RRNCMF+2 01367000 RRNCMFD EQU RRNCMF+3 01368000 RRNNMDPD EQU ISTRRN+192 01369000 RRNHPRE EQU ISTRRN+216 01370000 ISTRGP EQU 0 01371000 RGPFLG EQU ISTRGP+72 01372000 ISTRLN EQU 0 01373000 RLNADR EQU ISTRLN+72 01374000 RLNFLAG EQU RLNADR 01375000 RLNUCBAD EQU RLNADR+1 01376000 RLNSTAT1 EQU ISTRLN+86 01377000 RLNSTAT2 EQU ISTRLN+87 01378000 RLNRDF EQU ISTRLN+88 01379000 RLNRDFA EQU RLNRDF 01380000 RLNRACNT EQU RLNRDFA 01381000 RLNRDFB EQU RLNRDF+1 01382000 RLNCRFLG EQU ISTRLN+102 01383000 RLNLSCMD EQU RLNCRFLG 01384000 ISTRPT EQU 0 01385000 RPTLNCID EQU ISTRPT+116 01386000 RPTDITT EQU ISTRPT+128 01387000 RPTFLAG1 EQU ISTRPT+140 01388000 ISTRCL EQU 0 01389000 RCLADR EQU ISTRCL+72 01390000 RCLFLAG EQU RCLADR 01391000 ISTRTR EQU 0 01392000 RTRADR EQU ISTRTR+124 01393000 RTRFLAG EQU RTRADR 01394000 RTRRDFA EQU ISTRTR+136 01395000 RTRRAALL EQU RTRRDFA 01396000 RTRRDFB EQU ISTRTR+137 01397000 RTRRDFC EQU ISTRTR+138 01398000 RTRRDFD EQU ISTRTR+139 01399000 RTRRDFE EQU ISTRTR+140 01400000 RTRRDFF EQU ISTRTR+141 01401000 RTRCRFLG EQU ISTRTR+143 01402000 RTRLSCMD EQU RTRCRFLG 01403000 RTRBSCID EQU ISTRTR+188 01404000 ISTRIN EQU 0 01405000 RINDFD EQU ISTRIN+124 01406000 RINREMPO EQU RINDFD 01407000 RINNODEF EQU RINDFD 01408000 RINLDISC EQU RINDFD 01409000 RINNODID EQU ISTRIN+125 01410000 RINRLDAF EQU ISTRIN+126 01411000 RINREMOT EQU ISTRIN+128 01412000 RINVPAB EQU ISTRIN+132 01413000 RINRPHCN EQU ISTRIN+136 01414000 RINNCSPL EQU ISTRIN+140 01415000 RINCNCNT EQU ISTRIN+144 01416000 ISTRDS EQU 0 01417000 ISTDOT EQU 0 01418000 ISTRCC EQU 0 01419000 RCCFLAG EQU ISTRCC+73 01420000 RCCFLAGB EQU ISTRCC+74 01421000 RCCSTAID EQU ISTRCC+78 01422000 RCCID48 EQU RCCSTAID+2 01423000 RCCCRFLG EQU ISTRCC+108 01424000 ISTRLU EQU 0 01425000 RLUFLAG EQU ISTRLU+125 01426000 RLUCRFLG EQU ISTRLU+126 01427000 RLUPACE EQU ISTRLU+132 01428000 RLUNCPPC EQU ISTRLU+134 01429000 RLUUSSTB EQU ISTRLU+140 01430000 RLUMODET EQU ISTRLU+152 01431000 ISTRPX EQU 0 01432000 ISTRLX EQU 0 01433000 RLXFLAGA EQU ISTRLX+76 01434000 ISTRSW EQU 0 01435000 ISTRDA EQU 0 01436000 RDAADR EQU ISTRDA+72 01437000 RDAFLAG EQU RDAADR 01438000 RDAUCBAD EQU RDAADR+1 01439000 ISTRLS EQU 0 01440000 ISTDNT EQU 0 01441000 ISTGNT EQU 0 01442000 ISTPAT EQU 0 01443000 PATFLAGA EQU ISTPAT+7 01444000 ISTCONFT EQU 0 01445000 CONHALT EQU ISTCONFT+106 01446000 CONFLAGS EQU ISTCONFT+110 01447000 CONDSFLG EQU CONFLAGS 01448000 CONOPTFL EQU CONFLAGS+1 01449000 CONSTAT EQU CONFLAGS+2 01450000 CONBUFF EQU CONFLAGS+3 01451000 CONFLG01 EQU ISTCONFT+416 01452000 CONVVTAM EQU ISTCONFT+556 01453000 CONNTSOL EQU ISTCONFT+916 01454000 CONFNSAT EQU ISTCONFT+1172 01455000 CONSCPID EQU ISTCONFT+1356 01456000 CONSTAID EQU CONSCPID+3 01457000 ISTPOHD EQU 0 01458000 POHSTAT EQU ISTPOHD+1 01459000 ISTPFX EQU 0 01460000 PFXID EQU ISTPFX 01461000 ISTNCSPL EQU 0 01462000 @NM00045 EQU ISTNCSPL 01463000 NCSPFX EQU @NM00045 01464000 NCSPLVBF EQU ISTNCSPL+18 01465000 NCSPLVFL EQU ISTNCSPL+20 01466000 NCSPLVF1 EQU ISTNCSPL+21 01467000 NCSPLCMD EQU ISTNCSPL+60 01468000 NCSCMDA EQU NCSPLCMD 01469000 NCSCRFLG EQU ISTNCSPL+67 01470000 NCSPLRAD EQU ISTNCSPL+144 01471000 NCSIOCID EQU ISTNCSPL+148 01472000 NCSPLCID EQU NCSIOCID 01473000 NCSPLFSB EQU ISTNCSPL+168 01474000 NCSPLFL1 EQU ISTNCSPL+176 01475000 NCSPLFL2 EQU ISTNCSPL+177 01476000 NCSPLFL3 EQU ISTNCSPL+178 01477000 NCSPLFL4 EQU ISTNCSPL+179 01478000 NCSPLFL5 EQU ISTNCSPL+181 01479000 NCSPLAPP EQU ISTNCSPL+216 01480000 NCSSENSE EQU ISTNCSPL+244 01481000 NCSCRMSK EQU ISTNCSPL+268 01482000 NCSCHKPT EQU NCSCRMSK 01483000 NCSCRMOD EQU NCSCRMSK+2 01484000 NCSPLSID EQU ISTNCSPL+271 01485000 NCSPLSTA EQU NCSPLSID 01486000 NCSPLPHD EQU NCSPLSID+1 01487000 NCSAPP EQU 0 01488000 NCSAPBUE EQU NCSAPP+88 01489000 NCSUSSRU EQU 0 01490000 ISTPAB EQU 0 01491000 PABWQCHN EQU ISTPAB 01492000 PABWEQA EQU PABWQCHN 01493000 PABCHAIN EQU PABWQCHN+4 01494000 PABOFFST EQU ISTPAB+8 01495000 PABDVTA EQU ISTPAB+9 01496000 PABRPHFG EQU ISTPAB+12 01497000 PABFLAGS EQU PABRPHFG 01498000 PABAPYP EQU PABFLAGS 01499000 PABERLCK EQU PABFLAGS 01500000 PABERRLK EQU PABERLCK 01501000 ISTDYPAB EQU 0 01502000 DYPTSKID EQU ISTDYPAB+8 01503000 DYPPAB EQU ISTDYPAB+16 01504000 ISTRPH EQU 0 01505000 RPHCNTL EQU ISTRPH 01506000 RPHFLAGS EQU RPHCNTL+2 01507000 RPHAPTYP EQU RPHFLAGS 01508000 RPHFSTLC EQU RPHFLAGS 01509000 RPHFLGB EQU RPHCNTL+3 01510000 RPHRPHA EQU ISTRPH+4 01511000 RPHTSKID EQU ISTRPH+8 01512000 RPHRESMA EQU ISTRPH+16 01513000 RPHWPFLG EQU RPHRESMA 01514000 RPHWEA EQU ISTRPH+24 01515000 RPHCSPA EQU RPHWEA 01516000 RPHSRPRM EQU ISTRPH+28 01517000 RPHCRR EQU ISTRPH+32 01518000 RPHPABQA EQU ISTRPH+36 01519000 RPHWORK EQU ISTRPH+40 01520000 RPHSAVE1 EQU RPHWORK 01521000 RPHSBITS EQU RPHSAVE1+1 01522000 ISTATCVT EQU 0 01523000 ATCCOM EQU ISTATCVT 01524000 ATCSTAT EQU ATCCOM 01525000 ATCSTAT1 EQU ATCSTAT 01526000 ATCNETSL EQU ATCSTAT1 01527000 ATCSTFLG EQU ATCSTAT+1 01528000 ATCPOFLG EQU ATCSTAT+2 01529000 ATCSTAT4 EQU ATCSTAT+3 01530000 ATCCONFT EQU ATCCOM+112 01531000 ATCBPDA EQU ATCCOM+128 01532000 ATCIOTRC EQU ATCCOM+140 01533000 ATCTHTRC EQU ATCIOTRC 01534000 ATCGTSTR EQU ATCCOM+164 01535000 ATCSMRQ EQU ATCCOM+180 01536000 ATCCSMR EQU ISTATCVT+296 01537000 ATCUEP EQU ISTATCVT+304 01538000 ATCSHRFG EQU ISTATCVT+316 01539000 ATCMSGP EQU ISTATCVT+344 01540000 ATCHPGM EQU ISTATCVT+384 01541000 ATCAP33 EQU ISTATCVT+444 01542000 ATCAP35 EQU ISTATCVT+448 01543000 ATCRDTLK EQU ISTATCVT+472 01544000 ATCVLCNT EQU ISTATCVT+772 01545000 ATCRNO EQU ISTATCVT+788 01546000 ATCSOPD EQU ISTATCVT+792 01547000 ATCSIPD EQU ISTATCVT+800 01548000 ATCSECST EQU ISTATCVT+812 01549000 ATCSTAT2 EQU ISTATCVT+818 01550000 ATCVTBAM EQU ISTATCVT+908 01551000 @NM00059 EQU ATCVTBAM+3 01552000 ATCAOSM EQU ISTATCVT+912 01553000 ATCGSRBQ EQU ATCAOSM+4 01554000 ATCGSRBG EQU ATCGSRBQ 01555000 ATCAP31 EQU ATCAOSM+24 01556000 ATCAP34 EQU ATCAOSM+32 01557000 ATCICAPP EQU ATCAOSM+100 01558000 ATCLDAPP EQU ATCAOSM+120 01559000 ATCDAPVT EQU ATCAOSM+140 01560000 ATCAP37 EQU ATCAOSM+264 01561000 ATCCRA EQU ATCAOSM+280 01562000 ATCCRACN EQU ATCCRA+4 01563000 ATCSRB EQU ATCAOSM+288 01564000 ATCSRBCN EQU ATCSRB+4 01565000 ATCCRPL EQU ATCAOSM+296 01566000 ATCRPLCN EQU ATCCRPL+4 01567000 ATCSQAFR EQU ATCAOSM+304 01568000 ATCORTBC EQU ATCSQAFR+4 01569000 ATCORSRB EQU ATCORTBC 01570000 @NM00061 EQU ATCAOSM+332 01571000 ATCVTFLG EQU ATCAOSM+392 01572000 ATCSMAID EQU ATCAOSM+416 01573000 ATCZFLAG EQU ATCAOSM+588 01574000 ISTUECB EQU 0 01575000 UECID EQU ISTUECB 01576000 UECLEN EQU ISTUECB+1 01577000 UECTYPE EQU ISTUECB+3 01578000 UECTSKID EQU ISTUECB+8 01579000 UECPAB EQU ISTUECB+16 01580000 UECPLIST EQU ISTUECB+32 01581000 UECACB EQU UECPLIST 01582000 UECNDID EQU UECPLIST+4 01583000 UECTPNCD EQU UECNDID 01584000 UECREQTR EQU UECPLIST+8 01585000 UECDLEN EQU UECPLIST+12 01586000 UECRSNCD EQU UECDLEN 01587000 UECDVTPT EQU ISTUECB+68 01588000 ISTWKE EQU 0 01589000 WKECHAIN EQU ISTWKE+4 01590000 WKEFLAGS EQU WKECHAIN 01591000 ISTACDEB EQU 0 01592000 ACDVTPRX EQU ISTACDEB 01593000 ACDTSKID EQU ACDVTPRX+8 01594000 ACDDBPFX EQU ISTACDEB+16 01595000 ACDTBLOF EQU ACDDBPFX+6 01596000 ACDBASIC EQU ISTACDEB+24 01597000 ACDTCBAD EQU ACDBASIC 01598000 ACDNMSUB EQU ACDTCBAD 01599000 ACDDEBAD EQU ACDBASIC+4 01600000 ACDUSRPG EQU ACDBASIC+16 01601000 ACDACBAD EQU ACDBASIC+24 01602000 ACDACB EQU ACDACBAD+1 01603000 ACDAPPAD EQU ACDBASIC+28 01604000 ACDVTAM EQU ISTACDEB+56 01605000 ACDSSFLG EQU ACDVTAM+80 01606000 ACDAPDAT EQU ACDVTAM+83 01607000 ISTLCCW EQU 0 01608000 LCCWOP EQU ISTLCCW 01609000 LCCWRWOP EQU LCCWOP 01610000 LCCWCTL EQU LCCWRWOP 01611000 LCCWFLAG EQU ISTLCCW+1 01612000 LCCWLSI EQU LCCWFLAG 01613000 ISTLCPB EQU 0 01614000 LCPREQTG EQU ISTLCPB+2 01615000 LCPFLAGS EQU LCPREQTG 01616000 LCPZF001 EQU LCPFLAGS 01617000 LCPZRT02 EQU LCPZF001 01618000 LCPZF002 EQU LCPFLAGS 01619000 LCPZRT03 EQU LCPZF002 01620000 LCPZF003 EQU LCPFLAGS 01621000 LCPZRT04 EQU LCPZF003 01622000 LCPZF004 EQU LCPFLAGS 01623000 LCPZRT05 EQU LCPZF004 01624000 LCPZRT06 EQU LCPFLAGS 01625000 LCPZRT07 EQU LCPFLAGS 01626000 LCPMNRCD EQU LCPREQTG+1 01627000 LCPZRT08 EQU LCPMNRCD 01628000 LCPZRT09 EQU LCPMNRCD 01629000 LCPCHAIN EQU ISTLCPB+4 01630000 LCPCHAI1 EQU LCPCHAIN 01631000 LCPRUCNT EQU ISTLCPB+8 01632000 LCPFLAG2 EQU ISTLCPB+9 01633000 LCPTLBPI EQU LCPFLAG2 01634000 LCPFID0 EQU LCPFLAG2 01635000 LCPSEQ EQU ISTLCPB+10 01636000 LCPCID EQU ISTLCPB+16 01637000 LCPFDBA EQU ISTLCPB+24 01638000 LCPFLG1 EQU ISTLCPB+37 01639000 LCPFLCCW EQU ISTLCPB+40 01640000 LCPLCCW EQU ISTLCPB+48 01641000 LCPPABA EQU LCPLCCW+4 01642000 LCPRPHA EQU LCPPABA 01643000 ISTZSAVE EQU 0 01644000 ZSAZSVBC EQU ISTZSAVE 01645000 ZSAZSVMS EQU ZSAZSVBC 01646000 ISTPFCRR EQU 0 01647000 PFCCRR EQU ISTPFCRR 01648000 PFCCRRID EQU PFCCRR 01649000 PFCCRRLN EQU PFCCRR+2 01650000 PFCHDR EQU ISTPFCRR+4 01651000 PFCCRRO EQU PFCHDR 01652000 PFCFRRO EQU PFCHDR+4 01653000 PFCFTA EQU ISTPFCRR+12 01654000 ISTCFCRR EQU 0 01655000 CFCAUDIT EQU ISTCFCRR 01656000 CFCNTRD EQU CFCAUDIT 01657000 CFCCRT EQU CFCAUDIT+1 01658000 ISTZCRR EQU 0 01659000 ZCRCRR EQU ISTZCRR 01660000 ZCRFLGS1 EQU ISTZCRR+12 01661000 ZCRFLGS2 EQU ISTZCRR+13 01662000 ZCRSWFLD EQU ISTZCRR+14 01663000 ZCRENDSH EQU ZCRSWFLD 01664000 ZCRNDLCP EQU ZCRSWFLD 01665000 ZCRRESET EQU ZCRSWFLD 01666000 ZCRFLGS3 EQU ISTZCRR+15 01667000 ZCRGENSW EQU ISTZCRR+16 01668000 ZCRPFLGS EQU ISTZCRR+17 01669000 ZCRIBPR EQU ISTZCRR+18 01670000 ZCRSCPSW EQU ISTZCRR+19 01671000 ZCRPARMS EQU ISTZCRR+24 01672000 ZCRFBPTR EQU ZCRPARMS 01673000 ZCRDFRDA EQU ZCRPARMS+10 01674000 ZCRPCOD1 EQU ZCRPARMS+12 01675000 ZCRPLSBF EQU ZCRPCOD1 01676000 ZCRPCOD2 EQU ZCRPARMS+13 01677000 ZCRSVRTN EQU ISTZCRR+56 01678000 ZCRWKARA EQU ISTZCRR+156 01679000 ZCRCIDSV EQU ISTZCRR+192 01680000 ZCRAUDIT EQU ISTZCRR+440 01681000 ZCRENTER EQU ZCRAUDIT+5 01682000 ZCRLCPB EQU ISTZCRR+480 01683000 ZCRRHRU EQU ZCRLCPB 01684000 ISTASCRR EQU 0 01685000 ASCFLAGS EQU ISTASCRR+16 01686000 ASCFLG1 EQU ASCFLAGS 01687000 ASCFLG2 EQU ASCFLAGS+2 01688000 ASCFLG3 EQU ASCFLAGS+4 01689000 ASCUSRGS EQU ISTASCRR+28 01690000 ISTAPCRR EQU 0 01691000 APCATFLG EQU ISTAPCRR+16 01692000 APCRFLG EQU ISTAPCRR+18 01693000 APCSAVE EQU ISTAPCRR+44 01694000 APCCOMF EQU ISTAPCRR+116 01695000 APCCOMF1 EQU APCCOMF 01696000 APC31FLG EQU ISTAPCRR+132 01697000 APC52FLG EQU ISTAPCRR+133 01698000 APC53FLG EQU ISTAPCRR+134 01699000 APC54FLG EQU ISTAPCRR+135 01700000 APC57FLG EQU ISTAPCRR+136 01701000 ISTCRA EQU 0 01702000 CRABASIC EQU ISTCRA 01703000 CRAHDR EQU CRABASIC 01704000 CRACRR EQU CRAHDR 01705000 CRAFRR EQU CRAHDR+4 01706000 CRALKACT EQU CRABASIC+8 01707000 CRAL3PTR EQU CRABASIC+20 01708000 CRAPROCR EQU ISTCRA+312 01709000 CRASVC EQU ISTCRA+848 01710000 CRABUFA EQU CRASVC+68 01711000 ISTITCRR EQU 0 01712000 ITCAUDIT EQU ISTITCRR+16 01713000 ITCNTRD EQU ITCAUDIT 01714000 NINCAS EQU ITCNTRD 01715000 ITCNTRD2 EQU ITCAUDIT+1 01716000 ITCCRT EQU ITCAUDIT+2 01717000 CINCAS EQU ITCCRT 01718000 ITCCRT2 EQU ITCAUDIT+3 01719000 CNSWRKEL EQU 0 01720000 CNSECB EQU CNSWRKEL+8 01721000 CNSDVT1 EQU CNSWRKEL+12 01722000 REGSAVE EQU CNSWRKEL+16 01723000 ISTORAID EQU 0 01724000 @NM00083 EQU 0 01725000 CMZID013 EQU @NM00083 01726000 @NM00084 EQU @NM00083+4 01727000 CMZSA013 EQU 0 01728000 CMTA013 EQU 0 01729000 @NM00093 EQU 0 01730000 CMZID058 EQU @NM00093 01731000 @NM00094 EQU @NM00093+4 01732000 CMZSA058 EQU 0 01733000 CMTA058 EQU 0 01734000 ISTAPC37 EQU 0 01735000 @NM00095 EQU 0 01736000 CMZID074 EQU @NM00095 01737000 @NM00096 EQU @NM00095+4 01738000 CMZSA074 EQU 0 01739000 CMTA074 EQU 0 01740000 FMZL0084 EQU 0 01741000 @NM00099 EQU 0 01742000 CMZID103 EQU @NM00099 01743000 @NM00100 EQU @NM00099+4 01744000 CMZSA103 EQU 0 01745000 CMTA103 EQU 0 01746000 FMZL0111 EQU 0 01747000 FMZL0122 EQU 0 01748000 FMZL0148 EQU 0 01749000 @NM00101 EQU 0 01750000 CMZID156 EQU @NM00101 01751000 @NM00102 EQU @NM00101+4 01752000 CMZSA156 EQU 0 01753000 CMTA156 EQU 0 01754000 ISTAPC34 EQU 0 01755000 CVTS01 EQU CVTPGSIA 01756000 CVTLPDIA EQU CVTS01+12 01757000 CVTDIRST EQU CVTLPDIA 01758000 CVTSLIDA EQU CVTS01+24 01759000 CVTCTLFG EQU CVTS01+50 01760000 CVTRV210 EQU CVTS01+424 01761000 CVTRV219 EQU CVTS01+425 01762000 CVTRV228 EQU CVTS01+426 01763000 CVTRV237 EQU CVTS01+427 01764000 CVTMFRTR EQU CVTS01+452 01765000 CVTRV262 EQU CVTS01+468 01766000 CVTRV271 EQU CVTS01+469 01767000 CVTRV280 EQU CVTS01+470 01768000 CVTRV289 EQU CVTS01+471 01769000 CVTGSDA EQU CVTS01+600 01770000 FLC EQU PSA 01771000 PSARSVTE EQU PSARSVT 01772000 LCPZTIE EQU LCPCID 01773000 LCPZSNAM EQU LCPZTIE+8 01774000 RTRDNCBA EQU ISTRTR+40 01775000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01776000 LCPZTRV4 EQU LCPZSNAM+4 01777000 LCPZTRV1 EQU LCPZSNAM 01778000 LCPZSNA EQU LCPZTIE+4 01779000 LCPZFMCA EQU LCPZTIE 01780000 PSARSAV EQU PSARSVTE+60 01781000 PSARSTK EQU PSARSVTE+56 01782000 PSAESAV3 EQU PSARSVTE+52 01783000 PSAESTK3 EQU PSARSVTE+48 01784000 PSAESAV2 EQU PSARSVTE+44 01785000 PSAESTK2 EQU PSARSVTE+40 01786000 PSAESAV1 EQU PSARSVTE+36 01787000 PSAESTK1 EQU PSARSVTE+32 01788000 PSAPSAV EQU PSARSVTE+28 01789000 PSAPSTK EQU PSARSVTE+24 01790000 PSAMSAV EQU PSARSVTE+20 01791000 PSAMSTK EQU PSARSVTE+16 01792000 PSASSAV EQU PSARSVTE+12 01793000 PSASSTK EQU PSARSVTE+8 01794000 PSANSTK EQU PSARSVTE+4 01795000 PSACSTK EQU PSARSVTE 01796000 CVTRV628 EQU CVTS01+728 01797000 CVTRV627 EQU CVTS01+724 01798000 CVTRV626 EQU CVTS01+720 01799000 CVTRV625 EQU CVTS01+716 01800000 CVTRV624 EQU CVTS01+712 01801000 CVTRV623 EQU CVTS01+708 01802000 CVTRV622 EQU CVTS01+704 01803000 CVTRV621 EQU CVTS01+700 01804000 CVTRV620 EQU CVTS01+696 01805000 CVTRV619 EQU CVTS01+692 01806000 CVTRV618 EQU CVTS01+688 01807000 CVTRV617 EQU CVTS01+684 01808000 CVTRV616 EQU CVTS01+680 01809000 CVTRV615 EQU CVTS01+676 01810000 CVTRV614 EQU CVTS01+672 01811000 CVTRV613 EQU CVTS01+668 01812000 CVTTCASP EQU CVTS01+664 01813000 CVT0PT03 EQU CVTS01+660 01814000 CVT0PT0E EQU CVTS01+656 01815000 CVTIRM EQU CVTS01+652 01816000 CVTCGK EQU CVTS01+648 01817000 CVTRV607 EQU CVTS01+644 01818000 CVTRV606 EQU CVTS01+640 01819000 CVTRV605 EQU CVTS01+636 01820000 CVTRV604 EQU CVTS01+632 01821000 CVTEFF02 EQU CVTS01+628 01822000 CVTCBBR EQU CVTS01+624 01823000 CVTSSCR EQU CVTS01+620 01824000 CVTEVENT EQU CVTS01+616 01825000 CVTCRCA EQU CVTS01+612 01826000 CVTTPIO EQU CVTS01+608 01827000 CVTADV EQU CVTS01+604 01828000 CVTGSDAB EQU CVTGSDA 01829000 CVTQV3 EQU CVTS01+596 01830000 CVTQV2 EQU CVTS01+592 01831000 CVTQV1 EQU CVTS01+588 01832000 CVTRPT EQU CVTS01+584 01833000 CVTSSRB EQU CVTS01+580 01834000 CVTCSDRL EQU CVTS01+576 01835000 CVTEXP1 EQU CVTS01+572 01836000 CVTRMPMT EQU CVTS01+568 01837000 CVTRMPTT EQU CVTS01+564 01838000 CVTVPSA EQU CVTS01+560 01839000 CVTVSTOP EQU CVTS01+556 01840000 CVTGTFR8 EQU CVTS01+552 01841000 CVTQUIT EQU CVTS01+548 01842000 CVTVACR EQU CVTS01+544 01843000 CVTWTCB EQU CVTS01+540 01844000 CVTSTPRS EQU CVTS01+536 01845000 CVT0PT02 EQU CVTS01+532 01846000 CVTDARCM EQU CVTS01+528 01847000 CVTIRECM EQU CVTS01+524 01848000 CVTJRECM EQU CVTS01+520 01849000 CVTVEMS0 EQU CVTS01+516 01850000 CVTSPFRR EQU CVTS01+512 01851000 CVTRLSTG EQU CVTS01+508 01852000 CVT0TC0A EQU CVTS01+504 01853000 CVTGMBR EQU CVTS01+500 01854000 CVTLFRM EQU CVTS01+496 01855000 CVTRMBR EQU CVTS01+492 01856000 CVTVIOP EQU CVTS01+488 01857000 CVTRV307 EQU CVTS01+486 01858000 CVTRV306 EQU CVTS01+484 01859000 CVTRV305 EQU CVTS01+482 01860000 CVTRV304 EQU CVTS01+480 01861000 CVTRV303 EQU CVTS01+478 01862000 CVTRV302 EQU CVTS01+476 01863000 CVTTRCA EQU CVTS01+472 01864000 CVTRV297 EQU CVTRV289 01865000 CVTRV296 EQU CVTRV289 01866000 CVTRV295 EQU CVTRV289 01867000 CVTRV294 EQU CVTRV289 01868000 CVTRV293 EQU CVTRV289 01869000 CVTRV292 EQU CVTRV289 01870000 CVTRV291 EQU CVTRV289 01871000 CVTRV290 EQU CVTRV289 01872000 CVTRV288 EQU CVTRV280 01873000 CVTRV287 EQU CVTRV280 01874000 CVTRV286 EQU CVTRV280 01875000 CVTRV285 EQU CVTRV280 01876000 CVTRV284 EQU CVTRV280 01877000 CVTRV283 EQU CVTRV280 01878000 CVTRV282 EQU CVTRV280 01879000 CVTRV281 EQU CVTRV280 01880000 CVTRV279 EQU CVTRV271 01881000 CVTRV278 EQU CVTRV271 01882000 CVTRV277 EQU CVTRV271 01883000 CVTRV276 EQU CVTRV271 01884000 CVTRV275 EQU CVTRV271 01885000 CVTRV274 EQU CVTRV271 01886000 CVTRV273 EQU CVTRV271 01887000 CVTRV272 EQU CVTRV271 01888000 CVTRV270 EQU CVTRV262 01889000 CVTRV269 EQU CVTRV262 01890000 CVTRV268 EQU CVTRV262 01891000 CVTRV267 EQU CVTRV262 01892000 CVTRV266 EQU CVTRV262 01893000 CVTRV265 EQU CVTRV262 01894000 CVTRV264 EQU CVTRV262 01895000 CVTRV263 EQU CVTRV262 01896000 CVTVFP EQU CVTS01+464 01897000 CVTVSI EQU CVTS01+460 01898000 CVTVPSIB EQU CVTS01+456 01899000 CVTMFACT EQU CVTMFRTR 01900000 CVTMFCTL EQU CVTS01+448 01901000 CVTPVBP EQU CVTS01+444 01902000 CVTPWI EQU CVTS01+440 01903000 CVTRV254 EQU CVTS01+438 01904000 CVTRV253 EQU CVTS01+436 01905000 CVTRV252 EQU CVTS01+434 01906000 CVTRV251 EQU CVTS01+433 01907000 CVTRV250 EQU CVTS01+432 01908000 CVTRV249 EQU CVTS01+431 01909000 CVTRV248 EQU CVTS01+430 01910000 CVTRV247 EQU CVTS01+429 01911000 CVTRV246 EQU CVTS01+428 01912000 CVTRV245 EQU CVTRV237 01913000 CVTRV244 EQU CVTRV237 01914000 CVTRV243 EQU CVTRV237 01915000 CVTRV242 EQU CVTRV237 01916000 CVTRV241 EQU CVTRV237 01917000 CVTRV240 EQU CVTRV237 01918000 CVTRV239 EQU CVTRV237 01919000 CVTRV238 EQU CVTRV237 01920000 CVTRV236 EQU CVTRV228 01921000 CVTRV235 EQU CVTRV228 01922000 CVTRV234 EQU CVTRV228 01923000 CVTRV233 EQU CVTRV228 01924000 CVTRV232 EQU CVTRV228 01925000 CVTRV231 EQU CVTRV228 01926000 CVTRV230 EQU CVTRV228 01927000 CVTRV229 EQU CVTRV228 01928000 CVTRV227 EQU CVTRV219 01929000 CVTRV226 EQU CVTRV219 01930000 CVTRV225 EQU CVTRV219 01931000 CVTRV224 EQU CVTRV219 01932000 CVTRV223 EQU CVTRV219 01933000 CVTRV222 EQU CVTRV219 01934000 CVTRV221 EQU CVTRV219 01935000 CVTRV220 EQU CVTRV219 01936000 CVTRV218 EQU CVTRV210 01937000 CVTRV217 EQU CVTRV210 01938000 CVTRV216 EQU CVTRV210 01939000 CVTRV215 EQU CVTRV210 01940000 CVTRV214 EQU CVTRV210 01941000 CVTRV213 EQU CVTRV210 01942000 CVTRV212 EQU CVTRV210 01943000 CVTRV211 EQU CVTRV210 01944000 CVTLCCAT EQU CVTS01+420 01945000 CVTPCCAT EQU CVTS01+416 01946000 CVTIPCRP EQU CVTS01+412 01947000 CVTIPCRI EQU CVTS01+408 01948000 CVTIPCDS EQU CVTS01+404 01949000 CVTAIDVT EQU CVTS01+400 01950000 CVTSSAP EQU CVTS01+396 01951000 CVTEHCIR EQU CVTS01+392 01952000 CVTEHDEF EQU CVTS01+388 01953000 CVTDAIR EQU CVTS01+384 01954000 CVTPERFM EQU CVTS01+380 01955000 CVT044R2 EQU CVTS01+376 01956000 CVTFETCH EQU CVTS01+372 01957000 CVTRSTWD EQU CVTS01+368 01958000 CVTSPOST EQU CVTS01+364 01959000 CVTIOBP EQU CVTS01+360 01960000 CVTASMVT EQU CVTS01+356 01961000 CVTRECRQ EQU CVTS01+352 01962000 CVTWSAC EQU CVTS01+348 01963000 CVTRV149 EQU CVTS01+344 01964000 CVTWSAL EQU CVTS01+340 01965000 CVTSPSA EQU CVTS01+336 01966000 CVTGLMN EQU CVTS01+332 01967000 CVTVEAC0 EQU CVTS01+328 01968000 CVT062R1 EQU CVTS01+324 01969000 CVTRPOST EQU CVTS01+320 01970000 CVTDQIQE EQU CVTS01+316 01971000 CVTCSD EQU CVTS01+312 01972000 CVTLKRMA EQU CVTS01+308 01973000 CVTRSPIE EQU CVTS01+304 01974000 CVTRENQ EQU CVTS01+300 01975000 CVTLQCB EQU CVTS01+296 01976000 CVTFQCB EQU CVTS01+292 01977000 CVTQCS01 EQU CVTS01+288 01978000 CVTAPFT EQU CVTS01+284 01979000 CVTPARRL EQU CVTS01+280 01980000 CVTVWAIT EQU CVTS01+276 01981000 CVTGSPL EQU CVTS01+272 01982000 CVTLSMQ EQU CVTS01+268 01983000 CVTGSMQ EQU CVTS01+264 01984000 CVTEXPRO EQU CVTS01+260 01985000 CVTOPCTP EQU CVTS01+256 01986000 CVTSIC EQU CVTS01+252 01987000 CVTTPIOS EQU CVTS01+248 01988000 CVTRTMS EQU CVTS01+244 01989000 CVTSDBF EQU CVTS01+240 01990000 CVTSCBP EQU CVTS01+236 01991000 CVTSDMP EQU CVTS01+232 01992000 CVTSV60 EQU CVTS01+228 01993000 CVTRTMCT EQU CVTS01+224 01994000 CVTASCBL EQU CVTS01+220 01995000 CVTASCBH EQU CVTS01+216 01996000 CVTGDA EQU CVTS01+212 01997000 CVTASVT EQU CVTS01+208 01998000 CVTVVMDI EQU CVTS01+204 01999000 CVTAQTOP EQU CVTS01+200 02000000 CVTIOSCS EQU CVTS01+196 02001000 CVTSDRM EQU CVTS01+192 02002000 CVTOPTE EQU CVTS01+188 02003000 CVTSTXU EQU CVTS01+184 02004000 CVTQUIS EQU CVTS01+180 02005000 CVTPARS EQU CVTS01+176 02006000 CVTS1EE EQU CVTS01+172 02007000 CVTFRAS EQU CVTS01+168 02008000 CVTQSAS EQU CVTS01+164 02009000 CVTCRAS EQU CVTS01+160 02010000 CVTCRMN EQU CVTS01+156 02011000 CVTDELCP EQU CVTS01+152 02012000 CVTFRECL EQU CVTS01+148 02013000 CVTGETCL EQU CVTS01+144 02014000 CVTBLDCP EQU CVTS01+140 02015000 CVTAUTHL EQU CVTS01+136 02016000 CVTSCAN EQU CVTS01+132 02017000 CVTRV144 EQU CVTS01+130 02018000 CVTMAXMP EQU CVTS01+128 02019000 CVTSTCK EQU CVTS01+124 02020000 CVTRV139 EQU CVTS01+123 02021000 CVTDSSAC EQU CVTS01+122 02022000 CVTRV513 EQU CVTS01+121 02023000 CVTIOSPL EQU CVTS01+120 02024000 CVTPTGT EQU CVTS01+116 02025000 CVTCSPIE EQU CVTS01+112 02026000 CVTSMFEX EQU CVTS01+108 02027000 CVTOLT0A EQU CVTS01+104 02028000 CVTSRBRT EQU CVTS01+100 02029000 CVTPUTL EQU CVTS01+96 02030000 CVTASCRL EQU CVTS01+92 02031000 CVTASCRF EQU CVTS01+88 02032000 CVTRV326 EQU CVTS01+84 02033000 CVTRV325 EQU CVTS01+80 02034000 CVTRV324 EQU CVTS01+76 02035000 CVT0VL01 EQU CVTS01+72 02036000 CVTSHRVM EQU CVTS01+68 02037000 CVTRV332 EQU CVTS01+64 02038000 CVTTAS EQU CVTS01+60 02039000 CVTRSCN EQU CVTS01+56 02040000 CVTTRAC2 EQU CVTS01+54 02041000 CVTTRACE EQU CVTS01+52 02042000 CVTAPG EQU CVTS01+51 02043000 CVTSDTRC EQU CVTCTLFG 02044000 CVTGTRCE EQU CVTCTLFG 02045000 CVTNOMP EQU CVTCTLFG 02046000 CVTRSV79 EQU CVTCTLFG 02047000 CVTDSTAT EQU CVTCTLFG 02048000 CVTRSV78 EQU CVTCTLFG 02049000 CVTRV333 EQU CVTCTLFG 02050000 CVTRV323 EQU CVTCTLFG 02051000 CVTSPVLK EQU CVTS01+49 02052000 CVTRSV77 EQU CVTS01+48 02053000 CVTRV331 EQU CVTS01+44 02054000 CVTRV330 EQU CVTS01+40 02055000 CVTRV329 EQU CVTS01+36 02056000 CVTRV328 EQU CVTS01+32 02057000 CVTRV322 EQU CVTS01+28 02058000 CVTSLID EQU CVTSLIDA+1 02059000 CVTSYLK EQU CVTSLIDA 02060000 CVTRV321 EQU CVTS01+20 02061000 CVTRV320 EQU CVTS01+16 02062000 CVTLPDIR EQU CVTLPDIA+1 02063000 CVTRSV69 EQU CVTDIRST 02064000 CVTRSV68 EQU CVTDIRST 02065000 CVTRSV67 EQU CVTDIRST 02066000 CVTRSV66 EQU CVTDIRST 02067000 CVTRSV65 EQU CVTDIRST 02068000 CVTRSV64 EQU CVTDIRST 02069000 CVTRSV63 EQU CVTDIRST 02070000 CVTDICOM EQU CVTDIRST 02071000 CVTPVTP EQU CVTS01+8 02072000 CVTLPDSR EQU CVTS01+4 02073000 CVTGETL EQU CVTS01 02074000 CMZVP156 EQU @NM00101+12 02075000 CMZEA156 EQU @NM00101+8 02076000 CMZRA156 EQU @NM00102+1 02077000 CMZRL156 EQU @NM00102 02078000 CMZVP103 EQU @NM00099+12 02079000 CMZEA103 EQU @NM00099+8 02080000 CMZRA103 EQU @NM00100+1 02081000 CMZRL103 EQU @NM00100 02082000 CMZVP074 EQU @NM00095+12 02083000 CMZEA074 EQU @NM00095+8 02084000 CMZRA074 EQU @NM00096+1 02085000 CMZRL074 EQU @NM00096 02086000 CMZVP058 EQU @NM00093+12 02087000 CMZEA058 EQU @NM00093+8 02088000 CMZRA058 EQU @NM00094+1 02089000 CMZRL058 EQU @NM00094 02090000 CMZVP013 EQU @NM00083+12 02091000 CMZEA013 EQU @NM00083+8 02092000 CMZRA013 EQU @NM00084+1 02093000 CMZRL013 EQU @NM00084 02094000 @NM00082 EQU CNSWRKEL 02095000 ITCRSV02 EQU ISTITCRR+24 02096000 ITCRSV01 EQU ISTITCRR+20 02097000 ITCRSV04 EQU ITCCRT2 02098000 CINCAU EQU ITCCRT2 02099000 CINCAT EQU ITCCRT2 02100000 CINCER EQU ITCCRT 02101000 CINCAH EQU ITCCRT 02102000 CINCND EQU ITCCRT 02103000 CINCTE EQU ITCCRT 02104000 CINCAE EQU ITCCRT 02105000 CINCD0 EQU ITCCRT 02106000 CINCAR EQU ITCCRT 02107000 ITCRSV03 EQU ITCNTRD2 02108000 NINCAU EQU ITCNTRD2 02109000 NINCAT EQU ITCNTRD2 02110000 NINCER EQU ITCNTRD 02111000 NINCAH EQU ITCNTRD 02112000 NINCND EQU ITCNTRD 02113000 NINCTE EQU ITCNTRD 02114000 NINCAE EQU ITCNTRD 02115000 NINCD0 EQU ITCNTRD 02116000 NINCAR EQU ITCNTRD 02117000 ITCPRFX EQU ISTITCRR 02118000 CRACHAIN EQU ISTCRA+928 02119000 CRARSV02 EQU ISTCRA+924 02120000 CRARSV01 EQU ISTCRA+920 02121000 CRABFTBA EQU CRABUFA 02122000 CRAMASK EQU CRASVC+64 02123000 CRAHSIZ EQU CRASVC+60 02124000 CRAASCRR EQU CRASVC 02125000 CRAPSS EQU ISTCRA+160 02126000 CRARPH EQU ISTCRA+52 02127000 CRALAPTR EQU CRABASIC+48 02128000 CRAL9PTR EQU CRABASIC+44 02129000 CRAL8PTR EQU CRABASIC+40 02130000 CRAL7PTR EQU CRABASIC+36 02131000 CRAL6PTR EQU CRABASIC+32 02132000 CRAL5PTR EQU CRABASIC+28 02133000 CRAL4PTR EQU CRABASIC+24 02134000 CRAL2PTR EQU CRABASIC+16 02135000 CRAL1PTR EQU CRABASIC+12 02136000 CRALEV01 EQU CRALKACT+3 02137000 CRALEV02 EQU CRALKACT+3 02138000 CRALEV03 EQU CRALKACT+3 02139000 CRALEV04 EQU CRALKACT+3 02140000 CRALEV05 EQU CRALKACT+3 02141000 CRALEV06 EQU CRALKACT+3 02142000 CRALEV07 EQU CRALKACT+3 02143000 CRALEV08 EQU CRALKACT+3 02144000 CRALEV09 EQU CRALKACT+2 02145000 CRALEV10 EQU CRALKACT+2 02146000 CRALEV11 EQU CRALKACT+2 02147000 CRALEV12 EQU CRALKACT+2 02148000 CRALEV13 EQU CRALKACT+2 02149000 CRALEV14 EQU CRALKACT+2 02150000 CRALEV15 EQU CRALKACT+2 02151000 CRALEV16 EQU CRALKACT+2 02152000 CRALEV17 EQU CRALKACT+1 02153000 CRALEV18 EQU CRALKACT+1 02154000 CRALEV19 EQU CRALKACT+1 02155000 CRALEV20 EQU CRALKACT+1 02156000 CRALEV21 EQU CRALKACT+1 02157000 CRALEV22 EQU CRALKACT+1 02158000 CRALEV23 EQU CRALKACT+1 02159000 CRALEV24 EQU CRALKACT+1 02160000 CRALEV25 EQU CRALKACT 02161000 CRALEV26 EQU CRALKACT 02162000 CRALEV27 EQU CRALKACT 02163000 CRALEV28 EQU CRALKACT 02164000 CRALEV29 EQU CRALKACT 02165000 CRALEV30 EQU CRALKACT 02166000 CRALEV31 EQU CRALKACT 02167000 CRALEV32 EQU CRALKACT 02168000 @NM00081 EQU ISTAPCRR+137 02169000 @NM00080 EQU APC57FLG 02170000 APCNREL EQU APC57FLG 02171000 APCRECRA EQU APC57FLG 02172000 @NM00079 EQU APC54FLG 02173000 APCRLST EQU APC54FLG 02174000 APCPR153 EQU APC53FLG 02175000 @NM00078 EQU APC52FLG 02176000 APCWKF EQU APC52FLG 02177000 APCNWF EQU APC52FLG 02178000 APCRDQ EQU APC52FLG 02179000 APCQENQ EQU APC52FLG 02180000 APCSMSR EQU APC52FLG 02181000 APCCKRQ EQU APC52FLG 02182000 @NM00077 EQU APC31FLG 02183000 APCSORT EQU APC31FLG 02184000 APCRESCH EQU APC31FLG 02185000 APCTPXIT EQU APC31FLG 02186000 APCSWTWD EQU ISTAPCRR+128 02187000 APCSAV2 EQU ISTAPCRR+124 02188000 APCSAV1 EQU ISTAPCRR+120 02189000 APCRETCD EQU APCCOMF+2 02190000 @NM00076 EQU APCCOMF1+1 02191000 APCZLBER EQU APCCOMF1 02192000 APCEXIT EQU APCCOMF1 02193000 APCRELR EQU APCCOMF1 02194000 APCIRB2 EQU APCCOMF1 02195000 APCIRB1 EQU APCCOMF1 02196000 APCSMCR EQU APCCOMF1 02197000 APCUETSK EQU APCCOMF1 02198000 APCSSTSK EQU APCCOMF1 02199000 APCESTAL EQU APCSAVE 02200000 APCFRRPM EQU ISTAPCRR+40 02201000 APCQWFO EQU ISTAPCRR+36 02202000 APCPABSV EQU ISTAPCRR+32 02203000 APCRTRN EQU ISTAPCRR+28 02204000 APCTCBA EQU ISTAPCRR+24 02205000 APCPSTA EQU ISTAPCRR+20 02206000 @NM00075 EQU APCRFLG+1 02207000 APC31R EQU APCRFLG 02208000 APC58R EQU APCRFLG 02209000 APC57R EQU APCRFLG 02210000 APC56R EQU APCRFLG 02211000 APC54R EQU APCRFLG 02212000 APC53R EQU APCRFLG 02213000 APC52R EQU APCRFLG 02214000 APC51R EQU APCRFLG 02215000 @NM00074 EQU APCATFLG+1 02216000 APC31E EQU APCATFLG 02217000 APC58E EQU APCATFLG 02218000 APC57E EQU APCATFLG 02219000 APC56E EQU APCATFLG 02220000 APC54E EQU APCATFLG 02221000 APC53E EQU APCATFLG 02222000 APC52E EQU APCATFLG 02223000 APC51E EQU APCATFLG 02224000 APCHDRSV EQU ISTAPCRR 02225000 ASCPSREG EQU ISTASCRR+44 02226000 ASCUSR01 EQU ASCUSRGS+12 02227000 ASCUSR00 EQU ASCUSRGS+8 02228000 ASCUSR15 EQU ASCUSRGS+4 02229000 ASCUSR14 EQU ASCUSRGS 02230000 ASCETRYA EQU ISTASCRR+24 02231000 ASCKEY EQU ISTASCRR+23 02232000 ASCAUDIT EQU ASCFLG3 02233000 ASCFBDUD EQU ASCFLG3 02234000 ASCLLKF EQU ASCFLG3 02235000 ASCKEYF EQU ASCFLG3 02236000 ASCFBDAL EQU ASCFLG3 02237000 ASCFSRGT EQU ASCFLG3 02238000 ASCICR EQU ASCFLG2 02239000 ASCFSRIC EQU ASCFLG2 02240000 ASCFBDIC EQU ASCFLG2 02241000 ASCFBAIC EQU ASCFLG2 02242000 ASCPASTR EQU ASCFLG1 02243000 ASCFSR EQU ASCFLG1 02244000 ASCFBD EQU ASCFLG1 02245000 ASCFBA EQU ASCFLG1 02246000 ASCPFCRR EQU ISTASCRR 02247000 ZCRRU EQU ZCRRHRU+3 02248000 ZCRRH EQU ZCRRHRU 02249000 ZCRWORDA EQU ISTZCRR+477 02250000 ZCRCMNRC EQU ISTZCRR+476 02251000 ZCRRSV97 EQU ZCRENTER+18 02252000 ZCREIC2B EQU ZCRENTER+18 02253000 ZCREAC2B EQU ZCRENTER+18 02254000 ZCRELCAB EQU ZCRENTER+18 02255000 ZCREDCMF EQU ZCRENTER+18 02256000 ZCREBCIF EQU ZCRENTER+18 02257000 ZCREICSG EQU ZCRENTER+18 02258000 ZCREDCK0 EQU ZCRENTER+18 02259000 ZCRECFY0 EQU ZCRENTER+17 02260000 ZCREKCCB EQU ZCRENTER+17 02261000 ZCREDCNB EQU ZCRENTER+17 02262000 ZCREICOE EQU ZCRENTER+17 02263000 ZCREBCNB EQU ZCRENTER+17 02264000 ZCREBC0L EQU ZCRENTER+17 02265000 ZCREBCAL EQU ZCRENTER+17 02266000 ZCREDCQR EQU ZCRENTER+17 02267000 ZCREDCPR EQU ZCRENTER+16 02268000 ZCREBCSB EQU ZCRENTER+16 02269000 ZCREAC1R EQU ZCRENTER+16 02270000 ZCRECCCI EQU ZCRENTER+16 02271000 ZCRECCAI EQU ZCRENTER+16 02272000 ZCRECCBI EQU ZCRENTER+16 02273000 ZCREBCAR EQU ZCRENTER+16 02274000 ZCREBCDR EQU ZCRENTER+16 02275000 ZCREBCBR EQU ZCRENTER+15 02276000 ZCREDCXR EQU ZCRENTER+15 02277000 ZCREDCWB EQU ZCRENTER+15 02278000 ZCREDCWR EQU ZCRENTER+15 02279000 ZCREKCCN EQU ZCRENTER+15 02280000 ZCREKCBN EQU ZCRENTER+15 02281000 ZCREKCBB EQU ZCRENTER+15 02282000 ZCREJC0B EQU ZCRENTER+15 02283000 ZCREJCDB EQU ZCRENTER+14 02284000 ZCREJCCB EQU ZCRENTER+14 02285000 ZCREJCBB EQU ZCRENTER+14 02286000 ZCREJCAB EQU ZCRENTER+14 02287000 ZCREIC1B EQU ZCRENTER+14 02288000 ZCREIC0B EQU ZCRENTER+14 02289000 ZCREICX0 EQU ZCRENTER+14 02290000 ZCREICWB EQU ZCRENTER+14 02291000 ZCREICVB EQU ZCRENTER+13 02292000 ZCREICUB EQU ZCRENTER+13 02293000 ZCREICTB EQU ZCRENTER+13 02294000 ZCREICSC EQU ZCRENTER+13 02295000 ZCREICSB EQU ZCRENTER+13 02296000 ZCREICRB EQU ZCRENTER+13 02297000 ZCREICQB EQU ZCRENTER+13 02298000 ZCREICQA EQU ZCRENTER+13 02299000 ZCREICOB EQU ZCRENTER+12 02300000 ZCREICOA EQU ZCRENTER+12 02301000 ZCREICNB EQU ZCRENTER+12 02302000 ZCREICNA EQU ZCRENTER+12 02303000 ZCREICMB EQU ZCRENTER+12 02304000 ZCREICLB EQU ZCRENTER+12 02305000 ZCREICKG EQU ZCRENTER+12 02306000 ZCREICKE EQU ZCRENTER+12 02307000 ZCREICKB EQU ZCRENTER+11 02308000 ZCREICJB EQU ZCRENTER+11 02309000 ZCREICID EQU ZCRENTER+11 02310000 ZCREICIB EQU ZCRENTER+11 02311000 ZCREICHB EQU ZCRENTER+11 02312000 ZCREICGB EQU ZCRENTER+11 02313000 ZCREICEB EQU ZCRENTER+11 02314000 ZCREICDB EQU ZCRENTER+11 02315000 ZCREICCI EQU ZCRENTER+10 02316000 ZCREICCB EQU ZCRENTER+10 02317000 ZCREICBI EQU ZCRENTER+10 02318000 ZCREICBB EQU ZCRENTER+10 02319000 ZCREICAB EQU ZCRENTER+10 02320000 ZCREICAA EQU ZCRENTER+10 02321000 ZCREHCAN EQU ZCRENTER+10 02322000 ZCREGC0B EQU ZCRENTER+10 02323000 ZCREGC0A EQU ZCRENTER+9 02324000 ZCREGCLA EQU ZCRENTER+9 02325000 ZCREGCEB EQU ZCRENTER+9 02326000 ZCREGCDB EQU ZCRENTER+9 02327000 @NM00073 EQU ZCRENTER+9 02328000 ZCREGCBB EQU ZCRENTER+9 02329000 ZCREGCAB EQU ZCRENTER+9 02330000 ZCREFCEB EQU ZCRENTER+9 02331000 ZCREFCEA EQU ZCRENTER+8 02332000 ZCREECTA EQU ZCRENTER+8 02333000 ZCREECEA EQU ZCRENTER+8 02334000 ZCREECDA EQU ZCRENTER+8 02335000 ZCREECCB EQU ZCRENTER+8 02336000 ZCREECCA EQU ZCRENTER+8 02337000 ZCREECBB EQU ZCRENTER+8 02338000 ZCREECBA EQU ZCRENTER+8 02339000 ZCREDCMB EQU ZCRENTER+7 02340000 ZCREDCL0 EQU ZCRENTER+7 02341000 ZCREDCKB EQU ZCRENTER+7 02342000 ZCREDCKA EQU ZCRENTER+7 02343000 ZCREDCJ0 EQU ZCRENTER+7 02344000 ZCREDCI0 EQU ZCRENTER+7 02345000 ZCREDCH0 EQU ZCRENTER+7 02346000 ZCREDCF0 EQU ZCRENTER+7 02347000 ZCREDCE0 EQU ZCRENTER+6 02348000 ZCREDCD0 EQU ZCRENTER+6 02349000 ZCREDCC0 EQU ZCRENTER+6 02350000 ZCREDCB0 EQU ZCRENTER+6 02351000 ZCREDCA0 EQU ZCRENTER+6 02352000 ZCRECC2B EQU ZCRENTER+6 02353000 ZCRECC1B EQU ZCRENTER+6 02354000 ZCRECC1A EQU ZCRENTER+6 02355000 ZCRECC0B EQU ZCRENTER+5 02356000 ZCRECC0A EQU ZCRENTER+5 02357000 ZCREBC0B EQU ZCRENTER+5 02358000 ZCREBC0A EQU ZCRENTER+5 02359000 ZCREBCZ0 EQU ZCRENTER+5 02360000 ZCREBCY0 EQU ZCRENTER+5 02361000 ZCREBCX0 EQU ZCRENTER+5 02362000 ZCREBCXA EQU ZCRENTER+5 02363000 ZCREBCSC EQU ZCRENTER+4 02364000 ZCREBCRB EQU ZCRENTER+4 02365000 ZCREBCRA EQU ZCRENTER+4 02366000 ZCREBCQB EQU ZCRENTER+4 02367000 ZCREBCPB EQU ZCRENTER+4 02368000 ZCREBCOB EQU ZCRENTER+4 02369000 ZCREBCNE EQU ZCRENTER+4 02370000 ZCREBCND EQU ZCRENTER+4 02371000 ZCREBCMB EQU ZCRENTER+3 02372000 ZCREBCLB EQU ZCRENTER+3 02373000 ZCREBCLA EQU ZCRENTER+3 02374000 ZCREBCKB EQU ZCRENTER+3 02375000 ZCREBCKA EQU ZCRENTER+3 02376000 ZCREBCJB EQU ZCRENTER+3 02377000 ZCREBCJA EQU ZCRENTER+3 02378000 ZCREBCID EQU ZCRENTER+3 02379000 ZCREBCIB EQU ZCRENTER+2 02380000 ZCREBCIA EQU ZCRENTER+2 02381000 ZCREBCHB EQU ZCRENTER+2 02382000 ZCREBCHA EQU ZCRENTER+2 02383000 ZCREBCGB EQU ZCRENTER+2 02384000 ZCREBCGA EQU ZCRENTER+2 02385000 ZCREBCFB EQU ZCRENTER+2 02386000 ZCREBCFA EQU ZCRENTER+2 02387000 ZCREBCEB EQU ZCRENTER+1 02388000 ZCREBCDI EQU ZCRENTER+1 02389000 ZCREBCCB EQU ZCRENTER+1 02390000 ZCREBCBI EQU ZCRENTER+1 02391000 ZCREBCBB EQU ZCRENTER+1 02392000 ZCREBCBA EQU ZCRENTER+1 02393000 ZCREBCAM EQU ZCRENTER+1 02394000 ZCREBCAI EQU ZCRENTER+1 02395000 ZCREBCAG EQU ZCRENTER 02396000 ZCREBCAE EQU ZCRENTER 02397000 ZCREBCAB EQU ZCRENTER 02398000 ZCREBCAA EQU ZCRENTER 02399000 ZCREAC1B EQU ZCRENTER 02400000 ZCREAC0B EQU ZCRENTER 02401000 ZCREAC0A EQU ZCRENTER 02402000 ZCREAC1A EQU ZCRENTER 02403000 ZCRTNAME EQU ZCRAUDIT+1 02404000 ZCRTID EQU ZCRAUDIT 02405000 ZCRREMIC EQU ISTZCRR+436 02406000 ZCRSAVEZ EQU ISTZCRR+196 02407000 ZCRDAFSV EQU ZCRCIDSV+2 02408000 ZCRSAFSV EQU ZCRCIDSV 02409000 ZCRR13SV EQU ISTZCRR+188 02410000 ZCRR2SV EQU ISTZCRR+184 02411000 ZCROPCDE EQU ISTZCRR+183 02412000 ZCRPRMTC EQU ISTZCRR+182 02413000 ZCRRCDSV EQU ISTZCRR+181 02414000 ZCRAWQSW EQU ISTZCRR+180 02415000 ZCRTOPQ EQU ISTZCRR+180 02416000 ZCRLSTFB EQU ISTZCRR+180 02417000 ZCRXSCHD EQU ISTZCRR+180 02418000 ZCRNXTEL EQU ISTZCRR+180 02419000 ZCRSCANQ EQU ISTZCRR+180 02420000 ZCRMOREL EQU ISTZCRR+180 02421000 ZCRFBPRC EQU ISTZCRR+180 02422000 ZCRFSBSV EQU ISTZCRR+176 02423000 ZCRSVWK5 EQU ZCRWKARA+16 02424000 ZCRSVWK4 EQU ZCRWKARA+12 02425000 ZCRSVWK3 EQU ZCRWKARA+8 02426000 ZCRSVWK2 EQU ZCRWKARA+4 02427000 ZCRSVWK1 EQU ZCRWKARA 02428000 ZCRSVF25 EQU ZCRSVRTN+96 02429000 ZCRSVF24 EQU ZCRSVRTN+92 02430000 ZCRSVF23 EQU ZCRSVRTN+88 02431000 ZCRSVF22 EQU ZCRSVRTN+84 02432000 ZCRSVF21 EQU ZCRSVRTN+80 02433000 ZCRSVF20 EQU ZCRSVRTN+76 02434000 ZCRSVF19 EQU ZCRSVRTN+72 02435000 ZCRSVF18 EQU ZCRSVRTN+68 02436000 ZCRSVF17 EQU ZCRSVRTN+64 02437000 ZCRSVF16 EQU ZCRSVRTN+60 02438000 ZCRSVF15 EQU ZCRSVRTN+56 02439000 ZCRSVF14 EQU ZCRSVRTN+52 02440000 ZCRSVF13 EQU ZCRSVRTN+48 02441000 ZCRSVF12 EQU ZCRSVRTN+44 02442000 ZCRSVF11 EQU ZCRSVRTN+40 02443000 ZCRSVF10 EQU ZCRSVRTN+36 02444000 ZCRSVF9 EQU ZCRSVRTN+32 02445000 ZCRSVF8 EQU ZCRSVRTN+28 02446000 ZCRSVF7 EQU ZCRSVRTN+24 02447000 ZCRSVF6 EQU ZCRSVRTN+20 02448000 ZCRSVF5 EQU ZCRSVRTN+16 02449000 ZCRSVF4 EQU ZCRSVRTN+12 02450000 ZCRSVF3 EQU ZCRSVRTN+8 02451000 ZCRSVF2 EQU ZCRSVRTN+4 02452000 ZCRSVF1 EQU ZCRSVRTN 02453000 ZCRPVZB EQU ISTZCRR+52 02454000 ZCRZLB EQU ISTZCRR+48 02455000 ZCRBFPTR EQU ISTZCRR+44 02456000 ZCRCCWA EQU ISTZCRR+40 02457000 ZCRPSW EQU ZCRPARMS+15 02458000 ZCRPCHAR EQU ZCRPARMS+14 02459000 ZCRPRES2 EQU ZCRPCOD2 02460000 ZCRPMFGF EQU ZCRPCOD2 02461000 ZCRPFHDR EQU ZCRPCOD2 02462000 ZCRPPG2 EQU ZCRPCOD2 02463000 ZCRPRES EQU ZCRPCOD1 02464000 ZCRPCFTX EQU ZCRPCOD1 02465000 ZCRPBUF EQU ZCRPCOD1 02466000 ZCRPLSCB EQU ZCRPCOD1 02467000 ZCRPLSBQ EQU ZCRPLSBF 02468000 ZCRPFSB EQU ZCRPCOD1 02469000 ZCRPLNG EQU ZCRPCOD1 02470000 ZCRPPG EQU ZCRPCOD1 02471000 ZCRDTODA EQU ZCRDFRDA 02472000 ZCRMLNG EQU ZCRPARMS+8 02473000 ZCRTBPTR EQU ZCRPARMS+4 02474000 ZCRCBPTR EQU ZCRFBPTR 02475000 ZCRCRLCP EQU ISTZCRR+20 02476000 @NM00072 EQU ZCRSCPSW 02477000 ZCRSKIPT EQU ZCRSCPSW 02478000 ZCRFSBWE EQU ZCRSCPSW 02479000 ZCRPRCMP EQU ZCRSCPSW 02480000 ZCRLREQ EQU ZCRSCPSW 02481000 ZCRRJLCP EQU ZCRSCPSW 02482000 ZCRTPINV EQU ZCRSCPSW 02483000 ZCRTPEX EQU ZCRSCPSW 02484000 @NM00071 EQU ZCRIBPR 02485000 ZCR3270R EQU ZCRIBPR 02486000 ZCR3270 EQU ZCRIBPR 02487000 ZCRLCPFD EQU ZCRIBPR 02488000 ZCRLCPFR EQU ZCRIBPR 02489000 ZCRRELK EQU ZCRIBPR 02490000 ZCRERR EQU ZCRIBPR 02491000 ZCRNOBUF EQU ZCRIBPR 02492000 @NM00070 EQU ZCRPFLGS 02493000 ZCRQAHED EQU ZCRPFLGS 02494000 ZCRF1RES EQU ZCRGENSW 02495000 ZCRBRIS EQU ZCRGENSW 02496000 ZCRCLRBD EQU ZCRGENSW 02497000 ZCREXRES EQU ZCRGENSW 02498000 ZCRLCSYN EQU ZCRGENSW 02499000 ZCRRT06 EQU ZCRGENSW 02500000 ZCRTSW2 EQU ZCRGENSW 02501000 ZCRTSW1 EQU ZCRGENSW 02502000 ZCRINLCP EQU ZCRFLGS3 02503000 ZCRWRPTR EQU ZCRFLGS3 02504000 ZCRNOFRE EQU ZCRFLGS3 02505000 ZCREDRIV EQU ZCRFLGS3 02506000 ZCRDISC EQU ZCRFLGS3 02507000 ZCRTPDIS EQU ZCRFLGS3 02508000 ZCRTPCON EQU ZCRFLGS3 02509000 ZCRTIC EQU ZCRFLGS3 02510000 ZCRCNLXL EQU ZCRRESET 02511000 ZCRENDAN EQU ZCRSWFLD 02512000 ZCRENDXL EQU ZCRSWFLD 02513000 ZCRENDX EQU ZCRSWFLD 02514000 ZCROB1 EQU ZCRNDLCP 02515000 ZCRENDPR EQU ZCRSWFLD 02516000 ZCREXTYP EQU ZCRSWFLD 02517000 ZCRSLCP EQU ZCRENDSH 02518000 ZCRIF0E3 EQU ZCRFLGS2 02519000 ZCRIF0E2 EQU ZCRFLGS2 02520000 ZCRIF0E1 EQU ZCRFLGS2 02521000 ZCROB EQU ZCRFLGS2 02522000 ZCRFMSED EQU ZCRFLGS2 02523000 ZCRSHEDI EQU ZCRFLGS2 02524000 ZCRLOCAL EQU ZCRFLGS2 02525000 ZCRFEXIT EQU ZCRFLGS1 02526000 ZCRUNSOL EQU ZCRFLGS1 02527000 ZCRENDLP EQU ZCRFLGS1 02528000 ZCRNRMEX EQU ZCRFLGS1 02529000 ZCRWAIT EQU ZCRFLGS1 02530000 ZCRDEQSW EQU ZCRFLGS1 02531000 ZCRQUESW EQU ZCRFLGS1 02532000 ZCREXSW EQU ZCRFLGS1 02533000 ZCRFRRA EQU ISTZCRR+8 02534000 ZCRCHAIN EQU ISTZCRR+4 02535000 ZCRFLAG EQU ZCRCRR+3 02536000 ZCRLEN EQU ZCRCRR+1 02537000 ZCRID EQU ZCRCRR 02538000 CCFRSVD1 EQU CFCCRT 02539000 CCFCR2 EQU CFCCRT 02540000 CCFCRP EQU CFCCRT 02541000 CCFCR1 EQU CFCCRT 02542000 CCFCS2 EQU CFCCRT 02543000 CCFCS1 EQU CFCCRT 02544000 NCFRSVD EQU CFCNTRD 02545000 NCFCR2 EQU CFCNTRD 02546000 NCFCRP EQU CFCNTRD 02547000 NCFCR1 EQU CFCNTRD 02548000 NCFCS2 EQU CFCNTRD 02549000 NCFCS1 EQU CFCNTRD 02550000 PFCRSV01 EQU ISTPFCRR+13 02551000 CRRFRR EQU PFCFRRO 02552000 CRRCHAIN EQU PFCCRRO 02553000 CRRLEN EQU PFCCRRLN 02554000 PFCRSV10 EQU PFCCRR+1 02555000 CRRID EQU PFCCRRID 02556000 ZSAZTRAC EQU ISTZSAVE+36 02557000 ZSAZSVVR EQU ISTZSAVE+12 02558000 ZSAZSVRR EQU ISTZSAVE+8 02559000 ZSAZSVFC EQU ISTZSAVE+4 02560000 ZSAZACTV EQU ZSAZSVMS 02561000 LCPFTYPE EQU LCPRPHA 02562000 LCPRSTQH EQU LCPLCCW 02563000 LCPCLREP EQU ISTLCPB+44 02564000 LCPUBFSB EQU LCPFLCCW 02565000 LCPRSV77 EQU ISTLCPB+39 02566000 LCPLCCWC EQU ISTLCPB+38 02567000 LCPRSV78 EQU LCPFLG1 02568000 LCPTRANS EQU LCPFLG1 02569000 LCPSTLB EQU LCPFLG1 02570000 LCPREDRV EQU LCPFLG1 02571000 LCPDIRPT EQU LCPFLG1 02572000 LCPINTER EQU LCPFLG1 02573000 LCPRESET EQU LCPFLG1 02574000 LCPSTYPE EQU ISTLCPB+36 02575000 LCPFSNCH EQU ISTLCPB+34 02576000 LCPFOSN EQU ISTLCPB+32 02577000 LCPTLBAD EQU ISTLCPB+28 02578000 LCPFDB2 EQU LCPFDBA+1 02579000 LCPFDB1 EQU LCPFDBA 02580000 LCPNXLCW EQU ISTLCPB+20 02581000 LCPDAF EQU LCPCID+2 02582000 LCPSAF EQU LCPCID 02583000 LCPLCCW1 EQU ISTLCPB+12 02584000 LCPRRCNT EQU LCPSEQ+1 02585000 LCPRRCCT EQU LCPSEQ 02586000 LCPATOP EQU LCPFLAG2 02587000 LCPFREE EQU LCPFLAG2 02588000 LCPDSTAT EQU LCPFLAG2 02589000 LCPEXRES EQU LCPFID0 02590000 LCPZRIMM EQU LCPTLBPI 02591000 LCPRSTRT EQU LCPFLAG2 02592000 LCPASYN EQU LCPFLAG2 02593000 LCPPRFLG EQU LCPFLAG2 02594000 LCPZMIRC EQU LCPRUCNT 02595000 LCPCHAI2 EQU LCPCHAIN+1 02596000 LCPCHNG EQU LCPCHAI1 02597000 LCPZRT0B EQU LCPMNRCD 02598000 LCPZRT0A EQU LCPMNRCD 02599000 LCPZRTL9 EQU LCPZRT09 02600000 LCPZRTL8 EQU LCPZRT08 02601000 LCPZRTL7 EQU LCPZRT07 02602000 LCPZRTL6 EQU LCPZRT06 02603000 LCPZRTL5 EQU LCPZRT05 02604000 LCPZRTL4 EQU LCPZRT04 02605000 LCPZRTL3 EQU LCPZRT03 02606000 LCPZRTL2 EQU LCPZRT02 02607000 LCPZRT01 EQU LCPFLAGS 02608000 LCPZRT00 EQU LCPFLAGS 02609000 LCPLNGTH EQU ISTLCPB+1 02610000 LCPTYPE EQU ISTLCPB 02611000 LCCWDATA EQU ISTLCCW+4 02612000 LCCWCNT EQU ISTLCCW+2 02613000 LCCWACI EQU LCCWFLAG 02614000 LCCWRFI EQU LCCWFLAG 02615000 LCCWPER EQU LCCWLSI 02616000 LCCWIDAT EQU LCCWFLAG 02617000 LCCWNTVC EQU LCCWFLAG 02618000 LCCWCKPT EQU LCCWFLAG 02619000 LCCWCC EQU LCCWFLAG 02620000 LCCWCD EQU LCCWFLAG 02621000 LCCWTYPE EQU LCCWCTL 02622000 LCCWMODE EQU LCCWCTL 02623000 LCCWSOP EQU LCCWRWOP 02624000 @NM00069 EQU LCCWRWOP 02625000 LCCWSD EQU LCCWOP 02626000 LCCWSI EQU LCCWOP 02627000 ACDREFQ EQU ISTACDEB+204 02628000 ACDASFQ EQU ISTACDEB+200 02629000 ACDSOP EQU ISTACDEB+184 02630000 ACDSIP EQU ISTACDEB+168 02631000 ACDRSV24 EQU ACDVTAM+108 02632000 ACDRSV23 EQU ACDVTAM+104 02633000 ACDRSV22 EQU ACDVTAM+100 02634000 ACDOCWAD EQU ACDVTAM+96 02635000 ACDRSV10 EQU ACDVTAM+92 02636000 ACDAPDDT EQU ACDAPDAT+1 02637000 ACDAPDLN EQU ACDAPDAT 02638000 ACDRSV07 EQU ACDVTAM+82 02639000 ACDRSV06 EQU ACDVTAM+81 02640000 @NM00068 EQU ACDSSFLG 02641000 ACDTSO EQU ACDSSFLG 02642000 ACDTPEND EQU ACDSSFLG 02643000 ACDAICLS EQU ACDSSFLG 02644000 ACDABEND EQU ACDSSFLG 02645000 ACDCACB EQU ACDSSFLG 02646000 ACDRSV21 EQU ACDVTAM+64 02647000 ACDSSPAB EQU ACDVTAM+48 02648000 ACDNEPAB EQU ACDVTAM+32 02649000 ACDRSV20 EQU ACDVTAM+20 02650000 ACDRARQ EQU ACDVTAM+16 02651000 ACDRAFQ EQU ACDVTAM+12 02652000 ACDFMCB EQU ACDVTAM+8 02653000 ACDRDTE EQU ACDVTAM+4 02654000 ACDLOCK EQU ACDVTAM 02655000 ACDAPP EQU ACDAPPAD+1 02656000 ACDEXSCL EQU ACDAPPAD 02657000 ACDDEBID EQU ACDACBAD 02658000 ACDPROTG EQU ACDACBAD 02659000 ACDECBAD EQU ACDBASIC+20 02660000 ACDUSRPB EQU ACDUSRPG+1 02661000 ACDNMEXT EQU ACDUSRPG 02662000 ACDPRLEN EQU ACDBASIC+15 02663000 ACDFLGS1 EQU ACDBASIC+14 02664000 ACDQSCNT EQU ACDBASIC+13 02665000 ACDOPATB EQU ACDBASIC+12 02666000 ACDIRBAD EQU ACDBASIC+8 02667000 ACDDEB EQU ACDDEBAD+1 02668000 ACDAMLNG EQU ACDDEBAD 02669000 ACDTCB EQU ACDTCBAD+1 02670000 ACDOPNAD EQU ACDNMSUB 02671000 ACDRSV03 EQU ACDTBLOF+1 02672000 ACDRSV02 EQU ACDTBLOF 02673000 ACDAMTYP EQU ACDDBPFX+5 02674000 ACDLENG EQU ACDDBPFX+4 02675000 ACDDEBX EQU ACDDBPFX 02676000 ACDRSV08 EQU ACDVTPRX+12 02677000 ACDCHN EQU ACDVTPRX+4 02678000 ACDSAF EQU ACDVTPRX+2 02679000 ACDLNGTH EQU ACDVTPRX+1 02680000 ACDTYPE EQU ACDVTPRX 02681000 WKECHNGP EQU WKECHAIN+1 02682000 @NM00067 EQU WKEFLAGS 02683000 WKEGATE EQU WKEFLAGS 02684000 @NM00066 EQU ISTWKE 02685000 UECRVPT4 EQU ISTUECB+80 02686000 UECRVPT3 EQU ISTUECB+76 02687000 UECLGDTA EQU ISTUECB+72 02688000 UECREQNM EQU ISTUECB+60 02689000 UECSYMNM EQU ISTUECB+52 02690000 UECVRPL EQU UECPLIST+16 02691000 UECRSNBT EQU UECRSNCD+3 02692000 @NM00065 EQU UECRSNCD 02693000 UECUSFLD EQU UECREQTR 02694000 UECDAF EQU UECTPNCD+2 02695000 UECSAF EQU UECTPNCD 02696000 UECRPLAD EQU UECACB 02697000 UECEXLST EQU ISTUECB+12 02698000 UECFORW EQU ISTUECB+4 02699000 UECRSV01 EQU ISTUECB+2 02700000 ATCAOS EQU ISTATCVT+1584 02701000 ATCPOPAB EQU ATCAOSM+640 02702000 ATCVIOPM EQU ATCAOSM+636 02703000 ATCTPMMI EQU ATCAOSM+632 02704000 ATCTPMPB EQU ATCAOSM+600 02705000 ATCRSV88 EQU ATCAOSM+596 02706000 ATCRPLCT EQU ATCAOSM+594 02707000 ATCCRACT EQU ATCAOSM+592 02708000 ATCSRBCT EQU ATCAOSM+590 02709000 ATCRSV75 EQU ATCAOSM+589 02710000 ATCRSV66 EQU ATCZFLAG 02711000 ATCZF001 EQU ATCZFLAG 02712000 ATCTPCP1 EQU ATCAOSM+584 02713000 ATCTPCP0 EQU ATCAOSM+580 02714000 ATCAICTN EQU ATCAOSM+576 02715000 ATCZR01 EQU ATCAOSM+572 02716000 ATCMPLTA EQU ATCAOSM+568 02717000 ATCASCB EQU ATCAOSM+564 02718000 ATCAP86 EQU ATCAOSM+560 02719000 ATCAP85 EQU ATCAOSM+556 02720000 ATCAP84 EQU ATCAOSM+552 02721000 ATCAP83 EQU ATCAOSM+548 02722000 ATCAP82 EQU ATCAOSM+544 02723000 ATCAP69 EQU ATCAOSM+540 02724000 ATCAP66 EQU ATCAOSM+536 02725000 ATCAP62 EQU ATCAOSM+532 02726000 ATCAPC59 EQU ATCAOSM+528 02727000 ATCAP56 EQU ATCAOSM+524 02728000 ATCAP55 EQU ATCAOSM+520 02729000 ATCRCFY0 EQU ATCAOSM+516 02730000 ATCAP41 EQU ATCAOSM+512 02731000 ATCAPC25 EQU ATCAOSM+508 02732000 ATCAP23 EQU ATCAOSM+504 02733000 ATCTPSPB EQU ATCAOSM+472 02734000 ATCTRMPB EQU ATCAOSM+440 02735000 ATCAPBE EQU ATCAOSM+436 02736000 ATCPSTA EQU ATCAOSM+432 02737000 ATCSMABF EQU ATCAOSM+428 02738000 ATCSMAPR EQU ATCAOSM+424 02739000 ATCTPWQA EQU ATCAOSM+420 02740000 ATCSMARA EQU ATCAOSM+412 02741000 ATCCACXA EQU ATCAOSM+408 02742000 ATCZLAAB EQU ATCAOSM+404 02743000 ATCATA10 EQU ATCAOSM+400 02744000 ATCHLTCB EQU ATCAOSM+396 02745000 @NM00064 EQU ATCVTFLG 02746000 ATCVTACT EQU ATCVTFLG 02747000 ATCRPT40 EQU ATCAOSM+388 02748000 ATCRPT39 EQU ATCAOSM+384 02749000 ATCRPT38 EQU ATCAOSM+380 02750000 ATCRPT37 EQU ATCAOSM+376 02751000 ATCRPT36 EQU ATCAOSM+372 02752000 ATCRPT35 EQU ATCAOSM+368 02753000 ATCRPT34 EQU ATCAOSM+364 02754000 ATCRPT33 EQU ATCAOSM+360 02755000 ATCRPT32 EQU ATCAOSM+356 02756000 ATCRPT31 EQU ATCAOSM+352 02757000 ATCRPT30 EQU ATCAOSM+348 02758000 ATCRPT29 EQU ATCAOSM+344 02759000 ATCRPT28 EQU ATCAOSM+340 02760000 ATCRPT27 EQU ATCAOSM+336 02761000 @NM00063 EQU ATCAOSM+333 02762000 @NM00062 EQU @NM00061 02763000 ATCSNUF EQU @NM00061 02764000 ATCOPKL EQU @NM00061 02765000 ATCABEN EQU @NM00061 02766000 ATCAIWT EQU ATCAOSM+328 02767000 ATCINFDD EQU ATCAOSM+324 02768000 ATCORFMG EQU ATCAOSM+320 02769000 ATCORFRL EQU ATCAOSM+316 02770000 ATCOROBT EQU ATCAOSM+312 02771000 ATCORQG EQU ATCORSRB 02772000 ATCORTBF EQU ATCSQAFR 02773000 ATCRPLAC EQU ATCRPLCN+2 02774000 ATCRPLRC EQU ATCRPLCN 02775000 ATCCRPLQ EQU ATCCRPL 02776000 ATCSRBAC EQU ATCSRBCN+2 02777000 ATCSRBRC EQU ATCSRBCN 02778000 ATCSRBQ EQU ATCSRB 02779000 ATCCRAAC EQU ATCCRACN+2 02780000 ATCCRARC EQU ATCCRACN 02781000 ATCCRAQ EQU ATCCRA 02782000 ATCRPT12 EQU ATCAOSM+276 02783000 ATCDMAPP EQU ATCAOSM+272 02784000 ATCAP38 EQU ATCAOSM+268 02785000 ATCZDFJ0 EQU ATCAOSM+260 02786000 ATCAP51 EQU ATCAOSM+256 02787000 ATCZPAB2 EQU ATCAOSM+224 02788000 ATCZPAB1 EQU ATCAOSM+192 02789000 ATCZLFVT EQU ATCAOSM+188 02790000 ATCZLPVT EQU ATCAOSM+184 02791000 ATCZDVTX EQU ATCAOSM+180 02792000 ATCZDVTA EQU ATCAOSM+176 02793000 ATCZDVT9 EQU ATCAOSM+172 02794000 ATCZDVT8 EQU ATCAOSM+168 02795000 ATCZDVT7 EQU ATCAOSM+164 02796000 ATCRSV56 EQU ATCDAPVT+22 02797000 ATCDAPDG EQU ATCDAPVT+20 02798000 ATCDXCEA EQU ATCDAPVT+16 02799000 ATCDCEA EQU ATCDAPVT+12 02800000 ATCDPCIA EQU ATCDAPVT+8 02801000 ATCDSIOA EQU ATCDAPVT+4 02802000 ATCDEOEA EQU ATCDAPVT 02803000 ATCZLAEA EQU ATCLDAPP+16 02804000 ATCZLCEA EQU ATCLDAPP+12 02805000 ATCRSV17 EQU ATCLDAPP+8 02806000 ATCSMFRR EQU ATCLDAPP+4 02807000 ATCCDTID EQU ATCLDAPP 02808000 ATCZAEA EQU ATCICAPP+16 02809000 ATCZCEA EQU ATCICAPP+12 02810000 ATCCDTCB EQU ATCICAPP+8 02811000 ATCZSIOA EQU ATCICAPP+4 02812000 ATCCDRPH EQU ATCICAPP 02813000 ATCAP65 EQU ATCAOSM+96 02814000 ATCZDVT6 EQU ATCAOSM+92 02815000 ATCZDVT4 EQU ATCAOSM+88 02816000 ATCZDVT3 EQU ATCAOSM+84 02817000 ATCZDVT1 EQU ATCAOSM+80 02818000 ATCICNCB EQU ATCAOSM+76 02819000 ATCZPSVT EQU ATCAOSM+72 02820000 ATCZFSVT EQU ATCAOSM+68 02821000 ATCAP64 EQU ATCAOSM+64 02822000 ATCAP63 EQU ATCAOSM+60 02823000 ATCAP61 EQU ATCAOSM+56 02824000 ATCAP58 EQU ATCAOSM+52 02825000 ATCAP57 EQU ATCAOSM+48 02826000 ATCAP54 EQU ATCAOSM+44 02827000 ATCAP53 EQU ATCAOSM+40 02828000 ATCAP52 EQU ATCAOSM+36 02829000 ATCAP32 EQU ATCAOSM+28 02830000 ATCAP12 EQU ATCAOSM+20 02831000 ATCAP11 EQU ATCAOSM+16 02832000 ATCCMTCB EQU ATCAOSM+12 02833000 ATCPRPH EQU ATCAOSM+8 02834000 ATCGSRBF EQU ATCGSRBG 02835000 ATCSRBRT EQU ATCAOSM 02836000 @NM00060 EQU @NM00059 02837000 ATCVTMAB EQU @NM00059 02838000 @NM00058 EQU ATCVTBAM 02839000 ATCVDLOK EQU ISTATCVT+904 02840000 ATCVFPAB EQU ISTATCVT+872 02841000 ATCVDPAB EQU ISTATCVT+840 02842000 ATCIOECB EQU ISTATCVT+836 02843000 ATCINCW3 EQU ISTATCVT+832 02844000 ATCMODTB EQU ISTATCVT+828 02845000 ATCUSSPT EQU ISTATCVT+824 02846000 ATCSRTAB EQU ISTATCVT+820 02847000 @NM00057 EQU ISTATCVT+819 02848000 @NM00056 EQU ATCSTAT2 02849000 ATCTRSMS EQU ATCSTAT2 02850000 ATCTRLOK EQU ATCSTAT2 02851000 ATCTRPSS EQU ATCSTAT2 02852000 ATCTRESC EQU ATCSTAT2 02853000 ATCTRAPI EQU ATCSTAT2 02854000 ATCNMCTR EQU ISTATCVT+816 02855000 ATCSEC51 EQU ATCSECST 02856000 ATCSEC40 EQU ATCSIPD+8 02857000 ATCSEC30 EQU ATCSIPD+4 02858000 ATCSEC21 EQU ATCSIPD 02859000 ATCSEC10 EQU ATCSOPD+4 02860000 ATCSEC01 EQU ATCSOPD 02861000 ATCPOIA EQU ATCRNO+1 02862000 @NM00055 EQU ATCRNO 02863000 ATCPODVT EQU ISTATCVT+784 02864000 ATCS49XL EQU ISTATCVT+780 02865000 ATCS49XI EQU ISTATCVT+776 02866000 ATCLCLCT EQU ATCVLCNT+2 02867000 ATCRNCNT EQU ATCVLCNT 02868000 ATCCFEAD EQU ISTATCVT+768 02869000 ATCPTR00 EQU ISTATCVT+736 02870000 ATCRSV10 EQU ISTATCVT+704 02871000 ATCTACB EQU ISTATCVT+700 02872000 ATCVTINM EQU ISTATCVT+696 02873000 ATCTCLIM EQU ISTATCVT+692 02874000 ATCTCLOM EQU ISTATCVT+688 02875000 ATCVTIPB EQU ISTATCVT+656 02876000 ATCTCIPB EQU ISTATCVT+624 02877000 ATCTIPAB EQU ISTATCVT+592 02878000 ATCOCCCB EQU ISTATCVT+588 02879000 ATCOCCOB EQU ISTATCVT+584 02880000 ATCCDLAD EQU ISTATCVT+580 02881000 ATCCCLAD EQU ISTATCVT+576 02882000 ATCDLRPB EQU ISTATCVT+544 02883000 ATCPGPAB EQU ISTATCVT+512 02884000 ATCVPAB1 EQU ISTATCVT+480 02885000 ATCRSV97 EQU ISTATCVT+476 02886000 ATCVOCLK EQU ISTATCVT+468 02887000 ATCCDFDN EQU ISTATCVT+464 02888000 ATCCDFIN EQU ISTATCVT+460 02889000 ATCDVTLK EQU ISTATCVT+456 02890000 ATCAP36 EQU ISTATCVT+452 02891000 ATCRSV99 EQU ISTATCVT+440 02892000 ATCONFIG EQU ISTATCVT+432 02893000 ATCNODDS EQU ISTATCVT+428 02894000 ATCNODEL EQU ISTATCVT+420 02895000 ATCRSV69 EQU ISTATCVT+416 02896000 ATCAPCR5 EQU ISTATCVT+412 02897000 ATCLDECB EQU ISTATCVT+408 02898000 ATCLDNCS EQU ISTATCVT+404 02899000 ATCCDPTR EQU ISTATCVT+400 02900000 ATCADEL EQU ISTATCVT+396 02901000 ATCTODVT EQU ISTATCVT+392 02902000 ATCDEBCH EQU ISTATCVT+388 02903000 ATCHBSIZ EQU ATCHPGM+2 02904000 ATCHBFNO EQU ATCHPGM 02905000 ATCCRME EQU ISTATCVT+380 02906000 ATCRVCHS EQU ISTATCVT+372 02907000 ATCECTLP EQU ISTATCVT+368 02908000 ATCZDVTB EQU ISTATCVT+364 02909000 ATCECPRT EQU ISTATCVT+360 02910000 ATCVTLOD EQU ISTATCVT+356 02911000 ATCTRPAB EQU ISTATCVT+352 02912000 ATCMSGM EQU ISTATCVT+348 02913000 ATCEPT EQU ISTATCVT+340 02914000 ATCDVT EQU ISTATCVT+336 02915000 ATCTRCPT EQU ISTATCVT+332 02916000 ATCDVLOD EQU ISTATCVT+328 02917000 ATCALERT EQU ISTATCVT+324 02918000 ATCEPA EQU ISTATCVT+320 02919000 ATCSAF EQU ISTATCVT+318 02920000 ATCXRANG EQU ISTATCVT+317 02921000 ATCLAST EQU ATCSHRFG 02922000 ATCSHRTN EQU ISTATCVT+308 02923000 ATCOCRT EQU ISTATCVT+300 02924000 ATCCSMA EQU ATCCSMR 02925000 ATCESC02 EQU ISTATCVT+292 02926000 ATCESC01 EQU ISTATCVT+288 02927000 ATCCDFND EQU ISTATCVT+284 02928000 ATCCDDEL EQU ISTATCVT+280 02929000 ATCCDADD EQU ISTATCVT+276 02930000 ATCMNT EQU ISTATCVT+272 02931000 ATCRSV16 EQU ISTATCVT+270 02932000 ATCMAXID EQU ISTATCVT+269 02933000 ATCMSGSP EQU ATCCOM+268 02934000 ATCCIDM EQU ATCCOM+266 02935000 ATCACTRM EQU ATCCOM+264 02936000 ATCNERAP EQU ATCCOM+260 02937000 ATCNESAL EQU ATCCOM+256 02938000 ATCRCC65 EQU ATCCOM+252 02939000 ATCRCC26 EQU ATCCOM+248 02940000 ATCRCC63 EQU ATCCOM+244 02941000 ATCRSV11 EQU ATCCOM+242 02942000 ATCVTMID EQU ATCCOM+240 02943000 ATCAPOST EQU ATCCOM+236 02944000 ATCNERFN EQU ATCCOM+232 02945000 ATCNERNE EQU ATCCOM+228 02946000 ATCNERCV EQU ATCCOM+224 02947000 ATCNERST EQU ATCCOM+220 02948000 ATCDCC61 EQU ATCCOM+216 02949000 ATCDCC60 EQU ATCCOM+212 02950000 ATCSRTDF EQU ATCCOM+208 02951000 ATCSRTAD EQU ATCCOM+204 02952000 ATCFIRA EQU ATCCOM+200 02953000 ATCSMBQ EQU ATCCOM+196 02954000 ATCSMRC EQU ATCCOM+192 02955000 ATCSMRS EQU ATCCOM+188 02956000 ATCSMQU EQU ATCCOM+184 02957000 ATCACDA EQU ATCCOM+176 02958000 ATCSTMA EQU ATCCOM+172 02959000 ATCFRSTR EQU ATCCOM+168 02960000 ATCREADA EQU ATCCOM+160 02961000 ATCALOAD EQU ATCCOM+156 02962000 ATCBLDLA EQU ATCCOM+152 02963000 ATCFBRPH EQU ATCCOM+148 02964000 ATCBFTRC EQU ATCCOM+144 02965000 ATCTPBUF EQU ATCTHTRC 02966000 ATCREMOV EQU ATCCOM+136 02967000 ATCADD EQU ATCCOM+132 02968000 ATCDVTPT EQU ATCCOM+124 02969000 ATCFEPT EQU ATCCOM+120 02970000 ATCFDVT EQU ATCCOM+116 02971000 ATCPTCHA EQU ATCCOM+108 02972000 ATCAUTHA EQU ATCCOM+104 02973000 ATCACCTA EQU ATCCOM+100 02974000 ATCRDTH EQU ATCCOM+96 02975000 ATCFRSCH EQU ATCCOM+92 02976000 ATCFSB EQU ATCCOM+88 02977000 ATCHLTMS EQU ATCCOM+84 02978000 ATCECPRM EQU ATCCOM+80 02979000 ATCECNET EQU ATCCOM+76 02980000 ATCECOPC EQU ATCCOM+72 02981000 ATCVPARM EQU ATCCOM+68 02982000 ATCECVRQ EQU ATCCOM+64 02983000 ATCECSES EQU ATCCOM+60 02984000 ATCOCHA EQU ATCCOM+56 02985000 ATCDSPLQ EQU ATCCOM+52 02986000 ATCECDSP EQU ATCCOM+48 02987000 ATCVARYQ EQU ATCCOM+44 02988000 ATCECVRY EQU ATCCOM+40 02989000 ATCHALTQ EQU ATCCOM+36 02990000 ATCECHLT EQU ATCCOM+32 02991000 ATCMODQ EQU ATCCOM+28 02992000 ATCECMOD EQU ATCCOM+24 02993000 ATCASCHD EQU ATCCOM+20 02994000 ATCSRT EQU ATCCOM+16 02995000 ATCRDT EQU ATCCOM+12 02996000 ATCDCFRR EQU ATCCOM+8 02997000 ATCAPI EQU ATCCOM+4 02998000 ATCRSV04 EQU ATCSTAT4 02999000 ATCVTTRC EQU ATCSTAT4 03000000 ATCNCSD EQU ATCSTAT4 03001000 ATCMTST EQU ATCSTAT4 03002000 ATCTPRT EQU ATCSTAT4 03003000 ATCPRTAT EQU ATCSTAT4 03004000 @NM00054 EQU ATCPOFLG 03005000 ATCPOUNS EQU ATCPOFLG 03006000 ATCHSDMF EQU ATCSTFLG 03007000 @NM00053 EQU ATCSTAT1 03008000 ATCMDHLT EQU ATCSTAT1 03009000 ATCINHLT EQU ATCSTAT1 03010000 ATCQKHLT EQU ATCSTAT1 03011000 ATCSNHLT EQU ATCSTAT1 03012000 ATCACTIV EQU ATCSTAT1 03013000 ATCSTART EQU ATCSTAT1 03014000 RPHNEXPO EQU ISTRPH+104 03015000 RPHSAV16 EQU RPHWORK+60 03016000 RPHSAV15 EQU RPHWORK+56 03017000 RPHSAV14 EQU RPHWORK+52 03018000 RPHSAV13 EQU RPHWORK+48 03019000 RPHSAV12 EQU RPHWORK+44 03020000 RPHSAV11 EQU RPHWORK+40 03021000 RPHSAV10 EQU RPHWORK+36 03022000 RPHSAVE9 EQU RPHWORK+32 03023000 RPHSAVE8 EQU RPHWORK+28 03024000 RPHSAVE7 EQU RPHWORK+24 03025000 RPHSAVE6 EQU RPHWORK+20 03026000 RPHSAVE5 EQU RPHWORK+16 03027000 RPHSAVE4 EQU RPHWORK+12 03028000 RPHSAVE3 EQU RPHWORK+8 03029000 RPHSAVE2 EQU RPHWORK+4 03030000 RPHSHALF EQU RPHSAVE1+2 03031000 RPHSBIT8 EQU RPHSBITS 03032000 RPHSBIT7 EQU RPHSBITS 03033000 RPHSBIT6 EQU RPHSBITS 03034000 RPHSBIT5 EQU RPHSBITS 03035000 RPHSBIT4 EQU RPHSBITS 03036000 RPHSBIT3 EQU RPHSBITS 03037000 RPHSBIT2 EQU RPHSBITS 03038000 RPHSBIT1 EQU RPHSBITS 03039000 RPHSBYTE EQU RPHSAVE1 03040000 RPHPABQP EQU RPHPABQA+1 03041000 RPHPABFG EQU RPHPABQA 03042000 RPHSRP34 EQU RPHSRPRM+2 03043000 RPHSRP12 EQU RPHSRPRM 03044000 RPHWEGT EQU RPHCSPA 03045000 RPHMAJCB EQU ISTRPH+21 03046000 RPHPABOF EQU ISTRPH+20 03047000 RPHRESUM EQU RPHRESMA+1 03048000 RPHRSV01 EQU RPHWPFLG 03049000 RPHPURGE EQU RPHWPFLG 03050000 RPHPT EQU RPHWPFLG 03051000 RPHWT EQU RPHWPFLG 03052000 RPHRSKEY EQU RPHWPFLG 03053000 RPHDVTA EQU ISTRPH+12 03054000 RPHTIK EQU RPHTSKID+3 03055000 @NM00052 EQU RPHTSKID 03056000 RPHRPHAP EQU RPHRPHA+1 03057000 @NM00051 EQU RPHRPHA 03058000 RPHGATE EQU RPHRPHA 03059000 @NM00050 EQU RPHFLGB 03060000 RPHRLCRA EQU RPHFLGB 03061000 RPHNRSAV EQU RPHFLGB 03062000 RPHPGCMP EQU RPHFLGB 03063000 RPHFBAPS EQU RPHFLGB 03064000 RPHBSSP EQU RPHFLGB 03065000 RPHLOCK EQU RPHFLGB 03066000 RPHFNFLG EQU RPHFSTLC 03067000 RPHMLTCP EQU RPHFLAGS 03068000 RPHSMCLR EQU RPHFLAGS 03069000 RPHSMTYP EQU RPHFLAGS 03070000 RPHSMQ EQU RPHFLAGS 03071000 RPHAUTEX EQU RPHAPTYP 03072000 RPHSPGIN EQU RPHFLAGS 03073000 RPHOGIND EQU RPHFLAGS 03074000 RPHLNGTH EQU RPHCNTL+1 03075000 RPHTYPE EQU RPHCNTL 03076000 DYPRSV01 EQU ISTDYPAB+12 03077000 DYPCHAIN EQU ISTDYPAB+4 03078000 DYPFLGS EQU ISTDYPAB+2 03079000 DYPLNGTH EQU ISTDYPAB+1 03080000 DYPTYPE EQU ISTDYPAB 03081000 PABRPHA EQU PABRPHFG+1 03082000 PABNODQ EQU PABFLAGS 03083000 PABINHBT EQU PABFLAGS 03084000 PABERLOK EQU PABERRLK 03085000 PABSSN EQU PABFLAGS 03086000 PABDYNAM EQU PABFLAGS 03087000 PABNORPR EQU PABFLAGS 03088000 PABPRIOR EQU PABFLAGS 03089000 PABCHNGP EQU PABCHAIN+1 03090000 PABRSV02 EQU PABCHAIN 03091000 PABDELAY EQU PABCHAIN 03092000 PABRUNNG EQU PABCHAIN 03093000 PABRESET EQU PABCHAIN 03094000 PABUNCON EQU PABCHAIN 03095000 PABCDP EQU PABCHAIN 03096000 PABRESCH EQU PABCHAIN 03097000 PABCHNG EQU PABCHAIN 03098000 PABWEQP EQU PABWEQA+1 03099000 PABRSV01 EQU PABWEQA 03100000 PABWEQG EQU PABWEQA 03101000 NCSRUITS EQU NCSUSSRU+2 03102000 NCSRULEN EQU NCSUSSRU 03103000 NCSAPPAB EQU NCSAPP+608 03104000 NCSAPDAT EQU NCSAPBUE+8 03105000 NCSAPRU EQU NCSAPBUE+3 03106000 NCSRSV04 EQU NCSAPBUE 03107000 NCSAPEND EQU NCSAPP+84 03108000 NCSAPTXT EQU NCSAPP+76 03109000 NCSAPECB EQU NCSAPP+72 03110000 NCSAPSA EQU NCSAPP 03111000 NCSPLPDB EQU NCSPLSID+5 03112000 NCSPLNID EQU NCSPLPHD 03113000 NCSPLPO EQU NCSPLSTA 03114000 NCSRSVD4 EQU NCSPLSTA 03115000 NCSRSVD2 EQU NCSCRMOD 03116000 NCSPTMOD EQU NCSCRMOD 03117000 NCSAIMOD EQU NCSCRMOD 03118000 NCSRSVD1 EQU NCSCHKPT+1 03119000 NCSPTUSE EQU NCSCHKPT+1 03120000 NCSRNME EQU NCSCHKPT+1 03121000 NCSCUA EQU NCSCHKPT+1 03122000 NCSANSMD EQU NCSCHKPT+1 03123000 NCSLGMOD EQU NCSCHKPT 03124000 NCSLGAPL EQU NCSCHKPT 03125000 NCSDTRLM EQU NCSCHKPT 03126000 NCSESLM EQU NCSCHKPT 03127000 NCSNRPL EQU NCSCHKPT 03128000 NCSPOLD EQU NCSCHKPT 03129000 NCSPACTV EQU NCSCHKPT 03130000 NCSACTV EQU NCSCHKPT 03131000 NCSCRDTE EQU ISTNCSPL+264 03132000 NCSPLRTY EQU ISTNCSPL+263 03133000 NCSPLRH EQU ISTNCSPL+260 03134000 NCSUFMCB EQU ISTNCSPL+256 03135000 NCSMGLPT EQU ISTNCSPL+252 03136000 NCSCPWPT EQU ISTNCSPL+248 03137000 NCSSENS2 EQU NCSSENSE+2 03138000 NCSSNS2 EQU NCSSENSE+1 03139000 NCSSNS1 EQU NCSSENSE 03140000 NCSPLNSN EQU ISTNCSPL+240 03141000 NCSPLMID EQU ISTNCSPL+232 03142000 NCSPLPID EQU ISTNCSPL+231 03143000 NCSPLGID EQU ISTNCSPL+230 03144000 NCSPLSQN EQU ISTNCSPL+228 03145000 NCSRNAME EQU ISTNCSPL+220 03146000 NCSPLRUI EQU ISTNCSPL+212 03147000 NCSPLRUO EQU ISTNCSPL+208 03148000 NCSPLRRP EQU ISTNCSPL+204 03149000 NCSPLWEL EQU ISTNCSPL+200 03150000 NCSPLSPL EQU ISTNCSPL+196 03151000 NCSPLP3 EQU ISTNCSPL+192 03152000 NCSPLP2 EQU ISTNCSPL+188 03153000 NCSPLP1 EQU ISTNCSPL+184 03154000 NCSPLOLN EQU ISTNCSPL+182 03155000 @NM00049 EQU NCSPLFL5 03156000 NCSFORCE EQU NCSPLFL5 03157000 NCSSDLK EQU NCSPLFL5 03158000 NCSSCPPS EQU NCSPLFL5 03159000 NCSDLRSN EQU ISTNCSPL+180 03160000 NCSPL2AP EQU NCSPLFL4 03161000 NCSDSPN EQU NCSPLFL4 03162000 NCSDSPI EQU NCSPLFL4 03163000 NCSDSPA EQU NCSPLFL4 03164000 NCSDSPE EQU NCSPLFL4 03165000 NCSPLVID EQU NCSPLFL4 03166000 NCSPLRSO EQU NCSPLFL4 03167000 NCSDLNID EQU NCSPLFL4 03168000 NCSEND EQU NCSPLFL3 03169000 NCSFINAL EQU NCSPLFL3 03170000 NCSANS EQU NCSPLFL3 03171000 NCSPID EQU NCSPLFL3 03172000 NCSGID EQU NCSPLFL3 03173000 NCSPLANS EQU NCSPLFL3 03174000 NCSEPP EQU NCSPLFL3 03175000 NCSPLMOM EQU NCSPLFL3 03176000 NCSPLVIT EQU NCSPLFL2 03177000 NCSPLVIS EQU NCSPLFL2 03178000 NCSREMPO EQU NCSPLFL2 03179000 NCSPLDS EQU NCSPLFL2 03180000 NCSOUFMC EQU NCSPLFL2 03181000 NCSPLRIO EQU NCSPLFL2 03182000 NCSPLRSF EQU NCSPLFL2 03183000 NCSPLVDP EQU NCSPLFL2 03184000 NCSPLPOS EQU NCSPLFL1 03185000 NCSPL2CN EQU NCSPLFL1 03186000 NCSPLAPU EQU NCSPLFL1 03187000 NCSPLNON EQU NCSPLFL1 03188000 NCSPLREQ EQU NCSPLFL1 03189000 NCSPLEBN EQU NCSPLFL1 03190000 NCSPLSOM EQU NCSPLFL1 03191000 NCSPL2IN EQU NCSPLFL1 03192000 NCSPLRCR EQU ISTNCSPL+172 03193000 NCSPLECB EQU ISTNCSPL+164 03194000 NCSPLRPH EQU ISTNCSPL+160 03195000 NCSPLCVT EQU ISTNCSPL+156 03196000 NCSPLWKA EQU ISTNCSPL+152 03197000 NCSPLDAF EQU NCSPLCID+2 03198000 NCSPLSAF EQU NCSPLCID 03199000 NCSPLRCD EQU NCSPLRAD+1 03200000 NCSLSCMD EQU NCSPLRAD 03201000 NCSPLWRF EQU ISTNCSPL+72 03202000 NCSPLWRE EQU ISTNCSPL+68 03203000 NCSSTCMD EQU NCSCRFLG 03204000 NCSUSRNF EQU NCSCRFLG 03205000 NCSOPRQU EQU NCSCRFLG 03206000 NCSCRDSE EQU NCSCRFLG 03207000 NCSFMERP EQU NCSCRFLG 03208000 NCSFMCLD EQU NCSCRFLG 03209000 NCSPLCLD EQU NCSCRFLG 03210000 NCSPLWRM EQU NCSCRFLG 03211000 NCSPLUAD EQU ISTNCSPL+64 03212000 NCSMSGSP EQU ISTNCSPL+63 03213000 NCSNCPEP EQU ISTNCSPL+62 03214000 NCSCMDB EQU NCSPLCMD+1 03215000 @NM00048 EQU NCSCMDA 03216000 NCSPLUFM EQU NCSCMDA 03217000 NCSPLFLO EQU NCSCMDA 03218000 NCSPLSYN EQU NCSCMDA 03219000 NCSPLCTL EQU NCSCMDA 03220000 NCSPLSYS EQU NCSCMDA 03221000 NCSPLLPT EQU ISTNCSPL+56 03222000 NCSPLRPT EQU ISTNCSPL+52 03223000 NCSCRPID EQU ISTNCSPL+51 03224000 NCSCRCMD EQU ISTNCSPL+50 03225000 NCSDLID EQU ISTNCSPL+44 03226000 NCSPLLID EQU ISTNCSPL+36 03227000 NCSPLRID EQU ISTNCSPL+28 03228000 NCSRRNPT EQU ISTNCSPL+24 03229000 NCSIORC EQU ISTNCSPL+23 03230000 NCSPRMRC EQU ISTNCSPL+22 03231000 NCSOVFMC EQU NCSPLVF1 03232000 NCSRSV02 EQU NCSPLVFL 03233000 NCSDACLK EQU NCSPLVFL 03234000 NCSABCON EQU NCSPLVFL 03235000 NCSDCONT EQU NCSPLVFL 03236000 NCSVSTAT EQU NCSPLVFL 03237000 NCSVDEL EQU NCSPLVFL 03238000 NCSVNCSA EQU NCSPLVFL 03239000 NCSVBF16 EQU NCSPLVBF+1 03240000 NCSVBF15 EQU NCSPLVBF+1 03241000 NCSVBF14 EQU NCSPLVBF+1 03242000 NCSVBF13 EQU NCSPLVBF+1 03243000 NCSVBF12 EQU NCSPLVBF+1 03244000 NCSVBF11 EQU NCSPLVBF+1 03245000 NCSVBF10 EQU NCSPLVBF+1 03246000 NCSVBF09 EQU NCSPLVBF+1 03247000 NCSVBF08 EQU NCSPLVBF 03248000 NCSVBF07 EQU NCSPLVBF 03249000 NCSVBF06 EQU NCSPLVBF 03250000 NCSVBF05 EQU NCSPLVBF 03251000 NCSVBF04 EQU NCSPLVBF 03252000 NCSVBF03 EQU NCSPLVBF 03253000 NCSVBF02 EQU NCSPLVBF 03254000 NCSVBF01 EQU NCSPLVBF 03255000 NCSPLVCD EQU ISTNCSPL+17 03256000 @NM00047 EQU ISTNCSPL+16 03257000 NCSCRWKA EQU NCSPFX+12 03258000 @NM00046 EQU NCSPFX 03259000 PFXBCK EQU ISTPFX+12 03260000 PFXFWD EQU ISTPFX+8 03261000 PFXLNG EQU ISTPFX+5 03262000 PFXPRTY EQU ISTPFX+4 03263000 PFXCBID EQU PFXID 03264000 POHID EQU ISTPOHD+2 03265000 POHGEN EQU POHSTAT 03266000 POHRREQ EQU POHSTAT 03267000 POHRSVD2 EQU POHSTAT 03268000 POHCNTRL EQU POHSTAT 03269000 POHLBL EQU POHSTAT 03270000 POHDATA EQU POHSTAT 03271000 POHEND EQU POHSTAT 03272000 POHRSVD1 EQU ISTPOHD 03273000 CONUESBF EQU ISTCONFT+1362 03274000 CONSTVAR EQU CONSTAID+1 03275000 CONSTFIL EQU CONSTAID 03276000 CONBLKNO EQU CONSCPID+2 03277000 CONFILL EQU CONSCPID+1 03278000 CONFCNL EQU CONSCPID 03279000 CONF01SV EQU ISTCONFT+1352 03280000 CONSDMLC EQU ISTCONFT+1348 03281000 CONSDECB EQU ISTCONFT+1344 03282000 CONUNITS EQU ISTCONFT+1342 03283000 CONRVPT1 EQU ISTCONFT+1341 03284000 CONGLBBH EQU ISTCONFT+1340 03285000 CONRSV24 EQU ISTCONFT+1312 03286000 CONFTTAT EQU ISTCONFT+1284 03287000 CONFXXAT EQU ISTCONFT+1256 03288000 CONFLDAT EQU ISTCONFT+1228 03289000 CONFTRAT EQU ISTCONFT+1200 03290000 CONCSCB EQU ISTCONFT+1168 03291000 CONRSV50 EQU ISTCONFT+1166 03292000 CONLIST EQU ISTCONFT+1164 03293000 CONSTAFP EQU ISTCONFT+1160 03294000 CONECDET EQU ISTCONFT+1156 03295000 CONRECON EQU ISTCONFT+1036 03296000 CONTRACE EQU ISTCONFT+796 03297000 CONTOLTP EQU ISTCONFT+676 03298000 CONVTHDR EQU ISTCONFT+420 03299000 CONRSV01 EQU ISTCONFT+417 03300000 CONNSNEC EQU CONFLG01 03301000 CONFTPSA EQU CONFLG01 03302000 CONFTTA EQU CONFLG01 03303000 CONFTNSA EQU CONFLG01 03304000 CONFTNAC EQU CONFLG01 03305000 CONFTEXS EQU CONFLG01 03306000 CONFTTMR EQU CONFLG01 03307000 CONFTSTM EQU CONFLG01 03308000 CONCRPLD EQU ISTCONFT+404 03309000 CONPPDBF EQU ISTCONFT+392 03310000 CONNPDBF EQU ISTCONFT+380 03311000 CONAPDBF EQU ISTCONFT+368 03312000 CONWPDBF EQU ISTCONFT+356 03313000 CONIODBF EQU ISTCONFT+344 03314000 CONUEDBF EQU ISTCONFT+332 03315000 CONVPDBF EQU ISTCONFT+320 03316000 CONVFDBF EQU ISTCONFT+308 03317000 CONLPDBF EQU ISTCONFT+296 03318000 CONLFDBF EQU ISTCONFT+284 03319000 CONSPDBF EQU ISTCONFT+272 03320000 CONSFDBF EQU ISTCONFT+260 03321000 CONCRPLS EQU ISTCONFT+248 03322000 CONPPSBF EQU ISTCONFT+236 03323000 CONNPSBF EQU ISTCONFT+224 03324000 CONAPSBF EQU ISTCONFT+212 03325000 CONWPSBF EQU ISTCONFT+200 03326000 CONIOSBF EQU ISTCONFT+188 03327000 CONVPSBF EQU ISTCONFT+176 03328000 CONVFSBF EQU ISTCONFT+164 03329000 CONLPSBF EQU ISTCONFT+152 03330000 CONLFSBF EQU ISTCONFT+140 03331000 CONSPSBF EQU ISTCONFT+128 03332000 CONSFSBF EQU ISTCONFT+116 03333000 CONRSV17 EQU ISTCONFT+115 03334000 CONCRPL EQU CONBUFF+1 03335000 CONPPEX EQU CONBUFF+1 03336000 CONNPEX EQU CONBUFF+1 03337000 CONAPEX EQU CONBUFF+1 03338000 CONWPEX EQU CONBUFF+1 03339000 CONIOEX EQU CONBUFF 03340000 CONUECB EQU CONBUFF 03341000 CONVPEX EQU CONBUFF 03342000 CONVFEX EQU CONBUFF 03343000 CONLPEX EQU CONBUFF 03344000 CONLFEX EQU CONBUFF 03345000 CONSPEX EQU CONBUFF 03346000 CONSFEX EQU CONBUFF 03347000 CONACTV EQU CONSTAT 03348000 CONVRYIN EQU CONSTAT 03349000 CONLODED EQU CONSTAT 03350000 CONDSOPN EQU CONSTAT 03351000 CONSTOR EQU CONSTAT 03352000 @NM00044 EQU CONSTAT 03353000 @NM00043 EQU CONSTAT 03354000 @NM00042 EQU CONSTAT 03355000 CONIOTR EQU CONOPTFL 03356000 CONMODTR EQU CONOPTFL 03357000 CONBTUTR EQU CONOPTFL 03358000 CONBUFTR EQU CONOPTFL 03359000 @NM00041 EQU CONOPTFL 03360000 @NM00040 EQU CONOPTFL 03361000 @NM00039 EQU CONOPTFL 03362000 CONWRMST EQU CONOPTFL 03363000 CONSYLST EQU CONDSFLG 03364000 CONSYLIB EQU CONDSFLG 03365000 CONSYOBJ EQU CONDSFLG 03366000 @NM00038 EQU CONDSFLG 03367000 @NM00037 EQU CONDSFLG 03368000 @NM00036 EQU CONDSFLG 03369000 CONMODFY EQU ISTCONFT+109 03370000 CONDISPL EQU ISTCONFT+108 03371000 CONVARY EQU ISTCONFT+107 03372000 CONHLTS EQU CONHALT 03373000 CONHLTQ EQU CONHALT 03374000 CONLAST EQU ISTCONFT+105 03375000 CONRES2 EQU ISTCONFT+104 03376000 CONCID EQU ISTCONFT+102 03377000 CONBUFSZ EQU ISTCONFT+100 03378000 CONRSV02 EQU ISTCONFT+96 03379000 CONDCBBA EQU ISTCONFT+92 03380000 CONDCBLA EQU ISTCONFT+88 03381000 CONDCBOA EQU ISTCONFT+84 03382000 CONLDPRM EQU ISTCONFT+80 03383000 CONRDBUF EQU ISTCONFT+76 03384000 CONSTCIB EQU ISTCONFT+72 03385000 CONENDLA EQU ISTCONFT+68 03386000 CONVARLA EQU ISTCONFT+64 03387000 CONMODLA EQU ISTCONFT+60 03388000 CONHLTLA EQU ISTCONFT+56 03389000 CONNCSLA EQU ISTCONFT+52 03390000 CONDISLA EQU ISTCONFT+48 03391000 CONCIBAD EQU ISTCONFT+44 03392000 CONACB EQU ISTCONFT+40 03393000 CONFBPNM EQU ISTCONFT+32 03394000 CONDMNM EQU ISTCONFT+24 03395000 CONAPSNM EQU ISTCONFT+16 03396000 CONAPINM EQU ISTCONFT+8 03397000 CONCONFG EQU ISTCONFT 03398000 PATRSV01 EQU PATFLAGA 03399000 PATUSEFG EQU PATFLAGA 03400000 PATRDCNT EQU ISTPAT+6 03401000 PATGRPID EQU ISTPAT+5 03402000 PATPTHID EQU ISTPAT+4 03403000 PATDINDX EQU ISTPAT+2 03404000 PATGINDX EQU ISTPAT 03405000 GNTGRPNM EQU ISTGNT 03406000 DNTTELNO EQU ISTDNT+1 03407000 DNTCTDIG EQU ISTDNT 03408000 RLSRSV02 EQU ISTRLS+140 03409000 RLSRSV01 EQU ISTRLS+138 03410000 RLSCTELU EQU ISTRLS+136 03411000 RLSPRE EQU ISTRLS 03412000 RDARSVPT EQU ISTRDA+84 03413000 RDAPUBI EQU ISTRDA+83 03414000 RDADFCUA EQU ISTRDA+80 03415000 RDACTPCC EQU ISTRDA+79 03416000 RDADACUA EQU ISTRDA+76 03417000 RDALUBA EQU RDAUCBAD+1 03418000 RDACHQI EQU RDAUCBAD 03419000 RDARSV01 EQU RDAFLAG 03420000 RDARBISA EQU RDAFLAG 03421000 RDAPRE EQU ISTRDA 03422000 RSWRSV01 EQU ISTRSW+152 03423000 RSWRSV02 EQU ISTRSW+150 03424000 RSWCTELU EQU ISTRSW+148 03425000 RSWGRUPZ EQU ISTRSW+146 03426000 RSWDIALZ EQU ISTRSW+144 03427000 RSWGRUPT EQU ISTRSW+140 03428000 RSWDIALT EQU ISTRSW+136 03429000 RSWPRE EQU ISTRSW 03430000 RLXRSV03 EQU ISTRLX+80 03431000 RLXRSV02 EQU ISTRLX+77 03432000 RLXRSV01 EQU RLXFLAGA 03433000 RLXINUSE EQU RLXFLAGA 03434000 RLXNLUX EQU ISTRLX+72 03435000 RLXPRE EQU ISTRLX 03436000 RPXRSV01 EQU ISTRPX+80 03437000 RPXRSV02 EQU ISTRPX+77 03438000 RPXMAXLU EQU ISTRPX+76 03439000 RPXFLUX EQU ISTRPX+72 03440000 RPXPRE EQU ISTRPX 03441000 RLURSV02 EQU ISTRLU+172 03442000 RLULGMOD EQU ISTRLU+164 03443000 RLUMODEP EQU RLUMODET+8 03444000 RLUMODEN EQU RLUMODET 03445000 RLUUSSPT EQU RLUUSSTB+8 03446000 RLUUSSNM EQU RLUUSSTB 03447000 RLURSV01 EQU ISTRLU+137 03448000 RLULOCAD EQU ISTRLU+136 03449000 RLUNCPPM EQU RLUNCPPC+1 03450000 RLUNCPPN EQU RLUNCPPC 03451000 RLUPACEM EQU RLUPACE+1 03452000 RLUPACEN EQU RLUPACE 03453000 RLUINTA EQU ISTRLU+128 03454000 RLUSSCFM EQU ISTRLU+127 03455000 RLUCRRSV EQU RLUCRFLG 03456000 RLUACTLU EQU RLUCRFLG 03457000 RLURSV00 EQU RLUFLAG 03458000 RLUNDSES EQU RLUFLAG 03459000 RLUGSTAT EQU RLUFLAG 03460000 RLUBATCH EQU RLUFLAG 03461000 RLURBISA EQU RLUFLAG 03462000 RLUTYPE EQU ISTRLU+124 03463000 RLUCRPR EQU ISTRLU 03464000 RCCRVPT2 EQU ISTRCC+144 03465000 RCCXTOSW EQU ISTRCC+140 03466000 RCCSWTOX EQU ISTRCC+136 03467000 RCCRSPT2 EQU ISTRCC+133 03468000 RCCADDR EQU ISTRCC+132 03469000 RCCPASSL EQU ISTRCC+131 03470000 RCCMXOUT EQU ISTRCC+130 03471000 RCCMXDAT EQU ISTRCC+128 03472000 RCCINDEX EQU ISTRCC+126 03473000 RCCPATHZ EQU ISTRCC+124 03474000 RCCPATHT EQU ISTRCC+120 03475000 RCCDPQ EQU ISTRCC+116 03476000 RCCTPAB EQU ISTRCC+112 03477000 RCCRSV02 EQU ISTRCC+109 03478000 RCCCRRSV EQU RCCCRFLG 03479000 RCCCTCFL EQU RCCCRFLG 03480000 RCCACTPU EQU RCCCRFLG 03481000 RCCNCSPL EQU ISTRCC+104 03482000 RCCRPHCN EQU ISTRCC+100 03483000 RCCEPAB EQU ISTRCC+96 03484000 RCCDPAB EQU ISTRCC+92 03485000 RCCVPAB EQU ISTRCC+88 03486000 @NM00035 EQU ISTRCC+87 03487000 RCCSESCT EQU ISTRCC+86 03488000 RCCIDNUM EQU RCCID48+3 03489000 RCCIDBLK EQU RCCID48+2 03490000 RCCIDPA2 EQU RCCID48+1 03491000 RCCIDPUT EQU RCCID48 03492000 RCCIDPA1 EQU RCCSTAID 03493000 RCCCTELU EQU ISTRCC+76 03494000 RCCCNCNT EQU ISTRCC+75 03495000 RCCRTGOH EQU RCCFLAGB 03496000 RCCBRKCN EQU RCCFLAGB 03497000 RCCRESET EQU RCCFLAGB 03498000 RCCFINAL EQU RCCFLAGB 03499000 RCCBNNSP EQU RCCFLAGB 03500000 RCCIRETR EQU RCCFLAGB 03501000 RCCDIALP EQU RCCFLAGB 03502000 RCCDSTCT EQU RCCFLAGB 03503000 RCCCTPGD EQU RCCFLAG 03504000 RCCPRGDN EQU RCCFLAG 03505000 RCCOUERP EQU RCCFLAG 03506000 RCCOHIMM EQU RCCFLAG 03507000 RCCLDISC EQU RCCFLAG 03508000 RCCERPIP EQU RCCFLAG 03509000 RCCCUDIE EQU RCCFLAG 03510000 RCCRBISA EQU RCCFLAG 03511000 RCCTYPE EQU ISTRCC+72 03512000 RCCPRE EQU ISTRCC 03513000 DOTADTRM EQU ISTDOT 03514000 RDSADDOT EQU ISTRDS+76 03515000 RDSCTATR EQU ISTRDS+74 03516000 RDSCTTRM EQU ISTRDS+72 03517000 RDSPRE EQU ISTRDS 03518000 RINRSV05 EQU ISTRIN+156 03519000 RINRSV04 EQU ISTRIN+152 03520000 RINLOCRN EQU ISTRIN+148 03521000 RINRSV02 EQU ISTRIN+145 03522000 RTRCNCNT EQU RINCNCNT 03523000 RTRNCSPL EQU RINNCSPL 03524000 RTRRPHCN EQU RINRPHCN 03525000 RTRVPAB EQU RINVPAB 03526000 RTRREMOT EQU RINREMOT 03527000 RTRRLDAF EQU RINRLDAF 03528000 RTRNODID EQU RINNODID 03529000 RINRSV01 EQU RINDFD 03530000 RTRLDISC EQU RINLDISC 03531000 RTRNODEF EQU RINNODEF 03532000 RTRREMPO EQU RINREMPO 03533000 RINCRPRE EQU ISTRIN 03534000 RTRRSV04 EQU ISTRTR+210 03535000 RTRLCTI EQU ISTRTR+209 03536000 RTRIDCAS EQU RTRBSCID+1 03537000 RTRIDLEN EQU RTRBSCID 03538000 RTRRSVDD EQU ISTRTR+181 03539000 RTRRDFG EQU ISTRTR+180 03540000 RTRDIAA EQU ISTRTR+176 03541000 RTRPOLA EQU ISTRTR+172 03542000 RTRCADDR EQU ISTRTR+164 03543000 RTRCTADR EQU ISTRTR+162 03544000 RTRCTPOL EQU ISTRTR+160 03545000 RTRCTDIA EQU ISTRTR+158 03546000 RTRRSV03 EQU ISTRTR+156 03547000 RTRRVPT1 EQU ISTRTR+152 03548000 RTRBHSN1 EQU ISTRTR+144 03549000 RTRCRSV2 EQU RTRCRFLG 03550000 RTRDTRLM EQU RTRLSCMD 03551000 RTRCRSV1 EQU RTRCRFLG 03552000 RTRTRMAX EQU ISTRTR+142 03553000 RTRRSV24 EQU RTRRDFF 03554000 RTRRFDEK EQU RTRRDFF 03555000 RTRRFANK EQU RTRRDFF 03556000 RTRRFPFK EQU RTRRDFF 03557000 RTRRFPEN EQU RTRRDFF 03558000 RTRRFXCT EQU RTRRDFF 03559000 RTRRESCT EQU RTRRDFE 03560000 RTRRESUP EQU RTRRDFE 03561000 RTRREATT EQU RTRRDFE 03562000 RTRRECHK EQU RTRRDFE 03563000 RTRREACR EQU RTRRDFE 03564000 RTRRSV0A EQU RTRRDFE 03565000 RTRREBRK EQU RTRRDFE 03566000 RTRRSV11 EQU RTRRDFD 03567000 RTRRSV10 EQU RTRRDFD 03568000 RTRRDBHI EQU RTRRDFD 03569000 RTRRDBHD EQU RTRRDFD 03570000 RTRRDBHN EQU RTRRDFD 03571000 RTRRSV23 EQU RTRRDFC 03572000 RTRRCXMS EQU RTRRDFC 03573000 RTRRCMSG EQU RTRRDFC 03574000 RTRRCBLK EQU RTRRDFC 03575000 RTRRCPT3 EQU RTRRDFC 03576000 RTRRCIT2 EQU RTRRDFC 03577000 RTRRCIT1 EQU RTRRDFC 03578000 RTRRSV32 EQU RTRRDFB 03579000 RTRRBEND EQU RTRRDFB 03580000 RTRRBECT EQU RTRRDFB 03581000 RTRRSV02 EQU RTRRDFA 03582000 RTRRACTR EQU RTRRDFA 03583000 RTRRSV60 EQU RTRRDFA 03584000 RTRRACDT EQU RTRRDFA 03585000 RTRRAPT3 EQU RTRRAALL 03586000 RTRRAPT2 EQU RTRRAALL 03587000 RTRRAPT1 EQU RTRRAALL 03588000 RTRRAATN EQU RTRRDFA 03589000 RTRRSV45 EQU ISTRTR+132 03590000 RTRRSV01 EQU ISTRTR+130 03591000 RTRCTECM EQU ISTRTR+128 03592000 RTRADRPT EQU RTRADR+1 03593000 RTRRSV22 EQU RTRFLAG 03594000 RTRVTERM EQU RTRFLAG 03595000 RTRRSV51 EQU RTRFLAG 03596000 RTRRBISA EQU RTRFLAG 03597000 RTRRSV21 EQU RTRFLAG 03598000 RTRCRPR EQU ISTRTR 03599000 RCLRVPT2 EQU ISTRCL+92 03600000 RCLRVPT1 EQU ISTRCL+88 03601000 RCLGPOLA EQU ISTRCL+84 03602000 RCLCTNGP EQU ISTRCL+82 03603000 RCLRSV01 EQU ISTRCL+80 03604000 RCLCTECM EQU ISTRCL+78 03605000 RCLCTETR EQU ISTRCL+76 03606000 RCLGPADR EQU RCLADR+1 03607000 RCLRSV33 EQU RCLFLAG 03608000 RCLBATCH EQU RCLFLAG 03609000 RCLRBISA EQU RCLFLAG 03610000 RCLRSV22 EQU RCLFLAG 03611000 RCLPRE EQU ISTRCL 03612000 RPTRSV03 EQU ISTRPT+156 03613000 RPTRSV02 EQU ISTRPT+152 03614000 RPTNSNSV EQU ISTRPT+148 03615000 RPTPTHCT EQU ISTRPT+146 03616000 RPTPEPCT EQU ISTRPT+144 03617000 RPTDAFSV EQU ISTRPT+142 03618000 RPTRSV01 EQU ISTRPT+141 03619000 RPTISTAT EQU RPTFLAG1 03620000 RPTDYNAM EQU RPTFLAG1 03621000 RPTVYIMM EQU RPTFLAG1 03622000 RPTVIODN EQU RPTFLAG1 03623000 RPTONLIN EQU RPTFLAG1 03624000 RPTHLVPD EQU RPTFLAG1 03625000 RPTVRYPD EQU RPTFLAG1 03626000 RPTASLEP EQU RPTFLAG1 03627000 RPTUTERM EQU ISTRPT+136 03628000 RPTATERM EQU ISTRPT+132 03629000 RPTDIVT EQU RPTDITT 03630000 RPTCTNM EQU ISTRPT+120 03631000 RPTLNDAF EQU RPTLNCID+2 03632000 RPTLNSAF EQU RPTLNCID 03633000 RPTLN EQU ISTRPT 03634000 RLNRVPT2 EQU ISTRLN+112 03635000 RLNNCSPL EQU ISTRLN+108 03636000 RLNX2SW EQU ISTRLN+104 03637000 @NM00034 EQU ISTRLN+103 03638000 RLNCRRSV EQU RLNCRFLG 03639000 RLNSWEP EQU RLNCRFLG 03640000 RLNSVSKP EQU RLNLSCMD 03641000 RLNSESLM EQU RLNLSCMD 03642000 RLNNPRLM EQU RLNLSCMD 03643000 RLNSWNCP EQU RLNCRFLG 03644000 RLNACTLN EQU RLNCRFLG 03645000 RLNPAUSE EQU ISTRLN+101 03646000 RLNPOLMT EQU ISTRLN+100 03647000 RLNACTSN EQU ISTRLN+98 03648000 RLNRESV1 EQU ISTRLN+97 03649000 RLNACTRM EQU ISTRLN+96 03650000 RLNCTSES EQU ISTRLN+95 03651000 RLNRDSLM EQU ISTRLN+94 03652000 RLNAUTOA EQU ISTRLN+92 03653000 RLNRDFD EQU RLNRDF+3 03654000 RLNRDFC EQU RLNRDF+2 03655000 RLNMULTP EQU RLNRDFB 03656000 RLNRATRN EQU RLNRDFB 03657000 RLNRAPOL EQU RLNRDFB 03658000 RLNTTV EQU RLNRDFB 03659000 RLNRSV0B EQU RLNRDFB 03660000 RLNAUTOD EQU RLNRDFB 03661000 RLNANSWR EQU RLNRDFB 03662000 RLNRBUSE EQU RLNRDFB 03663000 RLNRAPEP EQU RLNRDFA 03664000 RLNRANCP EQU RLNRDFA 03665000 RLNRAEP EQU RLNRDFA 03666000 RLNIDV EQU RLNRDFA 03667000 RLNPORT EQU RLNRDFA 03668000 RLNGANSW EQU RLNRDFA 03669000 RLNRACAN EQU RLNRACNT 03670000 RLNRACAT EQU RLNRACNT 03671000 RLNRSV04 EQU RLNSTAT2 03672000 RLNINUSE EQU RLNSTAT2 03673000 RLNOHIN EQU RLNSTAT2 03674000 RLNRSV03 EQU RLNSTAT1 03675000 RLNVD EQU RLNSTAT1 03676000 RLNINOPP EQU RLNSTAT1 03677000 RLNINOPL EQU RLNSTAT1 03678000 RLNLRST EQU RLNSTAT1 03679000 RLNTRAP EQU RLNSTAT1 03680000 RLNACTCT EQU ISTRLN+84 03681000 RLNCTECM EQU ISTRLN+82 03682000 RLNCTEIN EQU ISTRLN+80 03683000 RLNCTETR EQU ISTRLN+78 03684000 RLNCTECL EQU ISTRLN+76 03685000 RLNCUA EQU RLNUCBAD 03686000 RLNRSV01 EQU RLNFLAG 03687000 RLNRBISA EQU RLNFLAG 03688000 RLNEAM EQU RLNFLAG 03689000 RLNPRE EQU ISTRLN 03690000 RGPRVPT2 EQU ISTRGP+88 03691000 RGPRVPT1 EQU ISTRGP+84 03692000 RGPCTECM EQU ISTRGP+82 03693000 RGPCTEIN EQU ISTRGP+80 03694000 RGPCTETR EQU ISTRGP+78 03695000 RGPCTECL EQU ISTRGP+76 03696000 RGPCTELN EQU ISTRGP+74 03697000 RGPRSV03 EQU ISTRGP+73 03698000 RGPRSV02 EQU RGPFLG 03699000 RGPASDLC EQU RGPFLG 03700000 RGPABSC EQU RGPFLG 03701000 RGPASS EQU RGPFLG 03702000 RGPADIL EQU RGPFLG 03703000 RGPPRE EQU ISTRGP 03704000 RRNRINNM EQU ISTRRN+248 03705000 @NM00033 EQU ISTRRN+247 03706000 RRNRDCUA EQU ISTRRN+244 03707000 RRNLASTE EQU ISTRRN+240 03708000 RRNNCSPL EQU ISTRRN+236 03709000 RRNRPLPT EQU ISTRRN+232 03710000 RRNMSIZE EQU ISTRRN+228 03711000 RRNNCPNM EQU ISTRRN+221 03712000 RRNCTPCC EQU ISTRRN+220 03713000 RRNHBUFS EQU ISTRRN+218 03714000 RRNHLENT EQU RRNHPRE+1 03715000 RRNHLENH EQU RRNHPRE 03716000 RRNNMNCP EQU ISTRRN+208 03717000 RRNDELAY EQU ISTRRN+206 03718000 RRNRSV04 EQU ISTRRN+200 03719000 RRNRSV88 EQU RRNNMDPD+7 03720000 RRNPUBI EQU RRNNMDPD+6 03721000 RRNDPLUB EQU RRNNMDPD 03722000 RRNEPADR EQU ISTRRN+190 03723000 RRNCPLUB EQU ISTRRN+184 03724000 RRNFLUX EQU ISTRRN+180 03725000 RRNRSV05 EQU RRNCMFD 03726000 RRNREMPO EQU RRNCMFD 03727000 RRNCDREC EQU RRNCMFD 03728000 RRNCDDSI EQU RRNCMFD 03729000 RRNCDBCK EQU RRNCMFD 03730000 RRNCDDTL EQU RRNCMFD 03731000 RRNCDSTD EQU RRNCMFD 03732000 RRNCDCSP EQU RRNCMFD 03733000 RRNCCCSL EQU RRNCMFC 03734000 RRNCCSIM EQU RRNCMFC 03735000 RRNCCRCM EQU RRNCMFC 03736000 RRNCCRIM EQU RRNCMFC 03737000 RRNCCCRC EQU RRNCMFC 03738000 RRNCCRST EQU RRNCMFC 03739000 RRNCCRDQ EQU RRNCMFC 03740000 RRNCCRCN EQU RRNCMFC 03741000 RRNCBALT EQU RRNCMFB 03742000 RRNCBMOD EQU RRNCMFB 03743000 RRNCBNPL EQU RRNCMFB 03744000 RRNCBRLS EQU RRNCMFB 03745000 RRNCBRDS EQU RRNCMFB 03746000 RRNCBDLR EQU RRNCMFB 03747000 RRNCBDLH EQU RRNCMFB 03748000 RRNCBDLO EQU RRNCMFB 03749000 RRNCADGO EQU RRNCMFA 03750000 RRNCADTD EQU RRNCMFA 03751000 RRNCACDT EQU RRNCMFA 03752000 RRNCAMBH EQU RRNCMFA 03753000 RRNCAATI EQU RRNCMFA 03754000 RRNCAATG EQU RRNCMFA 03755000 RRNCAATD EQU RRNCMFA 03756000 RRNCAALL EQU RRNCMFA 03757000 RRNRSV55 EQU RRNRDF+3 03758000 RRNPTASL EQU RRNRDFB+1 03759000 RRNRSV01 EQU RRNRDFB+1 03760000 RRNVYDON EQU RRNRDFB+1 03761000 RRNRBBUP EQU RRNRDFB+1 03762000 RRNRSV03 EQU RRNRDFB 03763000 RRNRBCT2 EQU RRNRDFB 03764000 RRNRBCT1 EQU RRNRDFB 03765000 RRNRBSEC EQU RRNRDFB 03766000 RRNRBCCT EQU RRNRDFB 03767000 RRNRBCCL EQU RRNRDFB 03768000 RRNRSV02 EQU RRNRDFB 03769000 RRNRBMDL EQU RRNRDFB 03770000 RRNRAPEP EQU RRNRDFA 03771000 RRNRANCP EQU RRNRDFA 03772000 RRNRBREM EQU RRNRDFA 03773000 RRNRAOLT EQU RRNRDFA 03774000 RRNRASYN EQU RRNRDFA 03775000 RRNRADMP EQU RRNRDFA 03776000 RRNRAIPL EQU RRNRDFA 03777000 RRNRASHT EQU RRNRDFA 03778000 RRNCTENT EQU ISTRRN+170 03779000 RRNCTECM EQU ISTRRN+168 03780000 RRNCTEIN EQU ISTRRN+166 03781000 RRNCTETR EQU ISTRRN+164 03782000 RRNCTECL EQU ISTRRN+162 03783000 RRNCTELI EQU ISTRRN+160 03784000 RRNCTEGP EQU ISTRRN+158 03785000 RRNCTBHS EQU ISTRRN+156 03786000 RRNBHSET EQU ISTRRN+152 03787000 RRNTRENT EQU ISTRRN+148 03788000 RRNRLDIP EQU ISTRRN+147 03789000 RRNRNCUA EQU ISTRRN+144 03790000 RRNGRPA EQU ISTRRN+140 03791000 RRNLUBA EQU RRNUCBAD+1 03792000 RRNCHQI EQU RRNUCBAD 03793000 RRNRSV11 EQU RRNFLAG 03794000 RRNDSTCT EQU RRNFLAG 03795000 RRNERPIP EQU RRNFLAG 03796000 RRNLCDIP EQU RRNFLAG 03797000 RRNLCDIE EQU RRNFLAG 03798000 RRNLCSIP EQU RRNFLAG 03799000 RRNRBISA EQU RRNFLAG 03800000 RRNRSV89 EQU RRNFLAG 03801000 RRNPRE EQU ISTRRN 03802000 RLCRVPT2 EQU ISTRLC+80 03803000 RLCRVPT1 EQU ISTRLC+79 03804000 RLCLCCUA EQU ISTRLC+76 03805000 RLCUCBAD EQU RLCADR+1 03806000 RLCRSVDE EQU RLCFLAG 03807000 RLCACNT EQU RLCFLAG 03808000 RLCRSV14 EQU RLCFLAG 03809000 RLCRBISA EQU RLCFLAG 03810000 RLCRSV22 EQU RLCFLAG 03811000 RLCPRE EQU ISTRLC 03812000 RAPRVPT2 EQU ISTRAP+116 03813000 RAPRVPT1 EQU ISTRAP+112 03814000 RAPBFACT EQU ISTRAP+111 03815000 RAPRSV17 EQU RAPFLGC 03816000 RAPRSV16 EQU RAPFLGC 03817000 RAPRSV15 EQU RAPFLGC 03818000 RAPRSV14 EQU RAPFLGC 03819000 RAPRSV13 EQU RAPFLGC 03820000 RAPRSV12 EQU RAPFLGC 03821000 RAPRSV11 EQU RAPFLGC 03822000 RAPRSV10 EQU RAPFLGC 03823000 RAPANVPC EQU RAPFLGB 03824000 RAPASPO EQU RAPFLGB 03825000 RAPAPPO EQU RAPFLGB 03826000 RAPAACQ EQU RAPFLGB 03827000 RAPAPRMT EQU RAPFLGB 03828000 RAPAPASS EQU RAPFLGB 03829000 RAPABLCK EQU RAPFLGB 03830000 RAPALLF EQU RAPFLGB 03831000 RAPRSV06 EQU RAPFLG 03832000 RAPRSV05 EQU RAPFLG 03833000 RAPRSV04 EQU RAPFLG 03834000 RAPRSV03 EQU RAPFLG 03835000 RAPATLGN EQU RAPFLG 03836000 RAPASLGI EQU RAPFLG 03837000 RAPAQUI EQU RAPFLG 03838000 RAPABLGN EQU RAPFLG 03839000 RAPACEQD EQU ISTRAP+106 03840000 RAPTRPRE EQU ISTRAP+104 03841000 RAPACEAP EQU ISTRAP+100 03842000 RAPICEAQ EQU ISTRAP+96 03843000 RAPICEAC EQU ISTRAP+92 03844000 RAPICELG EQU ISTRAP+88 03845000 RAPAPPWD EQU ISTRAP+80 03846000 RAPACBA EQU ISTRAP+72 03847000 RAPPRE EQU ISTRAP 03848000 RDTVSRPL EQU ISTRDT+132 03849000 RDTCRSPW EQU ISTRDT+124 03850000 RDTCRSDS EQU ISTRDT+116 03851000 @NM00032 EQU ISTRDT+113 03852000 RRNSTCNT EQU RDTSTCNT 03853000 RRNVYRPH EQU RDTVYRPH 03854000 RDTTPAB EQU ISTRDT+104 03855000 RDTDPAB EQU ISTRDT+100 03856000 RDTEPAB EQU ISTRDT+96 03857000 RDTVPAB EQU ISTRDT+92 03858000 RDTRSV01 EQU RDTFLAGB 03859000 RDTBHSET EQU RDTFLAGB 03860000 RDTCTCFL EQU RDTFLAGB 03861000 RDTCTPGD EQU RDTFLAGB 03862000 RDTPRGDN EQU RDTFLAGB 03863000 RDTOUERP EQU RDTFLAGB 03864000 RDTLGCT EQU ISTRDT+90 03865000 RDTNODID EQU ISTRDT+89 03866000 RDTMAXID EQU ISTRDT+88 03867000 RDTCTSNT EQU ISTRDT+86 03868000 RDTFLAGS EQU ISTRDT+84 03869000 RDTBACK EQU ISTRDT+80 03870000 RDTFORW EQU ISTRDT+76 03871000 RDTLEN EQU RDTPLEN+1 03872000 RDTPRILS EQU RDTPRIOR 03873000 RDTPRISW EQU RDTPRIOR 03874000 RDTPRIRN EQU RDTPRIOR 03875000 RDTPRILC EQU RDTPRIOR 03876000 RDTPRIAP EQU RDTPRIOR 03877000 @NM00031 EQU RDTPRIOR 03878000 RDTPRE EQU ISTRDT 03879000 RCPRSV05 EQU ISTRCPRE+120 03880000 RCPRSV04 EQU ISTRCPRE+116 03881000 RCPRSV03 EQU ISTRCPRE+112 03882000 RCPINTA EQU RCPLGNIN+16 03883000 RCPLGNCT EQU RCPLGNIN+8 03884000 RCPLGNAP EQU RCPLGNIN 03885000 @NM00030 EQU RCPPMODE 03886000 RCPRRECD EQU RCPPMODE 03887000 RCPRBASC EQU RCPPMODE 03888000 RCPBFLIM EQU ISTRCPRE+90 03889000 RCPBHSI2 EQU ISTRCPRE+89 03890000 RCPBHSI1 EQU ISTRCPRE+88 03891000 RCPACETR EQU ISTRCPRE+84 03892000 RCPICEAQ EQU ISTRCPRE+80 03893000 RCPLNAPA EQU ISTRCPRE+76 03894000 RCPICELN EQU ISTRCPRE+72 03895000 RCPPRE EQU ISTRCPRE 03896000 RPRCONID EQU ISTRPRE+63 03897000 RPRCLVPD EQU RPRFLAGC 03898000 RPRINIMM EQU RPRFLAGD 03899000 RPRRSV05 EQU RPRFLAGD 03900000 RPRCONP EQU RPRFLAGD 03901000 RPRACTP EQU RPRFLAGD 03902000 RPRRSON EQU RPRFLAGD 03903000 RPRCONCT EQU RPRFLAGD 03904000 RPRLTASN EQU RPRFLAGD 03905000 RPRPTHCT EQU ISTRPRE+60 03906000 RPRSWDAF EQU ISTRPRE+58 03907000 RPRSTPCT EQU ISTRPRE+56 03908000 RPRRVPT1 EQU ISTRPRE+52 03909000 RPRDEVCH EQU ISTRPRE+44 03910000 RPRNCBA EQU ISTRPRE+40 03911000 RPRNSNEA EQU ISTRPRE+36 03912000 RPRLGONB EQU ISTRPRE+32 03913000 RPRLGONF EQU ISTRPRE+28 03914000 RPRHDTYP EQU ISTRPRE+27 03915000 RPRTIOCT EQU ISTRPRE+26 03916000 RPRPEPCT EQU ISTRPRE+24 03917000 RPRRSV03 EQU RPRCAUSE 03918000 RPRRSYNC EQU RPRCAUSE 03919000 RPRCRCPT EQU RPRCAUSE 03920000 RPRNOSRT EQU RPRCAUSE 03921000 RPRINTST EQU RPRFLAGB 03922000 RPRVYIMM EQU RPRFLAGB 03923000 RPRHLVPD EQU RPRFLAGB 03924000 RPRONLIN EQU RPRFLAGB 03925000 RPRVIODN EQU RPRFLAGB 03926000 RPRAOPN EQU RPRFLAGB 03927000 RPRENTVT EQU RPRFLAGB 03928000 RPRENTVH EQU RPRFLAGB 03929000 RPRLIVE EQU RPRFLAGA 03930000 RPRVRYPD EQU RPRFLAGA 03931000 RPRENTED EQU RPRFLAGA 03932000 RPRENTIO EQU RPRFLAGA 03933000 RPRENTBF EQU RPRFLAGA 03934000 RPRTIED EQU RPRFLAGA 03935000 RPRINV EQU RPRFLAGA 03936000 RPRACT EQU RPRFLAGA 03937000 RPRENTRY EQU ISTRPRE+20 03938000 RPRPELEN EQU ISTRPRE+18 03939000 RPRELEN EQU ISTRPRE+16 03940000 RPRRLOCK EQU ISTRPRE+12 03941000 RPRDAF EQU RPRCOMID+2 03942000 RPRSAF EQU RPRCOMID 03943000 RPRNAME EQU ISTRPRE 03944000 LDPTCEP EQU ISTLDPRM+24 03945000 LDPRSV02 EQU ISTLDPRM+22 03946000 LDPRSV01 EQU LDPFB2 03947000 LDPATACH EQU LDPFB2 03948000 LDPFLAST EQU LDPFB2 03949000 LDPRSV03 EQU LDPFG 03950000 LDPPB EQU LDPFG 03951000 LDPFX EQU LDPFG 03952000 LDPDCBA EQU ISTLDPRM+16 03953000 LDPPDS EQU ISTLDPRM+8 03954000 LDPMBR EQU ISTLDPRM 03955000 DEVRSV03 EQU ISTDEVCH+5 03956000 DEVPHYSA EQU ISTDEVCH+4 03957000 DEVCSLPN EQU DEVCHAR3 03958000 DEVCSTCL EQU DEVCHAR3 03959000 DEVCCHEK EQU DEVCHAR3 03960000 DEVCATTN EQU DEVCHAR3 03961000 DEVCSWL EQU DEVFCCTL 03962000 DEVCRVB EQU DEVFCCTL 03963000 DEVCSSL EQU DEVFCCTL 03964000 DEVCBSC EQU DEVFCCTL 03965000 DEVMCODE EQU ISTDEVCH+2 03966000 DEVCHAR2 EQU DEVTCODE 03967000 DEVRSV01 EQU DEVCHAR 03968000 DEVCCTL EQU DEVCHAR 03969000 DEVNNSPT EQU DEVCHAR 03970000 DEVSPS EQU DEVCHAR 03971000 DEVSUBND EQU DEVCHAR 03972000 DEVCONVR EQU DEVCHAR 03973000 DEVOTPUT EQU DEVCHAR 03974000 DEVINPUT EQU DEVCHAR 03975000 LOKXCL EQU @NM00028 03976000 LOKPRY EQU @NM00028 03977000 @NM00029 EQU @NM00028 03978000 @NM00027 EQU LOKCHNG 03979000 LOKCT EQU ISTLOK 03980000 ISTPDAVP EQU ISTAVT+40 03981000 ISTAVR01 EQU ISTAVT+38 03982000 ISTVTTP EQU ISTAVT+36 03983000 ISTAGTWT EQU ISTAVT+34 03984000 ISTATRT EQU ISTAVT+32 03985000 ISTARID EQU ISTAVT+30 03986000 ISTX1 EQU ISTAVT+29 03987000 ISTPHNM EQU ISTAVT+24 03988000 ISTAPSEX EQU ISTAVT+20 03989000 ISTVTTIK EQU ISTAVT+18 03990000 AVTASID EQU ISTAVT+16 03991000 ISTAPSTA EQU ISTAVT+12 03992000 ISTAS53 EQU ISTAVT+8 03993000 ISTAHIP EQU ISTAS49 03994000 ISTACVT EQU ISTAVT 03995000 CVTLEVL EQU CVTRELNO+2 03996000 CVTNUMB EQU CVTRELNO 03997000 CVTMDL EQU CVTFIX+250 03998000 @NM00002 EQU CVTFIX+248 03999000 @NM00001 EQU CVTFIX 04000000 CVTRV482 EQU CVTXTNT2+128 04001000 CVTRV481 EQU CVTXTNT2+124 04002000 CVTRV480 EQU CVTXTNT2+120 04003000 CVTRV479 EQU CVTXTNT2+118 04004000 CVTRV478 EQU CVTXTNT2+117 04005000 CVTRV477 EQU CVTXTNT2+116 04006000 CVTRV476 EQU CVTXTNT2+115 04007000 CVTRV475 EQU CVTXTNT2+114 04008000 CVTRV474 EQU CVTRV466 04009000 CVTRV473 EQU CVTRV466 04010000 CVTRV472 EQU CVTRV466 04011000 CVTRV471 EQU CVTRV466 04012000 CVTRV470 EQU CVTRV466 04013000 CVTRV469 EQU CVTRV466 04014000 CVTRV468 EQU CVTRV466 04015000 CVTRV467 EQU CVTRV466 04016000 CVTRV465 EQU CVTRV457 04017000 CVTRV464 EQU CVTRV457 04018000 CVTRV463 EQU CVTRV457 04019000 CVTRV462 EQU CVTRV457 04020000 CVTRV461 EQU CVTRV457 04021000 CVTRV460 EQU CVTRV457 04022000 CVTRV459 EQU CVTRV457 04023000 CVTRV458 EQU CVTRV457 04024000 CVTRV456 EQU CVTXTNT2+108 04025000 CVTRV455 EQU CVTXTNT2+104 04026000 CVTRV454 EQU CVTXTNT2+100 04027000 CVTRV453 EQU CVTXTNT2+96 04028000 CVTRV452 EQU CVTXTNT2+94 04029000 CVTRV451 EQU CVTXTNT2+92 04030000 CVTRV450 EQU CVTXTNT2+90 04031000 CVTRV449 EQU CVTXTNT2+88 04032000 CVTRV448 EQU CVTXTNT2+87 04033000 CVTRV447 EQU CVTXTNT2+86 04034000 CVTRV446 EQU CVTRV438 04035000 CVTRV445 EQU CVTRV438 04036000 CVTRV444 EQU CVTRV438 04037000 CVTRV443 EQU CVTRV438 04038000 CVTRV442 EQU CVTRV438 04039000 CVTRV441 EQU CVTRV438 04040000 CVTRV440 EQU CVTRV438 04041000 CVTRV439 EQU CVTRV438 04042000 CVTRV437 EQU CVTRV429 04043000 CVTRV436 EQU CVTRV429 04044000 CVTRV435 EQU CVTRV429 04045000 CVTRV434 EQU CVTRV429 04046000 CVTRV433 EQU CVTRV429 04047000 CVTRV432 EQU CVTRV429 04048000 CVTRV431 EQU CVTRV429 04049000 CVTRV430 EQU CVTRV429 04050000 CVTRV428 EQU CVTXTNT2+80 04051000 CVTRV427 EQU CVTXTNT2+76 04052000 CVTRV426 EQU CVTXTNT2+72 04053000 CVTRV425 EQU CVTXTNT2+68 04054000 CVTATACT EQU CVTATCVT 04055000 CVTRV423 EQU CVTXTNT2+62 04056000 CVTRV422 EQU CVTXTNT2+60 04057000 CVTRV421 EQU CVTXTNT2+58 04058000 CVTRV420 EQU CVTXTNT2+56 04059000 CVTRV419 EQU CVTXTNT2+55 04060000 CVTRV418 EQU CVTXTNT2+54 04061000 CVTRV417 EQU CVTRV409 04062000 CVTRV416 EQU CVTRV409 04063000 CVTRV415 EQU CVTRV409 04064000 CVTRV414 EQU CVTRV409 04065000 CVTRV413 EQU CVTRV409 04066000 CVTRV412 EQU CVTRV409 04067000 CVTRV411 EQU CVTRV409 04068000 CVTRV410 EQU CVTRV409 04069000 CVTRV408 EQU CVTRV400 04070000 CVTRV407 EQU CVTRV400 04071000 CVTRV406 EQU CVTRV400 04072000 CVTRV405 EQU CVTRV400 04073000 CVTRV404 EQU CVTRV400 04074000 CVTRV403 EQU CVTRV400 04075000 CVTRV402 EQU CVTRV400 04076000 CVTRV401 EQU CVTRV400 04077000 CVTICB EQU CVTXTNT2+48 04078000 CVTSKTA EQU CVTXTNT2+44 04079000 CVTSHSB EQU CVTSHS 04080000 CVTRSV98 EQU CVTXTNT2+36 04081000 CVTRSV97 EQU CVTXTNT2+34 04082000 CVTRSV96 EQU CVTXTNT2+32 04083000 CVTOLTEP EQU CVTXTNT2+28 04084000 CVTQIDA EQU CVTQID+1 04085000 CVTRSV95 EQU CVTQID 04086000 CVTRSV94 EQU CVTXTNT2+20 04087000 CVTRSV93 EQU CVTXTNT2+16 04088000 CVTRSV92 EQU CVTXTNT2+12 04089000 CVTDEBVR EQU CVTXTNT2+8 04090000 CVTRSV91 EQU CVTXTNT2+6 04091000 CVTRSV9H EQU CVTFLGBT 04092000 CVTRSV9G EQU CVTFLGBT 04093000 CVTRSV9F EQU CVTFLGBT 04094000 CVTRSV9E EQU CVTFLGBT 04095000 CVTRSV9D EQU CVTFLGBT 04096000 CVTRSV9C EQU CVTFLGBT 04097000 CVTVME EQU CVTFLGBT 04098000 CVTNPE EQU CVTFLGBT 04099000 CVTNUCLS EQU CVTXTNT2+4 04100000 CVTDSSVA EQU CVTDSSV+1 04101000 CVTRSV89 EQU CVTDSSV 04102000 CVTRSV88 EQU CVTXTNT1+8 04103000 CVTRSV87 EQU CVTXTNT1+4 04104000 CVTFACHN EQU CVTXTNT1 04105000 CVTRV488 EQU CVTMAP+412 04106000 CVTRV487 EQU CVTMAP+408 04107000 CVTRV486 EQU CVTMAP+404 04108000 CVTRV485 EQU CVTMAP+400 04109000 CVTACTAP EQU CVTMAP+396 04110000 CVTAUTH EQU CVTMAP+392 04111000 CVTATMCA EQU CVTATMCT+1 04112000 CVTATMST EQU CVTATMCT 04113000 CVTRSV61 EQU CVTMAP+384 04114000 CVTVOLT1 EQU CVTVOLM1+1 04115000 CVTVOLI1 EQU CVTVOLF1 04116000 CVTSTOA EQU CVTMAP+376 04117000 CVTRSV58 EQU CVTMAP+374 04118000 CVTRSV57 EQU CVTMAP+372 04119000 CVTDDCE EQU CVTMAP+368 04120000 CVTPNWFR EQU CVTMAP+364 04121000 CVTSMF EQU CVTMAP+360 04122000 CVTSULK EQU CVTMAP+358 04123000 CVTSLKO EQU CVTSYSK 04124000 CVTSLKP EQU CVTSYSK 04125000 CVTSLKQ EQU CVTSYSK 04126000 CVTSLKR EQU CVTSYSK 04127000 CVTRSV56 EQU CVTSYSK 04128000 CVTRSV55 EQU CVTSYSK 04129000 CVTRSV54 EQU CVTSYSK 04130000 CVTRSV53 EQU CVTSYSK 04131000 CVTRSV52 EQU CVTA1F1 04132000 CVTRSV51 EQU CVTA1F1 04133000 CVTRSV50 EQU CVTA1F1 04134000 CVTRSV49 EQU CVTA1F1 04135000 CVTRSV48 EQU CVTA1F1 04136000 CVTRSV47 EQU CVTA1F1 04137000 CVTSRSW EQU CVTA1F1 04138000 CVTPFSW EQU CVTA1F1 04139000 CVTPCVT EQU CVTMAP+352 04140000 CVTRSV46 EQU CVTMAP+344 04141000 CVTRSV45 EQU CVTMAP+340 04142000 CVTRSV44 EQU CVTMAP+338 04143000 CVTRSV43 EQU CVTMAP+336 04144000 CVTHJESA EQU CVTHJES+1 04145000 CVTRSV42 EQU CVTHJES 04146000 CVTEXT2A EQU CVTEXT2+1 04147000 CVTRSV41 EQU CVTEXT2 04148000 CVTAPFA EQU CVTAPF+1 04149000 CVTRSV40 EQU CVTAPF 04150000 CVTRV518 EQU CVTINTLA 04151000 CVTRV517 EQU CVTERPV 04152000 CVTEORM EQU CVTMAP+312 04153000 CVTMCHPR EQU CVTMAP+308 04154000 CVTTZ EQU CVTMAP+304 04155000 CVTJEPS EQU CVTMAP+300 04156000 CVTJESCT EQU CVTMAP+296 04157000 CVTMODE EQU CVTMAP+292 04158000 CVTPTRV EQU CVTMAP+288 04159000 CVTREAL EQU CVTMAP+284 04160000 CVTRSV39 EQU CVTMAP+280 04161000 CVTRSV38 EQU CVTMAP+276 04162000 CVTDMSRA EQU CVTDMSR+1 04163000 CVTRV634 EQU CVTDMSRF 04164000 CVTRV633 EQU CVTDMSRF 04165000 CVTRV632 EQU CVTDMSRF 04166000 CVTRV631 EQU CVTDMSRF 04167000 CVTRV630 EQU CVTDMSRF 04168000 CVTRV629 EQU CVTDMSRF 04169000 CVTUDUMP EQU CVTDMSRF 04170000 CVTSDUMP EQU CVTDMSRF 04171000 CVTQMSGA EQU CVTQMSG+1 04172000 CVTRSV36 EQU CVTQMSG 04173000 CVTAMFF EQU CVTMAP+264 04174000 CVTPURGA EQU CVTPURG+1 04175000 CVTRSV35 EQU CVTPURG 04176000 CVTCBSP EQU CVTMAP+256 04177000 CVTATERA EQU CVTATER+1 04178000 CVTSYST EQU CVTATER 04179000 CVTVOLT2 EQU CVTTAT 04180000 CVTVOLI2 EQU CVTVOLF2 04181000 CVTAQAVB EQU CVTAQAVT+1 04182000 CVTRSV34 EQU CVTTCMFG 04183000 CVTRSV33 EQU CVTTCMFG 04184000 CVTRSV32 EQU CVTTCMFG 04185000 CVTRSV31 EQU CVTTCMFG 04186000 CVTRSV30 EQU CVTTCMFG 04187000 CVTRSV29 EQU CVTTCMFG 04188000 CVTRSV28 EQU CVTTCMFG 04189000 CVTTCRDY EQU CVTTCMFG 04190000 CVTGTFA EQU CVTGTF+1 04191000 CVTRSV27 EQU CVTGTFST 04192000 CVTRNIO EQU CVTGTFST 04193000 CVTUSR EQU CVTGTFST 04194000 CVTRV318 EQU CVTFORM 04195000 CVTRV317 EQU CVTTMODE 04196000 CVTRV316 EQU CVTSTATE 04197000 CVTRV315 EQU CVTGTFS 04198000 CVTGTFAV EQU CVTGTFS 04199000 CVT0SCR1 EQU CVTMAP+232 04200000 CVTRV515 EQU CVTMAP+228 04201000 CVTRMS EQU CVTMAP+224 04202000 CVTPATCH EQU CVTMAP+220 04203000 CVTTSCE EQU CVTMAP+216 04204000 CVTLNKSC EQU CVTMAP+214 04205000 CVTQABST EQU CVTMAP+212 04206000 CVTMDLDS EQU CVTMAP+208 04207000 CVTUSER EQU CVTMAP+204 04208000 CVTABEND EQU CVTMAP+200 04209000 CVTSMCA EQU CVTMAP+196 04210000 CVTRSV18 EQU CVTMAP+192 04211000 CVTQLPAQ EQU CVTMAP+188 04212000 CVTQCDSR EQU CVTMAP+184 04213000 CVTRSV17 EQU CVTOPTB 04214000 CVTRSV16 EQU CVTOPTB 04215000 CVTFP EQU CVTOPTB 04216000 CVTAPTHR EQU CVTOPTB 04217000 CVTNLOG EQU CVTOPTB 04218000 CVTTOD EQU CVTOPTB 04219000 CVTCTIMS EQU CVTOPTB 04220000 CVTPROT EQU CVTOPTB 04221000 CVTXPFP EQU CVTOPTA 04222000 CVTASCII EQU CVTOPTA 04223000 CVTRSV13 EQU CVTOPTA 04224000 CVTRSV12 EQU CVTOPTA 04225000 CVTNIP EQU CVTOPTA 04226000 CVTDDR EQU CVTOPTA 04227000 CVTAPR EQU CVTOPTA 04228000 CVTCCH EQU CVTOPTA 04229000 CVTSNCTR EQU CVTMAP+180 04230000 CVTQMWR EQU CVTMAP+176 04231000 CVTQOCR EQU CVTMAP+172 04232000 CVT1EF00 EQU CVTMAP+168 04233000 CVTMZ00 EQU CVTMAP+164 04234000 CVTHEAD EQU CVTMAP+160 04235000 CVTRSV11 EQU CVTMAP+156 04236000 CVTMSER EQU CVTMAP+148 04237000 CVTRV516 EQU CVTIERLC 04238000 CVTILCH EQU CVTMAP+140 04239000 CVT0DS EQU CVTMAP+136 04240000 CVTFBOSV EQU CVTMAP+132 04241000 CVTNUCB EQU CVTMAP+128 04242000 CVTIXAVL EQU CVTMAP+124 04243000 CVTIOQET EQU CVTMAP+120 04244000 CVTDCBA EQU CVTMAP+117 04245000 CVTMVS2 EQU CVTDCB 04246000 CVT6DAT EQU CVTDCB 04247000 CVT4MPS EQU CVTDCB 04248000 CVTRSV09 EQU CVTDCB 04249000 CVT4MS1 EQU CVTDCB 04250000 CVT2SPS EQU CVTDCB 04251000 CVT1SSS EQU CVTDCB 04252000 CVTRSV08 EQU CVTDCB 04253000 CVTSTB EQU CVTMAP+112 04254000 CVTQTD00 EQU CVTMAP+108 04255000 CVTQTE00 EQU CVTMAP+104 04256000 CVTCUCB EQU CVTMAP+100 04257000 CVTSJQ EQU CVTMAP+96 04258000 CVTPBLDL EQU CVTMAP+92 04259000 CVTTPC EQU CVTMAP+88 04260000 CVTSVDCB EQU CVTMAP+84 04261000 CVTBRET EQU CVTMAP+82 04262000 CVTEXIT EQU CVTMAP+80 04263000 CVT0FN00 EQU CVTMAP+76 04264000 CVTDARA EQU CVTDAR+1 04265000 CVTRSV07 EQU CVTFLGS1 04266000 CVTRSV06 EQU CVTFLGS1 04267000 CVTRSV05 EQU CVTFLGS1 04268000 CVTRSV04 EQU CVTFLGS1 04269000 CVTRSV03 EQU CVTFLGS1 04270000 CVTRSV02 EQU CVTFLGS1 04271000 CVTRSV01 EQU CVTFLGS1 04272000 CVTDMPLK EQU CVTFLGS1 04273000 CVTXITP EQU CVTMAP+68 04274000 CVTZDTAB EQU CVTMAP+64 04275000 CVTMSLT EQU CVTMAP+60 04276000 CVTDATE EQU CVTMAP+56 04277000 CVTBTERM EQU CVTMAP+52 04278000 CVTSYSAD EQU CVTMAP+48 04279000 CVTXTLER EQU CVTMAP+44 04280000 CVTILK2 EQU CVTMAP+40 04281000 CVTILK1 EQU CVTMAP+36 04282000 CVTPRLTV EQU CVTMAP+32 04283000 CVTPCNVT EQU CVTMAP+28 04284000 CVT0VL00 EQU CVTMAP+24 04285000 CVTXAPG EQU CVTMAP+20 04286000 CVTBUF EQU CVTMAP+16 04287000 CVTJOB EQU CVTMAP+12 04288000 CVTLINK EQU CVTMAP+8 04289000 CVT0EF00 EQU CVTMAP+4 04290000 CVTTCBP EQU CVTMAP 04291000 CVT EQU CVTMAP 04292000 @NM00026 EQU PSA+3668 04293000 PSASTAK EQU PSA+3072 04294000 @NM00025 EQU PSA+1048 04295000 PSAUSEND EQU PSA+1048 04296000 PSARV062 EQU PSA+1044 04297000 PSACDAL EQU PSA+1040 04298000 PSAWTCOD EQU PSA+1036 04299000 PSAATCVT EQU PSA+1032 04300000 PSAPCPSW EQU PSA+1024 04301000 PSAPIR2 EQU PSA+1020 04302000 PSARV059 EQU PSA+1018 04303000 PSASVC13 EQU PSA+1016 04304000 PSALSFCC EQU PSA+1012 04305000 PSASFACC EQU PSA+1008 04306000 PSASTOP EQU PSA+992 04307000 PSASTART EQU PSA+976 04308000 PSARSPSW EQU PSA+968 04309000 PSASRPSW EQU PSA+960 04310000 PSARV045 EQU PSA+892 04311000 PSARV044 EQU PSA+888 04312000 PSARV043 EQU PSA+884 04313000 PSARV042 EQU PSA+880 04314000 PSARV041 EQU PSA+876 04315000 PSARV040 EQU PSA+872 04316000 PSARV025 EQU PSA+868 04317000 PSADSSED EQU PSA+868 04318000 PSADSSPR EQU PSA+864 04319000 PSADSSFW EQU PSA+860 04320000 PSADSS14 EQU PSA+856 04321000 PSADSSPP EQU PSA+848 04322000 PSADSSRP EQU PSA+840 04323000 PSADSS05 EQU PSADSSF4 04324000 PSADSS10 EQU PSADSSF4 04325000 PSADSSVE EQU PSADSSF4 04326000 PSADSSDE EQU PSADSSF4 04327000 PSADSSC0 EQU PSADSSF4 04328000 PSADSSIE EQU PSADSSF4 04329000 PSADSS12 EQU PSADSSF4 04330000 PSADSSRC EQU PSADSSF4 04331000 PSARV057 EQU PSADSSF3 04332000 PSARV056 EQU PSADSSF3 04333000 PSARV055 EQU PSADSSF3 04334000 PSADSSMC EQU PSADSSF3 04335000 PSADSSRW EQU PSADSSF3 04336000 PSADSSNM EQU PSADSSF3 04337000 PSADSSES EQU PSADSSF3 04338000 PSADSSGP EQU PSADSSF3 04339000 PSADSSF2 EQU PSADSSFL+1 04340000 PSADSSPI EQU PSADSSF1 04341000 PSADSSOI EQU PSADSSF1 04342000 PSADSSSP EQU PSADSSF1 04343000 PSADSSTP EQU PSADSSF1 04344000 PSADSSDW EQU PSADSSF1 04345000 PSADSSDD EQU PSADSSF1 04346000 PSADSSDM EQU PSADSSF1 04347000 PSADSSMV EQU PSADSSF1 04348000 PSADSSTS EQU PSA+816 04349000 PSADSSWK EQU PSA+812 04350000 PSADSSR3 EQU PSA+808 04351000 PSADSSR2 EQU PSA+804 04352000 PSADSSRS EQU PSA+800 04353000 PSASTOR EQU PSA+796 04354000 PSACPUSA EQU PSA+794 04355000 PSAVSTAP EQU PSA+792 04356000 PSAWKVAP EQU PSA+788 04357000 PSAWKRAP EQU PSA+784 04358000 PSAMCHIC EQU PSA+783 04359000 PSARV061 EQU PSA+782 04360000 PSASYMSK EQU PSA+781 04361000 PSAMCHFL EQU PSA+780 04362000 PSACR0 EQU PSA+776 04363000 PSAPSWSV EQU PSA+768 04364000 PSACLHS EQU PSAHLHI 04365000 PSALKR15 EQU PSALKSA+60 04366000 PSALKR14 EQU PSALKSA+56 04367000 PSALKR13 EQU PSALKSA+52 04368000 PSALKR12 EQU PSALKSA+48 04369000 PSALKR11 EQU PSALKSA+44 04370000 PSALKR10 EQU PSALKSA+40 04371000 PSALKR9 EQU PSALKSA+36 04372000 PSALKR8 EQU PSALKSA+32 04373000 PSALKR7 EQU PSALKSA+28 04374000 PSALKR6 EQU PSALKSA+24 04375000 PSALKR5 EQU PSALKSA+20 04376000 PSALKR4 EQU PSALKSA+16 04377000 PSALKR3 EQU PSALKSA+12 04378000 PSALKR2 EQU PSALKSA+8 04379000 PSALKR1 EQU PSALKSA+4 04380000 PSALKR0 EQU PSALKSA 04381000 PSARV023 EQU PSACLHT+52 04382000 PSALOCAL EQU PSACLHT+48 04383000 PSACMSL EQU PSACLHT+44 04384000 PSAOPTL EQU PSACLHT+40 04385000 PSATPACL EQU PSACLHT+36 04386000 PSATPDNL EQU PSACLHT+32 04387000 PSATPNCL EQU PSACLHT+28 04388000 PSAIOSLL EQU PSACLHT+24 04389000 PSAIOSUL EQU PSACLHT+20 04390000 PSAIOSCL EQU PSACLHT+16 04391000 PSAIOSSL EQU PSACLHT+12 04392000 PSASALCL EQU PSACLHT+8 04393000 PSAASML EQU PSACLHT+4 04394000 PSADISPL EQU PSACLHT 04395000 PSASRSA EQU PSA+636 04396000 PSARV050 EQU PSA+634 04397000 PSADSSGO EQU PSA+633 04398000 PSARECUR EQU PSA+632 04399000 PSAHLHIS EQU PSA+628 04400000 PSAIPCSA EQU PSA+624 04401000 @NM00024 EQU PSA+621 04402000 PSAIPCDM EQU PSA+620 04403000 PSAIPCD EQU PSA+616 04404000 @NM00023 EQU PSA+613 04405000 PSAIPCRM EQU PSA+612 04406000 PSAIPCR EQU PSA+608 04407000 PSAMCHEX EQU PSA+600 04408000 PSAMPSW EQU PSA+592 04409000 PSAEXPS2 EQU PSA+584 04410000 PSAEXPS1 EQU PSA+576 04411000 PSAPIREG EQU PSA+572 04412000 PSARSREG EQU PSA+568 04413000 PSAGPREG EQU PSA+556 04414000 PSARV022 EQU PSASUP4 04415000 PSARV021 EQU PSASUP4 04416000 PSARV020 EQU PSASUP4 04417000 PSARV019 EQU PSASUP4 04418000 PSARV018 EQU PSASUP4 04419000 PSARV017 EQU PSASUP4 04420000 PSARV016 EQU PSASUP4 04421000 PSARV015 EQU PSASUP4 04422000 PSARV014 EQU PSASUP3 04423000 PSARV013 EQU PSASUP3 04424000 PSARV012 EQU PSASUP3 04425000 PSARV011 EQU PSASUP3 04426000 PSASPR EQU PSASUP3 04427000 PSAPSREG EQU PSASUP3 04428000 PSAPI2 EQU PSASUP3 04429000 PSAIOSUP EQU PSASUP3 04430000 PSALCR EQU PSASUP2 04431000 PSARTM EQU PSASUP2 04432000 PSAACR EQU PSASUP2 04433000 PSAIPCE2 EQU PSASUP2 04434000 PSAIPCES EQU PSASUP2 04435000 PSAIPCEC EQU PSASUP2 04436000 PSAGTF EQU PSASUP2 04437000 PSAIPCRI EQU PSASUP2 04438000 PSARV063 EQU PSASUP1 04439000 PSATCTL EQU PSASUP1 04440000 PSADISP EQU PSASUP1 04441000 PSALOCK EQU PSASUP1 04442000 PSAPI EQU PSASUP1 04443000 PSAEXT EQU PSASUP1 04444000 PSASVC EQU PSASUP1 04445000 PSAIO EQU PSASUP1 04446000 PSAAOLD EQU PSA+548 04447000 PSAANEW EQU PSA+544 04448000 PSATOLD EQU PSA+540 04449000 PSATNEW EQU PSA+536 04450000 PSALCCAR EQU PSA+532 04451000 PSALCCAV EQU PSA+528 04452000 PSAPCCAR EQU PSA+524 04453000 PSAPCCAV EQU PSA+520 04454000 PSACPULA EQU PSA+518 04455000 PSACPUPA EQU PSA+516 04456000 PSAPSA EQU PSA+512 04457000 FLCHDEND EQU PSA+512 04458000 FLCCRSAV EQU FLCMCLA+280 04459000 FLCGRSAV EQU FLCMCLA+216 04460000 FLCFPSAV EQU FLCMCLA+184 04461000 FLCFLA EQU FLCMCLA+88 04462000 FLCRGNCD EQU FLCMCLA+84 04463000 FLCFSAA EQU FLCFSA+1 04464000 @NM00022 EQU FLCFSA 04465000 @NM00021 EQU FLCMCLA+72 04466000 FLCMCIC EQU FLCMCLA+64 04467000 @NM00020 EQU FLCMCLA+20 04468000 FLCIOAA EQU FLCIOA+1 04469000 @NM00019 EQU FLCIOA 04470000 @NM00018 EQU FLCMCLA+15 04471000 @NM00017 EQU FLCMCLA+14 04472000 @NM00016 EQU FLCMCLA+12 04473000 FLCLCL EQU FLCMCLA+8 04474000 FLCIOELA EQU FLCIOEL+1 04475000 @NM00015 EQU FLCIOEL 04476000 FLCCHNID EQU FLCMCLA 04477000 @NM00014 EQU PSA+160 04478000 FLCMTRCD EQU PSA+157 04479000 @NM00013 EQU PSA+156 04480000 FLCPERA EQU FLCPER+1 04481000 @NM00012 EQU FLCPER 04482000 @NM00011 EQU PSA+151 04483000 FLCPERCD EQU PSA+150 04484000 FLCMCNUM EQU PSA+149 04485000 @NM00010 EQU PSA+148 04486000 FLCTEAA EQU FLCTEA+1 04487000 @NM00009 EQU FLCTEA 04488000 PSAPIPC EQU PSAPICOD 04489000 PSAPIMC EQU PSAPICOD 04490000 PSAPIPER EQU PSAPICOD 04491000 PSARV049 EQU FLCPICOD 04492000 FLCPILCB EQU FLCPIILC 04493000 @NM00008 EQU FLCPIILC 04494000 @NM00007 EQU PSAEPPSW 04495000 FLCSVCN EQU PSAESPSW+2 04496000 FLCSILCB EQU FLCSVILC 04497000 @NM00006 EQU FLCSVILC 04498000 @NM00005 EQU PSAESPSW 04499000 FLCEICOD EQU PSAEEPSW+2 04500000 PSASPAD EQU PSAEEPSW 04501000 @NM00004 EQU PSA+128 04502000 FLCINPSW EQU PSA+120 04503000 FLCMNPSW EQU PSA+112 04504000 FLCPNPSW EQU PSA+104 04505000 FLCSNPSW EQU PSA+96 04506000 FLCENPSW EQU PSA+88 04507000 FLCTRACE EQU PSA+84 04508000 FLCTIMER EQU PSA+80 04509000 FLCCVT2 EQU PSA+76 04510000 FLCCAW EQU PSA+72 04511000 FLCCSW EQU PSA+64 04512000 FLCIOPSW EQU PSA+56 04513000 FLCMOPSW EQU PSA+48 04514000 FLCPOPSW EQU PSA+40 04515000 FLCSOPSW EQU PSA+32 04516000 FLCEOPSW EQU PSA+24 04517000 @NM00003 EQU FLCICCW2+4 04518000 FLCCVT EQU FLCICCW2 04519000 FLCICCW1 EQU FLCROPSW 04520000 FLCIPPSW EQU FLCRNPSW 04521000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04522000 @RC00568 EQU @RC00565 04523000 @RT00953 EQU @RC00951 04524000 @ENDDATA EQU * 04525000 END ISTINCNS,(C'PLS2059',0603,78079) 04526000