minimal
Minimal Forth Workbench provides an educational subset of Standard Forth, feel free to experiment.
- raw README.md
- raw arithmetic.fs
- raw compiling-words.fs
- raw control-structures.fs
- raw defining-words.fs
- raw double.fs
- raw error-handling.fs
- raw file-access.fs
- raw memory.fs
- raw minimal.fs
- raw mit-license
- raw numeric-output.fs
- raw package.4th
- raw prelude.fs
- raw primitives.fs
- raw secondaries.fs
- raw stack.fs
- raw strings.fs
- raw testbench.fs
\ Minimal Forth Workbench: control structure words uh 2015-10-15 primitive EXIT : case? ( x1 x2 -- x1 ff | tf ) OVER = DUP IF SWAP DROP EXIT THEN ; : ?DUP ( x1 -- 0 | x2 x2 ) DUP IF DUP THEN ; : BOUNDS ( addr1 u -- addr2 addr3 ) OVER + SWAP ;
