mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 07:18:06 +11:00
13 lines
237 B
Plaintext
13 lines
237 B
Plaintext
|
( Drop RSP until I-2 == INTERPRET. )
|
||
|
: EXIT!
|
||
|
['] INTERPRET ( I )
|
||
|
BEGIN ( I )
|
||
|
DUP ( I I )
|
||
|
R> DROP I 2- @ ( I I a )
|
||
|
= UNTIL
|
||
|
DROP
|
||
|
;
|
||
|
|
||
|
( a -- a+1 c )
|
||
|
: C@+ DUP C@ SWAP 1+ SWAP ;
|