5_2 asm

.686
.model flat
public _nowy_exp
.data
jeden       dd      +1.0
jed     dd      +1.0
.code
_nowy_exp PROC
    finit
    push    ebp
    mov     ebp, esp
    mov     ebx, 19
    mov     edx, 1

    fld     dword ptr [ebp + 8]
    fld     jeden
    fld     jeden

ptl:
    inc     edx
    mov     jeden, edx
    fild    jeden
    fmul    st(1), st(0)
    fstp    st(0)
    fld     st(2)
    fdiv    st(0), st(1)
    fadd    st(2), st(0)
    fstp    st(0)
    fld     dword ptr [ebp + 8]
    fmul    st(3), st(0)
    fstp    st(0)
    dec     ebx
    jnz     ptl

    fld     st(1)
    fld     jed
    fadd    st(0),st(1)

    pop     ebp
    ret
_nowy_exp ENDP
END