WebSVN – Kolibri OS – Diff – /kernel/trunk/video/cursors.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2023. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License    ;;
;;                                                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
$Revision: 9958 $
 
 
LOAD_FROM_FILE  = 0
LOAD_FROM_MEM   = 1
LOAD_INDIRECT   = 2
LOAD_SYSTEM     = 3
 
struct  BITMAPINFOHEADER
        Size                    dd ?
        Width                   dd ?
        Height                  dd ?
        Planes                  dw ?
        BitCount                dw ?
        Compression             dd ?
        SizeImage               dd ?
        XPelsPerMeter           dd ?
        YPelsPerMeter           dd ?
        ClrUsed                 dd ?
        ClrImportant            dd ?
ends
;------------------------------------------------------------------------------
align 4
proc init_cursor stdcall, dst:dword, src:dword
           locals
             rBase    dd ?
             pQuad    dd ?
             pBits    dd ?
             pAnd     dd ?
             width    dd ?
             height   dd ?
             counter  dd ?
           endl
 
        mov     esi, [src]
        add     esi, [esi+18]
        mov     eax, esi
 
        cmp     [esi + BITMAPINFOHEADER.BitCount], 24
        je      .img_24
        cmp     [esi + BITMAPINFOHEADER.BitCount], 8
        je      .img_8
        cmp     [esi + BITMAPINFOHEADER.BitCount], 4
        je      .img_4
;--------------------------------------
align 4
.img_2:
        add     eax, [esi]
        mov     [pQuad], eax
        add     eax, 8
        mov     [pBits], eax
        add     eax, 128
        mov     [pAnd], eax
        mov     eax, [esi+4]
        mov     [width], eax
        mov     ebx, [esi+8]
        shr     ebx, 1
        mov     [height], ebx
 
        mov     edi, [dst]
        add     edi, 32*31*4
        mov     [rBase], edi
 
        mov     esi, [pQuad]
;--------------------------------------
align 4
.l21:
        mov     ebx, [pBits]
        mov     ebx, [ebx]
        bswap   ebx
        mov     eax, [pAnd]
        mov     eax, [eax]
        bswap   eax
        mov     [counter], 32
;--------------------------------------
align 4
@@:
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        xor     ecx, ecx
        shl     ebx, 1
        setc    cl
        mov     ecx, [esi + ecx*4]
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi], edx
 
        add     edi, 4
        dec     [counter]
        jnz     @B
 
        add     [pBits], 4
        add     [pAnd], 4
        mov     edi, [rBase]
        sub     edi, 128
        mov     [rBase], edi
        sub     [height], 1
        jnz     .l21
        ret
;--------------------------------------
align 4
.img_4:
        add     eax, [esi]
        mov     [pQuad], eax
        add     eax, 64
        mov     [pBits], eax
        add     eax, 0x200
        mov     [pAnd], eax
        mov     eax, [esi+4]
        mov     [width], eax
        mov     ebx, [esi+8]
        shr     ebx, 1
        mov     [height], ebx
 
        mov     edi, [dst]
        add     edi, 32*31*4
        mov     [rBase], edi
 
        mov     esi, [pQuad]
        mov     ebx, [pBits]
;--------------------------------------
align 4
.l4:
        mov     eax, [pAnd]
        mov     eax, [eax]
        bswap   eax
        mov     [counter], 16
;--------------------------------------
align 4
@@:
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        movzx   ecx, byte [ebx]
        and     cl, 0xF0
        shr     ecx, 2
        mov     ecx, [esi + ecx]
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi], edx
 
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        movzx   ecx, byte [ebx]
        and     cl, 0x0F
        mov     ecx, [esi + ecx*4]
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi+4], edx
 
        inc     ebx
        add     edi, 8
        dec     [counter]
        jnz     @B
 
        add     [pAnd], 4
        mov     edi, [rBase]
        sub     edi, 128
        mov     [rBase], edi
        sub     [height], 1
        jnz     .l4
        ret
;--------------------------------------
align 4
.img_8:
        add     eax, [esi]
        mov     [pQuad], eax
        add     eax, 1024
        mov     [pBits], eax
        add     eax, 1024
        mov     [pAnd], eax
        mov     eax, [esi+4]
        mov     [width], eax
        mov     ebx, [esi+8]
        shr     ebx, 1
        mov     [height], ebx
 
        mov     edi, [dst]
        add     edi, 32*31*4
        mov     [rBase], edi
 
        mov     esi, [pQuad]
        mov     ebx, [pBits]
;--------------------------------------
align 4
.l81:
        mov     eax, [pAnd]
        mov     eax, [eax]
        bswap   eax
        mov     [counter], 32
;--------------------------------------
align 4
@@:
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        movzx   ecx, byte [ebx]
        mov     ecx, [esi + ecx*4]
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi], edx
 
        inc     ebx
        add     edi, 4
        dec     [counter]
        jnz     @B
 
        add     [pAnd], 4
        mov     edi, [rBase]
        sub     edi, 128
        mov     [rBase], edi
        sub     [height], 1
        jnz     .l81
        ret
;--------------------------------------
align 4
.img_24:
        add     eax, [esi]
        mov     [pQuad], eax
        add     eax, 0xC00
        mov     [pAnd], eax
        mov     eax, [esi + BITMAPINFOHEADER.Width]
        mov     [width], eax
        mov     ebx, [esi + BITMAPINFOHEADER.Height]
        shr     ebx, 1
        mov     [height], ebx
 
        mov     edi, [dst]
        add     edi, 32*31*4
        mov     [rBase], edi
 
        mov     esi, [pAnd]
        mov     ebx, [pQuad]
;--------------------------------------
align 4
.row_24:
        mov     eax, [esi]
        bswap   eax
        mov     [counter], 32
;--------------------------------------
align 4
@@:
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        mov     ecx, [ebx]
        and     ecx, 0x00FFFFFF
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi], edx
        add     ebx, 3
        add     edi, 4
        dec     [counter]
        jnz     @B
 
        add     esi, 4
        mov     edi, [rBase]
        sub     edi, 128
        mov     [rBase], edi
        sub     [height], 1
        jnz     .row_24
        ret
endp
;------------------------------------------------------------------------------
align 4
proc set_cursor stdcall, hcursor:dword
        mov     eax, [hcursor]
        cmp     [eax + CURSOR.magic], 'CURS'
        jne     .fail
;           cmp [eax+CURSOR.size], CURSOR_SIZE
;           jne .fail
        mov     ebx, [current_slot]
        mov     ebx, [ebx + APPDATA.window]
        xchg    eax, [ebx + WDATA.cursor]
        jmp     .end
;--------------------------------------
align 4
.fail:
        mov     eax, [def_cursor]
        mov     ebx, [current_slot]
        mov     ebx, [ebx + APPDATA.window]
        xchg    eax, [ebx + WDATA.cursor]
align 4
.end:
        mov     [redrawmouse_unconditional], 1
        call    __sys_draw_pointer
        ret
endp
;------------------------------------------------------------------------------
align 4
; param
;  eax= pid
;  ebx= src
;  ecx= flags
 
create_cursor:
.src     equ esp
.flags   equ esp+4
.hcursor equ esp+8
 
        sub     esp, 4         ;space for .hcursor
        push    ecx
        push    ebx
 
        mov     ebx, eax
        mov     eax, sizeof.CURSOR
        call    create_kernel_object
        test    eax, eax
        jz      .fail
 
        mov     [.hcursor], eax
 
        xor     ebx, ebx
        mov     [eax + CURSOR.magic], 'CURS'
        mov     [eax + CURSOR.destroy], destroy_cursor
        mov     [eax + CURSOR.hot_x], ebx
        mov     [eax + CURSOR.hot_y], ebx
 
        stdcall kernel_alloc, PAGE_SIZE
        test    eax, eax
        jz      .fail
 
        mov     edi, [.hcursor]
        mov     [edi + CURSOR.base], eax
 
        mov     esi, [.src]
        mov     ebx, [.flags]
        cmp     bx, LOAD_INDIRECT
        je      .indirect
 
        movzx   ecx, word [esi+10]
        movzx   edx, word [esi+12]
        mov     [edi + CURSOR.hot_x], ecx
        mov     [edi + CURSOR.hot_y], edx
 
        stdcall init_cursor, eax, esi
 
