BITS 32
 
    %define @ARG EBP + 8
    %define PTR &
    %define OFFSET DWORD
 
    %macro Procedure 1-2
    %push _Procedure_
        %if %0 = 2
            %{2} %{1}
        %endif
        %{1}:
        %define __%{1}__
    %pop
    %endm
 
    %macro StdCall 1-*
    %push _StdCall_
        %ifndef __%{1}__
        %define __%{1}__
            EXTERN %1
        %endif
        %define %%proc %1
        %rep %0-1
            %rotate -1
            PUSH DWORD %1
        %endrep
        CALL %%proc
    %pop
    %endm
 
    %macro Report 1-2
    %push _Report_
        %ifstr %1
            [SECTION .data]
                %%msg DB %1, 0
                %%len EQU ($-%%msg)
            __SECT__
            MOV ECX, %%msg
            MOV EDX, %%len
        %else
            %if %0 = 2
                MOV ECX, %1
                MOV EDX, %2
            %else
                %error "string length not specified."
            %endif
        %endif
        MOV EBX, 1
        MOV EAX, 04h
        INT 80h
    %pop
    %endm
 
    %macro Die 0-1
    %push _Die_
        %if %0 = 1
            Report %1
        %endif
        XOR EAX, EAX
        INC EAX
        INT 80h
    %pop
    %endm
 
    %define IPPROTO_TCP 6
    %define SOCK_STREAM 1
    %define PF_INET 2
    %define AF_INET 2
 
    %define SRV_PORT 8023
 
    %define sys.linux 80h
    %define sys.socketcall 66h
    %define sys.exit 01h
    %define sys.fork 02h
    %define sys.close 06h
    %define sys.dup2 3Fh
    %define sys.write 04h
 
    %define net.socket 1
    %define net.bind 2
    %define net.listen 4
    %define net.accept 5