SVTM TITLE 'ISTCRCR4 - FEEDBACK ROUTINES *00001000 ' 00002000 ISTCRCR4 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTCRCR4 78.199' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 */********************************************************************/ 00013000 */* */ 00014000 */* FEEDBACK ROUTINE FOR LOCAL 3270 AND TOLTEP SUPPORT */ 00015000 */* */ 00016000 */********************************************************************/ 00017000 * 0678 00018000 * 0678 00019000 * FSBPTR=RPHWEA; /* GET FSB POINTER */ 00020000 L FSBPTR,RPHWEA(,RPHPTR) 0678 00021000 * ADDR(RPHCRR->CRAPROCR)->PFCCRRO=RPHCRR->CRAFRR; /*@XL03HHG*/ 00022000 L @15,RPHCRR(,RPHPTR) 0679 00023000 LA @14,312 0679 00024000 ALR @14,@15 0679 00025000 L @09,CRAFRR(,@15) 0679 00026000 ST @09,PFCCRRO(,@14) 0679 00027000 * ADDR(RPHCRR->CRAPROCR)->PFCFRRO=RPHCRR->CRAFRR; /*@XL03HHG*/ 00028000 ST @09,PFCFRRO(,@14) 0680 00029000 * RPHCRR->CRACRR=ADDR(RPHCRR->CRAPROCR); /*@XL03HHG*/ 00030000 LA @14,CRAPROCR(,@15) 0681 00031000 ST @14,CRACRR(,@15) 0681 00032000 * CREG13=ADDR(RPHCRR->CRAPROCR)+'20'X;/* SAVE AREA @XL03HHG*/ 00033000 * 0682 00034000 AL @14,@CF00253 0682 00035000 LR CREG13,@14 0682 00036000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(ATCVTPTR)) */ 0683 00037000 * ATCVTPTR = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0684 00038000 L ATCVTPTR,ATCLCPTR 0684 00039000 * END; /*LISATCVT*/ /*@XL03HHG*/ 0685 00040000 * IF FSBLCPB=0 THEN /* LCPB EXIST? NO, @XL03HHG*/ 00041000 L @00,FSBLCPB(,FSBPTR) 0686 00042000 LTR @00,@00 0686 00043000 BNZ @RF00686 0686 00044000 * IF ADDR(FSBFDB)->FDBDATAA->NSRURCD=NSRUINOP THEN 0687 00045000 L @15,FDBDATAA+32(,FSBPTR) 0687 00046000 CLI NSRURCD(@15),X'81' 0687 00047000 BNE @RF00687 0687 00048000 * /* INOPERATIVE REQUEST? @DM09767*/ 00049000 * /*SEGMENT(DOREQ)REQUEST*/DO;GOTO DOREQ;DOREQ#:END;/* YES 00050000 * PROCESS IT @XL03HHG*/ 0688 00051000 B DOREQ 0689 00052000 * ELSE /* NO, @DM09767*/ 00053000 * DO; /* DO THE FOLLOWING: @DM09767*/ 00054000 B @RC00687 0691 00055000 @RF00687 DS 0H 0692 00056000 * /*REQSTORE CBID(LCPB)CLEAR(YES)SAVE(YES)RPH(RPHPTR)*/ 00057000 * DO; 0692 00058000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 0693 00059000 */* END OF ATBUILD */ 0693 00060000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0693 00061000 * RFY (GPR01P,GPR13P) RSTD; 0694 00062000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0695 00063000 * 0695 00064000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00065000 * RFY (GPR01P,GPR13P) UNRSTD; 0696 00066000 * 0696 00067000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0697 00068000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0698 00069000 L GPR15P,ATCLCPTR 0698 00070000 * END; /*LISATCVT*/ 0699 00071000 * GPR02P=GPR15P->ATCBPDA | '80000000'X; 0700 00072000 L GPR02P,ATCBPDA(,GPR15P) 0700 00073000 O GPR02P,@CF02178 0700 00074000 * DCL 1 FMZA0015 FIXED(31) STATIC LOCAL, 0701 00075000 * 2 * FIXED(8) INIT(184), 0701 00076000 * 2 * PTR(24) INIT(0); 0701 00077000 * GPR03F=FMZA0015; 0702 00078000 L GPR03F,FMZA0015 0702 00079000 * GPR04F=12; 0703 00080000 LA GPR04F,12 0703 00081000 * GPR15P=GPR15P->ATCSMRQ; 0704 00082000 L GPR15P,ATCSMRQ(,GPR15P) 0704 00083000 * DCL FMZL0015 BASED(GPR15P) LABEL VALUERANGE(*); 0705 00084000 * CALL FMZL0015; 0706 00085000 BALR @14,@15 0706 00086000 * RFY (GPR13P) RSTD; 0707 00087000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0708 00088000 * 0708 00089000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00090000 * RFY (GPR13P) UNRSTD; 0709 00091000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 0710 00092000 * END ; 0711 00093000 * /********* END OF REQSTORE EXPANSION **********/ 0712 00094000 * /*@X50BHXK*/ 0712 00095000 * RFY CRC RSTD; /*@DM09767*/ 00096000 * IF CRC=8 THEN /* STORAGE GOTTEN? @DM09767*/ 00097000 * 0713 00098000 C CRC,@CF00072 0713 00099000 BNE @RF00713 0713 00100000 */* TPWAIT */ 0714 00101000 * DO; /* BEGIN TPWAIT GENERATION*/ 0714 00102000 * RFY (GPR01P,GPR14P,GPR15P) RSTD; 0715 00103000 * RFY (GPR00P) RSTD; 0716 00104000 * GEN (STM GPR00P,GPR15P,RPHWORK(GPR01P)) 0717 00105000 * REFS(GPR00P,GPR01P,GPR15P) SETS(RPHWORK); 0717 00106000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00107000 * RFY (GPR00P) UNRSTD; 0718 00108000 * GPR15P=ADDR(LHAA0034); 0719 00109000 LA GPR15P,LHAA0034 0719 00110000 * GPR14P=0; 0720 00111000 SLR GPR14P,GPR14P 0720 00112000 * GPR15P=GPR15P & '00FFFFFF'X; 0721 00113000 N GPR15P,@CF05190 0721 00114000 * GPR15P=GPR15P | RPHWT1; 0722 00115000 O GPR15P,@CF02110 0722 00116000 * CS (GPR14P,GPR15P,GPR01P->RPHRESMA); 0723 00117000 CS GPR14P,@15,RPHRESMA(GPR01P) 0723 00118000 * BC (7,LHAB0034); 0724 00119000 * 0724 00120000 BC 7,LHAB0034 0724 00121000 */* TPEXIT NONE */ 0725 00122000 * DO; 0725 00123000 * RESPECIFY GPR15P RSTD; 0726 00124000 * 0726 00125000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 0727 00126000 */* END OF ATBUILD */ 0727 00127000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0727 00128000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0728 00129000 L GPR15P,ATCLCPTR 0728 00130000 * END; /*LISATCVT*/ 0729 00131000 * RESPECIFY GPR00F RSTD; 0730 00132000 * GPR00F=0; /*SET PARAMETER REGISTER TO 0*/ 0731 00133000 SLR GPR00F,GPR00F 0731 00134000 * GPR15P=GPR15P->ATCAP31; 0732 00135000 L GPR15P,ATCAP31(,GPR15P) 0732 00136000 * DCL FMZL0039 BASED(GPR15P) LABEL VALUERANGE(*); 00137000 * CALL FMZL0039; 0734 00138000 BALR @14,@15 0734 00139000 * RESPECIFY (GPR00F,GPR15P) UNRSTD; 0735 00140000 * END; /***** END OF TPEXIT *****/ 0736 00141000 *LHAB0034:; GPR01P->RPHRESMA = 0; 0737 00142000 LHAB0034 DS 0H 0738 00143000 SLR @00,@00 0738 00144000 ST @00,RPHRESMA(,GPR01P) 0738 00145000 * RFY (GPR00P) RSTD; 0739 00146000 *LHAA0034:; GEN (LM GPR00P,GPR15P,RPHWORK(GPR01P)) 0740 00147000 LHAA0034 DS 0H 0741 00148000 * REFS(RPHWORK,GPR01P) SETS(GPR00P,GPR15P); 0741 00149000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00150000 * RFY (GPR00P,GPR01P,GPR14P,GPR15P) UNRSTD; 0742 00151000 * END; /*****END OF TPWAIT *****/ /* NO, WAIT 00152000 *FOR STORAGE. @DM09767*/ 0743 00153000 * ELSE; /* YES. @DM09767*/ 00154000 @RF00713 DS 0H 0745 00155000 * RFY CRC UNRSTD; /*@DM09767*/ 00156000 * RFY TIEPTR RSTD; /*@DM09767*/ 00157000 * TIEPTR=RPHSRPRM; /* GET NEW TIE ADDRESS @DM09767*/ 00158000 L TIEPTR,RPHSRPRM(,RPHPTR) 0747 00159000 * TIETYPE=TITYPE; /* INDICATE CB TYPE @DM09767*/ 00160000 MVI TIETYPE(TIEPTR),X'18' 0748 00161000 * TIELNGTH=LENGTH(ISTTIE);/* SET UP CONTROL BLOCK 0749 00162000 * LENGTH @DM09767*/ 00163000 MVI TIELNGTH(TIEPTR),X'10' 0749 00164000 * TIEREQ=TIEREQ1; /* INDICATE VARY PASSED FSB ADDRESS 00165000 * IN CONTROL BLOCK @DM09767*/ 00166000 MVI TIEREQ(TIEPTR),X'01' 0750 00167000 * TIEPTR1=ADDR(ISTFSB);/* PUT FSB ADDRESS IN TIE 0751 00168000 * @DM09767*/ 00169000 * 0751 00170000 ST FSBPTR,TIEPTR1(,TIEPTR) 0751 00171000 */* TPQUE (ADDR(ISTTIE),ADDR(ATCTCIPB)->DYPPAB) NORM */ 0752 00172000 * 0752 00173000 * DO; 0752 00174000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) RSTD; 0753 00175000 * GEN REFS(GPR01P) SETS(RPHWORK) 0754 00176000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0754 00177000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00178000 * GPR00P=0; 0755 00179000 SLR GPR00P,GPR00P 0755 00180000 * GPR15P=ADDR(ADDR(ATCTCIPB)->DYPPAB); /*HOLD PAB PTR*/ 00181000 LA GPR15P,DYPPAB+624(,ATCVTPTR) 0756 00182000 * GPR04P=ADDR(ISTTIE); /*WORK ELE PTR*/ 0757 00183000 LR GPR04P,TIEPTR 0757 00184000 * GPR05P=GPR15P; /*PASS PAB PTR*/ 0758 00185000 LR GPR05P,GPR15P 0758 00186000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0759 00187000 L @08,ATCLCPTR 0759 00188000 L @15,ATCAP37(,@08) 0759 00189000 BALR @14,@15 0759 00190000 * GEN(NOPR 0)NOSETS NOREFS; 0760 00191000 NOPR 0 00192000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) UNRSTD; 0761 00193000 * END; /**** END OF TPQUE GENERATION ****/ 0762 00194000 * /* QUE TIE TOLTEP CLIP @DM09767*/ 00195000 * RFY TIEPTR UNRSTD; /*@DM09767*/ 00196000 * END; /*@DM09767*/ 00197000 * ELSE DO; /* YES, DO THE FOLLOWING:@XL03HHG*/ 00198000 B @RC00686 0765 00199000 @RF00686 DS 0H 0766 00200000 * IF LCPTYPE=DCLTYPE THEN /* CONTROL LAYER TYPE LCPB? YES, */ 00201000 * 0766 00202000 L @15,FSBLCPB(,FSBPTR) 0766 00203000 CLI LCPTYPE(@15),X'12' 0766 00204000 BNE @RF00766 0766 00205000 */*TPESC*/ 0767 00206000 * DO; 0767 00207000 * 0767 00208000 */* ATBUILD (ISTDYPAB,ISTAVT,ISTATCVT) */ 0768 00209000 */* END OF ATBUILD */ 0768 00210000 * RFY GPR15P RSTD; 0768 00211000 * 0768 00212000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0769 00213000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0770 00214000 L GPR15P,ATCLCPTR 0770 00215000 * END; /*LISATCVT*/ 0771 00216000 * GPR15P=GPR15P->ATCESC01; 0772 00217000 L GPR15P,ATCESC01(,GPR15P) 0772 00218000 * DCL FMZL0055 BASED(GPR15P) LABEL VALUERANGE(*); 0773 00219000 * CALL FMZL0055; 0774 00220000 BALR @14,@15 0774 00221000 * RESPECIFY GPR15P UNRSTD; 0775 00222000 * END; /***** END OF TPESC *****/ /* TRANS 00223000 *ER CONTROL TO ISTESCNE */ 0776 00224000 * ELSE /* NO, */ 00225000 * DO; /* DO THE FOLLOWING: */ 00226000 B @RC00766 0777 00227000 @RF00766 DS 0H 0778 00228000 * ISTVRFSB=ADDR(ISTFSB);/* SET UP FSB ADDRESS @XL03HHG*/ 00229000 LA @15,72 0778 00230000 L @14,FSBLCPB(,FSBPTR) 0778 00231000 LR @09,@14 0778 00232000 ALR @09,@15 0778 00233000 ST FSBPTR,ISTVRFSB(,@09) 0778 00234000 * RFY CWORD BASED(ADDR(ISTVRRPH));/* SET UP MASK @DM09875*/ 00235000 * IF CBIT0^=CON THEN /* RPH ADDR IN ISTVRRPH? @XL03HHG*/ 00236000 * 0780 00237000 ALR @14,@15 0780 00238000 TM CBIT0(@14),B'10000000' 0780 00239000 BO @RF00780 0780 00240000 */*TPPOST (ISTVRRPH) */ 0781 00241000 * DO; 0781 00242000 * /*DECLARE AND RESTRICT REGS*/ 00243000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F, 0782 00244000 * GPR06F,GPR14F,GPR15F) RSTD; 0782 00245000 * /*0,1,4,5,6,14, AND 15 */ 00246000 * 0783 00247000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH) */ 0783 00248000 */* END OF ATBUILD */GEN REFS(GPR01P,GPR02F,GPR06F)SETS(RPHWORK); 0783 00249000 STM GPR02F,GPR06F,RPHWORK(GPR01P) 00250000 * GPR04F=ISTVRRPH; /*LOAD RPH PNTR INTO REG 4*/ 00251000 LA @07,72 0784 00252000 AL @07,FSBLCPB(,FSBPTR) 0784 00253000 L GPR04F,ISTVRRPH(,@07) 0784 00254000 * RFY GPR03F RSTD; 0785 00255000 * GPR03F=0; 0786 00256000 * 0786 00257000 SLR @07,@07 0786 00258000 LR GPR03F,@07 0786 00259000 * DO; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKR 00260000 *G(GPR05F)*/ RESPECIFY (GPR02F) RESTRICTED; 0787 00261000 * GPR05F = GPR02F; /*SAVE REGISTER 2*/ 0789 00262000 LR GPR05F,GPR02F 0789 00263000 * IPK; /*SAVE CURRENT PSW KEY*/ 0790 00264000 IPK 0790 00265000 * GPR06F = GPR02F; 0791 00266000 LR GPR06F,GPR02F 0791 00267000 * GPR02F = GPR05F; /*RESTORE REGISTER 2*/ 0792 00268000 LR GPR02F,GPR05F 0792 00269000 * SPKA (GPR03F); /*SET PSW KEY*/ 0793 00270000 SPKA 0(GPR03F) 0793 00271000 * RESPECIFY (GPR02F) UNRESTRICTED; 0794 00272000 * END; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORK 00273000 *EG(GPR05F)*/ RFY GPR03F UNRSTD; 0795 00274000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF; 0797 00275000 L GPR05P,RPHMAJCB-1(,GPR04P) 0797 00276000 LA GPR05P,0(,GPR05P) 0797 00277000 SLR @09,@09 0797 00278000 IC @09,RPHPABOF(,GPR04P) 0797 00279000 ALR GPR05P,@09 0797 00280000 * /*LOAD REG 5 WITH ADDR OF*/ 00281000 * /*MAJOR CONTROL BLOCK PLUS*/ 00282000 * /*OFFSET OF PAB IN BLOCK */ 00283000 * GPR14P=0; /*LOAD 0 INTO REG 14 */ 00284000 LR GPR14P,@07 0798 00285000 * GPR15P='FFFFFFFF'X;/*LOAD REG 15 WITH DUMMY */ 00286000 SLR GPR15P,GPR15P 0799 00287000 BCTR GPR15P,0 0799 00288000 * /*ADDRESS */ 00289000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0800 00290000 CS GPR14P,@15,RPHRESMA(GPR04P) 0800 00291000 * /*COMPARE RESUME ADDRESS */ 00292000 * /*WITH 0 AND,IF EQUAL, PUT*/ 00293000 * /*DUMMY ADDRESS IN CONTROL*/ 00294000 * /*BLOCK RESUME ADDRESS */ 00295000 * BC (8,FMZT0063); /*IF EQUAL, BYPASS REMAINDER*/ 00296000 BC 8,FMZT0063 0801 00297000 * /*OF EXPANSION */ 00298000 *FMZL0063: IF GPR04P->RPHWT='1'B THEN 0802 00299000 FMZL0063 TM RPHWT(GPR04P),B'00001000' 0802 00300000 BNO @RF00802 0802 00301000 * /*WT/EXT CONTENTION FLAG ON */ 00302000 * DO; /*IN RPH */ 00303000 * GPR14P=GPR04P->RPHRESMA|RPHWT1; 0804 00304000 L GPR14P,RPHRESMA(,GPR04P) 0804 00305000 O GPR14P,@CF02110 0804 00306000 * /*LOAD REG 14 WITH FLAG FIELD*/ 00307000 * /*AND MAKE CERTAIN WT/EXT */ 00308000 * /*CONTENTION FLAG STILL ON */ 00309000 * GPR15P=GPR14P|RPHPT1; 0805 00310000 LR GPR15P,GPR14P 0805 00311000 O GPR15P,@CF02114 0805 00312000 * /*LOAD REG 15 WITH FLAG FIELD*/ 00313000 * /*AND TURN POST FLAG ON */ 00314000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0806 00315000 CS GPR14P,@15,RPHRESMA(GPR04P) 0806 00316000 * /*COMPARE REG 14 WITH FLAG */ 00317000 * /*FIELD--IF WT/EXT BIT ON, */ 00318000 * /*TURN ON POST FLAG */ 00319000 * BC (4,FMZL0063); /*IF WT/EXT BIT WAS OFF, LOOP*/ 00320000 BC 4,FMZL0063 0807 00321000 * /*TO TEST CONTENTION FLAG */ 00322000 * BC (8,FMZT0063); /*IF WT/EXT BIT WAS OFF, */ 00323000 BC 8,FMZT0063 0808 00324000 * /*BRANCH TO BYPASS CODE GEN */ 00325000 * END; /*IF POST FLAG IS ON, FALL*/ 00326000 * /*THRU BOTTOM OF LOOP */ 00327000 * ELSE; /*WT/EXT CONTENTION FLAG OFF*/ 00328000 @RF00802 DS 0H 0811 00329000 * IF GPR04P->RPHTSKID=GPR01P->RPHTSKID 0811 00330000 * THEN DO; 0811 00331000 CLC RPHTSKID(4,GPR04P),RPHTSKID(GPR01P) 0811 00332000 BNE @RF00811 0811 00333000 * GPR05P->PABCHNGP=GPR01P->RPHPABQP; 0813 00334000 MVC PABCHNGP(3,GPR05P),RPHPABQP(GPR01P) 0813 00335000 * /*PUT PAB QUEUE ADDRESS*/ 0814 00336000 * /*IN SECOND WORD OF PAB */ 00337000 * GPR01P->RPHPABQP=GPR05P; 0814 00338000 STCM GPR05P,7,RPHPABQP(GPR01P) 0814 00339000 * /*PUT PAB ADDRESS (IN MAJOR */ 00340000 * /*CONTROL BLOCK) IN PAB */ 0815 00341000 * /*QUEUE ADRESS IN RPH */ 00342000 * END; 0815 00343000 * ELSE DO; 0816 00344000 B @RC00811 0816 00345000 @RF00811 DS 0H 0817 00346000 * GPR00F=0; /*SET REG 0 TO INDICATE ENA*/ 00347000 * 0817 00348000 SLR GPR00F,GPR00F 0817 00349000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0818 00350000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0819 00351000 L GPR15P,ATCLCPTR 0819 00352000 * END; /*LISATCVT*/ /*PUT POINTER TO ATCVT IN */ 00353000 * /* IN REG 15 */ 00354000 * CALL GPR15P->ATCAP32; 0821 00355000 L @07,ATCAP32(,GPR15P) 0821 00356000 LR @15,@07 0821 00357000 BALR @14,@15 0821 00358000 * /* CALL ISTAPC32: TPSCHED */ 00359000 * END; 0822 00360000 *FMZT0063: 0823 00361000 * DO; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 00362000 @RC00811 DS 0H 0823 00363000 FMZT0063 DS 0H 0824 00364000 * GPR05F = GPR06F; /*GET KEY FORM SAVE LOCATION*/ 00365000 LR GPR05F,GPR06F 0824 00366000 * SPKA (GPR05F); /*SET PSW KEY*/ 0825 00367000 SPKA 0(GPR05F) 0825 00368000 * END; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 00369000 * GEN REFS(GPR04P, 0827 00370000 * RPHWORK) 0827 00371000 * SETS(GPR02F,GPR03F, 0827 00372000 * GPR04F,GPR05F,GPR06F); 0827 00373000 LM GPR02F,GPR06F,RPHWORK(GPR01P) 00374000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F,GPR06F, 00375000 * GPR14F,GPR15F) UNRSTD; 0828 00376000 * /*UNRESTRICT REGS 0,1, */ 00377000 * /*4,5,14, AND 15 */ 00378000 * END; /****END OF TPPOST GENERATION****/ /* YES, POS 00379000 * RPH @XL03HHG*/ 0829 00380000 * ELSE /* NO, @XL03HHG*/ 00381000 * DO; /* DO THE FOLLOWING: @XL03HHG*/ 00382000 B @RC00780 0830 00383000 @RF00780 DS 0H 0831 00384000 * RFY ISTNCSPL BASED(ISTVRRPH); /* SET BASE FOR 0831 00385000 * ISTNCSPL @XL03HHG*/ 00386000 * RFY CNCSWKA BASED(NCSPLWKA); /* SET BASE FOR NCSPL 00387000 * WORK AREA @XL03HHG*/ 00388000 * CWKA=(CWKA+SEVEN)&MINUS8; /* SET NEXT AVAILABLE 0833 00389000 * ON DWORD BNDY @XM8657K*/ 00390000 LA @15,72 0833 00391000 L @14,FSBLCPB(,FSBPTR) 0833 00392000 LR @09,@14 0833 00393000 ALR @09,@15 0833 00394000 L @09,ISTVRRPH(,@09) 0833 00395000 L @09,NCSPLWKA(,@09) 0833 00396000 LA @00,7 0833 00397000 AL @00,CWKA(,@09) 0833 00398000 N @00,@CF05179 0833 00399000 ST @00,CWKA(,@09) 0833 00400000 * CWKA->CRCR4MAP=FSBLCPB->CRCR4MAP; /* COPY LCPB, 0834 00401000 * LCCW, VRLCP @XM8657K*/ 00402000 LR @09,@00 0834 00403000 MVC CRCR4MAP(80,@09),CRCR4MAP(@14) 0834 00404000 * FSBLCPB=CWKA; /* PT TO LCPB IN NCSPLWKA@XM8657K*/ 00405000 ST @00,FSBLCPB(,FSBPTR) 0835 00406000 * CWKA=CWKA+LENGTH(ISTLCPB)+2*LENGTH(ISTLCCW) 0836 00407000 * +LENGTH(ISTVRLCP); /* SET NEXT AVAIL @XM8657K*/ 00408000 ALR @00,@15 0836 00409000 LR @15,@00 0836 00410000 L @15,ISTVRRPH(,@15) 0836 00411000 L @15,NCSPLWKA(,@15) 0836 00412000 LA @00,80 0836 00413000 AL @00,CWKA(,@15) 0836 00414000 ST @00,CWKA(,@15) 0836 00415000 * IF FSBELI=CON /* @XM7951K*/ 00416000 * THEN /* @XM7951K*/ 00417000 * 0837 00418000 TM FSBELI(FSBPTR),B'10000000' 0837 00419000 BNO @RF00837 0837 00420000 */*TPPOST (NCSPLRPH) */ 0838 00421000 * DO; 0838 00422000 * /*DECLARE AND RESTRICT REGS*/ 00423000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F, 0839 00424000 * GPR06F,GPR14F,GPR15F) RSTD; 0839 00425000 * /*0,1,4,5,6,14, AND 15 */ 00426000 * 0840 00427000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH) */ 0840 00428000 */* END OF ATBUILD */GEN REFS(GPR01P,GPR02F,GPR06F)SETS(RPHWORK); 0840 00429000 STM GPR02F,GPR06F,RPHWORK(GPR01P) 00430000 * GPR04F=NCSPLRPH; /*LOAD RPH PNTR INTO REG 4*/ 00431000 LA @07,72 0841 00432000 AL @07,FSBLCPB(,FSBPTR) 0841 00433000 L @07,ISTVRRPH(,@07) 0841 00434000 L GPR04F,NCSPLRPH(,@07) 0841 00435000 * RFY GPR03F RSTD; 0842 00436000 * GPR03F=0; 0843 00437000 * 0843 00438000 SLR @07,@07 0843 00439000 LR GPR03F,@07 0843 00440000 * DO; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKR 00441000 *G(GPR05F)*/ RESPECIFY (GPR02F) RESTRICTED; 0844 00442000 * GPR05F = GPR02F; /*SAVE REGISTER 2*/ 0846 00443000 LR GPR05F,GPR02F 0846 00444000 * IPK; /*SAVE CURRENT PSW KEY*/ 0847 00445000 IPK 0847 00446000 * GPR06F = GPR02F; 0848 00447000 LR GPR06F,GPR02F 0848 00448000 * GPR02F = GPR05F; /*RESTORE REGISTER 2*/ 0849 00449000 LR GPR02F,GPR05F 0849 00450000 * SPKA (GPR03F); /*SET PSW KEY*/ 0850 00451000 SPKA 0(GPR03F) 0850 00452000 * RESPECIFY (GPR02F) UNRESTRICTED; 0851 00453000 * END; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORK 00454000 *EG(GPR05F)*/ RFY GPR03F UNRSTD; 0852 00455000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF; 0854 00456000 L GPR05P,RPHMAJCB-1(,GPR04P) 0854 00457000 LA GPR05P,0(,GPR05P) 0854 00458000 SLR @09,@09 0854 00459000 IC @09,RPHPABOF(,GPR04P) 0854 00460000 ALR GPR05P,@09 0854 00461000 * /*LOAD REG 5 WITH ADDR OF*/ 00462000 * /*MAJOR CONTROL BLOCK PLUS*/ 00463000 * /*OFFSET OF PAB IN BLOCK */ 00464000 * GPR14P=0; /*LOAD 0 INTO REG 14 */ 00465000 LR GPR14P,@07 0855 00466000 * GPR15P='FFFFFFFF'X;/*LOAD REG 15 WITH DUMMY */ 00467000 SLR GPR15P,GPR15P 0856 00468000 BCTR GPR15P,0 0856 00469000 * /*ADDRESS */ 00470000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0857 00471000 CS GPR14P,@15,RPHRESMA(GPR04P) 0857 00472000 * /*COMPARE RESUME ADDRESS */ 00473000 * /*WITH 0 AND,IF EQUAL, PUT*/ 00474000 * /*DUMMY ADDRESS IN CONTROL*/ 00475000 * /*BLOCK RESUME ADDRESS */ 00476000 * BC (8,FMZT0075); /*IF EQUAL, BYPASS REMAINDER*/ 00477000 BC 8,FMZT0075 0858 00478000 * /*OF EXPANSION */ 00479000 *FMZL0075: IF GPR04P->RPHWT='1'B THEN 0859 00480000 FMZL0075 TM RPHWT(GPR04P),B'00001000' 0859 00481000 BNO @RF00859 0859 00482000 * /*WT/EXT CONTENTION FLAG ON */ 00483000 * DO; /*IN RPH */ 00484000 * GPR14P=GPR04P->RPHRESMA|RPHWT1; 0861 00485000 L GPR14P,RPHRESMA(,GPR04P) 0861 00486000 O GPR14P,@CF02110 0861 00487000 * /*LOAD REG 14 WITH FLAG FIELD*/ 00488000 * /*AND MAKE CERTAIN WT/EXT */ 00489000 * /*CONTENTION FLAG STILL ON */ 00490000 * GPR15P=GPR14P|RPHPT1; 0862 00491000 LR GPR15P,GPR14P 0862 00492000 O GPR15P,@CF02114 0862 00493000 * /*LOAD REG 15 WITH FLAG FIELD*/ 00494000 * /*AND TURN POST FLAG ON */ 00495000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0863 00496000 CS GPR14P,@15,RPHRESMA(GPR04P) 0863 00497000 * /*COMPARE REG 14 WITH FLAG */ 00498000 * /*FIELD--IF WT/EXT BIT ON, */ 00499000 * /*TURN ON POST FLAG */ 00500000 * BC (4,FMZL0075); /*IF WT/EXT BIT WAS OFF, LOOP*/ 00501000 BC 4,FMZL0075 0864 00502000 * /*TO TEST CONTENTION FLAG */ 00503000 * BC (8,FMZT0075); /*IF WT/EXT BIT WAS OFF, */ 00504000 BC 8,FMZT0075 0865 00505000 * /*BRANCH TO BYPASS CODE GEN */ 00506000 * END; /*IF POST FLAG IS ON, FALL*/ 00507000 * /*THRU BOTTOM OF LOOP */ 00508000 * ELSE; /*WT/EXT CONTENTION FLAG OFF*/ 00509000 @RF00859 DS 0H 0868 00510000 * IF GPR04P->RPHTSKID=GPR01P->RPHTSKID 0868 00511000 * THEN DO; 0868 00512000 CLC RPHTSKID(4,GPR04P),RPHTSKID(GPR01P) 0868 00513000 BNE @RF00868 0868 00514000 * GPR05P->PABCHNGP=GPR01P->RPHPABQP; 0870 00515000 MVC PABCHNGP(3,GPR05P),RPHPABQP(GPR01P) 0870 00516000 * /*PUT PAB QUEUE ADDRESS*/ 0871 00517000 * /*IN SECOND WORD OF PAB */ 00518000 * GPR01P->RPHPABQP=GPR05P; 0871 00519000 STCM GPR05P,7,RPHPABQP(GPR01P) 0871 00520000 * /*PUT PAB ADDRESS (IN MAJOR */ 00521000 * /*CONTROL BLOCK) IN PAB */ 0872 00522000 * /*QUEUE ADRESS IN RPH */ 00523000 * END; 0872 00524000 * ELSE DO; 0873 00525000 B @RC00868 0873 00526000 @RF00868 DS 0H 0874 00527000 * GPR00F=0; /*SET REG 0 TO INDICATE ENA*/ 00528000 * 0874 00529000 SLR GPR00F,GPR00F 0874 00530000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0875 00531000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0876 00532000 L GPR15P,ATCLCPTR 0876 00533000 * END; /*LISATCVT*/ /*PUT POINTER TO ATCVT IN */ 00534000 * /* IN REG 15 */ 00535000 * CALL GPR15P->ATCAP32; 0878 00536000 L @07,ATCAP32(,GPR15P) 0878 00537000 LR @15,@07 0878 00538000 BALR @14,@15 0878 00539000 * /* CALL ISTAPC32: TPSCHED */ 00540000 * END; 0879 00541000 *FMZT0075: 0880 00542000 * DO; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 00543000 @RC00868 DS 0H 0880 00544000 FMZT0075 DS 0H 0881 00545000 * GPR05F = GPR06F; /*GET KEY FORM SAVE LOCATION*/ 00546000 LR GPR05F,GPR06F 0881 00547000 * SPKA (GPR05F); /*SET PSW KEY*/ 0882 00548000 SPKA 0(GPR05F) 0882 00549000 * END; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 00550000 * GEN REFS(GPR04P, 0884 00551000 * RPHWORK) 0884 00552000 * SETS(GPR02F,GPR03F, 0884 00553000 * GPR04F,GPR05F,GPR06F); 0884 00554000 LM GPR02F,GPR06F,RPHWORK(GPR01P) 00555000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F,GPR06F, 00556000 * GPR14F,GPR15F) UNRSTD; 0885 00557000 * /*UNRESTRICT REGS 0,1, */ 00558000 * /*4,5,14, AND 15 */ 00559000 * END; /****END OF TPPOST GENERATION****/ /* POST RPH 00560000 * @XM7951K*/ 0886 00561000 * ELSE; /* @XM7951K*/ 00562000 @RF00837 DS 0H 0888 00563000 * RFY TIEPTR RSTD; /*@XL03HHG*/ 00564000 * TIEPTR=CWKA; /* GET PTR TO WHERE TIE WILL BE 00565000 * BUILT @XL03HHG*/ 00566000 LA @15,72 0889 00567000 AL @15,FSBLCPB(,FSBPTR) 0889 00568000 L @15,ISTVRRPH(,@15) 0889 00569000 L @14,NCSPLWKA(,@15) 0889 00570000 L @08,CWKA(,@14) 0889 00571000 LR TIEPTR,@08 0889 00572000 * CWKA=CWKA+LENGTH(ISTTIE);/* UPDATE POINTER 0890 00573000 * FOR ISTTIE @DM09767*/ 00574000 AL @08,@CF00103 0890 00575000 ST @08,CWKA(,@14) 0890 00576000 * ISTTIE=ISTTIE&&ISTTIE;/* ZERO OUT TIE @XL03HHG*/ 00577000 XC ISTTIE(16,TIEPTR),ISTTIE(TIEPTR) 0891 00578000 * TIETYPE=TITYPE; /* INDICATE CB TYPE @XL03HHG*/ 00579000 MVI TIETYPE(TIEPTR),X'18' 0892 00580000 * TIELNGTH=LENGTH(ISTTIE);/* SET UP CONTROL BLOCK 0893 00581000 * LENGTH @XL03HHG*/ 00582000 MVI TIELNGTH(TIEPTR),X'10' 0893 00583000 * TIEREQ=TIEREQ1; /* INDICATE VARY PASSED FSB ADDRESS 00584000 * IN CONTROL BLOCK @XL03HHG*/ 00585000 MVI TIEREQ(TIEPTR),X'01' 0894 00586000 * TIEPTR1=ADDR(ISTFSB);/* PUT FSB ADDRESS IN TIE 0895 00587000 * @XL03HHG*/ 00588000 ST FSBPTR,TIEPTR1(,TIEPTR) 0895 00589000 * TIEPTR2=ADDR(ISTNCSPL);/* PUT NCSPL ADDRESS IN 0896 00590000 * TIE @XL03HHG*/ 00591000 * 0896 00592000 ST @15,TIEPTR2(,TIEPTR) 0896 00593000 */* TPQUE (ADDR(ISTTIE),ADDR(ATCTCIPB)->DYPPAB) NORM */ 0897 00594000 * 0897 00595000 * DO; 0897 00596000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) RSTD; 0898 00597000 * GEN REFS(GPR01P) SETS(RPHWORK) 0899 00598000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0899 00599000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00600000 * GPR00P=0; 0900 00601000 SLR GPR00P,GPR00P 0900 00602000 * GPR15P=ADDR(ADDR(ATCTCIPB)->DYPPAB); /*HOLD PAB PTR* 00603000 LA GPR15P,DYPPAB+624(,ATCVTPTR) 0901 00604000 * GPR04P=ADDR(ISTTIE); /*WORK ELE PTR*/ 0902 00605000 LR GPR04P,TIEPTR 0902 00606000 * GPR05P=GPR15P; /*PASS PAB PTR*/ 0903 00607000 LR GPR05P,GPR15P 0903 00608000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0904 00609000 L @08,ATCLCPTR 0904 00610000 L @15,ATCAP37(,@08) 0904 00611000 BALR @14,@15 0904 00612000 * GEN(NOPR 0)NOSETS NOREFS; 0905 00613000 NOPR 0 00614000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) UNRSTD; 00615000 * END; /**** END OF TPQUE GENERATION ****/ 0907 00616000 * /* QUE TIE TOLTEP CLIP @DM09858*/ 00617000 * RFY TIEPTR UNRSTD; /*@XL03HHG*/ 00618000 * END; /*@XL03HHG*/ 00619000 * END; /*@XL03HHG*/ 00620000 @RC00780 DS 0H 0911 00621000 * END; /*@XL03HHG*/ 00622000 * 0911 00623000 @RC00766 DS 0H 0912 00624000 */* TPEXIT NORM */ 0912 00625000 * DO; 0912 00626000 @RC00686 DS 0H 0913 00627000 * RESPECIFY GPR15P RSTD; 0913 00628000 * 0913 00629000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 0914 00630000 */* END OF ATBUILD */ 0914 00631000 * 0914 00632000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0914 00633000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0915 00634000 L GPR15P,ATCLCPTR 0915 00635000 * END; /*LISATCVT*/ 0916 00636000 * RESPECIFY GPR00F RSTD; 0917 00637000 * GPR00F=4; /* SET PARAMETER REGISTER TO 4 */ 0918 00638000 LA GPR00F,4 0918 00639000 * GPR15P=GPR15P->ATCAP31; 0919 00640000 L GPR15P,ATCAP31(,GPR15P) 0919 00641000 * DCL FMZL0093 BASED(GPR15P) LABEL VALUERANGE(*); 0920 00642000 * CALL FMZL0093; 0921 00643000 BALR @14,@15 0921 00644000 * RESPECIFY (GPR00F,GPR15P) UNRSTD; 0922 00645000 * END; /***** END OF TPEXIT *****/ /* EXIT 0923 00646000 * @XL03HHG*/ 0923 00647000 * /*SEGMENT(DOREQ)START*/DO;GOTO DOREQ@;DOREQ:END; 0924 00648000 B DOREQ@ 0925 00649000 DOREQ DS 0H 0927 00650000 * /*@XL03HHG*/ 0927 00651000 */********************************************************************/ 00652000 */* */ 00653000 */* PROCESS 3270 REQUEST ROUTINE */ 00654000 */* */ 00655000 */********************************************************************/ 00656000 * 0927 00657000 * 0927 00658000 * RFY RDTPTR RSTD; /*@XL03HHG*/ 00659000 * RDTPTR=RPHMAJCB->FMCDNCBA->NCBRDTE;/*GET RDT ADDR @XL03HHG*/ 00660000 L @15,RPHMAJCB-1(,RPHPTR) 0928 00661000 LA @15,0(,@15) 0928 00662000 L @15,FMCDNCBA(,@15) 0928 00663000 L RDTPTR,NCBRDTE(,@15) 0928 00664000 * /*SEGMENT(GTNCSPL)REQUEST*/DO;GOTO GTNCSPL;GTNCSPL#:END;/* G 00665000 *T A NCSPL @XL03HHG*/ 0929 00666000 B GTNCSPL 0930 00667000 GTNCSPL# DS 0H 0932 00668000 * RFY NCSPLPTR RSTD; /*@XL03HHG*/ 00669000 * RFY ISTNCSPL BASED(NCSPLPTR); /*@XL03HHG*/ 00670000 * RFY CRC RSTD; /*@XL03HHG*/ 00671000 * IF CRC=0 THEN /* NCSPL GOTTEN? YES, @XL03HHG*/ 00672000 LTR CRC,CRC 0935 00673000 BNZ @RF00935 0935 00674000 * DO; /* DO THE FOLLOWING: @XL03HHG*/ 00675000 * NCSPLVCD=NCSPLVC3; /* ERP VERB @XL03HHG*/ 00676000 MVI NCSPLVCD(NCSPLPTR),X'03' 0937 00677000 * NCSPLRPT=ADDR(ISTRPRE);/* SET UP RDT ADDRESS @XL03HHG*/ 00678000 ST RDTPTR,NCSPLRPT(,NCSPLPTR) 0938 00679000 * NCSPLVBF=NCSEDACT; /* ERP DEACTIVATE @XL03HHG*/ 00680000 MVC NCSPLVBF(2,NCSPLPTR),@CB03496 0939 00681000 * RDTPTR=RDTPTR+RPRELEN;/* GET TERMINAL RDT PTR @XL03HHG*/ 00682000 AH RDTPTR,RPRELEN(,RDTPTR) 0940 00683000 * NCSPLRID=RPRNAME; /* TERMINAL NAME @XL03HHG*/ 00684000 MVC NCSPLRID(8,NCSPLPTR),RPRNAME(RDTPTR) 0941 00685000 * RDTPTR=RDTPTR-RPRPELEN;/* LOCAL HEADER RDT PTR @XL03HHG*/ 00686000 * 0942 00687000 SH RDTPTR,RPRPELEN(,RDTPTR) 0942 00688000 */* TPQUE (ADDR(ISTNCSPL),RPRNSNEA->RDTEPAB->DYPPAB) NORM */ 0943 00689000 * 0943 00690000 * DO; 0943 00691000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) RSTD; 0944 00692000 * GEN REFS(GPR01P) SETS(RPHWORK) 0945 00693000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0945 00694000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00695000 * GPR00P=0; 0946 00696000 SLR GPR00P,GPR00P 0946 00697000 * GPR15P=ADDR(RPRNSNEA->RDTEPAB->DYPPAB); /*HOLD PAB PTR*/ 00698000 L @14,RPRNSNEA(,RDTPTR) 0947 00699000 L GPR15P,RDTEPAB(,@14) 0947 00700000 LA GPR15P,DYPPAB(,GPR15P) 0947 00701000 * GPR04P=ADDR(ISTNCSPL); /*WORK ELE PTR*/ 0948 00702000 LR GPR04P,NCSPLPTR 0948 00703000 * GPR05P=GPR15P; /*PASS PAB PTR*/ 0949 00704000 LR GPR05P,GPR15P 0949 00705000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0950 00706000 L @14,ATCLCPTR 0950 00707000 L @15,ATCAP37(,@14) 0950 00708000 BALR @14,@15 0950 00709000 * GEN(NOPR 0)NOSETS NOREFS; 0951 00710000 NOPR 0 00711000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) UNRSTD; 0952 00712000 * END; /**** END OF TPQUE GENERATION ****/ /* QUE 00713000 *NCSPL ON RDT PAB @DM09858*/ 0953 00714000 * END; /*@XL03HHG*/ 00715000 * ELSE /* NO, @XL03HHG*/ 00716000 * DO; /* DO THE FOLLOWING: @XL03HHG*/ 00717000 B @RC00935 0955 00718000 @RF00935 DS 0H 0956 00719000 * RFY CREG0 RSTD; /*@XL03HHG*/ 00720000 * RDTPTR=RDTPTR+RPRELEN;/* GET TERMINAL RDT PTR @XL03HHG*/ 00721000 AH RDTPTR,RPRELEN(,RDTPTR) 0957 00722000 * CREG0=0; /* CLEAR FOR TPMSG @XL03HHG*/ 00723000 SLR CREG0,CREG0 0958 00724000 * RFY WKPTR RSTD; /* @ZA33241*/ 00725000 * WKPTR = GPR01P; /* SAVE RPH POINTER @ZA33241*/ 00726000 * 0960 00727000 LR WKPTR,GPR01P 0960 00728000 */*TPMSG MSGID('619I')MSG((ADDR(RPRNAME)))*/ 0961 00729000 * 0961 00730000 * DO; 0961 00731000 * DCL REG1109 REG(1) PTR; 0962 00732000 * RFY (REG1109) RSTD; 0963 00733000 * 0963 00734000 * RFY (EMCR13) RSTD; 0964 00735000 * DCL 1 * BASED(REG1109), 0965 00736000 * 2 CMZID109 PTR(31), 0965 00737000 * 2 *, 0965 00738000 * 3 CMZRL109 PTR(8), 0965 00739000 * 3 CMZRA109 PTR(24) BDY(BYTE), 0965 00740000 * 2 CMZEA109 PTR(31), 0965 00741000 * 2 CMZVP109 PTR(31); 0965 00742000 * DCL CMZPL109(4) FIXED INIT((4)0); 0966 00743000 * REG1109 = ADDR(CMZPL109); 0967 00744000 LA REG1109,CMZPL109 0967 00745000 * DCL CMZAA109 CHAR(4) INIT('619I'); 0968 00746000 * CMZID109 = ADDR(CMZAA109); 0969 00747000 LA @14,CMZAA109 0969 00748000 ST @14,CMZID109(,REG1109) 0969 00749000 * CMZVP109 = ADDR(RPRNAME); 0970 00750000 ST RDTPTR,CMZVP109(,REG1109) 0970 00751000 * DCL CMZSA109 (18) PTR(31) BASED(EMCR13); 0971 00752000 * DCL CMZZO109 (1) FIXED(31) INIT(0); 0972 00753000 * CMZSA109(5) = CMZZO109; 0973 00754000 * 0973 00755000 L @14,CMZZO109 0973 00756000 ST @14,CMZSA109+16(,EMCR13) 0973 00757000 * DCL REG15109 REG(15) PTR; 0974 00758000 * RFY REG15109 RSTD; 0975 00759000 * 0975 00760000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15109)) */ 0976 00761000 * REG15109 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0977 00762000 L REG15109,ATCLCPTR 0977 00763000 * END; /*LISATCVT*/ 0978 00764000 * DCL CMTA109 BASED(REG15109) ENTRY VALUERANGE(*); 0979 00765000 * REG15109 = REG15109->ATCMSGP; 0980 00766000 L REG15109,ATCMSGP(,REG15109) 0980 00767000 * CALL CMTA109; 0981 00768000 BALR @14,@15 0981 00769000 * RESPECIFY (REG1109,REG15109) UNRESTRICTED; 0982 00770000 * 0982 00771000 * RFY (EMCR13) UNRSTD; 0983 00772000 * END; /*@ZA33241*/ 0984 00773000 * /****************THIS LINE DELETED BY APAR...********** @ZA33241*/ 00774000 * /*OPTIONS((ADDR(NCSPLSID))) @ZA33241*/ 00775000 * /* ISSUE MESSAGE IST619I @XL03HHG*/ 00776000 * CREG0=0; /* CLEAR FOR TPMSG @XL03HHG*/ 00777000 * 0985 00778000 SLR CREG0,CREG0 0985 00779000 */*TPMSG MSGID('620I')MSG((ADDR(RPRNAME)))*/ 0986 00780000 * 0986 00781000 * DO; 0986 00782000 * DCL REG1117 REG(1) PTR; 0987 00783000 * RFY (REG1117) RSTD; 0988 00784000 * 0988 00785000 * RFY (EMCR13) RSTD; 0989 00786000 * DCL 1 * BASED(REG1117), 0990 00787000 * 2 CMZID117 PTR(31), 0990 00788000 * 2 *, 0990 00789000 * 3 CMZRL117 PTR(8), 0990 00790000 * 3 CMZRA117 PTR(24) BDY(BYTE), 0990 00791000 * 2 CMZEA117 PTR(31), 0990 00792000 * 2 CMZVP117 PTR(31); 0990 00793000 * DCL CMZPL117(4) FIXED INIT((4)0); 0991 00794000 * REG1117 = ADDR(CMZPL117); 0992 00795000 LA REG1117,CMZPL117 0992 00796000 * DCL CMZAA117 CHAR(4) INIT('620I'); 0993 00797000 * CMZID117 = ADDR(CMZAA117); 0994 00798000 LA @14,CMZAA117 0994 00799000 ST @14,CMZID117(,REG1117) 0994 00800000 * CMZVP117 = ADDR(RPRNAME); 0995 00801000 ST RDTPTR,CMZVP117(,REG1117) 0995 00802000 * DCL CMZSA117 (18) PTR(31) BASED(EMCR13); 0996 00803000 * DCL CMZZO117 (1) FIXED(31) INIT(0); 0997 00804000 * CMZSA117(5) = CMZZO117; 0998 00805000 * 0998 00806000 L @14,CMZZO117 0998 00807000 ST @14,CMZSA117+16(,EMCR13) 0998 00808000 * DCL REG15117 REG(15) PTR; 0999 00809000 * RFY REG15117 RSTD; 1000 00810000 * 1000 00811000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15117)) */ 1001 00812000 * REG15117 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 1002 00813000 L REG15117,ATCLCPTR 1002 00814000 * END; /*LISATCVT*/ 1003 00815000 * DCL CMTA117 BASED(REG15117) ENTRY VALUERANGE(*); 1004 00816000 * REG15117 = REG15117->ATCMSGP; 1005 00817000 L REG15117,ATCMSGP(,REG15117) 1005 00818000 * CALL CMTA117; 1006 00819000 BALR @14,@15 1006 00820000 * RESPECIFY (REG1117,REG15117) UNRESTRICTED; 1007 00821000 * 1007 00822000 * RFY (EMCR13) UNRSTD; 1008 00823000 * END; /*@ZA33241*/ 1009 00824000 * /****************THIS LINE DELETED BY APAR...********** @ZA33241*/ 00825000 * /*OPTIONS((ADDR(NCSPLSID))) @ZA33241*/ 00826000 * /* ISSUE MESSAGE IST620I @XL03HHG*/ 00827000 * GPR01P = WKPTR; /* RESTORE RPH POINTER @ZA33241*/ 00828000 LR GPR01P,WKPTR 1010 00829000 * RFY WKPTR UNRSTD; /* @ZA33241*/ 00830000 * RFY CREG0 UNRSTD; /*@XL03HHG*/ 00831000 * END; /*@XL03HHG*/ 00832000 * RFY RDTPTR UNRSTD; /*@XL03HHG*/ 00833000 @RC00935 DS 0H 1015 00834000 * FSBPTR=ADDR(FSBFDB); /* POINT TO FDB ADDR @XM11665*/ 00835000 LA @14,FSBFDB(,FSBPTR) 1015 00836000 LR FSBPTR,@14 1015 00837000 * RFY ISTFDB BASED(FSBPTR); /* ADDRESS FDB @XM11665*/ 00838000 * RFY WKPTR RSTD; /*@XM11665*/ 00839000 * WKPTR=FSBPTR-FDBOFSET; /* GET REAL BUFFER ADDRESS @XM11665*/ 00840000 LR WKPTR,FSBPTR 1018 00841000 SH WKPTR,FDBOFSET(,FSBPTR) 1018 00842000 * WKPTR->QPTR=FDBFDBA; /* SET UP CHAIN FOR RELSTORE @XM11665*/ 00843000 L @14,FDBFDBA(,FSBPTR) 1019 00844000 ST @14,QPTR(,WKPTR) 1019 00845000 * /*RELSTORE BUFADDR(WKPTR)SAVE(YES)CLEAR(NO)*/ 1020 00846000 * DO; 1020 00847000 */* ATBUILD (ISTATCVT,ISTRPH) */ 1021 00848000 */* END OF ATBUILD */ 1021 00849000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 1021 00850000 * RFY (GPR01P,GPR13P) RSTD; 1022 00851000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 1023 00852000 * 1023 00853000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00854000 * RFY GPR13P UNRSTD; 1024 00855000 * GPR04P=WKPTR; 1025 00856000 LR GPR04P,WKPTR 1025 00857000 * DCL 1 FMZA0125 FIXED(31) STATIC LOCAL, 1026 00858000 * 2 * FIXED(8) INIT(64), 1026 00859000 * 2 * PTR(24) INIT(0); 1026 00860000 * GPR03F = FMZA0125; 1027 00861000 * 1027 00862000 L GPR03F,FMZA0125 1027 00863000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 1028 00864000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 1029 00865000 L GPR15P,ATCLCPTR 1029 00866000 * END; /*LISATCVT*/ 1030 00867000 * GPR02P = GPR15P->ATCBPDA; 1031 00868000 L GPR02P,ATCBPDA(,GPR15P) 1031 00869000 * GPR15P=GPR15P->ATCSMRS; 1032 00870000 L GPR15P,ATCSMRS(,GPR15P) 1032 00871000 * DCL FMZL0125 BASED(GPR15P) LABEL VALUERANGE(*); 1033 00872000 * CALL FMZL0125; 1034 00873000 BALR @14,@15 1034 00874000 * RFY GPR13P RSTD; 1035 00875000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 1036 00876000 * 1036 00877000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00878000 * RFY (GPR01P,GPR13P) UNRSTD; 1037 00879000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 1038 00880000 * END ;/**********END OF RELSTORE EXPANSION**********/ /*@X 00881000 *11665*/ 1039 00882000 * RFY WKPTR UNRSTD; /*@XM11665*/ 00883000 * /*SEGMENT(DOREQ)FINISH*/DO;GOTO DOREQ#;DOREQ@:END; 1041 00884000 B DOREQ# 1042 00885000 DOREQ@ DS 0H 1044 00886000 * /*@XL03HHG*/ 1044 00887000 * /*SEGMENT(GTNCSPL)START*/DO;GOTO GTNCSPL@;GTNCSPL:END; 1044 00888000 B GTNCSPL@ 1045 00889000 GTNCSPL DS 0H 1047 00890000 * /*@XL03HHG*/ 1047 00891000 */********************************************************************/ 00892000 */* */ 00893000 */* GET A NCSPL ROUTINE */ 00894000 */* */ 00895000 */********************************************************************/ 00896000 * 1047 00897000 * 1047 00898000 * /*GETSTOR SIZE(NCSWASZ)TYPE(PAGEABLE)ADSPACE(COMMON)KEY(VTAM 00899000 *FETCHP(NO)CLEAR(NO)*/ 1047 00900000 * DO; 1047 00901000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 1048 00902000 */* END OF ATBUILD */ 1048 00903000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) RSTD; 1048 00904000 * RFY ISTRPH BASED(GPR01P); 1049 00905000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P, 1050 00906000 * GPR06P,GPR07P,GPR08P,GPR09P, 1050 00907000 * GPR10P,GPR11P,GPR12P,GPR13P) 1050 00908000 * SETS(RPHWORK); 1050 00909000 * 1050 00910000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 00911000 * GPR00F = NCSWASZ; /*SIZE IN REG0*/ 00912000 LA GPR00F,2032 1051 00913000 * DCL 1 CMZA0143 FIXED(31) STATIC LOCAL, 1052 00914000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 00915000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00916000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 00917000 * 2 * FIXED(8) INIT('00'X); /* REQUEST TYPE */ 00918000 * GPR03F = CMZA0143; 1053 00919000 * 1053 00920000 L GPR03F,CMZA0143 1053 00921000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR02P)) */ 1054 00922000 * GPR02P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 1055 00923000 L GPR02P,ATCLCPTR 1055 00924000 * END; /*LISATCVT*/ 1056 00925000 * CALL GPR02P -> ATCGTSTR; /*CALL ISTORFSR*/ 00926000 L @15,ATCGTSTR(,GPR02P) 1057 00927000 BALR @14,@15 1057 00928000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) UNRSTD; 1058 00929000 * END ; /*END OF GETSTOR*/ 00930000 * /*@DL31HMD*/ 1060 00931000 * /* GET WORK AREA SPACE @XL03HHG*/ 00932000 * IF CRC=0 THEN /* STORAGE GOTTEN? YES, @XL03HHG*/ 00933000 LTR CRC,CRC 1060 00934000 BNZ @RF01060 1060 00935000 * DO; /* DO THE FOLLOWING: @XL03HHG*/ 00936000 * RFY CREG7 RSTD; /*@XL03HHG*/ 00937000 * CREG7=RPHSRPRM; /* GET ADDR OF WORK AREA @XL03HHG*/ 00938000 L CREG7,RPHSRPRM(,GPR01P) 1063 00939000 * RFY CNCSWKA BASED(CREG7); /*@XL03HHG*/ 00940000 * CWKA=ADDR(CWKBUF); /* INDICATE WHERE WORK AREA 1065 00941000 * STARTS @XL03HHG*/ 00942000 LA @14,CWKBUF(,CREG7) 1065 00943000 ST @14,CWKA(,CREG7) 1065 00944000 * CWKSZE=NCSWASZ; /* INDICATE WORK AREA SIZE 1066 00945000 * @XL03HHG*/ 00946000 MVC CWKSZE(4,CREG7),@CF04868 1066 00947000 * /*REQSTORE CBID(NCSPL)CLEAR(YES)SAVE(YES)RPH(RPHPTR)*/ 00948000 * DO; 1067 00949000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 1068 00950000 */* END OF ATBUILD */ 1068 00951000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 1068 00952000 * RFY (GPR01P,GPR13P) RSTD; 1069 00953000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 1070 00954000 * 1070 00955000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00956000 * RFY (GPR01P,GPR13P) UNRSTD; 1071 00957000 * 1071 00958000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 1072 00959000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 1073 00960000 L GPR15P,ATCLCPTR 1073 00961000 * END; /*LISATCVT*/ 1074 00962000 * GPR02P=GPR15P->ATCBPDA | '80000000'X; 1075 00963000 L GPR02P,ATCBPDA(,GPR15P) 1075 00964000 O GPR02P,@CF02178 1075 00965000 * DCL 1 FMZA0161 FIXED(31) STATIC LOCAL, 1076 00966000 * 2 * FIXED(8) INIT(184), 1076 00967000 * 2 * PTR(24) INIT(0); 1076 00968000 * GPR03F=FMZA0161; 1077 00969000 L GPR03F,FMZA0161 1077 00970000 * GPR04F=34; 1078 00971000 LA GPR04F,34 1078 00972000 * GPR15P=GPR15P->ATCSMRQ; 1079 00973000 L GPR15P,ATCSMRQ(,GPR15P) 1079 00974000 * DCL FMZL0161 BASED(GPR15P) LABEL VALUERANGE(*); 1080 00975000 * CALL FMZL0161; 1081 00976000 BALR @14,@15 1081 00977000 * RFY (GPR13P) RSTD; 1082 00978000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 1083 00979000 * 1083 00980000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00981000 * RFY (GPR13P) UNRSTD; 1084 00982000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 1085 00983000 * END ; 1086 00984000 * /********* END OF REQSTORE EXPANSION **********/ 1087 00985000 * /* GET NCSPL SPACE @X50BHXK*/ 00986000 * IF CRC>8 THEN /* NO STORAGE? YES, @XL03HHG*/ 00987000 C CRC,@CF00072 1087 00988000 BNH @RF01087 1087 00989000 * DO; /* DO THE FOLLOWING: @XL03HHG*/ 00990000 * /*FREESTOR AREA(CREG7)SIZE(NCSWASZ)SAVE(YES)FETCHP(N 00991000 *)CLEAR(NO)*/ 1089 00992000 * DO; 1089 00993000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 1090 00994000 */* END OF ATBUILD */ 1090 00995000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) RSTD; 1090 00996000 * RFY ISTRPH BASED(GPR01P); 1091 00997000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P, 1092 00998000 * GPR06P,GPR07P,GPR08P,GPR09P, 1092 00999000 * GPR10P,GPR11P,GPR12P,GPR13P) 1092 01000000 * SETS(RPHWORK); 1092 01001000 * 1092 01002000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 01003000 * GPR00F = NCSWASZ; /*SIZE IN REG0*/ 01004000 LA GPR00F,2032 1093 01005000 * DCL 1 CMZA0180 FIXED(31) STATIC LOCAL, 1094 01006000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 01007000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 01008000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 01009000 * 2 * FIXED(8) INIT('01'X); /* REQUEST TYPE */ 01010000 * GPR03F = CMZA0180; 1095 01011000 L GPR03F,CMZA0180 1095 01012000 * RFY (GPR04P) RSTD; 1096 01013000 * GPR04P = CREG7; /*PUT FREEMAIN ADDR IN REG4*/ 01014000 * 1097 01015000 LR GPR04P,CREG7 1097 01016000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR02P)) */ 1098 01017000 * GPR02P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 1099 01018000 L GPR02P,ATCLCPTR 1099 01019000 * END; /*LISATCVT*/ 1100 01020000 * CALL GPR02P -> ATCGTSTR; /*CALL ISTORFSR*/ 01021000 L @15,ATCGTSTR(,GPR02P) 1101 01022000 BALR @14,@15 1101 01023000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P) UNRSTD; 01024000 * END ; /*END OF FREESTOR*/ 01025000 ** FREE WORK AREA @XL03HHG*/ 1103 01026000 * CRC=4; /* INDICATE FAILURE @XL03HHG*/ 01027000 LA CRC,4 1104 01028000 * END; /*@XL03HHG*/ 01029000 * ELSE /* STORAGE AVAILABLE @XL03HHG*/ 01030000 * DO; /* DO THE FOLLOWING: @XL03HHG*/ 01031000 B @RC01087 1106 01032000 @RF01087 DS 0H 1107 01033000 * IF CRC=8 THEN /* CAN REQUEST BE QUED? @XL03HHG*/ 01034000 * 1107 01035000 C CRC,@CF00072 1107 01036000 BNE @RF01107 1107 01037000 */* TPWAIT */ 1108 01038000 * DO; /* BEGIN TPWAIT GENERATION*/ 1108 01039000 * RFY (GPR01P,GPR14P,GPR15P) RSTD; 1109 01040000 * RFY (GPR00P) RSTD; 1110 01041000 * GEN (STM GPR00P,GPR15P,RPHWORK(GPR01P)) 1111 01042000 * REFS(GPR00P,GPR01P,GPR15P) SETS(RPHWORK); 1111 01043000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 01044000 * RFY (GPR00P) UNRSTD; 1112 01045000 * GPR15P=ADDR(LHAA0199); 1113 01046000 LA GPR15P,LHAA0199 1113 01047000 * GPR14P=0; 1114 01048000 SLR GPR14P,GPR14P 1114 01049000 * GPR15P=GPR15P & '00FFFFFF'X; 1115 01050000 N GPR15P,@CF05190 1115 01051000 * GPR15P=GPR15P | RPHWT1; 1116 01052000 O GPR15P,@CF02110 1116 01053000 * CS (GPR14P,GPR15P,GPR01P->RPHRESMA); 1117 01054000 CS GPR14P,@15,RPHRESMA(GPR01P) 1117 01055000 * BC (7,LHAB0199); 1118 01056000 * 1118 01057000 BC 7,LHAB0199 1118 01058000 */* TPEXIT NONE */ 1119 01059000 * DO; 1119 01060000 * RESPECIFY GPR15P RSTD; 1120 01061000 * 1120 01062000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 1121 01063000 */* END OF ATBUILD */ 1121 01064000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 1121 01065000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 1122 01066000 L GPR15P,ATCLCPTR 1122 01067000 * END; /*LISATCVT*/ 1123 01068000 * RESPECIFY GPR00F RSTD; 1124 01069000 * GPR00F=0; /*SET PARAMETER REGISTER TO 0*/ 01070000 SLR GPR00F,GPR00F 1125 01071000 * GPR15P=GPR15P->ATCAP31; 1126 01072000 L GPR15P,ATCAP31(,GPR15P) 1126 01073000 * DCL FMZL0204 BASED(GPR15P) LABEL VALUERANGE(*); 01074000 * CALL FMZL0204; 1128 01075000 BALR @14,@15 1128 01076000 * RESPECIFY (GPR00F,GPR15P) UNRSTD; 1129 01077000 * END; /***** END OF TPEXIT *****/ 1130 01078000 *LHAB0199:; GPR01P->RPHRESMA = 0; 1131 01079000 LHAB0199 DS 0H 1132 01080000 SLR @09,@09 1132 01081000 ST @09,RPHRESMA(,GPR01P) 1132 01082000 * RFY (GPR00P) RSTD; 1133 01083000 *LHAA0199:; GEN (LM GPR00P,GPR15P,RPHWORK(GPR01P)) 1134 01084000 LHAA0199 DS 0H 1135 01085000 * REFS(RPHWORK,GPR01P) SETS(GPR00P,GPR15P); 1135 01086000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 01087000 * RFY (GPR00P,GPR01P,GPR14P,GPR15P) UNRSTD; 1136 01088000 * END; /*****END OF TPWAIT *****/ /* WAIT FOR 01089000 *STORAGE @XL03HHG*/ 1137 01090000 * ELSE; /* STORAGE GOTTEN @XL03HHG*/ 01091000 @RF01107 DS 0H 1139 01092000 * CRC=0; /* INDICATE NCSPL GOTTEN @XL03HHG*/ 01093000 SLR CRC,CRC 1139 01094000 * NCSPLPTR=RPHSRPRM;/* SET PTR FOR NCSPL @XL03HHG*/ 01095000 L NCSPLPTR,RPHSRPRM(,GPR01P) 1140 01096000 * NCSPLWKA=ADDR(CNCSWKA);/* SET UP WORK 1141 01097000 * AREA PTR @XL03HHG*/ 01098000 ST CREG7,NCSPLWKA(,NCSPLPTR) 1141 01099000 * NCSPLCVT=ATCVTPTR;/* PUT ATCVT ADDR IN 1142 01100000 * NCSPL @XL03HHG*/ 01101000 ST ATCVTPTR,NCSPLCVT(,NCSPLPTR) 1142 01102000 * NCSPLREQ=CON; /* NCSPL FROM RESTORE @XL03HHG*/ 01103000 OI NCSPLREQ(NCSPLPTR),B'00010000' 1143 01104000 * END; /*@XL03HHG*/ 01105000 * RFY CREG7 UNRSTD; /*@XL03HHG*/ 01106000 @RC01087 DS 0H 1146 01107000 * END; /*@XL03HHG*/ 01108000 * ELSE 1147 01109000 * CRC=4; /* INDICATE NCSPL NOT GOTTEN 1147 01110000 * @XL03HHG*/ 01111000 B @RC01060 1147 01112000 @RF01060 LA CRC,4 1147 01113000 * RFY CRC UNRSTD; /*@XL03HHG*/ 01114000 @RC01060 DS 0H 1149 01115000 * RFY NCSPLPTR UNRSTD; /*@XL03HHG*/ 01116000 * /*SEGMENT(GTNCSPL)FINISH*/DO;GOTO GTNCSPL#;GTNCSPL@:END; 01117000 B GTNCSPL# 1151 01118000 GTNCSPL@ DS 0H 1153 01119000 * /*@XL03HHG*/ 1153 01120000 * 1153 01121000 */* TPEPILOG */ 1153 01122000 * GEN (PRINT OFF); 1153 01123000 * 1153 01124000 PRINT OFF 01125000 * DCL ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*); /*RESET ROUTINE* 01126000 * DCL ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*); /*TPQUE ROUTINE* 01127000 * 1155 01128000 * 1155 01129000 * DECLARE 1156 01130000 * EMCR0 PTR REG(0), 1156 01131000 * EMCR1 PTR REG(1), 1156 01132000 * EMCR2 PTR REG(2), 1156 01133000 * EMCR3 PTR REG(3), 1156 01134000 * EMCR4 PTR REG(4), 1156 01135000 * EMCR5 PTR REG(5), 1156 01136000 * EMCR6 PTR REG(6), 1156 01137000 * EMCR7 PTR REG(7), 1156 01138000 * EMCR8 PTR REG(8), 1156 01139000 * EMCR9 PTR REG(9), 1156 01140000 * EMCR10 PTR REG(10), 1156 01141000 * EMCR11 PTR REG(11), 1156 01142000 * EMCR12 PTR REG(12), 1156 01143000 * EMCR13 PTR REG(13), 1156 01144000 * EMCR14 PTR REG(14), 1156 01145000 * EMCR15 PTR REG(15); 1156 01146000 * GEN (PRINT ON); 1157 01147000 PRINT ON 01148000 */* END OF TPEPILOG */ 1158 01149000 * END ISTCRCR4 1158 01150000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01151000 */*%INCLUDE SYSLIB (IECDIOSB) * 01152000 */*%INCLUDE SYSLIB (IHASRB ) * 01153000 */*%INCLUDE SYSLIB (CVT ) * 01154000 */*%INCLUDE SYSLIB (IEZIOB ) * 01155000 *; 1158 01156000 @DATA DS 0H 01157000 @DATD DSECT 01158000 DS 0F 01159000 ISTCRCR4 CSECT 01160000 DS 0F 01161000 @CF00072 DC F'8' 01162000 @CF00103 DC F'16' 01163000 @CF04868 DC F'2032' 01164000 @CF05179 DC F'-8' 01165000 @CF02110 DC XL4'08000000' 01166000 @CF02114 DC XL4'04000000' 01167000 @CF02178 DC XL4'80000000' 01168000 @CF05190 DC XL4'00FFFFFF' 01169000 @CF00253 DC XL4'20' 01170000 @DATD DSECT 01171000 DS 0D 01172000 IOSBPTR DS A 01173000 SRBPTR DS A 01174000 CVTPTR DS A 01175000 IOBPRPTR DS A 01176000 IOBSTPTR DS A 01177000 LCPBPTR DS A 01178000 FMCBPTR DS A 01179000 LDNCBPTR DS A 01180000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01181000 @ENDDATD EQU * 01182000 ISTCRCR4 CSECT 01183000 DS 0F 01184000 @SIZDATD DC AL1(0) 01185000 DC AL3(@ENDDATD-@DATD) 01186000 DS 0D 01187000 FMZA0015 DS FL4 01188000 ORG FMZA0015 01189000 @NM00068 DC AL1(184) 01190000 @NM00069 DC AL3(0) 01191000 ORG FMZA0015+4 01192000 FMZA0125 DS FL4 01193000 ORG FMZA0125 01194000 @NM00074 DC AL1(64) 01195000 @NM00075 DC AL3(0) 01196000 ORG FMZA0125+4 01197000 CMZA0143 DS FL4 01198000 ORG CMZA0143 01199000 @NM00076 DC AL1(64) 01200000 @NM00077 DC AL1(96) 01201000 @NM00078 DC AL1(241) 01202000 @NM00079 DC XL1'00' 01203000 ORG CMZA0143+4 01204000 FMZA0161 DS FL4 01205000 ORG FMZA0161 01206000 @NM00080 DC AL1(184) 01207000 @NM00081 DC AL3(0) 01208000 ORG FMZA0161+4 01209000 CMZA0180 DS FL4 01210000 ORG CMZA0180 01211000 @NM00082 DC AL1(64) 01212000 @NM00083 DC AL1(96) 01213000 @NM00084 DC AL1(241) 01214000 @NM00085 DC XL1'01' 01215000 ORG CMZA0180+4 01216000 @CB03496 DC X'0004' 01217000 CMZAA109 DC CL4'619I' 01218000 CMZAA117 DC CL4'620I' 01219000 DS CL2 01220000 CMZPL109 DC 4F'0' 01221000 CMZZO109 DC F'0' 01222000 CMZPL117 DC 4F'0' 01223000 CMZZO117 DC F'0' 01224000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01225000 @01 EQU 01 01226000 @02 EQU 02 01227000 @03 EQU 03 01228000 @04 EQU 04 01229000 @05 EQU 05 01230000 @06 EQU 06 01231000 @07 EQU 07 01232000 @08 EQU 08 01233000 @09 EQU 09 01234000 @10 EQU 10 01235000 @11 EQU 11 01236000 @12 EQU 12 01237000 @13 EQU 13 01238000 @14 EQU 14 01239000 @15 EQU 15 01240000 RPHPTR EQU @01 01241000 FSBPTR EQU @10 01242000 GPR00F EQU @00 01243000 GPR00P EQU @00 01244000 GPR01F EQU @01 01245000 GPR01P EQU @01 01246000 GPR02F EQU @02 01247000 GPR02P EQU @02 01248000 GPR03F EQU @03 01249000 GPR03P EQU @03 01250000 GPR04F EQU @04 01251000 GPR04P EQU @04 01252000 GPR05F EQU @05 01253000 GPR05P EQU @05 01254000 GPR06F EQU @06 01255000 GPR06P EQU @06 01256000 GPR07P EQU @07 01257000 GPR08P EQU @08 01258000 GPR09P EQU @09 01259000 GPR10P EQU @10 01260000 GPR11P EQU @11 01261000 GPR12P EQU @12 01262000 GPR13P EQU @13 01263000 GPR14F EQU @14 01264000 GPR14P EQU @14 01265000 GPR15F EQU @15 01266000 GPR15P EQU @15 01267000 CREG0 EQU @00 01268000 CREG7 EQU @07 01269000 WKPTR EQU @08 01270000 NCSPLPTR EQU @08 01271000 RDTPTR EQU @09 01272000 TIEPTR EQU @09 01273000 ATCVTPTR EQU @11 01274000 CREG13 EQU @13 01275000 CRC EQU @15 01276000 REG1109 EQU @01 01277000 EMCR13 EQU @13 01278000 REG15109 EQU @15 01279000 REG1117 EQU @01 01280000 REG15117 EQU @15 01281000 EMCR0 EQU @00 01282000 EMCR1 EQU @01 01283000 EMCR10 EQU @10 01284000 EMCR11 EQU @11 01285000 EMCR12 EQU @12 01286000 EMCR14 EQU @14 01287000 EMCR15 EQU @15 01288000 EMCR2 EQU @02 01289000 EMCR3 EQU @03 01290000 EMCR4 EQU @04 01291000 EMCR5 EQU @05 01292000 EMCR6 EQU @06 01293000 EMCR7 EQU @07 01294000 EMCR8 EQU @08 01295000 EMCR9 EQU @09 01296000 GPR07F EQU @07 01297000 GPR08F EQU @08 01298000 GPR09F EQU @09 01299000 GPR10F EQU @10 01300000 GPR11F EQU @11 01301000 GPR12F EQU @12 01302000 GPR13F EQU @13 01303000 ATCLCPTR EQU 1032 01304000 IOSB EQU 0 01305000 IOSFLA EQU IOSB 01306000 IOSACHN EQU IOSFLA 01307000 IOSFLB EQU IOSB+1 01308000 IOSFLC EQU IOSB+2 01309000 IOSDVALT EQU IOSFLC 01310000 IOSPKEY EQU IOSB+12 01311000 IOSOPT EQU IOSB+14 01312000 IOSOPT2 EQU IOSB+15 01313000 @NM00002 EQU IOSB+20 01314000 IOSCSW EQU @NM00002+1 01315000 IOSTATUS EQU IOSCSW+3 01316000 IOSIPIB EQU IOSB+44 01317000 IOSPATH EQU IOSB+86 01318000 IOSCHN EQU IOSPATH 01319000 IOSCKEY EQU IOSB+89 01320000 IOSEEKA EQU IOSB+100 01321000 IOSCCHH EQU IOSEEKA+3 01322000 IOSSKHH EQU IOSCCHH+2 01323000 SRBSECT EQU 0 01324000 SRBFLC EQU SRBSECT+12 01325000 CVTMAP EQU 0 01326000 CVTDAR EQU CVTMAP+72 01327000 CVTFLGS1 EQU CVTDAR 01328000 CVTDCB EQU CVTMAP+116 01329000 CVTIERLC EQU CVTMAP+144 01330000 CVTOPTA EQU CVTMAP+182 01331000 CVTOPTB EQU CVTMAP+183 01332000 CVTGTF EQU CVTMAP+236 01333000 CVTGTFST EQU CVTGTF 01334000 CVTGTFS EQU CVTGTFST 01335000 CVTSTATE EQU CVTGTFST 01336000 CVTTMODE EQU CVTGTFST 01337000 CVTFORM EQU CVTGTFST 01338000 CVTAQAVT EQU CVTMAP+240 01339000 CVTTCMFG EQU CVTAQAVT 01340000 CVTVOLM2 EQU CVTMAP+244 01341000 CVTTATA EQU CVTVOLM2 01342000 CVTTSKS EQU CVTTATA 01343000 CVTVOLF2 EQU CVTTSKS 01344000 CVTTAT EQU CVTTATA+1 01345000 CVTATER EQU CVTMAP+248 01346000 CVTEXT1 EQU CVTMAP+252 01347000 CVTPURG EQU CVTMAP+260 01348000 CVTQMSG EQU CVTMAP+268 01349000 CVTDMSR EQU CVTMAP+272 01350000 CVTRSV37 EQU CVTDMSR 01351000 CVTDMSRF EQU CVTRSV37 01352000 CVTERPV EQU CVTMAP+316 01353000 CVTINTLA EQU CVTMAP+320 01354000 CVTAPF EQU CVTMAP+324 01355000 CVTEXT2 EQU CVTMAP+328 01356000 CVTHJES EQU CVTMAP+332 01357000 CVTPGSIA EQU CVTMAP+348 01358000 CVTA1F1 EQU CVTMAP+356 01359000 CVTSYSK EQU CVTMAP+357 01360000 CVTVOLM1 EQU CVTMAP+380 01361000 CVTVOLF1 EQU CVTVOLM1 01362000 CVTATMCT EQU CVTMAP+388 01363000 CVTXTNT1 EQU 0 01364000 CVTXTNT2 EQU 0 01365000 CVTDSSV EQU CVTXTNT2 01366000 CVTFLGBT EQU CVTXTNT2+5 01367000 CVTQID EQU CVTXTNT2+24 01368000 CVTSHS EQU CVTXTNT2+40 01369000 CVTRV400 EQU CVTXTNT2+52 01370000 CVTRV409 EQU CVTXTNT2+53 01371000 CVTATCVT EQU CVTXTNT2+64 01372000 CVTRV429 EQU CVTXTNT2+84 01373000 CVTRV438 EQU CVTXTNT2+85 01374000 CVTRV457 EQU CVTXTNT2+112 01375000 CVTRV466 EQU CVTXTNT2+113 01376000 CVTFIX EQU 0 01377000 CVTRELNO EQU CVTFIX+252 01378000 IOBPREFX EQU 0 01379000 IOBCFLG1 EQU IOBPREFX 01380000 IOBSTDRD EQU 0 01381000 IOBFLAG1 EQU IOBSTDRD 01382000 IOBCYCCK EQU IOBFLAG1 01383000 IOBRSTRT EQU IOBFLAG1 01384000 IOBFLAG2 EQU IOBSTDRD+1 01385000 IOBPURGE EQU IOBFLAG2 01386000 IOBRDHA0 EQU IOBFLAG2 01387000 IOBSENS0 EQU IOBSTDRD+2 01388000 IOBS0B7 EQU IOBSENS0 01389000 IOBSENS1 EQU IOBSTDRD+3 01390000 IOBECBPT EQU IOBSTDRD+4 01391000 IOBFLAG3 EQU IOBSTDRD+8 01392000 IOBFL3 EQU IOBFLAG3 01393000 IOBCNC EQU IOBFL3 01394000 IOBICL EQU IOBFL3 01395000 IOBCSW EQU IOBSTDRD+9 01396000 IOBIOCSW EQU IOBCSW 01397000 IOBSTBYT EQU IOBIOCSW+3 01398000 IOBUSTAT EQU IOBSTBYT 01399000 IOBCSTAT EQU IOBSTBYT+1 01400000 IOBSTART EQU IOBSTDRD+16 01401000 IOBDCBPT EQU IOBSTDRD+20 01402000 IOBFLAG4 EQU IOBDCBPT 01403000 IOBRESTR EQU IOBSTDRD+24 01404000 IOBINCAM EQU IOBSTDRD+28 01405000 IOBBTAMF EQU IOBINCAM 01406000 ISTLCCW EQU 0 01407000 LCCWOP EQU ISTLCCW 01408000 LCCWRWOP EQU LCCWOP 01409000 LCCWCTL EQU LCCWRWOP 01410000 LCCWFLAG EQU ISTLCCW+1 01411000 LCCWLSI EQU LCCWFLAG 01412000 ISTLCPB EQU 0 01413000 LCPTYPE EQU ISTLCPB 01414000 LCPREQTG EQU ISTLCPB+2 01415000 LCPFLAGS EQU LCPREQTG 01416000 LCPZF001 EQU LCPFLAGS 01417000 LCPZRT02 EQU LCPZF001 01418000 LCPZF002 EQU LCPFLAGS 01419000 LCPZRT03 EQU LCPZF002 01420000 LCPZF003 EQU LCPFLAGS 01421000 LCPZRT04 EQU LCPZF003 01422000 LCPZF004 EQU LCPFLAGS 01423000 LCPZRT05 EQU LCPZF004 01424000 LCPZRT06 EQU LCPFLAGS 01425000 LCPZRT07 EQU LCPFLAGS 01426000 LCPMNRCD EQU LCPREQTG+1 01427000 LCPZRT08 EQU LCPMNRCD 01428000 LCPZRT09 EQU LCPMNRCD 01429000 LCPCHAIN EQU ISTLCPB+4 01430000 LCPCHAI1 EQU LCPCHAIN 01431000 LCPRUCNT EQU ISTLCPB+8 01432000 LCPFLAG2 EQU ISTLCPB+9 01433000 LCPTLBPI EQU LCPFLAG2 01434000 LCPFID0 EQU LCPFLAG2 01435000 LCPSEQ EQU ISTLCPB+10 01436000 LCPCID EQU ISTLCPB+16 01437000 LCPFDBA EQU ISTLCPB+24 01438000 LCPFLG1 EQU ISTLCPB+37 01439000 LCPFLCCW EQU ISTLCPB+40 01440000 LCPLCCW EQU ISTLCPB+48 01441000 LCPPABA EQU LCPLCCW+4 01442000 LCPRPHA EQU LCPPABA 01443000 ISTZSAVE EQU 0 01444000 ZSAZSVBC EQU ISTZSAVE 01445000 ZSAZSVMS EQU ZSAZSVBC 01446000 ISTPFCRR EQU 0 01447000 PFCCRR EQU ISTPFCRR 01448000 PFCCRRID EQU PFCCRR 01449000 PFCCRRLN EQU PFCCRR+2 01450000 PFCHDR EQU ISTPFCRR+4 01451000 PFCCRRO EQU PFCHDR 01452000 PFCFRRO EQU PFCHDR+4 01453000 ISTCFCRR EQU 0 01454000 CFCAUDIT EQU ISTCFCRR 01455000 CFCNTRD EQU CFCAUDIT 01456000 CFCCRT EQU CFCAUDIT+1 01457000 ISTZCRR EQU 0 01458000 ZCRCRR EQU ISTZCRR 01459000 ZCRFLGS1 EQU ISTZCRR+12 01460000 ZCRFLGS2 EQU ISTZCRR+13 01461000 ZCRSWFLD EQU ISTZCRR+14 01462000 ZCRENDSH EQU ZCRSWFLD 01463000 ZCRNDLCP EQU ZCRSWFLD 01464000 ZCRRESET EQU ZCRSWFLD 01465000 ZCRFLGS3 EQU ISTZCRR+15 01466000 ZCRGENSW EQU ISTZCRR+16 01467000 ZCRPFLGS EQU ISTZCRR+17 01468000 ZCRIBPR EQU ISTZCRR+18 01469000 ZCRSCPSW EQU ISTZCRR+19 01470000 ZCRPARMS EQU ISTZCRR+24 01471000 ZCRFBPTR EQU ZCRPARMS 01472000 ZCRDFRDA EQU ZCRPARMS+10 01473000 ZCRPCOD1 EQU ZCRPARMS+12 01474000 ZCRPLSBF EQU ZCRPCOD1 01475000 ZCRPCOD2 EQU ZCRPARMS+13 01476000 ZCRSVRTN EQU ISTZCRR+56 01477000 ZCRWKARA EQU ISTZCRR+156 01478000 ZCRCIDSV EQU ISTZCRR+192 01479000 ZCRAUDIT EQU ISTZCRR+440 01480000 ZCRENTER EQU ZCRAUDIT+5 01481000 ZCRLCPB EQU ISTZCRR+480 01482000 ZCRRHRU EQU ZCRLCPB 01483000 ISTASCRR EQU 0 01484000 ASCFLAGS EQU ISTASCRR+16 01485000 ASCFLG1 EQU ASCFLAGS 01486000 ASCFLG2 EQU ASCFLAGS+2 01487000 ASCFLG3 EQU ASCFLAGS+4 01488000 ASCUSRGS EQU ISTASCRR+28 01489000 ISTAPCRR EQU 0 01490000 APCATFLG EQU ISTAPCRR+16 01491000 APCRFLG EQU ISTAPCRR+18 01492000 APCSAVE EQU ISTAPCRR+44 01493000 APCCOMF EQU ISTAPCRR+116 01494000 APCCOMF1 EQU APCCOMF 01495000 APC31FLG EQU ISTAPCRR+132 01496000 APC52FLG EQU ISTAPCRR+133 01497000 APC53FLG EQU ISTAPCRR+134 01498000 APC54FLG EQU ISTAPCRR+135 01499000 APC57FLG EQU ISTAPCRR+136 01500000 ISTRPH EQU 0 01501000 RPHCNTL EQU ISTRPH 01502000 RPHFLAGS EQU RPHCNTL+2 01503000 RPHAPTYP EQU RPHFLAGS 01504000 RPHFSTLC EQU RPHFLAGS 01505000 RPHFLGB EQU RPHCNTL+3 01506000 RPHRPHA EQU ISTRPH+4 01507000 RPHCVFLG EQU RPHRPHA 01508000 RPHGATE EQU RPHCVFLG 01509000 RPHTSKID EQU ISTRPH+8 01510000 RPHRESMA EQU ISTRPH+16 01511000 RPHWPFLG EQU RPHRESMA 01512000 RPHWT EQU RPHWPFLG 01513000 RPHPABOF EQU ISTRPH+20 01514000 RPHMAJCB EQU ISTRPH+21 01515000 RPHWEA EQU ISTRPH+24 01516000 RPHCSPA EQU RPHWEA 01517000 RPHSRPRM EQU ISTRPH+28 01518000 RPHCRR EQU ISTRPH+32 01519000 RPHPABQA EQU ISTRPH+36 01520000 RPHPABQP EQU RPHPABQA+1 01521000 RPHWORK EQU ISTRPH+40 01522000 RPHSAVE1 EQU RPHWORK 01523000 RPHSBITS EQU RPHSAVE1+1 01524000 ISTCRA EQU 0 01525000 CRABASIC EQU ISTCRA 01526000 CRAHDR EQU CRABASIC 01527000 CRACRR EQU CRAHDR 01528000 CRAFRR EQU CRAHDR+4 01529000 CRALKACT EQU CRABASIC+8 01530000 CRAPROCR EQU ISTCRA+312 01531000 CRASVC EQU ISTCRA+848 01532000 CRABUFA EQU CRASVC+68 01533000 ISTLOK EQU 0 01534000 LOKCHN EQU ISTLOK+1 01535000 LOKCHNG EQU LOKCHN 01536000 @NM00028 EQU LOKCHNG+2 01537000 ISTDEVCH EQU 0 01538000 DEVSHCH EQU ISTDEVCH 01539000 DEVCHAR EQU DEVSHCH 01540000 DEVTCODE EQU ISTDEVCH+1 01541000 DEVFLAGS EQU ISTDEVCH+3 01542000 DEVFCCTL EQU DEVFLAGS 01543000 DEVCHAR3 EQU DEVFLAGS 01544000 ISTRPRE EQU 0 01545000 RPRNAME EQU ISTRPRE 01546000 RPRCOMID EQU ISTRPRE+8 01547000 RPRELEN EQU ISTRPRE+16 01548000 RPRPELEN EQU ISTRPRE+18 01549000 RPRFLAGA EQU ISTRPRE+21 01550000 RPRFLAGB EQU ISTRPRE+22 01551000 RPRCAUSE EQU ISTRPRE+23 01552000 RPRNSNEA EQU ISTRPRE+36 01553000 RPRFLAGD EQU ISTRPRE+61 01554000 RPRFLAGC EQU ISTRPRE+62 01555000 ISTRCPRE EQU 0 01556000 RCPPMODE EQU ISTRCPRE+91 01557000 RCPLGNIN EQU ISTRCPRE+92 01558000 ISTRDT EQU 0 01559000 RDTPLEN EQU ISTRDT+72 01560000 RDTPRIOR EQU RDTPLEN 01561000 RDTFLAGB EQU ISTRDT+91 01562000 RDTEPAB EQU ISTRDT+96 01563000 RDTVYRPH EQU ISTRDT+108 01564000 RDTSTCNT EQU ISTRDT+112 01565000 ISTRAP EQU 0 01566000 RAPFLG EQU ISTRAP+108 01567000 RAPFLGB EQU ISTRAP+109 01568000 RAPFLGC EQU ISTRAP+110 01569000 ISTRLC EQU 0 01570000 RLCADR EQU ISTRLC+72 01571000 RLCFLAG EQU RLCADR 01572000 ISTRRN EQU 0 01573000 RRNADR EQU ISTRRN+136 01574000 RRNFLAG EQU RRNADR 01575000 RRNUCBAD EQU RRNADR+1 01576000 RRNRDF EQU ISTRRN+172 01577000 RRNRDFA EQU RRNRDF 01578000 RRNRDFB EQU RRNRDF+1 01579000 RRNCMF EQU ISTRRN+176 01580000 RRNCMFA EQU RRNCMF 01581000 RRNCMFB EQU RRNCMF+1 01582000 RRNCMFC EQU RRNCMF+2 01583000 RRNCMFD EQU RRNCMF+3 01584000 RRNNMDPD EQU ISTRRN+192 01585000 RRNHPRE EQU ISTRRN+216 01586000 ISTRGP EQU 0 01587000 RGPFLG EQU ISTRGP+72 01588000 ISTRLN EQU 0 01589000 RLNADR EQU ISTRLN+72 01590000 RLNFLAG EQU RLNADR 01591000 RLNUCBAD EQU RLNADR+1 01592000 RLNSTAT1 EQU ISTRLN+86 01593000 RLNSTAT2 EQU ISTRLN+87 01594000 RLNRDF EQU ISTRLN+88 01595000 RLNRDFA EQU RLNRDF 01596000 RLNRACNT EQU RLNRDFA 01597000 RLNRDFB EQU RLNRDF+1 01598000 RLNCRFLG EQU ISTRLN+102 01599000 RLNLSCMD EQU RLNCRFLG 01600000 ISTRPT EQU 0 01601000 RPTLNCID EQU ISTRPT+116 01602000 RPTDITT EQU ISTRPT+128 01603000 RPTFLAG1 EQU ISTRPT+140 01604000 ISTRCL EQU 0 01605000 RCLADR EQU ISTRCL+72 01606000 RCLFLAG EQU RCLADR 01607000 ISTRTR EQU 0 01608000 RTRADR EQU ISTRTR+124 01609000 RTRFLAG EQU RTRADR 01610000 RTRRDFA EQU ISTRTR+136 01611000 RTRRAALL EQU RTRRDFA 01612000 RTRRDFB EQU ISTRTR+137 01613000 RTRRDFC EQU ISTRTR+138 01614000 RTRRDFD EQU ISTRTR+139 01615000 RTRRDFE EQU ISTRTR+140 01616000 RTRRDFF EQU ISTRTR+141 01617000 RTRCRFLG EQU ISTRTR+143 01618000 RTRLSCMD EQU RTRCRFLG 01619000 RTRBSCID EQU ISTRTR+188 01620000 ISTRIN EQU 0 01621000 RINDFD EQU ISTRIN+124 01622000 RINREMPO EQU RINDFD 01623000 RINNODEF EQU RINDFD 01624000 RINLDISC EQU RINDFD 01625000 RINNODID EQU ISTRIN+125 01626000 RINRLDAF EQU ISTRIN+126 01627000 RINREMOT EQU ISTRIN+128 01628000 RINVPAB EQU ISTRIN+132 01629000 RINRPHCN EQU ISTRIN+136 01630000 RINNCSPL EQU ISTRIN+140 01631000 RINCNCNT EQU ISTRIN+144 01632000 ISTRDS EQU 0 01633000 ISTDOT EQU 0 01634000 ISTRCC EQU 0 01635000 RCCFLAG EQU ISTRCC+73 01636000 RCCFLAGB EQU ISTRCC+74 01637000 RCCSTAID EQU ISTRCC+78 01638000 RCCID48 EQU RCCSTAID+2 01639000 RCCCRFLG EQU ISTRCC+108 01640000 ISTRLU EQU 0 01641000 RLUFLAG EQU ISTRLU+125 01642000 RLUCRFLG EQU ISTRLU+126 01643000 RLUPACE EQU ISTRLU+132 01644000 RLUNCPPC EQU ISTRLU+134 01645000 RLUUSSTB EQU ISTRLU+140 01646000 RLUMODET EQU ISTRLU+152 01647000 ISTRPX EQU 0 01648000 ISTRLX EQU 0 01649000 RLXFLAGA EQU ISTRLX+76 01650000 ISTRSW EQU 0 01651000 ISTRDA EQU 0 01652000 RDAADR EQU ISTRDA+72 01653000 RDAFLAG EQU RDAADR 01654000 RDAUCBAD EQU RDAADR+1 01655000 ISTRLS EQU 0 01656000 ISTDNT EQU 0 01657000 ISTGNT EQU 0 01658000 ISTPAT EQU 0 01659000 PATFLAGA EQU ISTPAT+7 01660000 ISTDCLCP EQU 0 01661000 DCLRTYPE EQU ISTDCLCP+76 01662000 DCLRFLG EQU DCLRTYPE+1 01663000 DCLFLAG1 EQU ISTDCLCP+78 01664000 ISTPAB EQU 0 01665000 PABWQCHN EQU ISTPAB 01666000 PABWEQA EQU PABWQCHN 01667000 PABCHAIN EQU PABWQCHN+4 01668000 PABCHNGP EQU PABCHAIN+1 01669000 PABRPHFG EQU ISTPAB+12 01670000 PABFLAGS EQU PABRPHFG 01671000 PABERLCK EQU PABFLAGS 01672000 PABERRLK EQU PABERLCK 01673000 ISTDYPAB EQU 0 01674000 DYPPAB EQU ISTDYPAB+16 01675000 ISTPROCD EQU 0 01676000 PROPROC EQU ISTPROCD 01677000 PROPROC1 EQU PROPROC 01678000 PROPROC2 EQU PROPROC+1 01679000 PROPROC3 EQU PROPROC+2 01680000 PROPROC4 EQU PROPROC+3 01681000 PROPROCS EQU 0 01682000 PROSETMS EQU PROPROCS+1 01683000 PROSETM2 EQU PROSETMS 01684000 PROSETM3 EQU PROSETMS+1 01685000 PROSETM4 EQU PROSETMS+2 01686000 ISTFMCB EQU 0 01687000 FMCDNCBA EQU ISTFMCB+16 01688000 FMCSTAT EQU ISTFMCB+28 01689000 FMCSTAT1 EQU ISTFMCB+29 01690000 FMCCMDFL EQU ISTFMCB+31 01691000 FMCCMPS1 EQU ISTFMCB+36 01692000 FMCSIPA EQU ISTFMCB+148 01693000 FMCNXOSQ EQU ISTFMCB+152 01694000 FMCNXCFM EQU FMCNXOSQ 01695000 FMCNXOSC EQU FMCNXOSQ+2 01696000 FMCSSTAT EQU ISTFMCB+159 01697000 FMCPACE EQU ISTFMCB+160 01698000 FMCPACEN EQU FMCPACE 01699000 FMCPACEM EQU FMCPACE+1 01700000 FMCPACPC EQU FMCPACE+2 01701000 FMCCVAL EQU FMCPACE+3 01702000 FMCOBCE EQU FMCCVAL 01703000 FMCCLEXT EQU ISTFMCB+164 01704000 FMCRPLA EQU FMCCLEXT 01705000 FMCFBA EQU FMCCLEXT+4 01706000 FMCCMPS2 EQU FMCCLEXT+16 01707000 FMCFLGA EQU FMCCMPS2 01708000 FMCFLGCL EQU FMCCMPS2+1 01709000 FMCPSCMD EQU FMCCMPS2+2 01710000 FMCPSTAT EQU FMCCMPS2+3 01711000 FMCSTAT2 EQU ISTFMCB+186 01712000 FMCMODEB EQU ISTFMCB+189 01713000 FMCCLSEQ EQU ISTFMCB+190 01714000 FMCRRESP EQU ISTFMCB+195 01715000 FMCSSEGQ EQU ISTFMCB+200 01716000 FMCFBAS EQU ISTFMCB+216 01717000 FMCZV002 EQU FMCFBAS 01718000 FMCSNCTL EQU ISTFMCB+224 01719000 FMCSCFLG EQU FMCSNCTL 01720000 FMCVS1 EQU ISTFMCB+232 01721000 FMCZFLAG EQU FMCVS1 01722000 FMCZF006 EQU FMCZFLAG 01723000 FMCLBXM EQU FMCVS1+12 01724000 FMCSHEAQ EQU FMCLBXM 01725000 FMCLCPBQ EQU FMCVS1+16 01726000 FMCLCPAQ EQU FMCVS1+20 01727000 FMCSEQ1 EQU FMCVS1+34 01728000 FMCZFLG2 EQU FMCVS1+35 01729000 FMCCVFLG EQU FMCVS1+44 01730000 FMCFLAG EQU 0 01731000 FMCFLGB EQU FMCFLAG 01732000 ISTNCB EQU 0 01733000 NCBRDTE EQU ISTNCB+4 01734000 NCBFLAGS EQU ISTNCB+24 01735000 NCBFRAS EQU NCBFLAGS+1 01736000 NCBFTRIO EQU NCBFRAS 01737000 NCBFLAG1 EQU NCBFLAGS+2 01738000 ISTLDNCB EQU 0 01739000 LDNCFLAG EQU ISTLDNCB+54 01740000 LDNFLAGS EQU ISTLDNCB+107 01741000 LDNFLAG2 EQU ISTLDNCB+110 01742000 LDNZIOLK EQU ISTLDNCB+184 01743000 LDNZERPF EQU ISTLDNCB+185 01744000 LDNZCPAN EQU LDNZERPF 01745000 LDNZEPIN EQU LDNZERPF 01746000 LDNZLPC EQU ISTLDNCB+186 01747000 LDNDCDEB EQU ISTLDNCB+304 01748000 LDNZSAV3 EQU ISTLDNCB+376 01749000 LDNZSAV4 EQU LDNZSAV3+8 01750000 LDNZH003 EQU ISTLDNCB+577 01751000 ISTNSRU EQU 0 01752000 NSRURCD EQU ISTNSRU+2 01753000 ISTFDB EQU 0 01754000 FDBFDBA EQU ISTFDB 01755000 FDBDATAA EQU ISTFDB+4 01756000 FDBOFSET EQU ISTFDB+10 01757000 ISTFSB EQU 0 01758000 FSBFSB EQU ISTFSB 01759000 FSBMNRCD EQU FSBFSB+2 01760000 FSBSFLGS EQU FSBFSB+3 01761000 FSBFSBA EQU FSBFSB+4 01762000 FSBBTH EQU FSBFSB+8 01763000 FSBCID EQU FSBBTH 01764000 FSBRQTAG EQU FSBBTH+4 01765000 FSBSEQID EQU FSBRQTAG 01766000 FSBFLAGS EQU FSBSEQID 01767000 FSBSEQ EQU FSBSEQID+1 01768000 FSBCSWST EQU FSBBTH+6 01769000 FSBTHFLD EQU FSBCSWST 01770000 FSBTH1 EQU FSBTHFLD 01771000 FSBSYSRS EQU FSBTH1 01772000 FSBTH2 EQU FSBTHFLD+1 01773000 FSBEXTRS EQU FSBTH2 01774000 FSBXFSTS EQU FSBEXTRS 01775000 FSBXCODE EQU FSBEXTRS 01776000 FSBNETRS EQU FSBFSB+16 01777000 FSBSRCAT EQU FSBNETRS 01778000 FSBERC EQU FSBNETRS+1 01779000 FSBELI EQU FSBERC 01780000 FSBFBMI EQU FSBERC 01781000 FSBDMGRS EQU FSBFSB+18 01782000 FSBSS1 EQU FSBDMGRS 01783000 FSBSS2 EQU FSBDMGRS+1 01784000 FSBLCPB EQU FSBFSB+20 01785000 FSBMSGID EQU FSBLCPB 01786000 FSBLCCWA EQU FSBFSB+24 01787000 FSBRLSTS EQU FSBLCCWA 01788000 FSBFDB EQU ISTFSB+32 01789000 ISTVRLCP EQU 0 01790000 ISTVRRPH EQU ISTVRLCP 01791000 ISTVRFSB EQU ISTVRLCP+4 01792000 ISTATCVT EQU 0 01793000 ATCCOM EQU ISTATCVT 01794000 ATCSTAT EQU ATCCOM 01795000 ATCSTAT1 EQU ATCSTAT 01796000 ATCSTFLG EQU ATCSTAT+1 01797000 ATCPOFLG EQU ATCSTAT+2 01798000 ATCSTAT4 EQU ATCSTAT+3 01799000 ATCBPDA EQU ATCCOM+128 01800000 ATCIOTRC EQU ATCCOM+140 01801000 ATCTHTRC EQU ATCIOTRC 01802000 ATCGTSTR EQU ATCCOM+164 01803000 ATCSMRQ EQU ATCCOM+180 01804000 ATCSMRS EQU ATCCOM+188 01805000 ATCESC01 EQU ISTATCVT+288 01806000 ATCCSMR EQU ISTATCVT+296 01807000 ATCSHRFG EQU ISTATCVT+316 01808000 ATCMSGP EQU ISTATCVT+344 01809000 ATCHPGM EQU ISTATCVT+384 01810000 ATCTCIPB EQU ISTATCVT+624 01811000 ATCVLCNT EQU ISTATCVT+772 01812000 ATCRNO EQU ISTATCVT+788 01813000 ATCSOPD EQU ISTATCVT+792 01814000 ATCSIPD EQU ISTATCVT+800 01815000 ATCSECST EQU ISTATCVT+812 01816000 ATCSTAT2 EQU ISTATCVT+818 01817000 ATCVTBAM EQU ISTATCVT+908 01818000 @NM00056 EQU ATCVTBAM+3 01819000 ATCAOSM EQU ISTATCVT+912 01820000 ATCGSRBQ EQU ATCAOSM+4 01821000 ATCGSRBG EQU ATCGSRBQ 01822000 ATCAP31 EQU ATCAOSM+24 01823000 ATCAP32 EQU ATCAOSM+28 01824000 ATCAP34 EQU ATCAOSM+32 01825000 ATCICAPP EQU ATCAOSM+100 01826000 ATCLDAPP EQU ATCAOSM+120 01827000 ATCDAPVT EQU ATCAOSM+140 01828000 ATCAP37 EQU ATCAOSM+264 01829000 ATCCRA EQU ATCAOSM+280 01830000 ATCCRACN EQU ATCCRA+4 01831000 ATCSRB EQU ATCAOSM+288 01832000 ATCSRBCN EQU ATCSRB+4 01833000 ATCCRPL EQU ATCAOSM+296 01834000 ATCRPLCN EQU ATCCRPL+4 01835000 ATCSQAFR EQU ATCAOSM+304 01836000 ATCORTBC EQU ATCSQAFR+4 01837000 ATCORSRB EQU ATCORTBC 01838000 @NM00058 EQU ATCAOSM+332 01839000 ATCVTFLG EQU ATCAOSM+392 01840000 ATCZFLAG EQU ATCAOSM+588 01841000 ISTAVT EQU 0 01842000 ISTAS49 EQU ISTAVT+4 01843000 ISTTIE EQU 0 01844000 TIETYPE EQU ISTTIE 01845000 TIELNGTH EQU ISTTIE+1 01846000 TIEREQ EQU ISTTIE+3 01847000 TIETIEA EQU ISTTIE+4 01848000 TIESNA EQU ISTTIE+8 01849000 TIEPTR1 EQU TIESNA 01850000 TIERPHA EQU ISTTIE+12 01851000 TIEPTR2 EQU TIERPHA 01852000 ISTPOHD EQU 0 01853000 POHSTAT EQU ISTPOHD+1 01854000 ISTPFX EQU 0 01855000 PFXID EQU ISTPFX 01856000 ISTNCSPL EQU 0 01857000 @NM00062 EQU ISTNCSPL 01858000 NCSPFX EQU @NM00062 01859000 NCSPLVCD EQU ISTNCSPL+17 01860000 NCSPLVBF EQU ISTNCSPL+18 01861000 NCSPLVFL EQU ISTNCSPL+20 01862000 NCSPLVF1 EQU ISTNCSPL+21 01863000 NCSPLRID EQU ISTNCSPL+28 01864000 NCSPLRPT EQU ISTNCSPL+52 01865000 NCSPLCMD EQU ISTNCSPL+60 01866000 NCSCMDA EQU NCSPLCMD 01867000 NCSCRFLG EQU ISTNCSPL+67 01868000 NCSPLRAD EQU ISTNCSPL+144 01869000 NCSIOCID EQU ISTNCSPL+148 01870000 NCSPLCID EQU NCSIOCID 01871000 NCSPLWKA EQU ISTNCSPL+152 01872000 NCSPLCVT EQU ISTNCSPL+156 01873000 NCSPLRPH EQU ISTNCSPL+160 01874000 NCSPLFSB EQU ISTNCSPL+168 01875000 NCSPLFL1 EQU ISTNCSPL+176 01876000 NCSPLREQ EQU NCSPLFL1 01877000 NCSPLFL2 EQU ISTNCSPL+177 01878000 NCSPLFL3 EQU ISTNCSPL+178 01879000 NCSPLFL4 EQU ISTNCSPL+179 01880000 NCSPLFL5 EQU ISTNCSPL+181 01881000 NCSPLAPP EQU ISTNCSPL+216 01882000 NCSSENSE EQU ISTNCSPL+244 01883000 NCSCRMSK EQU ISTNCSPL+268 01884000 NCSCHKPT EQU NCSCRMSK 01885000 NCSCRMOD EQU NCSCRMSK+2 01886000 NCSPLSID EQU ISTNCSPL+271 01887000 NCSPLSTA EQU NCSPLSID 01888000 NCSPLPHD EQU NCSPLSID+1 01889000 NCSAPP EQU 0 01890000 NCSAPBUE EQU NCSAPP+88 01891000 NCSUSSRU EQU 0 01892000 CWORD EQU 0 01893000 CBIT0 EQU CWORD 01894000 CNCSWKA EQU 0 01895000 CWKA EQU CNCSWKA 01896000 CWKSZE EQU CNCSWKA+4 01897000 CWKBUF EQU CNCSWKA+8 01898000 CRCR4MAP EQU 0 01899000 QPTR EQU 0 01900000 FMZL0015 EQU 0 01901000 FMZL0039 EQU 0 01902000 ISTAPC37 EQU 0 01903000 FMZL0055 EQU 0 01904000 FMZL0093 EQU 0 01905000 @NM00070 EQU 0 01906000 CMZID109 EQU @NM00070 01907000 @NM00071 EQU @NM00070+4 01908000 CMZVP109 EQU @NM00070+12 01909000 CMZSA109 EQU 0 01910000 CMTA109 EQU 0 01911000 @NM00072 EQU 0 01912000 CMZID117 EQU @NM00072 01913000 @NM00073 EQU @NM00072+4 01914000 CMZVP117 EQU @NM00072+12 01915000 CMZSA117 EQU 0 01916000 CMTA117 EQU 0 01917000 FMZL0125 EQU 0 01918000 FMZL0161 EQU 0 01919000 FMZL0204 EQU 0 01920000 ISTAPC34 EQU 0 01921000 IOSATTSC EQU IOSIPIB 01922000 IOSWTOWA EQU IOSIPIB 01923000 IOSPCISC EQU IOSIPIB 01924000 CVTS01 EQU CVTPGSIA 01925000 CVTLPDIA EQU CVTS01+12 01926000 CVTDIRST EQU CVTLPDIA 01927000 CVTSLIDA EQU CVTS01+24 01928000 CVTCTLFG EQU CVTS01+50 01929000 CVTRV210 EQU CVTS01+424 01930000 CVTRV219 EQU CVTS01+425 01931000 CVTRV228 EQU CVTS01+426 01932000 CVTRV237 EQU CVTS01+427 01933000 CVTMFRTR EQU CVTS01+452 01934000 CVTRV262 EQU CVTS01+468 01935000 CVTRV271 EQU CVTS01+469 01936000 CVTRV280 EQU CVTS01+470 01937000 CVTRV289 EQU CVTS01+471 01938000 CVTGSDA EQU CVTS01+600 01939000 IOBORG01 EQU IOBPREFX+8 01940000 IOBNIOBA EQU IOBORG01 01941000 IOBNFLG1 EQU IOBNIOBA 01942000 IOBPRTOV EQU IOBNFLG1 01943000 IOBORG02 EQU IOBPREFX+8 01944000 IOBDQADA EQU IOBORG02 01945000 IOBDEQIN EQU IOBDQADA 01946000 IOBORG03 EQU IOBPREFX+12 01947000 IOBORG04 EQU IOBINCAM 01948000 IOBORG12 EQU IOBINCAM 01949000 IOBFL4 EQU IOBORG12 01950000 IOBEXTEN EQU IOBSTDRD+32 01951000 IOBSEEK EQU IOBEXTEN 01952000 IOBBB EQU IOBSEEK+1 01953000 IOBCC EQU IOBSEEK+3 01954000 IOBHH EQU IOBSEEK+5 01955000 IOBORG05 EQU IOBEXTEN 01956000 IOBORG06 EQU IOBEXTEN 01957000 IOBNXTPT EQU IOBORG06+4 01958000 IOBSTATA EQU IOBNXTPT 01959000 IOBORG07 EQU IOBEXTEN+8 01960000 W1IEXTEN EQU IOBORG07 01961000 IOBORG08 EQU IOBEXTEN+8 01962000 IOBINDCT EQU IOBORG08+4 01963000 IOBUNSQR EQU IOBORG08+5 01964000 IOBFCHAD EQU IOBORG08+8 01965000 IOBORG09 EQU IOBEXTEN+8 01966000 IOBDPLAD EQU IOBORG09+4 01967000 IOBDTYPE EQU IOBORG09+8 01968000 IOBDTYP2 EQU IOBORG09+9 01969000 IOBDSTAT EQU IOBORG09+10 01970000 IOBSTAT1 EQU IOBDSTAT 01971000 IOBORG10 EQU IOBEXTEN+8 01972000 IOBSEEK2 EQU IOBORG10 01973000 IOBORG11 EQU IOBEXTEN 01974000 IOBERCT EQU IOBORG11 01975000 IOBUCBXV EQU IOBERCT 01976000 IOBNAME EQU IOBORG11+4 01977000 IOBORG13 EQU IOBEXTEN 01978000 IOBSKADR EQU IOBORG13 01979000 LCPZTIE EQU LCPCID 01980000 LCPZSNAM EQU LCPZTIE+8 01981000 FSBCOMBN EQU FSBNETRS 01982000 FSBRHFLD EQU FSBCOMBN+1 01983000 FSBRH3 EQU FSBRHFLD+2 01984000 FSBLDFLG EQU FSBRH3 01985000 @NM00049 EQU FSBRQTAG 01986000 RTRDNCBA EQU ISTRTR+40 01987000 SRB EQU SRBSECT 01988000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01989000 FSBRT0B EQU @NM00049+1 01990000 FSBRT0A EQU @NM00049+1 01991000 FSBRT09 EQU @NM00049+1 01992000 FSBRT08 EQU @NM00049+1 01993000 FSBRT07 EQU @NM00049 01994000 FSBRT06 EQU @NM00049 01995000 FSBRT05 EQU @NM00049 01996000 FSBRT04 EQU @NM00049 01997000 FSBRT03 EQU @NM00049 01998000 FSBRT02 EQU @NM00049 01999000 FSBRT01 EQU @NM00049 02000000 FSBRT00 EQU @NM00049 02001000 FSBLDCUF EQU FSBLDFLG 02002000 FSBLDSIF EQU FSBLDFLG 02003000 FSBLDSOF EQU FSBLDFLG 02004000 FSBLDEBF EQU FSBLDFLG 02005000 FSBLDBBF EQU FSBLDFLG 02006000 FSBLDFME EQU FSBLDFLG 02007000 FSBLDSCF EQU FSBLDFLG 02008000 FSBLDRMF EQU FSBLDFLG 02009000 FSBRH2 EQU FSBRHFLD+1 02010000 FSBRH1 EQU FSBRHFLD 02011000 FSBALIGN EQU FSBCOMBN 02012000 LCPZTRV4 EQU LCPZSNAM+4 02013000 LCPZTRV1 EQU LCPZSNAM 02014000 LCPZSNA EQU LCPZTIE+4 02015000 LCPZFMCA EQU LCPZTIE 02016000 IOBSKSS EQU IOBSKADR+3 02017000 IOBSK0 EQU IOBSKADR+2 02018000 IOBSKTT EQU IOBSKADR+1 02019000 IOBSKRV EQU IOBSKADR 02020000 IOBCSWSV EQU IOBORG11+17 02021000 IOBSENSV EQU IOBORG11+16 02022000 IOBRCD EQU IOBORG11+12 02023000 IOBMDREC EQU IOBORG11+8 02024000 IOBNAMEA EQU IOBNAME+1 02025000 IOBNAMSZ EQU IOBNAME 02026000 IOBERCTA EQU IOBERCT+1 02027000 IOBRTYPE EQU IOBUCBXV 02028000 IOBRDCHP EQU IOBORG10+20 02029000 IOBNEXTA EQU IOBORG10+16 02030000 IOBREADA EQU IOBORG10+12 02031000 IOBBUFC EQU IOBORG10+8 02032000 IOBSK2R EQU IOBSEEK2+7 02033000 IOBSK2HH EQU IOBSEEK2+5 02034000 IOBSK2CC EQU IOBSEEK2+3 02035000 IOBSK2BB EQU IOBSEEK2+1 02036000 IOBSK2M EQU IOBSEEK2 02037000 IOBCHNPR EQU IOBORG09+40 02038000 IOBDNCRF EQU IOBORG09+32 02039000 IOBRSV35 EQU IOBORG09+24 02040000 IOBDQPTR EQU IOBORG09+20 02041000 IOBRSV34 EQU IOBORG09+18 02042000 IOBDBYTN EQU IOBORG09+16 02043000 IOBDCPND EQU IOBORG09+12 02044000 IOBSTAT2 EQU IOBDSTAT+1 02045000 IOBSIORT EQU IOBSTAT1 02046000 IOBADDVU EQU IOBSTAT1 02047000 IOBBUFF EQU IOBSTAT1 02048000 IOBENQUE EQU IOBSTAT1 02049000 IOBPASS2 EQU IOBSTAT1 02050000 IOBSYNCH EQU IOBSTAT1 02051000 IOBNEWVL EQU IOBSTAT1 02052000 IOBABNRM EQU IOBSTAT1 02053000 IOBRELEX EQU IOBDTYP2 02054000 IOBADDTY EQU IOBDTYP2 02055000 IOBTYPE EQU IOBDTYP2 02056000 IOBRQUST EQU IOBDTYP2 02057000 IOBSUFFX EQU IOBDTYP2 02058000 IOBSBLKL EQU IOBDTYP2 02059000 IOBSKEY EQU IOBDTYP2 02060000 IOBRELBL EQU IOBDTYPE 02061000 IOBRDEXC EQU IOBDTYPE 02062000 IOBDYNBF EQU IOBDTYPE 02063000 IOBACTAD EQU IOBDTYPE 02064000 IOBFDBCK EQU IOBDTYPE 02065000 IOBEXTSC EQU IOBDTYPE 02066000 IOBOVFLO EQU IOBDTYPE 02067000 IOBVERFY EQU IOBDTYPE 02068000 IOBDPLB EQU IOBDPLAD+1 02069000 IOBDAYLI EQU IOBDPLAD 02070000 IOBDIOBS EQU IOBORG09+2 02071000 IOBDBYTR EQU IOBORG09 02072000 IOBBCHAD EQU IOBORG08+12 02073000 IOBFCHNB EQU IOBFCHAD+1 02074000 IOBCOUNT EQU IOBFCHAD 02075000 IOBASYN EQU IOBORG08+7 02076000 IOBAPP EQU IOBORG08+6 02077000 IOBRSV32 EQU IOBUNSQR 02078000 IOBRSV31 EQU IOBUNSQR 02079000 IOBRSV30 EQU IOBUNSQR 02080000 IOBKNRWR EQU IOBUNSQR 02081000 IOBKNWR EQU IOBUNSQR 02082000 IOBNTAV2 EQU IOBUNSQR 02083000 IOBNTAV1 EQU IOBUNSQR 02084000 IOBCPBSY EQU IOBUNSQR 02085000 IOBCHNNL EQU IOBINDCT 02086000 IOBRSV29 EQU IOBINDCT 02087000 IOBRSV28 EQU IOBINDCT 02088000 IOBRSV27 EQU IOBINDCT 02089000 IOBKEYAD EQU IOBINDCT 02090000 IOBOVPTR EQU IOBINDCT 02091000 IOBUNSCH EQU IOBINDCT 02092000 IOBDEQCP EQU IOBINDCT 02093000 IOBCCWAD EQU IOBORG08 02094000 W1OEXTEN EQU W1IEXTEN 02095000 IOBCCW EQU IOBORG06+8 02096000 IOBNXTPB EQU IOBNXTPT+1 02097000 IOBRSV26 EQU IOBSTATA 02098000 IOBRSV25 EQU IOBSTATA 02099000 IOBRSV24 EQU IOBSTATA 02100000 IOBRSV23 EQU IOBSTATA 02101000 IOBRSV22 EQU IOBSTATA 02102000 IOBRSV21 EQU IOBSTATA 02103000 IOBRSV20 EQU IOBSTATA 02104000 IOBAVLFL EQU IOBSTATA 02105000 IOBRSV37 EQU IOBORG06+1 02106000 IOBUCBXG EQU IOBORG06 02107000 IOBCPA EQU IOBORG05+32 02108000 IOBERINF EQU IOBORG05+16 02109000 IOBERCCW EQU IOBORG05+8 02110000 IOBSNDPT EQU IOBORG05+7 02111000 IOBRCVPT EQU IOBORG05+6 02112000 IOBWORK EQU IOBORG05+1 02113000 IOBUCBX EQU IOBORG05 02114000 IOBR EQU IOBSEEK+7 02115000 IOBHH2 EQU IOBHH+1 02116000 IOBHH1 EQU IOBHH 02117000 IOBCC2 EQU IOBCC+1 02118000 IOBCC1 EQU IOBCC 02119000 IOBBB2 EQU IOBBB+1 02120000 IOBBB1 EQU IOBBB 02121000 IOBM EQU IOBSEEK 02122000 IOBRSV46 EQU IOBFL4 02123000 IOBRSV47 EQU IOBFL4 02124000 IOBENT EQU IOBFL4 02125000 IOBEQP EQU IOBFL4 02126000 IOBBUS EQU IOBFL4 02127000 IOBDCK EQU IOBFL4 02128000 IOBREJ EQU IOBFL4 02129000 IOBOVR EQU IOBFL4 02130000 IOBCRILC EQU IOBORG04+1 02131000 IOBCRDCC EQU IOBORG04 02132000 IOBGQECB EQU IOBORG03 02133000 IOBSWAP EQU IOBORG02+4 02134000 IOBDQADB EQU IOBDQADA+1 02135000 IOBRSV13 EQU IOBDEQIN 02136000 IOBRSV12 EQU IOBDEQIN 02137000 IOBRSV11 EQU IOBDEQIN 02138000 IOBRSV10 EQU IOBDEQIN 02139000 IOBRSV09 EQU IOBDEQIN 02140000 IOBRSV08 EQU IOBDEQIN 02141000 IOBRSV07 EQU IOBDEQIN 02142000 IOBDEQ EQU IOBDEQIN 02143000 IOBNECB EQU IOBORG01+4 02144000 IOBNIOBB EQU IOBNIOBA+1 02145000 IOBFIRST EQU IOBNFLG1 02146000 IOBUPERR EQU IOBNFLG1 02147000 IOBSPAN EQU IOBNFLG1 02148000 IOBBKSPC EQU IOBNFLG1 02149000 IOBUPDAT EQU IOBNFLG1 02150000 IOBREAD EQU IOBNFLG1 02151000 IOBWRITE EQU IOBNFLG1 02152000 IOBSEGMT EQU IOBPRTOV 02153000 CVTRV628 EQU CVTS01+728 02154000 CVTRV627 EQU CVTS01+724 02155000 CVTRV626 EQU CVTS01+720 02156000 CVTRV625 EQU CVTS01+716 02157000 CVTRV624 EQU CVTS01+712 02158000 CVTRV623 EQU CVTS01+708 02159000 CVTRV622 EQU CVTS01+704 02160000 CVTRV621 EQU CVTS01+700 02161000 CVTRV620 EQU CVTS01+696 02162000 CVTRV619 EQU CVTS01+692 02163000 CVTRV618 EQU CVTS01+688 02164000 CVTRV617 EQU CVTS01+684 02165000 CVTRV616 EQU CVTS01+680 02166000 CVTRV615 EQU CVTS01+676 02167000 CVTRV614 EQU CVTS01+672 02168000 CVTRV613 EQU CVTS01+668 02169000 CVTTCASP EQU CVTS01+664 02170000 CVT0PT03 EQU CVTS01+660 02171000 CVT0PT0E EQU CVTS01+656 02172000 CVTIRM EQU CVTS01+652 02173000 CVTCGK EQU CVTS01+648 02174000 CVTRV607 EQU CVTS01+644 02175000 CVTRV606 EQU CVTS01+640 02176000 CVTRV605 EQU CVTS01+636 02177000 CVTRV604 EQU CVTS01+632 02178000 CVTEFF02 EQU CVTS01+628 02179000 CVTCBBR EQU CVTS01+624 02180000 CVTSSCR EQU CVTS01+620 02181000 CVTEVENT EQU CVTS01+616 02182000 CVTCRCA EQU CVTS01+612 02183000 CVTTPIO EQU CVTS01+608 02184000 CVTADV EQU CVTS01+604 02185000 CVTGSDAB EQU CVTGSDA 02186000 CVTQV3 EQU CVTS01+596 02187000 CVTQV2 EQU CVTS01+592 02188000 CVTQV1 EQU CVTS01+588 02189000 CVTRPT EQU CVTS01+584 02190000 CVTSSRB EQU CVTS01+580 02191000 CVTCSDRL EQU CVTS01+576 02192000 CVTEXP1 EQU CVTS01+572 02193000 CVTRMPMT EQU CVTS01+568 02194000 CVTRMPTT EQU CVTS01+564 02195000 CVTVPSA EQU CVTS01+560 02196000 CVTVSTOP EQU CVTS01+556 02197000 CVTGTFR8 EQU CVTS01+552 02198000 CVTQUIT EQU CVTS01+548 02199000 CVTVACR EQU CVTS01+544 02200000 CVTWTCB EQU CVTS01+540 02201000 CVTSTPRS EQU CVTS01+536 02202000 CVT0PT02 EQU CVTS01+532 02203000 CVTDARCM EQU CVTS01+528 02204000 CVTIRECM EQU CVTS01+524 02205000 CVTJRECM EQU CVTS01+520 02206000 CVTVEMS0 EQU CVTS01+516 02207000 CVTSPFRR EQU CVTS01+512 02208000 CVTRLSTG EQU CVTS01+508 02209000 CVT0TC0A EQU CVTS01+504 02210000 CVTGMBR EQU CVTS01+500 02211000 CVTLFRM EQU CVTS01+496 02212000 CVTRMBR EQU CVTS01+492 02213000 CVTVIOP EQU CVTS01+488 02214000 CVTRV307 EQU CVTS01+486 02215000 CVTRV306 EQU CVTS01+484 02216000 CVTRV305 EQU CVTS01+482 02217000 CVTRV304 EQU CVTS01+480 02218000 CVTRV303 EQU CVTS01+478 02219000 CVTRV302 EQU CVTS01+476 02220000 CVTTRCA EQU CVTS01+472 02221000 CVTRV297 EQU CVTRV289 02222000 CVTRV296 EQU CVTRV289 02223000 CVTRV295 EQU CVTRV289 02224000 CVTRV294 EQU CVTRV289 02225000 CVTRV293 EQU CVTRV289 02226000 CVTRV292 EQU CVTRV289 02227000 CVTRV291 EQU CVTRV289 02228000 CVTRV290 EQU CVTRV289 02229000 CVTRV288 EQU CVTRV280 02230000 CVTRV287 EQU CVTRV280 02231000 CVTRV286 EQU CVTRV280 02232000 CVTRV285 EQU CVTRV280 02233000 CVTRV284 EQU CVTRV280 02234000 CVTRV283 EQU CVTRV280 02235000 CVTRV282 EQU CVTRV280 02236000 CVTRV281 EQU CVTRV280 02237000 CVTRV279 EQU CVTRV271 02238000 CVTRV278 EQU CVTRV271 02239000 CVTRV277 EQU CVTRV271 02240000 CVTRV276 EQU CVTRV271 02241000 CVTRV275 EQU CVTRV271 02242000 CVTRV274 EQU CVTRV271 02243000 CVTRV273 EQU CVTRV271 02244000 CVTRV272 EQU CVTRV271 02245000 CVTRV270 EQU CVTRV262 02246000 CVTRV269 EQU CVTRV262 02247000 CVTRV268 EQU CVTRV262 02248000 CVTRV267 EQU CVTRV262 02249000 CVTRV266 EQU CVTRV262 02250000 CVTRV265 EQU CVTRV262 02251000 CVTRV264 EQU CVTRV262 02252000 CVTRV263 EQU CVTRV262 02253000 CVTVFP EQU CVTS01+464 02254000 CVTVSI EQU CVTS01+460 02255000 CVTVPSIB EQU CVTS01+456 02256000 CVTMFACT EQU CVTMFRTR 02257000 CVTMFCTL EQU CVTS01+448 02258000 CVTPVBP EQU CVTS01+444 02259000 CVTPWI EQU CVTS01+440 02260000 CVTRV254 EQU CVTS01+438 02261000 CVTRV253 EQU CVTS01+436 02262000 CVTRV252 EQU CVTS01+434 02263000 CVTRV251 EQU CVTS01+433 02264000 CVTRV250 EQU CVTS01+432 02265000 CVTRV249 EQU CVTS01+431 02266000 CVTRV248 EQU CVTS01+430 02267000 CVTRV247 EQU CVTS01+429 02268000 CVTRV246 EQU CVTS01+428 02269000 CVTRV245 EQU CVTRV237 02270000 CVTRV244 EQU CVTRV237 02271000 CVTRV243 EQU CVTRV237 02272000 CVTRV242 EQU CVTRV237 02273000 CVTRV241 EQU CVTRV237 02274000 CVTRV240 EQU CVTRV237 02275000 CVTRV239 EQU CVTRV237 02276000 CVTRV238 EQU CVTRV237 02277000 CVTRV236 EQU CVTRV228 02278000 CVTRV235 EQU CVTRV228 02279000 CVTRV234 EQU CVTRV228 02280000 CVTRV233 EQU CVTRV228 02281000 CVTRV232 EQU CVTRV228 02282000 CVTRV231 EQU CVTRV228 02283000 CVTRV230 EQU CVTRV228 02284000 CVTRV229 EQU CVTRV228 02285000 CVTRV227 EQU CVTRV219 02286000 CVTRV226 EQU CVTRV219 02287000 CVTRV225 EQU CVTRV219 02288000 CVTRV224 EQU CVTRV219 02289000 CVTRV223 EQU CVTRV219 02290000 CVTRV222 EQU CVTRV219 02291000 CVTRV221 EQU CVTRV219 02292000 CVTRV220 EQU CVTRV219 02293000 CVTRV218 EQU CVTRV210 02294000 CVTRV217 EQU CVTRV210 02295000 CVTRV216 EQU CVTRV210 02296000 CVTRV215 EQU CVTRV210 02297000 CVTRV214 EQU CVTRV210 02298000 CVTRV213 EQU CVTRV210 02299000 CVTRV212 EQU CVTRV210 02300000 CVTRV211 EQU CVTRV210 02301000 CVTLCCAT EQU CVTS01+420 02302000 CVTPCCAT EQU CVTS01+416 02303000 CVTIPCRP EQU CVTS01+412 02304000 CVTIPCRI EQU CVTS01+408 02305000 CVTIPCDS EQU CVTS01+404 02306000 CVTAIDVT EQU CVTS01+400 02307000 CVTSSAP EQU CVTS01+396 02308000 CVTEHCIR EQU CVTS01+392 02309000 CVTEHDEF EQU CVTS01+388 02310000 CVTDAIR EQU CVTS01+384 02311000 CVTPERFM EQU CVTS01+380 02312000 CVT044R2 EQU CVTS01+376 02313000 CVTFETCH EQU CVTS01+372 02314000 CVTRSTWD EQU CVTS01+368 02315000 CVTSPOST EQU CVTS01+364 02316000 CVTIOBP EQU CVTS01+360 02317000 CVTASMVT EQU CVTS01+356 02318000 CVTRECRQ EQU CVTS01+352 02319000 CVTWSAC EQU CVTS01+348 02320000 CVTRV149 EQU CVTS01+344 02321000 CVTWSAL EQU CVTS01+340 02322000 CVTSPSA EQU CVTS01+336 02323000 CVTGLMN EQU CVTS01+332 02324000 CVTVEAC0 EQU CVTS01+328 02325000 CVT062R1 EQU CVTS01+324 02326000 CVTRPOST EQU CVTS01+320 02327000 CVTDQIQE EQU CVTS01+316 02328000 CVTCSD EQU CVTS01+312 02329000 CVTLKRMA EQU CVTS01+308 02330000 CVTRSPIE EQU CVTS01+304 02331000 CVTRENQ EQU CVTS01+300 02332000 CVTLQCB EQU CVTS01+296 02333000 CVTFQCB EQU CVTS01+292 02334000 CVTQCS01 EQU CVTS01+288 02335000 CVTAPFT EQU CVTS01+284 02336000 CVTPARRL EQU CVTS01+280 02337000 CVTVWAIT EQU CVTS01+276 02338000 CVTGSPL EQU CVTS01+272 02339000 CVTLSMQ EQU CVTS01+268 02340000 CVTGSMQ EQU CVTS01+264 02341000 CVTEXPRO EQU CVTS01+260 02342000 CVTOPCTP EQU CVTS01+256 02343000 CVTSIC EQU CVTS01+252 02344000 CVTTPIOS EQU CVTS01+248 02345000 CVTRTMS EQU CVTS01+244 02346000 CVTSDBF EQU CVTS01+240 02347000 CVTSCBP EQU CVTS01+236 02348000 CVTSDMP EQU CVTS01+232 02349000 CVTSV60 EQU CVTS01+228 02350000 CVTRTMCT EQU CVTS01+224 02351000 CVTASCBL EQU CVTS01+220 02352000 CVTASCBH EQU CVTS01+216 02353000 CVTGDA EQU CVTS01+212 02354000 CVTASVT EQU CVTS01+208 02355000 CVTVVMDI EQU CVTS01+204 02356000 CVTAQTOP EQU CVTS01+200 02357000 CVTIOSCS EQU CVTS01+196 02358000 CVTSDRM EQU CVTS01+192 02359000 CVTOPTE EQU CVTS01+188 02360000 CVTSTXU EQU CVTS01+184 02361000 CVTQUIS EQU CVTS01+180 02362000 CVTPARS EQU CVTS01+176 02363000 CVTS1EE EQU CVTS01+172 02364000 CVTFRAS EQU CVTS01+168 02365000 CVTQSAS EQU CVTS01+164 02366000 CVTCRAS EQU CVTS01+160 02367000 CVTCRMN EQU CVTS01+156 02368000 CVTDELCP EQU CVTS01+152 02369000 CVTFRECL EQU CVTS01+148 02370000 CVTGETCL EQU CVTS01+144 02371000 CVTBLDCP EQU CVTS01+140 02372000 CVTAUTHL EQU CVTS01+136 02373000 CVTSCAN EQU CVTS01+132 02374000 CVTRV144 EQU CVTS01+130 02375000 CVTMAXMP EQU CVTS01+128 02376000 CVTSTCK EQU CVTS01+124 02377000 CVTRV139 EQU CVTS01+123 02378000 CVTDSSAC EQU CVTS01+122 02379000 CVTRV513 EQU CVTS01+121 02380000 CVTIOSPL EQU CVTS01+120 02381000 CVTPTGT EQU CVTS01+116 02382000 CVTCSPIE EQU CVTS01+112 02383000 CVTSMFEX EQU CVTS01+108 02384000 CVTOLT0A EQU CVTS01+104 02385000 CVTSRBRT EQU CVTS01+100 02386000 CVTPUTL EQU CVTS01+96 02387000 CVTASCRL EQU CVTS01+92 02388000 CVTASCRF EQU CVTS01+88 02389000 CVTRV326 EQU CVTS01+84 02390000 CVTRV325 EQU CVTS01+80 02391000 CVTRV324 EQU CVTS01+76 02392000 CVT0VL01 EQU CVTS01+72 02393000 CVTSHRVM EQU CVTS01+68 02394000 CVTRV332 EQU CVTS01+64 02395000 CVTTAS EQU CVTS01+60 02396000 CVTRSCN EQU CVTS01+56 02397000 CVTTRAC2 EQU CVTS01+54 02398000 CVTTRACE EQU CVTS01+52 02399000 CVTAPG EQU CVTS01+51 02400000 CVTSDTRC EQU CVTCTLFG 02401000 CVTGTRCE EQU CVTCTLFG 02402000 CVTNOMP EQU CVTCTLFG 02403000 CVTRSV79 EQU CVTCTLFG 02404000 CVTDSTAT EQU CVTCTLFG 02405000 CVTRSV78 EQU CVTCTLFG 02406000 CVTRV333 EQU CVTCTLFG 02407000 CVTRV323 EQU CVTCTLFG 02408000 CVTSPVLK EQU CVTS01+49 02409000 CVTRSV77 EQU CVTS01+48 02410000 CVTRV331 EQU CVTS01+44 02411000 CVTRV330 EQU CVTS01+40 02412000 CVTRV329 EQU CVTS01+36 02413000 CVTRV328 EQU CVTS01+32 02414000 CVTRV322 EQU CVTS01+28 02415000 CVTSLID EQU CVTSLIDA+1 02416000 CVTSYLK EQU CVTSLIDA 02417000 CVTRV321 EQU CVTS01+20 02418000 CVTRV320 EQU CVTS01+16 02419000 CVTLPDIR EQU CVTLPDIA+1 02420000 CVTRSV69 EQU CVTDIRST 02421000 CVTRSV68 EQU CVTDIRST 02422000 CVTRSV67 EQU CVTDIRST 02423000 CVTRSV66 EQU CVTDIRST 02424000 CVTRSV65 EQU CVTDIRST 02425000 CVTRSV64 EQU CVTDIRST 02426000 CVTRSV63 EQU CVTDIRST 02427000 CVTDICOM EQU CVTDIRST 02428000 CVTPVTP EQU CVTS01+8 02429000 CVTLPDSR EQU CVTS01+4 02430000 CVTGETL EQU CVTS01 02431000 IOSPCIWA EQU IOSPCISC+44 02432000 IOSPCIRS EQU IOSPCISC+8 02433000 @NM00007 EQU IOSPCISC+4 02434000 @NM00006 EQU IOSPCISC 02435000 IOSWRNDR EQU IOSWTOWA+4 02436000 IOSWTOPT EQU IOSWTOWA+3 02437000 IOSWTOCP EQU IOSWTOWA+2 02438000 IOSWTOCH EQU IOSWTOWA 02439000 IOSATTWA EQU IOSATTSC+40 02440000 @NM00005 EQU IOSATTSC+24 02441000 IOSATTSN EQU IOSATTSC 02442000 CMZEA117 EQU @NM00072+8 02443000 CMZRA117 EQU @NM00073+1 02444000 CMZRL117 EQU @NM00073 02445000 CMZEA109 EQU @NM00070+8 02446000 CMZRA109 EQU @NM00071+1 02447000 CMZRL109 EQU @NM00071 02448000 CR4VRLCP EQU CRCR4MAP+72 02449000 CR4LCCW2 EQU CRCR4MAP+64 02450000 CR4LCCW1 EQU CRCR4MAP+56 02451000 CR4LCPB EQU CRCR4MAP 02452000 @NM00067 EQU CWORD 02453000 NCSRUITS EQU NCSUSSRU+2 02454000 NCSRULEN EQU NCSUSSRU 02455000 NCSAPPAB EQU NCSAPP+608 02456000 NCSAPDAT EQU NCSAPBUE+8 02457000 NCSAPRU EQU NCSAPBUE+3 02458000 NCSRSV04 EQU NCSAPBUE 02459000 NCSAPEND EQU NCSAPP+84 02460000 NCSAPTXT EQU NCSAPP+76 02461000 NCSAPECB EQU NCSAPP+72 02462000 NCSAPSA EQU NCSAPP 02463000 NCSPLPDB EQU NCSPLSID+5 02464000 NCSPLNID EQU NCSPLPHD 02465000 NCSPLPO EQU NCSPLSTA 02466000 NCSRSVD4 EQU NCSPLSTA 02467000 NCSRSVD2 EQU NCSCRMOD 02468000 NCSPTMOD EQU NCSCRMOD 02469000 NCSAIMOD EQU NCSCRMOD 02470000 NCSRSVD1 EQU NCSCHKPT+1 02471000 NCSPTUSE EQU NCSCHKPT+1 02472000 NCSRNME EQU NCSCHKPT+1 02473000 NCSCUA EQU NCSCHKPT+1 02474000 NCSANSMD EQU NCSCHKPT+1 02475000 NCSLGMOD EQU NCSCHKPT 02476000 NCSLGAPL EQU NCSCHKPT 02477000 NCSDTRLM EQU NCSCHKPT 02478000 NCSESLM EQU NCSCHKPT 02479000 NCSNRPL EQU NCSCHKPT 02480000 NCSPOLD EQU NCSCHKPT 02481000 NCSPACTV EQU NCSCHKPT 02482000 NCSACTV EQU NCSCHKPT 02483000 NCSCRDTE EQU ISTNCSPL+264 02484000 NCSPLRTY EQU ISTNCSPL+263 02485000 NCSPLRH EQU ISTNCSPL+260 02486000 NCSUFMCB EQU ISTNCSPL+256 02487000 NCSMGLPT EQU ISTNCSPL+252 02488000 NCSCPWPT EQU ISTNCSPL+248 02489000 NCSSENS2 EQU NCSSENSE+2 02490000 NCSSNS2 EQU NCSSENSE+1 02491000 NCSSNS1 EQU NCSSENSE 02492000 NCSPLNSN EQU ISTNCSPL+240 02493000 NCSPLMID EQU ISTNCSPL+232 02494000 NCSPLPID EQU ISTNCSPL+231 02495000 NCSPLGID EQU ISTNCSPL+230 02496000 NCSPLSQN EQU ISTNCSPL+228 02497000 NCSRNAME EQU ISTNCSPL+220 02498000 NCSPLRUI EQU ISTNCSPL+212 02499000 NCSPLRUO EQU ISTNCSPL+208 02500000 NCSPLRRP EQU ISTNCSPL+204 02501000 NCSPLWEL EQU ISTNCSPL+200 02502000 NCSPLSPL EQU ISTNCSPL+196 02503000 NCSPLP3 EQU ISTNCSPL+192 02504000 NCSPLP2 EQU ISTNCSPL+188 02505000 NCSPLP1 EQU ISTNCSPL+184 02506000 NCSPLOLN EQU ISTNCSPL+182 02507000 @NM00066 EQU NCSPLFL5 02508000 NCSFORCE EQU NCSPLFL5 02509000 NCSSDLK EQU NCSPLFL5 02510000 NCSSCPPS EQU NCSPLFL5 02511000 NCSDLRSN EQU ISTNCSPL+180 02512000 NCSPL2AP EQU NCSPLFL4 02513000 NCSDSPN EQU NCSPLFL4 02514000 NCSDSPI EQU NCSPLFL4 02515000 NCSDSPA EQU NCSPLFL4 02516000 NCSDSPE EQU NCSPLFL4 02517000 NCSPLVID EQU NCSPLFL4 02518000 NCSPLRSO EQU NCSPLFL4 02519000 NCSDLNID EQU NCSPLFL4 02520000 NCSEND EQU NCSPLFL3 02521000 NCSFINAL EQU NCSPLFL3 02522000 NCSANS EQU NCSPLFL3 02523000 NCSPID EQU NCSPLFL3 02524000 NCSGID EQU NCSPLFL3 02525000 NCSPLANS EQU NCSPLFL3 02526000 NCSEPP EQU NCSPLFL3 02527000 NCSPLMOM EQU NCSPLFL3 02528000 NCSPLVIT EQU NCSPLFL2 02529000 NCSPLVIS EQU NCSPLFL2 02530000 NCSREMPO EQU NCSPLFL2 02531000 NCSPLDS EQU NCSPLFL2 02532000 NCSOUFMC EQU NCSPLFL2 02533000 NCSPLRIO EQU NCSPLFL2 02534000 NCSPLRSF EQU NCSPLFL2 02535000 NCSPLVDP EQU NCSPLFL2 02536000 NCSPLPOS EQU NCSPLFL1 02537000 NCSPL2CN EQU NCSPLFL1 02538000 NCSPLAPU EQU NCSPLFL1 02539000 NCSPLNON EQU NCSPLFL1 02540000 NCSPLEBN EQU NCSPLFL1 02541000 NCSPLSOM EQU NCSPLFL1 02542000 NCSPL2IN EQU NCSPLFL1 02543000 NCSPLRCR EQU ISTNCSPL+172 02544000 NCSPLECB EQU ISTNCSPL+164 02545000 NCSPLDAF EQU NCSPLCID+2 02546000 NCSPLSAF EQU NCSPLCID 02547000 NCSPLRCD EQU NCSPLRAD+1 02548000 NCSLSCMD EQU NCSPLRAD 02549000 NCSPLWRF EQU ISTNCSPL+72 02550000 NCSPLWRE EQU ISTNCSPL+68 02551000 NCSSTCMD EQU NCSCRFLG 02552000 NCSUSRNF EQU NCSCRFLG 02553000 NCSOPRQU EQU NCSCRFLG 02554000 NCSCRDSE EQU NCSCRFLG 02555000 NCSFMERP EQU NCSCRFLG 02556000 NCSFMCLD EQU NCSCRFLG 02557000 NCSPLCLD EQU NCSCRFLG 02558000 NCSPLWRM EQU NCSCRFLG 02559000 NCSPLUAD EQU ISTNCSPL+64 02560000 NCSMSGSP EQU ISTNCSPL+63 02561000 NCSNCPEP EQU ISTNCSPL+62 02562000 NCSCMDB EQU NCSPLCMD+1 02563000 @NM00065 EQU NCSCMDA 02564000 NCSPLUFM EQU NCSCMDA 02565000 NCSPLFLO EQU NCSCMDA 02566000 NCSPLSYN EQU NCSCMDA 02567000 NCSPLCTL EQU NCSCMDA 02568000 NCSPLSYS EQU NCSCMDA 02569000 NCSPLLPT EQU ISTNCSPL+56 02570000 NCSCRPID EQU ISTNCSPL+51 02571000 NCSCRCMD EQU ISTNCSPL+50 02572000 NCSDLID EQU ISTNCSPL+44 02573000 NCSPLLID EQU ISTNCSPL+36 02574000 NCSRRNPT EQU ISTNCSPL+24 02575000 NCSIORC EQU ISTNCSPL+23 02576000 NCSPRMRC EQU ISTNCSPL+22 02577000 NCSOVFMC EQU NCSPLVF1 02578000 NCSRSV02 EQU NCSPLVFL 02579000 NCSDACLK EQU NCSPLVFL 02580000 NCSABCON EQU NCSPLVFL 02581000 NCSDCONT EQU NCSPLVFL 02582000 NCSVSTAT EQU NCSPLVFL 02583000 NCSVDEL EQU NCSPLVFL 02584000 NCSVNCSA EQU NCSPLVFL 02585000 NCSVBF16 EQU NCSPLVBF+1 02586000 NCSVBF15 EQU NCSPLVBF+1 02587000 NCSVBF14 EQU NCSPLVBF+1 02588000 NCSVBF13 EQU NCSPLVBF+1 02589000 NCSVBF12 EQU NCSPLVBF+1 02590000 NCSVBF11 EQU NCSPLVBF+1 02591000 NCSVBF10 EQU NCSPLVBF+1 02592000 NCSVBF09 EQU NCSPLVBF+1 02593000 NCSVBF08 EQU NCSPLVBF 02594000 NCSVBF07 EQU NCSPLVBF 02595000 NCSVBF06 EQU NCSPLVBF 02596000 NCSVBF05 EQU NCSPLVBF 02597000 NCSVBF04 EQU NCSPLVBF 02598000 NCSVBF03 EQU NCSPLVBF 02599000 NCSVBF02 EQU NCSPLVBF 02600000 NCSVBF01 EQU NCSPLVBF 02601000 @NM00064 EQU ISTNCSPL+16 02602000 NCSCRWKA EQU NCSPFX+12 02603000 @NM00063 EQU NCSPFX 02604000 PFXBCK EQU ISTPFX+12 02605000 PFXFWD EQU ISTPFX+8 02606000 PFXLNG EQU ISTPFX+5 02607000 PFXPRTY EQU ISTPFX+4 02608000 PFXCBID EQU PFXID 02609000 POHID EQU ISTPOHD+2 02610000 POHGEN EQU POHSTAT 02611000 POHRREQ EQU POHSTAT 02612000 POHRSVD2 EQU POHSTAT 02613000 POHCNTRL EQU POHSTAT 02614000 POHLBL EQU POHSTAT 02615000 POHDATA EQU POHSTAT 02616000 POHEND EQU POHSTAT 02617000 POHRSVD1 EQU ISTPOHD 02618000 TIEGATE EQU TIETIEA 02619000 TIERETCD EQU ISTTIE+2 02620000 ISTPDAVP EQU ISTAVT+40 02621000 ISTAVR01 EQU ISTAVT+38 02622000 ISTVTTP EQU ISTAVT+36 02623000 ISTAGTWT EQU ISTAVT+34 02624000 ISTATRT EQU ISTAVT+32 02625000 ISTARID EQU ISTAVT+30 02626000 ISTX1 EQU ISTAVT+29 02627000 ISTPHNM EQU ISTAVT+24 02628000 ISTAPSEX EQU ISTAVT+20 02629000 ISTVTTIK EQU ISTAVT+18 02630000 AVTASID EQU ISTAVT+16 02631000 ISTAPSTA EQU ISTAVT+12 02632000 ISTAS53 EQU ISTAVT+8 02633000 ISTAHIP EQU ISTAS49 02634000 ISTACVT EQU ISTAVT 02635000 ATCAOS EQU ISTATCVT+1584 02636000 ATCPOPAB EQU ATCAOSM+640 02637000 ATCVIOPM EQU ATCAOSM+636 02638000 ATCTPMMI EQU ATCAOSM+632 02639000 ATCTPMPB EQU ATCAOSM+600 02640000 ATCRSV88 EQU ATCAOSM+596 02641000 ATCRPLCT EQU ATCAOSM+594 02642000 ATCCRACT EQU ATCAOSM+592 02643000 ATCSRBCT EQU ATCAOSM+590 02644000 ATCRSV75 EQU ATCAOSM+589 02645000 ATCRSV66 EQU ATCZFLAG 02646000 ATCZF001 EQU ATCZFLAG 02647000 ATCTPCP1 EQU ATCAOSM+584 02648000 ATCTPCP0 EQU ATCAOSM+580 02649000 ATCAICTN EQU ATCAOSM+576 02650000 ATCZR01 EQU ATCAOSM+572 02651000 ATCMPLTA EQU ATCAOSM+568 02652000 ATCASCB EQU ATCAOSM+564 02653000 ATCAP86 EQU ATCAOSM+560 02654000 ATCAP85 EQU ATCAOSM+556 02655000 ATCAP84 EQU ATCAOSM+552 02656000 ATCAP83 EQU ATCAOSM+548 02657000 ATCAP82 EQU ATCAOSM+544 02658000 ATCAP69 EQU ATCAOSM+540 02659000 ATCAP66 EQU ATCAOSM+536 02660000 ATCAP62 EQU ATCAOSM+532 02661000 ATCAPC59 EQU ATCAOSM+528 02662000 ATCAP56 EQU ATCAOSM+524 02663000 ATCAP55 EQU ATCAOSM+520 02664000 ATCRCFY0 EQU ATCAOSM+516 02665000 ATCAP41 EQU ATCAOSM+512 02666000 ATCAPC25 EQU ATCAOSM+508 02667000 ATCAP23 EQU ATCAOSM+504 02668000 ATCTPSPB EQU ATCAOSM+472 02669000 ATCTRMPB EQU ATCAOSM+440 02670000 ATCAPBE EQU ATCAOSM+436 02671000 ATCPSTA EQU ATCAOSM+432 02672000 ATCSMABF EQU ATCAOSM+428 02673000 ATCSMAPR EQU ATCAOSM+424 02674000 ATCTPWQA EQU ATCAOSM+420 02675000 ATCSMAID EQU ATCAOSM+416 02676000 ATCSMARA EQU ATCAOSM+412 02677000 ATCCACXA EQU ATCAOSM+408 02678000 ATCZLAAB EQU ATCAOSM+404 02679000 ATCATA10 EQU ATCAOSM+400 02680000 ATCHLTCB EQU ATCAOSM+396 02681000 @NM00061 EQU ATCVTFLG 02682000 ATCVTACT EQU ATCVTFLG 02683000 ATCRPT40 EQU ATCAOSM+388 02684000 ATCRPT39 EQU ATCAOSM+384 02685000 ATCRPT38 EQU ATCAOSM+380 02686000 ATCRPT37 EQU ATCAOSM+376 02687000 ATCRPT36 EQU ATCAOSM+372 02688000 ATCRPT35 EQU ATCAOSM+368 02689000 ATCRPT34 EQU ATCAOSM+364 02690000 ATCRPT33 EQU ATCAOSM+360 02691000 ATCRPT32 EQU ATCAOSM+356 02692000 ATCRPT31 EQU ATCAOSM+352 02693000 ATCRPT30 EQU ATCAOSM+348 02694000 ATCOCWCB EQU ATCAOSM+344 02695000 ATCOCWOB EQU ATCAOSM+340 02696000 ATCRPT27 EQU ATCAOSM+336 02697000 @NM00060 EQU ATCAOSM+333 02698000 @NM00059 EQU @NM00058 02699000 ATCSNUF EQU @NM00058 02700000 ATCOPKL EQU @NM00058 02701000 ATCABEN EQU @NM00058 02702000 ATCAIWT EQU ATCAOSM+328 02703000 ATCINFDD EQU ATCAOSM+324 02704000 ATCORFMG EQU ATCAOSM+320 02705000 ATCORFRL EQU ATCAOSM+316 02706000 ATCOROBT EQU ATCAOSM+312 02707000 ATCORQG EQU ATCORSRB 02708000 ATCORTBF EQU ATCSQAFR 02709000 ATCRPLAC EQU ATCRPLCN+2 02710000 ATCRPLRC EQU ATCRPLCN 02711000 ATCCRPLQ EQU ATCCRPL 02712000 ATCSRBAC EQU ATCSRBCN+2 02713000 ATCSRBRC EQU ATCSRBCN 02714000 ATCSRBQ EQU ATCSRB 02715000 ATCCRAAC EQU ATCCRACN+2 02716000 ATCCRARC EQU ATCCRACN 02717000 ATCCRAQ EQU ATCCRA 02718000 ATCRPT12 EQU ATCAOSM+276 02719000 ATCDMAPP EQU ATCAOSM+272 02720000 ATCAP38 EQU ATCAOSM+268 02721000 ATCZDFJ0 EQU ATCAOSM+260 02722000 ATCAP51 EQU ATCAOSM+256 02723000 ATCZPAB2 EQU ATCAOSM+224 02724000 ATCZPAB1 EQU ATCAOSM+192 02725000 ATCZLFVT EQU ATCAOSM+188 02726000 ATCZLPVT EQU ATCAOSM+184 02727000 ATCZDVTX EQU ATCAOSM+180 02728000 ATCZDVTA EQU ATCAOSM+176 02729000 ATCZDVT9 EQU ATCAOSM+172 02730000 ATCZDVT8 EQU ATCAOSM+168 02731000 ATCZDVT7 EQU ATCAOSM+164 02732000 ATCRSV56 EQU ATCDAPVT+22 02733000 ATCDAPDG EQU ATCDAPVT+20 02734000 ATCDXCEA EQU ATCDAPVT+16 02735000 ATCDCEA EQU ATCDAPVT+12 02736000 ATCDPCIA EQU ATCDAPVT+8 02737000 ATCDSIOA EQU ATCDAPVT+4 02738000 ATCDEOEA EQU ATCDAPVT 02739000 ATCZLAEA EQU ATCLDAPP+16 02740000 ATCZLCEA EQU ATCLDAPP+12 02741000 ATCRSV17 EQU ATCLDAPP+8 02742000 ATCSMFRR EQU ATCLDAPP+4 02743000 ATCCDTID EQU ATCLDAPP 02744000 ATCZAEA EQU ATCICAPP+16 02745000 ATCZCEA EQU ATCICAPP+12 02746000 ATCCDTCB EQU ATCICAPP+8 02747000 ATCZSIOA EQU ATCICAPP+4 02748000 ATCCDRPH EQU ATCICAPP 02749000 ATCAP65 EQU ATCAOSM+96 02750000 ATCZDVT6 EQU ATCAOSM+92 02751000 ATCZDVT4 EQU ATCAOSM+88 02752000 ATCZDVT3 EQU ATCAOSM+84 02753000 ATCZDVT1 EQU ATCAOSM+80 02754000 ATCICNCB EQU ATCAOSM+76 02755000 ATCZPSVT EQU ATCAOSM+72 02756000 ATCZFSVT EQU ATCAOSM+68 02757000 ATCAP64 EQU ATCAOSM+64 02758000 ATCAP63 EQU ATCAOSM+60 02759000 ATCAP61 EQU ATCAOSM+56 02760000 ATCAP58 EQU ATCAOSM+52 02761000 ATCAP57 EQU ATCAOSM+48 02762000 ATCAP54 EQU ATCAOSM+44 02763000 ATCAP53 EQU ATCAOSM+40 02764000 ATCAP52 EQU ATCAOSM+36 02765000 ATCAP12 EQU ATCAOSM+20 02766000 ATCAP11 EQU ATCAOSM+16 02767000 ATCCMTCB EQU ATCAOSM+12 02768000 ATCPRPH EQU ATCAOSM+8 02769000 ATCGSRBF EQU ATCGSRBG 02770000 ATCSRBRT EQU ATCAOSM 02771000 @NM00057 EQU @NM00056 02772000 ATCVTMAB EQU @NM00056 02773000 @NM00055 EQU ATCVTBAM 02774000 ATCVDLOK EQU ISTATCVT+904 02775000 ATCVFPAB EQU ISTATCVT+872 02776000 ATCVDPAB EQU ISTATCVT+840 02777000 ATCIOECB EQU ISTATCVT+836 02778000 ATCINCW3 EQU ISTATCVT+832 02779000 ATCMODTB EQU ISTATCVT+828 02780000 ATCUSSPT EQU ISTATCVT+824 02781000 ATCSRTAB EQU ISTATCVT+820 02782000 @NM00054 EQU ISTATCVT+819 02783000 @NM00053 EQU ATCSTAT2 02784000 ATCTRSMS EQU ATCSTAT2 02785000 ATCTRLOK EQU ATCSTAT2 02786000 ATCTRPSS EQU ATCSTAT2 02787000 ATCTRESC EQU ATCSTAT2 02788000 ATCTRAPI EQU ATCSTAT2 02789000 ATCNMCTR EQU ISTATCVT+816 02790000 ATCSEC51 EQU ATCSECST 02791000 ATCSEC40 EQU ATCSIPD+8 02792000 ATCSEC30 EQU ATCSIPD+4 02793000 ATCSEC21 EQU ATCSIPD 02794000 ATCSEC10 EQU ATCSOPD+4 02795000 ATCSEC01 EQU ATCSOPD 02796000 ATCPOIA EQU ATCRNO+1 02797000 @NM00052 EQU ATCRNO 02798000 ATCPODVT EQU ISTATCVT+784 02799000 ATCS49XL EQU ISTATCVT+780 02800000 ATCS49XI EQU ISTATCVT+776 02801000 ATCLCLCT EQU ATCVLCNT+2 02802000 ATCRNCNT EQU ATCVLCNT 02803000 ATCCFEAD EQU ISTATCVT+768 02804000 ATCPTR00 EQU ISTATCVT+736 02805000 ATCRSV10 EQU ISTATCVT+704 02806000 ATCTACB EQU ISTATCVT+700 02807000 ATCVTINM EQU ISTATCVT+696 02808000 ATCTCLIM EQU ISTATCVT+692 02809000 ATCTCLOM EQU ISTATCVT+688 02810000 ATCVTIPB EQU ISTATCVT+656 02811000 ATCTIPAB EQU ISTATCVT+592 02812000 ATCOCCCB EQU ISTATCVT+588 02813000 ATCOCCOB EQU ISTATCVT+584 02814000 ATCCDLAD EQU ISTATCVT+580 02815000 ATCCCLAD EQU ISTATCVT+576 02816000 ATCDLRPB EQU ISTATCVT+544 02817000 ATCPGPAB EQU ISTATCVT+512 02818000 ATCVPAB1 EQU ISTATCVT+480 02819000 ATCRSV97 EQU ISTATCVT+476 02820000 ATCRDTLK EQU ISTATCVT+472 02821000 ATCVOCLK EQU ISTATCVT+468 02822000 ATCCDFDN EQU ISTATCVT+464 02823000 ATCCDFIN EQU ISTATCVT+460 02824000 ATCDVTLK EQU ISTATCVT+456 02825000 ATCAP36 EQU ISTATCVT+452 02826000 ATCAP35 EQU ISTATCVT+448 02827000 ATCAP33 EQU ISTATCVT+444 02828000 ATCRSV99 EQU ISTATCVT+440 02829000 ATCONFIG EQU ISTATCVT+432 02830000 ATCNODDS EQU ISTATCVT+428 02831000 ATCNODEL EQU ISTATCVT+420 02832000 ATCRSV69 EQU ISTATCVT+416 02833000 ATCAPCR5 EQU ISTATCVT+412 02834000 ATCLDECB EQU ISTATCVT+408 02835000 ATCLDNCS EQU ISTATCVT+404 02836000 ATCCDPTR EQU ISTATCVT+400 02837000 ATCADEL EQU ISTATCVT+396 02838000 ATCTODVT EQU ISTATCVT+392 02839000 ATCDEBCH EQU ISTATCVT+388 02840000 ATCHBSIZ EQU ATCHPGM+2 02841000 ATCHBFNO EQU ATCHPGM 02842000 ATCCRME EQU ISTATCVT+380 02843000 ATCRVCHS EQU ISTATCVT+372 02844000 ATCECTLP EQU ISTATCVT+368 02845000 ATCZDVTB EQU ISTATCVT+364 02846000 ATCECPRT EQU ISTATCVT+360 02847000 ATCVTLOD EQU ISTATCVT+356 02848000 ATCTRPAB EQU ISTATCVT+352 02849000 ATCMSGM EQU ISTATCVT+348 02850000 ATCEPT EQU ISTATCVT+340 02851000 ATCDVT EQU ISTATCVT+336 02852000 ATCTRCPT EQU ISTATCVT+332 02853000 ATCDVLOD EQU ISTATCVT+328 02854000 ATCALERT EQU ISTATCVT+324 02855000 ATCEPA EQU ISTATCVT+320 02856000 ATCSAF EQU ISTATCVT+318 02857000 ATCXRANG EQU ISTATCVT+317 02858000 ATCLAST EQU ATCSHRFG 02859000 ATCSHRTN EQU ISTATCVT+308 02860000 ATCUEP EQU ISTATCVT+304 02861000 ATCOCRT EQU ISTATCVT+300 02862000 ATCCSMA EQU ATCCSMR 02863000 ATCESC02 EQU ISTATCVT+292 02864000 ATCCDFND EQU ISTATCVT+284 02865000 ATCCDDEL EQU ISTATCVT+280 02866000 ATCCDADD EQU ISTATCVT+276 02867000 ATCMNT EQU ISTATCVT+272 02868000 ATCRSV16 EQU ISTATCVT+270 02869000 ATCMAXID EQU ISTATCVT+269 02870000 ATCMSGSP EQU ATCCOM+268 02871000 ATCCIDM EQU ATCCOM+266 02872000 ATCACTRM EQU ATCCOM+264 02873000 ATCNERAP EQU ATCCOM+260 02874000 ATCNESAL EQU ATCCOM+256 02875000 ATCRCC65 EQU ATCCOM+252 02876000 ATCRCC26 EQU ATCCOM+248 02877000 ATCRCC63 EQU ATCCOM+244 02878000 ATCRSV11 EQU ATCCOM+242 02879000 ATCVTMID EQU ATCCOM+240 02880000 ATCAPOST EQU ATCCOM+236 02881000 ATCNERFN EQU ATCCOM+232 02882000 ATCNERNE EQU ATCCOM+228 02883000 ATCNERCV EQU ATCCOM+224 02884000 ATCNERST EQU ATCCOM+220 02885000 ATCDCC61 EQU ATCCOM+216 02886000 ATCDCC60 EQU ATCCOM+212 02887000 ATCSRTDF EQU ATCCOM+208 02888000 ATCSRTAD EQU ATCCOM+204 02889000 ATCFIRA EQU ATCCOM+200 02890000 ATCSMBQ EQU ATCCOM+196 02891000 ATCSMRC EQU ATCCOM+192 02892000 ATCSMQU EQU ATCCOM+184 02893000 ATCACDA EQU ATCCOM+176 02894000 ATCSTMA EQU ATCCOM+172 02895000 ATCFRSTR EQU ATCCOM+168 02896000 ATCREADA EQU ATCCOM+160 02897000 ATCALOAD EQU ATCCOM+156 02898000 ATCBLDLA EQU ATCCOM+152 02899000 ATCFBRPH EQU ATCCOM+148 02900000 ATCBFTRC EQU ATCCOM+144 02901000 ATCTPBUF EQU ATCTHTRC 02902000 ATCREMOV EQU ATCCOM+136 02903000 ATCADD EQU ATCCOM+132 02904000 ATCDVTPT EQU ATCCOM+124 02905000 ATCFEPT EQU ATCCOM+120 02906000 ATCFDVT EQU ATCCOM+116 02907000 ATCCONFT EQU ATCCOM+112 02908000 ATCPTCHA EQU ATCCOM+108 02909000 ATCAUTHA EQU ATCCOM+104 02910000 ATCACCTA EQU ATCCOM+100 02911000 ATCRDTH EQU ATCCOM+96 02912000 ATCFRSCH EQU ATCCOM+92 02913000 ATCFSB EQU ATCCOM+88 02914000 ATCHLTMS EQU ATCCOM+84 02915000 ATCECPRM EQU ATCCOM+80 02916000 ATCECNET EQU ATCCOM+76 02917000 ATCECOPC EQU ATCCOM+72 02918000 ATCVPARM EQU ATCCOM+68 02919000 ATCECVRQ EQU ATCCOM+64 02920000 ATCECSES EQU ATCCOM+60 02921000 ATCOCHA EQU ATCCOM+56 02922000 ATCDSPLQ EQU ATCCOM+52 02923000 ATCECDSP EQU ATCCOM+48 02924000 ATCVARYQ EQU ATCCOM+44 02925000 ATCECVRY EQU ATCCOM+40 02926000 ATCHALTQ EQU ATCCOM+36 02927000 ATCECHLT EQU ATCCOM+32 02928000 ATCMODQ EQU ATCCOM+28 02929000 ATCECMOD EQU ATCCOM+24 02930000 ATCASCHD EQU ATCCOM+20 02931000 ATCSRT EQU ATCCOM+16 02932000 ATCRDT EQU ATCCOM+12 02933000 ATCDCFRR EQU ATCCOM+8 02934000 ATCAPI EQU ATCCOM+4 02935000 ATCRSV04 EQU ATCSTAT4 02936000 ATCVTTRC EQU ATCSTAT4 02937000 ATCNCSD EQU ATCSTAT4 02938000 ATCMTST EQU ATCSTAT4 02939000 ATCTPRT EQU ATCSTAT4 02940000 ATCPRTAT EQU ATCSTAT4 02941000 @NM00051 EQU ATCPOFLG 02942000 ATCPOUNS EQU ATCPOFLG 02943000 ATCHSDMF EQU ATCSTFLG 02944000 @NM00050 EQU ATCSTAT1 02945000 ATCMDHLT EQU ATCSTAT1 02946000 ATCINHLT EQU ATCSTAT1 02947000 ATCNETSL EQU ATCSTAT1 02948000 ATCQKHLT EQU ATCSTAT1 02949000 ATCSNHLT EQU ATCSTAT1 02950000 ATCACTIV EQU ATCSTAT1 02951000 ATCSTART EQU ATCSTAT1 02952000 FSBRSV01 EQU FSBFSB+30 02953000 FSBTHCNT EQU FSBFSB+28 02954000 FSBRLRSV EQU FSBRLSTS 02955000 FSBCFTX EQU FSBRLSTS 02956000 FSBICNCB EQU FSBMSGID 02957000 FSBSSOC EQU FSBSS2 02958000 FSBSSCC EQU FSBSS2 02959000 FSBSSDC EQU FSBSS2 02960000 FSBSSEC EQU FSBSS2 02961000 FSBSSIR EQU FSBSS2 02962000 FSBSSCR EQU FSBSS2 02963000 @NM00048 EQU FSBSS2 02964000 @NM00047 EQU FSBSS1 02965000 FSBSSDE EQU FSBSS1 02966000 FSBSSUS EQU FSBSS1 02967000 @NM00046 EQU FSBSS1 02968000 FSBSOHI EQU FSBERC 02969000 FSBLGI EQU FSBERC 02970000 FSBLMRI EQU FSBFBMI 02971000 FSBETI EQU FSBERC 02972000 FSBEMI EQU FSBERC 02973000 FSBEBI EQU FSBERC 02974000 FSBECI EQU FSBERC 02975000 FSBMJRCD EQU FSBSRCAT 02976000 FSBXLCI EQU FSBXCODE 02977000 FSBXFINS EQU FSBXCODE 02978000 FSBXNORM EQU FSBXFSTS 02979000 FSBSCODE EQU FSBSYSRS 02980000 FSBSPHSE EQU FSBSYSRS 02981000 FSBSERR EQU FSBSYSRS 02982000 FSBCMD EQU FSBSEQ 02983000 FSBDTRCE EQU FSBFLAGS 02984000 FSBASBTU EQU FSBFLAGS 02985000 FSBINPET EQU FSBFLAGS 02986000 FSBNONCB EQU FSBFLAGS 02987000 FSBLBIND EQU FSBFLAGS 02988000 FSBFFIND EQU FSBFLAGS 02989000 FSBACIND EQU FSBFLAGS 02990000 FSBRFIND EQU FSBFLAGS 02991000 FSBDAF EQU FSBCID+2 02992000 FSBSAF EQU FSBCID 02993000 FSBGATE EQU FSBFSBA 02994000 FSBLATOP EQU FSBSFLGS 02995000 FSBRSV02 EQU FSBSFLGS 02996000 FSBPGBUF EQU FSBSFLGS 02997000 FSBMNSDA EQU FSBMNRCD 02998000 FSBMNOA EQU FSBMNRCD 02999000 FSBMNDIF EQU FSBMNRCD 03000000 FSBMNEOP EQU FSBMNRCD 03001000 FSBMNDNU EQU FSBMNRCD 03002000 FSBMNATN EQU FSBMNRCD 03003000 FSBMNRVI EQU FSBMNRCD 03004000 FSBMNELI EQU FSBMNRCD 03005000 FSBLNGTH EQU FSBFSB+1 03006000 FSBTYPE EQU FSBFSB 03007000 FDBDATCT EQU ISTFDB+8 03008000 NSRUDATA EQU ISTNSRU+3 03009000 NSRUSUB EQU ISTNSRU+1 03010000 NSRUID EQU ISTNSRU 03011000 LDNZS00F EQU LDNZH003+1 03012000 LDNZS00E EQU LDNZH003+1 03013000 LDNZS00D EQU LDNZH003+1 03014000 LDNZS00C EQU LDNZH003+1 03015000 LDNZS00B EQU LDNZH003+1 03016000 LDNZS007 EQU LDNZH003 03017000 LDNZS006 EQU LDNZH003 03018000 LDNZS005 EQU LDNZH003 03019000 LDNZS004 EQU LDNZH003 03020000 LDNZS003 EQU LDNZH003 03021000 LDNZS002 EQU LDNZH003 03022000 LDNZS001 EQU LDNZH003 03023000 LDNZS000 EQU LDNZH003 03024000 LDNZX006 EQU ISTLDNCB+576 03025000 LDNZC001 EQU ISTLDNCB+569 03026000 LDNZX005 EQU ISTLDNCB+568 03027000 LDNZV006 EQU ISTLDNCB+564 03028000 LDNSRB EQU ISTLDNCB+520 03029000 LDNIOSB EQU ISTLDNCB+412 03030000 @NM00045 EQU LDNZSAV3+28 03031000 LDNRSV06 EQU LDNZSAV4+16 03032000 LDNZSAV6 EQU LDNZSAV4+12 03033000 LDNZSAV5 EQU LDNZSAV4 03034000 LDNZSAVE EQU LDNZSAV3 03035000 LDNZSAV2 EQU ISTLDNCB+368 03036000 LDNZSAV1 EQU ISTLDNCB+352 03037000 LDNZ3RR EQU ISTLDNCB+348 03038000 LDNZ2RR EQU ISTLDNCB+344 03039000 LDNZ1RR EQU ISTLDNCB+340 03040000 LDNRSV0B EQU ISTLDNCB+336 03041000 LDNRSV0A EQU ISTLDNCB+332 03042000 LDNRSV09 EQU ISTLDNCB+328 03043000 LDNRSV08 EQU ISTLDNCB+324 03044000 LDNRSV07 EQU ISTLDNCB+320 03045000 LDNDEAD EQU LDNDCDEB+12 03046000 LDNUCBAD EQU LDNDCDEB+8 03047000 LDNAPPAD EQU LDNDCDEB+5 03048000 LDNEXSCL EQU LDNDCDEB+4 03049000 LDNDCBAD EQU LDNDCDEB+1 03050000 LDNDEBID EQU LDNDCDEB 03051000 LDNZRIND EQU ISTLDNCB+300 03052000 LDNRPH EQU ISTLDNCB+192 03053000 LDNZTCP EQU ISTLDNCB+188 03054000 LDNZCHNC EQU ISTLDNCB+187 03055000 LDNZLPC7 EQU LDNZLPC 03056000 LDNZLPC6 EQU LDNZLPC 03057000 LDNZLPC5 EQU LDNZLPC 03058000 LDNZLPC4 EQU LDNZLPC 03059000 LDNZLPC3 EQU LDNZLPC 03060000 LDNZLPC2 EQU LDNZLPC 03061000 LDNZLPC1 EQU LDNZLPC 03062000 LDNZLPC0 EQU LDNZLPC 03063000 LDNRSV05 EQU LDNZERPF 03064000 LDNZCTOV EQU LDNZEPIN 03065000 LDNZF001 EQU LDNZEPIN 03066000 LDNZFRDW EQU LDNZCPAN 03067000 LDNZFRD EQU LDNZCPAN 03068000 LDNZNARD EQU LDNZCPAN 03069000 LDNRSV04 EQU LDNZIOLK 03070000 LDNZATBF EQU LDNZIOLK 03071000 LDNZERLK EQU LDNZIOLK 03072000 LDNZDSIC EQU LDNZIOLK 03073000 LDNZPAB1 EQU ISTLDNCB+168 03074000 LDNZV005 EQU ISTLDNCB+160 03075000 LDNZS1VR EQU ISTLDNCB+136 03076000 LDNZS1RR EQU ISTLDNCB+132 03077000 LDNZS1FC EQU ISTLDNCB+128 03078000 LDNZS1BC EQU ISTLDNCB+124 03079000 LDNZLOCK EQU ISTLDNCB+120 03080000 LDNZFBUF EQU ISTLDNCB+116 03081000 LDNZLAST EQU ISTLDNCB+112 03082000 LDNRSV02 EQU LDNFLAG2 03083000 LDNZFF04 EQU LDNFLAG2 03084000 LDNZFF69 EQU LDNFLAGS+2 03085000 LDNTPBIO EQU LDNFLAGS+2 03086000 LDNZFF03 EQU LDNFLAGS+2 03087000 LDNZFF02 EQU LDNFLAGS+2 03088000 LDNZFF01 EQU LDNFLAGS+2 03089000 LDNZFF00 EQU LDNFLAGS+2 03090000 LDNCLOSD EQU LDNFLAGS+2 03091000 LDNZENTR EQU LDNFLAGS+2 03092000 LDNZICCW EQU LDNFLAGS+1 03093000 LDNZREC EQU LDNFLAGS+1 03094000 LDNZCTXT EQU LDNFLAGS+1 03095000 LDNZATLK EQU LDNFLAGS+1 03096000 LDNZCHNE EQU LDNFLAGS+1 03097000 LDNZATTP EQU LDNFLAGS+1 03098000 LDNZIOBY EQU LDNFLAGS+1 03099000 LDNZF00A EQU LDNFLAGS+1 03100000 LDNZF009 EQU LDNFLAGS 03101000 LDNZF008 EQU LDNFLAGS 03102000 LDNZF007 EQU LDNFLAGS 03103000 LDNZF006 EQU LDNFLAGS 03104000 LDNZF005 EQU LDNFLAGS 03105000 LDNZF004 EQU LDNFLAGS 03106000 LDNZF003 EQU LDNFLAGS 03107000 LDNZF002 EQU LDNFLAGS 03108000 LDNZHDCC EQU ISTLDNCB+106 03109000 LDNZARM EQU ISTLDNCB+104 03110000 LDNZRM EQU ISTLDNCB+102 03111000 LDNZRB EQU ISTLDNCB+100 03112000 LDNCPQ EQU ISTLDNCB+96 03113000 LDNSIOQ EQU ISTLDNCB+92 03114000 LDNZX002 EQU ISTLDNCB+91 03115000 LDNZX001 EQU ISTLDNCB+90 03116000 LDNZH002 EQU ISTLDNCB+88 03117000 LDNZV001 EQU ISTLDNCB+84 03118000 LDNZACSW EQU ISTLDNCB+76 03119000 LDNZC002 EQU ISTLDNCB+68 03120000 LDNCSWSV EQU ISTLDNCB+60 03121000 LDNCHFLD EQU ISTLDNCB+56 03122000 LDNRESRV EQU ISTLDNCB+55 03123000 @NM00044 EQU LDNCFLAG 03124000 LDNRMF EQU LDNCFLAG 03125000 LDNIBI EQU LDNCFLAG 03126000 LDNTSAF EQU ISTLDNCB+52 03127000 LDNCUUA EQU ISTLDNCB+48 03128000 LDNCB EQU ISTLDNCB 03129000 NCBRSV01 EQU ISTNCB+46 03130000 NCBSWDAF EQU ISTNCB+44 03131000 NCBDEVCH EQU ISTNCB+36 03132000 NCBFMCBP EQU ISTNCB+32 03133000 NCBLTRC EQU ISTNCB+30 03134000 NCBRVPT1 EQU ISTNCB+28 03135000 NCBNMLLN EQU NCBFLAGS+3 03136000 @NM00043 EQU NCBFLAG1 03137000 NCBFORCE EQU NCBFLAG1 03138000 NCBTTF EQU NCBFLAG1 03139000 NCBRSYNC EQU NCBFLAG1 03140000 NCBRSTRT EQU NCBFLAG1 03141000 NCBCONF EQU NCBFLAG1 03142000 NCBSNAI EQU NCBFLAG1 03143000 NCBFLTIO EQU NCBFTRIO 03144000 NCBCSTAT EQU NCBFLAGS 03145000 NCBNCSL EQU ISTNCB+22 03146000 NCBNCBA EQU ISTNCB+20 03147000 NCBFMCBA EQU ISTNCB+16 03148000 NCBNSNA EQU ISTNCB+12 03149000 NCBTSKID EQU ISTNCB+8 03150000 NCBDAF EQU ISTNCB+2 03151000 NCBLNGTH EQU ISTNCB+1 03152000 NCBTYPE EQU ISTNCB 03153000 FMCFLRSV EQU FMCFLGB 03154000 FMCFLGA8 EQU FMCFLGB 03155000 FMCCLRPH EQU FMCVS1+45 03156000 FMCRSV0X EQU FMCCVFLG 03157000 FMCFRRPH EQU FMCCVFLG 03158000 FMCOWRPH EQU FMCCVFLG 03159000 FMCCDRPH EQU FMCCVFLG 03160000 FMCPSRPH EQU FMCCVFLG 03161000 FMCVYRPH EQU FMCCVFLG 03162000 FMCZV004 EQU FMCVS1+40 03163000 FMCLOCK2 EQU FMCVS1+36 03164000 @NM00042 EQU FMCZFLG2 03165000 FMCZF027 EQU FMCZFLG2 03166000 FMCZF026 EQU FMCZFLG2 03167000 FMCSEQ1B EQU FMCSEQ1 03168000 FMCSEQ1T EQU FMCSEQ1 03169000 FMCZX006 EQU FMCVS1+33 03170000 FMCZX005 EQU FMCVS1+32 03171000 FMCZX004 EQU FMCVS1+31 03172000 FMCZX003 EQU FMCVS1+30 03173000 FMCZX002 EQU FMCVS1+29 03174000 FMCZX001 EQU FMCVS1+28 03175000 FMCZV001 EQU FMCVS1+24 03176000 FMCAWATQ EQU FMCLCPAQ+1 03177000 @NM00041 EQU FMCLCPAQ 03178000 FMCLCPB2 EQU FMCLCPBQ+1 03179000 FMCLCPB1 EQU FMCLCPBQ 03180000 FMCASCDQ EQU FMCSHEAQ+1 03181000 @NM00040 EQU FMCSHEAQ 03182000 FMCSHEDQ EQU FMCVS1+8 03183000 FMCZFCSQ EQU FMCVS1+6 03184000 FMCZH001 EQU FMCVS1+4 03185000 FMCZF025 EQU FMCZFLAG+3 03186000 FMCZF024 EQU FMCZFLAG+3 03187000 FMCZF023 EQU FMCZFLAG+3 03188000 FMCZF022 EQU FMCZFLAG+3 03189000 FMCZF021 EQU FMCZFLAG+3 03190000 FMCZF020 EQU FMCZFLAG+3 03191000 FMCZF019 EQU FMCZFLAG+3 03192000 FMCZF018 EQU FMCZFLAG+3 03193000 FMCZF017 EQU FMCZFLAG+2 03194000 FMCZF016 EQU FMCZFLAG+2 03195000 FMCZF015 EQU FMCZFLAG+2 03196000 FMCZF014 EQU FMCZFLAG+2 03197000 FMCZF013 EQU FMCZFLAG+2 03198000 FMCZF012 EQU FMCZFLAG+2 03199000 FMCZF011 EQU FMCZFLAG+2 03200000 FMCZF010 EQU FMCZFLAG+2 03201000 FMCZF00F EQU FMCZFLAG+1 03202000 FMCZF00E EQU FMCZFLAG+1 03203000 FMCZF00D EQU FMCZFLAG+1 03204000 FMCZF00C EQU FMCZFLAG+1 03205000 FMCZF00B EQU FMCZFLAG+1 03206000 FMCRSV10 EQU FMCZFLAG+1 03207000 FMCZF009 EQU FMCZFLAG+1 03208000 FMCZFD06 EQU FMCZF006+1 03209000 FMCZFC06 EQU FMCZF006 03210000 FMCZFB06 EQU FMCZF006 03211000 FMCZFA06 EQU FMCZF006 03212000 FMCZF005 EQU FMCZFLAG 03213000 FMCZF004 EQU FMCZFLAG 03214000 FMCZF003 EQU FMCZFLAG 03215000 FMCZF002 EQU FMCZFLAG 03216000 FMCZF001 EQU FMCZFLAG 03217000 FMCFRESA EQU ISTFMCB+228 03218000 FMCSCSQN EQU FMCSNCTL+2 03219000 FMCSCCTL EQU FMCSNCTL+1 03220000 FMCSTCTL EQU FMCSCFLG 03221000 FMCSCCLO EQU FMCSCFLG 03222000 FMCAPRO EQU FMCSCFLG 03223000 FMCLURO EQU FMCSCFLG 03224000 FMCOBSAC EQU FMCSCFLG 03225000 FMCIBSAC EQU FMCSCFLG 03226000 FMCFBRE EQU ISTFMCB+220 03227000 FMCFBXM EQU FMCZV002 03228000 FMCASEGQ EQU ISTFMCB+212 03229000 FMCRDTPT EQU ISTFMCB+208 03230000 FMCLOCK EQU ISTFMCB+204 03231000 FMCSEGD EQU FMCSSEGQ 03232000 FMCRSPLM EQU ISTFMCB+198 03233000 FMCPSTRS EQU ISTFMCB+196 03234000 @NM00039 EQU FMCRRESP 03235000 FMCTSLHA EQU FMCRRESP 03236000 FMCFRRN EQU FMCRRESP 03237000 FMCFME EQU FMCRRESP 03238000 FMCFEX EQU FMCRRESP 03239000 FMCFPE EQU FMCRRESP 03240000 FMCCTLB EQU ISTFMCB+194 03241000 FMCBSQNO EQU FMCCLSEQ+2 03242000 FMCTSQNO EQU FMCCLSEQ 03243000 FMCOBPRG EQU FMCMODEB 03244000 FMCIBPRG EQU FMCMODEB 03245000 FMCRESOT EQU FMCMODEB 03246000 FMCRSTSR EQU FMCMODEB 03247000 FMCLUQ EQU FMCMODEB 03248000 FMCAPQ EQU FMCMODEB 03249000 FMCCLEAR EQU FMCMODEB 03250000 FMCHOLD EQU FMCMODEB 03251000 FMCIPSEQ EQU ISTFMCB+188 03252000 FMCLUSTR EQU ISTFMCB+187 03253000 FMCCDPIP EQU FMCSTAT2 03254000 FMCPSPIP EQU FMCSTAT2 03255000 FMCSEQI EQU FMCSTAT2 03256000 FMCCPIP EQU FMCSTAT2 03257000 FMCALIPR EQU FMCSTAT2 03258000 FMCIAIO EQU FMCSTAT2 03259000 FMCZF00A EQU FMCSTAT2 03260000 FMCVPIP EQU FMCSTAT2 03261000 FMCBHSET EQU ISTFMCB+185 03262000 FMCPRMRC EQU FMCCLEXT+20 03263000 FMCRSV89 EQU FMCPSTAT 03264000 FMCPCLSD EQU FMCPSTAT 03265000 FMCDDOCD EQU FMCPSTAT 03266000 FMCIDVFD EQU FMCPSTAT 03267000 FMCELKST EQU FMCPSTAT 03268000 FMCRSV88 EQU FMCPSCMD 03269000 FMCRDBLK EQU FMCPSCMD 03270000 FMCDSEOC EQU FMCPSCMD 03271000 FMCPURGE EQU FMCPSCMD 03272000 FMCRESTI EQU FMCPSCMD 03273000 FMCCNTCT EQU FMCPSCMD 03274000 FMCINVT EQU FMCPSCMD 03275000 FMCFLGB7 EQU FMCFLGCL 03276000 FMCFLGB6 EQU FMCFLGCL 03277000 FMCFLGB5 EQU FMCFLGCL 03278000 FMCFLGB4 EQU FMCFLGCL 03279000 FMCFLGB3 EQU FMCFLGCL 03280000 FMCFLGB2 EQU FMCFLGCL 03281000 FMCFLGB1 EQU FMCFLGCL 03282000 FMCFLGB0 EQU FMCFLGCL 03283000 FMCFLGA7 EQU FMCFLGA 03284000 FMCFLGA6 EQU FMCFLGA 03285000 FMCFLGA5 EQU FMCFLGA 03286000 FMCFLGA4 EQU FMCFLGA 03287000 FMCFLGA3 EQU FMCFLGA 03288000 FMCFLGA2 EQU FMCFLGA 03289000 FMCFLGA1 EQU FMCFLGA 03290000 FMCFLGA0 EQU FMCFLGA 03291000 FMCDCLOK EQU FMCCLEXT+12 03292000 FMCRAFM EQU FMCCLEXT+8 03293000 FMCFBPTR EQU FMCFBA+1 03294000 FMCFBRSV EQU FMCFBA 03295000 FMCRPLPT EQU FMCRPLA+1 03296000 FMCRPLRS EQU FMCRPLA 03297000 FMCPRCLS EQU FMCCVAL 03298000 FMCIBCE EQU FMCCVAL 03299000 FMCONLY EQU FMCOBCE 03300000 FMCLAST EQU FMCOBCE 03301000 FMCMIDLE EQU FMCOBCE 03302000 FMCFIRST EQU FMCOBCE 03303000 FMCCPCNT EQU FMCPACPC 03304000 FMCMPCNT EQU FMCPACEM 03305000 FMCNPCNT EQU FMCPACEN 03306000 FMCCONF EQU FMCSSTAT 03307000 FMCPURCH EQU FMCSSTAT 03308000 FMCNSALU EQU FMCSSTAT 03309000 FMCBIP EQU FMCSSTAT 03310000 FMCSDTR EQU FMCSSTAT 03311000 FMCUIPI EQU FMCSSTAT 03312000 FMCCIPI EQU FMCSSTAT 03313000 FMCSNBI EQU FMCSSTAT 03314000 FMCRVD01 EQU ISTFMCB+158 03315000 FMCISSN EQU ISTFMCB+156 03316000 FMCOASN EQU FMCNXOSC 03317000 FMCOSSN EQU FMCNXCFM 03318000 FMCSIP EQU FMCSIPA 03319000 FMCEXLST EQU ISTFMCB+144 03320000 FMCPAB5 EQU ISTFMCB+128 03321000 FMCPAB4 EQU ISTFMCB+112 03322000 FMCPAB3 EQU ISTFMCB+96 03323000 FMCPAB2 EQU ISTFMCB+80 03324000 FMCPAB1 EQU ISTFMCB+64 03325000 FMCFASYA EQU ISTFMCB+60 03326000 FMCMODE EQU ISTFMCB+52 03327000 FMCPROCD EQU ISTFMCB+48 03328000 FMCVWT EQU ISTFMCB+44 03329000 FMCRPLH EQU ISTFMCB+40 03330000 FMCBUFNB EQU FMCCMPS1+2 03331000 FMCBUFLM EQU FMCCMPS1 03332000 FMCDEBA EQU ISTFMCB+32 03333000 @NM00038 EQU FMCCMDFL 03334000 FMCSNA EQU FMCCMDFL 03335000 FMCVSNA EQU FMCCMDFL 03336000 FMCCMDR EQU FMCCMDFL 03337000 @NM00037 EQU ISTFMCB+30 03338000 @NM00036 EQU FMCSTAT1 03339000 FMCLTCLS EQU FMCSTAT1 03340000 FMCHPURG EQU FMCSTAT1 03341000 FMCVSP2 EQU FMCSTAT1 03342000 FMCVSP1 EQU FMCSTAT 03343000 FMCLTEAS EQU FMCSTAT 03344000 FMCZF007 EQU FMCSTAT 03345000 FMCDEDSC EQU FMCSTAT 03346000 FMCDEVOF EQU FMCSTAT 03347000 FMCDAPT EQU FMCSTAT 03348000 FMCPRMTE EQU FMCSTAT 03349000 FMCPRMTR EQU FMCSTAT 03350000 FMCUSFLD EQU ISTFMCB+24 03351000 FMCFMCBA EQU ISTFMCB+20 03352000 FMCDVTA EQU ISTFMCB+12 03353000 FMCTSKID EQU ISTFMCB+8 03354000 FMCNXTCB EQU ISTFMCB+4 03355000 FMCSAF EQU ISTFMCB+2 03356000 FMCLNGTH EQU ISTFMCB+1 03357000 FMCTYPE EQU ISTFMCB 03358000 PROSRDEF EQU PROSETM4 03359000 PRORSV47 EQU PROSETM4 03360000 PROSCON EQU PROSETM4 03361000 PRORSV46 EQU PROSETM3 03362000 PROSMONT EQU PROSETM3 03363000 PRORSV45 EQU PROSETM3 03364000 PROSNTO EQU PROSETM3 03365000 PRORSV44 EQU PROSETM3 03366000 PROCPUID EQU PROSETM3 03367000 PRORSV43 EQU PROSETM2 03368000 PROSNTFL EQU PROSETM2 03369000 PRORSV42 EQU PROSETM2 03370000 PRORSV41 EQU PROPROCS 03371000 PROMODC EQU PROPROC4 03372000 PROMODT EQU PROPROC4 03373000 PROMODM EQU PROPROC4 03374000 PROMODB EQU PROPROC4 03375000 PRORSV14 EQU PROPROC4 03376000 PRORSV13 EQU PROPROC4 03377000 PRORSV12 EQU PROPROC4 03378000 PROEIB EQU PROPROC4 03379000 PROMONT3 EQU PROPROC3 03380000 PROMONT2 EQU PROPROC3 03381000 PROMONIT EQU PROPROC3 03382000 PROSUBLK EQU PROPROC3 03383000 PRONTO EQU PROPROC3 03384000 PROLGIN EQU PROPROC3 03385000 PROERPI EQU PROPROC3 03386000 PRORSV07 EQU PROPROC3 03387000 PROCFTX EQU PROPROC2 03388000 PROEMLC EQU PROPROC2 03389000 PRONTFL EQU PROPROC2 03390000 PRORSV05 EQU PROPROC2 03391000 PRORSV04 EQU PROPROC2 03392000 PROLGOT EQU PROPROC2 03393000 PROERPO EQU PROPROC2 03394000 PRORSV03 EQU PROPROC2 03395000 PRORPLC EQU PROPROC1 03396000 PROCS EQU PROPROC1 03397000 PROCA EQU PROPROC1 03398000 PRORESPX EQU PROPROC1 03399000 PRODFASY EQU PROPROC1 03400000 PROXPOPT EQU PROPROC1 03401000 PROTRUNC EQU PROPROC1 03402000 PROASYIP EQU PROPROC1 03403000 DYPRSV01 EQU ISTDYPAB+12 03404000 DYPTSKID EQU ISTDYPAB+8 03405000 DYPCHAIN EQU ISTDYPAB+4 03406000 DYPFLGS EQU ISTDYPAB+2 03407000 DYPLNGTH EQU ISTDYPAB+1 03408000 DYPTYPE EQU ISTDYPAB 03409000 PABRPHA EQU PABRPHFG+1 03410000 PABNODQ EQU PABFLAGS 03411000 PABINHBT EQU PABFLAGS 03412000 PABERLOK EQU PABERRLK 03413000 PABSSN EQU PABFLAGS 03414000 PABDYNAM EQU PABFLAGS 03415000 PABNORPR EQU PABFLAGS 03416000 PABPRIOR EQU PABFLAGS 03417000 PABAPYP EQU PABFLAGS 03418000 PABDVTA EQU ISTPAB+9 03419000 PABOFFST EQU ISTPAB+8 03420000 PABRSV02 EQU PABCHAIN 03421000 PABDELAY EQU PABCHAIN 03422000 PABRUNNG EQU PABCHAIN 03423000 PABRESET EQU PABCHAIN 03424000 PABUNCON EQU PABCHAIN 03425000 PABCDP EQU PABCHAIN 03426000 PABRESCH EQU PABCHAIN 03427000 PABCHNG EQU PABCHAIN 03428000 PABWEQP EQU PABWEQA+1 03429000 PABRSV01 EQU PABWEQA 03430000 PABWEQG EQU PABWEQA 03431000 DCLECHAR EQU ISTDCLCP+98 03432000 DCLIOLEN EQU ISTDCLCP+96 03433000 DCLBTLEN EQU ISTDCLCP+92 03434000 DCLCLDOA EQU ISTDCLCP+88 03435000 DCLIOBUF EQU ISTDCLCP+84 03436000 DCLLDO1 EQU ISTDCLCP+80 03437000 DCLRSV03 EQU ISTDCLCP+79 03438000 DCLRSV02 EQU DCLFLAG1 03439000 DCLRPLS EQU DCLFLAG1 03440000 DCLBTEIS EQU DCLFLAG1 03441000 DCLNODE EQU DCLFLAG1 03442000 DCLRSV04 EQU DCLFLAG1 03443000 DCLSRESW EQU DCLFLAG1 03444000 DCLBNSP EQU DCLRFLG 03445000 DCLCONV EQU DCLRFLG 03446000 DCLRSV01 EQU DCLRFLG 03447000 DCLRQTP EQU DCLRTYPE 03448000 DCLRPLA EQU ISTDCLCP+72 03449000 DCLLCCW3 EQU ISTDCLCP+64 03450000 DCLLCCW2 EQU ISTDCLCP+56 03451000 DCLLCPB EQU ISTDCLCP 03452000 PATRSV01 EQU PATFLAGA 03453000 PATUSEFG EQU PATFLAGA 03454000 PATRDCNT EQU ISTPAT+6 03455000 PATGRPID EQU ISTPAT+5 03456000 PATPTHID EQU ISTPAT+4 03457000 PATDINDX EQU ISTPAT+2 03458000 PATGINDX EQU ISTPAT 03459000 GNTGRPNM EQU ISTGNT 03460000 DNTTELNO EQU ISTDNT+1 03461000 DNTCTDIG EQU ISTDNT 03462000 RLSRSV02 EQU ISTRLS+140 03463000 RLSRSV01 EQU ISTRLS+138 03464000 RLSCTELU EQU ISTRLS+136 03465000 RLSPRE EQU ISTRLS 03466000 RDARSVPT EQU ISTRDA+84 03467000 RDAPUBI EQU ISTRDA+83 03468000 RDADFCUA EQU ISTRDA+80 03469000 RDACTPCC EQU ISTRDA+79 03470000 RDADACUA EQU ISTRDA+76 03471000 RDALUBA EQU RDAUCBAD+1 03472000 RDACHQI EQU RDAUCBAD 03473000 RDARSV01 EQU RDAFLAG 03474000 RDARBISA EQU RDAFLAG 03475000 RDAPRE EQU ISTRDA 03476000 RSWRSV01 EQU ISTRSW+152 03477000 RSWRSV02 EQU ISTRSW+150 03478000 RSWCTELU EQU ISTRSW+148 03479000 RSWGRUPZ EQU ISTRSW+146 03480000 RSWDIALZ EQU ISTRSW+144 03481000 RSWGRUPT EQU ISTRSW+140 03482000 RSWDIALT EQU ISTRSW+136 03483000 RSWPRE EQU ISTRSW 03484000 RLXRSV03 EQU ISTRLX+80 03485000 RLXRSV02 EQU ISTRLX+77 03486000 RLXRSV01 EQU RLXFLAGA 03487000 RLXINUSE EQU RLXFLAGA 03488000 RLXNLUX EQU ISTRLX+72 03489000 RLXPRE EQU ISTRLX 03490000 RPXRSV01 EQU ISTRPX+80 03491000 RPXRSV02 EQU ISTRPX+77 03492000 RPXMAXLU EQU ISTRPX+76 03493000 RPXFLUX EQU ISTRPX+72 03494000 RPXPRE EQU ISTRPX 03495000 RLURSV02 EQU ISTRLU+172 03496000 RLULGMOD EQU ISTRLU+164 03497000 RLUMODEP EQU RLUMODET+8 03498000 RLUMODEN EQU RLUMODET 03499000 RLUUSSPT EQU RLUUSSTB+8 03500000 RLUUSSNM EQU RLUUSSTB 03501000 RLURSV01 EQU ISTRLU+137 03502000 RLULOCAD EQU ISTRLU+136 03503000 RLUNCPPM EQU RLUNCPPC+1 03504000 RLUNCPPN EQU RLUNCPPC 03505000 RLUPACEM EQU RLUPACE+1 03506000 RLUPACEN EQU RLUPACE 03507000 RLUINTA EQU ISTRLU+128 03508000 RLUSSCFM EQU ISTRLU+127 03509000 RLUCRRSV EQU RLUCRFLG 03510000 RLUACTLU EQU RLUCRFLG 03511000 RLURSV00 EQU RLUFLAG 03512000 RLUNDSES EQU RLUFLAG 03513000 RLUGSTAT EQU RLUFLAG 03514000 RLUBATCH EQU RLUFLAG 03515000 RLURBISA EQU RLUFLAG 03516000 RLUTYPE EQU ISTRLU+124 03517000 RLUCRPR EQU ISTRLU 03518000 RCCRVPT2 EQU ISTRCC+144 03519000 RCCXTOSW EQU ISTRCC+140 03520000 RCCSWTOX EQU ISTRCC+136 03521000 RCCRSPT2 EQU ISTRCC+133 03522000 RCCADDR EQU ISTRCC+132 03523000 RCCPASSL EQU ISTRCC+131 03524000 RCCMXOUT EQU ISTRCC+130 03525000 RCCMXDAT EQU ISTRCC+128 03526000 RCCINDEX EQU ISTRCC+126 03527000 RCCPATHZ EQU ISTRCC+124 03528000 RCCPATHT EQU ISTRCC+120 03529000 RCCDPQ EQU ISTRCC+116 03530000 RCCTPAB EQU ISTRCC+112 03531000 RCCRSV02 EQU ISTRCC+109 03532000 RCCCRRSV EQU RCCCRFLG 03533000 RCCCTCFL EQU RCCCRFLG 03534000 RCCACTPU EQU RCCCRFLG 03535000 RCCNCSPL EQU ISTRCC+104 03536000 RCCRPHCN EQU ISTRCC+100 03537000 RCCEPAB EQU ISTRCC+96 03538000 RCCDPAB EQU ISTRCC+92 03539000 RCCVPAB EQU ISTRCC+88 03540000 @NM00035 EQU ISTRCC+87 03541000 RCCSESCT EQU ISTRCC+86 03542000 RCCIDNUM EQU RCCID48+3 03543000 RCCIDBLK EQU RCCID48+2 03544000 RCCIDPA2 EQU RCCID48+1 03545000 RCCIDPUT EQU RCCID48 03546000 RCCIDPA1 EQU RCCSTAID 03547000 RCCCTELU EQU ISTRCC+76 03548000 RCCCNCNT EQU ISTRCC+75 03549000 RCCRTGOH EQU RCCFLAGB 03550000 RCCBRKCN EQU RCCFLAGB 03551000 RCCRESET EQU RCCFLAGB 03552000 RCCFINAL EQU RCCFLAGB 03553000 RCCBNNSP EQU RCCFLAGB 03554000 RCCIRETR EQU RCCFLAGB 03555000 RCCDIALP EQU RCCFLAGB 03556000 RCCDSTCT EQU RCCFLAGB 03557000 RCCCTPGD EQU RCCFLAG 03558000 RCCPRGDN EQU RCCFLAG 03559000 RCCOUERP EQU RCCFLAG 03560000 RCCOHIMM EQU RCCFLAG 03561000 RCCLDISC EQU RCCFLAG 03562000 RCCERPIP EQU RCCFLAG 03563000 RCCCUDIE EQU RCCFLAG 03564000 RCCRBISA EQU RCCFLAG 03565000 RCCTYPE EQU ISTRCC+72 03566000 RCCPRE EQU ISTRCC 03567000 DOTADTRM EQU ISTDOT 03568000 RDSADDOT EQU ISTRDS+76 03569000 RDSCTATR EQU ISTRDS+74 03570000 RDSCTTRM EQU ISTRDS+72 03571000 RDSPRE EQU ISTRDS 03572000 RINRSV05 EQU ISTRIN+156 03573000 RINRSV04 EQU ISTRIN+152 03574000 RINLOCRN EQU ISTRIN+148 03575000 RINRSV02 EQU ISTRIN+145 03576000 RTRCNCNT EQU RINCNCNT 03577000 RTRNCSPL EQU RINNCSPL 03578000 RTRRPHCN EQU RINRPHCN 03579000 RTRVPAB EQU RINVPAB 03580000 RTRREMOT EQU RINREMOT 03581000 RTRRLDAF EQU RINRLDAF 03582000 RTRNODID EQU RINNODID 03583000 RINRSV01 EQU RINDFD 03584000 RTRLDISC EQU RINLDISC 03585000 RTRNODEF EQU RINNODEF 03586000 RTRREMPO EQU RINREMPO 03587000 RINCRPRE EQU ISTRIN 03588000 RTRRSV04 EQU ISTRTR+210 03589000 RTRLCTI EQU ISTRTR+209 03590000 RTRIDCAS EQU RTRBSCID+1 03591000 RTRIDLEN EQU RTRBSCID 03592000 RTRRSVDD EQU ISTRTR+181 03593000 RTRRDFG EQU ISTRTR+180 03594000 RTRDIAA EQU ISTRTR+176 03595000 RTRPOLA EQU ISTRTR+172 03596000 RTRCADDR EQU ISTRTR+164 03597000 RTRCTADR EQU ISTRTR+162 03598000 RTRCTPOL EQU ISTRTR+160 03599000 RTRCTDIA EQU ISTRTR+158 03600000 RTRRSV03 EQU ISTRTR+156 03601000 RTRRVPT1 EQU ISTRTR+152 03602000 RTRBHSN1 EQU ISTRTR+144 03603000 RTRCRSV2 EQU RTRCRFLG 03604000 RTRDTRLM EQU RTRLSCMD 03605000 RTRCRSV1 EQU RTRCRFLG 03606000 RTRTRMAX EQU ISTRTR+142 03607000 RTRRSV24 EQU RTRRDFF 03608000 RTRRFDEK EQU RTRRDFF 03609000 RTRRFANK EQU RTRRDFF 03610000 RTRRFPFK EQU RTRRDFF 03611000 RTRRFPEN EQU RTRRDFF 03612000 RTRRFXCT EQU RTRRDFF 03613000 RTRRESCT EQU RTRRDFE 03614000 RTRRESUP EQU RTRRDFE 03615000 RTRREATT EQU RTRRDFE 03616000 RTRRECHK EQU RTRRDFE 03617000 RTRREACR EQU RTRRDFE 03618000 RTRRSV0A EQU RTRRDFE 03619000 RTRREBRK EQU RTRRDFE 03620000 RTRRSV11 EQU RTRRDFD 03621000 RTRRSV10 EQU RTRRDFD 03622000 RTRRDBHI EQU RTRRDFD 03623000 RTRRDBHD EQU RTRRDFD 03624000 RTRRDBHN EQU RTRRDFD 03625000 RTRRSV23 EQU RTRRDFC 03626000 RTRRCXMS EQU RTRRDFC 03627000 RTRRCMSG EQU RTRRDFC 03628000 RTRRCBLK EQU RTRRDFC 03629000 RTRRCPT3 EQU RTRRDFC 03630000 RTRRCIT2 EQU RTRRDFC 03631000 RTRRCIT1 EQU RTRRDFC 03632000 RTRRSV32 EQU RTRRDFB 03633000 RTRRBEND EQU RTRRDFB 03634000 RTRRBECT EQU RTRRDFB 03635000 RTRRSV02 EQU RTRRDFA 03636000 RTRRACTR EQU RTRRDFA 03637000 RTRRSV60 EQU RTRRDFA 03638000 RTRRACDT EQU RTRRDFA 03639000 RTRRAPT3 EQU RTRRAALL 03640000 RTRRAPT2 EQU RTRRAALL 03641000 RTRRAPT1 EQU RTRRAALL 03642000 RTRRAATN EQU RTRRDFA 03643000 RTRRSV45 EQU ISTRTR+132 03644000 RTRRSV01 EQU ISTRTR+130 03645000 RTRCTECM EQU ISTRTR+128 03646000 RTRADRPT EQU RTRADR+1 03647000 RTRRSV22 EQU RTRFLAG 03648000 RTRVTERM EQU RTRFLAG 03649000 RTRRSV51 EQU RTRFLAG 03650000 RTRRBISA EQU RTRFLAG 03651000 RTRRSV21 EQU RTRFLAG 03652000 RTRCRPR EQU ISTRTR 03653000 RCLRVPT2 EQU ISTRCL+92 03654000 RCLRVPT1 EQU ISTRCL+88 03655000 RCLGPOLA EQU ISTRCL+84 03656000 RCLCTNGP EQU ISTRCL+82 03657000 RCLRSV01 EQU ISTRCL+80 03658000 RCLCTECM EQU ISTRCL+78 03659000 RCLCTETR EQU ISTRCL+76 03660000 RCLGPADR EQU RCLADR+1 03661000 RCLRSV33 EQU RCLFLAG 03662000 RCLBATCH EQU RCLFLAG 03663000 RCLRBISA EQU RCLFLAG 03664000 RCLRSV22 EQU RCLFLAG 03665000 RCLPRE EQU ISTRCL 03666000 RPTRSV03 EQU ISTRPT+156 03667000 RPTRSV02 EQU ISTRPT+152 03668000 RPTNSNSV EQU ISTRPT+148 03669000 RPTPTHCT EQU ISTRPT+146 03670000 RPTPEPCT EQU ISTRPT+144 03671000 RPTDAFSV EQU ISTRPT+142 03672000 RPTRSV01 EQU ISTRPT+141 03673000 RPTISTAT EQU RPTFLAG1 03674000 RPTDYNAM EQU RPTFLAG1 03675000 RPTVYIMM EQU RPTFLAG1 03676000 RPTVIODN EQU RPTFLAG1 03677000 RPTONLIN EQU RPTFLAG1 03678000 RPTHLVPD EQU RPTFLAG1 03679000 RPTVRYPD EQU RPTFLAG1 03680000 RPTASLEP EQU RPTFLAG1 03681000 RPTUTERM EQU ISTRPT+136 03682000 RPTATERM EQU ISTRPT+132 03683000 RPTDIVT EQU RPTDITT 03684000 RPTCTNM EQU ISTRPT+120 03685000 RPTLNDAF EQU RPTLNCID+2 03686000 RPTLNSAF EQU RPTLNCID 03687000 RPTLN EQU ISTRPT 03688000 RLNRVPT2 EQU ISTRLN+112 03689000 RLNNCSPL EQU ISTRLN+108 03690000 RLNX2SW EQU ISTRLN+104 03691000 @NM00034 EQU ISTRLN+103 03692000 RLNCRRSV EQU RLNCRFLG 03693000 RLNSWEP EQU RLNCRFLG 03694000 RLNSVSKP EQU RLNLSCMD 03695000 RLNSESLM EQU RLNLSCMD 03696000 RLNNPRLM EQU RLNLSCMD 03697000 RLNSWNCP EQU RLNCRFLG 03698000 RLNACTLN EQU RLNCRFLG 03699000 RLNPAUSE EQU ISTRLN+101 03700000 RLNPOLMT EQU ISTRLN+100 03701000 RLNACTSN EQU ISTRLN+98 03702000 RLNRESV1 EQU ISTRLN+97 03703000 RLNACTRM EQU ISTRLN+96 03704000 RLNCTSES EQU ISTRLN+95 03705000 RLNRDSLM EQU ISTRLN+94 03706000 RLNAUTOA EQU ISTRLN+92 03707000 RLNRDFD EQU RLNRDF+3 03708000 RLNRDFC EQU RLNRDF+2 03709000 RLNMULTP EQU RLNRDFB 03710000 RLNRATRN EQU RLNRDFB 03711000 RLNRAPOL EQU RLNRDFB 03712000 RLNTTV EQU RLNRDFB 03713000 RLNRSV0B EQU RLNRDFB 03714000 RLNAUTOD EQU RLNRDFB 03715000 RLNANSWR EQU RLNRDFB 03716000 RLNRBUSE EQU RLNRDFB 03717000 RLNRAPEP EQU RLNRDFA 03718000 RLNRANCP EQU RLNRDFA 03719000 RLNRAEP EQU RLNRDFA 03720000 RLNIDV EQU RLNRDFA 03721000 RLNPORT EQU RLNRDFA 03722000 RLNGANSW EQU RLNRDFA 03723000 RLNRACAN EQU RLNRACNT 03724000 RLNRACAT EQU RLNRACNT 03725000 RLNRSV04 EQU RLNSTAT2 03726000 RLNINUSE EQU RLNSTAT2 03727000 RLNOHIN EQU RLNSTAT2 03728000 RLNRSV03 EQU RLNSTAT1 03729000 RLNVD EQU RLNSTAT1 03730000 RLNINOPP EQU RLNSTAT1 03731000 RLNINOPL EQU RLNSTAT1 03732000 RLNLRST EQU RLNSTAT1 03733000 RLNTRAP EQU RLNSTAT1 03734000 RLNACTCT EQU ISTRLN+84 03735000 RLNCTECM EQU ISTRLN+82 03736000 RLNCTEIN EQU ISTRLN+80 03737000 RLNCTETR EQU ISTRLN+78 03738000 RLNCTECL EQU ISTRLN+76 03739000 RLNCUA EQU RLNUCBAD 03740000 RLNRSV01 EQU RLNFLAG 03741000 RLNRBISA EQU RLNFLAG 03742000 RLNEAM EQU RLNFLAG 03743000 RLNPRE EQU ISTRLN 03744000 RGPRVPT2 EQU ISTRGP+88 03745000 RGPRVPT1 EQU ISTRGP+84 03746000 RGPCTECM EQU ISTRGP+82 03747000 RGPCTEIN EQU ISTRGP+80 03748000 RGPCTETR EQU ISTRGP+78 03749000 RGPCTECL EQU ISTRGP+76 03750000 RGPCTELN EQU ISTRGP+74 03751000 RGPRSV03 EQU ISTRGP+73 03752000 RGPRSV02 EQU RGPFLG 03753000 RGPASDLC EQU RGPFLG 03754000 RGPABSC EQU RGPFLG 03755000 RGPASS EQU RGPFLG 03756000 RGPADIL EQU RGPFLG 03757000 RGPPRE EQU ISTRGP 03758000 RRNRINNM EQU ISTRRN+248 03759000 @NM00033 EQU ISTRRN+247 03760000 RRNRDCUA EQU ISTRRN+244 03761000 RRNLASTE EQU ISTRRN+240 03762000 RRNNCSPL EQU ISTRRN+236 03763000 RRNRPLPT EQU ISTRRN+232 03764000 RRNMSIZE EQU ISTRRN+228 03765000 RRNNCPNM EQU ISTRRN+221 03766000 RRNCTPCC EQU ISTRRN+220 03767000 RRNHBUFS EQU ISTRRN+218 03768000 RRNHLENT EQU RRNHPRE+1 03769000 RRNHLENH EQU RRNHPRE 03770000 RRNNMNCP EQU ISTRRN+208 03771000 RRNDELAY EQU ISTRRN+206 03772000 RRNRSV04 EQU ISTRRN+200 03773000 RRNRSV88 EQU RRNNMDPD+7 03774000 RRNPUBI EQU RRNNMDPD+6 03775000 RRNDPLUB EQU RRNNMDPD 03776000 RRNEPADR EQU ISTRRN+190 03777000 RRNCPLUB EQU ISTRRN+184 03778000 RRNFLUX EQU ISTRRN+180 03779000 RRNRSV05 EQU RRNCMFD 03780000 RRNREMPO EQU RRNCMFD 03781000 RRNCDREC EQU RRNCMFD 03782000 RRNCDDSI EQU RRNCMFD 03783000 RRNCDBCK EQU RRNCMFD 03784000 RRNCDDTL EQU RRNCMFD 03785000 RRNCDSTD EQU RRNCMFD 03786000 RRNCDCSP EQU RRNCMFD 03787000 RRNCCCSL EQU RRNCMFC 03788000 RRNCCSIM EQU RRNCMFC 03789000 RRNCCRCM EQU RRNCMFC 03790000 RRNCCRIM EQU RRNCMFC 03791000 RRNCCCRC EQU RRNCMFC 03792000 RRNCCRST EQU RRNCMFC 03793000 RRNCCRDQ EQU RRNCMFC 03794000 RRNCCRCN EQU RRNCMFC 03795000 RRNCBALT EQU RRNCMFB 03796000 RRNCBMOD EQU RRNCMFB 03797000 RRNCBNPL EQU RRNCMFB 03798000 RRNCBRLS EQU RRNCMFB 03799000 RRNCBRDS EQU RRNCMFB 03800000 RRNCBDLR EQU RRNCMFB 03801000 RRNCBDLH EQU RRNCMFB 03802000 RRNCBDLO EQU RRNCMFB 03803000 RRNCADGO EQU RRNCMFA 03804000 RRNCADTD EQU RRNCMFA 03805000 RRNCACDT EQU RRNCMFA 03806000 RRNCAMBH EQU RRNCMFA 03807000 RRNCAATI EQU RRNCMFA 03808000 RRNCAATG EQU RRNCMFA 03809000 RRNCAATD EQU RRNCMFA 03810000 RRNCAALL EQU RRNCMFA 03811000 RRNRSV55 EQU RRNRDF+3 03812000 RRNPTASL EQU RRNRDFB+1 03813000 RRNRSV01 EQU RRNRDFB+1 03814000 RRNVYDON EQU RRNRDFB+1 03815000 RRNRBBUP EQU RRNRDFB+1 03816000 RRNRSV03 EQU RRNRDFB 03817000 RRNRBCT2 EQU RRNRDFB 03818000 RRNRBCT1 EQU RRNRDFB 03819000 RRNRBSEC EQU RRNRDFB 03820000 RRNRBCCT EQU RRNRDFB 03821000 RRNRBCCL EQU RRNRDFB 03822000 RRNRSV02 EQU RRNRDFB 03823000 RRNRBMDL EQU RRNRDFB 03824000 RRNRAPEP EQU RRNRDFA 03825000 RRNRANCP EQU RRNRDFA 03826000 RRNRBREM EQU RRNRDFA 03827000 RRNRAOLT EQU RRNRDFA 03828000 RRNRASYN EQU RRNRDFA 03829000 RRNRADMP EQU RRNRDFA 03830000 RRNRAIPL EQU RRNRDFA 03831000 RRNRASHT EQU RRNRDFA 03832000 RRNCTENT EQU ISTRRN+170 03833000 RRNCTECM EQU ISTRRN+168 03834000 RRNCTEIN EQU ISTRRN+166 03835000 RRNCTETR EQU ISTRRN+164 03836000 RRNCTECL EQU ISTRRN+162 03837000 RRNCTELI EQU ISTRRN+160 03838000 RRNCTEGP EQU ISTRRN+158 03839000 RRNCTBHS EQU ISTRRN+156 03840000 RRNBHSET EQU ISTRRN+152 03841000 RRNTRENT EQU ISTRRN+148 03842000 RRNRLDIP EQU ISTRRN+147 03843000 RRNRNCUA EQU ISTRRN+144 03844000 RRNGRPA EQU ISTRRN+140 03845000 RRNLUBA EQU RRNUCBAD+1 03846000 RRNCHQI EQU RRNUCBAD 03847000 RRNRSV11 EQU RRNFLAG 03848000 RRNDSTCT EQU RRNFLAG 03849000 RRNERPIP EQU RRNFLAG 03850000 RRNLCDIP EQU RRNFLAG 03851000 RRNLCDIE EQU RRNFLAG 03852000 RRNLCSIP EQU RRNFLAG 03853000 RRNRBISA EQU RRNFLAG 03854000 RRNRSV89 EQU RRNFLAG 03855000 RRNPRE EQU ISTRRN 03856000 RLCRVPT2 EQU ISTRLC+80 03857000 RLCRVPT1 EQU ISTRLC+79 03858000 RLCLCCUA EQU ISTRLC+76 03859000 RLCUCBAD EQU RLCADR+1 03860000 RLCRSVDE EQU RLCFLAG 03861000 RLCACNT EQU RLCFLAG 03862000 RLCRSV14 EQU RLCFLAG 03863000 RLCRBISA EQU RLCFLAG 03864000 RLCRSV22 EQU RLCFLAG 03865000 RLCPRE EQU ISTRLC 03866000 RAPRVPT2 EQU ISTRAP+116 03867000 RAPRVPT1 EQU ISTRAP+112 03868000 RAPBFACT EQU ISTRAP+111 03869000 RAPRSV17 EQU RAPFLGC 03870000 RAPRSV16 EQU RAPFLGC 03871000 RAPRSV15 EQU RAPFLGC 03872000 RAPRSV14 EQU RAPFLGC 03873000 RAPRSV13 EQU RAPFLGC 03874000 RAPRSV12 EQU RAPFLGC 03875000 RAPRSV11 EQU RAPFLGC 03876000 RAPRSV10 EQU RAPFLGC 03877000 RAPANVPC EQU RAPFLGB 03878000 RAPASPO EQU RAPFLGB 03879000 RAPAPPO EQU RAPFLGB 03880000 RAPAACQ EQU RAPFLGB 03881000 RAPAPRMT EQU RAPFLGB 03882000 RAPAPASS EQU RAPFLGB 03883000 RAPABLCK EQU RAPFLGB 03884000 RAPALLF EQU RAPFLGB 03885000 RAPRSV06 EQU RAPFLG 03886000 RAPRSV05 EQU RAPFLG 03887000 RAPRSV04 EQU RAPFLG 03888000 RAPRSV03 EQU RAPFLG 03889000 RAPATLGN EQU RAPFLG 03890000 RAPASLGI EQU RAPFLG 03891000 RAPAQUI EQU RAPFLG 03892000 RAPABLGN EQU RAPFLG 03893000 RAPACEQD EQU ISTRAP+106 03894000 RAPTRPRE EQU ISTRAP+104 03895000 RAPACEAP EQU ISTRAP+100 03896000 RAPICEAQ EQU ISTRAP+96 03897000 RAPICEAC EQU ISTRAP+92 03898000 RAPICELG EQU ISTRAP+88 03899000 RAPAPPWD EQU ISTRAP+80 03900000 RAPACDEB EQU ISTRAP+76 03901000 RAPACBA EQU ISTRAP+72 03902000 RAPPRE EQU ISTRAP 03903000 RDTVSRPL EQU ISTRDT+132 03904000 RDTCRSPW EQU ISTRDT+124 03905000 RDTCRSDS EQU ISTRDT+116 03906000 @NM00032 EQU ISTRDT+113 03907000 RRNSTCNT EQU RDTSTCNT 03908000 RRNVYRPH EQU RDTVYRPH 03909000 RDTTPAB EQU ISTRDT+104 03910000 RDTDPAB EQU ISTRDT+100 03911000 RDTVPAB EQU ISTRDT+92 03912000 RDTRSV01 EQU RDTFLAGB 03913000 RDTBHSET EQU RDTFLAGB 03914000 RDTCTCFL EQU RDTFLAGB 03915000 RDTCTPGD EQU RDTFLAGB 03916000 RDTPRGDN EQU RDTFLAGB 03917000 RDTOUERP EQU RDTFLAGB 03918000 RDTLGCT EQU ISTRDT+90 03919000 RDTNODID EQU ISTRDT+89 03920000 RDTMAXID EQU ISTRDT+88 03921000 RDTCTSNT EQU ISTRDT+86 03922000 RDTFLAGS EQU ISTRDT+84 03923000 RDTBACK EQU ISTRDT+80 03924000 RDTFORW EQU ISTRDT+76 03925000 RDTLEN EQU RDTPLEN+1 03926000 RDTPRILS EQU RDTPRIOR 03927000 RDTPRISW EQU RDTPRIOR 03928000 RDTPRIRN EQU RDTPRIOR 03929000 RDTPRILC EQU RDTPRIOR 03930000 RDTPRIAP EQU RDTPRIOR 03931000 @NM00031 EQU RDTPRIOR 03932000 RDTPRE EQU ISTRDT 03933000 RCPRSV05 EQU ISTRCPRE+120 03934000 RCPRSV04 EQU ISTRCPRE+116 03935000 RCPRSV03 EQU ISTRCPRE+112 03936000 RCPINTA EQU RCPLGNIN+16 03937000 RCPLGNCT EQU RCPLGNIN+8 03938000 RCPLGNAP EQU RCPLGNIN 03939000 @NM00030 EQU RCPPMODE 03940000 RCPRRECD EQU RCPPMODE 03941000 RCPRBASC EQU RCPPMODE 03942000 RCPBFLIM EQU ISTRCPRE+90 03943000 RCPBHSI2 EQU ISTRCPRE+89 03944000 RCPBHSI1 EQU ISTRCPRE+88 03945000 RCPACETR EQU ISTRCPRE+84 03946000 RCPICEAQ EQU ISTRCPRE+80 03947000 RCPLNAPA EQU ISTRCPRE+76 03948000 RCPICELN EQU ISTRCPRE+72 03949000 RCPPRE EQU ISTRCPRE 03950000 RPRCONID EQU ISTRPRE+63 03951000 RPRCLVPD EQU RPRFLAGC 03952000 RPRINIMM EQU RPRFLAGD 03953000 RPRRSV05 EQU RPRFLAGD 03954000 RPRCONP EQU RPRFLAGD 03955000 RPRACTP EQU RPRFLAGD 03956000 RPRRSON EQU RPRFLAGD 03957000 RPRCONCT EQU RPRFLAGD 03958000 RPRLTASN EQU RPRFLAGD 03959000 RPRPTHCT EQU ISTRPRE+60 03960000 RPRSWDAF EQU ISTRPRE+58 03961000 RPRSTPCT EQU ISTRPRE+56 03962000 RPRRVPT1 EQU ISTRPRE+52 03963000 RPRDEVCH EQU ISTRPRE+44 03964000 RPRNCBA EQU ISTRPRE+40 03965000 RPRLGONB EQU ISTRPRE+32 03966000 RPRLGONF EQU ISTRPRE+28 03967000 RPRHDTYP EQU ISTRPRE+27 03968000 RPRTIOCT EQU ISTRPRE+26 03969000 RPRPEPCT EQU ISTRPRE+24 03970000 RPRRSV03 EQU RPRCAUSE 03971000 RPRRSYNC EQU RPRCAUSE 03972000 RPRCRCPT EQU RPRCAUSE 03973000 RPRNOSRT EQU RPRCAUSE 03974000 RPRINTST EQU RPRFLAGB 03975000 RPRVYIMM EQU RPRFLAGB 03976000 RPRHLVPD EQU RPRFLAGB 03977000 RPRONLIN EQU RPRFLAGB 03978000 RPRVIODN EQU RPRFLAGB 03979000 RPRAOPN EQU RPRFLAGB 03980000 RPRENTVT EQU RPRFLAGB 03981000 RPRENTVH EQU RPRFLAGB 03982000 RPRLIVE EQU RPRFLAGA 03983000 RPRVRYPD EQU RPRFLAGA 03984000 RPRENTED EQU RPRFLAGA 03985000 RPRENTIO EQU RPRFLAGA 03986000 RPRENTBF EQU RPRFLAGA 03987000 RPRTIED EQU RPRFLAGA 03988000 RPRINV EQU RPRFLAGA 03989000 RPRACT EQU RPRFLAGA 03990000 RPRENTRY EQU ISTRPRE+20 03991000 RPRRLOCK EQU ISTRPRE+12 03992000 RPRDAF EQU RPRCOMID+2 03993000 RPRSAF EQU RPRCOMID 03994000 DEVRSV03 EQU ISTDEVCH+5 03995000 DEVPHYSA EQU ISTDEVCH+4 03996000 DEVCSLPN EQU DEVCHAR3 03997000 DEVCSTCL EQU DEVCHAR3 03998000 DEVCCHEK EQU DEVCHAR3 03999000 DEVCATTN EQU DEVCHAR3 04000000 DEVCSWL EQU DEVFCCTL 04001000 DEVCRVB EQU DEVFCCTL 04002000 DEVCSSL EQU DEVFCCTL 04003000 DEVCBSC EQU DEVFCCTL 04004000 DEVMCODE EQU ISTDEVCH+2 04005000 DEVCHAR2 EQU DEVTCODE 04006000 DEVRSV01 EQU DEVCHAR 04007000 DEVCCTL EQU DEVCHAR 04008000 DEVNNSPT EQU DEVCHAR 04009000 DEVSPS EQU DEVCHAR 04010000 DEVSUBND EQU DEVCHAR 04011000 DEVCONVR EQU DEVCHAR 04012000 DEVOTPUT EQU DEVCHAR 04013000 DEVINPUT EQU DEVCHAR 04014000 LOKXCL EQU @NM00028 04015000 LOKPRY EQU @NM00028 04016000 @NM00029 EQU @NM00028 04017000 @NM00027 EQU LOKCHNG 04018000 LOKCT EQU ISTLOK 04019000 CRACHAIN EQU ISTCRA+928 04020000 CRARSV02 EQU ISTCRA+924 04021000 CRARSV01 EQU ISTCRA+920 04022000 CRABFTBA EQU CRABUFA 04023000 CRAMASK EQU CRASVC+64 04024000 CRAHSIZ EQU CRASVC+60 04025000 CRAASCRR EQU CRASVC 04026000 CRAPSS EQU ISTCRA+160 04027000 CRARPH EQU ISTCRA+52 04028000 CRALAPTR EQU CRABASIC+48 04029000 CRAL9PTR EQU CRABASIC+44 04030000 CRAL8PTR EQU CRABASIC+40 04031000 CRAL7PTR EQU CRABASIC+36 04032000 CRAL6PTR EQU CRABASIC+32 04033000 CRAL5PTR EQU CRABASIC+28 04034000 CRAL4PTR EQU CRABASIC+24 04035000 CRAL3PTR EQU CRABASIC+20 04036000 CRAL2PTR EQU CRABASIC+16 04037000 CRAL1PTR EQU CRABASIC+12 04038000 CRALEV01 EQU CRALKACT+3 04039000 CRALEV02 EQU CRALKACT+3 04040000 CRALEV03 EQU CRALKACT+3 04041000 CRALEV04 EQU CRALKACT+3 04042000 CRALEV05 EQU CRALKACT+3 04043000 CRALEV06 EQU CRALKACT+3 04044000 CRALEV07 EQU CRALKACT+3 04045000 CRALEV08 EQU CRALKACT+3 04046000 CRALEV09 EQU CRALKACT+2 04047000 CRALEV10 EQU CRALKACT+2 04048000 CRALEV11 EQU CRALKACT+2 04049000 CRALEV12 EQU CRALKACT+2 04050000 CRALEV13 EQU CRALKACT+2 04051000 CRALEV14 EQU CRALKACT+2 04052000 CRALEV15 EQU CRALKACT+2 04053000 CRALEV16 EQU CRALKACT+2 04054000 CRALEV17 EQU CRALKACT+1 04055000 CRALEV18 EQU CRALKACT+1 04056000 CRALEV19 EQU CRALKACT+1 04057000 CRALEV20 EQU CRALKACT+1 04058000 CRALEV21 EQU CRALKACT+1 04059000 CRALEV22 EQU CRALKACT+1 04060000 CRALEV23 EQU CRALKACT+1 04061000 CRALEV24 EQU CRALKACT+1 04062000 CRALEV25 EQU CRALKACT 04063000 CRALEV26 EQU CRALKACT 04064000 CRALEV27 EQU CRALKACT 04065000 CRALEV28 EQU CRALKACT 04066000 CRALEV29 EQU CRALKACT 04067000 CRALEV30 EQU CRALKACT 04068000 CRALEV31 EQU CRALKACT 04069000 CRALEV32 EQU CRALKACT 04070000 RPHNEXPO EQU ISTRPH+104 04071000 RPHSAV16 EQU RPHWORK+60 04072000 RPHSAV15 EQU RPHWORK+56 04073000 RPHSAV14 EQU RPHWORK+52 04074000 RPHSAV13 EQU RPHWORK+48 04075000 RPHSAV12 EQU RPHWORK+44 04076000 RPHSAV11 EQU RPHWORK+40 04077000 RPHSAV10 EQU RPHWORK+36 04078000 RPHSAVE9 EQU RPHWORK+32 04079000 RPHSAVE8 EQU RPHWORK+28 04080000 RPHSAVE7 EQU RPHWORK+24 04081000 RPHSAVE6 EQU RPHWORK+20 04082000 RPHSAVE5 EQU RPHWORK+16 04083000 RPHSAVE4 EQU RPHWORK+12 04084000 RPHSAVE3 EQU RPHWORK+8 04085000 RPHSAVE2 EQU RPHWORK+4 04086000 RPHSHALF EQU RPHSAVE1+2 04087000 RPHSBIT8 EQU RPHSBITS 04088000 RPHSBIT7 EQU RPHSBITS 04089000 RPHSBIT6 EQU RPHSBITS 04090000 RPHSBIT5 EQU RPHSBITS 04091000 RPHSBIT4 EQU RPHSBITS 04092000 RPHSBIT3 EQU RPHSBITS 04093000 RPHSBIT2 EQU RPHSBITS 04094000 RPHSBIT1 EQU RPHSBITS 04095000 RPHSBYTE EQU RPHSAVE1 04096000 RPHPABFG EQU RPHPABQA 04097000 RPHSRP34 EQU RPHSRPRM+2 04098000 RPHSRP12 EQU RPHSRPRM 04099000 RPHWEGT EQU RPHCSPA 04100000 RPHRESUM EQU RPHRESMA+1 04101000 RPHRSV01 EQU RPHWPFLG 04102000 RPHPURGE EQU RPHWPFLG 04103000 RPHPT EQU RPHWPFLG 04104000 RPHRSKEY EQU RPHWPFLG 04105000 RPHDVTA EQU ISTRPH+12 04106000 RPHTIK EQU RPHTSKID+3 04107000 @NM00026 EQU RPHTSKID 04108000 RPHRPHAP EQU RPHRPHA+1 04109000 @NM00025 EQU RPHCVFLG 04110000 RPHFRRPH EQU RPHCVFLG 04111000 RPHOWRPH EQU RPHCVFLG 04112000 RPHCDRPH EQU RPHCVFLG 04113000 RPHPSRPH EQU RPHCVFLG 04114000 RPHVYRPH EQU RPHGATE 04115000 @NM00024 EQU RPHFLGB 04116000 RPHRLCRA EQU RPHFLGB 04117000 RPHNRSAV EQU RPHFLGB 04118000 RPHPGCMP EQU RPHFLGB 04119000 RPHFBAPS EQU RPHFLGB 04120000 RPHBSSP EQU RPHFLGB 04121000 RPHLOCK EQU RPHFLGB 04122000 RPHFNFLG EQU RPHFSTLC 04123000 RPHMLTCP EQU RPHFLAGS 04124000 RPHSMCLR EQU RPHFLAGS 04125000 RPHSMTYP EQU RPHFLAGS 04126000 RPHSMQ EQU RPHFLAGS 04127000 RPHAUTEX EQU RPHAPTYP 04128000 RPHSPGIN EQU RPHFLAGS 04129000 RPHOGIND EQU RPHFLAGS 04130000 RPHLNGTH EQU RPHCNTL+1 04131000 RPHTYPE EQU RPHCNTL 04132000 @NM00023 EQU ISTAPCRR+137 04133000 @NM00022 EQU APC57FLG 04134000 APCNREL EQU APC57FLG 04135000 APCRECRA EQU APC57FLG 04136000 @NM00021 EQU APC54FLG 04137000 APCRLST EQU APC54FLG 04138000 APCPR153 EQU APC53FLG 04139000 @NM00020 EQU APC52FLG 04140000 APCWKF EQU APC52FLG 04141000 APCNWF EQU APC52FLG 04142000 APCRDQ EQU APC52FLG 04143000 APCQENQ EQU APC52FLG 04144000 APCSMSR EQU APC52FLG 04145000 APCCKRQ EQU APC52FLG 04146000 @NM00019 EQU APC31FLG 04147000 APCSORT EQU APC31FLG 04148000 APCRESCH EQU APC31FLG 04149000 APCTPXIT EQU APC31FLG 04150000 APCSWTWD EQU ISTAPCRR+128 04151000 APCSAV2 EQU ISTAPCRR+124 04152000 APCSAV1 EQU ISTAPCRR+120 04153000 APCRETCD EQU APCCOMF+2 04154000 @NM00018 EQU APCCOMF1+1 04155000 APCZLBER EQU APCCOMF1 04156000 APCEXIT EQU APCCOMF1 04157000 APCRELR EQU APCCOMF1 04158000 APCIRB2 EQU APCCOMF1 04159000 APCIRB1 EQU APCCOMF1 04160000 APCSMCR EQU APCCOMF1 04161000 APCUETSK EQU APCCOMF1 04162000 APCSSTSK EQU APCCOMF1 04163000 APCESTAL EQU APCSAVE 04164000 APCFRRPM EQU ISTAPCRR+40 04165000 APCQWFO EQU ISTAPCRR+36 04166000 APCPABSV EQU ISTAPCRR+32 04167000 APCRTRN EQU ISTAPCRR+28 04168000 APCTCBA EQU ISTAPCRR+24 04169000 APCPSTA EQU ISTAPCRR+20 04170000 @NM00017 EQU APCRFLG+1 04171000 APC31R EQU APCRFLG 04172000 APC58R EQU APCRFLG 04173000 APC57R EQU APCRFLG 04174000 APC56R EQU APCRFLG 04175000 APC54R EQU APCRFLG 04176000 APC53R EQU APCRFLG 04177000 APC52R EQU APCRFLG 04178000 APC51R EQU APCRFLG 04179000 @NM00016 EQU APCATFLG+1 04180000 APC31E EQU APCATFLG 04181000 APC58E EQU APCATFLG 04182000 APC57E EQU APCATFLG 04183000 APC56E EQU APCATFLG 04184000 APC54E EQU APCATFLG 04185000 APC53E EQU APCATFLG 04186000 APC52E EQU APCATFLG 04187000 APC51E EQU APCATFLG 04188000 APCHDRSV EQU ISTAPCRR 04189000 ASCPSREG EQU ISTASCRR+44 04190000 ASCUSR01 EQU ASCUSRGS+12 04191000 ASCUSR00 EQU ASCUSRGS+8 04192000 ASCUSR15 EQU ASCUSRGS+4 04193000 ASCUSR14 EQU ASCUSRGS 04194000 ASCETRYA EQU ISTASCRR+24 04195000 ASCKEY EQU ISTASCRR+23 04196000 ASCAUDIT EQU ASCFLG3 04197000 ASCFBDUD EQU ASCFLG3 04198000 ASCLLKF EQU ASCFLG3 04199000 ASCKEYF EQU ASCFLG3 04200000 ASCFBDAL EQU ASCFLG3 04201000 ASCFSRGT EQU ASCFLG3 04202000 ASCICR EQU ASCFLG2 04203000 ASCFSRIC EQU ASCFLG2 04204000 ASCFBDIC EQU ASCFLG2 04205000 ASCFBAIC EQU ASCFLG2 04206000 ASCPASTR EQU ASCFLG1 04207000 ASCFSR EQU ASCFLG1 04208000 ASCFBD EQU ASCFLG1 04209000 ASCFBA EQU ASCFLG1 04210000 ASCPFCRR EQU ISTASCRR 04211000 ZCRRU EQU ZCRRHRU+3 04212000 ZCRRH EQU ZCRRHRU 04213000 ZCRWORDA EQU ISTZCRR+477 04214000 ZCRCMNRC EQU ISTZCRR+476 04215000 ZCRRSV97 EQU ZCRENTER+18 04216000 ZCREIC2B EQU ZCRENTER+18 04217000 ZCREAC2B EQU ZCRENTER+18 04218000 ZCRELCAB EQU ZCRENTER+18 04219000 ZCREDCMF EQU ZCRENTER+18 04220000 ZCREBCIF EQU ZCRENTER+18 04221000 ZCREICSG EQU ZCRENTER+18 04222000 ZCREDCK0 EQU ZCRENTER+18 04223000 ZCRECFY0 EQU ZCRENTER+17 04224000 ZCREKCCB EQU ZCRENTER+17 04225000 ZCREDCNB EQU ZCRENTER+17 04226000 ZCREICOE EQU ZCRENTER+17 04227000 ZCREBCNB EQU ZCRENTER+17 04228000 ZCREBC0L EQU ZCRENTER+17 04229000 ZCREBCAL EQU ZCRENTER+17 04230000 ZCREDCQR EQU ZCRENTER+17 04231000 ZCREDCPR EQU ZCRENTER+16 04232000 ZCREBCSB EQU ZCRENTER+16 04233000 ZCREAC1R EQU ZCRENTER+16 04234000 ZCRECCCI EQU ZCRENTER+16 04235000 ZCRECCAI EQU ZCRENTER+16 04236000 ZCRECCBI EQU ZCRENTER+16 04237000 ZCREBCAR EQU ZCRENTER+16 04238000 ZCREBCDR EQU ZCRENTER+16 04239000 ZCREBCBR EQU ZCRENTER+15 04240000 ZCREDCXR EQU ZCRENTER+15 04241000 ZCREDCWB EQU ZCRENTER+15 04242000 ZCREDCWR EQU ZCRENTER+15 04243000 ZCREKCCN EQU ZCRENTER+15 04244000 ZCREKCBN EQU ZCRENTER+15 04245000 ZCREKCBB EQU ZCRENTER+15 04246000 ZCREJC0B EQU ZCRENTER+15 04247000 ZCREJCDB EQU ZCRENTER+14 04248000 ZCREJCCB EQU ZCRENTER+14 04249000 ZCREJCBB EQU ZCRENTER+14 04250000 ZCREJCAB EQU ZCRENTER+14 04251000 ZCREIC1B EQU ZCRENTER+14 04252000 ZCREIC0B EQU ZCRENTER+14 04253000 ZCREICX0 EQU ZCRENTER+14 04254000 ZCREICWB EQU ZCRENTER+14 04255000 ZCREICVB EQU ZCRENTER+13 04256000 ZCREICUB EQU ZCRENTER+13 04257000 ZCREICTB EQU ZCRENTER+13 04258000 ZCREICSC EQU ZCRENTER+13 04259000 ZCREICSB EQU ZCRENTER+13 04260000 ZCREICRB EQU ZCRENTER+13 04261000 ZCREICQB EQU ZCRENTER+13 04262000 ZCREICQA EQU ZCRENTER+13 04263000 ZCREICOB EQU ZCRENTER+12 04264000 ZCREICOA EQU ZCRENTER+12 04265000 ZCREICNB EQU ZCRENTER+12 04266000 ZCREICNA EQU ZCRENTER+12 04267000 ZCREICMB EQU ZCRENTER+12 04268000 ZCREICLB EQU ZCRENTER+12 04269000 ZCREICKG EQU ZCRENTER+12 04270000 ZCREICKE EQU ZCRENTER+12 04271000 ZCREICKB EQU ZCRENTER+11 04272000 ZCREICJB EQU ZCRENTER+11 04273000 ZCREICID EQU ZCRENTER+11 04274000 ZCREICIB EQU ZCRENTER+11 04275000 ZCREICHB EQU ZCRENTER+11 04276000 ZCREICGB EQU ZCRENTER+11 04277000 ZCREICEB EQU ZCRENTER+11 04278000 ZCREICDB EQU ZCRENTER+11 04279000 ZCREICCI EQU ZCRENTER+10 04280000 ZCREICCB EQU ZCRENTER+10 04281000 ZCREICBI EQU ZCRENTER+10 04282000 ZCREICBB EQU ZCRENTER+10 04283000 ZCREICAB EQU ZCRENTER+10 04284000 ZCREICAA EQU ZCRENTER+10 04285000 ZCREHCAN EQU ZCRENTER+10 04286000 ZCREGC0B EQU ZCRENTER+10 04287000 ZCREGC0A EQU ZCRENTER+9 04288000 ZCREGCLA EQU ZCRENTER+9 04289000 ZCREGCEB EQU ZCRENTER+9 04290000 ZCREGCDB EQU ZCRENTER+9 04291000 @NM00015 EQU ZCRENTER+9 04292000 ZCREGCBB EQU ZCRENTER+9 04293000 ZCREGCAB EQU ZCRENTER+9 04294000 ZCREFCEB EQU ZCRENTER+9 04295000 ZCREFCEA EQU ZCRENTER+8 04296000 ZCREECTA EQU ZCRENTER+8 04297000 ZCREECEA EQU ZCRENTER+8 04298000 ZCREECDA EQU ZCRENTER+8 04299000 ZCREECCB EQU ZCRENTER+8 04300000 ZCREECCA EQU ZCRENTER+8 04301000 ZCREECBB EQU ZCRENTER+8 04302000 ZCREECBA EQU ZCRENTER+8 04303000 ZCREDCMB EQU ZCRENTER+7 04304000 ZCREDCL0 EQU ZCRENTER+7 04305000 ZCREDCKB EQU ZCRENTER+7 04306000 ZCREDCKA EQU ZCRENTER+7 04307000 ZCREDCJ0 EQU ZCRENTER+7 04308000 ZCREDCI0 EQU ZCRENTER+7 04309000 ZCREDCH0 EQU ZCRENTER+7 04310000 ZCREDCF0 EQU ZCRENTER+7 04311000 ZCREDCE0 EQU ZCRENTER+6 04312000 ZCREDCD0 EQU ZCRENTER+6 04313000 ZCREDCC0 EQU ZCRENTER+6 04314000 ZCREDCB0 EQU ZCRENTER+6 04315000 ZCREDCA0 EQU ZCRENTER+6 04316000 ZCRECC2B EQU ZCRENTER+6 04317000 ZCRECC1B EQU ZCRENTER+6 04318000 ZCRECC1A EQU ZCRENTER+6 04319000 ZCRECC0B EQU ZCRENTER+5 04320000 ZCRECC0A EQU ZCRENTER+5 04321000 ZCREBC0B EQU ZCRENTER+5 04322000 ZCREBC0A EQU ZCRENTER+5 04323000 ZCREBCZ0 EQU ZCRENTER+5 04324000 ZCREBCY0 EQU ZCRENTER+5 04325000 ZCREBCX0 EQU ZCRENTER+5 04326000 ZCREBCXA EQU ZCRENTER+5 04327000 ZCREBCSC EQU ZCRENTER+4 04328000 ZCREBCRB EQU ZCRENTER+4 04329000 ZCREBCRA EQU ZCRENTER+4 04330000 ZCREBCQB EQU ZCRENTER+4 04331000 ZCREBCPB EQU ZCRENTER+4 04332000 ZCREBCOB EQU ZCRENTER+4 04333000 ZCREBCNE EQU ZCRENTER+4 04334000 ZCREBCND EQU ZCRENTER+4 04335000 ZCREBCMB EQU ZCRENTER+3 04336000 ZCREBCLB EQU ZCRENTER+3 04337000 ZCREBCLA EQU ZCRENTER+3 04338000 ZCREBCKB EQU ZCRENTER+3 04339000 ZCREBCKA EQU ZCRENTER+3 04340000 ZCREBCJB EQU ZCRENTER+3 04341000 ZCREBCJA EQU ZCRENTER+3 04342000 ZCREBCID EQU ZCRENTER+3 04343000 ZCREBCIB EQU ZCRENTER+2 04344000 ZCREBCIA EQU ZCRENTER+2 04345000 ZCREBCHB EQU ZCRENTER+2 04346000 ZCREBCHA EQU ZCRENTER+2 04347000 ZCREBCGB EQU ZCRENTER+2 04348000 ZCREBCGA EQU ZCRENTER+2 04349000 ZCREBCFB EQU ZCRENTER+2 04350000 ZCREBCFA EQU ZCRENTER+2 04351000 ZCREBCEB EQU ZCRENTER+1 04352000 ZCREBCDI EQU ZCRENTER+1 04353000 ZCREBCCB EQU ZCRENTER+1 04354000 ZCREBCBI EQU ZCRENTER+1 04355000 ZCREBCBB EQU ZCRENTER+1 04356000 ZCREBCBA EQU ZCRENTER+1 04357000 ZCREBCAM EQU ZCRENTER+1 04358000 ZCREBCAI EQU ZCRENTER+1 04359000 ZCREBCAG EQU ZCRENTER 04360000 ZCREBCAE EQU ZCRENTER 04361000 ZCREBCAB EQU ZCRENTER 04362000 ZCREBCAA EQU ZCRENTER 04363000 ZCREAC1B EQU ZCRENTER 04364000 ZCREAC0B EQU ZCRENTER 04365000 ZCREAC0A EQU ZCRENTER 04366000 ZCREAC1A EQU ZCRENTER 04367000 ZCRTNAME EQU ZCRAUDIT+1 04368000 ZCRTID EQU ZCRAUDIT 04369000 ZCRREMIC EQU ISTZCRR+436 04370000 ZCRSAVEZ EQU ISTZCRR+196 04371000 ZCRDAFSV EQU ZCRCIDSV+2 04372000 ZCRSAFSV EQU ZCRCIDSV 04373000 ZCRR13SV EQU ISTZCRR+188 04374000 ZCRR2SV EQU ISTZCRR+184 04375000 ZCROPCDE EQU ISTZCRR+183 04376000 ZCRPRMTC EQU ISTZCRR+182 04377000 ZCRRCDSV EQU ISTZCRR+181 04378000 ZCRAWQSW EQU ISTZCRR+180 04379000 ZCRTOPQ EQU ISTZCRR+180 04380000 ZCRLSTFB EQU ISTZCRR+180 04381000 ZCRXSCHD EQU ISTZCRR+180 04382000 ZCRNXTEL EQU ISTZCRR+180 04383000 ZCRSCANQ EQU ISTZCRR+180 04384000 ZCRMOREL EQU ISTZCRR+180 04385000 ZCRFBPRC EQU ISTZCRR+180 04386000 ZCRFSBSV EQU ISTZCRR+176 04387000 ZCRSVWK5 EQU ZCRWKARA+16 04388000 ZCRSVWK4 EQU ZCRWKARA+12 04389000 ZCRSVWK3 EQU ZCRWKARA+8 04390000 ZCRSVWK2 EQU ZCRWKARA+4 04391000 ZCRSVWK1 EQU ZCRWKARA 04392000 ZCRSVF25 EQU ZCRSVRTN+96 04393000 ZCRSVF24 EQU ZCRSVRTN+92 04394000 ZCRSVF23 EQU ZCRSVRTN+88 04395000 ZCRSVF22 EQU ZCRSVRTN+84 04396000 ZCRSVF21 EQU ZCRSVRTN+80 04397000 ZCRSVF20 EQU ZCRSVRTN+76 04398000 ZCRSVF19 EQU ZCRSVRTN+72 04399000 ZCRSVF18 EQU ZCRSVRTN+68 04400000 ZCRSVF17 EQU ZCRSVRTN+64 04401000 ZCRSVF16 EQU ZCRSVRTN+60 04402000 ZCRSVF15 EQU ZCRSVRTN+56 04403000 ZCRSVF14 EQU ZCRSVRTN+52 04404000 ZCRSVF13 EQU ZCRSVRTN+48 04405000 ZCRSVF12 EQU ZCRSVRTN+44 04406000 ZCRSVF11 EQU ZCRSVRTN+40 04407000 ZCRSVF10 EQU ZCRSVRTN+36 04408000 ZCRSVF9 EQU ZCRSVRTN+32 04409000 ZCRSVF8 EQU ZCRSVRTN+28 04410000 ZCRSVF7 EQU ZCRSVRTN+24 04411000 ZCRSVF6 EQU ZCRSVRTN+20 04412000 ZCRSVF5 EQU ZCRSVRTN+16 04413000 ZCRSVF4 EQU ZCRSVRTN+12 04414000 ZCRSVF3 EQU ZCRSVRTN+8 04415000 ZCRSVF2 EQU ZCRSVRTN+4 04416000 ZCRSVF1 EQU ZCRSVRTN 04417000 ZCRPVZB EQU ISTZCRR+52 04418000 ZCRZLB EQU ISTZCRR+48 04419000 ZCRBFPTR EQU ISTZCRR+44 04420000 ZCRCCWA EQU ISTZCRR+40 04421000 ZCRPSW EQU ZCRPARMS+15 04422000 ZCRPCHAR EQU ZCRPARMS+14 04423000 ZCRPRES2 EQU ZCRPCOD2 04424000 ZCRPMFGF EQU ZCRPCOD2 04425000 ZCRPFHDR EQU ZCRPCOD2 04426000 ZCRPPG2 EQU ZCRPCOD2 04427000 ZCRPRES EQU ZCRPCOD1 04428000 ZCRPCFTX EQU ZCRPCOD1 04429000 ZCRPBUF EQU ZCRPCOD1 04430000 ZCRPLSCB EQU ZCRPCOD1 04431000 ZCRPLSBQ EQU ZCRPLSBF 04432000 ZCRPFSB EQU ZCRPCOD1 04433000 ZCRPLNG EQU ZCRPCOD1 04434000 ZCRPPG EQU ZCRPCOD1 04435000 ZCRDTODA EQU ZCRDFRDA 04436000 ZCRMLNG EQU ZCRPARMS+8 04437000 ZCRTBPTR EQU ZCRPARMS+4 04438000 ZCRCBPTR EQU ZCRFBPTR 04439000 ZCRCRLCP EQU ISTZCRR+20 04440000 ZCRMDATA EQU ZCRSCPSW 04441000 ZCRSKIPT EQU ZCRSCPSW 04442000 ZCRFSBWE EQU ZCRSCPSW 04443000 ZCRPRCMP EQU ZCRSCPSW 04444000 ZCRLREQ EQU ZCRSCPSW 04445000 ZCRRJLCP EQU ZCRSCPSW 04446000 ZCRTPINV EQU ZCRSCPSW 04447000 ZCRTPEX EQU ZCRSCPSW 04448000 @NM00014 EQU ZCRIBPR 04449000 ZCR3270R EQU ZCRIBPR 04450000 ZCR3270 EQU ZCRIBPR 04451000 ZCRLCPFD EQU ZCRIBPR 04452000 ZCRLCPFR EQU ZCRIBPR 04453000 ZCRRELK EQU ZCRIBPR 04454000 ZCRERR EQU ZCRIBPR 04455000 ZCRNOBUF EQU ZCRIBPR 04456000 @NM00013 EQU ZCRPFLGS 04457000 ZCRQAHED EQU ZCRPFLGS 04458000 ZCRF1RES EQU ZCRGENSW 04459000 ZCRBRIS EQU ZCRGENSW 04460000 ZCRCLRBD EQU ZCRGENSW 04461000 ZCREXRES EQU ZCRGENSW 04462000 ZCRLCSYN EQU ZCRGENSW 04463000 ZCRRT06 EQU ZCRGENSW 04464000 ZCRTSW2 EQU ZCRGENSW 04465000 ZCRTSW1 EQU ZCRGENSW 04466000 ZCRINLCP EQU ZCRFLGS3 04467000 ZCRWRPTR EQU ZCRFLGS3 04468000 ZCRNOFRE EQU ZCRFLGS3 04469000 ZCREDRIV EQU ZCRFLGS3 04470000 ZCRDISC EQU ZCRFLGS3 04471000 ZCRTPDIS EQU ZCRFLGS3 04472000 ZCRTPCON EQU ZCRFLGS3 04473000 ZCRTIC EQU ZCRFLGS3 04474000 ZCRCNLXL EQU ZCRRESET 04475000 ZCRENDAN EQU ZCRSWFLD 04476000 ZCRENDXL EQU ZCRSWFLD 04477000 ZCRENDX EQU ZCRSWFLD 04478000 ZCROB1 EQU ZCRNDLCP 04479000 ZCRENDPR EQU ZCRSWFLD 04480000 ZCREXTYP EQU ZCRSWFLD 04481000 ZCRSLCP EQU ZCRENDSH 04482000 ZCRIF0E3 EQU ZCRFLGS2 04483000 ZCRIF0E2 EQU ZCRFLGS2 04484000 ZCRIF0E1 EQU ZCRFLGS2 04485000 ZCROB EQU ZCRFLGS2 04486000 ZCRFMSED EQU ZCRFLGS2 04487000 ZCRSHEDI EQU ZCRFLGS2 04488000 ZCRLOCAL EQU ZCRFLGS2 04489000 ZCRFEXIT EQU ZCRFLGS1 04490000 ZCRUNSOL EQU ZCRFLGS1 04491000 ZCRENDLP EQU ZCRFLGS1 04492000 ZCRNRMEX EQU ZCRFLGS1 04493000 ZCRWAIT EQU ZCRFLGS1 04494000 ZCRDEQSW EQU ZCRFLGS1 04495000 ZCRQUESW EQU ZCRFLGS1 04496000 ZCREXSW EQU ZCRFLGS1 04497000 ZCRFRRA EQU ISTZCRR+8 04498000 ZCRCHAIN EQU ISTZCRR+4 04499000 ZCRFLAG EQU ZCRCRR+3 04500000 ZCRLEN EQU ZCRCRR+1 04501000 ZCRID EQU ZCRCRR 04502000 CCFRSVD1 EQU CFCCRT 04503000 CCFCR2 EQU CFCCRT 04504000 CCFCRP EQU CFCCRT 04505000 CCFCR1 EQU CFCCRT 04506000 CCFCS2 EQU CFCCRT 04507000 CCFCS1 EQU CFCCRT 04508000 NCFRSVD EQU CFCNTRD 04509000 NCFCR2 EQU CFCNTRD 04510000 NCFCRP EQU CFCNTRD 04511000 NCFCR1 EQU CFCNTRD 04512000 NCFCS2 EQU CFCNTRD 04513000 NCFCS1 EQU CFCNTRD 04514000 PFCRSV01 EQU ISTPFCRR+13 04515000 PFCFTA EQU ISTPFCRR+12 04516000 CRRFRR EQU PFCFRRO 04517000 CRRCHAIN EQU PFCCRRO 04518000 CRRLEN EQU PFCCRRLN 04519000 PFCRSV10 EQU PFCCRR+1 04520000 CRRID EQU PFCCRRID 04521000 ZSAZTRAC EQU ISTZSAVE+36 04522000 ZSAZSVVR EQU ISTZSAVE+12 04523000 ZSAZSVRR EQU ISTZSAVE+8 04524000 ZSAZSVFC EQU ISTZSAVE+4 04525000 ZSAZACTV EQU ZSAZSVMS 04526000 LCPFTYPE EQU LCPRPHA 04527000 LCPRSTQH EQU LCPLCCW 04528000 LCPCLREP EQU ISTLCPB+44 04529000 LCPUBFSB EQU LCPFLCCW 04530000 LCPRSV77 EQU ISTLCPB+39 04531000 LCPLCCWC EQU ISTLCPB+38 04532000 LCPRSV78 EQU LCPFLG1 04533000 LCPTRANS EQU LCPFLG1 04534000 LCPSTLB EQU LCPFLG1 04535000 LCPREDRV EQU LCPFLG1 04536000 LCPDIRPT EQU LCPFLG1 04537000 LCPINTER EQU LCPFLG1 04538000 LCPRESET EQU LCPFLG1 04539000 LCPSTYPE EQU ISTLCPB+36 04540000 LCPFSNCH EQU ISTLCPB+34 04541000 LCPFOSN EQU ISTLCPB+32 04542000 LCPTLBAD EQU ISTLCPB+28 04543000 LCPFDB2 EQU LCPFDBA+1 04544000 LCPFDB1 EQU LCPFDBA 04545000 LCPNXLCW EQU ISTLCPB+20 04546000 LCPDAF EQU LCPCID+2 04547000 LCPSAF EQU LCPCID 04548000 LCPLCCW1 EQU ISTLCPB+12 04549000 LCPRRCNT EQU LCPSEQ+1 04550000 LCPRRCCT EQU LCPSEQ 04551000 LCPATOP EQU LCPFLAG2 04552000 LCPFREE EQU LCPFLAG2 04553000 LCPDSTAT EQU LCPFLAG2 04554000 LCPEXRES EQU LCPFID0 04555000 LCPZRIMM EQU LCPTLBPI 04556000 LCPRSTRT EQU LCPFLAG2 04557000 LCPASYN EQU LCPFLAG2 04558000 LCPPRFLG EQU LCPFLAG2 04559000 LCPZMIRC EQU LCPRUCNT 04560000 LCPCHAI2 EQU LCPCHAIN+1 04561000 LCPCHNG EQU LCPCHAI1 04562000 LCPZRT0B EQU LCPMNRCD 04563000 LCPZRT0A EQU LCPMNRCD 04564000 LCPZRTL9 EQU LCPZRT09 04565000 LCPZRTL8 EQU LCPZRT08 04566000 LCPZRTL7 EQU LCPZRT07 04567000 LCPZRTL6 EQU LCPZRT06 04568000 LCPZRTL5 EQU LCPZRT05 04569000 LCPZRTL4 EQU LCPZRT04 04570000 LCPZRTL3 EQU LCPZRT03 04571000 LCPZRTL2 EQU LCPZRT02 04572000 LCPZRT01 EQU LCPFLAGS 04573000 LCPZRT00 EQU LCPFLAGS 04574000 LCPLNGTH EQU ISTLCPB+1 04575000 LCCWDATA EQU ISTLCCW+4 04576000 LCCWCNT EQU ISTLCCW+2 04577000 LCCWACI EQU LCCWFLAG 04578000 LCCWRFI EQU LCCWFLAG 04579000 LCCWPER EQU LCCWLSI 04580000 LCCWIDAT EQU LCCWFLAG 04581000 LCCWNTVC EQU LCCWFLAG 04582000 LCCWCKPT EQU LCCWFLAG 04583000 LCCWCC EQU LCCWFLAG 04584000 LCCWCD EQU LCCWFLAG 04585000 LCCWTYPE EQU LCCWCTL 04586000 LCCWMODE EQU LCCWCTL 04587000 LCCWSOP EQU LCCWRWOP 04588000 @NM00012 EQU LCCWRWOP 04589000 LCCWSD EQU LCCWOP 04590000 LCCWSI EQU LCCWOP 04591000 IOBERRCT EQU IOBSTDRD+30 04592000 IOBRSV19 EQU IOBINCAM+1 04593000 IOBOLTST EQU IOBBTAMF 04594000 IOBRFTMG EQU IOBBTAMF 04595000 IOBRSV17 EQU IOBBTAMF 04596000 IOBRSV16 EQU IOBBTAMF 04597000 IOBRSV15 EQU IOBBTAMF 04598000 IOBRSV14 EQU IOBBTAMF 04599000 IOBINUSE EQU IOBBTAMF 04600000 IOBPRMER EQU IOBBTAMF 04601000 IOBRSTRB EQU IOBRESTR+1 04602000 IOBREPOS EQU IOBRESTR 04603000 IOBDCBPB EQU IOBDCBPT+1 04604000 IOBRSV44 EQU IOBFLAG4 04605000 IOBJES3I EQU IOBFLAG4 04606000 IOBRSV42 EQU IOBFLAG4 04607000 IOBRSV41 EQU IOBFLAG4 04608000 IOBRSV40 EQU IOBFLAG4 04609000 IOBPMERR EQU IOBFLAG4 04610000 IOBCC3WE EQU IOBFLAG4 04611000 IOBGDPOL EQU IOBFLAG4 04612000 IOBSTRTB EQU IOBSTART+1 04613000 IOBSIOCC EQU IOBSTART 04614000 IOBCSB7 EQU IOBCSTAT 04615000 IOBCSB6 EQU IOBCSTAT 04616000 IOBCSB5 EQU IOBCSTAT 04617000 IOBCSB4 EQU IOBCSTAT 04618000 IOBCSB3 EQU IOBCSTAT 04619000 IOBCSB2 EQU IOBCSTAT 04620000 IOBCSB1 EQU IOBCSTAT 04621000 IOBCSB0 EQU IOBCSTAT 04622000 IOBUSB7 EQU IOBUSTAT 04623000 IOBUSB6 EQU IOBUSTAT 04624000 IOBUSB5 EQU IOBUSTAT 04625000 IOBUSB4 EQU IOBUSTAT 04626000 IOBUSB3 EQU IOBUSTAT 04627000 IOBUSB2 EQU IOBUSTAT 04628000 IOBUSB1 EQU IOBUSTAT 04629000 IOBUSB0 EQU IOBUSTAT 04630000 IOBCMDA EQU IOBIOCSW 04631000 IOBLOG EQU IOBFL3 04632000 IOBJAM EQU IOBICL 04633000 IOBMSG EQU IOBFL3 04634000 IOBSDR EQU IOBCNC 04635000 IOBACU EQU IOBFL3 04636000 IOBCDC EQU IOBFL3 04637000 IOBICC EQU IOBFL3 04638000 IOBCCC EQU IOBFL3 04639000 IOBECBPB EQU IOBECBPT+1 04640000 IOBECBCC EQU IOBECBPT 04641000 IOBS1B7 EQU IOBSENS1 04642000 IOBS1B6 EQU IOBSENS1 04643000 IOBS1B5 EQU IOBSENS1 04644000 IOBS1B4 EQU IOBSENS1 04645000 IOBS1B3 EQU IOBSENS1 04646000 IOBS1B2 EQU IOBSENS1 04647000 IOBS1B1 EQU IOBSENS1 04648000 IOBS1B0 EQU IOBSENS1 04649000 IOBSNSC9 EQU IOBS0B7 04650000 IOBS0B6 EQU IOBSENS0 04651000 IOBS0B5 EQU IOBSENS0 04652000 IOBS0B4 EQU IOBSENS0 04653000 IOBS0B3 EQU IOBSENS0 04654000 IOBS0B2 EQU IOBSENS0 04655000 IOBS0B1 EQU IOBSENS0 04656000 IOBS0B0 EQU IOBSENS0 04657000 IOBPNCH EQU IOBFLAG2 04658000 IOBSTATO EQU IOBFLAG2 04659000 IOBSKUPD EQU IOBFLAG2 04660000 IOBALTTR EQU IOBFLAG2 04661000 IOBRRT2 EQU IOBRDHA0 04662000 IOBRRT3 EQU IOBPURGE 04663000 IOBSENSE EQU IOBFLAG2 04664000 IOBHALT EQU IOBFLAG2 04665000 IOBSPSVC EQU IOBRSTRT 04666000 IOBUNREL EQU IOBFLAG1 04667000 IOBIOERR EQU IOBFLAG1 04668000 IOBFCREX EQU IOBCYCCK 04669000 IOBRPSTN EQU IOBFLAG1 04670000 IOBERRTN EQU IOBFLAG1 04671000 IOBCMDCH EQU IOBFLAG1 04672000 IOBDATCH EQU IOBFLAG1 04673000 IOBCNOPA EQU IOBPREFX+12 04674000 IOBCICB EQU IOBPREFX+8 04675000 IOBCECB EQU IOBPREFX+4 04676000 IOBCONOP EQU IOBPREFX+3 04677000 IOBCINOP EQU IOBPREFX+2 04678000 IOBRSV05 EQU IOBPREFX+1 04679000 IOBPCI EQU IOBCFLG1 04680000 IOBRSTCH EQU IOBCFLG1 04681000 IOBABAPP EQU IOBCFLG1 04682000 IOBPTST EQU IOBCFLG1 04683000 IOBRSV04 EQU IOBCFLG1 04684000 IOBRSV03 EQU IOBCFLG1 04685000 IOBRSV02 EQU IOBCFLG1 04686000 IOBRSV01 EQU IOBCFLG1 04687000 CVTLEVL EQU CVTRELNO+2 04688000 CVTNUMB EQU CVTRELNO 04689000 CVTMDL EQU CVTFIX+250 04690000 @NM00011 EQU CVTFIX+248 04691000 @NM00010 EQU CVTFIX 04692000 CVTRV482 EQU CVTXTNT2+128 04693000 CVTRV481 EQU CVTXTNT2+124 04694000 CVTRV480 EQU CVTXTNT2+120 04695000 CVTRV479 EQU CVTXTNT2+118 04696000 CVTRV478 EQU CVTXTNT2+117 04697000 CVTRV477 EQU CVTXTNT2+116 04698000 CVTRV476 EQU CVTXTNT2+115 04699000 CVTRV475 EQU CVTXTNT2+114 04700000 CVTRV474 EQU CVTRV466 04701000 CVTRV473 EQU CVTRV466 04702000 CVTRV472 EQU CVTRV466 04703000 CVTRV471 EQU CVTRV466 04704000 CVTRV470 EQU CVTRV466 04705000 CVTRV469 EQU CVTRV466 04706000 CVTRV468 EQU CVTRV466 04707000 CVTRV467 EQU CVTRV466 04708000 CVTRV465 EQU CVTRV457 04709000 CVTRV464 EQU CVTRV457 04710000 CVTRV463 EQU CVTRV457 04711000 CVTRV462 EQU CVTRV457 04712000 CVTRV461 EQU CVTRV457 04713000 CVTRV460 EQU CVTRV457 04714000 CVTRV459 EQU CVTRV457 04715000 CVTRV458 EQU CVTRV457 04716000 CVTRV456 EQU CVTXTNT2+108 04717000 CVTRV455 EQU CVTXTNT2+104 04718000 CVTRV454 EQU CVTXTNT2+100 04719000 CVTRV453 EQU CVTXTNT2+96 04720000 CVTRV452 EQU CVTXTNT2+94 04721000 CVTRV451 EQU CVTXTNT2+92 04722000 CVTRV450 EQU CVTXTNT2+90 04723000 CVTRV449 EQU CVTXTNT2+88 04724000 CVTRV448 EQU CVTXTNT2+87 04725000 CVTRV447 EQU CVTXTNT2+86 04726000 CVTRV446 EQU CVTRV438 04727000 CVTRV445 EQU CVTRV438 04728000 CVTRV444 EQU CVTRV438 04729000 CVTRV443 EQU CVTRV438 04730000 CVTRV442 EQU CVTRV438 04731000 CVTRV441 EQU CVTRV438 04732000 CVTRV440 EQU CVTRV438 04733000 CVTRV439 EQU CVTRV438 04734000 CVTRV437 EQU CVTRV429 04735000 CVTRV436 EQU CVTRV429 04736000 CVTRV435 EQU CVTRV429 04737000 CVTRV434 EQU CVTRV429 04738000 CVTRV433 EQU CVTRV429 04739000 CVTRV432 EQU CVTRV429 04740000 CVTRV431 EQU CVTRV429 04741000 CVTRV430 EQU CVTRV429 04742000 CVTRV428 EQU CVTXTNT2+80 04743000 CVTRV427 EQU CVTXTNT2+76 04744000 CVTRV426 EQU CVTXTNT2+72 04745000 CVTRV425 EQU CVTXTNT2+68 04746000 CVTATACT EQU CVTATCVT 04747000 CVTRV423 EQU CVTXTNT2+62 04748000 CVTRV422 EQU CVTXTNT2+60 04749000 CVTRV421 EQU CVTXTNT2+58 04750000 CVTRV420 EQU CVTXTNT2+56 04751000 CVTRV419 EQU CVTXTNT2+55 04752000 CVTRV418 EQU CVTXTNT2+54 04753000 CVTRV417 EQU CVTRV409 04754000 CVTRV416 EQU CVTRV409 04755000 CVTRV415 EQU CVTRV409 04756000 CVTRV414 EQU CVTRV409 04757000 CVTRV413 EQU CVTRV409 04758000 CVTRV412 EQU CVTRV409 04759000 CVTRV411 EQU CVTRV409 04760000 CVTRV410 EQU CVTRV409 04761000 CVTRV408 EQU CVTRV400 04762000 CVTRV407 EQU CVTRV400 04763000 CVTRV406 EQU CVTRV400 04764000 CVTRV405 EQU CVTRV400 04765000 CVTRV404 EQU CVTRV400 04766000 CVTRV403 EQU CVTRV400 04767000 CVTRV402 EQU CVTRV400 04768000 CVTRV401 EQU CVTRV400 04769000 CVTICB EQU CVTXTNT2+48 04770000 CVTSKTA EQU CVTXTNT2+44 04771000 CVTSHSB EQU CVTSHS 04772000 CVTRSV98 EQU CVTXTNT2+36 04773000 CVTRSV97 EQU CVTXTNT2+34 04774000 CVTRSV96 EQU CVTXTNT2+32 04775000 CVTOLTEP EQU CVTXTNT2+28 04776000 CVTQIDA EQU CVTQID+1 04777000 CVTRSV95 EQU CVTQID 04778000 CVTRSV94 EQU CVTXTNT2+20 04779000 CVTRSV93 EQU CVTXTNT2+16 04780000 CVTRSV92 EQU CVTXTNT2+12 04781000 CVTDEBVR EQU CVTXTNT2+8 04782000 CVTRSV91 EQU CVTXTNT2+6 04783000 CVTRSV9H EQU CVTFLGBT 04784000 CVTRSV9G EQU CVTFLGBT 04785000 CVTRSV9F EQU CVTFLGBT 04786000 CVTRSV9E EQU CVTFLGBT 04787000 CVTRSV9D EQU CVTFLGBT 04788000 CVTRSV9C EQU CVTFLGBT 04789000 CVTVME EQU CVTFLGBT 04790000 CVTNPE EQU CVTFLGBT 04791000 CVTNUCLS EQU CVTXTNT2+4 04792000 CVTDSSVA EQU CVTDSSV+1 04793000 CVTRSV89 EQU CVTDSSV 04794000 CVTRSV88 EQU CVTXTNT1+8 04795000 CVTRSV87 EQU CVTXTNT1+4 04796000 CVTFACHN EQU CVTXTNT1 04797000 CVTRV488 EQU CVTMAP+412 04798000 CVTRV487 EQU CVTMAP+408 04799000 CVTRV486 EQU CVTMAP+404 04800000 CVTRV485 EQU CVTMAP+400 04801000 CVTACTAP EQU CVTMAP+396 04802000 CVTAUTH EQU CVTMAP+392 04803000 CVTATMCA EQU CVTATMCT+1 04804000 CVTATMST EQU CVTATMCT 04805000 CVTRSV61 EQU CVTMAP+384 04806000 CVTVOLT1 EQU CVTVOLM1+1 04807000 CVTVOLI1 EQU CVTVOLF1 04808000 CVTSTOA EQU CVTMAP+376 04809000 CVTRSV58 EQU CVTMAP+374 04810000 CVTRSV57 EQU CVTMAP+372 04811000 CVTDDCE EQU CVTMAP+368 04812000 CVTPNWFR EQU CVTMAP+364 04813000 CVTSMF EQU CVTMAP+360 04814000 CVTSULK EQU CVTMAP+358 04815000 CVTSLKO EQU CVTSYSK 04816000 CVTSLKP EQU CVTSYSK 04817000 CVTSLKQ EQU CVTSYSK 04818000 CVTSLKR EQU CVTSYSK 04819000 CVTRSV56 EQU CVTSYSK 04820000 CVTRSV55 EQU CVTSYSK 04821000 CVTRSV54 EQU CVTSYSK 04822000 CVTRSV53 EQU CVTSYSK 04823000 CVTRSV52 EQU CVTA1F1 04824000 CVTRSV51 EQU CVTA1F1 04825000 CVTRSV50 EQU CVTA1F1 04826000 CVTRSV49 EQU CVTA1F1 04827000 CVTRSV48 EQU CVTA1F1 04828000 CVTRSV47 EQU CVTA1F1 04829000 CVTSRSW EQU CVTA1F1 04830000 CVTPFSW EQU CVTA1F1 04831000 CVTPCVT EQU CVTMAP+352 04832000 CVTRSV46 EQU CVTMAP+344 04833000 CVTRSV45 EQU CVTMAP+340 04834000 CVTRSV44 EQU CVTMAP+338 04835000 CVTRSV43 EQU CVTMAP+336 04836000 CVTHJESA EQU CVTHJES+1 04837000 CVTRSV42 EQU CVTHJES 04838000 CVTEXT2A EQU CVTEXT2+1 04839000 CVTRSV41 EQU CVTEXT2 04840000 CVTAPFA EQU CVTAPF+1 04841000 CVTRSV40 EQU CVTAPF 04842000 CVTRV518 EQU CVTINTLA 04843000 CVTRV517 EQU CVTERPV 04844000 CVTEORM EQU CVTMAP+312 04845000 CVTMCHPR EQU CVTMAP+308 04846000 CVTTZ EQU CVTMAP+304 04847000 CVTJEPS EQU CVTMAP+300 04848000 CVTJESCT EQU CVTMAP+296 04849000 CVTMODE EQU CVTMAP+292 04850000 CVTPTRV EQU CVTMAP+288 04851000 CVTREAL EQU CVTMAP+284 04852000 CVTRSV39 EQU CVTMAP+280 04853000 CVTRSV38 EQU CVTMAP+276 04854000 CVTDMSRA EQU CVTDMSR+1 04855000 CVTRV634 EQU CVTDMSRF 04856000 CVTRV633 EQU CVTDMSRF 04857000 CVTRV632 EQU CVTDMSRF 04858000 CVTRV631 EQU CVTDMSRF 04859000 CVTRV630 EQU CVTDMSRF 04860000 CVTRV629 EQU CVTDMSRF 04861000 CVTUDUMP EQU CVTDMSRF 04862000 CVTSDUMP EQU CVTDMSRF 04863000 CVTQMSGA EQU CVTQMSG+1 04864000 CVTRSV36 EQU CVTQMSG 04865000 CVTAMFF EQU CVTMAP+264 04866000 CVTPURGA EQU CVTPURG+1 04867000 CVTRSV35 EQU CVTPURG 04868000 CVTCBSP EQU CVTMAP+256 04869000 CVTATERA EQU CVTATER+1 04870000 CVTSYST EQU CVTATER 04871000 CVTVOLT2 EQU CVTTAT 04872000 CVTVOLI2 EQU CVTVOLF2 04873000 CVTAQAVB EQU CVTAQAVT+1 04874000 CVTRSV34 EQU CVTTCMFG 04875000 CVTRSV33 EQU CVTTCMFG 04876000 CVTRSV32 EQU CVTTCMFG 04877000 CVTRSV31 EQU CVTTCMFG 04878000 CVTRSV30 EQU CVTTCMFG 04879000 CVTRSV29 EQU CVTTCMFG 04880000 CVTRSV28 EQU CVTTCMFG 04881000 CVTTCRDY EQU CVTTCMFG 04882000 CVTGTFA EQU CVTGTF+1 04883000 CVTRSV27 EQU CVTGTFST 04884000 CVTRNIO EQU CVTGTFST 04885000 CVTUSR EQU CVTGTFST 04886000 CVTRV318 EQU CVTFORM 04887000 CVTRV317 EQU CVTTMODE 04888000 CVTRV316 EQU CVTSTATE 04889000 CVTRV315 EQU CVTGTFS 04890000 CVTGTFAV EQU CVTGTFS 04891000 CVT0SCR1 EQU CVTMAP+232 04892000 CVTRV515 EQU CVTMAP+228 04893000 CVTRMS EQU CVTMAP+224 04894000 CVTPATCH EQU CVTMAP+220 04895000 CVTTSCE EQU CVTMAP+216 04896000 CVTLNKSC EQU CVTMAP+214 04897000 CVTQABST EQU CVTMAP+212 04898000 CVTMDLDS EQU CVTMAP+208 04899000 CVTUSER EQU CVTMAP+204 04900000 CVTABEND EQU CVTMAP+200 04901000 CVTSMCA EQU CVTMAP+196 04902000 CVTRSV18 EQU CVTMAP+192 04903000 CVTQLPAQ EQU CVTMAP+188 04904000 CVTQCDSR EQU CVTMAP+184 04905000 CVTRSV17 EQU CVTOPTB 04906000 CVTRSV16 EQU CVTOPTB 04907000 CVTFP EQU CVTOPTB 04908000 CVTAPTHR EQU CVTOPTB 04909000 CVTNLOG EQU CVTOPTB 04910000 CVTTOD EQU CVTOPTB 04911000 CVTCTIMS EQU CVTOPTB 04912000 CVTPROT EQU CVTOPTB 04913000 CVTXPFP EQU CVTOPTA 04914000 CVTASCII EQU CVTOPTA 04915000 CVTRSV13 EQU CVTOPTA 04916000 CVTRSV12 EQU CVTOPTA 04917000 CVTNIP EQU CVTOPTA 04918000 CVTDDR EQU CVTOPTA 04919000 CVTAPR EQU CVTOPTA 04920000 CVTCCH EQU CVTOPTA 04921000 CVTSNCTR EQU CVTMAP+180 04922000 CVTQMWR EQU CVTMAP+176 04923000 CVTQOCR EQU CVTMAP+172 04924000 CVT1EF00 EQU CVTMAP+168 04925000 CVTMZ00 EQU CVTMAP+164 04926000 CVTHEAD EQU CVTMAP+160 04927000 CVTRSV11 EQU CVTMAP+156 04928000 CVT0PT01 EQU CVTMAP+152 04929000 CVTMSER EQU CVTMAP+148 04930000 CVTRV516 EQU CVTIERLC 04931000 CVTILCH EQU CVTMAP+140 04932000 CVT0DS EQU CVTMAP+136 04933000 CVTFBOSV EQU CVTMAP+132 04934000 CVTNUCB EQU CVTMAP+128 04935000 CVTIXAVL EQU CVTMAP+124 04936000 CVTIOQET EQU CVTMAP+120 04937000 CVTDCBA EQU CVTMAP+117 04938000 CVTMVS2 EQU CVTDCB 04939000 CVT6DAT EQU CVTDCB 04940000 CVT4MPS EQU CVTDCB 04941000 CVTRSV09 EQU CVTDCB 04942000 CVT4MS1 EQU CVTDCB 04943000 CVT2SPS EQU CVTDCB 04944000 CVT1SSS EQU CVTDCB 04945000 CVTRSV08 EQU CVTDCB 04946000 CVTSTB EQU CVTMAP+112 04947000 CVTQTD00 EQU CVTMAP+108 04948000 CVTQTE00 EQU CVTMAP+104 04949000 CVTCUCB EQU CVTMAP+100 04950000 CVTSJQ EQU CVTMAP+96 04951000 CVTPBLDL EQU CVTMAP+92 04952000 CVTTPC EQU CVTMAP+88 04953000 CVTSVDCB EQU CVTMAP+84 04954000 CVTBRET EQU CVTMAP+82 04955000 CVTEXIT EQU CVTMAP+80 04956000 CVT0FN00 EQU CVTMAP+76 04957000 CVTDARA EQU CVTDAR+1 04958000 CVTRSV07 EQU CVTFLGS1 04959000 CVTRSV06 EQU CVTFLGS1 04960000 CVTRSV05 EQU CVTFLGS1 04961000 CVTRSV04 EQU CVTFLGS1 04962000 CVTRSV03 EQU CVTFLGS1 04963000 CVTRSV02 EQU CVTFLGS1 04964000 CVTRSV01 EQU CVTFLGS1 04965000 CVTDMPLK EQU CVTFLGS1 04966000 CVTXITP EQU CVTMAP+68 04967000 CVTZDTAB EQU CVTMAP+64 04968000 CVTMSLT EQU CVTMAP+60 04969000 CVTDATE EQU CVTMAP+56 04970000 CVTBTERM EQU CVTMAP+52 04971000 CVTSYSAD EQU CVTMAP+48 04972000 CVTXTLER EQU CVTMAP+44 04973000 CVTILK2 EQU CVTMAP+40 04974000 CVTILK1 EQU CVTMAP+36 04975000 CVTPRLTV EQU CVTMAP+32 04976000 CVTPCNVT EQU CVTMAP+28 04977000 CVT0VL00 EQU CVTMAP+24 04978000 CVTXAPG EQU CVTMAP+20 04979000 CVTBUF EQU CVTMAP+16 04980000 CVTJOB EQU CVTMAP+12 04981000 CVTLINK EQU CVTMAP+8 04982000 CVT0EF00 EQU CVTMAP+4 04983000 CVTTCBP EQU CVTMAP 04984000 CVT EQU CVTMAP 04985000 @NM00009 EQU SRBSECT+40 04986000 @NM00008 EQU SRBSECT+38 04987000 SRBPRIOR EQU SRBSECT+37 04988000 SRBPKF EQU SRBSECT+36 04989000 SRBSAVE EQU SRBSECT+32 04990000 SRBPARM EQU SRBSECT+28 04991000 SRBRMTR EQU SRBSECT+24 04992000 SRBEP EQU SRBSECT+20 04993000 SRBPTCB EQU SRBFLC+4 04994000 SRBPASID EQU SRBFLC+2 04995000 SRBCPAFF EQU SRBFLC 04996000 SRBASCB EQU SRBSECT+8 04997000 SRBFLNK EQU SRBSECT+4 04998000 SRBID EQU SRBSECT 04999000 IOSEND EQU IOSB+108 05000000 IOSSKR EQU IOSEEKA+7 05001000 IOSSKH2 EQU IOSSKHH+1 05002000 IOSSKH1 EQU IOSSKHH 05003000 IOSSKCC EQU IOSCCHH 05004000 IOSSKBB EQU IOSEEKA+1 05005000 IOSSKM EQU IOSEEKA 05006000 IOSEEK EQU IOSB+92 05007000 IOSMDM EQU IOSB+91 05008000 IOSMDB EQU IOSB+90 05009000 IOSCKEY7 EQU IOSCKEY 05010000 IOSCKEY6 EQU IOSCKEY 05011000 IOSCKEY5 EQU IOSCKEY 05012000 IOSCKEY4 EQU IOSCKEY 05013000 @NM00004 EQU IOSCKEY 05014000 IOSFMSK EQU IOSB+88 05015000 IOSCUDEV EQU IOSPATH+1 05016000 @NM00003 EQU IOSCHN 05017000 IOSPATH3 EQU IOSCHN 05018000 IOSPATH2 EQU IOSCHN 05019000 IOSEXP EQU IOSCHN 05020000 IOSGDP EQU IOSCHN 05021000 IOSAFF EQU IOSB+85 05022000 IOSRSS1B EQU IOSB+84 05023000 IOSDSID EQU IOSB+80 05024000 IOSVST EQU IOSB+76 05025000 IOSRST EQU IOSB+72 05026000 IOSDIE EQU IOSB+68 05027000 IOSABN EQU IOSB+64 05028000 IOSNRM EQU IOSB+60 05029000 IOSPCI EQU IOSB+56 05030000 IOSERP EQU IOSB+52 05031000 IOSPCHN EQU IOSB+48 05032000 IOSSNS EQU IOSB+42 05033000 IOSAPMSK EQU IOSB+40 05034000 IOSRES4A EQU IOSB+36 05035000 IOSUSE EQU IOSB+32 05036000 IOSSRB EQU IOSB+28 05037000 IOSCSWRC EQU IOSCSW+5 05038000 IOSTSB EQU IOSTATUS+1 05039000 IOSTSA EQU IOSTATUS 05040000 IOSCSWCA EQU IOSCSW 05041000 IOSCC EQU @NM00002 05042000 IOSUCB EQU IOSB+16 05043000 IOSOPT2X EQU IOSOPT2 05044000 IOSHTP EQU IOSOPT2 05045000 IOSRELSE EQU IOSOPT 05046000 IOSAPR EQU IOSOPT 05047000 IOSTSLL EQU IOSOPT 05048000 IOSNERP EQU IOSOPT 05049000 IOSPSLL EQU IOSOPT 05050000 IOSQISCE EQU IOSOPT 05051000 IOSDEP EQU IOSOPT 05052000 IOSBYP EQU IOSOPT 05053000 IOSCOD EQU IOSB+13 05054000 IOSPKY7 EQU IOSPKEY 05055000 IOSPGDPX EQU IOSPKEY 05056000 IOSIDR EQU IOSPKEY 05057000 IOSLCL EQU IOSPKEY 05058000 @NM00001 EQU IOSPKEY 05059000 IOSPGAD EQU IOSB+8 05060000 IOSASID EQU IOSB+6 05061000 IOSPRLVL EQU IOSB+5 05062000 IOSDVRID EQU IOSB+4 05063000 IOSPROC EQU IOSB+3 05064000 IOSFLC7 EQU IOSFLC 05065000 IOSFLC6 EQU IOSFLC 05066000 IOSRWAIT EQU IOSFLC 05067000 IOSTP EQU IOSFLC 05068000 IOSCC3WE EQU IOSFLC 05069000 IOSVERIF EQU IOSDVALT 05070000 IOSDVMNT EQU IOSFLC 05071000 IOSLOG EQU IOSFLB 05072000 IOSBDCST EQU IOSFLB 05073000 IOSMSG EQU IOSFLB 05074000 IOSFLB4 EQU IOSFLB 05075000 IOSFLB3 EQU IOSFLB 05076000 IOSFLB2 EQU IOSFLB 05077000 IOSSDR EQU IOSFLB 05078000 IOSDIESE EQU IOSFLB 05079000 IOSIOSB EQU IOSFLA 05080000 IOSDOM EQU IOSFLA 05081000 IOSEX EQU IOSFLA 05082000 IOSSMDB EQU IOSFLA 05083000 IOSSMDA EQU IOSFLA 05084000 IOSERR EQU IOSFLA 05085000 IOSCCHN EQU IOSACHN 05086000 IOSDCHN EQU IOSACHN 05087000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05088000 @RC00687 EQU @RC00686 05089000 DOREQ# EQU @RC00687 05090000 @ENDDATA EQU * 05091000 END ISTCRCR4,(C'PLS2337',0603,78199) 05092000