align 4
.add_cursor:
        mov     ecx, [.hcursor]
        lea     ecx, [ecx + CURSOR.list_next]
        lea     edx, [_display.cr_list.next]
 
        pushfd
        cli
        list_add ecx, edx   ;list_add_tail(new, head)
        popfd
 
        mov     eax, [.hcursor]
        cmp     [_display.init_cursor], 0
        je      .fail
 
        push    eax
        call    [_display.init_cursor]
        add     esp, 4
 
        mov     eax, [.hcursor]
;--------------------------------------
align 4
.fail:
        add     esp, 12
        ret
;--------------------------------------
align 4
.indirect:
        shr     ebx, 16
        movzx   ecx, bh
        movzx   edx, bl
        mov     [edi + CURSOR.hot_x], ecx
        mov     [edi + CURSOR.hot_y], edx
 
        xchg    edi, eax
        mov     ecx, PAGE_SIZE/4
        cld
        rep movsd
        jmp     .add_cursor
;------------------------------------------------------------------------------
align 4
proc load_cursor stdcall, src:dword, flags:dword
           locals
             handle  dd ?
           endl
 
        xor     eax, eax
        cmp     [create_cursor], eax
        je      .fail2
 
        mov     [handle], eax
        cmp     word [flags], LOAD_FROM_FILE
        jne     @F
 
        stdcall load_file, [src]
        test    eax, eax
        jz      .fail
        mov     [src], eax
;--------------------------------------
align 4
@@:
        push    ebx
        push    esi
        push    edi
 
        mov     eax, [current_slot]
        mov     eax, [eax + APPDATA.tid]
        mov     ebx, [src]
        mov     ecx, [flags]
        call    create_cursor    ;eax, ebx, ecx
        mov     [handle], eax
 
        cmp     word [flags], LOAD_FROM_FILE
        jne     .exit
        stdcall kernel_free, [src]
;--------------------------------------
align 4
.exit:
        pop     edi
        pop     esi
        pop     ebx
;--------------------------------------
align 4
.fail:
        mov     eax, [handle]
;--------------------------------------
align 4
.fail2:
        ret
endp
;------------------------------------------------------------------------------
align 4
proc delete_cursor stdcall, hcursor:dword
 
;        DEBUGF 1,'K : delete_cursor %x\n', [hcursor]
 
        mov     esi, [hcursor]
 
        cmp     [esi + CURSOR.magic], 'CURS'
        jne     .fail
 
        mov     ebx, [current_slot]
        mov     ebx, [ebx + APPDATA.tid]
        cmp     ebx, [esi + CURSOR.pid]
        jne     .fail
 
        mov     ebx, [current_slot]
        mov     ebx, [ebx + APPDATA.window]
        cmp     esi, [ebx + WDATA.cursor]
        jne     @F
        mov     eax, [def_cursor]
        mov     [ebx + WDATA.cursor], eax
;--------------------------------------
align 4
@@:
        mov     eax, [hcursor]
        call    [eax + APPOBJ.destroy]
;--------------------------------------
align 4
.fail:
        ret
endp
;------------------------------------------------------------------------------
align 4
; param
;  eax= cursor
destroy_cursor:
 
        push    eax
        stdcall kernel_free, [eax + CURSOR.base]
 
        mov     eax, [esp]
        lea     eax, [eax + CURSOR.list_next]
 
        pushfd
        cli
        list_del eax
        popfd
 
        pop     eax
        call    destroy_kernel_object
        ret
;------------------------------------------------------------------------------
align 4
select_cursor:
        mov     eax, [esp + 4]
        mov     [_display.cursor], eax
        ret     4
;------------------------------------------------------------------------------
align 4
proc restore_24 stdcall, x:dword, y:dword
 
        push    ebx
 
        mov     ebx, [cur_saved_base]
        mov     edx, [cur.h]
        test    edx, edx
        jz      .ret
 
        push    esi
        push    edi
 
        mov     esi, cur_saved_data
        mov     ecx, [cur.w]
        lea     ecx, [ecx + ecx*2]
        push    ecx
;--------------------------------------
align 4
@@:
        mov     edi, ebx
        add     ebx, [_display.lfb_pitch]
 
        mov     ecx, [esp]
        rep movsb
        dec     edx
        jnz     @B
 
        pop     ecx
        pop     edi
        pop     esi
;--------------------------------------
align 4
.ret:
        pop     ebx
        ret
endp
;------------------------------------------------------------------------------
align 4
proc restore_32 stdcall, x:dword, y:dword
 
        push    ebx
 
        mov     ebx, [cur_saved_base]
        mov     edx, [cur.h]
        test    edx, edx
        jz      .ret
 
        push    esi
        push    edi
 
        mov     esi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     edi, ebx
        add     ebx, [_display.lfb_pitch]
 
        mov     ecx, [cur.w]
        rep movsd
        dec     edx
        jnz     @B
 
        pop     edi
        pop     esi
 
;--------------------------------------
align 4
.ret:
        pop     ebx
        ret
endp
;------------------------------------------------------------------------------
align 4
proc restore_16 stdcall, x:dword, y:dword
 
        push    ebx
 
        mov     ebx, [cur_saved_base]
        mov     edx, [cur.h]
        test    edx, edx
        jz      .ret
 
        push    esi
        push    edi
 
        mov     esi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     edi, ebx
        add     ebx, [_display.lfb_pitch]
 
        mov     ecx, [cur.w]
        rep movsw
        dec     edx
        jnz     @B
 
        pop     edi
        pop     esi
 
;--------------------------------------
align 4
.ret:
        pop     ebx
        ret
endp
;------------------------------------------------------------------------------
align 4
proc VGA_restore_32 stdcall, x:dword, y:dword
 
        push    ebx
 
        mov     ebx, [cur_saved_base]
        mov     edx, [cur.h]
        test    edx, edx
        jz      .ret
 
        push    esi
        push    edi
 
        mov     esi, cur_saved_data
        mov     edi, ebx
        push    [cur.w]
        push    [cur.top];[y]
        push    [cur.left];[x]
        ;mov     eax, [cur.top]
        ;add     [esp + 4], eax
        ;mov     eax, [cur.left]
        ;add     [esp], eax
;--------------------------------------
align 4
@@:
        mov     ecx, [esi]
        add     esi, 4
 
        ;mov     eax, [esp]
        ;sub     eax, [x]
        ;shl     eax, 2 ; *4
        ;mov     [edi + eax], ecx
 
        mov     eax, [esp]
        mov     ebx, [esp + 4]
 
        push    edx  edi
        mov     edi, 1
        or      ecx, 0x04000000
        call    __sys_putpixel
        pop     edi edx
        add     dword[esp], 1
        dec     dword[esp + 8]
        jnz     @b
 
        mov     eax, [cur.w]
        mov     ecx, [cur.left];[x]
        ;add     ecx, [cur.left]
        mov     [esp + 8], eax
 
        mov     dword[esp], ecx
 
        inc     dword[esp + 4]
        ;add     edi, [_display.lfb_pitch]
        dec     edx
        jnz     @b
 
        add     esp, 4*3
 
        pop     edi
        pop     esi
;--------------------------------------
align 4
.ret:
        pop     ebx
        ret
endp
;------------------------------------------------------------------------------
align 4
proc move_cursor_24 stdcall, hcursor:dword, x:dword, y:dword
           locals
             h      dd ?
             _dx     dd ?
             _dy     dd ?
           endl
 
        mov     esi, [hcursor]
        mov     ecx, [x]
        mov     eax, [y]
