  PROCEDURE [INLINE] nap$add_udp_socket_list
    (    global_socket_id: nlt$udp_global_socket_id;
     VAR tcpip_attributes: ^nat$tcpip_attributes);

?? PUSH (LISTEXT := ON) ??

    VAR
      udp_socket_entry: ^nat$udp_socket;

    REPEAT
      ALLOCATE udp_socket_entry IN nav$network_paged_heap^;
      IF udp_socket_entry = NIL THEN
        syp$cycle;
      IFEND;
    UNTIL udp_socket_entry <> NIL;
    udp_socket_entry^.global_socket_id := global_socket_id;
    udp_socket_entry^.next_entry := tcpip_attributes^.udp_socket_list;
    tcpip_attributes^.udp_socket_list := udp_socket_entry;

  PROCEND nap$add_udp_socket_list;

*copyc nah$add_udp_socket_list

*copyc nat$tcpip_attributes
*copyc nlt$udp_global_socket_id
*copyc nav$network_paged_heap
*copyc syp$cycle
?? POP ??
