1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 03:28:05 +11:00
collapseos/blk/409

17 lines
339 B
Plaintext
Raw Normal View History

: INTERPRET
BEGIN
WORD
(find)
NOT IF (parse) ELSE EXECUTE THEN
C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
AGAIN ;
2020-05-14 03:24:58 +10:00
( Drop RSP until I-2 == INTERPRET. )
: EXIT!
2020-05-14 03:24:58 +10:00
['] INTERPRET ( I )
BEGIN ( I )
DUP ( I I )
R> DROP I 2- @ ( I I a )
= UNTIL
DROP ;