;        mov     ebx, [BytesPerScanLine]
 
        xor     edx, edx
        sub     ecx, [esi + CURSOR.hot_x]
        lea     ebx, [ecx + 32-1]
        mov     [x], ecx
        sets    dl
        dec     edx
        and     ecx, edx      ;clip x to 0<=x
        mov     [cur.left], ecx
        mov     edi, ecx
        sub     edi, [x]
        mov     [_dx], edi
 
        xor     edx, edx
        sub     eax, [esi + CURSOR.hot_y]
        lea     edi, [eax+32-1]
        mov     [y], eax
        sets    dl
        dec     edx
        and     eax, edx      ;clip y to 0<=y
        mov     [cur.top], eax
        mov     edx, eax
        sub     edx, [y]
        mov     [_dy], edx
 
;        mul     dword [BytesPerScanLine]
        mov     eax, [BPSLine_calc_area + eax*4]
        lea     edx, [LFB_BASE + ecx*3]
        add     edx, eax
        mov     [cur_saved_base], edx
 
        cmp     ebx, [_display.width]
        jb      @F
        mov     ebx, [_display.width]
;--------------------------------------
align 4
@@:
        cmp     edi, [_display.height]
        jb      @F
        mov     edi, [_display.height]
;--------------------------------------
align 4
@@:
 
        sub     ebx, [x]
        sub     edi, [y]
        sub     ebx, [_dx]
        sub     edi, [_dy]
 
        mov     [cur.w], ebx
        mov     [cur.h], edi
        mov     [h], edi
 
        mov     eax, edi
        mov     edi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     esi, edx
        add     edx, [_display.lfb_pitch]
        mov     ecx, [cur.w]
        lea     ecx, [ecx + ecx*2]
        rep movsb
        dec     eax
        jnz     @B
 
;draw cursor
        mov     ebx, [cur_saved_base]
        mov     eax, [_dy]
        shl     eax, 5
        add     eax, [_dx]
 
        mov     esi, [hcursor]
        mov     esi, [esi + CURSOR.base]
        lea     edx, [esi + eax*4]
;--------------------------------------
align 4
.row:
        mov     ecx, [cur.w]
        mov     esi, edx
        mov     edi, ebx
        add     edx, 32*4
        add     ebx, [_display.lfb_pitch]
;--------------------------------------
align 4
.pix:
        lodsd
        test    eax, 0xFF000000
        jz      @F
        mov     [edi], ax
        shr     eax, 16
        mov     [edi+2], al
;--------------------------------------
align 4
@@:
        add     edi, 3
        dec     ecx
        jnz     .pix
 
        dec     [h]
        jnz     .row
        ret
endp
;------------------------------------------------------------------------------
align 4
proc move_cursor_32 stdcall, hcursor:dword, x:dword, y:dword
           locals
             h      dd ?
             _dx     dd ?
             _dy     dd ?
           endl
 
        mov     esi, [hcursor]
        mov     ecx, [x]
        mov     eax, [y]
 
        xor     edx, edx
        sub     ecx, [esi + CURSOR.hot_x]
        lea     ebx, [ecx+32-1]
        mov     [x], ecx
        sets    dl
        dec     edx
        and     ecx, edx      ;clip x to 0<=x
        mov     [cur.left], ecx
        mov     edi, ecx
        sub     edi, [x]
        mov     [_dx], edi
 
        xor     edx, edx
        sub     eax, [esi + CURSOR.hot_y]
        lea     edi, [eax+32-1]
        mov     [y], eax
        sets    dl
        dec     edx
        and     eax, edx      ;clip y to 0<=y
        mov     [cur.top], eax
        mov     edx, eax
        sub     edx, [y]
        mov     [_dy], edx
 
;        mul     dword [BytesPerScanLine]
        mov     eax, [BPSLine_calc_area+eax*4]
        lea     edx, [LFB_BASE + eax + ecx*4]
        mov     [cur_saved_base], edx
 
        cmp     ebx, [_display.width]
        jb      @F
        mov     ebx, [_display.width]
;--------------------------------------
align 4
@@:
        cmp     edi, [_display.height]
        jb      @F
        mov     edi, [_display.height]
;--------------------------------------
align 4
@@:
        sub     ebx, [x]
        sub     edi, [y]
        sub     ebx, [_dx]
        sub     edi, [_dy]
 
        mov     [cur.w], ebx
        mov     [cur.h], edi
        mov     [h], edi
 
        mov     eax, edi
        mov     edi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     esi, edx
        add     edx, [_display.lfb_pitch]
        mov     ecx, [cur.w]
        rep movsd
        dec     eax
        jnz     @B
 
;draw cursor
        mov     ebx, [cur_saved_base]
        mov     eax, [_dy]
        shl     eax, 5
        add     eax, [_dx]
 
        mov     esi, [hcursor]
        mov     esi, [esi + CURSOR.base]
        lea     edx, [esi+eax*4]
;--------------------------------------
align 4
.row:
        mov     ecx, [cur.w]
        mov     esi, edx
        mov     edi, ebx
        add     edx, 32*4
        add     ebx, [_display.lfb_pitch]
;--------------------------------------
align 4
.pix:
        lodsd
        test    eax, 0xFF000000
        jz      @F
        mov     [edi], eax
;--------------------------------------
align 4
@@:
        add     edi, 4
        dec     ecx
        jnz     .pix
 
        dec     [h]
        jnz     .row
        ret
endp
;------------------------------------------------------------------------------
align 4
proc move_cursor_16 stdcall, hcursor:dword, x:dword, y:dword
           locals
             h      dd ?
             _dx     dd ?
             _dy     dd ?
           endl
 
        mov     esi, [hcursor]
        mov     ecx, [x]
        mov     eax, [y]
 
        xor     edx, edx
        sub     ecx, [esi + CURSOR.hot_x]
        lea     ebx, [ecx + 32-1]
        mov     [x], ecx
        sets    dl
        dec     edx
        and     ecx, edx      ;clip x to 0<=x
        mov     [cur.left], ecx
        mov     edi, ecx
        sub     edi, [x]
        mov     [_dx], edi
 
        xor     edx, edx
        sub     eax, [esi + CURSOR.hot_y]
        lea     edi, [eax + 32-1]
        mov     [y], eax
        sets    dl
        dec     edx
        and     eax, edx      ;clip y to 0<=y
        mov     [cur.top], eax
        mov     edx, eax
        sub     edx, [y]
        mov     [_dy], edx
 
;        mul     dword [BytesPerScanLine]
        mov     eax, [BPSLine_calc_area + eax*4]
        lea     edx, [LFB_BASE + eax + ecx*2]
        mov     [cur_saved_base], edx
 
        cmp     ebx, [_display.width]
        jb      @F
        mov     ebx, [_display.width]
;--------------------------------------
align 4
@@:
        cmp     edi, [_display.height]
        jb      @F
        mov     edi, [_display.height]
;--------------------------------------
align 4
@@:
        sub     ebx, [x]
        sub     edi, [y]
        sub     ebx, [_dx]
        sub     edi, [_dy]
 
        mov     [cur.w], ebx
        mov     [cur.h], edi
        mov     [h], edi
 
        mov     eax, edi
        mov     edi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     esi, edx
        add     edx, [_display.lfb_pitch]
        mov     ecx, [cur.w]
 
        rep movsw
        dec     eax
        jnz     @B
 
;draw cursor
        mov     ebx, [cur_saved_base]
        mov     eax, [_dy]
        shl     eax, 5
        add     eax, [_dx]
 
        mov     esi, [hcursor]
        mov     esi, [esi + CURSOR.base]
        lea     edx, [esi + eax*4]
;--------------------------------------
align 4
.row:
        mov     ecx, [cur.w]
        mov     esi, edx
        mov     edi, ebx
        add     edx, 32*4
        add     ebx, [_display.lfb_pitch]
