forked from KolibriOS/kolibrios
3eda462807
Programs: fasm updated to 1.67.14, small fixes in desktop, stackcfg, calc, board, pipes, freecell, big cleanup of unused programs, added some applications from 0.6.3.0 distr... git-svn-id: svn://kolibrios.org@205 a494cfbc-eb01-0410-851d-a64ba20cac60
63 lines
902 B
PHP
63 lines
902 B
PHP
macro use_gp
|
|
{
|
|
;esi - screen size
|
|
;edi - pointer to image
|
|
csi_width equ [esi+2]
|
|
csi_height equ [esi]
|
|
csi_bitspp equ [esi+4]
|
|
csi_bytesps equ [esi+6]
|
|
copy_screen_to_image:
|
|
pusha
|
|
xor edx,edx
|
|
xor ecx,ecx
|
|
xor ebx,ebx
|
|
|
|
cmp csi_bitspp,word 24
|
|
je .next_str_24
|
|
|
|
.next_str_32:
|
|
push edx ebx
|
|
xor ebx,ebx
|
|
@@:
|
|
;push eax
|
|
mov eax,[gs:edx]
|
|
mov [edi+ecx],ax
|
|
shr eax,8
|
|
mov [edi+ecx+2],ah
|
|
;pop eax
|
|
add ecx,3
|
|
add edx,4;eax
|
|
inc bx
|
|
cmp bx,csi_width
|
|
jl @b
|
|
pop ebx edx
|
|
add edx,csi_bytesps
|
|
inc bx
|
|
cmp bx,csi_height
|
|
jl .next_str_32
|
|
popa
|
|
ret
|
|
|
|
.next_str_24:
|
|
push edx ebx
|
|
xor ebx,ebx
|
|
@@:
|
|
;push eax
|
|
mov eax,[gs:edx]
|
|
mov [edi+ecx],ax
|
|
shr eax,8
|
|
mov [edi+ecx+2],ah
|
|
;pop eax
|
|
add ecx,3
|
|
add edx,3;eax
|
|
inc bx
|
|
cmp bx,csi_width
|
|
jl @b
|
|
pop ebx edx
|
|
add edx,csi_bytesps
|
|
inc bx
|
|
cmp bx,csi_height
|
|
jl .next_str_24
|
|
popa
|
|
ret
|
|
} |