;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $Revision$ ; check mouse ; ; ; FB00 -> FB0F mouse memory 00 chunk count - FB0A-B x - FB0C-D y ; FB10 -> FB17 mouse color mem ; FB21 x move ; FB22 y move ; FB30 color temp ; FB28 high bits temp ; FB4A -> FB4D FB4A-B x-under - FB4C-D y-under ; FC00 -> FCFE com1/ps2 buffer ; FCFF com1/ps2 buffer count starting from FC00 uglobal ;-------------------------------------- align 4 mousecount dd 0x0 mousedata dd 0x0 Y_UNDER_subtraction_CUR_hot_y: dd 0 X_UNDER_subtraction_CUR_hot_x: dd 0 Y_UNDER_sub_CUR_hot_y_add_curh: dd 0 X_UNDER_sub_CUR_hot_x_add_curh: dd 0 endg iglobal ;-------------------------------------- align 4 mouse_delay dd 10 mouse_speed_factor: dd 3 mouse_timer_ticks dd 0 endg ;----------------------------------------------------------------------------- align 4 draw_mouse_under: ; return old picture cmp [_display.restore_cursor], 0 je @F pushad movzx eax, word [X_UNDER] movzx ebx, word [Y_UNDER] stdcall [_display.restore_cursor], eax, ebx popad ret ;-------------------------------------- align 4 @@: pushad xor ecx, ecx xor edx, edx ;-------------------------------------- align 4 mres: movzx eax, word [X_UNDER] movzx ebx, word [Y_UNDER] add eax, ecx add ebx, edx push ecx push edx push eax push ebx mov eax, edx shl eax, 6 shl ecx, 2 add eax, ecx add eax, mouseunder mov ecx, [eax] pop ebx pop eax mov edi, 1 ; force or ecx, 0x04000000 ; don't save to mouseunder area call [putpixel] pop edx pop ecx inc ecx cmp ecx, 16 jnz mres xor ecx, ecx inc edx cmp edx, 24 jnz mres popad ret ;----------------------------------------------------------------------------- align 4 save_draw_mouse: cmp [_display.move_cursor], 0 je .no_hw_cursor pushad mov [X_UNDER], ax mov [Y_UNDER], bx movzx eax, word [MOUSE_Y] movzx ebx, word [MOUSE_X] push eax push ebx ; mov ecx, [Screen_Max_X] ; inc ecx ; mul ecx mov eax, [d_width_calc_area + eax*4] add eax, [_WinMapAddress] movzx edx, byte [ebx+eax] shl edx, 8 mov esi, [edx+SLOT_BASE+APPDATA.cursor] cmp esi, [current_cursor] je .draw push esi call [_display.select_cursor] mov [current_cursor], esi ;-------------------------------------- align 4 .draw: stdcall [_display.move_cursor], esi popad ret ;-------------------------------------- ;align 4 ;.fail: ; mov ecx, [def_cursor] ; mov [edx+SLOT_BASE+APPDATA.cursor], ecx ; stdcall [_display.move_cursor], ecx ; stdcall: [esp]=ebx,eax ; popad ; ret ;-------------------------------------- align 4 .no_hw_cursor: pushad ; save & draw mov [X_UNDER], ax mov [Y_UNDER], bx push eax push ebx mov ecx, 0 mov edx, 0 ;-------------------------------------- align 4 drm: push eax push ebx push ecx push edx ; helloworld push ecx add eax, ecx; save picture under mouse add ebx, edx push ecx or ecx, 0x04000000 ; don't load to mouseunder area call getpixel mov [COLOR_TEMP], ecx pop ecx mov eax, edx shl eax, 6 shl ecx, 2 add eax, ecx add eax, mouseunder mov ebx, [COLOR_TEMP] and ebx, 0xffffff mov [eax], ebx pop ecx mov edi, edx ; y cycle shl edi, 4 ; *16 bytes per row add edi, ecx ; x cycle mov esi, edi add edi, esi add edi, esi ; *3 add edi, [MOUSE_PICTURE] ; we have our str address mov esi, edi add esi, 16*24*3 push ecx mov ecx, [COLOR_TEMP] call combine_colors and ecx, 0xffffff mov [MOUSE_COLOR_MEM], ecx pop ecx pop edx pop ecx pop ebx pop eax add eax, ecx ; we have x coord+cycle add ebx, edx ; and y coord+cycle push ecx mov ecx, [MOUSE_COLOR_MEM] mov edi, 1 ; force or ecx, 0x04000000 ; don't save to mouseunder area call [putpixel] pop ecx mov ebx, [esp+0] ; pure y coord again mov eax, [esp+4] ; and x inc ecx ; +1 cycle cmp ecx, 16 ; if more than 16 jnz drm xor ecx, ecx inc edx cmp edx, 24 jnz drm add esp, 8 popad ret ;----------------------------------------------------------------------------- align 4 combine_colors: ; in ; ecx - color ( 00 RR GG BB ) ; edi - ref to new color byte ; esi - ref to alpha byte ; ; out ; ecx - new color ( roughly (ecx*[esi]>>8)+([edi]*[esi]>>8) ) push eax push ebx push edx push ecx xor ecx, ecx ; byte 2 mov eax, 0xff sub al, [esi+0] mov ebx, [esp] shr ebx, 16 and ebx, 0xff mul ebx shr eax, 8 add ecx, eax xor eax, eax xor ebx, ebx mov al, [edi+0] mov bl, [esi+0] mul ebx shr eax, 8 add ecx, eax shl ecx, 8 ; byte 1 mov eax, 0xff sub al, [esi+1] mov ebx, [esp] shr ebx, 8 and ebx, 0xff mul ebx shr eax, 8 add ecx, eax xor eax, eax xor ebx, ebx mov al, [edi+1] mov bl, [esi+1] mul ebx shr eax, 8 add ecx, eax shl ecx, 8 ; byte 2 mov eax, 0xff sub al, [esi+2] mov ebx, [esp] and ebx, 0xff mul ebx shr eax, 8 add ecx, eax xor eax, eax xor ebx, ebx mov al, [edi+2] mov bl, [esi+2] mul ebx shr eax, 8 add ecx, eax pop eax pop edx pop ebx pop eax ret ;----------------------------------------------------------------------------- align 4 check_mouse_area_for_getpixel: ; in: ; eax = x ; ebx = y ; out: ; ecx = new color push eax ebx ; check for Y xor ecx, ecx mov cx, [Y_UNDER] ; [MOUSE_Y] cmp ebx, ecx jb .no_mouse_area add ecx, 23 ; mouse cursor Y size cmp ebx, ecx ja .no_mouse_area ; offset Y sub bx, [Y_UNDER] ;[MOUSE_Y] ;-------------------------------------- ; check for X xor ecx, ecx mov cx, [X_UNDER] ;[MOUSE_X] cmp eax, ecx jb .no_mouse_area add ecx, 15 ; mouse cursor X size cmp eax, ecx ja .no_mouse_area ; offset X sub ax, [X_UNDER] ;[MOUSE_X] ;-------------------------------------- ; eax = offset x ; ebx = offset y shl ebx, 6 ;y shl eax, 2 ;x add eax, ebx add eax, mouseunder mov ecx, [eax] and ecx, 0xffffff or ecx, 0xff000000 pop ebx eax ret ;-------------------------------------- align 4 .no_mouse_area: xor ecx, ecx pop ebx eax ret ;----------------------------------------------------------------------------- align 4 check_mouse_area_for_putpixel: ; in: ; ecx = x shl 16 + y ; eax = color ; out: ; eax = new color push eax ; check for Y mov ax, [Y_UNDER] ; [MOUSE_Y] cmp cx, ax jb .no_mouse_area add ax, 23 ; mouse cursor Y size cmp cx, ax ja .no_mouse_area ; offset Y sub cx, [Y_UNDER] ;[MOUSE_Y] mov ax, cx shl eax, 16 ;-------------------------------------- ; check for X mov ax, [X_UNDER] ;[MOUSE_X] shr ecx, 16 cmp cx, ax jb .no_mouse_area add ax, 15 ; mouse cursor X size cmp cx, ax ja .no_mouse_area ; offset X sub cx, [X_UNDER] ;[MOUSE_X] mov ax, cx ;-------------------------------------- ; eax = (offset y) shl 16 + (offset x) pop ecx push eax ebx mov ebx, eax shr ebx, 16 ;y and eax, 0xffff ;x shl ebx, 6 shl eax, 2 add eax, ebx add eax, mouseunder and ecx, 0xFFFFFF mov [eax], ecx pop ebx eax push esi edi rol eax, 16 movzx edi, ax ; y cycle shl edi, 4 ; *16 bytes per row shr eax, 16 add edi, eax ; x cycle lea edi, [edi*3] add edi, [MOUSE_PICTURE] ; we have our str address mov esi, edi add esi, 16*24*3 call combine_colors pop edi esi ;-------------------------------------- align 4 .end: mov eax, ecx ret ;-------------------------------------- align 4 .no_mouse_area: pop eax ret ;----------------------------------------------------------------------------- align 4 __sys_draw_pointer: pushad movzx ecx, word [X_UNDER] movzx edx, word [Y_UNDER] movzx ebx, word [MOUSE_Y] movzx eax, word [MOUSE_X] cmp eax, ecx jne redrawmouse cmp ebx, edx je nodmp ;-------------------------------------- align 4 redrawmouse: pushfd cli call draw_mouse_under call save_draw_mouse ; mov eax, [_display.select_cursor] ; test eax, eax ; jz @f cmp [_display.select_cursor], select_cursor jne @f xor eax, eax mov esi, [current_cursor] mov ax, [Y_UNDER] sub eax, [esi+CURSOR.hot_y] mov [Y_UNDER_subtraction_CUR_hot_y], eax add eax, [cur.h] mov [Y_UNDER_sub_CUR_hot_y_add_curh], eax mov ax, [X_UNDER] sub eax, [esi+CURSOR.hot_x] mov [X_UNDER_subtraction_CUR_hot_x], eax add eax, [cur.w] mov [X_UNDER_sub_CUR_hot_x_add_curh], eax ;-------------------------------------- align 4 @@: popfd ;-------------------------------------- align 4 nodmp: popad ret ;----------------------------------------------------------------------------- align 4 proc set_mouse_data stdcall, BtnState:dword, XMoving:dword, YMoving:dword, VScroll:dword, HScroll:dword mov eax, [BtnState] mov [BTN_DOWN], eax mov eax, [XMoving] call mouse_acceleration add ax, [MOUSE_X];[XCoordinate] cmp ax, 0 jge @@M1 mov eax, 0 jmp @@M2 ;-------------------------------------- align 4 @@M1: cmp ax, [Screen_Max_X];ScreenLength jl @@M2 mov ax, [Screen_Max_X];ScreenLength-1 ;-------------------------------------- align 4 @@M2: mov [MOUSE_X], ax;[XCoordinate] mov eax, [YMoving] neg eax call mouse_acceleration add ax, [MOUSE_Y];[YCoordinate] cmp ax, 0 jge @@M3 mov ax, 0 jmp @@M4 ;-------------------------------------- align 4 @@M3: cmp ax, [Screen_Max_Y];ScreenHeigth jl @@M4 mov ax, [Screen_Max_Y];ScreenHeigth-1 ;-------------------------------------- align 4 @@M4: mov [MOUSE_Y], ax;[YCoordinate] mov eax, [VScroll] add [MOUSE_SCROLL_V], ax mov eax, [HScroll] add [MOUSE_SCROLL_H], ax mov [mouse_active], 1 mov eax, [timer_ticks] mov [mouse_timer_ticks], eax ret endp ;----------------------------------------------------------------------------- align 4 mouse_acceleration: push eax mov eax, [timer_ticks] sub eax, [mouse_timer_ticks] cmp eax, [mouse_delay] pop eax ja @f ;push edx imul eax, [mouse_speed_factor] ;pop edx ;-------------------------------------- align 4 @@: ret ;-----------------------------------------------------------------------------