;--------------------------------------
align 4
.pix:
        lodsd
        test    eax, 0xFF000000
        jz      @F
; convert to 16 bpp and store to real LFB
        and     eax, 00000000111110001111110011111000b
        shr     ah, 2
        shr     ax, 3
        ror     eax, 8
        add     al, ah
        rol     eax, 8
        mov     [edi], ax
;--------------------------------------
align 4
@@:
        add     edi, 2
        dec     ecx
        jnz     .pix
 
        dec     [h]
        jnz     .row
        ret
endp
 
;------------------------------------------------------------------------------
align 4
proc VGA_move_cursor_32 stdcall, hcursor:dword, x:dword, y:dword
           locals
             h      dd ?
             _dx     dd ?
             _dy     dd ?
             bg_ptr dd ?
             tmp_x  dd ?
             tmp_y  dd ?
           endl
 
        mov     esi, [hcursor]
        mov     ecx, [x]
        mov     eax, [y]
 
        xor     edx, edx
        sub     ecx, [esi + CURSOR.hot_x]
        lea     ebx, [ecx+32-1]
        mov     [x], ecx
        sets    dl
        dec     edx
        and     ecx, edx      ;clip x to 0<=x
        mov     [cur.left], ecx
        mov     edi, ecx
        sub     edi, [x]
        mov     [_dx], edi
 
        xor     edx, edx
        sub     eax, [esi + CURSOR.hot_y]
        lea     edi, [eax+32-1]
        mov     [y], eax
        sets    dl
        dec     edx
        and     eax, edx      ;clip y to 0<=y
        mov     [cur.top], eax
        mov     edx, eax
        sub     edx, [y]
        mov     [_dy], edx
 
        mov     [tmp_x], ecx
        mov     [tmp_y], eax
        mov     eax, [BPSLine_calc_area+eax*4]
        lea     edx, [LFB_BASE + eax + ecx*4]
        mov     [cur_saved_base], edx
 
        cmp     ebx, [_display.width]
        jb      @F
        mov     ebx, [_display.width]
;--------------------------------------
align 4
@@:
        cmp     edi, [_display.height]
        jb      @F
        mov     edi, [_display.height]
;--------------------------------------
align 4
@@:
        sub     ebx, [x]
        sub     edi, [y]
        sub     ebx, [_dx]
        sub     edi, [_dy]
 
        mov     [cur.w], ebx
        mov     [cur.h], edi
        mov     [h], edi
 
        mov     eax, edi
        mov     edi, cur_saved_data
 
        xor     ecx, ecx
        mov     eax, ecx
;--------------------------------------
align 4
@@:
        ; get and save pixel background
        push    eax ecx ebx edx
        add     eax, [tmp_x]
        mov     ebx, ecx
        add     ebx, [tmp_y]
        push    edi
 
        or      ecx, 0x04000000
        call    [GETPIXEL]
 
        pop     edi
        ;and     ecx, 0x00ffffff
        mov     [edi], ecx
        add     edi, 4
 
        pop     edx ebx ecx eax
        inc     eax
        cmp     eax, [cur.w]
        jb      @b
        xor     eax, eax
        inc     ecx
        cmp     ecx, [h]
        jb      @B
 
;draw cursor
        mov     ebx, [cur_saved_base]
        mov     eax, [_dy]
        shl     eax, 5
        add     eax, [_dx]
 
        mov     esi, [hcursor]
        mov     esi, [esi + CURSOR.base]
        lea     edx, [esi+eax*4]
        mov     [bg_ptr], cur_saved_data
 
        mov     [_dy], 0
;--------------------------------------
align 4
.row:
        mov     [_dx], 0
        mov     ecx, [cur.w]
        mov     esi, edx  ; cursor image base
        mov     edi, ebx
        add     edx, 32*4
        add     ebx, [_display.lfb_pitch]
;--------------------------------------
align 4
.pix:
        ; get pixel cursor
        lodsd
        test    eax, 0xFF000000
        jz      @F
        mov     [edi], eax
 
        pusha
        mov     edi, 1 ; force
        mov     ecx, eax ; color
        and     ecx, 0x00ffffff
        or      ecx, 0x04000000
        mov     eax, [x]
        mov     ebx, [y]
        add     eax, [_dx]
        add     ebx, [_dy]
        call    __sys_putpixel
        popa
;--------------------------------------
align 4
@@:
        inc     [_dx]
        add     edi, 4
        dec     ecx
        jnz     .pix
 
        inc     [_dy]
        dec     [h]
        jnz     .row
        ret
endp
 
;------------------------------------------------------------------------------
align 4
check_mouse_area_for_getpixel_new:
; in:
; eax = x
; ebx = y
; out:
; ecx = new color
;--------------------------------------
; check for Y
        cmp     bx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      .no_mouse_area
 
        cmp     bx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
;--------------------------------------
; check for X
        cmp     ax, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        cmp     ax, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
;--------------------------------------
        push    eax ebx
; offset X
        movzx   ecx, word [X_UNDER_subtraction_CUR_hot_x]
        sub     eax, ecx        ; x1
; offset Y
        movzx   ecx, word [Y_UNDER_subtraction_CUR_hot_y]
        sub     ebx, ecx        ; y1
;--------------------------------------
; ebx = offset y
; eax = offset x
        imul    ebx, [cur.w]     ;y
        add     eax, ebx
        mov     ebx, eax
        shl     eax, 2
        cmp     byte [_display.bits_per_pixel], 32
        je      @f
        sub     eax, ebx
        cmp     byte [_display.bits_per_pixel], 24
        je      @f
        sub     eax, ebx
        add     eax, cur_saved_data
        mov     ecx, [eax]
        shl     ecx, 3
        ror     ecx, 8
        shl     cx, 2
        ror     ecx, 8
        shl     cl, 3
        rol     ecx, 16
        or      ecx, 0xff000000
        pop     ebx eax
        ret
 
;--------------------------------------
align 4
@@:
        add     eax, cur_saved_data
        mov     ecx, [eax]
        or      ecx, 0xff000000
        pop     ebx eax
        ret
;--------------------------------------
align 4
.no_mouse_area:
        xor     ecx, ecx
        ret
;-----------------------------------------------------------------------------
align 4
check_mouse_area_for_putpixel_new:
; in:
; ecx = x shl 16 + y
; eax = color
; out:
; eax = new color
;--------------------------------------
; check for Y
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      .no_mouse_area
 
        rol     ecx, 16
;--------------------------------------
; check for X
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        ror     ecx, 16
;--------------------------------------
align 4
.1:
        push    eax
;--------------------------------------
; ecx = (offset x) shl 16 + (offset y)
        push    ebx
        mov     ebx, ecx
        shr     ebx, 16        ; x
        and     ecx, 0xffff    ; y
 
        cmp     ecx, [cur.h]
        jae     @f
 
        cmp     ebx, [cur.w]
        jb      .ok
;--------------------------------------
align 4
@@:
;        DEBUGF  1, "K : SHIT HAPPENS: %x %x \n", ecx,ebx
        pop     ebx
        jmp     .sh   ; SORRY! SHIT HAPPENS!
;--------------------------------------
align 4
.ok:
; ecx = offset y
; ebx = offset x
        push    ebx ecx
        imul    ecx, [cur.w]    ;y
        add     ecx, ebx
        mov     ebx, ecx
        shl     ecx, 2
        cmp     byte [_display.bits_per_pixel], 16
        je      .16
        cmp     byte [_display.bits_per_pixel], 24
        je      .24
        and     eax, 0xFFFFFF
        mov     [ecx + cur_saved_data], eax   ;store new color  to
        jmp     @f
;--------------------------------------
align 4
.16:
        sub     ecx, ebx
        sub     ecx, ebx
