*COMDECK ZEXNTS 
_           ----  NTSTIP----                                           ?
_ 
*  WORK LIST CONTROL BLOCK FOR NTSTIP 
? 
*IF DEF,X25CF1,2
      BYWLCB[B0NTSWL  ].BYPRADDR  := /ENTRY(PNTSD3 ); 
      BYWLCB[B0NTSWL  ].BYPAGE    := /PGNUM(PNTSD3 ); 
*IF -DEF,X25CF1,3 
*IF DEF,X25DEBUG,2
      BYWLCB[B0NTSWL  ].BYPRADDR  := /ENTRY(PNTSD4 ); 
      BYWLCB[B0NTSWL  ].BYPAGE    := /PGNUM(PNTSD4 ); 
      BYWLCB[B0NTSWL  ].BYWLINDEX := B0NTSWL; 
      BYWLCB[B0NTSWL  ].BYMAXCNT  := 1; 
      BYWLCB[B0NTSWL  ].BYINC     := 3; 
      BYWLCB[B0NTSWL  ].BYWLREQ   := /TRUE; 
_ 
*  TIP TYPE TABLE FOR NTSTIP
? 
      BJTIPTYPT [N0NTS1TT].BJOBT          := /TRUE; 
      BJTIPTYPT [N0NTS1TT].BJBZL          := /FALSE;
      BJTIPTYPT [N0NTS1TT].BJTCBSIZE      := /B0TS5;
      BJTIPTYPT [N0NTS1TT].BJQTYPE        := /B0QNEXTSEG; 
      BJTIPTYPT [N0NTS1TT].BJLISTIX       := B0NTSWL; 
      BJTIPTYPT [N0NTS1TT].BJDFTC         := N0M33; 
      BJTIPTYPT [N0NTS1TT].BJJAT [N1CON]  := /NTSCSAT;
      BJTIPTYPT [N0NTS1TT].BJAT           := /ASYLCBAT; 
      BJTIPTYPT [N0NTS1TT].BJIVTSIZE      := BSLFIDLES - BSPGWIDTH + 1; 
_?
