42 lines
1.1 KiB
Forth
42 lines
1.1 KiB
Forth
|
|
,dPYb, ,dPYb,
|
|
IP'`Yb IP'`Yb
|
|
I8 8I gg I8 8I
|
|
I8 8bgg, "" I8 8'
|
|
I8 dP" "8 ,ggggg, ,ggg,,ggg, gg I8 dP ,ggggg,
|
|
I8d8bggP" dP" "Y8 ,8" "8P" "8, 88 I8dP dP" "Y8
|
|
I8P' "Yb, i8' ,8I d8 8I 8I 88 I8P i8' ,8I
|
|
,d8 `Yb,,d8, ,d8P8P 8I Yb,_,88,_,d8b,_ ,d8, ,d8'
|
|
88P Y8P"Y8888P" 8I `Y88P""Y88P'"Y88P"Y8888P"
|
|
|
|
This adds support for some words from Konilo. 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 Konilo, these are the standard
|
|
names for these).
|
|
|
|
~~~
|
|
:n:add + ;
|
|
:n:sub - ;
|
|
:n:mul * ;
|
|
:n:div / ;
|
|
:n:mod mod ;
|
|
:n:divmod /mod ;
|
|
|
|
:comma:a , ;
|
|
:gc &Heap swap v:preserve ;
|
|
~~~
|
|
|
|
Provide source data.
|
|
|
|
~~~
|
|
'konilo.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
|
|
~~~
|