forked from KolibriOS/kolibrios
295 lines
4.7 KiB
PHP
295 lines
4.7 KiB
PHP
include "..\..\..\develop\info3ds\info_fun_float.inc"
|
|
|
|
align 4
|
|
proc @DoubleToStr$qduso uses esi edi
|
|
cld
|
|
lea esi,[esp+12]
|
|
mov edi,Data_Double
|
|
movsd
|
|
movsd
|
|
mov ax,[esp+20]
|
|
mov [NumberSymbolsAD],ax
|
|
call DoubleFloat_to_String
|
|
cmp dword[esp+24],0
|
|
je @f
|
|
call String_crop_0
|
|
@@:
|
|
mov eax,Data_String
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @StrToDouble$qpc uses esi edi
|
|
cld
|
|
mov edi,Data_String
|
|
mov esi,[esp+12]
|
|
mov ecx,32
|
|
repnz movsb
|
|
call String_to_DoubleFloat
|
|
fld qword[Data_Double]
|
|
ret
|
|
endp
|
|
|
|
;input:
|
|
; *str - указатель на строку, число должно быть в 10 или 16 ричном виде
|
|
;output:
|
|
; eax - число
|
|
align 4
|
|
proc @StrToInt$qpc uses ebx esi
|
|
xor eax,eax
|
|
xor ebx,ebx
|
|
mov esi,[esp+12]
|
|
|
|
;на случай если перед числом находятся пробелы
|
|
@@:
|
|
cmp byte[esi],' '
|
|
jne @f
|
|
inc esi
|
|
jmp @b
|
|
@@:
|
|
|
|
;определение отрицательных чисел
|
|
xor ecx,ecx
|
|
inc ecx
|
|
cmp byte[esi],'-'
|
|
jne @f
|
|
dec ecx
|
|
inc esi
|
|
@@:
|
|
|
|
cmp word[esi],'0x'
|
|
je .load_digit_16
|
|
|
|
.load_digit_10: ;считывание 10-тичных цифр
|
|
mov bl,byte[esi]
|
|
cmp bl,'0'
|
|
jl @f
|
|
cmp bl,'9'
|
|
jg @f
|
|
sub bl,'0'
|
|
imul eax,10
|
|
add eax,ebx
|
|
inc esi
|
|
jmp .load_digit_10
|
|
jmp @f
|
|
|
|
.load_digit_16: ;считывание 16-ричных цифр
|
|
add esi,2
|
|
.cycle_16:
|
|
mov bl,byte[esi]
|
|
cmp bl,'0'
|
|
jl @f
|
|
cmp bl,'f'
|
|
jg @f
|
|
cmp bl,'9'
|
|
jle .us1
|
|
cmp bl,'A'
|
|
jl @f ;отсеиваем символы >'9' и <'A'
|
|
.us1: ;составное условие
|
|
cmp bl,'F'
|
|
jle .us2
|
|
cmp bl,'a'
|
|
jl @f ;отсеиваем символы >'F' и <'a'
|
|
sub bl,32 ;переводим символы в верхний регистр, для упрощения их последущей обработки
|
|
.us2: ;составное условие
|
|
sub bl,'0'
|
|
cmp bl,9
|
|
jle .cor1
|
|
sub bl,7 ;convert 'A' to '10'
|
|
.cor1:
|
|
shl eax,4
|
|
add eax,ebx
|
|
inc esi
|
|
jmp .cycle_16
|
|
@@:
|
|
or ecx,ecx ;если число отрицательное
|
|
jnz @f
|
|
sub ecx,eax
|
|
mov eax,ecx
|
|
@@:
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @strlen$qpxc uses edi
|
|
cld
|
|
mov edi,[esp+8]
|
|
mov ecx,-1
|
|
xor al,al
|
|
repnz scasb
|
|
not ecx
|
|
lea eax,[ecx-1]
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @strcpy$qpcpxc uses esi edi
|
|
cld
|
|
mov edi,[esp+16]
|
|
mov ecx,-1
|
|
mov esi,edi
|
|
xor al,al
|
|
repnz scasb
|
|
not ecx
|
|
mov edi,[esp+12]
|
|
mov edx,ecx
|
|
mov eax,edi
|
|
shr ecx,2
|
|
rep movsd
|
|
mov ecx,edx
|
|
and ecx,3
|
|
rep movsb
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @memcpy$qpvpxvui uses esi edi
|
|
cld
|
|
mov edi,[esp+12]
|
|
mov eax,edi
|
|
mov ecx,[esp+20]
|
|
mov esi,[esp+16]
|
|
mov edx,ecx
|
|
shr ecx,2
|
|
rep movsd
|
|
mov ecx,edx
|
|
and ecx,3
|
|
rep movsb
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @memset$qpvcui uses edi
|
|
cld
|
|
mov edi,[esp+8]
|
|
mov al,[esp+12]
|
|
mov ah,al
|
|
mov dx,ax
|
|
shl eax,16
|
|
mov ax,dx
|
|
mov ecx,[esp+16]
|
|
mov edx,ecx
|
|
shr ecx,2
|
|
rep stosd
|
|
mov ecx,edx
|
|
and ecx,3
|
|
rep stosb
|
|
mov eax,[esp+4]
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @strcmp$qpxct1 uses esi edi
|
|
cld
|
|
xor eax,eax
|
|
mov edi,[esp+16]
|
|
mov esi,edi
|
|
mov ecx,-1
|
|
repne scasb
|
|
not ecx
|
|
mov edi,esi
|
|
mov esi,[esp+12]
|
|
repe cmpsb
|
|
mov al,[esi-1]
|
|
movzx edx,byte[edi-1]
|
|
sub eax,edx
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @strchr$qpxci uses edi
|
|
mov edi,[esp+8]
|
|
mov edx,edi
|
|
mov ecx,-1
|
|
xor eax,eax
|
|
cld
|
|
repne scasb
|
|
not ecx
|
|
mov edi,edx
|
|
mov al,[esp+12]
|
|
repne scasb
|
|
jnz @f
|
|
lea eax,[edi-1]
|
|
ret
|
|
@@:
|
|
xor eax,eax
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @strstr$qpxct1 uses ebx esi edi
|
|
xor eax,eax
|
|
mov esi,[esp+16]
|
|
test esi,esi
|
|
je .not_f
|
|
mov edi,[esp+20]
|
|
test edi,edi
|
|
je .not_f
|
|
mov edx,edi
|
|
mov ecx,-1
|
|
cld
|
|
repne scasb
|
|
not ecx
|
|
mov ebx,ecx ;ebx = strlen(str2)
|
|
align 4
|
|
.cycle:
|
|
cmp byte[esi],0
|
|
je .not_f
|
|
mov edi,edx
|
|
push esi
|
|
mov ecx,ebx
|
|
repe cmpsb
|
|
pop esi
|
|
inc esi
|
|
cmp byte[edi-1],0
|
|
jne .cycle
|
|
|
|
lea eax,[esi-1]
|
|
.not_f:
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc __ftol
|
|
sub esp,12
|
|
wait
|
|
fstcw word [esp+8]
|
|
wait
|
|
mov al,[esp+9]
|
|
or byte [esp+9],0x0c
|
|
fldcw word [esp+8]
|
|
fistp qword [esp]
|
|
mov [esp+9],al
|
|
fldcw word [esp+8]
|
|
mov eax,[esp]
|
|
mov edx,[esp+4]
|
|
add esp,12
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc @floor$qd
|
|
fld qword [esp+4]
|
|
mov ax,[esp+10]
|
|
shl ax,1
|
|
cmp ax,0x8680
|
|
ja .floor_end
|
|
mov ch,4
|
|
sub esp,2
|
|
wait
|
|
fstcw word [esp]
|
|
mov ax,0xf3ff
|
|
wait
|
|
mov dx,[esp]
|
|
and ax,dx
|
|
or ah,ch
|
|
mov [esp],ax
|
|
fldcw word [esp]
|
|
frndint
|
|
mov [esp],dx
|
|
fldcw word [esp]
|
|
add esp,2
|
|
.floor_end:
|
|
ret
|
|
endp
|