
  PROCEDURE [INLINE] nlp$tm_get_local_tcp_devices
    (VAR device_list: nlt$tm_device_address_list;
     VAR count: nlt$device_count);

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

    VAR
      device_info_p: ^nlt$tm_device_specific_info,
      i: integer;

    count := 0;

    FOR i := 1 TO nlv$tm_device_configuration^.count DO
      device_info_p := ^nlv$tm_device_configuration^.list [i];
      CASE device_info_p^.protocol OF
      = nlc$tm_tcp_udp, nlc$tm_tcp =
        count := count + 1;
        device_list [count].address := device_info_p^.local_device_address.full;
        device_list [count].device_id := i;
        IF count = UPPERBOUND (device_list) THEN
          RETURN; {----->
        IFEND;
      ELSE
        ;
      CASEND;
    FOREND;

  PROCEND nlp$tm_get_local_tcp_devices;
*copy nlh$tm_get_local_tcp_devices

*copyc nlt$device_count
*copyc nlt$tm_device_address_list
*copyc nlv$tm_device_configuration
?? POP ??

