.386
.model flat, c
.data
num4 dd 4.0
num1 dd 1.0
num8 dd 8.0
num2 dd 2.0
.code
calc PROC
    push ebp
    mov ebp, esp
fld dword ptr[ebp +8];C
fcom dword ptr[ebp +12];D
fstsw ax;
sahf
ja first
fld qword ptr[ebp +16];A
fdiv dword ptr[ebp + 12];D
fyl2x
fdiv dword ptr[ebp+8]
fldln2
fmul
fmul num4
fadd num1
fld dword ptr [ebp+8]
fsub dword ptr[ebp+12]
fadd qword ptr[ebp+16]
fdiv
jmp Endfunc
first:
fld dword ptr[ebp+12]   ;c>d
fsub num1
fyl2x
fdiv  dword ptr[ebp+8]
fldlg2
fmul
fmul num8
fsub dword ptr [ebp+8];чисельник
fld qword ptr [ebp+16]
fmul num2
fld dword ptr[ebp+12]
fdiv dword ptr[ebp+8]
fadd
fdiv
Endfunc:
    pop ebp
    ret
calc ENDP

end