mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 06:48:06 +11:00
Add word LEAVE
This commit is contained in:
parent
19d94dfb47
commit
66f65daa08
2
blk/043
2
blk/043
@ -11,6 +11,6 @@ ABORT" x" -- *I* Compiles a ." followed by a ABORT.
|
|||||||
EXECUTE a -- Execute wordref at addr a
|
EXECUTE a -- Execute wordref at addr a
|
||||||
INTERPRET -- Get a line from stdin, compile it in tmp memory,
|
INTERPRET -- Get a line from stdin, compile it in tmp memory,
|
||||||
then execute the compiled contents.
|
then execute the compiled contents.
|
||||||
|
LEAVE -- In a DO..LOOP, exit at the next LOOP call.
|
||||||
QUIT -- Return to interpreter prompt immediately
|
QUIT -- Return to interpreter prompt immediately
|
||||||
EXIT! -- Exit current INTERPRET loop.
|
EXIT! -- Exit current INTERPRET loop.
|
||||||
|
|
||||||
|
@ -133,6 +133,8 @@
|
|||||||
COMPILE R> COMPILE DROP COMPILE R> COMPILE DROP
|
COMPILE R> COMPILE DROP COMPILE R> COMPILE DROP
|
||||||
; IMMEDIATE
|
; IMMEDIATE
|
||||||
|
|
||||||
|
: LEAVE R> R> DROP I 1- >R >R ;
|
||||||
|
|
||||||
( a1 a2 u -- )
|
( a1 a2 u -- )
|
||||||
: MOVE
|
: MOVE
|
||||||
( u ) 0 DO
|
( u ) 0 DO
|
||||||
|
Loading…
Reference in New Issue
Block a user