* 
*       Floating Point Exponent :
*               Front End to IEEE Floating Point Package.
*
*               double
*               exp(x)
*               double x;
*
*       Returns : e ^ x (where e = 2.718...)
*
.globl exp
.globl _exp
.globl iefexp
.text
exp:
_exp:
~~exp:
link    r14,#-4
movem.l d7,-(sp)
move.l  8(r14),r7
jsr             iefexp
move.l  r7,r0
movem.l (sp)+,d7
unlk    r14
rts

r0
movem.l (sp)+,d7
unlk    r14
rts

r0
movem.l (sp)+,d7
unlk    r14
rts

r0
movem.l (sp)+,d7
unlk    r14
rts

