2020-09-18 18:18:03 +02:00
|
|
|
# Random Number Generator
|
|
|
|
|
|
|
|
|
|
I/O device type 10 is a random number generator. I do this as
|
|
|
|
|
part of the VM I/O extensions to allow implementors to use the
|
|
|
|
|
best approach on their host system.
|
2019-01-22 03:00:09 +01:00
|
|
|
|
2019-01-19 18:28:17 +01:00
|
|
|
~~~
|
2021-04-19 19:35:29 +02:00
|
|
|
:n:random (-n)
|
|
|
|
|
#10 io:scan-for
|
|
|
|
|
dup n:negative? [ drop 'Error:_device_(0010)_not_found s:put nl ] if;
|
|
|
|
|
io:invoke ;
|
2021-08-23 15:23:10 +02:00
|
|
|
|
|
|
|
|
'interface/rng.retro s:keep d:last d:source store
|
2019-10-14 17:17:43 +02:00
|
|
|
~~~
|
