.data
jeden: .double 1
dwa: .double 2

.section .text
.global fx, gx
.type fx, @function
.type gx, @function

fx:
push    %rbp
mov     %rsp, %rbp
#finit
sub     $8, %rsp
movsd   %xmm0, (%rsp)
fldl    (%rsp)
fmul %st(0), %st(0)
faddl jeden
fsqrt
fsubl jeden
fxch %st(1)
fstp    %st
fstpl   (%rsp)
movsd   (%rsp), %xmm0
mov     %rbp, %rsp
pop     %rbp
ret

gx:
push    %rbp
mov     %rsp, %rbp
#finit
sub     $8, %rsp
movsd   %xmm0, (%rsp)
fldl    (%rsp)
fmul %st(0), %st(0)
faddl jeden
fsqrt
faddl jeden
fldl    (%rsp)
fmul %st(0), %st(0)
fdiv %st(1), %st(0)
fxch %st(1)
fstp    %st
fstpl   (%rsp)
movsd   (%rsp), %xmm0
mov     %rbp, %rsp
pop     %rbp
ret