retroforth/interface/konilo.retro

34 lines
692 B
Forth
Raw Normal View History

# Retro/ilo & Retro/napia Words
This adds support for some words from Retro/ilo. It's intended
to aid in portability between the systems.
The basic math operations are given non-symbolic names and
placed in the `n:` namespace. (In Retro/ilo, these are the
standard names for these).
~~~
:n:add + ;
:n:sub - ;
:n:mul * ;
:n:div / ;
:n:mod mod ;
:n:divmod /mod ;
:comma , ;
:gc &Heap swap v:preserve ;
~~~
Provide source data.
~~~
'retro-napia.retro
dup 'n:add d:lookup d:source store
dup 'n:sub d:lookup d:source store
dup 'n:mul d:lookup d:source store
dup 'n:div d:lookup d:source store
dup 'n:mod d:lookup d:source store
dup 'n:divmod d:lookup d:source store
drop
~~~