Interpretation: ( "ccc<quote>" -- )
Parse and display ccc delimited by " (double-quote).
Compilation: ( "ccc<quote>" -- )
Parse ccc delimited by " (double-quote). Append the run-time
semantics given below to the current definition.
Run-time: ( -- )
Display ccc.
Implementation: A pair of " represent a single " in the resulting
string.
See also:
( -- )
Display the time elapsed since the last execution of
.ELAPSED is implemented using pictured numeric output words. Its
use will corrupt the transient region identified by
( dea -- )
Display the name associated with dictionary entry address dea.
name is printed on a new line if it does not fit on the line
and is followed by two spaces.
See also:
Interpretation ( flag -- )
If flag is false, continue, otherwise return control to the
calling definition.
Compilation: ( -- )
Append the run-time semantics below to the current definition.
Run-time: ( flag -- ) ( R: nest-sys | -- )
If flag is false, continue. Otherwise return control to the
calling definition specified by nest-sys. ?EXIT may not used
within do-loops.
See also:
( "<spaces>name" -- )
Skip leading space delimiters. Parse name delimited by a space.
If name is found, execute it. It is assumed that name was defined
with ANEW or
Create a definition for name with the execution semantics as
defined for MARKER.
See also:
( -- )
Display a picture of the data stack. When an exception is
See also:
( -- c-addr )
c-addr is the address of a counted string representing the path
to and extension of the Forth help files. If the path begins with
~ (tilde), it is relative to the path given in
Interpretation: ( -- )
Append the run-time semantics below to the current definition.
Append the initiation semantics given below to the current
definition.
Compilation: ( C: colon-sys1 -- colon-sys2 )
Append the run-time semantics below to the current definition.
The current definition is not made findable by DOES> . Consume
colon-sys1 and produce colon-sys2. Append the initiation
semantics given below to the current definition.
Run-time: ( -- ) ( R: nest-sys1 -- )
Replace the execution semantics of the most recent definition,
referred to as name, with the name execution semantics given
below. Return control to calling definition specified by
nest-sys1. Code may be damaged if the most recent definition was
not defined with
Initiation: ( i*x -- i*x a-addr ) ( R: -- nest-sys2 )
Save information nest-sys2 about the calling definition. Place
name's data field address on the stack. The stack effects i*x
represent arguments to name.
name Execution: ( i*x -- j*x )
Execute the portion of the definition that begins with the
initiation semantics appended by DOES> which modified name. The
stack effects i*x and j*x represent arguments to and results from
name, respectively.
Interpretation ( -- )
Return to the calling definition.
Compilation: ( -- )
Append the run-time semantics below to the current definition.
Run-time: ( -- ) ( R: nest-sys )
Return control to the calling definition specified by nest-sys.
Before executing EXIT within do-loops, a program shall discard
the loop-control parameters by executing
See also:
( c-addr1 u1 -- c-addr2 u2 ior )
Search for the file named in c-addr1 u1. If it exists, ior is zero
c-addr2 is c-addr1 and u2 is u1. Otherwise proceed as with
( -- ior )
Release the buffer allocated by
( u -- a-addr )
Allocate a buffer for u characters. a-addr is its address.
Place a-addr also in
See also:
( u -- )
If u is greater than zero, emit spaces until the cursor is at
column u of the current user output device.
( "<spaces>name" -- )
Skip leading white space and parse name delimited by a white space
character. Push the address and lenght of the name on the stack
and perform the function of
( -- )
Display the names of the directories given by
( c-addr1 u1 -- c-addr2 u2 ior )
Search the directories in the order given by
Directory names in LIBS starting with ~ (tilde) are expanded by
See also:
( -- c-addr )
c-addr is the address of a counted string representing the path
to the Forth library files. Multiple directories are separated by
; (semicolon). Path names beginning with ~ (tilde) are relative
to the path given by
See also:
( "<spaces>name" -- )
Skip leading space delimiters. Parse name delimited by a space.
Create a definition for name with the execution semantics defined
below.
name Execution: ( -- )
Restore all dictionary allocation and search pointers to the
state they had just prior to the definition of name. Remove the
definition of name and all subsequent definitions. Restoration of
any structures still existing that could refer to deleted
definitions or deallocated data space is not necessarily
provided. No other contextual information such as numeric base is
affected.
See also:
( -- )
Don't display a picture of the data stack.
See also:
( i*x -- j*x )
The file that was loaded as a parameter on the command line or at
the terminal may be
See also:
( "<spaces>name" -- )
Skip leading white space and parse name delimited by a white space
character. Push the address and length of the name on the stack
and perform the function of
( c-addr u -- )
Find the file described by the string without a preceding path in
the list of files loaded with
See also:
( -- )
If the cursor is at a screen position less than 16 from the
end of a screen line perform
( "<spaces>name" -- xt | u )
Skip leading space delimiters. Parse name delimited by a space.
Find name, possibly with a ' (tick) prefix. If name is found, xt
is its execution token. Otherwise try to convert name into a
single-cell number u. An exception is issued if conversion to a
number fails.
( -- )
Start the timer. Interpret the remainder of the parse area. Stop
the timer and display the elapsed time on a new line.
TIMER is implemented using pictured numeric output words. Its use
will corrupt the transient region identified by
See also:
( "<spaces>name" [..] -- )
Skip leading white space and parse name delimited by a white space
character. Push the address and length of name on the stack and
perform the function of
( c-addr u -- )
If the string described by c-addr u would not fit on the current
output line with two trailing spaces, perform
Compilation: Perform the execution semantics given below.
Execution: ( "<spaces>name ..." -- flag )
Skip leading space delimiters. Parse name delimited by a space.
Return a true flag if name is the name of a word that can be
found with
Compilation: Perform the execution semantics given below.
Execution: ( "<spaces>name ..." -- )
Skipping leading spaces, parse and discard space-delimited words
from the parse area, including nested occurrences of
Implementation: Exception -58 is issued if the end of the input
stream is reached and cannot be refilled before the terminating
[THEN] is parsed.
Compilation: Perform the execution semantics given below.
Execution: ( flag | flag "<spaces>name ..." -- )
If the flag is true, do nothing. Otherwise skipping leading
spaces, parse and discard space-delimited words from the parse
area, including nested occurrences of [IF] ...
Implementation: Exception -58 is issued if the end of the input
stream is reached and cannot be refilled before the terminating
[ELSE] or [THEN] is parsed.
Compilation: Perform the execution semantics given below.
Execution: ( -- )
Does nothing. [THEN] is an immediate word.
Compilation: Perform the execution semantics given below.
Execution: ( "<spaces>name ..." -- flag )
Skip leading space delimiters. Parse name delimited by a space.
Return a false flag if name is the name of a word that can be
found with
Compilation: Perform the execution semantics given below.
Execution: ( "ccc<eol>" -- )
Add