thread_start:

        DEBUGF  1, 'I am the thread!\n'

        mcall   40, 1 shl 7

; resolve name
        push    esp     ; reserve stack place
        invoke  getaddrinfo, first, 0, 0, esp
        pop     esi
; test for error
        test    eax, eax
        jnz     exit

        mov     eax, [esi+addrinfo.ai_addr]
        mov     eax, [eax+sockaddr_in.sin_addr]
        mov     [sockaddr1.ip], eax

;        DEBUGF  1, 'Connecting to %u.%u.%u.%u:%u\n', \
;                [server_ip]:1, [server_ip+1]:1, \
;                [server_ip+2]:1, [server_ip+3]:1, \
;                [server_port]:2

        mcall   socket, AF_INET4, SOCK_STREAM, 0
        mov     [socketnum], eax
        mcall   connect, [socketnum], sockaddr1, 18

        call    wait_for_data

        cmp     dword [receive_buffer], 'RFB '
        jne     no_rfb
        DEBUGF  1, 'received: %s\n', receive_buffer
        mcall   send, [socketnum], handshake, 12, 0
        DEBUGF  1, 'Sending handshake: protocol version\n'

        call    wait_for_data

        cmp     dword [receive_buffer], 0x00000000
        je      invalid_security

        cmp     dword [receive_buffer], 0x01000000
        je      no_security

        cmp     dword [receive_buffer], 0x02000000
        je      vnc_security

        jmp     exit

vnc_security:
        mov     byte[mode], 1
        call    red_logon

no_security:
        mcall   send, [socketnum], shared, 1, 0
        DEBUGF  1, 'Sending handshake: shared session?\n'

        mcall   23, 100*TIMEOUT

        call    wait_for_data       ; now the server should send init message

        DEBUGF  1, 'Serverinit: bpp: %u depth: %u bigendian: %u truecolor: %u\n', \
                [receive_buffer+framebuffer.pixelformat.bpp]:1, \
                [receive_buffer+framebuffer.pixelformat.depth]:1, \
                [receive_buffer+framebuffer.pixelformat.big_endian]:1, \
                [receive_buffer+framebuffer.pixelformat.true_color]:1

        mov     eax, dword [receive_buffer]
        mov     dword [fbur.width], eax
        bswap   eax
        mov     dword [screen], eax

        mcall   send, [socketnum], pixel_format8, 20, 0
        DEBUGF  1, 'Sending pixel format\n'
        call    read_data

;    eth.write_tcp [socket],8,encodings
;    DEBUGF 1,'Sending encoding info\n'
;    call    read_data

        mov     byte [thread_ready], 1

request_rfb:
        mov     [fbur.inc], 2
        mcall   send, [socketnum], fbur, 10, 0

thread_loop:
        mcall   23, 100

        call    read_data              ; Read the data into the buffer

;        cmp     eax, 2
;        jb      mainloop

        DEBUGF 1,'Data received, %u bytes\n', eax

        cmp     byte [receive_buffer],0
        je      framebufferupdate

        cmp     byte [receive_buffer],1
        je      setcolourmapentries

        cmp     byte [receive_buffer],2
        je      bell

        cmp     byte [receive_buffer],3
        je      servercuttext

        jmp     thread_loop

align 4
framebufferupdate:

        mov     ax, word [receive_buffer+2]
        xchg    al, ah
        mov     di, ax
        DEBUGF  1, 'Framebufferupdate: %u frames\n', di
        mov     esi, receive_buffer+4
        jmp     rectangle_loop


next_rectangle:
        call    drawbuffer

        dec     di
        test    di, di
        jz      request_rfb

rectangle_loop:

        mov     edx, [esi]
        bswap   edx
        mov     ebx, edx
        shr     edx, 16
        mov     [frame.x], dx
        mov     [frame.y], bx
        add     esi, 4
        mov     ecx, [esi]
        bswap   ecx
        mov     eax, ecx
        shr     ecx, 16
        mov     [frame.width], cx
        mov     [frame.height], ax
        add     esi, 4
        mov     eax, [esi]
        add     esi, 4

        mov     ebx, esi
        sub     ebx, receive_buffer+12
        DEBUGF  1, 'frame: width=%u height=%u x=%u y=%u offset:%u encoding:',\
                [frame.width]:2, [frame.height]:2, [frame.x]:2, [frame.y]:2, ebx

        cmp     eax, 0
        je      encoding_raw
;        cmp     eax, 1
;        je      encoding_copyrect
        cmp     eax, 2
        je      encoding_RRE
        cmp     eax, 5
        je      encoding_hextile
        cmp     eax, 16
        je      encoding_ZRLE

        mov     ebx, esi
        sub     ebx, receive_buffer+8
        DEBUGF  1, '\nunknown encoding: %u (offset %u)\n', eax, ebx
        jmp     bell
        jmp     thread_loop

encoding_RRE:

        DEBUGF  1, 'RRE\n'

        jmp     next_rectangle

encoding_hextile:

        DEBUGF  1, 'hextile\n'

        jmp     next_rectangle

encoding_ZRLE:

        DEBUGF  1, 'ZRLE\n'

        jmp     next_rectangle

setcolourmapentries:

        DEBUGF  1, 'Server sent SetColourMapEntries message\n'

        jmp     thread_loop


bell:
        mcall   55, 55, , , beep

        jmp     thread_loop


servercuttext:

        DEBUGF  1, 'Server cut text\n'

        jmp     thread_loop


read_data:

        mov     [datapointer], receive_buffer
  .loop:
        mcall   23, 100*TIMEOUT
        mcall   recv, [socketnum], [datapointer], 4096, 0
        cmp     eax, -1
        je      .done

        add     [datapointer], eax

        cmp     eax, 4096
        je      .loop

  .done:
        mov     eax, [datapointer]
        sub     eax, receive_buffer
        ret



wait_for_data:

        mcall   23, 500
        mcall   recv, [socketnum], receive_buffer, 4096, 0
        cmp     eax, -1
        je      wait_for_data
        test    eax, eax
        jz      wait_for_data

        ret