git.sur5r.net Git - cc65/blob - libsrc/vic20/randomize.s

   1 ;
   2 ; 2002-11-05, Ullrich von Bassewitz
   3 ; 2015-09-11, Greg King
   4 ;
   5 ; void _randomize (void);
   6 ; /* Initialize the random number generator */
   7 ;
   8
   9         .export         __randomize
  10         .import         _srand
  11
  12         .include        "vic20.inc"
  13
  14 __randomize:
  15         lda     VIC_LINES       ; Get overflow bit
  16         asl     a               ; Shift bit 7 into carry
  17         lda     VIC_HLINE       ; Get bit 1-8 of rasterline
  18         rol     a               ; Use bit 0-7
  19         tax                     ; Use VIC rasterline as high byte
  20         lda     TIME+2          ; Use 60HZ clock as low byte
  21         jmp     _srand          ; Initialize generator
  22