
<hr><h3><A name="29">code</A> ( --  )</h3> <kbd>name</kbd> 
 Extra: M
<br>
A defining word executed in the form: 
<br><code>                 code &lt;name&gt; ... end-code or c;</code><br>
Creates a dictionary entry for &lt;name&gt; to be defined by a following 
sequence of assembly language words.  Words thus defined are called code 
definitions or primitives.  Executes  <code><A href="_smal_AD#153"> assembler </A></code> 
and sets the opcode defaults .  
<p>
This is the most common way to begin assembly.  
<p>

See:  <code><A href="_smal_BV#1dd"> end-code </A></code>  <code><A href="_smal_BJ#171"> c; </A></code> 

<hr><h3><A name="59">.bp</A> ( -- )</h3>
<br>
Displays a list of all the locations which are breakpointed.  

See:  <code><A href="_smal_BV#5d"> +bp </A></code>  <code><A href="_smal_BW#5e"> -bp </A></code> 

<hr><h3><A name="89">'user#</A> ( -- user# )</h3> <kbd>name</kbd> 
<br>
Executed in the form: 
<br><code>                 'user# &lt;name&gt;</code><br>
user# is the  <code><A href="_smal_BK#322"> user </A></code> number (the byte 
offset into the  <code><A href="_smal_BK#322"> user </A></code> area) of the 
storage owned by the word &lt;name&gt;.  If the word does not have any  <code><A href="_smal_BK#322"> user </A></code> 
area storage, the result is undefined.  

<hr><h3><A name="b9">(rd</A> ( path-pstr -- )</h3>
<br>
Delete a directory.  Also deletes a file 

<hr><h3><A name="e9">.version</A> ( -- )</h3>
<br>
Prints the version number of this Forth system.  

<hr><h3><A name="119">&lt;&gt;</A> ( n1 n2  --  flag )</h3>
<br>
flag is true if n1 is not equal to n2.  

<hr><h3><A name="149">aligned</A> ( addr1 -- addr2 )</h3>
<br>
addr2 is the result of advancing addr1 to a machine alignment boundary.  For the 
68000, which is word aligned, this aligns to a 16-bit word boundary.  Nothing is 
stored into memory between addr1 and addr2.  The ARM cpu needs alignment to 
32-bit/4-byte word boundaries.  
<p>
This may be used to enforce proper alignment of items stored in memory.  For the 
68000, this is equivalent to  <code><A href="_smal_AK#1ea"> even </A>,</code> 
but its definition is portable to machines other than the 68000.  

<hr><h3><A name="179">cdis</A> ( acf -- )</h3>
<br>
The code word whose compilation address is acf is disassembled.  

<hr><h3><A name="1a9">d.</A> ( d -- )</h3>
 Extra: M,83Std
<br>
The absolute value of d is displayed in a free field format.  A leading negative 
sign is displayed if d is negative.  

<hr><h3><A name="1d9">else</A> ( -- )</h3>
 Extra: compiling
<br>
 ( sys1 -- sys2 )<br>
<br>
Used in the form: 
<br><code>                 if  ...  else  ...  then</code><br>
sys1 is balanced with its corresponding  <code><A href="_smal_AT#223"> if </A>.</code> 
sys2 is balanced with its corresponding  <code><A href="_smal_BL#2f3"> then </A>.</code> 

See:  <code><A href="_smal_AT#223"> if </A></code>  <code><A href="_smal_BL#2f3"> then </A></code> 

<hr><h3><A name="209">forth</A> ( -- )</h3>
 Extra: I,83Std
<br>
The name of the primary vocabulary.  Execution replaces the first vocabulary in 
the search order with  <code><A href="_smal_BR#209"> forth </A>.</code>  <code><A href="_smal_BR#209"> forth </A></code> 
is initially the compilation vocabulary and the first vocabulary in the search 
order.  Initially, new definitions become part of the  <code><A href="_smal_BR#209"> forth </A></code> 
vocabulary until a different compilation vocabulary is established (with  <code><A href="_smal_AH#1b7"> definitions) </A>.</code> 

See:  <code><A href="_smal_BR#329"> vocabulary </A></code> 

<hr><h3><A name="239">k</A> ( -- n )</h3>
 Extra: C,83Std
<br>
n is a copy of the index of the second outer loop.  May only be used within a 
nested  <code><A href="_smal_AT#1c3"> do </A></code> -  <code><A href="_smal_BC#25a"> loop </A></code> 
or  <code><A href="_smal_AT#1c3"> do </A></code> -  <code><A href="_smal_AN#cd"> +loop </A></code> 
in the form, for example: 
<br><code>    do ... do ... do ... k ... loop ... +loop ... loop</code><br>
Usually, DO-LOOPs should not be nested this deeply inside a single definition.  
Forth programs are generally more readable if inner loops are defined inside a 
separate word.  

<hr><h3><A name="269">max</A> ( n1 n2  --  n3 )</h3>
 Extra: 83Std
<br>
n3 is the greater of n1 and n2 according to the operation of &gt;.  

<hr><h3><A name="299">pointer</A> ( addr -- )</h3> <kbd>name</kbd> 
 Extra: M,83Std
<br>
A defining word used in the form: 
<br><code>    n pointer &lt;name&gt;</code><br>
to create a dictionary entry for &lt;name&gt; so that when &lt;name&gt; is later 
executed, n will be left on the stack.  
<p>
n can also be set by  <code><A href="_smal_BP#237"> is </A>,</code> relocating 
is done automatically.  

<hr><h3><A name="2c9">seal</A> ( -- )</h3>
 Extra: 83Std
<br>
Delete all occurrences of  <code><A href="_smal_AX#2b7"> root </A></code> from 
the search order.  The effect is that only specified application vocabularies 
will be searched.  
<p>
This can be used to make a turnkey system where only selected words are visible.  
If none of the vocabularies in the search contain words which modify the search 
order (like other vocabularies or only), then the user can't change the search 
order to gain access to other vocabularies.  

<hr><h3><A name="2f9">to-column</A> ( column -- )</h3>
<br>
Transmits enough spaces to the output stream to move to the indicated column.  
If the current line is already at or past that column, only 1 space is 
transmitted.  

<hr><h3><A name="329">vocabulary</A> ( -- )</h3> <kbd>name</kbd> 
 Extra: M,83Std
<br>
A defining word executed in the form: 
<br><code>    vocabulary &lt;name&gt;</code><br>
A dictionary entry for &lt;name&gt; is created which specifies a new ordered 
list of word definitions.  Subsequent execution of &lt;name&gt; replaces the 
first vocabulary in the search order with &lt;name&gt;.  When &lt;name&gt; 
becomes the compilation vocabulary, new definitions will be appended to &lt;name&gt;'s 
list.  

See:  <code><A href="_smal_AH#1b7"> definitions </A></code> "Vocabularies and 
Search Order" 
