Akyltist
9b11245e08
support for exponent, high accuracy, not normalized form of writing git-svn-id: svn://kolibrios.org@4721 a494cfbc-eb01-0410-851d-a64ba20cac60
35 lines
945 B
FASM
35 lines
945 B
FASM
;-----------------------------------------------------------------------------+
|
|
; Функция генерации случайного числа в диапозоне 0..99999 |
|
|
;-----------------------------------------------------------------------------+
|
|
; На выходе : eax - случайное число |
|
|
;-----------------------------------------------------------------------------+
|
|
_random:
|
|
push edx ecx ebx
|
|
mov eax,ebx
|
|
or eax,eax
|
|
jnz @f
|
|
rdtsc
|
|
xor eax,edx
|
|
mov ebx,eax
|
|
@@:
|
|
xor edx,edx
|
|
mov ecx,127773
|
|
div ecx
|
|
mov ecx,eax
|
|
mov eax,16807
|
|
mul edx
|
|
mov edx,ecx
|
|
mov ecx,eax
|
|
mov eax,2836
|
|
mul edx
|
|
sub ecx,eax
|
|
xor edx,edx
|
|
mov eax,ecx
|
|
mov ebx,ecx
|
|
mov ecx,100000
|
|
div ecx
|
|
mov eax,edx
|
|
pop ebx ecx edx
|
|
ret
|
|
;->
|