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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License    ;;
;;                                                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
$Revision: 2473 $
 
 
LOAD_FROM_FILE  equ 0
LOAD_FROM_MEM   equ 1
LOAD_INDIRECT   equ 2
LOAD_SYSTEM     equ 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]
        xchg    eax, [ebx+APPDATA.cursor]
        ret
;--------------------------------------
align 4
.fail:
        mov     eax, [def_cursor]
        mov     ebx, [current_slot]
        xchg    eax, [ebx+APPDATA.cursor]
        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, 0x1000
        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     [eax+CURSOR.hot_x], ecx
        mov     [eax+CURSOR.hot_y], edx
 
        xchg    edi, eax
        mov     ecx, 1024
        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_TASK]
        shl     eax, 5
        mov     eax, [CURRENT_TASK+eax+4]
        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
           locals
             hsrv       dd ?
             io_code    dd ?
             input      dd ?
             inp_size   dd ?
             output     dd ?
             out_size   dd ?
           endl
 
        mov     esi, [hcursor]
        cmp     [esi+CURSOR.magic], 'CURS'
        jne     .fail
 
        mov     ebx, [CURRENT_TASK]
        shl     ebx, 5
        mov     ebx, [CURRENT_TASK+ebx+4]
        cmp     ebx, [esi+CURSOR.pid]
        jne     .fail
 
        mov     ebx, [current_slot]
        cmp     esi, [ebx+APPDATA.cursor]
        jne     @F
        mov     eax, [def_cursor]
        mov     [ebx+APPDATA.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, [BytesPerScanLine]
 
        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, [BytesPerScanLine]
 
        mov     ecx, [cur.w]
        rep movsd
        dec     edx
        jnz     @B
 
        pop     edi
;--------------------------------------
align 4
.ret:
        pop     esi
        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, [d_width_calc_area + eax*4]
        lea     eax, [eax + eax*2]
 
        lea     edx, [LFB_BASE+ecx*3]
        add     edx, eax
        mov     [cur_saved_base], edx
 
        cmp     ebx, [Screen_Max_X]
        jbe     @F
        mov     ebx, [Screen_Max_X]
;--------------------------------------
align 4
@@:
        cmp     edi, [Screen_Max_Y]
        jbe     @F
        mov     edi, [Screen_Max_Y]
;--------------------------------------
align 4
@@:
        mov     [cur.right], ebx
        mov     [cur.bottom], edi
 
        sub     ebx, [x]
        sub     edi, [y]
        inc     ebx
        inc     edi
 
        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, [BytesPerScanLine]
        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, [BytesPerScanLine]
;--------------------------------------
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, [d_width_calc_area + eax*4]
        shl     eax, 2
 
        lea     edx, [LFB_BASE+eax+ecx*4]
        mov     [cur_saved_base], edx
 
        cmp     ebx, [Screen_Max_X]
        jbe     @F
        mov     ebx, [Screen_Max_X]
;--------------------------------------
align 4
@@:
        cmp     edi, [Screen_Max_Y]
        jbe     @F
        mov     edi, [Screen_Max_Y]
;--------------------------------------
align 4
@@:
        mov     [cur.right], ebx
        mov     [cur.bottom], edi
 
        sub     ebx, [x]
        sub     edi, [y]
        inc     ebx
        inc     edi
 
        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, [BytesPerScanLine]
        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, [BytesPerScanLine]
;--------------------------------------
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
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
        mov     ecx, [X_UNDER_subtraction_CUR_hot_x]
        sub     eax, ecx        ; x1
; offset Y
        mov     ecx, [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     [ScreenBPP], byte 32
        je      @f
        sub     eax, ebx
;--------------------------------------
align 4
@@:
        add     eax, cur_saved_data
        mov     ecx, [eax]
        and     ecx, 0xffffff
        add     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_subtraction_CUR_hot_y]
        jb      .no_mouse_area
 
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
 
        rol     ecx, 16
;--------------------------------------
; check for X
        cmp     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
;--------------------------------------
align 4
.1:
        push    eax
; offset X
        mov     ax, [X_UNDER_subtraction_CUR_hot_x]
        sub     cx, ax        ; x1
        ror     ecx, 16
; offset Y
        mov     ax, [Y_UNDER_subtraction_CUR_hot_y]
        sub     cx, ax        ; y1
;--------------------------------------
; ecx = (offset x) shl 16 + (offset y)
        push    ebx
        mov     ebx, ecx
        shr     ebx, 16        ; x
        and     ecx, 0xffff    ; y
; ecx = offset y
; ebx = offset x
        mov     eax, [esp + 4]
 
        push    ebx ecx
        imul    ecx, [cur.w]    ;y
        add     ecx, ebx
        mov     ebx, ecx
        shl     ecx, 2
        cmp     [ScreenBPP], byte 24
        je      .24
        and     eax, 0xFFFFFF
        mov     [ecx + cur_saved_data], eax   ;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
 
        pop     ecx
        ret
;--------------------------------------
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 0x13
        jbe     .fail
 
        test    word [SCR_MODE], 0x4000
        jz      .fail
;        jmp      .fail
 
        mov     ebx, restore_32
        mov     ecx, move_cursor_32
        movzx   eax, byte [ScreenBPP]
        cmp     eax, 32
        je      @F
 
        mov     ebx, restore_24
        mov     ecx, move_cursor_24
        cmp     eax, 24
        jne     .fail
;--------------------------------------
align 4
@@:
        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
 
        cmp     [PUTPIXEL], dword VGA_putpixel
        je      @f
        cmp     [ScreenBPP], byte 32
        je      .32
        mov     [PUTPIXEL], dword Vesa20_putpixel24_new
        jmp     @f
;--------------------------------------
align 4
.32:
        mov     [PUTPIXEL], dword Vesa20_putpixel32_new
;--------------------------------------
align 4
@@:
        stdcall load_cursor, def_arrow, dword LOAD_FROM_MEM
        mov     [def_cursor], eax
        ret
;--------------------------------------
align 4
.fail:
        xor     eax, eax
        mov     [_display.select_cursor], eax
        mov     [_display.move_cursor], eax
        ret
;------------------------------------------------------------------------------
align 4
def_arrow:
  file 'arrow.cur'
;------------------------------------------------------------------------------
>
>
>
>

Rev 2455	Rev 2473
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;	3	;; Copyright (C) KolibriOS team 2004-2012. 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: 2455 $	8	$Revision: 2473 $
9		9
10		10
11	LOAD_FROM_FILE equ 0	11	LOAD_FROM_FILE equ 0
12	LOAD_FROM_MEM equ 1	12	LOAD_FROM_MEM equ 1
13	LOAD_INDIRECT equ 2	13	LOAD_INDIRECT equ 2
14	LOAD_SYSTEM equ 3	14	LOAD_SYSTEM equ 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	xchg eax, [ebx+APPDATA.cursor]	297	xchg eax, [ebx+APPDATA.cursor]
298	ret	298	ret
299	;--------------------------------------	299	;--------------------------------------
300	align 4	300	align 4
301	.fail:	301	.fail:
302	mov eax, [def_cursor]	302	mov eax, [def_cursor]
303	mov ebx, [current_slot]	303	mov ebx, [current_slot]
304	xchg eax, [ebx+APPDATA.cursor]	304	xchg eax, [ebx+APPDATA.cursor]
305	ret	305	ret
306	endp	306	endp
307	;------------------------------------------------------------------------------	307	;------------------------------------------------------------------------------
308	align 4	308	align 4
309	; param	309	; param
310	; eax= pid	310	; eax= pid
311	; ebx= src	311	; ebx= src
312	; ecx= flags	312	; ecx= flags
313		313
314	create_cursor:	314	create_cursor:
315	.src equ esp	315	.src equ esp
316	.flags equ esp+4	316	.flags equ esp+4
317	.hcursor equ esp+8	317	.hcursor equ esp+8
318		318
319	sub esp, 4 ;space for .hcursor	319	sub esp, 4 ;space for .hcursor
320	push ecx	320	push ecx
321	push ebx	321	push ebx
322		322
323	mov ebx, eax	323	mov ebx, eax
324	mov eax, sizeof.CURSOR	324	mov eax, sizeof.CURSOR
325	call create_kernel_object	325	call create_kernel_object
326	test eax, eax	326	test eax, eax
327	jz .fail	327	jz .fail
328		328
329	mov [.hcursor], eax	329	mov [.hcursor], eax
330		330
331	xor ebx, ebx	331	xor ebx, ebx
332	mov [eax+CURSOR.magic], 'CURS'	332	mov [eax+CURSOR.magic], 'CURS'
333	mov [eax+CURSOR.destroy], destroy_cursor	333	mov [eax+CURSOR.destroy], destroy_cursor
334	mov [eax+CURSOR.hot_x], ebx	334	mov [eax+CURSOR.hot_x], ebx
335	mov [eax+CURSOR.hot_y], ebx	335	mov [eax+CURSOR.hot_y], ebx
336		336
337	stdcall kernel_alloc, 0x1000	337	stdcall kernel_alloc, 0x1000
338	test eax, eax	338	test eax, eax
339	jz .fail	339	jz .fail
340		340
341	mov edi, [.hcursor]	341	mov edi, [.hcursor]
342	mov [edi+CURSOR.base], eax	342	mov [edi+CURSOR.base], eax
343		343
344	mov esi, [.src]	344	mov esi, [.src]
345	mov ebx, [.flags]	345	mov ebx, [.flags]
346	cmp bx, LOAD_INDIRECT	346	cmp bx, LOAD_INDIRECT
347	je .indirect	347	je .indirect
348		348
349	movzx ecx, word [esi+10]	349	movzx ecx, word [esi+10]
350	movzx edx, word [esi+12]	350	movzx edx, word [esi+12]
351	mov [edi+CURSOR.hot_x], ecx	351	mov [edi+CURSOR.hot_x], ecx
352	mov [edi+CURSOR.hot_y], edx	352	mov [edi+CURSOR.hot_y], edx
353		353
354	stdcall init_cursor, eax, esi	354	stdcall init_cursor, eax, esi
-		355
-		356	align 4
355		357	.add_cursor:
356	mov ecx, [.hcursor]	358	mov ecx, [.hcursor]
357	lea ecx, [ecx+CURSOR.list_next]	359	lea ecx, [ecx+CURSOR.list_next]
358	lea edx, [_display.cr_list.next]	360	lea edx, [_display.cr_list.next]
359		361
360	pushfd	362	pushfd
361	cli	363	cli
362	list_add ecx, edx ;list_add_tail(new, head)	364	list_add ecx, edx ;list_add_tail(new, head)
363	popfd	365	popfd
364		366
365	mov eax, [.hcursor]	367	mov eax, [.hcursor]
366	;--------------------------------------	-
367	align 4	-
368	.check_hw:	-
369	cmp [_display.init_cursor], 0	368	cmp [_display.init_cursor], 0
370	je .fail	369	je .fail
371		370
372	push eax	371	push eax
373	call [_display.init_cursor]	372	call [_display.init_cursor]
374	add esp, 4	373	add esp, 4
375		374
376	mov eax, [.hcursor]	375	mov eax, [.hcursor]
377	;--------------------------------------	376	;--------------------------------------
378	align 4	377	align 4
379	.fail:	378	.fail:
380	add esp, 12	379	add esp, 12
381	ret	380	ret
382	;--------------------------------------	381	;--------------------------------------
383	align 4	382	align 4
384	.indirect:	383	.indirect:
385	shr ebx, 16	384	shr ebx, 16
386	movzx ecx, bh	385	movzx ecx, bh
387	movzx edx, bl	386	movzx edx, bl
388	mov [eax+CURSOR.hot_x], ecx	387	mov [eax+CURSOR.hot_x], ecx
389	mov [eax+CURSOR.hot_y], edx	388	mov [eax+CURSOR.hot_y], edx
390		389
391	xchg edi, eax	390	xchg edi, eax
392	mov ecx, 1024	391	mov ecx, 1024
393	cld	392	cld
394	rep movsd	393	rep movsd
395	jmp .check_hw	394	jmp .add_cursor
396	;------------------------------------------------------------------------------	395	;------------------------------------------------------------------------------
397	align 4	396	align 4
398	proc load_cursor stdcall, src:dword, flags:dword	397	proc load_cursor stdcall, src:dword, flags:dword
399	locals	398	locals
400	handle dd ?	399	handle dd ?
401	endl	400	endl
402		401
403	xor eax, eax	402	xor eax, eax
404	cmp [create_cursor], eax	403	cmp [create_cursor], eax
405	je .fail2	404	je .fail2
406		405
407	mov [handle], eax	406	mov [handle], eax
408	cmp word [flags], LOAD_FROM_FILE	407	cmp word [flags], LOAD_FROM_FILE
409	jne @F	408	jne @F
410		409
411	stdcall load_file, [src]	410	stdcall load_file, [src]
412	test eax, eax	411	test eax, eax
413	jz .fail	412	jz .fail
414	mov [src], eax	413	mov [src], eax
415	;--------------------------------------	414	;--------------------------------------
416	align 4	415	align 4
417	@@:	416	@@:
418	push ebx	417	push ebx
419	push esi	418	push esi
420	push edi	419	push edi
421		420
422	mov eax, [CURRENT_TASK]	421	mov eax, [CURRENT_TASK]
423	shl eax, 5	422	shl eax, 5
424	mov eax, [CURRENT_TASK+eax+4]	423	mov eax, [CURRENT_TASK+eax+4]
425	mov ebx, [src]	424	mov ebx, [src]
426	mov ecx, [flags]	425	mov ecx, [flags]
427	call create_cursor ;eax, ebx, ecx	426	call create_cursor ;eax, ebx, ecx
428	mov [handle], eax	427	mov [handle], eax
429		428
430	cmp word [flags], LOAD_FROM_FILE	429	cmp word [flags], LOAD_FROM_FILE
431	jne .exit	430	jne .exit
432	stdcall kernel_free, [src]	431	stdcall kernel_free, [src]
433	;--------------------------------------	432	;--------------------------------------
434	align 4	433	align 4
435	.exit:	434	.exit:
436	pop edi	435	pop edi
437	pop esi	436	pop esi
438	pop ebx	437	pop ebx
439	;--------------------------------------	438	;--------------------------------------
440	align 4	439	align 4
441	.fail:	440	.fail:
442	mov eax, [handle]	441	mov eax, [handle]
443	;--------------------------------------	442	;--------------------------------------
444	align 4	443	align 4
445	.fail2:	444	.fail2:
446	ret	445	ret
447	endp	446	endp
448	;------------------------------------------------------------------------------	447	;------------------------------------------------------------------------------
449	align 4	448	align 4
450	proc delete_cursor stdcall, hcursor:dword	449	proc delete_cursor stdcall, hcursor:dword
451	locals	450	locals
452	hsrv dd ?	451	hsrv dd ?
453	io_code dd ?	452	io_code dd ?
454	input dd ?	453	input dd ?
455	inp_size dd ?	454	inp_size dd ?
456	output dd ?	455	output dd ?
457	out_size dd ?	456	out_size dd ?
458	endl	457	endl
459		458
460	mov esi, [hcursor]	459	mov esi, [hcursor]
461	cmp [esi+CURSOR.magic], 'CURS'	460	cmp [esi+CURSOR.magic], 'CURS'
462	jne .fail	461	jne .fail
463		462
464	mov ebx, [CURRENT_TASK]	463	mov ebx, [CURRENT_TASK]
465	shl ebx, 5	464	shl ebx, 5
466	mov ebx, [CURRENT_TASK+ebx+4]	465	mov ebx, [CURRENT_TASK+ebx+4]
467	cmp ebx, [esi+CURSOR.pid]	466	cmp ebx, [esi+CURSOR.pid]
468	jne .fail	467	jne .fail
469		468
470	mov ebx, [current_slot]	469	mov ebx, [current_slot]
471	cmp esi, [ebx+APPDATA.cursor]	470	cmp esi, [ebx+APPDATA.cursor]
472	jne @F	471	jne @F
473	mov eax, [def_cursor]	472	mov eax, [def_cursor]
474	mov [ebx+APPDATA.cursor], eax	473	mov [ebx+APPDATA.cursor], eax
475	;--------------------------------------	474	;--------------------------------------
476	align 4	475	align 4
477	@@:	476	@@:
478	mov eax, [hcursor]	477	mov eax, [hcursor]
479	call [eax+APPOBJ.destroy]	478	call [eax+APPOBJ.destroy]
480	;--------------------------------------	479	;--------------------------------------
481	align 4	480	align 4
482	.fail:	481	.fail:
483	ret	482	ret
484	endp	483	endp
485	;------------------------------------------------------------------------------	484	;------------------------------------------------------------------------------
486	align 4	485	align 4
487	; param	486	; param
488	; eax= cursor	487	; eax= cursor
489	destroy_cursor:	488	destroy_cursor:
490		489
491	push eax	490	push eax
492	stdcall kernel_free, [eax+CURSOR.base]	491	stdcall kernel_free, [eax+CURSOR.base]
493		492
494	mov eax, [esp]	493	mov eax, [esp]
495	lea eax, [eax+CURSOR.list_next]	494	lea eax, [eax+CURSOR.list_next]
496		495
497	pushfd	496	pushfd
498	cli	497	cli

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/cursors.inc @ 7510 – Rev 2455 → 2473