
{
{   NLC$TA_CLEAR_TO_SEND_EVENT      - indicates that the external interface
{                                        will be allowed to send data queued
{                                        in its co-routine mechanism.
{   NLC$TA_CONNECT_EVENT            - indicates that the peer has issued
{                                        a connect request.
{   NLC$TA_CONNECT_CONFIRM_EVENT    - indicates that the peer has accepted
{                                        the local users connect request.
{   NLC$TA_DISCONNECT_EVENT         - indicates that the connection has been
{                                        terminated.
{   NLC$TA_DATA_EVENT               - indicates data sent from the peer.
{   NLC$TA_EXPEDITED_DATA_EVENT     - indicates expedited data from the peer.

  TYPE

    nlt$ta_event = record
      case kind: nlt$ta_event_kind of
      = nlc$ta_connect_event =
        osi_connect: nlt$ta_connect,
      = nlc$ta_connect_confirm_event =
        osi_connect_confirm: nlt$ta_connect_confirm,
      = nlc$ta_disconnect_event =
        osi_disconnect: nlt$ta_disconnect,
      = nlc$ta_data_event =
        osi_data: nlt$ta_data,
      = nlc$ta_expedited_data_event =
        osi_expedited_data: nlt$ta_expedited_data,
      = nlc$ta_clear_to_send_event =
      casend,
    recend,

    nlt$ta_event_kind = (nlc$ta_clear_to_send_event, nlc$ta_connect_event,
          nlc$ta_connect_confirm_event, nlc$ta_disconnect_event, nlc$ta_data_event,
          nlc$ta_expedited_data_event),

    nlt$ta_connect = record
      checksum: boolean,
      destination_transport_sap: nlt$ta_sap_selector, {local taa's service access point.
      expedited_data: boolean,
      quality_of_service: ^nlt$ta_quality_of_service,
      source_address: nat$osi_transport_address, {peer's address
      data: nlt$bm_message_id,
    recend,

    nlt$ta_connect_confirm = record
      checksum: boolean,
      expedited_data: boolean,
      quality_of_service: ^nlt$ta_quality_of_service,
      data: nlt$bm_message_id,
    recend,

    nlt$ta_disconnect = record
      osi_8073_reason: nat$osi_disconnect_reason,
      proprietary_reason: nlt$ta_disconnect_reason,
      data: nlt$bm_message_id,
    recend,

    nlt$ta_data = record
      end_of_message: boolean,
      data: nlt$bm_message_id,
    recend,

    nlt$ta_expedited_data = record
      data: nlt$bm_message_id,
    recend;

*copyc nat$osi_disconnect_reason
*copyc nat$osi_transport_address
*copyc nlt$bm_message_id
*copyc nlt$ta_disconnect_reason
*copyc nlt$ta_quality_of_service
*copyc nlt$ta_sap_selector
