soproc

.586
.model flat, stdcall
option casemap: none
;
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\masm32.inc
include \masm32\include\kernel32.inc
include \masm32\include\debug.inc
include \masm32\include\msvcrt.inc

include \masm32\macros\macros.asm

includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\debug.lib
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\msvcrt.lib
includelib \masm32\lib\fpu.lib

.data
a real8 1.5
b real8 2.5
tri real8 3.0
dva real8 2.0
four real8 4.0
res real8 0.0

.code
start:

; res = (4*a^2*b^2-2*a^2*b)/(2*a*b+3*a)

finit; очистка стека
fld a
fmul st,st
fld b
fmul st,st ;
fmul
fld four
fmul ; 4*a^2*b^2

fld a
fmul st,st
fld b
fmul ;a^2*b
fld dva
fmul ; 2*a^2*b
fsubp st(1), st ; (4*a^2*b^2-2*a^2*b)

fld b
fld a
fmul;ab
fld dva
fmul ;2*a*b


fld a
fld tri
fmul ; 3*a

fsubp st(1), st ; (2*a*b+3*a)

fdiv
fstp res
print "res = "
print real8$(res),13,10

invoke crt__getch

invoke crt_exit, 0

end start