funcs

section .rodata
    const2 dq 2.0
    const3 dq 3.0
    const4 dq 4.0

section .text
global f1
global f2
global f3
global t_f1
global t_f2
global t_f3
global t_f4
f1:
    push ebp
    mov ebp, esp
    finit
    fld qword [ebp + 8]
    fld1
    fsubp
    fld st0
    fmulp
    fld1
    faddp
    fld qword [const3]
    fxch
    fdivp
    mov esp, ebp
    pop ebp
    ret

f2:
    push ebp
    mov ebp, esp
    finit
    fld1
    fld qword [const2]
    fdivp
    fld qword [ebp + 8]
    faddp
    fsqrt
    mov esp, ebp
    pop ebp
    ret

f3:
    push ebp
    mov ebp, esp
    sub esp, 8
    finit
    fldl2e
    fld qword [const2]
    fyl2x
    fist dword [ebp - 4]
    fild dword [ebp - 4]
    fsubp
    f2xm1
    fld1
    faddp
    fild dword [ebp - 4]
    fxch
    fscale
    fstp st1
    fld qword [ebp + 8]
    fchs
    fxch
    fyl2x
    fist dword [ebp - 4]
    fild dword [ebp - 4]
    fsubp
    f2xm1
    fld1
    faddp
    fild dword [ebp - 4]
    fxch
    fscale
    fstp st1
    leave
    ret

t_f1: ; -x^2 + 4
    push ebp
    mov ebp, esp
    finit
    fld qword [ebp + 8]
    fld qword [ebp + 8]
    fmulp
    fchs
    fld qword [const4]
    faddp
    leave
    ret

t_f2: ; y = 3
    push ebp
    mov ebp, esp
    finit
    fld qword [const3]
    leave
    ret

t_f3: ; -2x + 4
    push ebp
    mov ebp, esp
    finit
    fld qword [ebp + 8]
    fld qword [const2]
    fchs
    fmulp
    fld qword [const4]
    faddp
    leave
    ret

t_f4: ; x^3
    push ebp
    mov ebp, esp
    finit
    fld qword [ebp + 8]
    fld qword [ebp + 8]
    fld qword [ebp + 8]
    fmulp
    fmulp
    fchs
    leave
    ret