Subversion Repositories Kolibri OS

Rev

Rev 5582 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. #ifndef INCLUDE_RANDOM_H
  2. #define INCLUDE_RANDOM_H
  3.  
  4. #ifndef INCLUDE_KOLIBRI_H
  5. #include "../lib/kolibri.h"
  6. #endif
  7.  
  8. #define MASK_RAND 123456789
  9. #define IQ_RAND 12773
  10. #define IA_RAND 16807
  11. #define IR_RAND 2836
  12. #define IM_RAND 2147483647
  13. #define AM_RAND (1./2147483647)
  14.  
  15. inline fastcall int random( ECX)
  16. // get pseudo-random number - ïîëó÷èòü ïñåâäîñëó÷àéíîå ÷èñëî
  17. {
  18.   $push ebx
  19.  
  20.   $rdtsc        // eax & edx
  21.   $xor eax,edx
  22.   $not eax
  23.  
  24.   EBX = __generator;
  25.   $ror ebx,3
  26.   $xor ebx,0xdeadbeef
  27.   EBX += EAX;
  28.   __generator = EBX;
  29.  
  30.   EAX += EBX;
  31.   EAX = EAX % ECX;
  32.  
  33.   $pop ebx  
  34. }
  35.  
  36. inline long unirand0(void)
  37. {
  38.          long k,ans,tmp,save;
  39.          save = __generator;
  40.          __generator^=MASK_RAND;   /* avoid __generator==0 */
  41.          k=__generator/IQ_RAND;
  42.          tmp=__generator-k*IQ_RAND;
  43.          __generator*=IA_RAND*tmp;
  44.          __generator-=IR_RAND*k;
  45.          if(__generator<0) __generator+=IM_RAND;
  46.          if(save == __generator) return unirand0();
  47.          ans=__generator;
  48.          __generator^=MASK_RAND;   /* restore unmasked dummy */
  49.          return ans;
  50. }
  51.  
  52. :long RAND_A,RAND_C,RAND_TMP;
  53. inline long rand(signed long x1,x2)
  54. {
  55.         long tmp,xx;
  56.         RAND_A = __generator;
  57.         __generator = RAND_A*__generator+RAND_C;
  58.         RAND_C = __generator^RAND_A;
  59.         RAND_C>>=1;
  60.         RAND_A<<=1;
  61.         __generator^=RAND_A;
  62.         xx=x2;
  63.         if(x1<0)xx+=-x1;
  64.         tmp = __generator%xx;
  65.         if(tmp<0)tmp=-tmp;
  66.         tmp+=x1;
  67.         return tmp;
  68. }
  69.  
  70. inline fastcall randomize()
  71. // initialize random number __generator - èíèöèàëèçèðîâàòü ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
  72. {
  73.   asm
  74.   {
  75.     mov eax,3
  76.     int 0x40
  77.     ror eax,16
  78.   }
  79.   //if(EAX == __generator)return randomize();
  80.   __generator = EAX;
  81. }
  82.  
  83. #endif