git.sur5r.net Git - cc65/blob - libsrc/geos-common/system/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 "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