  PROCEDURE [INLINE] nap$add_tcp_socket_list
    (    socket_assigned: boolean;
         connection_id: nat$connection_id;
     VAR tcpip_attributes: ^nat$tcpip_attributes);

?? PUSH (LISTEXT := ON) ??

    VAR
      tcp_socket_entry: ^nat$tcp_socket;

    REPEAT
      ALLOCATE tcp_socket_entry IN nav$network_paged_heap^;
      IF tcp_socket_entry = NIL THEN
        syp$cycle;
      IFEND;
    UNTIL tcp_socket_entry <> NIL;
    tcp_socket_entry^.connection_id := connection_id;
    tcp_socket_entry^.socket_assigned := socket_assigned;
    tcp_socket_entry^.next_entry := tcpip_attributes^.tcp_socket_list;
    tcpip_attributes^.tcp_socket_list := tcp_socket_entry;

  PROCEND nap$add_tcp_socket_list;

*copyc nah$add_tcp_socket_list

*copyc nat$tcpip_attributes
*copyc nat$connection_id
*copyc nav$network_paged_heap
*copyc syp$cycle
?? POP ??
