*COMDECK ZEXHLIP
_ 
*  WORK LIST CONTROL BLOCK FOR HDLC LIP 
? 
      BYWLCB[ B0HDLC  ].BYNAME    := $4C50; 
      BYWLCB[ B0HDLC  ].BYPRADDR  := /ENTRY( PLIP );
      BYWLCB[ B0HDLC  ].BYPAGE    := /PGNUM( PLIP );
      BYWLCB[ B0HDLC  ].BYMAXCNT  := 4; 
      BYWLCB[ B0HDLC  ].BYINC     := 3; 
      BYWLCB[ B0HDLC  ].BYFEINC   := 0; 
      BYWLCB[ B0HDLC  ].BYBACKUP  := /TRUE; 
_ 
*  WORK LIST CONTROL BLOCK ADDRESS FOR HDLC LIP FOR INPUT STATES
? 
      LIPWLCB := BYWLCB + (/BYWSIZE * (B0HDLC-1));
_ 
*  TIP TYPE TABLE FOR HDLC LIP
? 
      BJTIPTYPT[  N0HDLC ].BJOBT     := /TRUE;
      BJTIPTYPT[  N0HDLC ].BJBZL     := /FALSE; 
      BJTIPTYPT[  N0HDLC ].BJLISTIX  :=  B0HDLC;
      BJTIPTYPT[  N0HDLC ].BJTPMUX2  := /PGNUM(PLIPML   );
      BJTIPTYPT[  N0HDLC ].BJTEMUX2  := /ENTRY(PLIPML   );
_ 
*  ENTRY ADDRESS AND PAGE NUMBER FOR HDLC LIP ADD TO DATA QUEUE 
? 
      BRTNJUMP[C1PLLIPQ     ].JPAGEVAL := /PGNUM(PLLIPQ); 
      BRTNJUMP[C1PLLIPQ     ].JENTADDR := /ENTRY(PLLIPQ); 
_ 
*  TERMINAL CHARACTERISTICS (BASE FIELDS) FOR HDLC LIP
? 
      NJTECT[  N0THDLC].NJISPTA     := /ENTRY(LIPIST);
      NJTECT[  N0THDLC].NJCNT1      := 257; 
      NJTECT[  N0THDLC].NJTIPTY     :=  N0HDLC; 
      NJTECT[  N0THDLC].NJIBFCD     :=  J1FRSTCHAR; 
      NJTECT[  N0THDLC].NJXCNT      := 7; 
_ 
*  CBTIMTBL INITITIALIZATION FOR HDLC LIP 
? 
      CBTIMTBL[C0HLIP].CBPADDR  := /PGNUM(PLIPTC);
      CBTIMTBL[C0HLIP].CBADDR   := /ENTRY(PLIPTC);
      CBTIMTBL[C0HLIP].CBTIMER  := 2; 
      CBTIMTBL[C0HLIP].CBINTVAL := 2; 