; convert to 16 bpp and store to real LFB
        and     eax, 00000000111110001111110011111000b
        shr     ah, 2
        shr     ax, 3
        ror     eax, 8
        add     al, ah
        rol     eax, 8
        mov     [ecx + cur_saved_data], ax      ;store new color  to
        jmp     @f
;--------------------------------------
align 4
.24:
        sub     ecx, ebx
        mov     [ecx + cur_saved_data], ax      ;store new color  to
        shr     eax, 16
        mov     [ecx + cur_saved_data + 2], al  ;store new color  to
;--------------------------------------
align 4
@@:
        pop     ecx ebx
 
        shl     ecx, 5
        add     ecx, ebx
 
        mov     eax, [current_cursor]
        mov     eax, [eax + CURSOR.base]
        lea     eax, [eax + ecx*4]
        mov     eax, [eax]
 
        pop     ebx
 
        test    eax, 0xFF000000
        jz      @f
 
        add     esp, 4
        ret
;--------------------------------------
align 4
.sh:
        mov     ecx, -1
;--------------------------------------
align 4
@@:
        pop     eax
;--------------------------------------
align 4
.no_mouse_area:
        ret
;------------------------------------------------------------------------------
align 4
get_display:
        mov     eax, _display
        ret
;------------------------------------------------------------------------------
align 4
init_display:
        xor     eax, eax
        mov     edi, _display
 
        mov     [edi + display_t.init_cursor], eax
        mov     [edi + display_t.select_cursor], eax
        mov     [edi + display_t.show_cursor], eax
        mov     [edi + display_t.move_cursor], eax
        mov     [edi + display_t.restore_cursor], eax
 
        lea     ecx, [edi + display_t.cr_list.next]
        mov     [edi + display_t.cr_list.next], ecx
        mov     [edi + display_t.cr_list.prev], ecx
 
 
        cmp     [SCR_MODE], word 0x12
        jne     .not_vga
        ; TODO
        mov     ebx, VGA_restore_32
        mov     ecx, VGA_move_cursor_32
        mov     edx, VGA_putpixel
        jmp     .set
 
.not_vga:
        test    word [SCR_MODE], 0x4000
        jnz     .not_ega
 
        mov     ebx, restore_32
        mov     ecx, move_cursor_32
        mov     edx, Vesa20_putpixel32_new
        mov     eax, [_display.bits_per_pixel]
        jmp     .set
 
.not_ega:
 
        mov     ebx, restore_32
        mov     ecx, move_cursor_32
        mov     edx, Vesa20_putpixel32_new
        mov     eax, [_display.bits_per_pixel]
 
        cmp     al, 32
        jne     .not_32bpp
 
.set:
        mov     [_display.select_cursor], select_cursor
        mov     [_display.move_cursor], ecx
        mov     [_display.restore_cursor], ebx
        ;mov     [_display.check_mouse], check_mouse_area_for_putpixel_new
        ;mov     [_display.check_m_pixel], check_mouse_area_for_getpixel_new
 
        mov     [PUTPIXEL], edx
 
        stdcall load_cursor, def_hresize, dword LOAD_FROM_MEM
        mov     [def_cursor_hresize], eax
        stdcall load_cursor, def_vresize, dword LOAD_FROM_MEM
        mov     [def_cursor_vresize], eax
        stdcall load_cursor, def_dresize1, dword LOAD_FROM_MEM
        mov     [def_cursor_dresize1], eax
        stdcall load_cursor, def_dresize2, dword LOAD_FROM_MEM
        mov     [def_cursor_dresize2], eax
 
        stdcall load_cursor, clock_arrow, dword LOAD_FROM_MEM
        mov     [def_cursor_clock], eax
        stdcall load_cursor, def_arrow, dword LOAD_FROM_MEM
        mov     [def_cursor], eax
        ret
 
.not_32bpp:
        cmp     al, 24
        jne     .not_24bpp
 
        mov     ebx, restore_24
        mov     ecx, move_cursor_24
        mov     edx, Vesa20_putpixel24_new
        jmp     .set
 
.not_24bpp:
        cmp     al, 16
        jne     .not_16bpp
        mov     ebx, restore_16
        mov     ecx, move_cursor_16
        mov     edx, Vesa20_putpixel16_new
        jmp     .set
 
.not_16bpp:
;        cmp     al, 15
;        jne     .fail
;        mov     ebx, restore_15
;        mov     ecx, move_cursor_15
;        mov     edx, Vesa20_putpixel15_new
;        jmp     .set
.fail:
        ;xor     eax, eax
        ;mov     [_display.select_cursor], eax
        ;mov     [_display.move_cursor], eax
        ret
;------------------------------------------------------------------------------
align 4
def_arrow:
  file 'arrow.cur'
;------------------------------------------------------------------------------
align 4
def_hresize:
  file 'hresize.cur'
;------------------------------------------------------------------------------
align 4
def_vresize:
  file 'vresize.cur'
;------------------------------------------------------------------------------
align 4
def_dresize1:
  file 'dresize1.cur'
;------------------------------------------------------------------------------
align 4
def_dresize2:
  file 'dresize2.cur'
;------------------------------------------------------------------------------
align 4
clock_arrow:
  file 'arrow_clock.cur'
;------------------------------------------------------------------------------
>
>
>
>
>
>
>
>

