abort
( --- )
"abort". Abort the execution of the current word, do a warm start,
then return to the outer interpreter outer-most loop. Until differs
from most Forth implementations in that execution is not stopped
immediately. The interpreter loop continues until the bottom at which
time a warm start is done.
abort"
( ? --- )
"abort-quote". Abort the outer interpreter after typing the message
ended by a ". This word does not terminate the outer interpreter
immediately, but waits until the end of the current loop to perform
the warm start.
abort_quote
Internal Use Only
abs
( n --- |n| )
"a-b-s". Return the absolute value of n.
99 abs ( returns 99 )
-1 abs ( returns 1 )
append_this
( 'string --- )
"append-this". Append the string whose address is on the top of
the stack to the current SGML buffer.
" this is a test" append_this
align
( --- )
"align". align will be used with c, when it is
implemented.
allot
( n --- )
"allot". Allocate n bytes in the dictionary. This is another place
where Until departs from normal Forth implementations. The memory
allocation is made and the following actions performed:
- The address returned from malloc() put in the PFA
- The CFA is changed to do_allot
The effect is that the allocation is applied to most recently defined
word in the dictionary. This is indeed what is desired in most cases.
Forth simply increments DP to allow for n bytes in the dictionary.
It works well with a flat, contiguous dictionary, but not in the
linked list of structures used by Until. Defining a string or array is
typical usage of allot:
variable any_string 80 allot
create any_string_too 80 allot
This statement creates a string with 80 bytes allocated to it. This
operation is not identical to the ANS Forth standard, but matches
Forth-83.
and
( n1 n2 --- n3 )
"and". This is a bitwise and operation. (n1 & n2).
1111 1111 - n1
0000 1111 - n2
0000 1111 - result n1&n2
Only bits that are on in both n1 and n2 are on after the operation.
APPEND
( --- 'APPEND )
"append". This word leaves the address of the "a" string used by fopen.
{ anyfile.dat} APPEND fopen
opens anyfile.dat for output with
end access.
argc
( --- argc )
"a-r-g-c". argc leaves the number of arguments from the command line on the
parameter stack. This makes passing command line arguments to Until
words easy.
argv
( --- argv )
"a-r-g-v". argv leaves the pointer to the arguments on the command
line. This makes passing command line arguments to Until words easy.
ascii
( --- c )
"ascii". Convert the character following in the input stream to its
ASCII-equivalent integer number.
ascii A
leaves decimal 65 on the stack.
atol
( 'string --- n )
"a-to-l". Convert the null terminated string whose address is
on the top of the parameter stack to a long integer. atol calls
the C atol() function.
Table of Contents
Next Section