Лабы по МПО / LAB1 / asm

@erf$qf proc far
push bp
mov bp,sp
sub sp,32
mov word ptr [bp-2],1
mov word ptr [bp-4],0
mov word ptr [bp-6],0
mov word ptr [bp-8],0
mov word ptr [bp-10],0
mov word ptr [bp-12],0
mov word ptr [bp-14],0
mov word ptr [bp-16],0
mov word ptr [bp-18],0
mov word ptr [bp-20],0
mov word ptr [bp-22],0
mov word ptr [bp-24],0
fld dword ptr [bp+6]
fmul dword ptr [bp+6]
fstp dword ptr [bp-28]
fld dword ptr [bp-28]
fldz
fmul
fldz
fadd
fmul dword ptr [bp-28]
fldz
fadd
fmul dword ptr [bp-28]
fldz
fadd
fmul dword ptr [bp-28]
fldz
fadd
fmul dword ptr [bp-28]
fldz
fadd
fmul dword ptr [bp-28]
fldz
fadd
fmul dword ptr [bp-28]
fldz
fadd
fstp dword ptr [bp-32]
fld dword ptr [bp-28]
fchs
sub sp,8
fstp qword ptr [bp-40]
fwait
call far ptr _exp
add sp,8
fmul dword ptr DGROUP:s@
fld1
fdiv
fld dword ptr [bp-28]
fmul dword ptr [bp-32]
fldz
fadd
fmul dword ptr [bp-28]
fldz
fadd
fmul dword ptr [bp-28]
fldz
fadd
fmul dword ptr [bp-28]
fld1
fadd
fmul dword ptr [bp+6]
fmul
jmp short @1@58
@1@58:
mov sp,bp
pop bp
ret

@erf$qf endp

@erfc$qf proc far
push bp
mov bp,sp
sub sp,14
mov word ptr [bp-2],1
fld dword ptr [bp+6]
fmul dword ptr [bp+6]
fstp dword ptr [bp-6]
fld dword ptr [bp-6]
fmul dword ptr DGROUP:s@
fld1
fdivr
fstp dword ptr [bp-10]
fld dword ptr DGROUP:s@+4
fmul dword ptr [bp-10]
fld dword ptr DGROUP:s@+8
fmul dword ptr [bp-10]
fld1
fadd
fdiv
fld1
fadd
fld dword ptr DGROUP:s@+12
fmul dword ptr [bp-10]
fdivr
fld1
fadd
fld dword ptr DGROUP:s@+16
fmul dword ptr [bp-10]
fdivr
fld1
fadd
fld dword ptr DGROUP:s@+20
fmul dword ptr [bp-10]
fdivr
fld1
fadd
fdivr dword ptr [bp-10]
fstp dword ptr [bp-14]
fld dword ptr DGROUP:s@+24
fmul dword ptr [bp-10]
fld dword ptr DGROUP:s@+28
fmul dword ptr [bp-14]
fld1
fadd
fdiv
fld1
fadd
fld dword ptr DGROUP:s@+32
fmul dword ptr [bp-10]
fdivr
fld1
fadd
fld dword ptr DGROUP:s@+36
fmul dword ptr [bp-10]
fdivr
fld1
fadd
fld dword ptr DGROUP:s@+40
fmul dword ptr [bp-10]
fdivr
fld1
fadd
fdivr dword ptr [bp-10]
fstp dword ptr [bp-14]
fld dword ptr [bp-6]
sub sp,8
fstp qword ptr [bp-22]
fwait
call far ptr _exp
add sp,8
fmul dword ptr [bp+6]
fld1
fmul
fld dword ptr DGROUP:s@
fmul dword ptr [bp-14]
fld1
fadd
fdivr dword ptr [bp-10]
fld1
fadd
fmul
fld1
fdivr
jmp short @2@58
@2@58:
mov sp,bp
pop bp
ret

@erfc$qf endp

_main proc far
push bp
mov bp,sp
sub sp,2
mov word ptr DGROUP:_done,0
push ds
mov ax,offset DGROUP:s@+44
push ax
call far ptr _printf
pop cx
pop cx
@3@58:
push ds
mov ax,offset DGROUP:s@+46
push ax
call far ptr _printf
pop cx
pop cx
push ds
mov ax,offset DGROUP:_x
push ax
push ds
mov ax,offset DGROUP:s@+52
push ax
call far ptr _scanf
add sp,8
fld dword ptr DGROUP:_x
fldz
fcompp
fstsw word ptr [bp-2]
fwait
mov ax,word ptr [bp-2]
sahf
jbe short @3@114
mov word ptr DGROUP:_done,1
jmp @3@310
@3@114:
fld dword ptr DGROUP:_x
fldz
fcompp
fstsw word ptr [bp-2]
fwait
mov ax,word ptr [bp-2]
sahf
jne short @3@170
mov word ptr DGROUP:_er+2,0
mov word ptr DGROUP:_er,0
mov word ptr DGROUP:_ec+2,16256
mov word ptr DGROUP:_ec,0
jmp short @3@282
@3@170:
fld dword ptr DGROUP:_x
fcomp dword ptr DGROUP:s@+55
fstsw word ptr [bp-2]
fwait
mov ax,word ptr [bp-2]
sahf
jae short @3@226
fld dword ptr DGROUP:_x
sub sp,4
fstp dword ptr [bp-6]
fwait
push cs
call near ptr @erf$qf
pop cx
pop cx
fstp dword ptr DGROUP:_er
fld dword ptr DGROUP:_er
fld1
fsubr
fstp dword ptr DGROUP:_ec
jmp short @3@254
@3@226:
fld dword ptr DGROUP:_x
sub sp,4
fstp dword ptr [bp-6]
fwait
push cs
call near ptr @erfc$qf
pop cx
pop cx
fstp dword ptr DGROUP:_ec
fld dword ptr DGROUP:_ec
fld1
fsubr
fstp dword ptr DGROUP:_er
@3@254:
fwait
@3@282:
fld dword ptr DGROUP:_ec
sub sp,8
fstp qword ptr [bp-10]
push ds
mov ax,offset DGROUP:s@+74
push ax
fld dword ptr DGROUP:_er
sub sp,8
fstp qword ptr [bp-22]
push ds
mov ax,offset DGROUP:s@+65
push ax
fld dword ptr DGROUP:_x
sub sp,8
fstp qword ptr [bp-34]
push ds
mov ax,offset DGROUP:s@+59
push ax
fwait
call far ptr _printf
add sp,36
@3@310:
cmp word ptr DGROUP:_done,0
jne @@1
jmp @3@58
@@1:
mov sp,bp
pop bp
ret

_main endp