
  TYPE

    nlt$sl_event_kind = (nlc$sl_call_event, nlc$sl_confirm_event,
      nlc$sl_data_event, nlc$sl_clear_to_send_event, nlc$sl_interrupt_event,
      nlc$sl_synch_event, nlc$sl_synch_confirm_event, nlc$sl_clear_event),

    nlt$sl_event = record
      case kind: nlt$sl_event_kind of
      = nlc$sl_call_event =
        call: nlt$sl_call_event,
      = nlc$sl_confirm_event =
        confirm: nlt$sl_confirm_event,
      = nlc$sl_data_event =
        data: nlt$sl_data_event,
      = nlc$sl_interrupt_event =
        interrupt: nlt$sl_interrupt_event,
      = nlc$sl_synch_event =
        synch: nlt$sl_synch_event,
      = nlc$sl_clear_event =
        clear: nlt$sl_clear_event,
      casend,
    recend,

    nlt$sl_call_event = record
      source: nat$network_address,
      sap: nat$sap_identifier,
      accounting_info: ^nlt$sl_accounting_info,
      accounting_length: nlt$sl_accounting_length,
      message_id: nlt$bm_message_id,
    recend,

    nlt$sl_confirm_event = record
      accounting_info: ^nlt$sl_accounting_info,
      accounting_length: nlt$sl_accounting_length,
      message_id: nlt$bm_message_id,
    recend,

    nlt$sl_clear_event = record
      reason: nlt$sl_clear_reason,
      message_id: nlt$bm_message_id,
    recend,

    nlt$sl_data_event = record
      qualified_data: boolean,
      end_of_message: boolean,
      message_id: nlt$bm_message_id,
    recend,

    nlt$sl_interrupt_event = record
      message_id: nlt$bm_message_id,
    recend,

    nlt$sl_synch_event = record
      discard_option: nlt$sl_discard_options,
      message_id: nlt$bm_message_id,
    recend;

*copyc nat$gt_interface
*copyc nat$network_address
*copyc nat$sap_identifier
*copyc nlt$bm_message_id
*copyc nlt$sl_accounting_info
*copyc nlt$sl_accounting_length
*copyc nlt$sl_clear_reason
*copyc nlt$sl_discard_options
*copyc nlt$user_interface
