retroforth/interface/block.retro
crc fffe7170a2 begin using new DEVICE: namespace for device id constants
FossilOrigin-Name: 899ef8eab4ff7e1ca87a340a3409cbdc09505f063aa863c19e350e3b01ac40cd
2023-12-09 18:49:47 +00:00

32 lines
728 B
Forth

Blocks allow for a simple storage subsystem. In the smaller ilo
and napia based systems, they are mandatory and are the primary
means of data and code storage
Under RetroForth/nga, this is optional, but is enabled by
default.
The exposed word set is compact:
block:set-file (s-)
block:read (na-)
block:write (na-)
~~~
{{
:block:invoke DEVICE:BLOCKS io:scan-for io:invoke ;
---reveal---
:block:read (na-) #0 block:invoke ;
:block:write (na-) #1 block:invoke ;
:block:set-file (s-) #2 block:invoke ;
}}
~~~
# Source Data
~~~
'interface/blocks.retro s:dedup
dup 'block:read d:lookup d:source store
dup 'block:write d:lookup d:source store
dup 'block:set-file d:lookup d:source store
drop
~~~