Subversion Repositories Kolibri OS

Rev

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

  1. /*******************************************************************************
  2.  
  3.     MenuetOS MineSweeper
  4.     Copyright (C) 2003  Ivan Poddubny
  5.  
  6.     This program is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; either version 2 of the License, or
  9.     (at your option) any later version.
  10.  
  11.     This program is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with this program; if not, write to the Free Software
  18.     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19.  
  20. *******************************************************************************/
  21.  
  22. dword generator;  // random number generator - äëÿ ãåíåðàöèè ñëó÷àéíûõ ÷èñåë
  23.  
  24. inline fastcall int random( ECX)
  25. // get pseudo-random number - ïîëó÷èòü ïñåâäîñëó÷àéíîå ÷èñëî
  26. {
  27.   $push ebx
  28.  
  29.   $rdtsc        // eax & edx
  30.   $xor eax,edx
  31.   $not eax
  32.  
  33.   EBX = generator;
  34.   $ror ebx,3
  35.   $xor ebx,0xdeadbeef
  36.   EBX += EAX;
  37.   generator = EBX;
  38.  
  39.   EAX += EBX;
  40.   EAX = EAX % ECX;
  41.  
  42.   $pop ebx  
  43. }
  44.  
  45. inline fastcall randomize()
  46. // initialize random number generator - èíèöèàëèçèðîâàòü ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
  47. {
  48.   asm
  49.   {
  50.     mov eax,3
  51.     int 0x40
  52.     ror eax,16
  53.   }
  54.   generator = EAX;
  55. }