{
{    The purpose of this procedure is to accept a connect request received over
{ the specified listen socket.  As a result of this request a new socket called
{ the accept socket is created and a unique identifier is assigned to it.  All
{ subsequent communication over the new TCP connection will occur over this
{ accept socket.
{
{    If no connect request is available and the interface mode is blocking, the
{ user is blocked until a connect request is available or the interface timeout
{ (specified via the set socket options request) has expired.  If the
{ non-blocking mode has been selected (via the set socket options request), and
{ no connect request is available, control is returned immediately with an
{ appropriate status.
{
{    This request is valid only for a TCP (stream) socket.
{
{       NAP$SK_ACCEPT_SOCKET (LISTEN_SOCKET_ID, ACCEPT_SOCKET_ID,
{             SOURCE_SOCKET, STATUS)
{
{ LISTEN_SOCKET_ID: (input)  This parameter specifies the identifier of the
{       listen socket.
{
{ ACCEPT_SOCKET_ID: (output)  This parameter specifies the identifier of the
{       newly created accept socket.
{
{ SOURCE_SOCKET: (output)  This parameter specifies the port number and the IP
{       address of the entity issuing the connect request.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITION:
{             nae$sk_incorrect_socket_type
{             nae$sk_invalid_user
{             nae$sk_job_recovery
{             nae$sk_listen_not_done
{             nae$sk_max_sockets_limit
{             nae$sk_no_accept_socket
{             nae$sk_socket_terminated
{             nae$sk_unknown_socket
{
