Add COFF libraries "utils.obj" atof,ftoa,random

support for exponent, high accuracy, not normalized form of writing

git-svn-id: svn://kolibrios.org@4721 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/libraries/utils/trunk/_rand.inc

@@ -0,0 +1,34 @@
+;-----------------------------------------------------------------------------+
+; <EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨 <EFBFBD><EFBFBD><EFBFBD>砩<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫠ <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0..99999                     |
+;-----------------------------------------------------------------------------+
+; <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>室<EFBFBD>  : eax - <EFBFBD><EFBFBD><EFBFBD>砩<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫮                                          |
+;-----------------------------------------------------------------------------+
+_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
+;->