*COMDECK 3270ZEX
  
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                 * * *   3 2 7 0 T I P   * * *                       * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
  
_ 
* * * *  INITIALIZATION OF COMMAND PACKETS FOR 3270 TIP 
? 
      C3IOCMDP.NKCMD    := NKINOUT; 
      C3IOCMDP.NKISPTA  := IS327E;
      C3IOCMDP.NKISTAI  := 4; 
      C3IOCMDP.NKMVB    := /TRUE; 
  
      C3TICMDP.NKCMD    := NKENDIN; 
      C3TICMDP.NKRELBFS := /TRUE; 
      C3TICMDP.NKWKFLG  := /TRUE; 
      C3TICMDP.NKWKCOD  := A0WK15;
      C3TICMDP.NKWLINDX := B03270;
  
      C3TOCMDP.NKCMD    := NKENDOT; 
      C3TOCMDP.NKRELBFS := /FALSE;
      C3TOCMDP.NKWKFLG  := /FALSE;
  
      C3DLCMDP.NKCMD    := NKDISL;
  
_ 
* * * *  INITIALIZATION OF POINTERS TO CANNED MESSAGES FOR 3270 TIP 
? 
      P3ACK[0] := M3EAK0; 
      P3ACK[1] := M3EAK1; 
      P3EOT    := M3EEOT; 
      P3NAK    := M3ENAK; 
      P3ENQ    := M3EENQ; 
_     P3RVI    := M3ERVI;  ?
      P3WACK   := M3EWAK; 
  
_ 
* * * *  SET SUPPRESS-CHAINING AND CANNED-MESSAGE FLAGS IN CANNED MSGS
? 
      M3EAK0.BF3CANNED  := /TRUE; 
      M3EAK1.BF3CANNED  := /TRUE; 
      M3EEOT.BF3CANNED  := /TRUE; 
      M3ENAK.BF3CANNED  := /TRUE; 
      M3EENQ.BF3CANNED  := /TRUE; 
_     M3ERVI.BF3CANNED  := /TRUE;  ?
      M3EWAK.BF3CANNED  := /TRUE; 
  
      M3EAK0.BFSUPCHAIN := /TRUE; 
      M3EAK1.BFSUPCHAIN := /TRUE; 
      M3EEOT.BFSUPCHAIN := /TRUE; 
      M3ENAK.BFSUPCHAIN := /TRUE; 
      M3EENQ.BFSUPCHAIN := /TRUE; 
_     M3ERVI.BFSUPCHAIN := /TRUE;  ?
      M3EWAK.BFSUPCHAIN := /TRUE; 
  
_ 
* * * *  INITIALIZATION OF POINTERS TO XLATE-TABLES FOR 3270 TIP
? 
      P3ASCEBC := ASKEC;
      P3EBCASC := ECASK;
      P3BINEBC := T3BINEBC; 
  
_ 
* * * *  INITIALIZE RELATIVE CHAIN-POINTERS FOR CCB AND TCB 
? 
      XBXCCBPTR  := BXCCBPTR  + 1;          _FOR LCB-CCB CHAIN? 
      XBSCHAIN   := BSCHAIN   + 1;          _FOR LCB-TCB CHAIN? 
      XBS3TCBPTR := BS3TCBPTR + 1;          _FOR CCB-TCB CHAIN? 
  
_ 
* * * *  INITIALIZATION OF WORKLIST-CONTROL BLOCK FOR 3270 TIP
? 
      BYWLCB[B03270].BYNAME    := $3332;    _32?
      BYWLCB[B03270].BYPRADDR  := /ENTRY(PT3270TIP);
      BYWLCB[B03270].BYPAGE    := /PGNUM(PT3270TIP);
      BYWLCB[B03270].BYMAXCNT  := 1;
      BYWLCB[B03270].BYINC     := 3;
      BYWLCB[B03270].BYBACKUP  := /TRUE;
  
