Ans.4th

(

                      BASIS6 Compatibility Suite 
			for LMI UR/Forth 1.03


                       Written by:  R. J. Brown
               Copyright 1989 Elijah Laboratories Inc.


   See the ANS X3/J14-TC BASIS6 document for stack effects and other
documentation regarding these words.

)

: 2>R R> -ROT >R >R >R ;

: 2R> R> R> R> ROT >R ;

: [ASCII] [COMPILE] ASCII ; IMMEDIATE

\ : ASCII [COMPILE] [ASCII] ;

\ : ASSEMBLER ASM ;

: BYTE+ 1+ ;

: BYTES ;

: CELL+ WSIZE + ;

: CELLS WSIZE * ;

1 CELLS CONSTANT CELL

\ : D! 2! ;

: D>S DROP ;

\ : D@ 2@ ;

( Ray Duncan says he has a workable definition for this word... )
\ : EVALUATE ." EVALUATE is not yet implemented! " ABORT ; IMMEDIATE

: FOR COMPILE 0 [COMPILE] DO ; IMMEDIATE  \ This is fudged!  A real FOR-NEXT
: NEXT [COMPILE] LOOP ;                   \ loop doesn't alter the R-stack!

: MOVE ?DUP IF >R 2DUP R@ - < IF R> CMOVE> 
			      ELSE R> CMOVE THEN 
	    ELSE 2DROP THEN ;

: OCTAL 8 BASE ! ;

: UNDO R> R> R> 3DROP ;

\ The following words are not ANS X3/J14, but are close relatives.
\ They are included for the sake of convenience here.

1 CELLS CONSTANT cell        \ a single forth virtual machine cell

: CELL- cell - ;	     \ back up a pointer by one cell