forked from KolibriOS/kolibrios
1500 lines
36 KiB
PHP
1500 lines
36 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2023. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
$Revision$
|
|
|
|
|
|
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:
|
|
virtual at esp
|
|
.src dd ?
|
|
.flags dd ?
|
|
.hcursor dd ?
|
|
end virtual
|
|
|
|
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'
|
|
;------------------------------------------------------------------------------
|
|
|