{  NLT$CC_INTERFACE  }

  TYPE
    nlt$cc_event_kind = (nlc$cc_connect_event, nlc$cc_accept_event,
          nlc$cc_data_event, nlc$cc_expedited_data_event,
          nlc$cc_disconnect_event,nlc$cc_clear_to_send_event),

    nlt$cc_event = record
      case kind: nlt$cc_event_kind of
      = nlc$cc_connect_event =
        connect: nlt$cc_connect_event,
      = nlc$cc_accept_event =
        accept: nlt$cc_accept_event,
      = nlc$cc_data_event =
        data: nlt$cc_data_event,
      = nlc$cc_expedited_data_event =
        expedited_data: nlt$cc_expedited_data_event,
      = nlc$cc_disconnect_event =
        disconnect: nlt$cc_disconnect_event,
      casend,
    recend,

    nlt$cc_connect_event = record
      device_id: nlt$device_identifier,
      destination_address: nlt$cc_address,
      class: nlt$cc_connection_class,
      data: nlt$bm_message_id,
    recend,

    nlt$cc_accept_event = record
      class: nlt$cc_connection_class,
      data: nlt$bm_message_id,
    recend,

    nlt$cc_data_event = record
      data: nlt$bm_message_id,
    recend,

    nlt$cc_expedited_data_event = record
      data: nlt$bm_message_id,
    recend,

    nlt$cc_disconnect_event = record
      reason: nlt$cc_disconnect_reason,
      data: nlt$bm_message_id,
    recend;

*copyc nlt$bm_message_id
*copyc nlt$cc_address
*copyc nlt$cc_connection_class
*copyc nlt$cc_disconnect_reason
*copyc nlt$device_identifier
