вопрос по ассемблеру Опции

[Malyshko]

asm
finit
fld const1 {0.55 }
fld x {x 0.55}
fmul {x*0.55 0.55}
fldl2e {log2e x*0.55}
fmul {x*0.275*log2e x*0.55}
f2xm1 {2^p-1 x*0.55}
fadd one {2^p x*0.55}
fst xp
fld xp {xp 2^p}
fmul
fst xp1

вопрос в следующем: мне нужно получить exp(2.75*x), команда f2xm1 возводит в степень -1<X<1. Поэтому я представил
exp(0.55*x), и собирался позвести это в 5 степень, с помощью fmul. В этом-то и вся загвоздка, в конечном выводе у меня получается NAN. Как с этим бороться?

[Xenia]

Вот! Делюсь с вами вариантом, сочиненным лично. Лично, но все-таки посматривая на то, как это делали предшественники

Код

PUBLIC    fastexp
; double fastexp( double x)
fastexp   PROC
  fld    qword ptr [esp+4]; x грузим из стека
  fldl2e
  fmul
  fld    st
  frndint
  fld1
  fscale
  fxch    st(2)
  fsubrp
  f2xm1
  fmul    st, st(1)
  fadd
  ret
fastexp   ENDP

Функция написана для линковки с обычной Сишной программой, которая по общепринятому соглашению заталкивает аргумент в программый стек, а результат ожидает на вершине FPUшного стека.

Не соблаговолите ли испытать?

P.S. Это чистая экспонента, на 0.55 она аргумент не множит.