crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

i/o interfaces: add a few comments to the random number generator

Browse source 
FossilOrigin-Name: 90e90f4770c1132336fea6dbfa1b4f2e82aed69202a1ebba033af2e15bb36184
This commit is contained in:
crc 2020-09-18 16:18:03 +00:00
parent 2f339dca49
commit 360386fb3b
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
interface/rng.retro
View file

@ -1,4 +1,8 @@
## Random Number Generator
# 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.
~~~
{{
@ -8,7 +12,7 @@
#10 io:scan-for dup n:negative?
[ drop 'IO_DEVICE_TYPE_0010_NOT_FOUND s:put nl ]
[ !io ] choose ] if ;
---reveal---
---reveal---
:io:rng-operation identify @io io:invoke ;
}}