
  PROCEDURE [INLINE] nlp$tm_get_local_addresses
    (VAR local_addresses: nat$sk_local_addresses;
     VAR count: integer);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    VAR
      i: integer;

    count := 0;
    FOR i := 1 TO nlv$tm_device_configuration^.count DO
      CASE nlv$tm_device_configuration^.list [i].protocol OF
      = nlc$tm_udp =
        count := count + 1;
        local_addresses [count].local_address := nlv$tm_device_configuration^.list [i].local_device_address.
              full;
        local_addresses [count].supported_protocol := nac$sk_udp;
      = nlc$tm_tcp =
        count := count + 1;
        local_addresses [count].local_address := nlv$tm_device_configuration^.list [i].local_device_address.
              full;
        local_addresses [count].supported_protocol := nac$sk_tcp;
      = nlc$tm_tcp_udp =
        count := count + 1;
        local_addresses [count].local_address := nlv$tm_device_configuration^.list [i].local_device_address.
              full;
        local_addresses [count].supported_protocol := nac$sk_udp_and_tcp;
      ELSE
      CASEND;
      IF count >= UPPERBOUND (local_addresses) THEN
        RETURN; {----->
      IFEND;
    FOREND;
  PROCEND nlp$tm_get_local_addresses;
*copy nlh$tm_get_local_addresses

*copyc nat$sk_local_addresses
*copyc nlv$tm_device_configuration
?? POP ??

