minimal

Minimal Forth Workbench provides an educational subset of Standard Forth, feel free to experiment.



\ 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 ;

by UlrichHoffmann

avatar of UlrichHoffmann

Versions

1.1.1, 1.1.0, 1.0.0

Download current as zip

Tags

ansforth94, forth-94, forth-2012

Dependencies

None

Dependents

None