On Feb 25, 7:18 am, Toinet <antoine.vig...@laposte.net> wrote:
"PSUEDO-RANDOM NUMBER GENERATOR.
IF ARG=0, THE LAST RANDOM NUMBER GENERATED IS RETURNED.
IF ARG .LT. 0, A NEW SEQUENCE OF RANDOM NUMBERS IS STARTED USING THE
ARGUMENT.
TO FORM THE NEXT RANDOM NUMBER IN THE SEQUENCE, MULTIPLY THE PREVIOUS
RANDOM NUMBER BY A RANDOM CONSTANT AND ADD IN ANOTHER RANDOM CONSTANT.
THE THEN HO AND LO BYTES ARE SWITCHED, THE EXPONENT IS PUT WHERE IT
WILL BE SHIFTED IN BY RMAL, & THE EXPONENT IN THE FAC IS SET TO 200 SO
THE RESULT WILL BE LESS THAN 1. THIS IS THEN NORMALIZED AND SAVED FOR
THE NEXT TIME. THE HO AND LOW BYTES WERE SWITCHED SO THERE WILL BE A
RANDOM CHANCE OF GETTING A NUMBER LESS THAN OR GREATER THAN .5."
There is a routine in ROM as well as a table for the use of it.
Sorry about the capital letters but it is not my writing (I am not
responsible for the mistakes)
antoine
Yes, in the source code of days gone past, they didn't think they were
yelling. Probably because they didn't have caps lock back then. ;-)