
  PROCEDURE [INLINE] nap$find_tcpip_attributes
    (    application_name: nat$application_name;
     VAR tcpip_attributes: ^nat$tcpip_attributes);

?? PUSH (LISTEXT := ON) ??

    tcpip_attributes := nav$tcpip_attributes_list.tcpip_attributes;
    WHILE (tcpip_attributes <> NIL) AND (tcpip_attributes^.tcpip_application <>
          application_name) DO
      tcpip_attributes := tcpip_attributes^.next_entry;
    WHILEND;

  PROCEND nap$find_tcpip_attributes;

*copyc nah$find_tcpip_attributes

*copyc nat$tcpip_attributes
*copyc nat$application_name
*copyc nav$tcpip_attributes_list
?? POP ??
