Subversion Repositories Kolibri OS

        push    esp     ; reserve stack place

        invoke  getaddrinfo, first, 0, 0, esp

        pop     esi

; test for error

        test    eax, eax

        jnz     exit

        mov     eax, [eax+sockaddr_in.sin_addr]

        mov     [sockaddr1.ip], eax

;                [server_ip]:1, [server_ip+1]:1, \

;                [server_ip+2]:1, [server_ip+3]:1, \

;                [server_port]:2

        mov     [socketnum], eax

        mcall   connect, [socketnum], sockaddr1, 18

        jne     no_rfb

        DEBUGF  1, 'received: %s\n', receive_buffer

        mcall   send, [socketnum], handshake, 12, 0

        DEBUGF  1, 'Sending handshake: protocol version\n'

        je      invalid_security

        je      no_security

        je      vnc_security

        mov     byte[mode], 1

        call    red_logon

        mcall   send, [socketnum], shared, 1, 0

        DEBUGF  1, 'Sending handshake: shared session?\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     dword [fbur.width], eax

        bswap   eax

        mov     dword [screen], eax

        DEBUGF  1, 'Sending pixel format\n'

        call    read_data

;    DEBUGF 1,'Sending encoding info\n'

;    call    read_data

        mov     [fbur.inc], 2

        mcall   send, [socketnum], fbur, 10, 0

        mcall   23, 100

;        jb      mainloop

        je      framebufferupdate

        je      setcolourmapentries

        je      bell

        je      servercuttext

framebufferupdate:

        xchg    al, ah

        mov     di, ax

        DEBUGF  1, 'Framebufferupdate: %u frames\n', di

        mov     esi, receive_buffer+4

        jmp     rectangle_loop

        call    drawbuffer

        test    di, di

        jz      request_rfb

        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

        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

        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

        sub     ebx, receive_buffer+8

        DEBUGF  1, '\nunknown encoding: %u (offset %u)\n', eax, ebx

        jmp     bell

        jmp     thread_loop

        mcall   55, 55, , , beep

  .loop:

        mcall   23, 100*TIMEOUT

        mcall   recv, [socketnum], [datapointer], 4096, 0

        cmp     eax, -1

        je      .done

        je      .loop

        mov     eax, [datapointer]

        sub     eax, receive_buffer

        ret

        mcall   recv, [socketnum], receive_buffer, 4096, 0

        cmp     eax, -1

        je      wait_for_data

        test    eax, eax

        jz      wait_for_data