48 lines
1.3 KiB
Forth
48 lines
1.3 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:RESERVED14 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:RESERVED14 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
|
|
~~~
|