%include "io.inc"

section .rodata
    fstr db "%lf", 10, 0

section .data
    a dq 0.5
    b dq 3.0
    c dq 2.5
    d dq 9.5
    e dq 5.0
    f dq -1.5
    g dq -5.0

    x dq 10.3456
    ans dq 0.0

section .text
global f1
f1:
    push ebp
    mov ebp, esp

    finit
    fld qword[a]
    fld qword[ebp + 8]
    fld1
    faddp
    fdivp
    fld1
    faddp
    fld qword[b]
    fmulp

    leave
    ret

global f2
f2:
    push ebp
    mov ebp, esp

    finit
    fld qword[ebp + 8]
    fld qword[c]
    fmulp
    fld qword[d]
    fsubp

    leave
    ret

global f3
f3:
    push ebp
    mov ebp, esp

    finit
    fld qword[e]
    fld qword[ebp + 8]
    fdivp

    leave
    ret

global df1
df1:
    push ebp
    mov ebp, esp

    finit
    fld qword[f]
    fld qword[ebp + 8]
    fld1
    faddp
    fld ST0
    fmulp
    fdivp

    leave
    ret

global df2
df2:
    push ebp
    mov ebp, esp

    finit
    fld qword[c]

    leave
    ret

global df3
df3:
    push ebp
    mov ebp, esp

    finit
    fld qword[g]
    fld qword[ebp + 8]
    fld qword[ebp + 8]
    fmulp
    fdivp

    leave
    ret


global CMAIN
CMAIN:
    push ebp
    mov ebp, esp
    and esp, ~15
    sub esp, 16
    xor eax, eax
    leave
    ret