home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / alt / sys / amiga / demos / 2352 < prev    next >
Encoding:
Text File  |  1993-01-26  |  1.5 KB  |  60 lines
  1. Nntp-Posting-Host: yrsa.ifi.uio.no
  2. Newsgroups: alt.sys.amiga.demos
  3. Path: sparky!uunet!mcsun!sunic!aun.uninett.no!nuug!ifi.uio.no!larshaug
  4. From: larshaug@ifi.uio.no (Lars Haugseth)
  5. Subject: Re: pseudo random numbers
  6. Message-ID: <1993Jan26.090949.4643@ifi.uio.no>
  7. Sender: larshaug@ifi.uio.no (Lars Haugseth)
  8. Organization: Dept. of Informatics, University of Oslo, Norway
  9. References:  <1k19ioINN7l8@darkstar.UCSC.EDU>
  10. Date: Tue, 26 Jan 1993 09:09:49 GMT
  11. Lines: 46
  12. Originator: larshaug@yrsa.ifi.uio.no
  13.  
  14.  
  15. In article <1k19ioINN7l8@darkstar.UCSC.EDU>, moria@ucscb.UCSC.EDU (Moria Beledain) writes:
  16. > 
  17. > pfibl.
  18. > i am looking for a Good pseudo random number generator. 
  19. > the one i am using now was by Leo Schwabb many years ago, and
  20. > i have modified it to now and then EOR in some clock counter
  21. > etc..  But i am still not satisfied!
  22. >  
  23. > so who knows some good ideas ?
  24. > .. Maybe a routine to use the HPos..  It has periods of
  25. > very fast fluctuation which if polled slow enough could seem
  26. > quite random..
  27. > .. hmm
  28. > rnd
  29. >     move.w    seed,d0
  30. >      lsl.w    #4,d0
  31. >     eor.b    HPOS,d0
  32. >     move.w    d0,seed
  33. >     rts
  34. >  
  35.  
  36. Here's how I do it, and I get pretty good results :
  37.  
  38. GETRND:    moveq    #0,d0
  39.     moveq    #0,d1
  40.     move.b    $DFF007,d0
  41.     move.b    $BFD800,d1
  42.     eor.b    d1,d0
  43.     rts
  44.  
  45. This following is better, but takes more cycles :
  46.  
  47. GETRND:    moveq    #0,d0
  48.     move.b    $DFF007,d0
  49.     move.b    $BFD800,d1
  50.     eor.b    d1,d0
  51.     move.b    d0,d1
  52.     and.w    #15,d1
  53. GRND1:    dbf    d1,GRND1
  54.     rts
  55.  
  56. The loop is done so that the time between my bsr GETRND 's will
  57. wary slightly to produce 'more random' numbers.
  58.  
  59. Lars
  60.