12 lines
297 B
Text
12 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
|