*COMDECK ZEXHASP
_ 
      ********************************
      * HASP LINK ZAP INITIALIZATION *
      ********************************
? 
_ 
*  WORKLIST CONTROL BLOCK FOR HASP TIP
? 
      BYWLCB[  B0HASP ].BYNAME    := $4853; 
      BYWLCB[  B0HASP ].BYPRADDR  := /ENTRY(PTHSPTIP);
      BYWLCB[  B0HASP ].BYPAGE    := /PGNUM(PTHSPTIP);
      BYWLCB[  B0HASP ].BYMAXCNT  := 1; 
      BYWLCB[  B0HASP ].BYINC     := 3; 
      BYWLCB[  B0HASP ].BYFEINC   := 0; 
      BYWLCB[  B0HASP ].BYBACKUP  := /TRUE; 
_ 
*  TIP TYPE TABLE FOR HASP TIP
? 
      BJTIPTYPT[  N1HASP ].BJOBT     := /FALSE; 
      BJTIPTYPT[  N1HASP ].BJBZL     := /TRUE;
      BJTIPTYPT[  N1HASP ].BJIVTSIZE := BSCHLEN - BSPGWIDTH + 1;
      BJTIPTYPT[  N1HASP ].BJTCBSIZE := /B0TS4; 
      BJTIPTYPT[  N1HASP ].BJLIVTBVT := BSCHLEN;
      BJTIPTYPT[  N1HASP ].BJICRCS   := 3;
      BJTIPTYPT[  N1HASP ].BJLISTX   := B0HASP; 
      BJTIPTYPT[  N1HASP ].BJDFTC    := N0HASP; 
      BJTIPTYPT[  N1HASP ].BJJAT[N1CON]  := /ENTRY(HSPCSAT);
      BJTIPTYPT[  N1HASP ].BJJAT[N1CR]   := /ENTRY(HSPCRAT);
      BJTIPTYPT[  N1HASP ].BJJAT[N1LP]   := /ENTRY(HSPLPAT);
      BJTIPTYPT[  N1HASP ].BJJAT[N1CP]   := /ENTRY(HSPCPAT);
      BJTIPTYPT[  N1HASP ].BJJAT[N1PLOT] := /ENTRY(HSPPTAT);
      BJTIPTYPT[  N1HASP ].BJAT          := /ENTRY(HSPLCBAT); 
      BJTIPTYPT[  N1HASP ].BJTEMUX2  := /ENTRY(PTHMUXTIP);
      BJTIPTYPT[  N1HASP ].BJTPMUX2  := /PGNUM(PTHMUXTIP);
      BJTIPTYPT[  N1HASP ].BJTXTENT  := /ENTRY(PTHTPOUT); 
      BJTIPTYPT[  N1HASP ].BJTXTPAGE := /PGNUM(PTHSPTIP); 
      BJTIPTYPT[  N1HASP ].BJTCBEINIT := /ENTRY(PTTCBINIT); 
      BJTIPTYPT[  N1HASP ].BJTCBPINIT := /PGNUM(PTTCBINIT); 
_ 
*  TERMINAL CHARACTERISTICS (BASE FIELDS) FOR HASP TIP
? 
      NJTECT[  N0HASP ].NJISPTA  := /ENTRY(HINSPT); 
      NJTECT[  N0HASP ].NJSYNC   := $32;
      NJTECT[  N0HASP ].NJTIPTY  := N1HASP; 
      NJTECT[  N0HASP ].NJPARITY := 1;      _ NO PARITY-BIT/CHECK ? 
      NJTECT[  N0HASP ].NJCHLEN  := 3;      _ CODE-LENGTH OF 8 BITS ? 
      NJTECT[  N0HASP ].NJCRCP   := 0;
      NJTECT[  N0HASP ].NJLPPW   := 120;
      NJTECT[  N0HASP ].NJLPPL   := 64; 
      NJTECT[  N0HASP  ].NJIBFCD  := DATA - 4;
_ 
*  IVT TERMINAL CHARACTERISTICS FOR HASP TIP
? 
      NJTECT[  N0HASP  ].NJPGWIDTH   := 80; 
      NJTECT[  N0HASP  ].NJCANCHAR   := /I5CANCHAR; 
      NJTECT[  N0HASP  ].NJCNTRLCHAR := /I5CNTRLCHAR; 
      NJTECT[  N0HASP  ].NJUSR1      := /I5USR1;
      NJTECT[  N0HASP  ].NJUSR2      := /I5USR2;
_ 
*  TERMINAL CHARACTERISTICS (BASE FIELDS) FOR HASP TIP *N0HPRE* 
? 
      NJTECT[  N0HPRE ].NJISPTA  := /ENTRY(HINSPT); 
      NJTECT[  N0HPRE ].NJSYNC   := $32;
      NJTECT[  N0HPRE ].NJTIPTY  := N1HASP; 
      NJTECT[  N0HPRE ].NJPARITY := 1;
      NJTECT[  N0HPRE ].NJCHLEN  := 3;
      NJTECT[  N0HPRE ].NJCRCP   := 0;
      NJTECT[  N0HPRE ].NJLPPW   := 120;
      NJTECT[  N0HPRE ].NJLPPL   := 64; 
      NJTECT[  N0HPRE ].NJIBFCD  := DATA - 4; 
_ 
*  IVT TERMIANL CHARACTERISTICS FOR HASP TIP *N0HPRE* 
? 
      NJTECT[  N0HPRE ].NJPGWIDTH   := 80;
      NJTECT[  N0HPRE ].NJCANCHAR   := /I5CANCHAR;
      NJTECT[  N0HPRE ].NJCNTRLCHAR := /I5CNTRLCHAR;
      NJTECT[  N0HPRE ].NJUSR1      := /I5USR1; 
      NJTECT[  N0HPRE ].NJUSR2      := /I5USR2; 
_ 
*  INPUT-STATES COMPLETION
? 
      HWORK1 := BYWLCB + (/BYWSIZE*(B0HASP-1)); 
_ 
*  TRANSLATE TABLES AND STATE PROGRAM ADDRESSES FOR VARIOUS FILE TYPES
? 
      T6XLTA + B9026   := DCEB6;
      T6XLTA + B9029   := DCEB9;
      T6XLTA + B9ASCII := ASKEC;
      T6XLTA + B9TRANS := 0;
  
      T6SPTA + B9026   := HTXDC;
      T6SPTA + B9029   := HTXDC;
      T6SPTA + B9ASCII := HTXASC; 
      T6SPTA + B9TRANS := HTXPRNT;
_?
