double_test.s

# %xmm0 - a
# %xmm1 - b

        .data

a:
        .double 0.0
b:
        .double 0.0

        .text

        .type f_add, @function
        .global f_add
f_add:
        movq %xmm0, a
        movq %xmm1, b
        fldl b
        fldl a
        fadd %ST(1), %ST(0)
        fstpl a
        movq a, %xmm0
        ret

# ---------------------------------
        .type f_sub, @function
        .global f_sub
f_sub:
        movq %xmm0, a
        movq %xmm1, b
        fldl b
        fldl a
        fsub %ST(1), %ST(0)
        fstpl a
        movq a, %xmm0
        ret

# --------------------------------
        .type f_div, @function
        .global f_div
f_div:
        movq %xmm0, a
        movq %xmm1, b
        fldl b
        fldl a
        fdiv %ST(1), %ST(0)
        fstpl a
        movq a, %xmm0
        ret

# --------------------------------
        .type f_mul, @function
        .global f_mul
f_mul:
        movq %xmm0, a
        movq %xmm1, b
        fldl b
        fldl a
        fmul %ST(1), %ST(0)
        fstpl a
        movq a, %xmm0
        ret