|
|
1.1 ! root 1: .pa 1 ! 2: .he 'RAND (III)'1/15/73'RAND (III)' ! 3: .ti 0 ! 4: NAME rand -- random number generator ! 5: .sp ! 6: .ti 0 ! 7: SYNOPSIS jsr pc,srand /to initialize ! 8: .br ! 9: jsr pc,rand /to get a random number ! 10: .sp ! 11: .ti 0 ! 12: DESCRIPTION The routine uses a multiplicative congruential ! 13: random number generator to return successive pseudo-random ! 14: numbers in r0 in the range from 1 to 2^15-1. ! 15: .sp ! 16: The generator is reinitialized by calling srand with 1 in r0. ! 17: .sp ! 18: It can be set to a random starting point by calling ! 19: srand with whatever you like in r0, ! 20: for example the result left in r1 from sys___ time____. ! 21: .sp ! 22: .ti 0 ! 23: FILES kept in /lib/liba.a ! 24: .sp ! 25: .ti 0 ! 26: SEE ALSO -- ! 27: .sp ! 28: .ti 0 ! 29: DIAGNOSTICS -- ! 30: .sp ! 31: .ti 0 ! 32: BUGS -- ! 33: .sp ! 34: .ti 0 ! 35: WARNING 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.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.