mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 09:28:06 +11:00
13 lines
296 B
Plaintext
13 lines
296 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
|
|
;
|
|
: (ok) SPC ." ok" NL ;
|
|
: (uflw) ABORT" stack underflow" ;
|
|
: (wnf) (print) SPC ABORT" word not found" ;
|