1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 08:28:06 +11:00
collapseos/blk/043

17 lines
832 B
Plaintext
Raw Normal View History

x CASE y OF A ENDOF z OF B ENDOF C ENDCASE: If x == y, execute
A, if x == z, execute B. Otherwise, execute C. x is dropped
in case of an OF match, *but it is kept if it reaches C*. You
have to consume it to avoid PSP leak.
2020-04-17 05:07:31 +10:00
(br) -- Branches by the number specified in the 2
following bytes. Can be negative.
(?br) f -- Branch if f is false.
( -- *I* Comment. Ignore input until ")" is read.
[ -- Begin interpretative mode. In a definition,
execute words instead of compiling them.
] -- End interpretative mode.
ABORT -- Resets PS and RS and returns to interpreter.
ABORT" x" -- *I* Compiles a ." followed by a ABORT.
2020-05-15 01:57:26 +10:00
ERR a -- Prints a and ABORT. Defined early and used by
drivers. (cont.)