*COMDECK THIPD1 
                                                         _ 02/08/80 ? 
               _ # COUPLER CONTROL BLOCK # ?
        BHCCBLK = PACKED RECORD 
            BHLCBP     : BZLCBP;            _ SUBLCB POINTER           ?
            BHWLCB     : BYLISTCB;          _ WORK LIST CB             ?
            BHLLCB     : B0BUFPTR;          _ POINTER TO LLCB CHAIN    ?
            BHCPAVPTR  : B0BUFPTR;          _ FIRST AVAIL OUTPUT BUFFER?
            BHCPLAST   : B0BUFPTR;          _ LAST  AVAIL OUTPUT BUFFER?
            BHCPINPUT  : B0BUFPTR;          _ INPUT BUFFER ADDRESS     ?
            BHBUFOTT   : B0BUFPTR;          _ MEMORY ADDRESS LOADED ADR?
            BHCPSTATUS : SETWORD;           _ COUPLER STATUS           ?
            BHCPDATA   : B0OVERLAY;         _ ORDERWORD STORAGE        ?
            BHCPCMD    : INTEGER;           _ LAST NPU STATUS SENT     ?
            BHCPBUFAV  : B08BITS;           _ NUMBER OF AVAILABLE BUFFS?
            BHCPBZSTA  : B08BITS;           _ PREVIOUS STATE           ?
            BHCPDEAD   : BOOLEAN;           _ HOST STATUS              ?
            BHCPIDLT   : B015BITS;          _ IDLE TIMEOUT COUNT       ?
            BHCPCONN   : INTEGER;           _ COUPLER CONNECTION NUMBER?
            BHIGNRLR   : BOOLEAN;           _ IGNORE LOAD REGUEST(S)   ?
            BHCPLREG   : B02BITS;           _ LAST REG. LEVEL BY PNLINK?
            BHSTATE    : B05BITS;           _ COUPLER STATE            ?
            BHCNFST    : C7CNFST;           _ CONFIGURATION STATE      ?
            BHCPREG    : B0OVERLAY;         _ COUPLER REGULATION LEVEL ?
            CASE BHCASE : INTEGER OF
              0:(BHTIMPKT  : BKTMRPKT;      _ QUICK TURNAROUND TIMER   ?
                 BHCPAMASK : INTEGER);      _ COUPLER INTERRUPT MASK   ?
              1:(BHFILL    : ARRAY [1..7] OF INTEGER; 
                 BHPKTPTR  : B7PKTPTR;
                 BHLAST    : INTEGER);      _ LAST ENTRY IN CPLR CB    ?
  
        END;
