
<hr><h3><A name="20">;code</A> ( --  )</h3>
 Extra: C,I
<br>
 ( --  )<br>
<br>
Used in the form: 
<br><code>                 : &lt;name&gt;  ... create ... ;code ... c; (or end-code)</code><br>
Stops compilation, terminates the defining word &lt;name&gt;, executes  <code><A href="_smal_AD#153"> assembler </A>,</code> 
and does  <code><A href="_smal_AW#1c6"> do-entercode </A>.</code> 
<p>
When &lt;name&gt; is later executed in the form: 
<br><code>                 &lt;name&gt; &lt;new-name&gt;</code><br>
to define the word &lt;new-name&gt;, the later execution of &lt;new-name&gt; 
will cause the machine code sequence following the  <code><A href="_smal_BN#115"> ;code </A></code> 
to be executed.  

<hr><h3><A name="50">handle-escape</A> ( --  )</h3>
 Extra: Deferred, System
<br>
This handler is used when an escape condition has happened.  Escape conditions 
can be generated by pressing the Ctrl-Sh-F12 key.  
<p>

See:  <code><A href="_smal_BD#4b"> handle-address </A></code> 

<hr><h3><A name="80">#out</A> ( -- addr )</h3>
<br>
A  <code><A href="_smal_BK#322"> user </A></code> variable containing the column 
number on the output device.  This is updated by  <code><A href="_smal_BT#1db"> emit1 </A>,</code>  <code><A href="_smal_AJ#309"> type1 </A></code> 
and some other words which modify the cursor position.  It is used for display 
formatting.  

<hr><h3><A name="b0">(loop)</A> ( -- )</h3>
<br>
The run-time word compiled by  <code><A href="_smal_BC#25a"> loop </A>.</code> 
At run time, the loop index is incremented and compared to the end value saved 
by the previous  <code><A href="_smal_AT#1c3"> do </A></code> or  <code><A href="_smal_AS#132"> ?do </A>.</code> 
If the index has reached or exceeded the ending value, the loop is terminated, 
otherwise execution continues just past the  <code><A href="_smal_AR#a1"> (do) </A></code> 
or  <code><A href="_smal_AF#95"> (?do) </A>.</code> 

<hr><h3><A name="e0">.month</A> ( month -- )</h3>
<br>
Displays the name of the month corresponding to month [1..12].  

<hr><h3><A name="110">4*</A> ( n1 -- n2 )</h3>
 Extra: F83
<br>
n2 is the result of shifting n1 left two bits.  Zeros are shifted into the 
vacated bit positions.  
<p>
This should not be used to scale a number by the size of a longword, because 
such usage is not portable.  Use /N* instead.  

<hr><h3><A name="140">@execute</A> ( addr --  )</h3>
<br>
addr-of-acf is an address where a compilation address is stored.  The 
compilation address is fetched from that location, and the word specified by 
that compilation address is executed.  Equivalent to  <code><A href="_smal_AA#300"> token@ </A></code>  <code><A href="_smal_AM#1ec"> execute </A>.</code> 

<hr><h3><A name="170">c,</A> ( n -- )</h3>
 Extra: 83Std
<br>
Store the least-significant 8 bits of n in the byte at  <code><A href="_smal_AM#21c"> here </A></code> 
and  <code><A href="_smal_BT#14b"> allot </A></code> one byte.  

<hr><h3><A name="1a0">cstr</A> ( pstr -- cstr-addr )</h3>
 Extra: C-Interface
<br>
cstr-addr is the address of a null-terminated C string which represents the same 
sequence of bytes as the packed string at pstr.  
<p>
Since the C string is placed at a fixed location, it is necessary to copy the C 
string to a safe location if you need to convert another packed string before 
you are through with the C string.  If the packed string contains any null 
bytes, the C string will end there.  

<hr><h3><A name="1d0">dpl</A> ( -- addr )</h3>
 Extra: F83
<br>
The address of a variable containing information about the last number scanned 
by the text interpreter.  If  <code><A href="_smal_BI#1d0"> dpl </A></code> 
contains -1, the number did not contain a decimal point.  If  <code><A href="_smal_BI#1d0"> dpl </A></code> 
contains a non-negative number, the number it contains is the number to digits 
to the right of the decimal point in the last number scanned.  

<hr><h3><A name="200">files</A> ( -- )</h3> <kbd>pattern</kbd> 
<br>
Lists all objects in a directory together with their file information.  

See:  <code><A href="_smal_AQ#1c0"> dir </A>.</code> 

<hr><h3><A name="230">interactive?</A> ( -- flag )</h3>
 Extra: Deferred
<br>
A deferred word which returns true if the input stream is coming from the 
keyboard instead of from a disk file.  This is used, for example, to control the 
type of message that is printed in case of an error.  
<p>
The Default implementation  <code><A href="_smal_AX#a7"> (interactive? </A></code> 
returns true if the input stream is coming from the keyboard through  <code><A href="_smal_AQ#1f0"> expect </A>.</code>  <code><A href="_smal_BI#230"> interactive? </A></code> 
is deferred because it is sometimes difficult to determine the exact source of 
the input stream, thus it is useful to be able to change the method used to try 
to determine this.  

<hr><h3><A name="260">m/mod</A> ( d.dividend n.divisor -- n.rem n.quot )</h3>
<br>
n.rem is the remainder and n.quot is the floor of the quotient after dividing 
d.dividend by the divisor n.divisor.  All values and arithmetic are signed.  The 
dividend is a double number; the divisor and the results are the cel size for 
the system (the same width as the stack).  Similar to  <code><A href="_smal_AU#314"> um/mod </A></code> 
except the arithmetic is signed.  

<hr><h3><A name="290">over-vocabulary</A> ( action-acf voc-acf -- )</h3>
<br>
Scans the vocabulary whose compilation address is voc-acf.  For each word in 
that vocabulary, the word whose compilation address is action-acf is executed 
with the link field address of the vocabulary word on the stack.  The action 
word must consume the name field address.  
<p>
The following example displays the names of all the words in the  <code><A href="_smal_AD#153"> assembler </A></code> 
vocabulary: 
<br><code>    : l.id   l&gt;name .id ;</code><br>
<br><code>    ' l.id  ' assembler   over-vocabulary</code><br>
(This example could be done easier with  <code><A href="_smal_AD#153"> assembler </A></code>  <code><A href="_smal_AJ#339"> words </A></code> 
).  
<p>
 <code><A href="_smal_BO#206"> follow </A></code> and  <code><A href="_smal_BW#14e"> another? </A></code> 
provide an alternate way of doing the same thing.  

<hr><h3><A name="2c0">s.</A> ( n -- )</h3>
<br>
Displays the absolute value of n in a free field format with a leading minus 
sign if n is negative.  Even if the base is hex, the number will be printed in 
signed format.  

<hr><h3><A name="2f0">tabstops</A> ( -- addr )</h3>
<br>
A variable containing the current distance between the fields generated by  <code><A href="_smal_BO#e6"> .tab </A>.</code> 

See:  <code><A href="_smal_BO#e6"> .tab </A></code> 

<hr><h3><A name="320">update</A> ( -- )</h3>
 Extra: 83Std
<br>
The currently valid block buffer is marked as modified.  Any block marked as 
modified will subsequently be automatically transferred to mass storage should 
its memory buffer be needed for storage of a different block or upon execution 
of FLUSH or  <code><A href="_smal_BJ#2c1"> save-buffers </A>.</code> 
<p>
This word is  <code><A href="_smal_AM#27c"> not </A></code> implemented in the 
default system.  The file extend.block contains an implementation which may 
loaded if necessary.  
