Subversion Repositories Kolibri OS

Rev

Blame | 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. :int random(int max)
  25. // get pseudo-random number - яюыєўшЄ№ яёхтфюёыєўрщэюх ўшёыю
  26. {
  27.   $rdtsc        // eax & edx
  28.   $xor eax,edx
  29.   $not eax
  30.  
  31.   EBX = generator;
  32.   $ror ebx,3
  33.   $xor ebx,0xdeadbeef
  34.   EBX += EAX;
  35.   generator = EBX;
  36.  
  37.   EAX += EBX;
  38.   EAX = EAX % max;
  39.   return EAX;
  40. }
  41.  
  42. :randomize()
  43. // initialize random number generator - шэшЎшрышчшЁютрЄ№ ухэхЁрЄюЁ ёыєўрщэ√ї ўшёхы
  44. {
  45.   asm
  46.   {
  47.     mov eax,3
  48.     int 0x40
  49.     ror eax,16
  50.   }
  51.   generator = EAX;
  52. }