11 lines
297 B
Text
11 lines
297 B
Text
[*
|
|
* lrx -- (random number from 0 to 32767)
|
|
*
|
|
* Returns a number from the Microsoft rand() sequence.
|
|
* Seeded by storing a seed in register R.
|
|
*]sz
|
|
[lR 214013 * 2531011 + 2147483648 % d sR 65536 /]sr
|
|
|
|
[* Set seed to 1, then print the first 3 random numbers. *]sz
|
|
1 sR
|
|
lrx psz lrx psz lrx psz
|