*COMDECK ZEXDBGNTS
*IF -DEF,BSCCF1 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                       NTS TRANSPARENT TIP                           * 
*                                                                     * 
*      MPEDIT STATEMENTS TO INITIALIZE THE NTS TRANSPARENT TIP        * 
*      WORKLIST CONTROL BLOCK AND TIP TYPE TABLE.                     * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
_ 
* * * *  WORKLIST CONTROL BLOCK FOR NTS TRANSPARENT DEBUG TIP 
? 
      BYWLCB[ B0XPTNTS ].BYPRADDR  := /ENTRY(PNTSXPTIP);
      BYWLCB[ B0XPTNTS ].BYPAGE    := /PGNUM(PNTSXPTIP);
      BYWLCB[ B0XPTNTS ].BYWLINDEX := B0XPTNTS; 
      BYWLCB[ B0XPTNTS ].BYMAXCNT  := 1;
      BYWLCB[ B0XPTNTS ].BYINC     := 3;
      BYWLCB[ B0XPTNTS ].BYWLREQ   := /TRUE;
_ 
* * * *  TIP TYPE TABLE FOR THE NTS USER1 TIP 
? 
      BJTIPTYPT [N0NTS2TT].BJOBT          := /TRUE; 
      BJTIPTYPT [N0NTS2TT].BJBZL          := /FALSE;
      BJTIPTYPT [N0NTS2TT].BJTCBSIZE      := /B0TS5;
      BJTIPTYPT [N0NTS2TT].BJQTYPE        := /B0QNEXTSEG; 
      BJTIPTYPT [N0NTS2TT].BJLISTIX       := B0NTS2TT;
      BJTIPTYPT [N0NTS2TT].BJDFTC         := N02780;
      BJTIPTYPT [N0NTS2TT].BJJAT [N1CON]  := /BSCCSAT;
      BJTIPTYPT [N0NTS2TT].BJAT           := /BSCLCBAT; 
      BJTIPTYPT [N0NTS2TT].BJTEMUX2       := /ENTRY (PNTS2MUX); 
      BJTIPTYPT [N0NTS2TT].BJTPMUX2       := /PGNUM (PNTS2MUX); 
      BJTIPTYPT [N0NTS2TT].BJIVTSIZE      := BSLFIDLES - BSPGWIDTH + 1; 
*ENDIF
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*      INPUT STATE POINTER TABLE ADDRESS INITIALIZATION               * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
*IF DEF,BSCCF1,1
      NTSINPST := 0;
*IF -DEF,BSCCF1,1 
      NTSINPST := NTSITP; 
  
