*COMDECK ZEXX25 
_****************************************************** 
*                                                     * 
*      X.25 LINK ZAP INITIALIZATION                   * 
*                                                     * 
******************************************************? 
_?
_?
*IF DEF,L3DEBUG,1 
      PNTSTP := NTSTPR; 
*IF DEF,L2DEBUG,1 
      PNTSTP := NTSTPR; 
*IF DEF,PADEBUG,1 
      PNTSTP := NTSTPR; 
_?
*IF DEF,L3DEBUG,1 
      X25LPBCK := /FALSE; 
*IF DEF,X25CF1,2
_?
       TOPSEUDO := /TRUE; 
_?
_***********************************
*      X.25 BUFFER THRESHOLDS      *
***********************************?
_?
      X25LBUF := 30;                        _LOW BUFFER THRESHOLD      ?
      X25HBUF := 50;                        _HIGH BUFFER THRESHOLD     ?
_?
_***********************************
*  X.25 SUB TIPS ADDRESS TABLE     *
***********************************?
*IF DEF,X25PAD,3
_?
      X25STTABLE[N0XPAD ].XASTPAGE := /PGNUM(PXPADTIP); 
      X25STTABLE[N0XPAD ].XASTADDR := /ENTRY(PXPADTIP); 
*IF DEF,X25APPL,3 
_?
      X25STTABLE[N0XAPPL].XASTPAGE := /PGNUM(PXAATIP);
      X25STTABLE[N0XAPPL].XASTADDR := /ENTRY(PXAATIP);
_?
      X25STTABLE[N0X1USR].XASTPAGE := /PGNUM(PXUSRTIP); 
      X25STTABLE[N0X1USR].XASTADDR := /ENTRY(PXUSRTIP); 
_?
_?
_***********************************
*      X.25 INPUT STATES ADDRESS   *
***********************************?
_?
      X5ISPTA := X25IST;
      X5NETTAB := /ENTRY(X25NETTAB);
_?
_***********************************
*  X.25 WORK LIST CONTROL BLOCK    *
***********************************?
_?
_          *****  X.25 TIP  *****?
_?
      BYWLCB[B0X25TIP].BYNAME     := $3235; 
      BYWLCB[B0X25TIP].BYPRADDR   := /ENTRY(PX25TIP); 
      BYWLCB[B0X25TIP].BYPAGE     := /PGNUM(PX25TIP); 
      BYWLCB[B0X25TIP].BYMAXCNT   := 1; 
      BYWLCB[B0X25TIP].BYINC      := 3; 
      BYWLCB[B0X25TIP].BYFEINC    := 0; 
      BYWLCB[B0X25TIP].BYBACKUP   := /TRUE; 
_?
_          *****  X.25 TRANSPORT LAYER  *****?
_?
      BYWLCB[B0XTRANS].BYNAME     := $5854; 
      BYWLCB[B0XTRANS].BYPRADDR   := /ENTRY(PX25TRANS); 
      BYWLCB[B0XTRANS].BYPAGE     := /PGNUM(PX25TRANS); 
      BYWLCB[B0XTRANS].BYMAXCNT   := 1; 
      BYWLCB[B0XTRANS].BYINC      := 3; 
      BYWLCB[B0XTRANS].BYFEINC    := 0; 
      BYWLCB[B0XTRANS].BYBACKUP   := /TRUE; 
_?
      X51WLCB := BYWLCB + (/BYWSIZE * (B0XTRANS - 1 )); 
      X52WLCB := BYWLCB + (/BYWSIZE * (B0XTRANS - 1 )); 
      X53WLCB := BYWLCB + (/BYWSIZE * (B0XTRANS - 1));
_?
_          ***** X.25 OBT QUEUE  *****? 
_?
      BYWLCB[B0XOBTQ ].BYNAME     := $584D; 
      BYWLCB[B0XOBTQ ].BYPRADDR   := /ENTRY(PX25MUX); 
      BYWLCB[B0XOBTQ ].BYPAGE     := /PGNUM(PX25MUX); 
      BYWLCB[B0XOBTQ ].BYMAXCNT   := 1; 
      BYWLCB[B0XOBTQ ].BYINC      := 3; 
      BYWLCB[B0XOBTQ ].BYFEINC    := 0; 
      BYWLCB[B0XOBTQ ].BYBACKUP   := /TRUE; 
_?
_***********************************
*  X.25 TIP TYPE TABLE             *
***********************************?
_?
      BJTIPTYPT[N1X25    ].BJOBT     := /TRUE;
      BJTIPTYPT[N1X25    ].BJBZL     := /FALSE; 
      BJTIPTYPT[N1X25    ].BJIVTSIZE := BSLFIDLES - BSPGWIDTH + 1;
      BJTIPTYPT[N1X25    ].BJLIVTBVT := BSPADPAR + 15;
      BJTIPTYPT[N1X25    ].BJTCBSIZE := /B0TS7; 
      BJTIPTYPT[N1X25    ].BJQTYPE   := /B0QNEXTSEG;
      BJTIPTYPT[N1X25    ].BJLISTX   := B0X25TIP; 
      BJTIPTYPT[N1X25    ].BJDFTC    := N0M33;
      BJTIPTYPT[N1X25    ].BJJAT[N1CON]  := /ENTRY(X25CSAT);
      BJTIPTYPT[N1X25    ].BJJAT[N1CR]   := /NIL; 
      BJTIPTYPT[N1X25    ].BJJAT[N1LP]   := /NIL; 
      BJTIPTYPT[N1X25    ].BJJAT[N1CP]   := /NIL; 
      BJTIPTYPT[N1X25    ].BJJAT[N1PLOT] := /NIL; 
      BJTIPTYPT[N1X25    ].BJAT          := /ENTRY(X25LCBAT); 
      BJTIPTYPT[N1X25    ].BJTPMUX2  := /PGNUM(PX25MUX);
      BJTIPTYPT[N1X25    ].BJTEMUX2  := /ENTRY(PX25MUX);
      BJTIPTYPT[N1X25    ].BJTXTPAGE := /PGNUM(PXINTBIP); 
      BJTIPTYPT[N1X25    ].BJTXTENT  := /ENTRY(PXINTBIP); 
      BJTIPTYPT[N1X25    ].BJTCBPINIT:= 0;
      BJTIPTYPT[N1X25    ].BJTCBEINIT:= 0;
