*COMDECK TYPOLD 
_?
   N0INBUF  ='NEINBUF;                _ CANNED INPUT POINTER           ?
   N0DATA   ='NEDATA;                 _ COMPARE DATA POINTER           ?
_?
          _# CANNED OUTPUT MSG TYPE #?
      CANMSG = ARRAY[1..27] OF INTEGER; 
  
      SYMESAD= ARRAY[0..2] OF B0BUFPTR; 
      SYRESAD= ARRAY[1..$19] OF N0DATA; 
      SYDIGCT = PACKED RECORD CASE DIAGCT : INTEGER OF
            1:(NIWD0,                  _ WORD 0 (UNIVERSAL)            ?
               NIWD1:B0OVERLAY;)       _ WORD 1 (UNIVERSAL)            ?
             2:(DIATCT:NICTCY;         _ LINE SPEED                    ?
                NEPARY:B02BITS;        _ PARITY                        ?
                NECHLEN:B02BITS;       _ CHARACTER LENGTH              ?
                NESP2   :B04BITS;      _ SPARE                         ?
                NESYCAR:B08BITS);      _ SYNC CHARACTER                ?
             3:(NEDM1   :B013BITS;     _ DUMMY                         ?
                NEXCNT  :B03BITS);     _ TRANSMISSION COUNTS (SDLC)    ?
             END; 
      SYDGCT = ARRAY[1..$19] OF SYDIGCT;
_?
      NEDATA = RECORD CASE NEX : INTEGER OF  _CANNED COMPARE MSG TYPE  ?
             1:(NEWD1,
                NEWD2,
                NEWD3,
                NEWD4:INTEGER); 
             2:(NECHR:ARRAY [0..3] OF INTEGER); 
             END; 
_?
      NEINBUF = PACKED RECORD         _ CANNED OUTPUT + INPUT MSG TYPE ?
                NEDISPL:INTEGER;
                NEFLAGS:B0FLAGS;
                NEDAT :NEDATA;
              END;
  _?
            _#OLDGOVL CONTROL TABLE ENTRY#? 
       KXCTRL = PACKED RECORD 
                  KQMSTS:B0OVERLAY; 
                  KQCMMD,              _ COMMAND                       ?
                  KQCMPR,              _ COMMAND PARAMS TBL IX         ?
                  KQCLNY,              _ ERROR CK TBL IX               ?
                  KQCLMR,              _ CLA FLAG CK TBL IX            ?
                  KQCHTR:B08BITS;      _ CHAR XMS TBL MOD TBL IX       ?
                  CASE KQTG:INTEGER OF _ IF CMD = CONTROL THEN         ?
                    1:(KQF1:BOOLEAN;   _ THIS FIELD CONTAINS           ?
                       KQF2:B07BITS);  _ FIRST FUNCTION                ?
                    2:(KQFNCT:B08BITS); 
                END;
  _?
            _#COMMAND PARAMETERS TABLE#?
       KXCMD1 = PACKED RECORD 
                  CASE KQTG1:INTEGER OF 
                    1:(KQFNC1,         _ SET/RESET FUNCTION FLAG       ?
                       KQFNC2,         _ + FUNCTION FOR CNTRL COMMAND  ?
                       KQFNC3,
                        KQFNC4:B08BITS);
                    2:(KQSR1:BOOLEAN; 
                       KQFN1:B07BITS; 
                       KQSR2:BOOLEAN; 
                       KQFN2:B07BITS; 
                       KQSR3:BOOLEAN; 
                       KQFN3:B07BITS; 
                       KQSR4:BOOLEAN; 
                       KQFN4:B07BITS);
                    3:(KQCMP1,
                       KQCMP2:INTEGER); 
               END; 
  _?
            _#RESPONSE TABLES ENTRY DEFINITIONS#? 
       KXRSPT = PACKED RECORD 
                  KQCKWT:B08BITS;      _ WHAT TO CHECK                 ?
                  KQRESP:B08BITS;      _ RESPONSE                      ?
                END;
       KXRSP2 = PACKED RECORD 
                  KQCKFL : B02BITS; 
                  KQNMBR : B03BITS; 
                  KQFLAG:B04BITS;      _ WHICH FLAG TO CHECK           ?
                  KQRSPN:B07BITS;      _ RESP IF CK FAILS              ?
                    END;
  _?
