"Forth'83 compatibility"

forth_83 All FORTH-83-Standard words are included here that are not
in the dpANS already.
Though most of the "uncontrolled reference words" are omitted.

Tektronix CTE

%version: bln_mpt1!5.17 %

GNU LGPL

FORTH

FORTH-83 required word set

*2+( i -- i )

add 2 to the value on stack (and leave the result there)

simulate:
: 2+ 2 + ;

forth_83ordinary primitive

*2-( i -- i )

substract 2 from the value on stack (and leave the result there)

simulate:
: 2- 2 - ;

forth_83ordinary primitive

FORTH ?TERMINAL

no special info, see general notes

forth_83ordinary primitive

*COMPILE( 'word' -- )

compile the next word. The next word should not be immediate,
in which case you would have to use [COMPILE]. For this
reason, you should use the word POSTPONE, which takes care
it.

simulate:
: COMPILE R> DUP @ , CELL+ >R ; ( not immediate !!! )

forth_83compiling primitive

*NOT( x -- flag )

Identical to `0=`, used for program clarity to reverse the
result of a previous test.

WARNING: PFE's NOT uses bitwise complement INVERT instead of the logical complement 0=, so
that loading TOOLBELT will change semantics.
... this difference in semantics has caused dpans94 to
depracate the word. Only if TRUE is -1 it would be identical
but not all words return -1 for true.