Rev 9941	Rev 9958
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; Copyright (C) KolibriOS team 2004-2023. All rights reserved. ;;	3	;; Copyright (C) KolibriOS team 2004-2023. All rights reserved. ;;
4	;; Distributed under terms of the GNU General Public License ;;	4	;; Distributed under terms of the GNU General Public License ;;
5	;; ;;	5	;; ;;
6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7		7
8	$Revision: 9941 $	8	$Revision: 9958 $
9		9
10		10
11	LOAD_FROM_FILE = 0	11	LOAD_FROM_FILE = 0
12	LOAD_FROM_MEM = 1	12	LOAD_FROM_MEM = 1
13	LOAD_INDIRECT = 2	13	LOAD_INDIRECT = 2
14	LOAD_SYSTEM = 3	14	LOAD_SYSTEM = 3
15		15
16	struct BITMAPINFOHEADER	16	struct BITMAPINFOHEADER
17	Size dd ?	17	Size dd ?
18	Width dd ?	18	Width dd ?
19	Height dd ?	19	Height dd ?
20	Planes dw ?	20	Planes dw ?
21	BitCount dw ?	21	BitCount dw ?
22	Compression dd ?	22	Compression dd ?
23	SizeImage dd ?	23	SizeImage dd ?
24	XPelsPerMeter dd ?	24	XPelsPerMeter dd ?
25	YPelsPerMeter dd ?	25	YPelsPerMeter dd ?
26	ClrUsed dd ?	26	ClrUsed dd ?
27	ClrImportant dd ?	27	ClrImportant dd ?
28	ends	28	ends
29	;------------------------------------------------------------------------------	29	;------------------------------------------------------------------------------
30	align 4	30	align 4
31	proc init_cursor stdcall, dst:dword, src:dword	31	proc init_cursor stdcall, dst:dword, src:dword
32	locals	32	locals
33	rBase dd ?	33	rBase dd ?
34	pQuad dd ?	34	pQuad dd ?
35	pBits dd ?	35	pBits dd ?
36	pAnd dd ?	36	pAnd dd ?
37	width dd ?	37	width dd ?
38	height dd ?	38	height dd ?
39	counter dd ?	39	counter dd ?
40	endl	40	endl
41		41
42	mov esi, [src]	42	mov esi, [src]
43	add esi, [esi+18]	43	add esi, [esi+18]
44	mov eax, esi	44	mov eax, esi
45		45
46	cmp [esi + BITMAPINFOHEADER.BitCount], 24	46	cmp [esi + BITMAPINFOHEADER.BitCount], 24
47	je .img_24	47	je .img_24
48	cmp [esi + BITMAPINFOHEADER.BitCount], 8	48	cmp [esi + BITMAPINFOHEADER.BitCount], 8
49	je .img_8	49	je .img_8
50	cmp [esi + BITMAPINFOHEADER.BitCount], 4	50	cmp [esi + BITMAPINFOHEADER.BitCount], 4
51	je .img_4	51	je .img_4
52	;--------------------------------------	52	;--------------------------------------
53	align 4	53	align 4
54	.img_2:	54	.img_2:
55	add eax, [esi]	55	add eax, [esi]
56	mov [pQuad], eax	56	mov [pQuad], eax
57	add eax, 8	57	add eax, 8
58	mov [pBits], eax	58	mov [pBits], eax
59	add eax, 128	59	add eax, 128
60	mov [pAnd], eax	60	mov [pAnd], eax
61	mov eax, [esi+4]	61	mov eax, [esi+4]
62	mov [width], eax	62	mov [width], eax
63	mov ebx, [esi+8]	63	mov ebx, [esi+8]
64	shr ebx, 1	64	shr ebx, 1
65	mov [height], ebx	65	mov [height], ebx
66		66
67	mov edi, [dst]	67	mov edi, [dst]
68	add edi, 32314	68	add edi, 32314
69	mov [rBase], edi	69	mov [rBase], edi
70		70
71	mov esi, [pQuad]	71	mov esi, [pQuad]
72	;--------------------------------------	72	;--------------------------------------
73	align 4	73	align 4
74	.l21:	74	.l21:
75	mov ebx, [pBits]	75	mov ebx, [pBits]
76	mov ebx, [ebx]	76	mov ebx, [ebx]
77	bswap ebx	77	bswap ebx
78	mov eax, [pAnd]	78	mov eax, [pAnd]
79	mov eax, [eax]	79	mov eax, [eax]
80	bswap eax	80	bswap eax
81	mov [counter], 32	81	mov [counter], 32
82	;--------------------------------------	82	;--------------------------------------
83	align 4	83	align 4
84	@@:	84	@@:
85	xor edx, edx	85	xor edx, edx
86	shl eax, 1	86	shl eax, 1
87	setc dl	87	setc dl
88	dec edx	88	dec edx
89		89
90	xor ecx, ecx	90	xor ecx, ecx
91	shl ebx, 1	91	shl ebx, 1
92	setc cl	92	setc cl
93	mov ecx, [esi + ecx*4]	93	mov ecx, [esi + ecx*4]
94	and ecx, edx	94	and ecx, edx
95	and edx, 0xFF000000	95	and edx, 0xFF000000
96	or edx, ecx	96	or edx, ecx
97	mov [edi], edx	97	mov [edi], edx
98		98
99	add edi, 4	99	add edi, 4
100	dec [counter]	100	dec [counter]
101	jnz @B	101	jnz @B
102		102
103	add [pBits], 4	103	add [pBits], 4
104	add [pAnd], 4	104	add [pAnd], 4
105	mov edi, [rBase]	105	mov edi, [rBase]
106	sub edi, 128	106	sub edi, 128
107	mov [rBase], edi	107	mov [rBase], edi
108	sub [height], 1	108	sub [height], 1
109	jnz .l21	109	jnz .l21
110	ret	110	ret
111	;--------------------------------------	111	;--------------------------------------
112	align 4	112	align 4
113	.img_4:	113	.img_4:
114	add eax, [esi]	114	add eax, [esi]
115	mov [pQuad], eax	115	mov [pQuad], eax
116	add eax, 64	116	add eax, 64
117	mov [pBits], eax	117	mov [pBits], eax
118	add eax, 0x200	118	add eax, 0x200
119	mov [pAnd], eax	119	mov [pAnd], eax
120	mov eax, [esi+4]	120	mov eax, [esi+4]
121	mov [width], eax	121	mov [width], eax
122	mov ebx, [esi+8]	122	mov ebx, [esi+8]
123	shr ebx, 1	123	shr ebx, 1
124	mov [height], ebx	124	mov [height], ebx
125		125
126	mov edi, [dst]	126	mov edi, [dst]
127	add edi, 32314	127	add edi, 32314
128	mov [rBase], edi	128	mov [rBase], edi
129		129
130	mov esi, [pQuad]	130	mov esi, [pQuad]
131	mov ebx, [pBits]	131	mov ebx, [pBits]
132	;--------------------------------------	132	;--------------------------------------
133	align 4	133	align 4
134	.l4:	134	.l4:
135	mov eax, [pAnd]	135	mov eax, [pAnd]
136	mov eax, [eax]	136	mov eax, [eax]
137	bswap eax	137	bswap eax
138	mov [counter], 16	138	mov [counter], 16
139	;--------------------------------------	139	;--------------------------------------
140	align 4	140	align 4
141	@@:	141	@@:
142	xor edx, edx	142	xor edx, edx
143	shl eax, 1	143	shl eax, 1
144	setc dl	144	setc dl
145	dec edx	145	dec edx
146		146
147	movzx ecx, byte [ebx]	147	movzx ecx, byte [ebx]
148	and cl, 0xF0	148	and cl, 0xF0
149	shr ecx, 2	149	shr ecx, 2
150	mov ecx, [esi + ecx]	150	mov ecx, [esi + ecx]
151	and ecx, edx	151	and ecx, edx
152	and edx, 0xFF000000	152	and edx, 0xFF000000
153	or edx, ecx	153	or edx, ecx
154	mov [edi], edx	154	mov [edi], edx
155		155
156	xor edx, edx	156	xor edx, edx
157	shl eax, 1	157	shl eax, 1
158	setc dl	158	setc dl
159	dec edx	159	dec edx
160		160
161	movzx ecx, byte [ebx]	161	movzx ecx, byte [ebx]
162	and cl, 0x0F	162	and cl, 0x0F
163	mov ecx, [esi + ecx*4]	163	mov ecx, [esi + ecx*4]
164	and ecx, edx	164	and ecx, edx
165	and edx, 0xFF000000	165	and edx, 0xFF000000
166	or edx, ecx	166	or edx, ecx
167	mov [edi+4], edx	167	mov [edi+4], edx
168		168
169	inc ebx	169	inc ebx
170	add edi, 8	170	add edi, 8
171	dec [counter]	171	dec [counter]
172	jnz @B	172	jnz @B
173		173
174	add [pAnd], 4	174	add [pAnd], 4
175	mov edi, [rBase]	175	mov edi, [rBase]
176	sub edi, 128	176	sub edi, 128
177	mov [rBase], edi	177	mov [rBase], edi
178	sub [height], 1	178	sub [height], 1
179	jnz .l4	179	jnz .l4
180	ret	180	ret
181	;--------------------------------------	181	;--------------------------------------
182	align 4	182	align 4
183	.img_8:	183	.img_8:
184	add eax, [esi]	184	add eax, [esi]
185	mov [pQuad], eax	185	mov [pQuad], eax
186	add eax, 1024	186	add eax, 1024
187	mov [pBits], eax	187	mov [pBits], eax
188	add eax, 1024	188	add eax, 1024
189	mov [pAnd], eax	189	mov [pAnd], eax
190	mov eax, [esi+4]	190	mov eax, [esi+4]
191	mov [width], eax	191	mov [width], eax
192	mov ebx, [esi+8]	192	mov ebx, [esi+8]
193	shr ebx, 1	193	shr ebx, 1
194	mov [height], ebx	194	mov [height], ebx
195		195
196	mov edi, [dst]	196	mov edi, [dst]
197	add edi, 32314	197	add edi, 32314
198	mov [rBase], edi	198	mov [rBase], edi
199		199
200	mov esi, [pQuad]	200	mov esi, [pQuad]
201	mov ebx, [pBits]	201	mov ebx, [pBits]
202	;--------------------------------------	202	;--------------------------------------
203	align 4	203	align 4
204	.l81:	204	.l81:
205	mov eax, [pAnd]	205	mov eax, [pAnd]
206	mov eax, [eax]	206	mov eax, [eax]
207	bswap eax	207	bswap eax
208	mov [counter], 32	208	mov [counter], 32
209	;--------------------------------------	209	;--------------------------------------
210	align 4	210	align 4
211	@@:	211	@@:
212	xor edx, edx	212	xor edx, edx
213	shl eax, 1	213	shl eax, 1
214	setc dl	214	setc dl
215	dec edx	215	dec edx
216		216
217	movzx ecx, byte [ebx]	217	movzx ecx, byte [ebx]
218	mov ecx, [esi + ecx*4]	218	mov ecx, [esi + ecx*4]
219	and ecx, edx	219	and ecx, edx
220	and edx, 0xFF000000	220	and edx, 0xFF000000
221	or edx, ecx	221	or edx, ecx
222	mov [edi], edx	222	mov [edi], edx
223		223
224	inc ebx	224	inc ebx
225	add edi, 4	225	add edi, 4
226	dec [counter]	226	dec [counter]
227	jnz @B	227	jnz @B
228		228
229	add [pAnd], 4	229	add [pAnd], 4
230	mov edi, [rBase]	230	mov edi, [rBase]
231	sub edi, 128	231	sub edi, 128
232	mov [rBase], edi	232	mov [rBase], edi
233	sub [height], 1	233	sub [height], 1
234	jnz .l81	234	jnz .l81
235	ret	235	ret
236	;--------------------------------------	236	;--------------------------------------
237	align 4	237	align 4
238	.img_24:	238	.img_24:
239	add eax, [esi]	239	add eax, [esi]
240	mov [pQuad], eax	240	mov [pQuad], eax
241	add eax, 0xC00	241	add eax, 0xC00
242	mov [pAnd], eax	242	mov [pAnd], eax
243	mov eax, [esi + BITMAPINFOHEADER.Width]	243	mov eax, [esi + BITMAPINFOHEADER.Width]
244	mov [width], eax	244	mov [width], eax
245	mov ebx, [esi + BITMAPINFOHEADER.Height]	245	mov ebx, [esi + BITMAPINFOHEADER.Height]
246	shr ebx, 1	246	shr ebx, 1
247	mov [height], ebx	247	mov [height], ebx
248		248
249	mov edi, [dst]	249	mov edi, [dst]
250	add edi, 32314	250	add edi, 32314
251	mov [rBase], edi	251	mov [rBase], edi
252		252
253	mov esi, [pAnd]	253	mov esi, [pAnd]
254	mov ebx, [pQuad]	254	mov ebx, [pQuad]
255	;--------------------------------------	255	;--------------------------------------
256	align 4	256	align 4
257	.row_24:	257	.row_24:
258	mov eax, [esi]	258	mov eax, [esi]
259	bswap eax	259	bswap eax
260	mov [counter], 32	260	mov [counter], 32
261	;--------------------------------------	261	;--------------------------------------
262	align 4	262	align 4
263	@@:	263	@@:
264	xor edx, edx	264	xor edx, edx
265	shl eax, 1	265	shl eax, 1
266	setc dl	266	setc dl
267	dec edx	267	dec edx
268		268
269	mov ecx, [ebx]	269	mov ecx, [ebx]
270	and ecx, 0x00FFFFFF	270	and ecx, 0x00FFFFFF
271	and ecx, edx	271	and ecx, edx
272	and edx, 0xFF000000	272	and edx, 0xFF000000
273	or edx, ecx	273	or edx, ecx
274	mov [edi], edx	274	mov [edi], edx
275	add ebx, 3	275	add ebx, 3
276	add edi, 4	276	add edi, 4
277	dec [counter]	277	dec [counter]
278	jnz @B	278	jnz @B
279		279
280	add esi, 4	280	add esi, 4
281	mov edi, [rBase]	281	mov edi, [rBase]
282	sub edi, 128	282	sub edi, 128
283	mov [rBase], edi	283	mov [rBase], edi
284	sub [height], 1	284	sub [height], 1
285	jnz .row_24	285	jnz .row_24
286	ret	286	ret
287	endp	287	endp
288	;------------------------------------------------------------------------------	288	;------------------------------------------------------------------------------
289	align 4	289	align 4
290	proc set_cursor stdcall, hcursor:dword	290	proc set_cursor stdcall, hcursor:dword
291	mov eax, [hcursor]	291	mov eax, [hcursor]
292	cmp [eax + CURSOR.magic], 'CURS'	292	cmp [eax + CURSOR.magic], 'CURS'
293	jne .fail	293	jne .fail
294	; cmp [eax+CURSOR.size], CURSOR_SIZE	294	; cmp [eax+CURSOR.size], CURSOR_SIZE
295	; jne .fail	295	; jne .fail
296	mov ebx, [current_slot]	296	mov ebx, [current_slot]
297	mov ebx, [ebx + APPDATA.window]	297	mov ebx, [ebx + APPDATA.window]
298	xchg eax, [ebx + WDATA.cursor]	298	xchg eax, [ebx + WDATA.cursor]
299	jmp .end	299	jmp .end
300	;--------------------------------------	300	;--------------------------------------
301	align 4	301	align 4
302	.fail:	302	.fail:
303	mov eax, [def_cursor]	303	mov eax, [def_cursor]
304	mov ebx, [current_slot]	304	mov ebx, [current_slot]
305	mov ebx, [ebx + APPDATA.window]	305	mov ebx, [ebx + APPDATA.window]
306	xchg eax, [ebx + WDATA.cursor]	306	xchg eax, [ebx + WDATA.cursor]
307	align 4	307	align 4
308	.end:	308	.end:
309	mov [redrawmouse_unconditional], 1	309	mov [redrawmouse_unconditional], 1
310	call __sys_draw_pointer	310	call __sys_draw_pointer
311	ret	311	ret
312	endp	312	endp
313	;------------------------------------------------------------------------------	313	;------------------------------------------------------------------------------
314	align 4	314	align 4
315	; param	315	; param
316	; eax= pid	316	; eax= pid
317	; ebx= src	317	; ebx= src
318	; ecx= flags	318	; ecx= flags
319		319
320	create_cursor:	320	create_cursor:
321	.src equ esp	321	.src equ esp
322	.flags equ esp+4	322	.flags equ esp+4
323	.hcursor equ esp+8	323	.hcursor equ esp+8
324		324
325	sub esp, 4 ;space for .hcursor	325	sub esp, 4 ;space for .hcursor
326	push ecx	326	push ecx
327	push ebx	327	push ebx
328		328
329	mov ebx, eax	329	mov ebx, eax
330	mov eax, sizeof.CURSOR	330	mov eax, sizeof.CURSOR
331	call create_kernel_object	331	call create_kernel_object
332	test eax, eax	332	test eax, eax
333	jz .fail	333	jz .fail
334		334
335	mov [.hcursor], eax	335	mov [.hcursor], eax
336		336
337	xor ebx, ebx	337	xor ebx, ebx
338	mov [eax + CURSOR.magic], 'CURS'	338	mov [eax + CURSOR.magic], 'CURS'
339	mov [eax + CURSOR.destroy], destroy_cursor	339	mov [eax + CURSOR.destroy], destroy_cursor
340	mov [eax + CURSOR.hot_x], ebx	340	mov [eax + CURSOR.hot_x], ebx
341	mov [eax + CURSOR.hot_y], ebx	341	mov [eax + CURSOR.hot_y], ebx
342		342
343	stdcall kernel_alloc, PAGE_SIZE	343	stdcall kernel_alloc, PAGE_SIZE
344	test eax, eax	344	test eax, eax
345	jz .fail	345	jz .fail
346		346
347	mov edi, [.hcursor]	347	mov edi, [.hcursor]
348	mov [edi + CURSOR.base], eax	348	mov [edi + CURSOR.base], eax
349		349
350	mov esi, [.src]	350	mov esi, [.src]
351	mov ebx, [.flags]	351	mov ebx, [.flags]
352	cmp bx, LOAD_INDIRECT	352	cmp bx, LOAD_INDIRECT
353	je .indirect	353	je .indirect
354		354
355	movzx ecx, word [esi+10]	355	movzx ecx, word [esi+10]
356	movzx edx, word [esi+12]	356	movzx edx, word [esi+12]
357	mov [edi + CURSOR.hot_x], ecx	357	mov [edi + CURSOR.hot_x], ecx
358	mov [edi + CURSOR.hot_y], edx	358	mov [edi + CURSOR.hot_y], edx
359		359
360	stdcall init_cursor, eax, esi	360	stdcall init_cursor, eax, esi
361		361
362	align 4	362	align 4
363	.add_cursor:	363	.add_cursor:
364	mov ecx, [.hcursor]	364	mov ecx, [.hcursor]
365	lea ecx, [ecx + CURSOR.list_next]	365	lea ecx, [ecx + CURSOR.list_next]
366	lea edx, [_display.cr_list.next]	366	lea edx, [_display.cr_list.next]
367		367
368	pushfd	368	pushfd
369	cli	369	cli
370	list_add ecx, edx ;list_add_tail(new, head)	370	list_add ecx, edx ;list_add_tail(new, head)
371	popfd	371	popfd
372		372
373	mov eax, [.hcursor]	373	mov eax, [.hcursor]
374	cmp [_display.init_cursor], 0	374	cmp [_display.init_cursor], 0
375	je .fail	375	je .fail
376		376
377	push eax	377	push eax
378	call [_display.init_cursor]	378	call [_display.init_cursor]
379	add esp, 4	379	add esp, 4
380		380
381	mov eax, [.hcursor]	381	mov eax, [.hcursor]
382	;--------------------------------------	382	;--------------------------------------
383	align 4	383	align 4
384	.fail:	384	.fail:
385	add esp, 12	385	add esp, 12
386	ret	386	ret
387	;--------------------------------------	387	;--------------------------------------
388	align 4	388	align 4
389	.indirect:	389	.indirect:
390	shr ebx, 16	390	shr ebx, 16
391	movzx ecx, bh	391	movzx ecx, bh
392	movzx edx, bl	392	movzx edx, bl
393	mov [edi + CURSOR.hot_x], ecx	393	mov [edi + CURSOR.hot_x], ecx
394	mov [edi + CURSOR.hot_y], edx	394	mov [edi + CURSOR.hot_y], edx
395		395
396	xchg edi, eax	396	xchg edi, eax
397	mov ecx, PAGE_SIZE/4	397	mov ecx, PAGE_SIZE/4
398	cld	398	cld
399	rep movsd	399	rep movsd
400	jmp .add_cursor	400	jmp .add_cursor
401	;------------------------------------------------------------------------------	401	;------------------------------------------------------------------------------
402	align 4	402	align 4
403	proc load_cursor stdcall, src:dword, flags:dword	403	proc load_cursor stdcall, src:dword, flags:dword
404	locals	404	locals
405	handle dd ?	405	handle dd ?
406	endl	406	endl
407		407
408	xor eax, eax	408	xor eax, eax
409	cmp [create_cursor], eax	409	cmp [create_cursor], eax
410	je .fail2	410	je .fail2
411		411
412	mov [handle], eax	412	mov [handle], eax
413	cmp word [flags], LOAD_FROM_FILE	413	cmp word [flags], LOAD_FROM_FILE
414	jne @F	414	jne @F
415		415
416	stdcall load_file, [src]	416	stdcall load_file, [src]
417	test eax, eax	417	test eax, eax
418	jz .fail	418	jz .fail
419	mov [src], eax	419	mov [src], eax
420	;--------------------------------------	420	;--------------------------------------
421	align 4	421	align 4
422	@@:	422	@@:
423	push ebx	423	push ebx
424	push esi	424	push esi
425	push edi	425	push edi
426		426
427	mov eax, [current_slot]	427	mov eax, [current_slot]
428	mov eax, [eax + APPDATA.tid]	428	mov eax, [eax + APPDATA.tid]
429	mov ebx, [src]	429	mov ebx, [src]
430	mov ecx, [flags]	430	mov ecx, [flags]
431	call create_cursor ;eax, ebx, ecx	431	call create_cursor ;eax, ebx, ecx
432	mov [handle], eax	432	mov [handle], eax
433		433
434	cmp word [flags], LOAD_FROM_FILE	434	cmp word [flags], LOAD_FROM_FILE
435	jne .exit	435	jne .exit
436	stdcall kernel_free, [src]	436	stdcall kernel_free, [src]
437	;--------------------------------------	437	;--------------------------------------
438	align 4	438	align 4
439	.exit:	439	.exit:
440	pop edi	440	pop edi
441	pop esi	441	pop esi
442	pop ebx	442	pop ebx
443	;--------------------------------------	443	;--------------------------------------
444	align 4	444	align 4
445	.fail:	445	.fail:
446	mov eax, [handle]	446	mov eax, [handle]
447	;--------------------------------------	447	;--------------------------------------
448	align 4	448	align 4
449	.fail2:	449	.fail2:
450	ret	450	ret
451	endp	451	endp
452	;------------------------------------------------------------------------------	452	;------------------------------------------------------------------------------
453	align 4	453	align 4
454	proc delete_cursor stdcall, hcursor:dword	454	proc delete_cursor stdcall, hcursor:dword
455		455
456	; DEBUGF 1,'K : delete_cursor %x\n', [hcursor]	456	; DEBUGF 1,'K : delete_cursor %x\n', [hcursor]
457		457
458	mov esi, [hcursor]	458	mov esi, [hcursor]
459		459
460	cmp [esi + CURSOR.magic], 'CURS'	460	cmp [esi + CURSOR.magic], 'CURS'
461	jne .fail	461	jne .fail
462		462
463	mov ebx, [current_slot]	463	mov ebx, [current_slot]
464	mov ebx, [ebx + APPDATA.tid]	464	mov ebx, [ebx + APPDATA.tid]
465	cmp ebx, [esi + CURSOR.pid]	465	cmp ebx, [esi + CURSOR.pid]
466	jne .fail	466	jne .fail
467		467
468	mov ebx, [current_slot]	468	mov ebx, [current_slot]
469	mov ebx, [ebx + APPDATA.window]	469	mov ebx, [ebx + APPDATA.window]
470	cmp esi, [ebx + WDATA.cursor]	470	cmp esi, [ebx + WDATA.cursor]
471	jne @F	471	jne @F
472	mov eax, [def_cursor]	472	mov eax, [def_cursor]
473	mov [ebx + WDATA.cursor], eax	473	mov [ebx + WDATA.cursor], eax
474	;--------------------------------------	474	;--------------------------------------
475	align 4	475	align 4
476	@@:	476	@@:
477	mov eax, [hcursor]	477	mov eax, [hcursor]
478	call [eax + APPOBJ.destroy]	478	call [eax + APPOBJ.destroy]
479	;--------------------------------------	479	;--------------------------------------
480	align 4	480	align 4
481	.fail:	481	.fail:
482	ret	482	ret
483	endp	483	endp
484	;------------------------------------------------------------------------------	484	;------------------------------------------------------------------------------
485	align 4	485	align 4
486	; param	486	; param
487	; eax= cursor	487	; eax= cursor
488	destroy_cursor:	488	destroy_cursor:
489		489
490	push eax	490	push eax
491	stdcall kernel_free, [eax + CURSOR.base]	491	stdcall kernel_free, [eax + CURSOR.base]
492		492
493	mov eax, [esp]	493	mov eax, [esp]
494	lea eax, [eax + CURSOR.list_next]	494	lea eax, [eax + CURSOR.list_next]
495		495
496	pushfd	496	pushfd
497	cli	497	cli
498	list_del eax	498	list_del eax
499	popfd	499	popfd
500		500

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/cursors.inc @ 380 – Rev 9941 → 9958