*COMDECK HASPTYPE 
      T5TPRCB   = PACKED RECORD 
                  CASE T5X : INTEGER OF     _HASP RCB RECORD           ?
                    1: (T5RCBC : CHAR);     _RCB AS CHARACTER          ?
                    2: (T5SP1  : B09BITS; 
                        T5III  : B03BITS;   _RCB STREAM-ID/CONTROL-INFO?
                        T5TTTT : B04BITS);  _RCB CONTROL TYPE ID       ?
                  END;
      T5TPSRCB  = PACKED RECORD 
                  CASE T5X : INTEGER OF     _HASP SRCB RECORD          ?
                    1: (T5SRCBC : CHAR);    _SRCB AS CHARACTER         ?
                    2: (T5SP11  : B09BITS;
                        T5SS    : B07BITS); _SRCB ADD. RECORD INFO     ?
                    3: (T5RCB   : T5TPRCB); _SRCB AS RCB               ?
                  END;
      T5TPFCS   = PACKED RECORD 
                  CASE T5X : INTEGER OF     _HASP FCS RECORD           ?
                    1: (T5INT  : INTEGER);  _FCS AS INTEGER            ?
                    2: (T5SP12 : B01BIT;
                        T5WAIT : BOOLEAN;   _FCS WAIT-A-BIT            ?
                        T5SP2  : B07BITS; 
                        T5CONS : BOOLEAN;   _FCS CONSOLE BIT           ?
                        T5SP3  : B06BITS);
                    3: (T5FCSO : SET OF 0..15); 
                    4: (T5LFCS, 
                        T5RFCS : CHAR);     _LEFT/RIGHT CHARACTERS     ?
                  END;
      T5TPBCB   = PACKED RECORD 
                  CASE T5X : INTEGER OF     _HASP BCB RECORD           ?
                    1: (T5BCBC : CHAR);     _BCB AS CHARACTER          ?
                    2: (T5SP13 : B09BITS; 
                        T5XXX  : B03BITS;   _BCB BLOCK TYPE            ?
                        T5CCCC : B04BITS);  _BCB BLOCK COUNT           ?
                  END;
_ 
* * * *  DYNAMIC LINE CONTROL BLOCK EXTENTION FOR THE HASPTIP 
? 
      TZLCBX = PACKED RECORD
        TZXWFCS   : T5TPFCS;                _WORKSTATIONS FCS          ?
        TZXTFCS   : T5TPFCS;                _CONTROL STATIONS (TIP) FCS?
        TZXPFCS   : T5TPFCS;                _PREVIOUS FCS SEND TO WS   ?
        TZXSTRST  : ARRAY [3..5]            _STREAM STATES FOR CARD,   ?
                    OF B0OVERLAY;           _ PRINT,PUNCH (2 BITS/STRM)?
        TZXHEAD   : B0BUFPTR;               _HEAD OF DATA-LIST-QUEUE   ?
        TZXTAIL   : B0BUFPTR;               _TAIL OF DATA-LIST-QUEUE   ?
        TZXOTCB   : B0BUFPTR;               _CURRENT OUTPUT-TCB        ?
        TZXOBUF   : B0BUFPTR;               _CURRENT OUTPUT-BUFFER     ?
        TZXDRRET  : INTEGER;                _HASP DRIVER RETURN ADDRESS?
        TZXEFLD   : PACKED RECORD           _ERROR CONTROL FIELD       ?
          CASE TZX : INTEGER OF 
          1: (TZXECOUNT : B08BITS;          _CONSECUTIVE ERROR COUNTER ?
              TZXERSN   : B08BITS);         _ERROR REASON (WORKCODE)   ?
          2: (TZXERRS   : INTEGER);         _REDEFINED TO RESET ERRORS ?
          END;
        TZXIBCB   : B04BITS;                _INPUT BCB COUNT           ?
        TZXOBCB   : B04BITS;                _OUTPUT BCB COUNT          ?
        TZXETYP   : B04BITS;                _TYPE OF ERROR AT LINE DOWN?
        TZXINOP   : B04BITS;                _HARD ERROR INOP-CODE      ?
        TZXDRSTAT : B04BITS;                _HASP DRIVER STATE         ?
        TZXXPT    : BOOLEAN;                _TRANSPARENT WORKSATION    ?
        TZXSLWACK : BOOLEAN;                _SLOW ACKING ACTIVE FLAG   ?
        TZXDELAY  : BOOLEAN;                _SLOW ACKING REQUIRED FLAG ?
        TZXREXMIT : BOOLEAN;                _RETRANSMISSION REQUIRED   ?
        TZXNBCB   : BOOLEAN;                _SEND NORMAL BCB FLAG      ?
        TZXIREGL  : BOOLEAN;                _INPUT REGULATION ACTIVE   ?
        TZXENQCNT : B06BITS;                _ENQ TIME OUT COUNTER      ?
        TZXCCB    : B0BUFPTR;               _CURRENT CONTINUE BUFFER   ?
        TZXCTCB   : B0BUFPTR;               _CONSOLE TCB               ?
      END;
