forked from KolibriOS/kolibrios
398 lines
8.4 KiB
PHP
398 lines
8.4 KiB
PHP
|
|
nm_control_data_size = 22
|
|
nm_redraw_all = 10000000b
|
|
nm_redraw_off = 01111111b
|
|
;nm_special_redraw_on = 00000100b
|
|
;nm_special_redraw_off = 11111011b
|
|
nm_integer_type = 00000010b
|
|
nm_no_show_number = 00000001b
|
|
|
|
;****************************************************
|
|
;********************craete Number**********************
|
|
;****************************************************
|
|
;IN
|
|
;pointer to parend
|
|
;pointer to Number's structure
|
|
;OUT
|
|
;pointer to initialized Number's structure
|
|
align 4
|
|
|
|
craete_number:
|
|
|
|
push ebx
|
|
push ecx
|
|
push edx
|
|
push esi
|
|
push edi
|
|
push ebp
|
|
|
|
mov ebx,[esp+24+4]
|
|
mov eax,[esp+24+8]
|
|
|
|
mov [PointerToStructureForNumber],eax
|
|
|
|
mov eax,control_header_size+nm_control_data_size
|
|
call craete_control
|
|
|
|
;set all image's parameters in control
|
|
mov [eax],dword number
|
|
|
|
mov ecx,nm_control_data_size
|
|
mov esi,[PointerToStructureForNumber]
|
|
mov edi,eax
|
|
add edi,control_header_size
|
|
rep movsb
|
|
|
|
call get_skin_height
|
|
|
|
mov ebx,[PointerToStructureForNumber]
|
|
mov ecx,[ebx+6] ;x
|
|
mov edx,[ebx+10] ;y
|
|
add ecx,border_width
|
|
add edx,[skin_height]
|
|
;copy information to control
|
|
mov [eax+24],ecx
|
|
mov [eax+28],edx
|
|
|
|
pop ebp
|
|
pop edi
|
|
pop esi
|
|
pop edx
|
|
pop ecx
|
|
pop ebx
|
|
|
|
ret 8
|
|
|
|
;****************************************************
|
|
;********************Draw Number*********************
|
|
;****************************************************
|
|
;IN
|
|
;pointer to control of number
|
|
;message
|
|
;OUT
|
|
;not returned value
|
|
align 4
|
|
|
|
number:
|
|
|
|
;get message
|
|
mov eax,[esp+8]
|
|
|
|
;get pointer to control of image
|
|
mov esi,[esp+4]
|
|
mov [PointerForNumber],esi
|
|
;copy control to local control
|
|
add esi,control_header_size
|
|
mov edi,dword Number
|
|
mov ecx,nm_control_data_size
|
|
rep movsb
|
|
|
|
|
|
cmp [eax],dword 1
|
|
jne no_redraw_all_number
|
|
|
|
xor ebx,ebx
|
|
mov bl,[Number.type]
|
|
and bl,nm_no_show_number
|
|
test bl,bl
|
|
jnz no_redraw_all_number
|
|
|
|
or [Number.type],nm_redraw_all
|
|
|
|
no_redraw_all_number:
|
|
|
|
cmp [eax],dword 3
|
|
jne no_special_message_for_number
|
|
|
|
xor ebx,ebx
|
|
mov bl,[Number.type]
|
|
and bl,activate_trap
|
|
test bl,bl
|
|
jz no_special_message_for_number
|
|
|
|
or [Number.type],nm_redraw_all
|
|
and [Number.type],deactivate_trap
|
|
|
|
no_special_message_for_number:
|
|
|
|
cmp [eax],dword -1
|
|
jne no_destroy_control_of_number
|
|
|
|
jmp exit_number
|
|
no_destroy_control_of_number:
|
|
|
|
;load coordinats and size from control
|
|
mov eax,[PointerForNumber]
|
|
mov ebx,[eax+24] ;x
|
|
mov ecx,[eax+28] ;y
|
|
;set current coordinats and sizes in zakladka
|
|
mov [Number.x],ebx
|
|
mov [Number.y],ecx
|
|
|
|
xor eax,eax
|
|
mov al,[Number.type]
|
|
and al,nm_redraw_all
|
|
test al,al
|
|
jz no_redraw_number_
|
|
|
|
and [Number.type],nm_redraw_off
|
|
|
|
mov esi,dword Number
|
|
mov edi,[PointerForNumber]
|
|
add edi,control_header_size
|
|
mov ecx,2
|
|
rep movsb
|
|
|
|
;get standart colors table
|
|
mov eax,48
|
|
mov ebx,3
|
|
mov ecx,dword pointer2
|
|
mov edx,40
|
|
mcall
|
|
|
|
xor eax,eax
|
|
mov al,[Number.type]
|
|
and al,nm_integer_type
|
|
test al,al
|
|
jnz no_integer_number
|
|
|
|
mov eax,47
|
|
mov ebx,[Number.parameters]
|
|
mov ecx,[Number.number]
|
|
mov edx,[Number.x]
|
|
shl edx,16
|
|
add edx,[Number.y]
|
|
mov esi,[Number.color]
|
|
mov edi,[pointer2+8]
|
|
mcall
|
|
|
|
jmp no_redraw_number_
|
|
no_integer_number:
|
|
;---------------------------------------
|
|
|
|
mov ebx,[Number.parameters]
|
|
mov ecx,ebx
|
|
shr ebx,16 ;format for integer
|
|
and ecx,0xffff ;format for float
|
|
|
|
;get integer part of float number
|
|
mov eax,1
|
|
mov edi,ecx
|
|
pow_10__:
|
|
|
|
;eax=eax*10
|
|
lea eax,[eax+eax*4]
|
|
shl eax,1
|
|
|
|
dec edi
|
|
jnz pow_10__
|
|
mov edx,eax
|
|
|
|
;check for signum
|
|
mov [v2],0
|
|
fld [Number.number]
|
|
fcom [v2]
|
|
fstsw ax
|
|
sahf
|
|
jae no_signum_float_number
|
|
|
|
fabs
|
|
mov [signum_float_number],byte 1
|
|
|
|
no_signum_float_number:
|
|
fstp [Number.number]
|
|
|
|
mov [v2],edx ;v2=10^ecx
|
|
fild [v2]
|
|
fld [Number.number]
|
|
fmul st0,st1
|
|
fistp [v]
|
|
fstp st0
|
|
|
|
mov esi,edx
|
|
mov eax,[v]
|
|
cdq
|
|
idiv esi
|
|
mov [v],eax
|
|
|
|
and [integer_part],0
|
|
and [tochnost1],0
|
|
|
|
;save v in v2
|
|
mov eax,[v]
|
|
mov [v2],eax
|
|
|
|
mov [Number.flag],0
|
|
mov esi,ebx
|
|
get_next_razryd_of_number_integer:
|
|
|
|
mov eax,1
|
|
|
|
mov edi,esi
|
|
pow_10_integer:
|
|
|
|
;eax=eax*10
|
|
lea eax,[eax+eax*4]
|
|
shl eax,1
|
|
|
|
dec edi
|
|
jnz pow_10_integer
|
|
|
|
mov edi,eax
|
|
mov eax,[v]
|
|
cdq
|
|
idiv edi
|
|
and eax,0xf
|
|
|
|
test eax,eax
|
|
jz no_save_pos_for_integer
|
|
|
|
cmp [Number.flag],0
|
|
jne no_save_pos_for_integer
|
|
|
|
mov [Number.flag],1b
|
|
mov [tochnost1],esi
|
|
add [tochnost1],1
|
|
|
|
no_save_pos_for_integer:
|
|
|
|
imul eax,edi
|
|
sub [v],eax
|
|
add [integer_part],eax
|
|
|
|
dec esi
|
|
jnz get_next_razryd_of_number_integer
|
|
mov eax,[v]
|
|
add [integer_part],eax
|
|
|
|
cmp [tochnost1],0
|
|
jnz all_ok_with_tochnost
|
|
|
|
mov [tochnost1],1
|
|
all_ok_with_tochnost:
|
|
|
|
;get float part of float number
|
|
mov eax,[v2]
|
|
mov [v],eax
|
|
|
|
mov eax,1
|
|
mov edi,ecx
|
|
pow_10_float__:
|
|
|
|
;eax=eax*10
|
|
lea eax,[eax+eax*4]
|
|
shl eax,1
|
|
|
|
dec edi
|
|
jnz pow_10_float__
|
|
|
|
mov [v2],eax ;v2=10^ecx
|
|
|
|
fild [v2]
|
|
fild [v]
|
|
fld [Number.number]
|
|
fsub st0,st1
|
|
fmul st0,st2
|
|
fistp [v]
|
|
fstp st0
|
|
fstp st0
|
|
|
|
and [float_part],0
|
|
|
|
mov esi,ecx
|
|
get_next_razryd_of_number_float:
|
|
|
|
mov eax,1
|
|
|
|
mov edi,esi
|
|
pow_10_float:
|
|
|
|
;eax=eax*10
|
|
lea eax,[eax+eax*4]
|
|
shl eax,1
|
|
|
|
dec edi
|
|
jnz pow_10_float
|
|
|
|
mov edi,eax
|
|
mov eax,[v]
|
|
cdq
|
|
idiv edi
|
|
and eax,0xf
|
|
imul eax,edi
|
|
sub [v],eax
|
|
add [float_part],eax
|
|
|
|
dec esi
|
|
jnz get_next_razryd_of_number_float
|
|
mov eax,[v]
|
|
add [float_part],eax
|
|
|
|
mov [tochnost2],ecx
|
|
cmp [signum_float_number],byte 1
|
|
jne no_draw_signum_for_float_number
|
|
|
|
;draw signum
|
|
mov eax,4
|
|
mov ebx,[Number.x]
|
|
mov ecx,[Number.color]
|
|
mov edx,dword signum
|
|
mov esi,1
|
|
mov edi,[pointer2+8]
|
|
shl ebx,16
|
|
add ebx,[Number.y]
|
|
mcall
|
|
|
|
add [Number.x],6
|
|
mov [signum_float_number],0
|
|
no_draw_signum_for_float_number:
|
|
|
|
;draw integer part of float number
|
|
mov eax,47
|
|
mov ebx,[tochnost1]
|
|
mov ecx,[integer_part]
|
|
mov edx,[Number.x]
|
|
mov esi,[Number.color]
|
|
mov edi,[pointer2+8]
|
|
shl edx,16
|
|
shl ebx,16
|
|
add edx,[Number.y]
|
|
mcall
|
|
|
|
mov edx,[tochnost1]
|
|
add edx,1
|
|
lea edx,[edx+edx*2]
|
|
shl edx,1 ;edx=edx*6
|
|
add edx,[Number.x]
|
|
mov [x],edx
|
|
|
|
;draw float part of float number
|
|
mov eax,47
|
|
mov ebx,[tochnost2]
|
|
mov ecx,[float_part]
|
|
mov esi,[Number.color]
|
|
mov edi,[pointer2+8]
|
|
shl edx,16
|
|
shl ebx,16
|
|
add edx,[Number.y]
|
|
mcall
|
|
|
|
;draw point betwen integer part of number and float part of number
|
|
mov eax,4
|
|
mov ebx,[x]
|
|
mov ecx,[Number.color]
|
|
mov edx,dword point
|
|
mov esi,1
|
|
mov edi,[pointer2+8]
|
|
sub ebx,6
|
|
shl ebx,16
|
|
add ebx,[Number.y]
|
|
mcall
|
|
|
|
no_redraw_number_:
|
|
;-----------------------------------------
|
|
|
|
exit_number:
|
|
|
|
ret 8
|