exp.asm
bitfixer_bitfixer/dg/z88dk/libsrc/math/zxmath/exp.asm
;
;
;       ZX Maths Routines
;
;       9/12/02 - Stefano Bodrato
;
;       $Id: exp.asm,v 1.4 2015/08/10 08:52:12 stefano Exp $
;


;double exp(double)
;Number in FA..


IF FORzx
		INCLUDE  "zxfp.def"
ENDIF
IF FORzx81
		INCLUDE  "81fp.def"
ENDIF
IF FORlambda
		INCLUDE  "lambdafp.def"
ENDIF

                PUBLIC    exp

                EXTERN	fsetup1
                EXTERN	stkequ

.exp
        call    fsetup1
IF FORlambda
	defb	ZXFP_EXP + 128
ELSE
	defb	ZXFP_EXP
	defb	ZXFP_END_CALC
ENDIF
        jp      stkequ

