15 lines
371 B
Forth
15 lines
371 B
Forth
# 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.
|
|
|
|
~~~
|
|
:n:random (:-n)
|
|
DEVICE:RNG io:scan-for
|
|
dup n:negative? [ drop 'Error:_RNG_device_not_found s:put nl ] if;
|
|
io:invoke ;
|
|
|
|
'interface/rng.retro 'n:random d:set-source
|
|
~~~
|
|
|