Передать значение двойной точности (double) из программы на "С" в функцию на ассемблере

586
.model flat,c
PUBLIC calculation
.data
  A  REAL8 ?
  B  REAL8 ?
  _C REAL8 ?
  D  REAL8 ?
  E  REAL8 ?
  K  REAL8 41.
.code
  calculation proc
  push ebp
  mov ebp,esp
 
                          ; будь это переменные типы REAL4 сделал бы как-то так :
  ;mov eax,[ebp+8]                   ;
  ;mov A, eax                        ;
  ;mov eax,[ebp+12]                  ;
  ;mov B, eax                        ;
  ;mov eax,[ebp+16]                  ;
  ;mov _C, eax                       ;
  ;mov eax,[ebp+20]                  ;
  ;mov D, eax                        ;
  ;mov eax,[ebp+24]                  ;
  ;mov E, eax                        ;
 
  ;fld A                             ; 
  ;fmul B                            ; 
  ;fld A 
  ;fmul _C
  ;fsubr ST(0),ST(1)
 
  ;fld E
  ;fadd K
  ;fld D
  ;fdivr
  ;fadd ST(0),ST(1)
 
pop ebp
ret
 
calculation endp
end

fld qword ptr [ebp+8] ;fld [A]
fld qword ptr[ebp+16] ;fld [B]

func proc a: dword, b: real8, d: dword, g: real8
        
    Local res: real8
    fld b
    fld g
    fadd
    fstp res
    
    printf("%d\n", a) ; 123
    printf("%f\n", b) ; 1.230000
    printf("%d\n", d) ; 321
    printf("%f\n", g) ; 5.554000
    printf("res: %f\n", res) ; 6.784000
    ret
func endp

.data
f_buf real8 0.0
 
.code
mov eax,[esp + 4]
mov f_buf,eax
mov eax,[esp + 8]
mov [f_buf + 4],eax
 
fld f_buf

func proc a: dword, b: real8, d: dword, g: real8
    fld b
    fld g