
<hr><h3><A name="1e">top</A> ( -- n )</h3>
<br>
portable name for the top of stack register 

<hr><h3><A name="4e">handle-div0</A> ( --  )</h3>
 Extra: Deferred, System
<br>
This (emulated) exception is executed when a divide by zero error has happened.  

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

<hr><h3><A name="7e">#line</A> ( -- addr )</h3>
<br>
A  <code><A href="_smal_BK#322"> user </A></code> variable which is incremented 
each time that  <code><A href="_smal_BB#199"> cr </A></code> is executed.  It 
may be used as control pagination, for example.  

<hr><h3><A name="ae">(literal?</A> ( pstr -- pstr false | literal true )</h3>
 Extra: Default
<br>
The Default implementation of the deferred word  <code><A href="_smal_AT#253"> literal? </A>.</code>  <code><A href="_smal_BG#ae"> (literal? </A></code> 
just checks if the string is a number.  Other kinds of literals, such as string 
literals or floating point numbers or whatever, could be handled by installing a 
different word in  <code><A href="_smal_AT#253"> literal? </A>.</code> 

<hr><h3><A name="de">.dispose</A> ( --  )</h3>
 Extra: extend source code
<br>
Remove all links and references into transient address space.  Also tell the 
user about the progress.  

<hr><h3><A name="10e">32\</A> ( -- )</h3>
 Extra: I,32
<br>
Used in the form: 
<br><code>    32\  &lt;stuff to be executed if system has 32-bit stacks&gt;</code><br>
The rest of the input line is executed, since this is a 32-bit Forth.  

<hr><h3><A name="13e">?to-column</A> ( length col -- )</h3>
<br>
Enough spaces are transmitted to the output stream to move to the indicated 
column col.  If printing "length" number of characters would cause the line 
length to exceed the right margin, a new line is started at the left margin.  

See:  <code><A href="_smal_AV#255"> lmargin </A></code>  <code><A href="_smal_AU#2b4"> rmargin </A></code>  <code><A href="_smal_BR#2f9"> to-column </A></code> 

<hr><h3><A name="16e">bye</A> ( -- )</h3>
 Extra: Deferred
<br>
A deferred word which exits from Forth back to whatever program executed Forth.  
The Default implementation is  <code><A href="_smal_AJ#99"> (bye </A>.</code> 

See:  <code><A href="_smal_AJ#99"> (bye </A></code> 
<p>
If an application needs to execute some cleanup code just before the system 
exits, it may do it as follows: 
<br><code>         : (bye  my-cleanup-word (bye ;  ' (bye is bye</code><br>

<hr><h3><A name="19e">csearch</A> ( c start-addr end-addr -- loc true | false )</h3>
<br>
Memory between start-addr and end-addr is searched for a byte matching c.  If 
one is found, loc is the address of the first matching byte and the flag on the 
top of the stack is true.  Otherwise loc is missing from the stack and the flag 
on top of the stack is false.  

<hr><h3><A name="1ce">down</A> ( -- )</h3>
<br>
The cursor is moved down one line, unless it is already on the bottom line.  

<hr><h3><A name="1fe">file-protection</A> ( -- addr )</h3>
<br>
A variable containing the attributes for newly-created files.  When Forth 
creates a file with  <code><A href="_smal_BO#266"> make </A></code> or any other 
word that uses  <code><A href="_smal_BO#266"> make </A>,</code> the contents of  <code><A href="_smal_BG#1fe"> file-protection </A></code> 
are the attributes that are assigned to the file.  
<p>
The standard RiscOS access attributes are used.  

<hr><h3><A name="22e">init-user</A> ( -- )</h3>
<br>
Initialises the  <code><A href="_smal_BK#322"> user </A></code> area.   <code><A href="_smal_BG#22e"> init-user </A></code> 
is automatically called when Forth is started.  

<hr><h3><A name="25e">lshift</A> ( n1 cnt -- n2 )</h3>
<br>
n2 is the result of logically left shifting n1 by cnt places.  Zeroes are 
shifted into the least-significant bits.   <code><A href="_smal_BG#25e"> lshift </A></code> 
replaced <strong>&lt;&lt;</strong> , 

See:  <code><A href="_smal_BF#2bd"> rshift </A></code> 

<hr><h3><A name="28e">otherwise</A> ( -- )</h3>
<br>
Used within in an 
<br><code>    iftrue ... otherwise ... ifend</code><br>
conditional sequence.  The  <code><A href="_smal_BG#28e"> otherwise </A></code> 
is optional.  

See:  <code><A href="_smal_BA#228"> iftrue </A></code> 

<hr><h3><A name="2be">rstrace</A> ( -- )</h3>
<br>
Symbolically displays the calling sequence that is stored on the return stack.  

<hr><h3><A name="2ee">system</A> ( -- )</h3>
<br>
A vocabulary containing interface words which directly call RiscOS system 
routines.  In Risc-OS Forthmacs many more internal words from the kernel have 
been relinked to the  <code><A href="_smal_BG#2ee"> system </A></code> 
vocabulary.  

See:  <code><A href="_smal_BS#2fa"> to-current </A></code> 

<hr><h3><A name="31e">up@</A> ( --  addr )</h3>
 Extra: M,F83
<br>
addr is the address of the currently active  <code><A href="_smal_BK#322"> user </A></code> 
area.  The  <code><A href="_smal_BK#322"> user </A></code> area (or process 
control block) contains important Forth system variables for which different 
copies need to be kept for different tasks.  
