retroforth/interface/devices.retro
crc 758cff43f0 source formatting update
FossilOrigin-Name: f5b40c0aee7179b29be660675829c1785ca37657de75c41f5a7eedd6bc5f3f9d
2024-04-06 01:50:28 +00:00

48 lines
1.4 KiB
Forth

~~~
#0 'DEVICE:OUTPUT const
#1 'DEVICE:KEYBOARD const
#2 'DEVICE:FLOATS const
#4 'DEVICE:FILES const
#3 'DEVICE:BLOCKS const
#5 'DEVICE:CLOCK const
#6 'DEVICE:RESERVED6 const
#7 'DEVICE:SOCKET const
#8 'DEVICE:UNIX const
#9 'DEVICE:SCRIPTING const
#10 'DEVICE:RNG const
#11 'DEVICE:RESERVED11 const
#12 'DEVICE:RESERVED12 const
#13 'DEVICE:RESERVED13 const
#14 'DEVICE:IOCTL const
#15 'DEVICE:MALLOC const
#1000 'DEVICE:IMAGE const
#1234 'DEVICE:ERROR const
#8000 'DEVICE:MULTICORE const
#8100 'DEVICE:FFI const
#8101 'DEVICE:UNSIGNED const
'interface/devices.retro s:dedup
dup 'DEVICE:UNSIGNED d:set-source
dup 'DEVICE:FFI d:set-source
dup 'DEVICE:MULTICORE d:set-source
dup 'DEVICE:ERROR d:set-source
dup 'DEVICE:IMAGE d:set-source
dup 'DEVICE:MALLOC d:set-source
dup 'DEVICE:IOCTL d:set-source
dup 'DEVICE:RESERVED13 d:set-source
dup 'DEVICE:RESERVED12 d:set-source
dup 'DEVICE:RESERVED11 d:set-source
dup 'DEVICE:RNG d:set-source
dup 'DEVICE:SCRIPTING d:set-source
dup 'DEVICE:UNIX d:set-source
dup 'DEVICE:SOCKET d:set-source
dup 'DEVICE:RESERVED6 d:set-source
dup 'DEVICE:CLOCK d:set-source
dup 'DEVICE:BLOCKS d:set-source
dup 'DEVICE:FILES d:set-source
dup 'DEVICE:FLOATS d:set-source
dup 'DEVICE:KEYBOARD d:set-source
dup 'DEVICE:OUTPUT d:set-source
drop
~~~