
  PROCEDURE [INLINE] nlp$cc_get_event_processor
    (    cc_address: nlt$cc_address;
     VAR event_processor: nat$network_procedure);

?? PUSH (LISTEXT := ON) ??
*copy nlh$cc_get_event_processor

    CASE cc_address OF
    = nlc$network_access_address =
      event_processor := nlc$na_event_processor;

    = nlc$transport_access_address =
      event_processor := nlc$ta_event_processor;

    = nlc$link_access_address =
      event_processor := nlc$la_event_processor;

    = nlc$system_management_address =
      event_processor := nlc$sm_event_processor;

    = nlc$udp_access_address =
      event_processor := nlc$udp_event_processor;

    = nlc$tcp_access_address =
      event_processor := nlc$tcp_event_processor;

    = nlc$tcpip_management_address =
      event_processor := nlc$tm_event_processor;
    ELSE { Unknown address
      nap$namve_system_error (FALSE, 'Unknown CC address', NIL);
    CASEND;

  PROCEND nlp$cc_get_event_processor;

*copyc nat$network_procedure
*copyc nlt$cc_address
*copyc nap$namve_system_error
?? POP ??
