Subversion Repositories Kolibri OS

Rev

Rev 5576 | Rev 5598 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5576 Rev 5582
Line 44... Line 44...
44 
  EAX = EAX % ECX;
 44 
  EAX = EAX % ECX;
Line 45... Line 45...
45
45
46 
  $pop ebx
46 
  $pop ebx
Line 47... Line 47...
47 
}
 47 
}
48 
 
 48 
 
49 
:inline long unirand0(void)
 49 
inline long unirand0(void)
50 
{
 50 
{
51 
	 long k,ans,tmp,save;
 51 
	 long k,ans,tmp,save;
52 
	 save = __generator;
 52 
	 save = __generator;
Line 61... Line 61...
61 
	 __generator^=MASK_RAND;   /* restore unmasked dummy */
 61 
	 __generator^=MASK_RAND;   /* restore unmasked dummy */
62 
	 return ans;
 62 
	 return ans;
63 
}
 63 
}
Line 64... Line 64...
64 
 
 64 
 
65 
:long RAND_A,RAND_C,RAND_TMP;
 65 
:long RAND_A,RAND_C,RAND_TMP;
66 
:inline long rand(signed long x1,x2)
 66 
inline long rand(signed long x1,x2)
67 
{
 67 
{
68 
	long tmp,xx;
 68 
	long tmp,xx;
69 
	RAND_A = __generator;
 69 
	RAND_A = __generator;
70 
	__generator = RAND_A*__generator+RAND_C;
 70 
	__generator = RAND_A*__generator+RAND_C;