1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

    PUSH    EAX
    FILD    DWORD PTR [ESP]

    FLDLN2
    FLD     TBYTE PTR [A]               // Load the input number
    FYL2X                               // Get the log out of it
    FDIVRP                              // Divide the log by N to get the N-th root's log
    FLDL2E                              // Calc e^(ln(N-th root)) --> N-th root
    FMULP   ST(1), ST(0)
    FLD     ST(0)
    FRNDINT
    FSUB    ST(1), ST(0)
    FXCH    ST(1)
    F2XM1
    FLD1
    FADDP
    FSCALE
    FSTP    ST(1)

    POP     EAX					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function xfPower(a,b : Extended) : Extended;
asm
  ffree st(0)
  ffree st(1)
  fld   b          //b laden
  fld   a          //a laden
  fyl2x            //b*ln(a)
  fst   st(1)      //in st(1) kopieren
  frndint          //runden
  fsub  st(1),st   //Vorkommaanteil auf 0 setzen
  fld1             //1 laden
  fscale           //temp:="2 hoch Integer-Anteil"
  fld   st(2)      //Nachkommaanteil laden
  f2xm1            //"2 hoch Nachkommaanteil -1"
  fld1             //1 laden
  faddp st(1),st   //+1
  fmulp st(1),st   //*temp
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Function ASMPower(A, B:Extended): Extended;
asm
    FLD     TBYTE PTR [B]
    FLDLN2
    FLD     TBYTE PTR [A]               // Load the input number
    FYL2X                               // Get the log out of it
    FMULP                               // Multiply the log by N to get the N-th powers's log
    FLDL2E                              // Calc e^(ln(a)*B) --> A^^B
    FMULP   ST(1), ST(0)
    FLD     ST(0)
    FRNDINT
    FSUB    ST(1), ST(0)
    FXCH    ST(1)
    F2XM1
    FLD1
    FADDP
    FSCALE
    FSTP    ST(1)
end;					

1:
2:
3:
4:
5:

Function Sqr(var X: Extended): Extended;
asm
    FLD     TBYTE PTR [X]
    FMUL    ST(0), ST(0)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Function Power2N(var X: Extended; N: DWORD): Extended;
asm
    FLD     TBYTE PTR [X]
    MOV     ECX, N
    INC     ECX
    JMP     @@Start
@@Loop:
    FMUL    ST(0), ST(0)
@@Start:
    DEC     ECX
    JNS     @@Loop:
end;