_ 
* * * *  INITIALIZATION OF TIP-TYPE-TABLE FOR 3270 TIP
? 
      BJTIPTYPT[N13270].BJOBT        := /FALSE; 
      BJTIPTYPT[N13270].BJBZL        := /TRUE;
      BJTIPTYPT[N13270].BJIVTSIZE    := BSXCNT - BSPGWIDTH + 1; 
      BJTIPTYPT[N13270].BJLIVTBVT    := BSXCNT; 
      BJTIPTYPT[N13270].BJTCBSIZE    := /B0TS5; 
      BJTIPTYPT[N13270].BJQTYPE      := /B0QNEXTSEG;
      BJTIPTYPT[N13270].BJLISTX      := B03270; 
      BJTIPTYPT[N13270].BJDFTC       := N0327E; 
      BJTIPTYPT[N13270].BJAT         := /ENTRY (T3LCBAT); 
      BJTIPTYPT[N13270].BJJAT[N1CON] := /ENTRY (T3CONAT); 
      BJTIPTYPT[N13270].BJJAT[N1LP]  := /ENTRY (T3LPAT);
      BJTIPTYPT[N13270].BJTEMUX2     := /ENTRY(PM3270TIP);
      BJTIPTYPT[N13270].BJTPMUX2     := /PGNUM(PM3270TIP);
      BJTIPTYPT[N13270].BJTCBEINT    := /ENTRY(PT3INITCB);
      BJTIPTYPT[N13270].BJTCBPINT    := /PGNUM(PT3270TIP);
      BJTIPTYPT[N13270].BJTXTENT     := /ENTRY(PT3OTP); 
      BJTIPTYPT[N13270].BJTXTPAGE    := /PGNUM(PT3270TIP);
  
_ 
* * * *  COMPLETE INITIALIZATION OF CONSOLE ACTION TABLE
? 
      T3CONAT + 1 := N0327E * $101;         _TERMINAL CLASS RANGE CHECK?
  
_ 
* * * *  INITIALIZATION OF TERMINAL-CHARACTERISTIC-TABLE FOR 3270 TIP 
? 
      NJTECT[N0327E].NJISPTA     := IS327E; 
      NJTECT[N0327E].NJTIPTY     := N13270; 
      NJTECT[N0327E].NJCXLTA     := ECASK;
      NJTECT[N0327E].NJBLKL      := 256;
      NJTECT[N0327E].NJIBFCD     := DATA-4; 
      NJTECT[N0327E].NJSYNC      := $32;    _SYNC CHAR? 
      NJTECT[N0327E].NJCRCP      := 0;      _POLYN=X16+X15+X5+1?
      NJTECT[N0327E].NJPARITY    := 1;      _NO PARITY? 
      NJTECT[N0327E].NJCHLEN     := 3;      _8-BIT CHARACTERS?
      NJTECT[N0327E].NJPGWAIT    := /TRUE;
      NJTECT[N0327E].NJPGWIDTH   := 80; 
      NJTECT[N0327E].NJPGLENGTH  := 24;     _DEFAULTS FOR 1920-SCREEN?
      NJTECT[N0327E].NJCNTRLCHAR := /I6CNTRLCHAR; 
      NJTECT[N0327E].NJCANCHAR   := /I6CANCHAR; 
      NJTECT[N0327E].NJUSR1      := /I6USR1;
      NJTECT[N0327E].NJUSR2      := /I6USR2;
  
_ 
* * * *  INITIALIZATION OF INPUT-STATES FOR 3270 TIP
? 
      T3270T := BYWLCB + (/BYWSIZE * (B03270 - 1)); 
  
_ 
* * * *  INITIALIZATION OF OUTPUT TEXT-PROCESSOR PARAMETER PACKAGE
? 
      T3TPMLCB.NCISPTA   := TP327E;         _TP-STATE POINTER-TABLE?
      T3TPMLCB.NCCRCP    := 0;              _CRC-POLYNOMIAL?
      T3TPMLCB.NCCXLTA   := ASKEC;          _TRANSLATE-TABLE ADDRESS? 
      T3TPMLCB.NCBFCD    := DATA-4;         _DESTINATIONS FCD?
      T3TPMLCB.NCSTAI    := 4;              _FIRST TP STATE?
      T3TPMLCB.NCRPRT    := /TRUE;          _STRIP SOURCE PARITY-BIT? 
      T3TPMLCB.NCBLKL    := 250;            _SYNC-FILL COUNTER? 
  
_ 
* * * *  INITIALIZE THE POST-INPUT TEXT-PROCESSING PACKAGE
? 
      PT3INPTP.NCISPTA   := TP327I; 
      PT3INPTP.NCBFCD    := DATA; 
      PT3INPTP.NCSTAI    := 1;
      PT3INPTP.NCRPRT    := /TRUE;
  
_ 
* * * *  INITIALIZATION OF PRINTER TRANSLATE AND STATE PROGRAM TABLES 
? 
      T3XLTA + B9026     := DCEB6;
      T3XLTA + B9029     := DCEB9;
      T3XLTA + B9ASCII   := ASKEC;
      T3XLTA + B9TRANS   := 0;
  
      T3SPTA + B9026     := T3PRDC; 
      T3SPTA + B9029     := T3PRDC; 
      T3SPTA + B9ASCII   := T3PRAS; 
      T3SPTA + B9TRANS   := T3PRAS; 
  
  
