|
|
1.1 ! root 1: .th RAND III 1/15/73 ! 2: .sh NAME ! 3: rand \*- random number generator ! 4: .sh SYNOPSIS ! 5: (seed in r0) ! 6: .br ! 7: .ft B ! 8: jsr pc,srand /to initialize ! 9: .s3 ! 10: jsr pc,rand /to get a random number ! 11: .s3 ! 12: .nf ! 13: srand(seed) ! 14: int seed; ! 15: .s3 ! 16: rand( ) ! 17: .fi ! 18: .ft R ! 19: .s3 ! 20: .sh DESCRIPTION ! 21: .it Rand ! 22: uses a multiplicative congruential ! 23: random number generator to return successive pseudo-random ! 24: numbers (in r0) in the range from 1 to 2\u\s715\s10\d\*-1. ! 25: .s3 ! 26: The generator is reinitialized by calling ! 27: .it srand ! 28: with 1 as argument (in r0). ! 29: It can be set to a random starting point by calling ! 30: .it srand ! 31: with whatever you like as argument, ! 32: for example the low-order word ! 33: of the time. ! 34: .sh WARNING ! 35: The author of this routine has been writing ! 36: random-number generators for many years and has never been ! 37: known to write one that worked. ! 38: .sh BUGS ! 39: The low-order bits are not very random.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.