git.sur5r.net Git - cc65/blob - libsrc/geos/common/rand.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak, 15.07.2001
   3 ;
   4 ;
   5 ; int rand (void);
   6 ; void srand (unsigned seed);
   7 ;
   8         .export         _rand, _srand
   9         .include        "../inc/jumptab.inc"
  10
  11 .code
  12
  13 _rand:
  14         jsr GetRandom
  15         pha
  16         jsr GetRandom
  17         tax
  18         pla
  19 _srand:
  20         rts