git.sur5r.net Git - cc65/blob - libsrc/geos-cbm/devel/randomize.s

   1 ;
   2 ; Ullrich von Bassewitz, 05.11.2002
   3 ;
   4 ; void _randomize (void);
   5 ; /* Initialize the random number generator */
   6 ;
   7
   8         .export         __randomize
   9         .import         _srand
  10
  11         .include        "../inc/geossym.inc"
  12
  13 __randomize:
  14         lda     random          ; get random value from internal generator
  15         ldx     random+1
  16         jmp     _srand          ; and use it as seed