; Сообщение от WSAAsyncSelect
    @wmsocket:
              mov eax,[lParam]
              and eax,0FFFFh
              cmp eax,FD_ACCEPT
              je @fd_accept
              cmp eax,FD_READ
              je @fd_read
              cmp eax,FD_CLOSE
              je @fd_close
              jmp @done

         @fd_accept:
              ; Разрешить входящее соединение
              @call accept,[wParam],offset iaddr,[temp_var]
              cmp eax,-1
              je @accept_error
              ; Указываем Windows, чтобы она извещала нас о готовности
              ; сокета для чтения или его закрытии
              @call WSAAsyncSelect,eax,edi,WM_SOCKET,FD_READ+FD_CLOSE

.data
AppName db "x", 0 
inadrlen      dd SIZEOF sockaddr_in 
WM_SOCKET equ WM_USER + 100 
wsadata          WSADATA <?> 
sin              sockaddr_in<?> 
sock dd ? 
ip dd ? 


  invoke WSAStartup, 101h, addr wsadata 
       invoke socket, AF_INET, SOCK_STREAM, 0 
       mov sock, eax

       invoke htons, 111
       mov sin.sin_port, ax
       mov sin.sin_family, AF_INET
       mov sin.sin_addr, INADDR_ANY

       invoke bind, sock, addr sin, sizeof sin
       invoke listen, sock, 0

__AcceptConn: 
       xor eax, eax 
       invoke accept, sock, addr sin, addr inadrlen

  ;------------  Определить IP  -----
       mov eax, sin.sin_addr 
       xchg ah,al 
       rol eax,10h 
       xchg ah,al 
       invoke IPtoString, eax,addr ip

invoke MessageBox,NULL,offset ip,addr AppName,MB_OK