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: more memory operators uh 2015-10-15
: 2! ( d addr -- ) SWAP OVER ! CELL+ ! ;
: 2@ ( addr -- d ) DUP CELL+ @ SWAP @ ;
: +! ( x addr -- ) SWAP OVER @ + SWAP ! ;
: CMOVE ( c-addr1 c-addr2 u -- )
BEGIN ( c-addr1 c-add2 u )
DUP
WHILE ( c-addr1 c-addr2 u )
>R OVER C@ OVER C! SWAP CHAR+ SWAP CHAR+ R> 1 -
REPEAT ( c-add1 c-add2 u )
DROP DROP DROP ;
