
  PROCEDURE [INLINE] nlp$tm_get_udp_device_list
    (VAR device_list: ^nlt$tm_udp_device_list;
     VAR device_list_count: nlt$device_count);

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

    VAR
      i: nlt$device_identifier,
      index: nlt$device_identifier;

    device_list_count := nlv$tm_device_configuration^.udp.count;
    IF device_list_count > 0 THEN
      PUSH device_list: [1 .. device_list_count];
      index := 0;

      FOR i := 1 TO nlv$tm_device_configuration^.count DO
        CASE nlv$tm_device_configuration^.list [i].protocol OF
        = nlc$tm_tcp_udp, nlc$tm_udp =
          index := index + 1;
          device_list^ [index].identifier := i;
          device_list^ [index].local_address := nlv$tm_device_configuration^.list [i].local_device_address;
          IF index = device_list_count THEN
            RETURN; {----->
          IFEND;
        ELSE
        CASEND;
      FOREND;
      device_list_count := index;
    IFEND;

  PROCEND nlp$tm_get_udp_device_list;

*copyc nlh$tm_get_udp_device_list

*copyc nlt$device_count
*copyc nlt$device_identifier
*copyc nlt$tm_udp_device_list
*copyc nlv$tm_device_configuration
?? POP ??
