







                                   Appendix A

                            UNIFORTH VOCABULARY LIST



             Listed on the next pages are definitions of all of the words 
        available  to  the user after invoking UNIFORTH.   The words  are 
        presented  in alphabetical order.   The first line of each  entry 
        consists of a symbolic description of the action of a  word,  the 
        interpreter characteristics, the level of word's standardization, 
        and the word's pronounciation.

             The  word action is shown in abbreviated form  by:   symbols 
        representing input parameters,  three dashes for the word  place-
        ment,  and  any parameters that might be left on the stack.   The 
        symbols used are:

                  n,n1,n2 ...         16-bit integer values
                  u,u1,u2 ...         16-bit unsigned integer values
                  d,d1,d2 ...         32-bit integer values
                  ud,ud1,ud2 ...      32-bit unsigned integer values
                  x,x1,x2 ...         32-bit floating point values
                  b,c                 8-bit values
                  cccc,ssss           character strings

        The interpreter characteristics are given below.

             C  The word may be used only within a colon definition.

             E  The  word  should  be executed;  it may not  normally  be 
                compiled within a colon-definition.

             I  The word has immediate action,  even when a colon word is 
                being defined.

             Words defined by the FORTH-83 Standards Team or by FIG-FORTH 
        essentially  follow  their  descriptions.    The  standardization 
        levels are given below.

             F  The word is part of the FORTH-83 Standard.

             G  The word is part of FIG-FORTH.

             U  The word is unique to UNIFORTH.














        UNIFORTH VOCABULARY LIST                                Page A-2




        !     n addr ---     F                            "store"
             Store n at address.

        !CSP                 
             Save the stack position in CSP.   Used as part of the compi-
             ler security.  

        !DATE     ---       U
             Store the date into time-keeping buffer CLKADR.   The system 
             will prompt you for input. 

        !TIME     ---       U     
             Store the time into time-keeping buffer CLKADR.   The system 
             will prompt you for input. 

        #      ud1 --- ud2     F                "sharp"
             The  remainder  of  ud1 divided by BASE is converted  to  an 
             ASCII  character and appended to the output  string  towards 
             lower  memory addresses.   Result ud2 is the quotient  after 
             division  by BASE and is maintained for further  processing.  
             Used between <# and #>.

        #>     d --- addr n     F               "sharp-greater"
             End pictured numeric output conversion.  Drop d, leaving the 
             text address and character count (as suitable for TYPE).

        #BUFF     --- adr
             A  variable containing the number of disk buffers  allocated 
             to the system.  

        #S     ud --- 0 0     F                 "sharp-s"
             Convert  all digits of an unsigned 32-bit number ud,  adding 
             each  to the pictured numeric output string,  until quotient 
             is zero.  A single zero is added to the output string if the 
             number  was  initially zero.   Use only between <#  and  #>. 

        #TIB      --- adr        F
             A variable containing the number of bytes in the text  input 
             buffer.

        $;;                U     
             basic case branch terminator word, compiled by ;; .  

        $<:                 U
             Basic case branch entry word, compiled by <:.

        $=:                U     
             Basic case branch entry word, compiled by =: .  

        $>:                 U
             Basic case branch entry word, compiled by >:.










        UNIFORTH VOCABULARY LIST                                Page A-3


        $CASE              U     
             Basic case beginning word, compiled by CASE.  

        '     --- addr     F,I             "tick"
             Used in the form:
                      ' <name>     
             Leave  the code field address of the next word accepted from 
             the  input stream.   An error condition exists if not  found 
             after  a search of the FORTH vocabulary.   Within  a  colon-
             definition  '  <name> is identical to [ ' <name> ]  LITERAL.  


        (                   F,I            "paren"
             Used in the form:
                     ( ccc)     
             Accept  and ignore comment characters from the input stream, 
             until  the  next right parenthesis.   As a  word,  the  left 
             parenthesis must be followed by one blank.  It may be freely 
             used  while  executing or  compiling.   An  error  condition 
             exists  if  the input stream is exhausted before  the  right 
             parenthesis.   The  right parenthesis is pronounced  "close-
             paren" 

        (+LOOP)     n ---     G     
             The  run-time procedure compiled by +LOOP,  which increments 
             the  loop  index by n and tests for  loop  completion.   See 
             +LOOP.   

        (.")               G          
             The run-time procedure,  compiled by ." which transmits  the 
             following  in-line text to the selected output device.   See 
             ."  

        (;CODE)               G     
             The run-time procedure, compiled by ;CODE, that rewrites the 
             code field of the most recently defined word to point to the 
             following machine code sequence.  See ;CODE.  

        (DO)               C,G     
             The  run-time procedure compiled by DO which moves the  loop 
             control parameters to the return stack.  See DO.  

        (FIND)     addr1 addr2 --- pfa b tf   (ok)    G           
                   addr1 addr2 --- ff        (bad)     
             Searches  the dictionary starting at the name field  address 
             addr2,  matching  to the text at addr1.   Returns  parameter 
             field  address,  length byte of name field and boolean  true 
             for  a good match.   If no match is found,  only  a  boolean 
             false is left.  

        (LATEST)   adr1 --- adr2 adr3     U
             Searching  at  vocabulary  line  adr1,  return  latest  word 
             address  in vocabulary (adr2) and a pointer to  the  correct 
             link thread (adr3).









        UNIFORTH VOCABULARY LIST                                Page A-4



        (LINE)     n1 n2 --- addr count     G     
             Convert  the  line number n1 and the screen n2 to  the  disk     
             buffer address containing the data.  The count  left  on the
             stack always is 64, the full line text length.  

        (LOOP)               G     
             The  run-time  procedure compiled by LOOP  which  increments     
             the loop index and tests for loop completion.  See LOOP.  

        (NUMBER)   adr --- d      G     
             Part of the numeric conversion process.  Called by NUMBER.

        (VALUE)     addr1 --- n     U     
             Convert  the ASCII text beginning at addr1+1 with regard  to     
             BASE.  The converted 16-bit value n is left on the stack.  

        *     n1 n2 --- n3     F           "times"
             Leave the arithmetic product of n1 times n2.

        */     n1 n2 n3 --- n4     F       "times-divide"
             Multiply  n1 by n2,  divide the result by n3 and  leave  the     
             quotient  n4.   n4 is rounded toward zero.   The product  of     
             n1  times  n2 is maintained as an intermediate 32-bit  value     
             for   greater  precision  than  the   otherwise   equivalent     
             sequence:  n1 n2 * n3 /

        */MOD     n1 n2 n3 --- n4 n5     F      "times-divide-mod"
             Multiply  n1  by n2,  divide the result by n3 and leave  the     
             remainder n4 and quotient n5.   A 32-bit intermediate result     
             is used as for */,  and the quotient is rounded toward zero.  
             The remainder has the same sign as the divisor, n1.

        +     n1 n2 --- n3     F           "plus"
             Leave the arithmetic sum of n1 plus n2.

        +!     n addr ---     F            "plus-store"
             Add n to the 16-bit value at the address,  by the convention     
             given for +.

        +@     n1 n2 --- n3     SYSTEM block 35     U     
             Add  n1 to n2 to create an address.   Fetch the contents  of 
             that address.  

        +DISK                    U
             Turn on text file echo.  Uses channel B.

        +LOOP     n ---     F,I            "plus-loop"
             Add the signed increment n to the loop index.  Return execu-
             tion  to  the  corresponding  DO  until  the  new  index  is 
             incremented across the boundary of limit-1 and limit.   Upon 
             exit from the loop, discard the loop control parameters.











        UNIFORTH VOCABULARY LIST                                Page A-5


        +ORIGIN    n --- addr     G     
             Leave  the  memory  address  relative by  n  to  the  origin 
             parameter area.   n is the minimum address unit, either byte 
             or  word.  This definition is used to access or  modify  the 
             boot-up parameters at the origin area. 

        +PRINTER                 U
             Enable  echo  to the printer as well as any  current  output 
             device.

        ,     n ---     F                       "comma"
             Allot two bytes in the dictionary, storing n there.

        -     n1 n2 --- n3     F           "minus"
             Subtract n2 from n1 and leave the difference n3.

        -->                G,I             "arrow"
             Continue interpretation with the next sequential block.  May 
             be used within a definition. 

        -ES       --- n          U
             Leave  the  negative of the system element size on the  data 
             stack.  For 16-bit systems, leaves -2.

        -FIND     --- pfa b tf   (found)     G          
                  --- ff         (not found)     
             Accepts  the  next  text word (delimited by blanks)  in  the 
             input  stream  to HERE,  and searches the CONTEXT  and  then 
             CURRENT vocabularies for a matching entry.   If  found,  the 
             dictionary entry's parameter field address, its length byte, 
             and a boolean true is left.  Otherwise, only a boolean false 
             is left. 

        -ROT     n1 n2 n3 --- n3 n1 n2     U     
             Rotate  the  top  stack value to the third  stack  position. 
             Inverse operation to ROT. 

        -TRAILING     addr n1 --- addr n2     F     "dash-trailing"
             The character count n1 of a text string beginning at addr is 
             adjusted  to  exclude trailing blanks.  An  error  condition 
             exists if n1 is negative.

        .     n ---     F                  "dot"
             Display n converted according to BASE in a free-field format 
             with  one  trailing blank.   Display only a  negative  sign.


















        UNIFORTH VOCABULARY LIST                                Page A-6


        ."              F,I                "dot-quote"
             Interpreted  or  used  in a colon-definition  in  the  form:                       
                       ." cccc"     
             Accept the following text from the input stream,  terminated 
             by  " (double-quote).   If executing,  transmit this text to 
             the selected output device.   If compiling,  compile so that 
             later  execution  will  transmit the text  to  the  selected 
             output device.   At least 127 characters are allowed in  the 
             text.   If   the  input  stream  is  exhausted  before   the 
             terminating double-quote,  an error condition exists.

        .(                       F
             Analogous to dot-quote, except the string is terminated with 
             a right-paren.  Execute mode only.

        .DATE          ---     U     
             Print  the  date on the current output devices in  the  form  
             dd-mmm-yy.

        .FSIZE    ---              U
             Display the current file's size in bytes

        .LINE     line scr ---     G     
             Print  on the terminal device,  a line of text from the disk 
             by  its  line  and  screen  number.    Trailing  blanks  are 
             suppressed. 

        .R     n1 n2 ---     G     
             Print  the number n1 right aligned in a field whose width is 
             n2.  No following blank is printed. 

        .S           ---     U
             Non-destructive print of the data stack contents.

        .TIME        ---     U     
             Print  the  time on the current output devices in  the  form  
             HH:MM:SS. 

        /     n1 n2 --- n3     F                     "divide"
             Divide  n1 by n2 and leave the quotient n3.   n3 is  rounded 
             toward zero.

        /MOD     n1 n2 --- n3 n4     F               "divide-mod"
             Divide n1 by n2 and leave the remainder n3 and quotient  n4. 
             n3 has the same sign as n1. n4 is rounded towards zero.

        0     --- 0     G     
             Leave the constant 0 on the stack. 

        0<     n --- flag     F                 "zero-less"
             True if n is less than zero (negative).

        0<=     n --- flag     U     
             True if n is less than or equal to zero. 









        UNIFORTH VOCABULARY LIST                                Page A-7



        0<>     n --- flag     U     
             True if n is not equal to zero. 

        0=     n --- flag     F                 "zero-equals"
             True is n is zero.

        0>     n --- flag     F                 "zero-greater"
             True if n is greater than zero.

        0>=     n --- flag     U     
             True if n is greater than or equal to zero. 

        0BRANCH     f ---     G     
             The  run-time  procedure to conditionally branch.   If f  is 
             false,  the  following  in-line parameter is  added  to  the 
             interpretive  pointer to branch ahead of back.   Compiled by 
             IF, UNTIL and WHILE. 

        1     --- 1     G     
             Leave the constant 1 on the stack. 

        1+     n --- n+1     F                  "one-plus"
             Increment n by one,  according to the operation for +.

        1+!     addr ---     U     
             Increment the contents of addr by 1. 

        1-     n --- n-1     F                       "one-minus"
             Decrement  n by one,  according to the  operation  minus.

        1-!     addr ---     U     
             Decrement the contents of addr by 1. 

        1.E1     --- n1     U     
             The floating point constant 10.0 .

        2     --- 2     G     
             Leave the constant 2 on the stack. 

        2!     d addr ---     F                      "two-store"
             Store  d in 4 consecutive bytes beginning at addr,  as for a 
             double number.

        2*     n1 --- n2     G     
             Multiply n1 by 2 (signed). 

        2+     n --- n+2     F                       "two-plus"
             Increment n by two,  according to the operation for +. 

        2+!     addr ---     U     
             Increment the contents of addr by 2. 











        UNIFORTH VOCABULARY LIST                                Page A-8


        2-     n --- n-2     F                       "two-minus"
             Decrement n by two,  according to the operation for minus. 

        2-!     addr ---     U     
             Decrement the contents of addr by 2. 

        2/     n1 --- n2     U     
             Divide n1 by 2 (signed). 

        2@     addr --- d     F                      "two-fetch"
             Leave  on  the stack the contents of  the  four  consecutive 
             bytes  beginning  at addr,  as for a double  number. 

        2>R     d1 ---     F     
             Remove  the  topmost 32-bit value from the  data  stack  and 
             place it on the return stack. 

        2CONSTANT     d ---     F                    "two-constant"
             A defining word used in the form:
                     d 2CONSTANT <name>     
             to  create a dictionary entry for <name>,  leaving d in  its 
             parameter field.   When <name> is later executed,  d will be 
             left on the stack.

        2DROP     d ---     F                   "two-drop"
             Drop the top double number on the stack.

        2DUP     d --- d d     F                "two-dup"
             Duplicate the top double number on the stack.

        2OVER     d1 d2 --- d1 d2 d1     F      "two-over"
             Leave a copy of the second double number on the stack.

        2R>     --- d1     F     
             Remove  the  topmost 32-bit value from the return stack  and 
             place it on the data stack. 

        2ROT     d1 d2 d3 --- d2 d3 d1     F     "two-rote"
             Rotate  the  third double number to the top  of  the  stack. 

        2SWAP     d1 d2 --- d2 d1     F         "two-swap"
             Exchange  the  top two double numbers on the  stack.

        2VARIABLE               F               "two-variable"
             Used in the form:
                       2VARIABLE <name>
             Create  a  dictionary entry for <name> and allocate 4  bytes 
             for  storage in the parameter field.   When <name> is  later 
             executed, it will leave the address of the first byte of its 
             parameter field on the stack.

        3     --- n     G     
             Leave the constant 3 on the stack. 










        UNIFORTH VOCABULARY LIST                                Page A-9


        4+    n1 --- n2     U
             Add 4 to the top stack value.

        4-    n1 --- n2     U
             Subtract 4 from the top stack value.

        8*     n1 --- n2     U
             Multiply n1 by 8 (3-bit left shift).

        :                    F                       "colon"
             A defining word used in the form:
                     : <name> . . . ;     
             Create a dictionary entry for <name>,  and set compile mode. 
             Words  thus  defined are  called  'colon-definitions'.   The 
             compilation  addresses  of subsequent words from  the  input 
             stream  which  are not immediate words are stored  into  the 
             dictionary  to  be executed when <name> is  later  executed. 
             IMMEDIATE  words are executed as encountered.   If a word is 
             not found after a search of the vocabulary,  conversion  and 
             compilation of a literal number is attempted, with regard to 
             the current BASE;  that failing,  an error condition exists.

        ;                 F,I,C                 "semi-colon"
             Terminate  a  colon  definition and  stop  compilation.   If 
             compiling  from  mass  storage  and  the  input  stream   is 
             exhausted before encountering ';' an error condition exists.

        ;;          U,I     
             Terminating  word of a satisfied CASE branch.   Branches  to 
             just after CASEND. 

        ;CODE             U,I     
             Used in the form:
                  : cccc . . . ;CODE . . . END-CODE     
             Stop  compilation and terminate a new defining word cccc  by 
             compiling  (;CODE).   Assemble the remaining mnemonics until 
             reaching END-CODE.  When cccc is later executed in the form:
                        cccc <name>     
             the word <name> will be created with its execution procedure 
             given by the machine instructions following ;CODE.  That is, 
             when <name> is executed,  it does so by jumping to the  code 
             after  ;CODE  of cccc.   An existing defining word (such  as 
             CREATE) must exist in cccc prior to ;CODE. 

        ;S                    G     
             Stop interpretation of a screen.

        <      n1 n2 --- flag     F                  "less-than"
             True  if  n1 is less than n2.   Two special  cases  must  be 
             considered.  ' -32768 32767 <' must return true, and '-32768 
             0' must be distinguished.












        UNIFORTH VOCABULARY LIST                                Page A-10


        <#                     F                "less-sharp"
             Initialize pictured numeric output.  The words: 
               <# ## #S HOLD SIGN #>     
             can be used to specify the conversion of a double- precision 
             number  into an ASCII character string stored  in  right-to-
             left order.

        <:                  U
             Start a less-than conditional in the case statement.

        <<               U     
             Mark the current stack position.   Used in conjunction  with 
             >> to fill an array. 

        <=     n1 n2 --- flag     U     
             True if n1 is less than or equal to n2. 

        <>     n1 n2 --- flag     U     
             Compare  n1  to n2.   If they are not equal,  leave  a  true     
             flag; otherwise, leave zero. 

        =     n1 n2 --- flag     F                   "equals"
             True if n1 is equal to n2.

        =:     n1 ---          U,I     
             Begin  a case comparison.   If satisfied,  execute the words     
             following  =:.   Otherwise,  jump to the word following  the     
             next ;; . 

        =CELLS    n1 --- n1      U
             Add 1 if necessary to make n1 an even number.

        >     n1 n2 --- flag     F                   "greater-than"
             True if n1 is greater than n2.

        >=     n1 n2 --- flag     U     
             True if n1 is greater than or equal to n2. 

        >>                  U     
             Used in the form:
                 << n1 n2 ... nn addr >>     
             this word stores all parameters n1, n2, ...nn into the array 
             starting at addr with n1 as the first element. 

        >BODY       adr1 --- adr2             F
             Move  from the code field address of a word to the parameter 
             field address (body).

        >IN     --- addr     F                       "to-in"
             Leave  the address of a variable which contains the  present 
             character  offset within the input stream {0...1023}   Note:  
             see WORD  (  ."  FIND 











        UNIFORTH VOCABULARY LIST                                Page A-11


        >LINK     adr1 --- adr2       F
             Move from the code field address of a word to its link field 
             address.

        >NAME     adr1 --- adr2       F
             Move from the code field address of a word to its name field 
             address.

        >R     n ---     F,C                    "to-r"
             Transfer n to the return stack.   Every >R must be  balanced 
             by  a  R> in the same control structure nesting level  of  a 
             colon-definition.

        ?     addr ---     F                    "question-mark"
             Display  the number at address,  using the format of  'dot'.

        ?ALIGN    ---       U    
             Force the dictionary pointer to an even address.

        ?BASE                U     
             Print the current base in decimal. 

        ?BLK     ---     U     
             Print the last accessed block in base 10. 

        ?COMP          G     
             Issue error message if not compiling.  

        ?CSP          G     
             Issue error message if stack position differs from the value 
             saved in CSP.

        ?DUP     n --- n  (n)     F             "query-dup"
             Duplicate n if it is non-zero.

        ?ERROR     f n ---     G     
             Issue  an  error message number n,  if the boolean  flag  is 
             true. 

        ?EXEC          G     
             Issue an error message if not executing. 

        ?KEY     --- n     U     
             Check  to see if a key has been struck on the  keyboard.  If 
             so, leave the ASCII value; otherwise, leave a zero. 

        ?LOADING          G     
             Issue an error message if not loading. 

        ?PAIRS     n1 n2 ---     G     
             Issue an error message if n1 does not equal n2.  The message 
             indicates that compiled conditionals do not match.  











        UNIFORTH VOCABULARY LIST                                Page A-12


        ?SAVE     adr --- adr     U     
             Flush buffer to disk if it has been updated.   Used by SAVE-
             BUFFERS. 

        ?STACK          G     
             Issue an error message if the stack is out of bounds.  

        ?TERMINAL     --- f     G     
             Perform a test of the terminal keyboard for actuation of any 
             key.  A true flag indicates actuation. 

        @     addr --- n     F                  "fetch"
             Leave on the stack the number contained at addr.

        @!     n addr ---     U     
             Fetch  the  contents of addr and use those contents  as  the 
             address into which to store n.  (indirect addressing) 

        @+     n1 addr --- n2     U     
             Fetch the contents of addr and add to n1. 

        A'        ---            U
             Used in the form:
                       A' c
             Leave  the  ASCII  code for character c  on  the  stack,  or 
             compile into the dictionary if in compile mode.

        ABORT          F     
             Clear  the  data and return stack,  setting execution  mode. 
             Return control to the terminal. 

        ABORT"    flag ---        F             "abort-quote"
             Used in the form:
                  flag ABORT" cccc"
             When  later executed,  if flag is true the characters  cccc, 
             delimited  by  the  close-quote,  are displayed and  then  a 
             abort sequence that includes ABORT is performed.  If flag is 
             false,  the  flag is dropped and execution  continues.   The 
             blank following ABORT" is not part of cccc.

        ABS     n1 --- n2     F                 "absolute"
             Leave the absolute value of a number.

        AGAIN     addr n ---     G     
             Used in a colon-definition in the form:
                    BEGIN . . . AGAIN
             At   run-time,   AGAIN   forces  execution  to   return   to 
             corresponding  BEGIN.   There  is no effect  on  the  stack.  
             Execution cannot leave this loop (unless R> DROP is executed 
             one level below). 













        UNIFORTH VOCABULARY LIST                                Page A-13


        ALLOT     n ---     F                   "allot"
             Allocate n bytes in the dictionary.  The address of the next 
             available dictionary location is updated accordingly.

        AND     n1 n2 --- n3     F     
             Leave the bitwise logical 'and' of n1 and n2. 

        ARRAY               U
             A defining word used in the form:
                  n ARRAY <name>     
             create a buffer n cells long (but not preset to zero).  When 
             <name>  is subsequently executed,  it leaves the address  of 
             the first element. 

        ASSEMBLER          F,I     
             The  name  of the  assembler  vocabulary.   Execution  makes 
             ASSEMBLER  the CONTEXT vocabulary.   ASSEMBLER is immediate, 
             so  it  will  execute  during  the  creation  of  a   colon-
             definition, to select this vocabulary at compile time. 

        AUTOLOAD  --- adr        U
             A  variable  containing  the block number  you  wish  to  be 
             automatically loaded when invoking UNIFORTH.

        B'     --- n     U
             Interpret the next number in base 2 (binary),  regardless of 
             the current base.

        B.     n ---     U
             Display  the  number in base 2 (binary),  regardless of  the 
             current base.

        B/BUF     --- n     G     
             Leave the number of bytes per buffer on the stack (1024). 

        BACK     addr ---          G     
             Calculate  the backward branch offset from HERE to addr  and 
             compile into the next available dictionary memory address. 

        BASE     --- addr     F     
             Leave  the  address  of a variable  containing  the  current 
             input-output numeric conversion base.  {2..70} 

        BASE'     ---     U
             A  defining  word used to create temporary  base  conversion 
             words.

        BASE.     ---     U
             A  defining  word  used to create  temporary  base  printing 
             words.













        UNIFORTH VOCABULARY LIST                                Page A-14


        BEGIN              F,I     
             Used in a colon-definition in the forms:
                     BEGIN . . . flag UNTIL       
             or             
                     BEGIN . . . flag WHILE . . . REPEAT     
             BEGIN  marks  the  start of a word sequence  for  repetitive 
             execution.   A BEGIN-UNTIL loop will be repeated until  flag 
             is  true.   A BEGIN-WHILE-REPEAT loop will be repeated until 
             flag  is  false.   The words after UNTIL or REPEAT  will  be 
             executed  when  either loop is  finished.   Flag  is  always 
             dropped after being tested. 

        BELL                  U     
             Send an ASCII 07 (bell) to the current output device. 

        BINARY                U     
             Change the current base to binary (base 2). 

        BL     --- c     G     
             A constant that leaves the ASCII value for a blank (32). 

        BLANKS     addr count ---     G     
             Fill an area of memory beginning at addr with count blanks. 

        BLK     --- addr     F                  "b-l-k"
             Leave the address of a variable containing the number of the 
             mass storage block being interpreted as the input stream. If 
             the  content  is zero,  the input stream is taken  from  the 
             text input buffer.

        BLOCK     n --- addr     F     
             Leave  the  address of the first byte in block  n.   If  the 
             block is not already in memory,  it is transferred from mass 
             storage into whichever memory buffer has been least recently 
             accessed.  If  the  block  occupying that  buffer  has  been 
             UPDATEd (i.e.  modified),  it is rewritten onto mass storage 
             before  block n is read into the buffer.   n is an  unsigned 
             number.   If   correct  mass  storage read or write  is  not 
             possible,  an error condition exists.

        BMOVE     blk1 blk2 n ---     U     
             Move  n  blocks starting at blk1 to the region  starting  at 
             blk2.  The  lowest  numbered block of region blk1  is  moved 
             first. 

        BMOVE>     blk1 blk2 n ---     U     
             Move  n  blocks starting at blk1 to the region  starting  at 
             blk2.   The  highest numbered block of region blk1 is  moved 
             first. 














        UNIFORTH VOCABULARY LIST                                Page A-15


        BRANCH          G     
             The  run-time procedure to unconditionally branch.   An  in-
             line  offset  is  added to the interpretive  pointer  IP  to 
             branch  ahead or back.   BRANCH is compiled by ELSE,  AGAIN, 
             REPEAT. 

        BS                  U     
             Send an ASCII 08 (backspace) to the current output device. 

        BSWAP     n1 --- n2     U     
             Swap the bytes of the 16-bit value n1. 

        BUFFER     n --- addr     F     
             Obtain the next block buffer,  assigning it to block n.  The 
             block  is  not  read from mass  storage.   If  the  previous 
             contents  of the buffer has been marked as  UPDATEd,  it  is 
             written to mass storage.  If correct writing to mass storage 
             is  not possible,  an error condition exists.   The  address 
             left  is the first byte within the buffer for data  storage.  
             n is an unsigned number.

        BYE       ---       U    
             Exit  UNIFORTH and return to your operating system,  closing 
             the current file in the process.

        C!      n addr ---       F              "c-store"
             Store the least significant 8-bits of n at addr.

        C,     n ---          G     
             Store  8 bits of n into the next available dictionary  byte, 
             advancing the dictionary pointer by one. 

        C/L     --- n     G     
             Leave the number of characters per line (64). 

        C@     addr --- byte     F                   "c-fetch"
             Leave  on  the stack the contents of the byte at addr  (with 
             the higher bits zero, in a 16-bit field).

        CARRAY     n ---     U
             A defining word used in the form:
                  n CARRAY <name>
             create a buffer n bytes long (but not preset to zero).  When 
             <name>  is subsequently executed,  it leaves the address  of 
             the first element.


















        UNIFORTH VOCABULARY LIST                                Page A-16


        CASE                U,I     
             A multiple-IF statement used in the form:
                  CASE
                      n1 =: . . . ;;
                      n2 >: . . . ;;
                      n3 <: . . . ;;
                      NOCASE =: . . . ;;
                 CASEND     
             It requires a testing value on the stack (it will be removed 
             by CASE).  n1, n2, ... are comparison value.  If the testing 
             value is equal to,  less than or greater than any of the set 
             (n1,n2,...),  then the words following the corresponding =:, 
             <:  or  >:  are executed,  followed by a branch  to  CASEND.  
             NOCASE is an optional test to satisfy all non-tested values. 

        CASEND          U,I     
             The terminating statement for CASE.   Drops the tested value 
             from the stack.  See CASE. 

        CBLIST     n1 n2 ---     U     
             List all blocks between n1 and n2 inclusive,  one at a time. 
             To  list  the next block,  hit any key.   To  terminate  the 
             listing abnormally, enter the escape key. 

        CDUMP     addr n ---     U     
             Dump n bytes starting at addr in hex format.   Sixteen bytes 
             are listed per line,  followed by their ASCII  equivalences. 
             Non-printing ASCII characters are indicated by periods.  You 
             can terminate abnormally by striking any key. 

        CHANA     ---       U  
             Make channel A the current default file channel.

        CHANB     ---       U 
             Make channel B the current default file channel.

        CLKADR     --- adr     U     
             The starting address of the 6-byte date and time buffer. 

        CLOSE        ---       U
             Close the current file.

        CLR-BLK     n ---     U     
             Fill block n with blanks, and put a ;S at its beginning. 

        CMOVE     addr1 addr2 n ---     F       "c-move"
             Move  n  bytes  beginning at address addr1  to  addr2.   The 
             contents  of  addr1 are moved first proceeding  toward  high 
             memory.   If n is zero or negative nothing is moved. 

        CMOVE>     adr1 adr2 n ---     F     
             Move  n  bytes  beginning  at address  adr1  to  adr2.   The 
             contents of adr1 are moved first preceeding from the end  of 
             the buffer toward low memory. 









        UNIFORTH VOCABULARY LIST                                Page A-17



        CMPS     adr1 adr2 cnt --- f     U     
             Compare  the string starting at adr1 to the string at  adr2, 
             each  with  length cnt bytes.   If str1 is less  than  str2, 
             leave -1 ; if str1 is equal to str2, leave zero ; if str1 is 
             greater than str2, leave one. 

        CODE               F,I     
             A defining word used in the form:
                       CODE <name> . . . END-CODE
             Create  a  dictionary entry for <name>,  and  set  execution 
             mode.   Words  thus compiled are called  'code-definitions'.  
             Used in creating assembly language routines.

        COLD          G     
             The cold start procedure to adjust the dictionary pointer to 
             the initial settings and restart via ABORT. 

        COMPILE               F,C     
             When  a word containing COMPILE executes,  the 16-bit  value 
             following  the  compilation  address of  COMPILE  is  copied 
             (compiled) into the dictionary.   That is,  COMPILE DUP will 
             copy the compilation address of DUP. 

        CONSTANT     n ---     F     
             A defining word used in the form:
                        n CONSTANT <name>     
             to  create a dictionary entry for <name>,  leaving n in  its 
             parameter field.   When <name> is later executed,  n will be 
             left on the stack. 

        CONTEXT     --- addr     F     
             A  user  variable  containing a pointer  to  the  vocabulary 
             within which dictionary searches will first begin. 

        CONTROLS?     adr cnt --- f     U     
             Check the buffer starting at adr with length cnt bytes.   If 
             there  are any control characters (ASCII 31 or less) in  the 
             buffer, leave a 1 on the stack; otherwise, leave a 0. 

        CONVERT     d1 addr1 --- d2 addr2     F     
             Convert  the ASCII text beginning at addr1+1 with regard  to 
             BASE.   The new value is accumulated into double number  d1, 
             being  left  as  d2.   Addr2  is the address  of  the  first 
             unconvertable digit.  Used by NUMBER.  

        COPY     n1 n2 ---     U     
             Copy block n1 into block n2. 

        COPYATOB       n1 n2 ---      U
             Copy block n1 from channel A to block n2 in channel B.












        UNIFORTH VOCABULARY LIST                                Page A-18


        COUNT     addr --- addr+1 n     F     
             Leave  the  address addr+1 and the character count  of  text 
             beginning at addr.   The first byte at addr must contain the 
             character count n.  Range of n is {0..255}. 

        CR                     F                          "c-r"
             Cause  a  carriage-return  and line-feed  to  occur  at  the 
             current output device.

        CREATE                F     
             A defining word used in the form:
                      CREATE <name>     
             to create a dictionary entry for <name>,  without allocating 
             any  parameter  field memory.   When <name> is  subsequently 
             executed,   the  address  of  the  first  byte  of  <name>'s 
             parameter field is left on the stack. 

        CSP     --- addr     G     
             A  user  variable  temporarily  storing  the  stack  pointer 
             position,     for compilation error checking. 

        CURRENT     --- addr     F     
             A variable containing the current vocabulary pointer. 

        D+     d1 d2 --- d3     F               "d-plus"
             Leave the arithmetic sum of d1 and d2.

        D-     d1 d2 --- d3     F                    "d-minus"
             Subtract d2 from d1 and leave the difference d3.

        D>S      d --- n     G     
             Truncate  the double precision value to its single precision 
             equivalent.  Same as DROP. 

        D.     d ---     F                      "d-dot"
             Display  d  converted  according to  BASE  in  a  free-field 
             format,  with one trailing blank.   Display the sign only if 
             negative.

        D.R     d n ---     F                   "d-dot-r"
             Display d converted according to BASE, right aligned in an n 
             character field.  Display the sign only if negative.

        D0<     d --- flag     U     
             Leave true if d is less than zero. 

        D0=     d --- flag     F                "d-zero-equals"
             Leave true if d is zero.

        D<     d1 d2 --- flag     F             "d-less"
             True if d1 is less than d2.  "d-less" 

        D=     d1 d2 --- flag     F             "d-equal"
             True is d1 equals d2.









        UNIFORTH VOCABULARY LIST                                Page A-19



        DABS     d1 --- d2     F           "d-abs"
             Leave as a positive double number d2,  the absolute value of 
             a double number, d1.  {0..2,147,483,647}

        DECIMAL             F

             Set the input-output numeric conversion base to ten. 

        DEFINITIONS               F     
             Used in the form:
                   cccc DEFINITIONS     
             Set  the CURRENT vocabulary to the CONTEXT  vocabulary.   In 
             the  example,  executing  vocabulary  name ccc made  it  the 
             CONTEXT  vocabulary  and  executing  DEFINITIONS  made  both 
             specify vocabulary cccc. 

        DELETE     ---     U
             When used in the form:
                       DELETE <fname>
             removes the file from the current directory.

        DEPTH     --- n     F     
             Leave  the number of the quantity of 16-bit values contained 
             in the data stack, before n was added. 

        DIGIT     c n1 --- n2 tf  (ok)        G
                  c n1 --- ff     (bad)     
             Converts the ASCII character c (using base n1) to its binary 
             equivalent  n2,   accompanied  by  a  true  flag.    If  the 
             conversion is invalid, leaves only a false flag. 

        DLITERAL     d --- d  (executing)     G
                     d ---    (compiling)     
             If compiling,  compile a stack double number into a literal. 
             Later  execution  of the definition containing  the  literal 
             will push it to the stack.   If executing,  the number  will 
             remain on the stack. 

        DMATRIX               U     
             A defining word used in the form:
                    n1 n2 DMATRIX <name>     
             to  create a dictionary entry for <name>,  making  a  double 
             precision  matrix  n1*n2*2 cells in length,  presetting  all 
             elements to zero.   When <name> is later executed,  it  uses 
             the  top stack parameter as the column number {0..n2-1}  and 
             the second stack parameter as the row number {0..n1-1},  and 
             returns the address of that element. 

        DMAX     d1 d2 --- d3     F             "d-max"
             Leave the larger of two double numbers. 

        DMIN     d1 d2 --- d3     F             "d-min"
             Leave the smaller of two double numbers.









        UNIFORTH VOCABULARY LIST                                Page A-20



        DNEGATE     d --- -d     F                   "d-negate"
             Leave the double number two's complement of a double number, 
             i.e., the difference 0 less d.

        DO     n1 n2 ---     F,I     
             Use in a colon-definition:
                       DO . . . LOOP
               or
                       DO . . . +LOOP     
             Begin   a  loop  which  will  terminate  based  on   control 
             parameters.  The  loop  index begins at n2,  and  terminates 
             based  on  the limit n1.   At LOOP or +LOOP,  the  index  is 
             modified  by a positive or negative value.   The range of  a 
             DO-LOOP is determined by the terminating word.   DO-LOOP may 
             be nested. 

        DOES>                 F,I,C                  "does"
             Define the run-time action of a word created by a high-level 
             defining word.  Used in the form:
                  : <name> . . . CREATE . . . DOES> . . . ;
                  and then  <name> <namex>     
             Marks  the termination of the defining part of the  defining 
             word <name> and begins the definition of the run time action 
             for  words  that  will  later  be  defined  by  <name>.   On 
             execution of <namex> the sequence of words between DOES> and 
             ;  will be executed, with the address of <namex>'s parameter 
             field on the stack.

        DP     --- addr     G     
             A user variable,  the dictionary pointer, which contains the 
             address   of  the  next  free  memory  location  above   the 
             dictionary.  The  value may be read by HERE and  altered  by 
             ALLOT. 

        DPL     --- addr     G     
             A user variable containing the number of digits to the right 
             of the decimal on floating point input. 

        DROP      n ---          F
             Drop the top number from the stack.

        DTOR      --- x1          U
             A constant containing the conversion factor from degrees  to 
             radians.

        DU<     ud1 ud2 --- flag     F               "d-u-less"
             True  if ud1 is less than ud2.   Both numbers are  unsigned.

        DUMP     addr n ---     G     
             Dump  n cells starting at addr.   Eight cells are listed per 
             output line in the current base.  The dump can be terminated 
             abnormally by striking any key. 










        UNIFORTH VOCABULARY LIST                                Page A-21


        DUP     n --- n n     F     
             Leave a copy of the top stack number. 

        DVECTOR                U     
             A defining word used in the form:
                   n DVECTOR <name>     
             to  create  a dictionary entry for <name> and make a  double 
             precision  vector,  preset to zero.   When <name>  is  later 
             executed,  it  uses  the  top stack value as  an  index  and 
             returns the corresponding element address <stgadr+2*value>.

        E.        x ---          U
             Print floating point number in free-format exponent form.

        E-        n1 --- n2      U
             Subtract the current element size from the top stack value.

        E+        n1 --- n2      U
             Add the current element size to the top stack value.

        EDIT     n ---     U     
             Start editing block (screen) number n. 

        EDITOR          U     
             The name of the video editor vocabulary. 

        EI+       n1 --- n2      U
             Add the loop index*element size to the top stack value.

        EI+!      n1 adr ---     U
             Add the loopindex*elementsize to the address,  and store  n1 
             at the resultant address.

        EI+@      n1 --- n2      U
             Add the loopindex*elementsize to the top stack value.  Using 
             the result as an address, fetch the contents.

        EI-       n1 --- n2      U
             Subtract the loopindex*elementsize from the top stack value.

        ELSE          F,I     
             Used in a colon-definition in the form:
                   IF . . . ELSE . . . THEN     
             ELSE executes after the true part following IF.  ELSE forces 
             execution to skip till just after THEN.  It has no effect on 
             the stack.  (See IF) 

        EMIT     char ---     F     
             Transmit character to the current output device. 














        UNIFORTH VOCABULARY LIST                                Page A-22


        EMPTY-BUFFERS          F     
             Mark  all  block  buffers  as  empty,   without  necessarily 
             affecting  their actual contents.   UPDATEd blocks  are  not 
             written to mass storage. 

        ENCLOSE     adr1 c --- adr1 n1 n2 n3     KERNEL     G     
             The  text  scanning primitive used by WORD.   From the  text 
             address  adr1 and an ASCII delimiting character  c,  ENCLOSE 
             determinines  the  byte offset to  the  first  non-delimiter 
             character  n1,  the offset to the first delimiter after  the 
             text n2, and the offset to the first character not included. 
             This  procedure  will  not  process past  an  ASCII  'null', 
             treating it as an unconditional delimiter. 

        END-CODE    ---     F
             Terminate a machine-code definition.

        ER1     ---     U
             An error handling word.

        ER2     ---     U
             An error handling word.

        ER3     ---         U
             An error handling word.

        ERASE     addr nbytes ---     G     
             Clear a region of memory to zero starting at addr. 

        ERCODE         --- n          U
             Return the last disk error code.

        ERROR     line ---     G     
             Execute error notification and possible restart of system.

        ES        --- n          U
             Leave the element size of the current system (16-bit = 2).

        EXCHANGE     n1 n2 ---     U     
             Exchange the contents of disk blocks n1 and n2. 

        EXECUTE     addr ---     F     
             Execute the dictionary entry whose code field address is  on 
             the stack. 

        EXIT          F,C     
             When compiled within a colon-defintion,  terminate execution 
             of that definition, at that point.  May not be used within a 
             DO-LOOP. 














        UNIFORTH VOCABULARY LIST                                Page A-23


        EXPECT     addr n ---     F     
             Transfer  characters  from the terminal beginning  at  addr, 
             upward,  until  a  "return"  or  the count  of  n  has  been 
             received.  Take  no action for n less than or equal to zero.  
             The  number  of  characters received is stored  in  variable 
             SPAN.

        EXPECTBL  addr n ---          U
             Same  as EXPECT except leaves a blank (ASCII 32)  after  the 
             entered string.

        EXTEND     n ---       U   
             Extend the current file by n blocks,  setting  each to blank
             except for a ";S" in the first bytes.

        F*     x1 x2 --- x3     U     
             Multiply x1 by x2, leaving the floating point result x3. 

        F/     x1 x2 --- x3     U     
             Divide x1 by x2, leaving the floating point result x3. 

        F+     x1 x2 --- x3     U
             Add x1 to x3, leaving the floating point result x3. 

        F-     x1 x2 --- x3     U
             Subtract x2 from x1, leaving the floating point result x3. 

        F.        x1 ---         U
             Print floating point number in free format.  #digits printed 
             is limited by constant FPSIG.

        FACOS          x1 --- x2   U
             Take the arc-cosine of an angle (x2 in radians).

        FALSE          --- n          U
             Return the value of a false flag (0).

        FASIN          x1 --- x2      U
             Take the arc-sine of an angle (x2 in radians).

        FATAN          x1 --- x2      U
             Take the arc-tangent of an angle (x2 in radians).

        FCB       --- n1         U
             Leave the address of the current File Control Block.

        FCONSTANT      x ---     U
             A defining word used in the form:
                  n FCONSTANT <name>
             To  create  a  dictionary  entry  for  <name>,  leaving  the 
             floating  point  constant x in its  parameter  field.   When 
             <name> is later executed, n will be left on the stack.











        UNIFORTH VOCABULARY LIST                                Page A-24


        FCOS      x1 --- x2      U
             Take the cosine of an angle (radians).

        FENCE     --- G
             A user variable containing an address below which FORGETting 
             is trapped.  To forget below this point, the user must alter 
             the contents of FENCE. 

        FEXP      x1 --- x2      U
             Raise x1 to the e power.

        FILESTATUS     ---       U
             List on the console information about the current file.

        FILL     addr n byte ---     F     
             Fill memory beginning at address with a sequence of n copies 
             of byte.   If the quantity n is less than or equal to  zero, 
             take no action. 

        FIND     --- addr     U     
             Leave  the compilation address of the next word name,  which 
             is accepted from then input stream.   If that word cannot be 
             found in the dictionary after a search, leave zero. 

        FIRST     --- n     G     
             A  variable that leaves the address of the  first  (lowest) 
             block buffer. 

        FIX     x1 --- d1     U
             Convert floating point x1 to a double precision integer d1. 

        FLD     --- addr     G     
             A user variable for control of number output field width. 

        FLN       x1 --- x2      U
             Take the natural (base e) logarithm of x1.

        FLOAT     d1 --- x1     U
             Convert  double  precision  integer  d1  to  the  equivalent 
             floating point value x1. 

        FLOG2     x1 --- x2      U
             Take the log base 2 of x1.

        FLOG10    x1   --- x2         U
             Take the common logarithm (base 10) of x1.

        FLUSH     ---     U,G
             A synonym for SAVE-BUFFERS.














        UNIFORTH VOCABULARY LIST                                Page A-25


        FMATRIX        n1 n2 ---      U
             A defining word used in the form:
                       n1 n2 FMATRIX <name>
             to  create  a  dictionary  entry for  <name>,  making  a  2-
             dimensional floating point matrix n1*n2 elements in  length.  
             When  <name>  is  later  executed,  it uses  the  top  stack 
             parameter  as  the column number {0..n2-1}  and  the  second 
             stack parameter as the row number {0..n1-1}, and returns the 
             address of that element.

        FNEGATE     x1 ---  -x1      U
             Change the sign of the floating point number x1. 

        FORGET                  F     
             Execute in the form:
                    FORGET <name>     
             Delete from the dictionary <name> and all words added to the 
             dictionary after <name>.  Failure to find <name> is an error 
             condition. 

        FORM               U     
             Send an ASCII 12 (formfeed) to the current output devices. 

        FORTH               F     
             The  name of the primary vocabulary.   Execution makes FORTH 
             the CONTEXT vocabulary.   Until additional user vocabularies 
             are  defined,  new user definitions become a part of  FORTH. 
             FORTH is immediate,  so it will execute during the  creation 
             of a colon-definition,  to select this vocabulary at compile 
             time. 

        FSIN      x1 --- x2      U
             Take the sine of an angle (radians).

        FSQRT     x1 --- x2      U
             Take the square root of x1.

        FTAN      x1 --- x2      U
             Take the tangent of an angle (radians).

        FVARIABLE      ---       U
             A defining word executed in the form:
                       FVARIABLE <name>
             to  create a dictionary entry for <name> and allot space for 
             one  floating-point element in its  body.   The  application 
             must  initialize  the stored value.   When <name>  is  later 
             executed, it will place the storage address on the stack.
















        UNIFORTH VOCABULARY LIST                                Page A-26


        FVECTOR        n ---          U
             A defining word used in the form:
                       n FVECTOR <name>
             to  create a dictionary entry for <name> ana allot space for 
             n floating-point elements (a one-dimensional vector).   When 
             name  is later executed,  it uses the top stack value as  an 
             index  {0..n-1}  into the array and returns the  address  of 
             that element.

        GETBUF    blk# --- bufadr flag     U
             Examine the block buffers,  and return the address of one of 
             them.  If that buffer has been updated, flag=true.

        GETNUM     --- val     U     
             Interactively bring in the next number from the keyboard. 

        H'     --- n     U
             Interpret the next number in hex,  regardless of the current 
             base.

        H.     n ---     U     
             Print the top stack value in hexadecimal,  regardless of the 
             current base. 

        HASH      stradr vocptr --- stradr vocthd         U
             Used for "hashing" the dictionary into 4 threads.

        HDUMP     addr n ---     U     
             Same  as DUMP,  but in hexadecimal regardless of the current 
             base. 

        HERE     --- addr     F     
             Return   the  address  of  the  next  available   dictionary 
             location. 

        HEX               G     
             Change the current numberic input base to hexadecimal  (base 
             16). 

        HLD     --- addr     G     
             A  user  variable  that  holds the  address  of  the  latest 
             character of text during numeric output conversion. 

        HOLD     char ---     F     
             Insert char into a pictured numeric output string.  May only 
             be used between <# and #>. 

        I     --- n     F,C     
             Copy  the loop index onto the data stack.   Can only be used 
             in the forms
                   DO . . . I . . . LOOP   
             or 
                  DO . . . I . . . +LOOP 










        UNIFORTH VOCABULARY LIST                                Page A-27


        I+        n1 --- n2      U
             Add index I to the top stack value. 

        I-     n1 --- n2     U,C     
             Subtract index I from the top stack value. 

        ID.     addr ---     G     
             Print a definition's name from its name field address. 

        IF     flag ---     F,I     
             Used in a colon-definition in the forms:
                  flag IF . . . ELSE . . . THEN
              or
                  flag IF . . . THEN     
             If flag is true, the words following IF are executed and the 
             words  following  ELSE  are  skipped.    The  ELSE  part  is 
             optional.  If flag is false,  words between IF and ELSE,  or 
             between  IF  and THEN (when no ELSE is used),  are  skipped.  
             IF-ELSE-THEN conditionals may be nested. 

        IMMEDIATE               F     
             Mark the most recently made dictionary entry as a word which 
             will be executed when encountered during compilation  rather 
             than compiled. 

        INCLUDE        n1 ---    U
             Used in the form:
                  INCLUDE <fname>
             Close the current file,  saving any updated blocks.   Switch 
             to  file  fname,  load  block 01,  and then  return  to  the 
             original file.  Only one level of nesting is allowed.

        INDEX     n1 n2 ---     G     
             Print  the first line of each screen over the range n1 to n2 
             inclusive.   This  is used to view the comment lines  of  an 
             area of text on disk screens. 

        INDGEN     addr n ---     U     
             Fill  n cells starting at addr with the cell  number.   That 
             is, (addr)=0, (addr+2)=1, (addr+4)=2, ...  Used to preset an 
             array to its element numbers. 

        INTERPRET              G     
             The  outer  text interpreter which sequentially executes  or 
             compiles  text  from  the input stream  (terminal  or  disk) 
             depending on STATE.   If the word name cannot be found after 
             a search of CONTEXT and CURRENT,  then it is converted to  a 
             number according to the current base.  That also failing, an 
             error message echoing the name with a "?" will be given. 

        IO!     val port ---     U     
             Store the 16-bit value val into port. 











        UNIFORTH VOCABULARY LIST                                Page A-28


        IO@     port --- val     U     
             Fetch a 16-bit value from a port. 

        IOBYTE     --- addr      U     
             A variable containing the printer/terminal output flag. 

        IOC!    val port ---     U     
             Store the 8-bit value val into port. 

        IOC@     port --- val     U     
             Fetch an 8-bit value from a port. 

        J     --- n     F,C     
             Return  the index of the next outer loop.   May be used only 
             within a nested DO-LOOP in the form:
                  DO . . . DO . . . J . . . LOOP . . . LOOP 

        KEY     --- char     F     
             Leave  the ASCII value of the next available character  from 
             then current input device. 

        LATEST     --- addr     G     
             Leave  the  name field address of the topmost  word  in  the 
             CURRENT vocabulary. 

        LEAVE               F     
             Force   immediate  termination  of  a  DO-LOOP.    Execution 
             continues after the next LOOP or +LOOP.

        LF              U     
             Send an ASCII 10 (linefeed) to the current output device. 

        LIMIT     --- n     G     
             A variable leaving the address just above the highest memory 
             available  for a disk buffer.   Usually this is the  highest 
             system memory. 

        LINE     n1 --- n2     U     
             Leave  the buffer address n2 of the n1th line in the current 
             screen (pointed to by SCR). 

        LIST     n ---     F     
             List the ASCII symbolic contents of screen n on the  current 
             output device, setting SCR to contain n.  n is unsigned. 

        LIT     --- n     G     
             Within  a  colon-definition,  LIT is automatically  compiled 
             before each 16-bit literal number encountered in input text.  
             Later  execution  of  LIT causes the contents  of  the  next 
             dictionary address to be pushed to the stack. 













        UNIFORTH VOCABULARY LIST                                Page A-29


        LITERAL     n ---     F,I     
             If  compiling,  then compile the stack value n as  a  16-bit 
             literal,  which  when  later executed,  will leave n on  the 
             stack. 

        LOAD     n ---     F     
             Begin  interpretation  of screen n by making  it  the  input 
             stream;  preserve  the locators of the present input  stream 
             (from  >IN  and BLK).   If interpretation is not  terminated 
             explicitly  it will be terminated when the input  stream  is 
             exhausted.    Control  then  returns  to  the  input  stream 
             containing LOAD, determined by the input stream locators >IN 
             and BLK. 

        LOOP            F,I     
             Increment  the DO-LOOP index by one,  terminating  the  loop 
             when  the new index crosses the boundary between limit-1 and 
             limit.

        LOWUP     --- adr        U
             A variable containing the flag that determines if input text 
             is  to  be  converted to upper  case  before  searching  the 
             dictionary.

        M/MOD     d n1 --- n2 n3     G     
             A  mixed  magnitude  math operator which leaves  the  signed 
             remainder  n2 and signed quotient n3,  from a double  number 
             dividend and divisor n1.   The remainder takes its sign from 
             the dividend. 

        MAKE      ---       U
             Used in the form:
                  MAKE <fname>
             Create a new file called fname.  After MAKE is executed, you 
             are left in the new file.

        MAKE-CHAN      ---       U
             Make a new FCB/channel for file access.

        MATCH    adr1 n1 adr2 n2 --- n3     U     
             Find  the  string  starting at adr2 (n2 bytes long)  in  the 
             larger string starting at adr1 (n1 bytes long,  n1>n2). If a 
             match  occurs,  leave  the address (in buffer adr1)  of  the 
             first correct character; otherwise, leave 0. 

        MATRIX            U     
             A defining word used in the form: 
                       n1 n2 MATRIX <name>     
             to  create  a  dictionary  entry for  <name>,  making  a  2-
             dimensional array (matrix) n1*n2 cells in length, presetting 
             all  elements to zero.   When <name> is later  executed,  it 
             uses the top stack parameter as the column number  {0..n2-1} 
             and  the second stack parameter as the row number {0..n1-1}, 
             and returns the address of that element.  









        UNIFORTH VOCABULARY LIST                                Page A-30



        MAX     n1 n2 --- n3     F                        "max"
             Leave the greater of two numbers.

        MAXI     --- n1     U,C     
             Copy  the maximum iteration counter of the  current  DO-LOOP 
             from the return stack to the data stack. 

        MCOPY     n1 n2 n3 ---     U 
             Copy  n3  blocks  from channel A (starting at block  n1)  to 
             channel B (starting at block n2).

        MESSAGE     n ---     G     
             Print  on  the  selected output device the text  of  line  n 
             relative  to  screen 200 of drive 0.   n may be positive  or 
             negative.  MESSAGE may be used to print incidental text such 
             as  report headers.   If WARNING is zero,  the message  will 
             simply be printed as a number (disk not available).

        MIN         n1 n2 --- n2     F               "min"
             Leave the lesser of two numbers.

        MOD         n1 n2 --- n3     F                    "mod"
             Divide  n1 by n2,  leaving the remainder n3,  with the  same 
             sign as n1.

        MOVE     addr1 addr2 n ---     F     
             Move  the  specified  quantity  n  of  16-bit  memory  cells 
             beginning  at addr1 into memory at addr2.   The contents  of 
             addr1 is moved first.   If n is negative or zero, nothing is 
             moved. 

        MS     n ---     G     
             Delay n milliseconds before continuing execution. 

        MSGBLK     --- adr     U
             Used  by MESSAGE.   A variable containing the starting block 
             number on which messages are stored.

        NAME>     adr1 --- adr2       F
             Convert  the  name  field address adr1 of a  word  into  its 
             corresponding code field address adr2.

        NEGATE     n --- -n     F     
             Leave the two's complement of a number, i.e., the difference 
             of 0 less n. 

        NOCASE     n1 --- n1 n1     U     
             Same as DUP, used in CASE statement. 

        NOOP     ---           G     
             Perform no operation whatsoever. 











        UNIFORTH VOCABULARY LIST                                Page A-31


        NOT     n1 --- n2     U     
             Perform the one's complement of n1. 

        NUMBER     addr --- d     G     
             Convert  a character string left at addr with  a  preceeding 
             count,  to a signed double number, using the current numeric 
             base.   If  numeric  conversion is not  possible,  an  error 
             message will be given. 

        O'     --- n     U
             Interpret  the  next number in base  8,  regardless  of  the 
             current base.

        O.     n ---     U     
             Print n in octal, regardless of the current base. 

        OCTAL          U     
             Change  the  current numeric conversion base to octal  (base 
             8). 

        ODUMP     addr n -----     U     
             Same  as  DUMP,  except output is in  octal,  regardless  of 
             current base. 

        OFFSET     --- addr     U     
             A  user variable which contains the sector offset  from  the 
             beginning of the current drive.  This offset is added to all 
             sector   requests.    Note   the  difference  between   this 
             definition and the FIG definition. 

        OPEN      ---       U 
             Used in the form:
                  OPEN <fname>
             This  word attempts to open file fname for future  I/O.   If 
             fname  does  not currently exist,  UNIFORTH will  query  you 
             about creating it.

        OR     n1 n2 --- n3     F     
             Leave the bitwise inclusive-or of two numbers. 

        OUT     --- addr     G     
             A  user variable that contains a value incremented by  EMIT. 
             The  user  may  alter and examine  OUT  to  control  display 
             formatting. 

        OVER     n1 n2 --- n1 n2 n1     F     
             Leave a copy of the second number on the stack. 

        P+     n1 n2 n3 n4 --- n5 n6     U     
             Perform addition of an ordered pair.  The results are:
                  n5=n1+n3       n6=n2+n4     
             Used in the editor for offsets on x,y cursor positioning. 











        UNIFORTH VOCABULARY LIST                                Page A-32


        PAD     --- addr     F     
             The address of a scratch area used to hold character strings 
             for intermediate processing.  The minimum capacity of PAD is 
             64 characters (addr through addr+63). 

        PICK     n1 --- n2     SYSTEM block 25     F     
             Return  a  copy of the n1th stack  value,  not  counting  n1 
             itself.  Aero relative:  1 PICK is equivalent to OVER.

        PLUS?     --- flag     U
             A  flag for Z.R.   If PLUS?  is nonzero,  Z.R will include a 
             plus sign preceding all positive numbers.

        PRECIS     --- adr     U     
             A USER variable containing the precision flag  (0=16,  1=32, 
             integer; 2=32-bit floating) of the last number converted. 

        PREMIT     b ---     U     
             Send a single ASCII character to the printer. 

        PREV     --- addr     G     
             A  variable  containing the address of the disk buffer  most 
             recently referenced.   The UPDATE commands marks this buffer 
             to be later written to disk. 

        PRINTER               U     
             Select the printer to be the current output device. 

        QUERY               F     
             Accept  input  of up to 80 characters (or until a  'return') 
             from  the  operator's  terminal,  into  the  terminal  input 
             buffer.  WORD may be used to accept text from this buffer as 
             the input stream, by setting >IN and BLK to zero. 

        QUIT                F     
             Clear the return stack,  setting execution mode,  and return 
             control to the terminal.  No message is given. 

        R#     --- addr     G     
             A user variable which may contain the location of an editing 
             cursor, or ther file related function. 

        R/W     addr blk f ---     G     
             The primitive block-oriented disk read/write routine.   Addr 
             specified the source or destination block buffer, blk is the 
             sequential number of the referenced block,  and f is a  flag 
             (f=0,  write;  f=1,  read).   R/W determines the location on 
             mass   storage,   performs  the  read/write  and  all  error 
             checking. 

        R>     --- n     F,C     
             Transfer  n from the return stack to the  data  stack.   "r-
             from" 










        UNIFORTH VOCABULARY LIST                                Page A-33


        R0     --- addr     G     
             A  user  variable  containing the initial  location  of  the 
             return stack.  "r-zero"  See RP! 

        R@     --- n     F,C     
             Copy  the number on the top of the return stack to the  data 
             stack.  "r-fetch" 

        REMSPACE             G     
             Print   the   remaining  space  (in  bytes)  available   for 
             dictionary entries. 

        REPEAT              F,I,C
             Used in a colon-definition in the form:
                  BEGIN . . . WHILE . . . REPEAT     
             At run-time,  REPEAT returns to just after the corresponding 
             BEGIN. 

        ROLL     n ---     F     
             Extract  the n-th stack value to the top of the  stack,  not 
             counting  n  itself,  moving the remaining values  into  the 
             vacated  position.   An error condition results for  n  less    
             than  one.   3  ROLL is the same as ROT.   1 ROLL is a  null 
             operation. 

        ROT     n1 n2 n3 --- n2 n3 n1     F     
             Rotate  the top three values,  bringing the deepest  to  the 
             top.  "rote" 

        RP@     --- n1     G     
             Copy  the address that the return stack pointer is  pointing 
             to onto the data stack. 

        RP!          G     
             Initialize the return stack pointer from user variable R0. 

        S>D     n --- d     G     
             Sign  extend a single 16-bit number to form a double  32-bit 
             number. 

        S0     --- addr     G     
             A  user  variable that contains the initial  value  for  the 
             stack pointer.  "s-zero"   See SP!  

        SAVE-BUFFERS             F     
             Write  all blocks to mass storage that have been flagged  as 
             UPDATEd.  An error condition results if mass storage writing 
             is not completed.  A synonym is FLUSH. 

        SCR     --- addr     F     
             Leave the address of a variable containing the number of the 
             screen most recently listed.  "s-c-r" 











        UNIFORTH VOCABULARY LIST                                Page A-34


        SHIFT     n1 n2 --- n3     U     
             Shift n1 by n2 bits right or left.   If n2 is negative,  the 
             shift is to the left; if positive, to the right. 

        SHOW     n1 n2 ---     G     
             List  all blocks at least including n1 through n2  in  TRIAD 
             form. 

        SHUCK    adr1 adr2 ---     U
             Remove all words following adr1 in the vocabulary pointed to 
             by adr2.

        SIGN     n ---     F,C     
             Insert  the ASCII "-" (minus sign) into the pictured numeric 
             output string, if n is negative. 

        SIGNON               U     
             A  word that prints the signon message of UNIFORTH and  then 
             enters ABORT. 

        SMUDGE               G
             Used  during word definition to toggle the "smudge bit" in a 
             definition's  name  field.   This  prevents  an  uncompleted 
             definition  from  being found  during  dictionary  searches, 
             until compiling is completed without error. 

        SP!               G     
             Initialize the data stack pointer from user variable S0. 

        SP@     --- addr     G     
             Return the address of the data stack position (that is,  the 
             value  of the stack pointer) to the top of the stack,  as it 
             was before SP@ was executed. 

        SPACE              F     
             Transmit an ASCII blank to the current output device. 

        SPACES     n ---     F     
             Transmit  n spaces to the current output  device.   Take  no 
             action for n of zero of less. 

        SPAN      --- adr        F
             A  variable containing the number of characters input during 
             the last EXPECT.

        SS*D     n1 n2 --- d     G     
             A  mixed  magnitude math operation which leaves  the  double 
             number  signed  product of two  signed  integers.   Warning:  
             this name may be changed to S*SD in future releases. 














        UNIFORTH VOCABULARY LIST                                Page A-35


        STATE     --- addr     F     
             Leave the address of the variable containing the compilation 
             state.    A   non-zero  content  indicates  compilation   is 
             occurring,   but   the  value  itself  may  be  installation 
             dependent. 

        SUBROUTINE          U     
             A defining word used in the form:
                 SUBROUTINE <name> . . . END-CODE     
             to create a machine-language word that is only callable from 
             other machine-language words.  It has no code field address.  
             Executing  <name>  at a later time puts the address  of  the 
             first machine-code instruction on the stack.   <name>  would 
             be used like:
             CODE XX . . . <name> CALL, . . . <name> JMP, . . . END-CODE     
             by another word. 

        SWAP     n1 n2 --- n2 n1     F     
             Exchange the top two stack values. 

        TERMINAL          U     
             Select the system console for further output. 

        THEN                 F,I     
             Used in a colon-definition in the form:
                   IF . . . ELSE . . . THEN
            or
                   IF . . . THEN     
             THEN  is the point where execution resumes after ELSE or  IF 
             (when no ELSE is present). 

        TIB     --- addr     G     
             A user variable containing the address of the terminal input 
             buffer. 

        TLOAD          ---       U
             Load  the  current file as a text-oriented  file.   (May  be 
             called FLOAD in your system).

        TOGGLE     addr b ---     G     
             Complement the contents of addr by the bit pattern b. 

        TRACE     --- addr     U
             Flag to turn the "unravel" trace on (1) or off(0).

        TRAVERSE     adr1 n --- adr2     G     
             Move  across  the name field of a definition.   adr1 is  the 
             address  of either the length byte or the last  letter.   If 
             n=1,  the motion is toward high memory;  if n=-1, the motion 
             is toward low memory.  The adr2 resulting the the address of 
             the other end of the name. 












        UNIFORTH VOCABULARY LIST                                Page A-36


        TRIAD     n ---     G     
             Display on the selected output device the three screens that 
             include n,  beginning with a screen that is evenly divisible 
             by 3. 


        TRUE      --- n               U
             A constant containing the value of a true flag (=-1).

        TRUNK          --- adr        F
             A variable containing the address of the trunk vocabulary.

        TURNKEY     --- adr     U     
             The  address  in the kernel COLD routine of the CFA  of  the 
             word  SIGNON.   By  replacing  SIGNON  with  a  user-defined 
             function, you can autostart any word upon coldstart. 

        TYPE     addr n ---     F     
             Transmit  n characters beginning at address to  the  current 
             output  device.   No  action takes place for n less than  or 
             equal to zero. 

        U.     un ---     F     
             Display  un  converted  according to  BASE  as  an  unsigned 
             number, in a free-field format, with one trailing blank. "u-
             dot" 

        U2/       ud1 --- ud2              F
             Divide unsigned double by 2.

        U<     un1 un2 --- flag     F     
             Leave  the flag representing the magnitude comparison of un1 
             <  un2,  where  un1 and un2 are treated at  16-bit  unsigned 
             integers.  "u-less-than" 

        U<=     un1 un2 --- flag     U     
             True if un1 is less than or equal to un2, unsigned. 

        U>     un1 un2 --- flag     U     
             True if un1 is greater than un2, unsigned. 

        U>=     un1 un2 --- flag     U     
             True if un1 is greater than or equal to un2, unsigned. 

        UM/MOD     ud1 un2 --- un3 un4     F     
             Perform  the unsigned division of double number ud1 by  ud2, 
             leaving the remainder un3 and quotient un4.   All values are 
             unsigned.

        UM/MODD     ud1 u2 --- u3 ud4     G     
             An  unsigned mixed magnitude math operation which  leaves  a 
             double quotient ud4 and remainder u3, from a double dividend 
             ud1 and single divisor u2. 










        UNIFORTH VOCABULARY LIST                                Page A-37


        UNPRINT               U     
             Prints an informative message for LIST and INDEX. 

        UNRAVEL     ---      U
             Trace the return stack nesting, then execute QUIT.

        UNTIL     flag ---     F,I     
             Within  a colon-definition,  mark the end of  a  BEGIN-UNTIL 
             loop,  which  will  terminate based on a flag.   If flag  is 
             true,  the loop is terminated.   If flag is false, execution 
             returns  to  the  first  word  after   BEGIN.    BEGIN-UNTIL 
             structures may be nested. 

        UPPER     adr cnt --          U
             Convert the string to upper case ASCII.

        UPDATE             F     
             Mark  the most recently referenced block as  modified.   The 
             block will subsequently be automatically transferred to mass 
             storage  should its memory buffer be needed for storage of a 
             different block, or upon execution of SAVE-BUFFERS. 

        US>D     u --- ud     U
             Convert the unsigned 16-bit integer to 32-bit form.

        USE     --- addr     G     
             A variable containing the address of the block buffer to use 
             next, or in other words, the one least recently written. 

        USER     n ---          G     
             A defining word used in the form:
                  n USER cccc     
             which creates a user variable cccc.   The parameter field of 
             cccc  contains  n  as a fixed offset relative  to  the  user 
             pointer  register UP for this user variable.   When cccc  is 
             later executed, it places the sum of its offset and the user 
             area  base  address on the stack as the storage  address  of 
             that particular variable. 

        USS*D     un1 un2 --- ud3     F     
             Perform  an unsigned multiplication of un1 by  un2,  leaving 
             the double number product ud3.  All values are unsigned. "u-
             times" 

        VARIABLE                F     
             A defining word executed in the form:
                       VARIABLE <name>     
             to create a dictionary entry for <name> and allot two  bytes 
             for  storage in the parameter field.   The application  must 
             initialize the stored value.  When <name> is later executed, 
             it will place the storage address on the stack. 












        UNIFORTH VOCABULARY LIST                                Page A-38


        VECTOR               U     
             A defining word used in the form:
                         n VECTOR <name>     
             to  create a dictionary entry for <name>,  thereby making  a 
             vector n cells long,  presetting all elements to zero.  When 
             <name> is later executed, it uses the top stack value  as an 
             index  into  the  array  and returns  the  address  of  that 
             element. {0..n-1} 

        WORDS          G     
             List the names of the definitions in the context vocabulary. 
             The actuation of any key on the terminal will stop the list. 

        VOC-LINK     --- addr     G     
             A  user  variable containing the address of a field  in  the 
             definition  of  the most recently created  vocabulary.   All 
             vocabulary names are linked by these fields to allow control 
             for FORGETing through multiple vocabularies. 

        VOCABULARY          F     
             A defining word used in the form:
                  VOCABULARY <name>     
             to create a vocabulary definition <name>.  Subsequent use of 
             <name> will make it the CONTEXT vocabulary which is searched 
             first by INTERPRET.   The sequence "<name> DEFINITIONS" will 
             also  make  <name>  the CURRENT vocabulary  into  which  new 
             definitions are placed.  By convention, vocabulary names are 
             to be declared IMMEDIATE.  See VOC-LINK. 

        WARM           G     
             A  warm-start  boot  entry point.   Resets  the  data  stack 
             pointer,  but  does  not re-initialize the return  stack  or 
             dictionary pointers. 

        WARNING     --- addr     G     
             A  user  variable  containing a value  controlling  messages 
             output  from ?ERROR or MESSAGE.   If WARNING=1,  a  disk  is 
             assumed present,  and messages are printed relative to block 
             200 of disk drive 0.   If it is equal to zero,  messages are 
             not  retrieved from disk;  they are just given numbers.   If 
             WARNING= -1, ?ERROR will execute ABORT. 

        WHILE     flag ---     F,I,C     
             Used in a colon-definition in the form:
                   BEGIN . . . flag WHILE . . . REPEAT     
             Select conditional execution based on the flag.   On a  true 
             flag,  continue  execution  through to  REPEAT,  which  then 
             returns  back to just after BEGIN.   On a false  flag,  skip 
             execution to just after REPEAT, exiting the structure. 














        UNIFORTH VOCABULARY LIST                                Page A-39


        WIDTH     --- addr     G     
             A  user  variable containing the maximum numbers of  letters 
             saved in the compilation of a definition's name.  It must be 
             1  through  31,  with  a default  value  of  31.   The  name 
             character count and its natural characters are saved,  up to 
             the  value in WIDTH.   The value may be changed at any  time 
             within the above limits. 

        WORD     char --- addr     F     
             Receive characters from the input stream until the  non-zero 
             delimiting  character is encountered or the input stream  is 
             exhausted,  ignoring leading delimiters.  The characters are 
             stored  as  a packed string with the character count in  the 
             first character position.   The actual delimiter encountered 
             (char  or  null) is stored at the end of the  text  but  not 
             included in the count.  If the input stream was exhausted as 
             WORD is called, then a zero length will result.  The address 
             of the beginning of this packed string is left on the stack. 

        X'     --- n     U
             Interpret  the  next number as decimal,  regardless  of  the 
             current base.

        X.     n ---     U
             Display  the number in decimal,  regardless of  the  current 
             base.

        XON/XOFF       --- adr        U
             A  variable  that turns on/off  the  ctrl-s/ctrl-q  keyboard 
             check.

        XOR     n1 n2 --- n3     F                   "x-or"
             Leave the bitwise exclusive-or of two numbers. 

        Y/N       ---  flag          U
             Bring in a yes/no/escape type answer.

        Z.R     n1 n2 ---     U
             Display n1 right justified in n2 columns.   Zero fill to the 
             left.  See PLUS?.

        [                      F,I                   "left-bracket"
             End the compilation mode.  The text from the input stream is 
             subsequently executed.  See ].

        [']                      F
             Immediate form of tick.

        [COMPILE]              F,I,C                 "bracket-compile"
             Used in a colon-definition in the form:
                   [COMPILE] <name>     
             Force compilation of <name>.   This allows compilation of an 
             IMMEDIATE   word  when  it  would  otherwise  be   executed.










        UNIFORTH VOCABULARY LIST                                Page A-40


        ]                       F                    "right-bracket"
             Set the compilation mode.  The text from the input stream is 
             subsequently compiled.  See [.




























































ee [.




















