Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Eulersche Zahl und EXP(x) in ASM

Uploader:RedakteurVolta
Datum/Zeit:13.01.2008 00:02:55

Const  e_con As Double = 2.718281828459045

Function asm_exp (x As Double) As Double
  Asm
    fld qword ptr [x]
    fldl2e
    fmulp st(1), st(0)
    fld   st(0)
    frndint
    fxch
    fsub  st(0), st(1)
    f2xm1
    fld1
    faddp st(1), st(0)
    fscale
    fstp qword Ptr [Function]
    fstp  st(0)
  End Asm
End Function

Function e As Double
  Asm
    fld1
    fldl2e
    fsub st(0), st(1)
    f2xm1
    fadd st(0), st(1)
    fscale
    fstp qword Ptr [Function]
    fstp st(0)
  End Asm
End Function


Screen 18,32
Dim As Double x=2.2, n
? Exp(x)
? asm_exp(x)
? asm_exp(1)
? e
? e_con
Sleep