system

"System-extension wordset from forth-83"

system FORTH

* <MARK ( -- DP-mark ) compile-only

memorizes the current DP on the CS-STACK
used for <RESOLVE later. Useful for creation of
compiling words, eg. BEGIN , see AHEAD

 simulate:
   : <MARK ?COMP  HERE ;

FORTH/BASE system ordinary primitive

* <RESOLVE ( DP-mark -- ) compile-only

resolves a previous <MARK , actually pushes
the DP-address memorized at <MARK into the dictionary.
Mostly used after BRANCH or ?BRANCH in compiling
words like UNTIL

 simulate:
   : <RESOLVE ?COMP  , ;

FORTH/BASE system ordinary primitive

* MARK> ( -- DP-mark ) compile-only

makes room for a pointer in the dictionary to
be resolved through RESOLVE> and does therefore
memorize that cell's address on the CS-STACK
Mostly used after BRANCH or ?BRANCH in compiling
words like IF or ELSE

 simulate:
   : MARK> ?COMP  HERE 0 , ;

FORTH/BASE system ordinary primitive

* RESOLVE> ( DP-mark -- ) compile-only

resolves a pointer created by MARK>
Mostly used in compiling words like THEN

 simulate:
   : RESOLVE> ?COMP  HERE SWAP ! ;

FORTH/BASE system ordinary primitive

[] no special info, see general notes

FORTH/BASE system ordinary primitive

[] no special info, see general notes

FORTH/BASE system ordinary primitive

* SEARCH ORDER variables,

       for VOCABULARY ALSO DEFINITIONS

CONTEXT

[] no special info, see general notes

FORTH/BASE system loader code P4_DVaL

[] no special info, see general notes

FORTH/BASE system threadstate variable

ENVIRONMENT ENVIRONMENT SYSTEM-EXT

[] no special info, see general notes

ENVIRONMENT system ordinary constant