!>
--
your
!++
( addr x -- addr' )
--
forth_usual
!+
( addr x -- addr' )
--
forth_usual
!+
( addr x -- addr' )
--
toolbelt
!
( val addr -- )
--
core
!BITS
( bits addr mask -- )
--
forth_83
!CSP
( -- )
--
tools_misc
!NO
--
useful
!USE
--
useful
#!
( "..." -- )
--
posix
#>
( n.n -- str-addr str-len )
--
core
#
( n.n -- n.n' )
--
core
#BACKSPACE-CHAR
--
forth_usual
#BACKSPACE-CHAR
--
toolbelt
#CHARS/LINE
--
toolbelt
#DEFINE
--
cdecl
#ELSE
( -- )
--
cdecl
#ENDIF
( -- )
--
cdecl
#EOL-CHAR
--
toolbelt
#FRAMES
--
dstrings
#FRAMES
--
dstrings
#IF
( -- )
--
cdecl
#IFDEF
( "word" -- )
--
cdecl
#IFNDEF
--
cdecl
#IFNOTDEF
( "word" -- )
--
cdecl
#IS_FALSE
( flag -- )
--
cdecl
#IS_TRUE
( flag -- )
--
cdecl
#PRAGMA
--
cdecl
#S
( n.n -- n.n )
--
core
#TAB-CHAR
--
toolbelt
#TIB
--
core
#WITH-FIG
--
useful
#WITH-NO-FFA
--
useful
$!
( $var.dfa $: a$ -- )
--
dstrings
$!
( $var.dfa $: a$ -- )
--
dstrings
$$
--
shell
$"
--
dstrings
$"
--
dstrings
$.
( $: a$ -- )
--
dstrings
$.
( $: a$ -- )
--
dstrings
$2DROP
( $: a$ b$ -- )
--
dstrings
$2DROP
( $: a$ b$ -- )
--
dstrings
$2DUP
( $: a$ b$ -- a$ b$ a$ b$ )
--
dstrings
$2DUP
( $: a$ b$ -- a$ b$ a$ b$ )
--
dstrings
$@
( $var.pfa -- $: a$ )
--
dstrings
$@
( $var.pfa -- $: a$ )
--
dstrings
$BREAK
--
dstrings
$BREAK
--
dstrings
$BUFFER
--
dstrings
$BUFFER
--
dstrings
$CONSTANT
( "name" $: a$ -- )
--
dstrings
$CONSTANT
( "name" $: a$ -- )
--
dstrings
$CWD
( -- str-ptr str-len )
--
shell
$DEPTH
( -- n )
--
dstrings
$DEPTH
( -- n )
--
dstrings
$DROP
( $: a$ -- )
--
dstrings
$DROP
( $: a$ -- )
--
dstrings
$DUP
( $: a$ -- a$ a$ )
--
dstrings
$DUP
( $: a$ -- a$ a$ )
--
dstrings
$EUID
( -- val )
--
shell
$FBREAK
--
dstrings
$FBREAK
--
dstrings
$FRAME-DEPTH
--
dstrings
$FRAME-DEPTH
--
dstrings
$FRAME
( u -- )
--
dstrings
$FRAME
( u -- )
--
dstrings
$FSP0
--
dstrings
$FSP0
--
dstrings
$FSP
--
dstrings
$FSP
--
dstrings
$GARBAGE?
( -- flag )
--
dstrings
$GARBAGE?
( -- flag )
--
dstrings
$GC-OFF
--
dstrings
$GC-OFF
--
dstrings
$GC-ON
--
dstrings
$GC-ON
--
dstrings
$GID
( -- val )
--
shell
$HEADER
( bstring -- )
--
header
$HOME
( -- str-ptr str-len )
--
shell
$NIP
($: a$ b$ -- b$ )
--
dstrings
$NIP
($: a$ b$ -- b$ )
--
dstrings
$OVER
( $: a$ b$ -- a$ b$ a$ )
--
dstrings
$OVER
( $: a$ b$ -- a$ b$ a$ )
--
dstrings
$PICK
( u $: au$ ... a0$ -- au$ ... a0$ au$ )
--
dstrings
$PICK
( u $: au$ ... a0$ -- au$ ... a0$ au$ )
--
dstrings
$PID
( -- pid )
--
shell
$S>-COPY
( $: a$ -- S: a.str )
--
dstrings
$S>-COPY
( $: a$ -- S: a.str )
--
dstrings
$S>
( $: a$ -- S: a.str )
--
dstrings
$S>
( $: a$ -- S: a.str )
--
dstrings
$S@
( $: a$ -- a$ S: a.str )
--
dstrings
$S@
( $: a$ -- a$ S: a.str )
--
dstrings
$SP0
--
dstrings
$SP0
--
dstrings
$SP
--
dstrings
$SP
--
dstrings
$SWAP
( $: a$ b$ -- b$ a$ )
--
dstrings
$SWAP
( $: a$ b$ -- b$ a$ )
--
dstrings
$TUCK
($: a$ b$ -- b$ a$ b$ )
--
dstrings
$TUCK
($: a$ b$ -- b$ a$ b$ )
--
dstrings
$TYPE
--
dstrings
$TYPE
--
dstrings
$UID
( -- val )
--
shell
$UNUSED
--
dstrings
$UNUSED
--
dstrings
$USER
( -- str-ptr str-len )
--
shell
$VARIABLE
( "name" -- )
--
dstrings
$VARIABLE
( "name" -- )
--
dstrings
&OF
--
your
>$S-COPY
( a.str -- $: a$ )
--
dstrings
>$S-COPY
( a.str -- $: a$ )
--
dstrings
>$S
( a.str -- $: a$ )
--
dstrings
>$S
( a.str -- $: a$ )
--
dstrings
><
( a -- a' )
--
forth_83
>
( a b -- cond )
--
core
>=
( a b -- flag )
--
core_misc
>BODY
( addr -- addr' )
--
core
>COMPILE
( xt -- )
--
useful
>FFA
( nfa -- ffa )
--
header
>FLOAT
--
floating
>FLOAT
--
fpnostack
>IN
--
core
>LINK
( cfa -- lfa )
--
header
>MOVE<
( from-addr to-addr count -- )
--
forth_83
>NAME
( cfa -- nfa )
--
header
>NUMBER
( a,a str-adr str-len -- a,a' str-adr' str-len)
--
core
>R
( value -- )
--
core
>WORDLIST
( xt -- wordl* )
--
forth_usual
<#
( -- )
--
core
<>
( a b -- cond )
--
core
<<edit-init>>
--
edit
<<load_signals>>
--
signals
<
( a b -- cond )
--
core
<=
( a b -- flag )
--
core_misc
<BUILDS
( 'name' -- )
--
core
<MARK
( -- DP-mark )
--
system
<RESOLVE
( DP-mark -- )
--
system
"
( [string<">] -- bstring )
--
core
'>
( [name] -- xt )
--
your
'
( 'name' -- xt )
--
core
'th
--
toolbelt
($:
--
dstrings
($:
--
dstrings
($
( [word] -- cs-token )
--
useful
(.)
( n -- addr u )
--
toolbelt
(
--
core
(DICTFENCE)
( -- constvalue )
--
tools_misc
(DICTLIMIT)
( -- constvalue )
--
tools_misc
(DROP-$FRAME)
( -- )
--
dstrings
(DROP-$FRAME)
( -- )
--
dstrings
(EMIT)
( val -- )
--
misc
(EXPECT)
( . -- . )
--
misc
(FORGET)
( addr -- )
--
tools_misc
(HELP)
( str-ptr str-len -- )
--
help
(IMMEDIATE#)
--
header
(KEY)
( -- ... )
--
misc
(LOADF-LOCATE)
( xt -- nfa )
--
useful
(LOADM)
( bstring -- sucess )
--
dlfcn
(LOCAL)
( strptr strcnt -- )
--
locals
(M$:)
--
dstrings
(M$:)
--
dstrings
(MARKER)
( str-ptr str-len -- )
--
core
(SEE)
( xt -- )
--
debug
(SMUDGE#)
--
header
(TYPE)
( val -- )
--
misc
(UNDER+)
( n1 n2 -- n1+n2 n2 )
--
misc
)
( cs-token -- )
--
useful
**
( a b -- r )
--
forth_83
*/
--
core
*/MOD
--
core
*
( a b -- a*b )
--
core
*EMIT*
--
misc
*EXPECT*
--
misc
*KEY*
--
misc
*TYPE*
--
misc
+!
( val addr -- )
--
core
++
( addr -- )
--
forth_usual
++
( addr -- )
--
toolbelt
+
( a b -- a+b )
--
core
+CONSTANT
( offset "name" -- )
--
useful
+FIELD
( offset "name" -- offset )
--
useful
+LOOP
( increment -- )
--
core
+PLACE
( str len add2 -- )
--
forth_usual
+TO
( val [name] -- )
--
misc
+UNDER
--
misc
+ZPLACE
( caddr* u zdest* -- )
--
zchar
,"
--
toolbelt
,
( val -- )
--
core
-->
( -- )
--
forth_83
-
( a b -- a-b )
--
core
-FROT
( x1 x2 x3 -- x3 x1 x2 )
--
floating_misc
-FROT
( x1 x2 x3 -- x3 x1 x2 )
--
fpnostack
-ROLL
( xn ... x2 x1 n -- x1 xn ... x2 )
--
misc
-ROT
( a b c -- c a b )
--
forth_usual
-TRAILING
( str-ptr str-len -- str-ptr str-len' )
--
string
."
( [string<">] -- )
--
core
.(
( [message] -- )
--
core
.
( val -- )
--
core
.BELL
--
term
.BLINKING.OFF
--
term
.BLINKING
--
term
.CLREOL
--
term
.CLRSCR
--
term
.CVERSION
( -- )
--
core_misc
.H2
( value -- )
--
your
.HIGHLIGHT.OFF
--
term
.HIGHLIGHT
--
term
.HOME
--
term
.INTENSITY.OFF
--
term
.INTENSITY
--
term
.LINE
( line# block# -- )
--
misc
.MEMORY
( -- )
--
misc
.NAME
--
misc
.NORMAL
--
term
.PFE-DATE
--
core_misc
.R
( val prec -- )
--
core
.REVERSE.OFF
--
term
.REVERSE
--
term
.S
( -- )
--
tools
.STATUS
( -- )
--
misc
.UNDERLINE.OFF
--
term
.UNDERLINE
--
term
.VERSION
( -- )
--
core_misc
.WORDS
( wordlist* -- )
--
chainlist
.chain
( chain* -- )
--
chain
.chains
( -- )
--
chain
/$SPACE-HEADER
--
dstrings
/$SPACE-HEADER
--
dstrings
/$SPACE
--
dstrings
/$SPACE
--
dstrings
//
( [...] -- )
--
cdecl
/
( a b -- a/b )
--
core
/CHAR
--
useful
/FIELD
( offset size "name" -- offset+size )
--
useful
/FRAME-STACK
--
dstrings
/FRAME-STACK
--
dstrings
/MOD
( a b -- m n )
--
core
/SPLIT
( a m a+i m-i -- a+i m-i a i )
--
toolbelt
/STRING
( str-ptr str-len n -- str-ptr' str-len' )
--
string
/WCHAR
--
useful
0$SPACE
--
dstrings
0$SPACE
--
dstrings
0>
( value -- cond )
--
core
0>=
( a -- flag )
--
core_misc
0<>
( value -- cond )
--
core
0<
( val -- cond )
--
core
0<=
( a -- flag )
--
core_misc
0
--
core_misc
0=
( val -- cond )
--
core
0STRINGS
( -- )
--
dstrings
0STRINGS
( -- )
--
dstrings
1+
( val -- val+1 )
--
core
1-
( val -- val-1 )
--
core
1/F
( x -- 1/x )
--
floating_misc
1/F
( x -- 1/x )
--
fpnostack
1
--
core_misc
2!
( a,a addr -- )
--
core
2>R
( a,a -- R: a,a )
--
core
2*
( a -- a*2 )
--
core
2+
( i -- i )
--
forth_83
2-
( i -- i )
--
forth_83
2/
( a -- a/2 )
--
core
2
--
core_misc
2@
( addr -- a,a )
--
core
2CONSTANT
( x1 x2 "name" -- )
--
double
2DROP
( a b -- )
--
core
2DUP
( a,a -- a,a a,a )
--
core
2LITERAL,
( x1,x2 -- )
--
double_misc
2LITERAL
( x1 x2 -- )
--
double
2NIP
( w x y z -- y z )
--
toolbelt
2OVER
( a,a b,b -- a,a b,b a,a )
--
core
2R!
( x y R: a b -- R: x y )
--
misc
2R>2DROP
( -- )
--
misc
2R>
( R: a,a -- a,a R: )
--
core
2R@
( R: a,a -- a,a R: a,a )
--
core
2ROT
( d1,d1 d2,d2 d3,d3 -- d2,d2 d3,d3 d1,d1 )
--
double_misc
2SWAP
( a,a b,b -- b,b a,a )
--
core
2VARIABLE
( -- )
--
double
3
--
core_misc
3DROP
( x y z -- )
--
forth_usual
3DROP
( x y z -- )
--
toolbelt
3DUP
( x y z -- x y z x y z )
--
forth_usual
3DUP
( x y z -- x y z x y z )
--
toolbelt
4DROP
( x y z -- )
--
forth_usual
4DUP
( a b c d -- a b c d a b c d )
--
forth_usual
:
( 'name' -- )
--
with_spy
:
( 'name' -- )
--
core
:NONAME
( -- cs.value )
--
core
;
( -- )
--
core
;
( -- )
--
with_spy
;AND
( -- )
--
useful
;SPY
( -- )
--
with_spy
;STRUCTURE
--
structs
=
( a b -- cond )
--
core
?
( addr -- )
--
tools
?BRANCH
--
system
?COMP
( -- )
--
tools_misc
?CR
( -- flag )
--
misc
?CSP
( -- )
--
tools_misc
?DO
( end start -- )
--
core
?DUP
( value -- value|[nothing] )
--
core
?EXEC
( -- )
--
tools_misc
?FILE
( file-id -- )
--
tools_misc
?LEAVE
( cond -- )
--
forth_usual
?LOADING
( -- )
--
tools_misc
?PAIRS
( a b -- )
--
tools_misc
?STACK
( -- )
--
tools_misc
?STOP
( -- flag )
--
misc
?TERMINAL
--
forth_83
?XY
( -- x y )
--
term
@>
( [name] -- value )
--
your
@++
( addr -- addr' x )
--
forth_usual
@+
( addr -- addr' x )
--
forth_usual
@+
( addr -- addr' x )
--
toolbelt
@
( addr -- value )
--
core
@BITS
( addr mask -- value )
--
forth_83
@EXECUTE
( xt -- ? )
--
forth_usual
ABORT"
( [string<">] -- )
--
exception
ABORT-WORDLIST
--
chainlist
ABORT
( -- )
--
exception
ABS
( value -- value' )
--
core
ACCEPT
( a n -- n' )
--
core
ACCESS-ARRAY
( i1 i2 ... iX addr1 --- addr2 n )
--
misc
ADDR>NAME
( addr -- nfa|0 )
--
debug
AGAIN
( -- )
--
core
AHEAD
( -- DP-mark ORIG-magic )
--
tools
ALIAS-ATEXIT
( xt "name" -- )
--
chainlist
ALIAS
( xt "name" -- )
--
chainlist
ALIGN
( -- )
--
core
ALIGNED
( addr -- addr' )
--
core
ALLOCATE
( size -- ptr|0 code )
--
memory
ALLOT
( count -- )
--
core
ALSO-MODULE
( "name" -- )
--
module
ALSO
( -- )
--
search
AND
( val mask -- val' )
--
core
ANDIF
( p ... -- flag )
--
toolbelt
ANEW
( 'name' -- )
--
core
APPEND-CHAR
( char addr -- )
--
forth_usual
APPEND-CHAR
( char addr -- )
--
toolbelt
APPEND
( str len add2 -- )
--
forth_usual
APPEND
( str len add2 -- )
--
toolbelt
APPENDZ
--
zchar
APPLICATION
--
misc
ARGC
( -- n )
--
misc
ARGS{
( arg1'$ ... argN'$ "arg1 ... argN <}>" -- )
--
dstrings
ARGS{
( arg1'$ ... argN'$ "arg1 ... argN <}>" -- )
--
dstrings
ARGV
( n -- addr u )
--
misc
ARRAY-OF
( some-offset n len "name" -- some-offset )
--
struct
ARRAY:
--
structs
ASCII
( [word] -- val )
--
forth_usual
ASSUME_DUMBTERM
( -- )
--
term
ASSUME_VT100
( -- )
--
term
AT-XY
( col row -- )
--
facility
ATEXIT-WORDLIST
--
chainlist
B/BUF
--
block_misc
BACK
( str len char -- str len-i )
--
toolbelt
BACKSPACE
( -- )
--
misc
BASE
--
core
BEGIN
( -- )
--
core
BEHAVIOR
( xt1 -- xt2 )
--
header
BIN
( access-mode -- access-mode' )
--
file
BL-SCAN
( str len -- str+i len-i )
--
toolbelt
BL-SKIP
( str len -- str+i len-i )
--
toolbelt
BL
--
core
BLANK
( str-ptr str-len -- )
--
string
BLK
--
block
BLOCK-FILE
--
block_misc
BLOCK
( u -- addr )
--
block
BODY>
( pfa -- cfa )
--
header
BOUNDS
( str len -- str+len str )
--
forth_usual
BOUNDS
( str len -- str+len str )
--
toolbelt
BRANCH
--
system
BUFFER:
( size 'name' -- )
--
misc
BUFFER
( u -- addr )
--
block
BUILD-ARRAY
( n1 n2 ... nX X --- n )
--
misc
BYE
( -- )
--
tools
C!
( value address -- )
--
core
C"
( [string<">] -- bstring )
--
core
C+!
( n addr -- )
--
forth_usual
C+!
( n addr -- )
--
toolbelt
C+PLACE
( char addr -- )
--
forth_usual
C,
( value -- )
--
core
C@
( addr -- value )
--
core
CALL-C
--
dlfcn
CASE-SENSITIVE-VOC
( -- )
--
useful
CASE
( comp-value -- comp-value )
--
core
CASE_MAGIC
--
tools_misc
CAT"
--
dstrings
CAT"
--
dstrings
CAT
($: a$ -- )
--
dstrings
CAT
($: a$ -- )
--
dstrings
CATCH
( xt -- 0|n )
--
exception
CAT`
( "ccc" -- )
--
dstrings
CAT`
( "ccc" -- )
--
dstrings
CD
--
shell
CELL%
--
struct
CELL+
( value -- value' )
--
core
CELL-
( addr -- addr' )
--
toolbelt
CELL:
--
structs
CELL
--
toolbelt
CELLS:
--
structs
CELLS
( value -- value' )
--
core
CFA'
--
core
CHAR%
--
struct
CHAR+
( value -- value' )
--
core
CHAR:
--
structs
CHAR
( 'word' -- value )
--
core
CHARS:
--
structs
CHARS
( value -- value' )
--
core
CHDIR
( bstring -- )
--
shell