*COMDECK 3270VAR
  
_ 
      * *  3 2 7 0 T I P   G L O B A L - V A R I A B L E S  * * 
? 
_ 
* * * *  GLOBAL TCB AND BUFFER POINTERS 
? 
      T3TCB      : B0BUFPTR;                _TCB POINTER FOR 3270 TIP?
      T3BUFF     : B0BUFPTR;                _BUFFER POINTER?
_ 
* * * *  COMMAND PACKETS
? 
      C3IOCMDP   : NKINCOM;                 _INPUT-AFTER-OUTPUT CMD?
      C3TOCMDP   : NKINCOM;                 _TERMINATE OUTPUT CMD?
      C3TICMDP   : NKINCOM;                 _TERMINATE INPUT CMD? 
      C3DLCMDP   : NKINCOM;                 _DISABLE LINE CMD?
_ 
* * * *  POINTERS TO CANNED MESSAGES
? 
      P3ACK      : ARRAY [BOOLEAN]
                   OF B0BUFPTR;             _CANNED ACK0/ACK1?
      P3EOT      : B0BUFPTR;                _CANNED EOT?
      P3NAK      : B0BUFPTR;                _CANNED NAK?
      P3ENQ      : B0BUFPTR;                _CANNED ENQ?
_     P3RVI      : BOBUFPTR;  ?             _CANNED RVI?
      P3WACK     : B0BUFPTR;                _CANNED WACK? 
_ 
* * * *  POINTERS TO ASCII-EBCDIC / EBCDIC-ASCII TRANSLATE TABLES 
? 
      P3ASCEBC   : T3XLTPTR;                _PTR TO ASCII-EBCDIC XLATE? 
      P3EBCASC   : T3XLTPTR;                _PTR TO EBCDIC-ASCII XLATE? 
      P3BINEBC   : T3XLTPTR;                _PTR TO BINARY-EBCDIC XLATE?
_ 
* * * *  RELATIVE CHAIN POINTER VALUES IN LCB AND CCB 
? 
      XBXCCBPTR  : INTEGER;                 _RELATIVE VALUE BXCCBPTR? 
      XBSCHAIN   : INTEGER;                 _RELATIVE VALUE BSCHAIN?
      XBS3TCBPTR : INTEGER;                 _RELATIVE VALUE BS3TCBPTR?
_ 
* * * *  BINARY TO EBCIDIC XLATE TABLE FOR POL/SEL-CHARS AND CURSOR-ADDR
? 
      T3BINEBC   : RECORD 
                   CASE T3INT : INTEGER OF
                   1: (T3TAB : PACKED ARRAY [0..63] OF CHAR); 
                   2: (T3POL : PACKED ARRAY [0..31] OF CHAR;
                       T3SEL : PACKED ARRAY [0..31] OF CHAR); 
                   END; 
_ 
* * * *  INTERACTIVE TEXT-PROCESSING CONTROL-BLOCK
? 
      T3TPMLCB   : NCLCB; 
_ 
* * * *  PRINTER SUPPORT TRANSLATE TABLE AND STATE PROGRAM ARRAYS 
? 
      T3XLTA     : ARRAY [0..3] OF INTEGER; _TRANSLATE TABLES?
      T3SPTA     : ARRAY [0..3] OF INTEGER; _STATE PROGRAM TABLES?
  
  
