*****************************************************************************
* Modulname:	FAST
* Modultype:	Secondary
* Dest.Comp.:	HP48
* Language:	System RPL
* Author:	Detlef Mueller,Nibelungenweg 6,2000 Hamburg 56,W-Germany
* Interface:	FAST	( ob --> )
* Description:	Execute <ob> with display off. Exec. time saving of ~11% .
* Edition History :
*	1.000	09-05-1991	DM	Release
*	  001	09-26-1991	DM	add CleanDispOff, evaluation more
*					close to user EVAL
*****************************************************************************

    TITLE	Fast

ASSEMBLE
	NIBASC	/HPHP48-E/

CleanDispOff	EQU	#01D44

RPL

::
    CK1NoBlame
    CODE
	GOSBVL	=SAVPTR
	GOSBVL	=DisableIntr
	GOSBVL	=CleanDispOff
	GOSBVL	=AllowIntr	* Comment this line at you own risc !
	GOVLNG	=GETPTRLOOP
    ENDCODE
    ERRSET
    ::	CK&DISPATCH0
	    symb	COMPEVAL
	    list	COMPEVAL
	    ZERO	EVAL		( *Any object* )
    ;
    ERRTRAP
    ::
	CODE
	GOSBVL	=SAVPTR
	GOSBVL	=DispOn
***	GOSBVL	=AllowIntr	* Uncomment this line at you own risc !
	GOVLNG	=GETPTRLOOP
	ENDCODE
	ERRJMP
    ;
    CODE
	GOSBVL	=SAVPTR
	GOSBVL	=DispOn
***	GOSBVL	=AllowIntr	* Uncomment this line at you own risc !
	GOVLNG	=GETPTRLOOP
    ENDCODE
;
