  TYPE
    nat$network_procedures = record
      case nat$network_procedure of
      = nac$monitor_server_connections, nac$gt_evaluate_sap_timers,
        nlc$na_retry_constrained_saps, nlc$la_retry_constrained_saps =
        cl_sap_timer: nlt$cl_evaluate_sap_timer,
      = nac$cn_deliver_datagram =
        cn_event_processor: nlt$cn_event_processor,
      = nac$gt_evaluate_connect_timers, nlc$sl_clear_request_timer,
            nac$se_evaluate_io_timers, nlc$cc_monitor_timers,
            nlc$tcp_flush_release_timer =
        cl_connection_timer: nlt$cl_evaluat_connection_timer,
      = nac$se_process_sap_event, nac$se_process_connection_event =
        sl_event_processor: nlt$sl_event_processor,
      = nac$osi_gt_process_sap_event, nac$osi_gt_process_conn_event,
            nlc$osi_sl_sap_event_processor, nlc$osi_sl_conn_event_processor =
        ta_event_processor: nlt$ta_event_processor,
      = nlc$ta_connect_event_processor, nlc$ta_event_processor,
            nlc$sm_connect_event_processor, nlc$sm_event_processor,
            nlc$na_connect_event_processor, nlc$na_event_processor,
            nlc$la_connect_event_processor, nlc$la_event_processor,
            nlc$tm_connect_event_processor, nlc$tm_event_processor,
            nlc$tcp_connect_event_processor, nlc$tcp_event_processor,
            nlc$udp_connect_event_processor, nlc$udp_event_processor =
        cc_event_processor: nlt$cc_event_processor,
      = nac$deliver_network_event =
        network_event_processor: nlt$deliver_network_event,
      = nlc$sk_tcp_conn_event_processor, nlc$sk_tcp_event_processor =
        tcpaa_event_processor: nlt$tcpaa_event_processor,
      = nac$nil =
        nil_processor: ^procedure,
      casend,
    recend;

*copyc nat$system_address
*copyc nlt$cc_event_processor
*copyc nlt$cl_connection_layer_templat
*copyc nlt$cn_event_processor
*copyc nlt$deliver_network_event
*copyc nlt$sl_event_processor
*copyc nlt$ta_event_processor
*copyc nlt$tcpaa_event_processor
