mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-16 03:42:35 +03:00
476 lines
10 KiB
PHP
476 lines
10 KiB
PHP
|
|
struct BLITTER_BLOCK
|
|
xmin dd ?
|
|
ymin dd ?
|
|
xmax dd ?
|
|
ymax dd ?
|
|
ends
|
|
|
|
|
|
struct BLITTER
|
|
dc BLITTER_BLOCK
|
|
sc BLITTER_BLOCK
|
|
dst_x dd ? ; 32
|
|
dst_y dd ? ; 36
|
|
src_x dd ? ; 40
|
|
src_y dd ? ; 44
|
|
w dd ? ; 48
|
|
h dd ? ; 52
|
|
|
|
bitmap dd ? ; 56
|
|
stride dd ? ; 60
|
|
ends
|
|
|
|
|
|
align 4
|
|
|
|
__L1OutCode:
|
|
push ebx
|
|
mov ebx, 8
|
|
cmp edx, [eax]
|
|
jl .L2
|
|
xor ebx, ebx
|
|
cmp edx, [eax+8]
|
|
setg bl
|
|
sal ebx, 2
|
|
.L2:
|
|
cmp ecx, [eax+4]
|
|
jge .L3
|
|
or ebx, 1
|
|
jmp .L4
|
|
|
|
.L3:
|
|
cmp ecx, [eax+12]
|
|
jle .L4
|
|
or ebx, 2
|
|
.L4:
|
|
mov eax, ebx
|
|
pop ebx
|
|
ret
|
|
|
|
align 4
|
|
block_clip:
|
|
push ebp
|
|
push edi
|
|
push esi
|
|
push ebx
|
|
sub esp, 4
|
|
|
|
mov ebx, eax
|
|
mov [esp], edx
|
|
mov ebp, ecx
|
|
mov ecx, [ecx]
|
|
mov edx, [edx]
|
|
call __L1OutCode
|
|
|
|
mov esi, eax
|
|
mov edx, [esp+28]
|
|
mov ecx, [edx]
|
|
.L21:
|
|
mov eax, [esp+24]
|
|
mov edx, [eax]
|
|
mov eax, ebx
|
|
call __L1OutCode
|
|
|
|
mov edi, eax
|
|
.L20:
|
|
mov eax, edi
|
|
and eax, esi
|
|
jne .L9
|
|
cmp esi, edi
|
|
je .L9
|
|
test esi, esi
|
|
jne .L10
|
|
test edi, 1
|
|
je .L11
|
|
mov eax, [ebx+4]
|
|
jmp .L25
|
|
.L11:
|
|
test edi, 2
|
|
je .L13
|
|
mov eax, [ebx+12]
|
|
.L25:
|
|
mov edx, [esp+28]
|
|
jmp .L22
|
|
.L13:
|
|
test edi, 4
|
|
je .L14
|
|
mov eax, [ebx+8]
|
|
jmp .L26
|
|
.L14:
|
|
and edi, 8
|
|
je .L12
|
|
mov eax, [ebx]
|
|
.L26:
|
|
mov edx, [esp+24]
|
|
.L22:
|
|
mov [edx], eax
|
|
.L12:
|
|
mov eax, [esp+28]
|
|
mov ecx, [eax]
|
|
jmp .L21
|
|
.L10:
|
|
test esi, 1
|
|
je .L16
|
|
mov eax, [ebx+4]
|
|
jmp .L23
|
|
.L16:
|
|
test esi, 2
|
|
je .L18
|
|
mov eax, [ebx+12]
|
|
.L23:
|
|
mov [ebp+0], eax
|
|
jmp .L17
|
|
.L18:
|
|
test esi, 4
|
|
je .L19
|
|
mov eax, [ebx+8]
|
|
jmp .L24
|
|
.L19:
|
|
and esi, 8
|
|
je .L17
|
|
mov eax, [ebx]
|
|
.L24:
|
|
mov edx, [esp]
|
|
mov [edx], eax
|
|
.L17:
|
|
mov ecx, [ebp+0]
|
|
mov eax, [esp]
|
|
mov edx, [eax]
|
|
mov eax, ebx
|
|
call __L1OutCode
|
|
mov esi, eax
|
|
jmp .L20
|
|
.L9:
|
|
add esp, 4
|
|
pop ebx
|
|
pop esi
|
|
pop edi
|
|
pop ebp
|
|
ret
|
|
|
|
align 4
|
|
blit_clip:
|
|
|
|
.sx0 equ 36
|
|
.sy0 equ 32
|
|
.sx1 equ 28
|
|
.sy1 equ 24
|
|
|
|
.dx0 equ 20
|
|
.dy0 equ 16
|
|
.dx1 equ 12
|
|
.dy1 equ 8
|
|
|
|
|
|
push edi
|
|
push esi
|
|
push ebx
|
|
sub esp, 40
|
|
|
|
mov ebx, ecx
|
|
mov edx, [ecx+BLITTER.src_x]
|
|
mov [esp+.sx0], edx
|
|
mov eax, [ecx+BLITTER.src_y]
|
|
mov [esp+.sy0], eax
|
|
add edx, [ecx+BLITTER.w]
|
|
dec edx
|
|
mov [esp+.sx1], edx
|
|
add eax, [ecx+BLITTER.h]
|
|
dec eax
|
|
mov [esp+.sy1], eax
|
|
|
|
lea ecx, [esp+.sy0]
|
|
lea edx, [esp+.sx0]
|
|
lea eax, [ebx+BLITTER.sc]
|
|
lea esi, [esp+.sy1]
|
|
|
|
mov [esp+4], esi
|
|
lea esi, [esp+.sx1]
|
|
mov [esp], esi
|
|
call block_clip
|
|
|
|
mov esi, 1
|
|
test eax, eax
|
|
jne .L28
|
|
|
|
mov edi, [esp+.sx0]
|
|
mov edx, [ebx+BLITTER.dst_x]
|
|
add edx, edi
|
|
sub edx, [ebx+BLITTER.src_x]
|
|
mov [esp+.dx0], edx
|
|
|
|
mov ecx, [esp+.sy0]
|
|
mov eax, [ebx+BLITTER.dst_y]
|
|
add eax, ecx
|
|
sub eax, [ebx+BLITTER.src_y]
|
|
mov [esp+.dy0], eax
|
|
sub edx, edi
|
|
add edx, [esp+.sx1]
|
|
mov [esp+.dx1], edx
|
|
|
|
sub eax, ecx
|
|
add eax, [esp+.sy1]
|
|
mov [esp+.dy1], eax
|
|
|
|
lea ecx, [esp+.dy0]
|
|
lea edx, [esp+.dx0]
|
|
lea eax, [esp+.dy1]
|
|
mov [esp+4], eax
|
|
lea eax, [esp+.dx1]
|
|
mov [esp], eax
|
|
mov eax, ebx
|
|
call block_clip
|
|
test eax, eax
|
|
jne .L28
|
|
|
|
mov edx, [esp+.dx0]
|
|
mov eax, [esp+.dx1]
|
|
inc eax
|
|
sub eax, edx
|
|
mov [ebx+BLITTER.w], eax
|
|
|
|
mov eax, [esp+.dy0]
|
|
mov ecx, [esp+.dy1]
|
|
inc ecx
|
|
sub ecx, eax
|
|
mov [ebx+BLITTER.h], ecx
|
|
|
|
mov ecx, [ebx+BLITTER.src_x]
|
|
add ecx, edx
|
|
sub ecx, [ebx+BLITTER.dst_x]
|
|
mov [ebx+BLITTER.src_x], ecx
|
|
|
|
mov ecx, [ebx+BLITTER.src_y]
|
|
add ecx, eax
|
|
sub ecx, [ebx+BLITTER.dst_y]
|
|
mov [ebx+BLITTER.src_y], ecx
|
|
mov [ebx+BLITTER.dst_x], edx
|
|
mov [ebx+BLITTER.dst_y], eax
|
|
xor esi, esi
|
|
.L28:
|
|
mov eax, esi
|
|
add esp, 40
|
|
pop ebx
|
|
pop esi
|
|
pop edi
|
|
|
|
|
|
purge .sx0
|
|
purge .sy0
|
|
purge .sx1
|
|
purge .sy1
|
|
|
|
purge .dx0
|
|
purge .dy0
|
|
purge .dx1
|
|
purge .dy1
|
|
|
|
ret
|
|
|
|
|
|
|
|
align 4
|
|
|
|
blit_32:
|
|
push ebp
|
|
push edi
|
|
push esi
|
|
push ebx
|
|
sub esp, 72
|
|
|
|
mov eax, [TASK_BASE]
|
|
mov ebx, [eax-twdw + WDATA.box.width]
|
|
mov edx, [eax-twdw + WDATA.box.height]
|
|
|
|
xor eax, eax
|
|
|
|
mov [esp+BLITTER.dc.xmin], eax
|
|
mov [esp+BLITTER.dc.ymin], eax
|
|
mov [esp+BLITTER.dc.xmax], ebx
|
|
mov [esp+BLITTER.dc.ymax], edx
|
|
|
|
mov [esp+BLITTER.sc.xmin], eax
|
|
mov [esp+BLITTER.sc.ymin], eax
|
|
mov eax, [ecx+24]
|
|
dec eax
|
|
mov [esp+BLITTER.sc.xmax], eax
|
|
mov eax, [ecx+28]
|
|
dec eax
|
|
mov [esp+BLITTER.sc.ymax], eax
|
|
|
|
mov eax, [ecx]
|
|
mov [esp+BLITTER.dst_x], eax
|
|
mov eax, [ecx+4]
|
|
mov [esp+BLITTER.dst_y], eax
|
|
|
|
mov eax, [ecx+16]
|
|
mov [esp+BLITTER.src_x], eax
|
|
mov eax, [ecx+20]
|
|
mov [esp+BLITTER.src_y], eax
|
|
mov eax, [ecx+8]
|
|
mov [esp+BLITTER.w], eax
|
|
mov eax, [ecx+12]
|
|
mov [esp+BLITTER.h], eax
|
|
|
|
|
|
mov eax, [ecx+32]
|
|
mov [esp+56], eax
|
|
mov eax, [ecx+36]
|
|
mov [esp+60], eax
|
|
|
|
mov ecx, esp
|
|
call blit_clip
|
|
test eax, eax
|
|
jne .L57
|
|
|
|
mov eax, [TASK_BASE]
|
|
|
|
mov ebx, [esp+BLITTER.dst_x]
|
|
mov ebp, [esp+BLITTER.dst_y]
|
|
add ebx, [eax-twdw + WDATA.box.left]
|
|
add ebp, [eax-twdw + WDATA.box.top]
|
|
|
|
mov ecx, ebx
|
|
add ecx, [esp+BLITTER.w]
|
|
shl ecx, 16
|
|
mov cx, bp
|
|
add ecx, [esp+BLITTER.h]
|
|
|
|
mov edi, ebp
|
|
|
|
imul edi, [_display.pitch]
|
|
; imul ebp, [_display.width]
|
|
mov ebp, [d_width_calc_area + ebp*4]
|
|
|
|
add ebp, ebx
|
|
add ebp, [_WinMapAddress]
|
|
|
|
mov eax, [esp+BLITTER.src_y]
|
|
imul eax, [esp+BLITTER.stride]
|
|
mov esi, [esp+BLITTER.src_x]
|
|
lea esi, [eax+esi*4]
|
|
add esi, [esp+BLITTER.bitmap]
|
|
|
|
mov eax, ecx
|
|
mov ecx, [esp+BLITTER.h]
|
|
mov edx, [esp+BLITTER.w]
|
|
|
|
test ecx, ecx ;FIXME check clipping
|
|
jz .L57
|
|
|
|
test edx, edx
|
|
jz .L57
|
|
|
|
cmp [_display.bpp], 32
|
|
jne .core_24
|
|
|
|
lea edi, [edi+ebx*4]
|
|
|
|
mov ebx, [CURRENT_TASK]
|
|
align 4
|
|
.outer32:
|
|
xor ecx, ecx
|
|
|
|
align 4
|
|
.inner32:
|
|
cmp [ebp+ecx], bl
|
|
jne @F
|
|
;--------------------------------------
|
|
push eax
|
|
mov eax, [esi+ecx*4]
|
|
|
|
push ecx
|
|
|
|
mov ecx, [esp+4]
|
|
ror ecx, 16
|
|
sub ecx, edx
|
|
rol ecx, 16
|
|
sub ecx, [esp+BLITTER.h + 8]
|
|
|
|
; check mouse area for putpixel
|
|
call [_display.check_mouse]
|
|
pop ecx
|
|
; store to real LFB
|
|
mov [LFB_BASE+edi+ecx*4], eax
|
|
pop eax
|
|
;--------------------------------------
|
|
align 4
|
|
@@:
|
|
inc ecx
|
|
dec edx
|
|
jnz .inner32
|
|
|
|
add esi, [esp+BLITTER.stride]
|
|
add edi, [_display.pitch]
|
|
add ebp, [_display.width]
|
|
|
|
mov edx, [esp+BLITTER.w]
|
|
dec [esp+BLITTER.h]
|
|
jnz .outer32
|
|
|
|
.done:
|
|
call [draw_pointer]
|
|
.L57:
|
|
add esp, 72
|
|
pop ebx
|
|
pop esi
|
|
pop edi
|
|
pop ebp
|
|
ret
|
|
|
|
.core_24:
|
|
lea ebx, [ebx+ebx*2]
|
|
lea edi, [LFB_BASE+edi+ebx]
|
|
mov ebx, [CURRENT_TASK]
|
|
|
|
align 4
|
|
.outer24:
|
|
mov [esp+64], edi
|
|
xor ecx, ecx
|
|
|
|
align 4
|
|
.inner24:
|
|
cmp [ebp+ecx], bl
|
|
jne @F
|
|
;--------------------------------------
|
|
push eax
|
|
mov eax, [esi+ecx*4]
|
|
|
|
lea edi, [edi+ecx*2]
|
|
|
|
push ecx
|
|
|
|
mov ecx, [esp+4]
|
|
ror ecx, 16
|
|
sub ecx, edx
|
|
rol ecx, 16
|
|
sub ecx, [esp+BLITTER.h + 8]
|
|
|
|
; check mouse area for putpixel
|
|
call [_display.check_mouse]
|
|
pop ecx
|
|
|
|
mov [edi+ecx], ax
|
|
shr eax, 16
|
|
mov [edi+ecx+2], al
|
|
|
|
pop eax
|
|
;--------------------------------------
|
|
align 4
|
|
@@:
|
|
mov edi, [esp+64]
|
|
inc ecx
|
|
dec edx
|
|
jnz .inner24
|
|
|
|
add esi, [esp+BLITTER.stride]
|
|
add edi, [_display.pitch]
|
|
add ebp, [_display.width]
|
|
|
|
mov edx, [esp+BLITTER.w]
|
|
dec [esp+BLITTER.h]
|
|
jnz .outer24
|
|
|
|
jmp .done
|