Полная засада с ассемблером, помогите кто чем может!!!

Народ помогите пожалуйста! сразу говорю что в ассемблере я понимаю очень мало, т.к. нам его только начали преподавать, но совершенно забыли убрать из учебного плана курсач, перед нами только извенились но сказали делать, человек пообещавшийся помочь мне и обьяснить почти в последний момент отказался от помощи....
теперь обращаюсь к вам, как к последней надежде!!!
нужно написать прогу на ассемблере:
Рзложение функций (sin, cos, tg, e^x, a^x и других) в ряд Тейлора используя длинную арифметику (не менее 200 розрядов)(сама и понятия не имею, что это за фигня, погуглю, результаты выложу)
я порылась в нете но ничего особого там не нашла...
все что нашла....

Разложение синуса в ряд Тейлора

Задача:
Используя разложение в ряд Тейлора найти значение sin(x) с заданной точностью e.

Код:

program sin_teilor;
var x,stx,sint,e: real;
i,fakt,z: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
stx:= x; {x в степени}
fakt:= 1; {значение факториала в знаменателе}
sint:= 0; {первый элемент в разложении}
i:= 1; {счётчик}
z:= 1; {знак элемента}
while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности}
sint:=sint+z*stx/fakt;
inc(i,2);
stx:=stx*x*x;
fakt:=fakt*(i-1)*i;
z:=z*(-1); {смена знака}
end;
Writeln('Количество элементов в разложении = ',i div 2);
Writeln('Значение sin(',x:6:6,')= ',sint:6:6);
Writeln('Значение компьютера: ',sin(x):6:6);
Readln;
End.

Разложение ex в ряд Тейлора
ЗАДАЧА:
Используя разложение в ряд Тейлора найти значение ex с заданной точностью e.

КОД:

program ex_teilor;
var x,stx,ex,e: real;
i,fakt: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
stx:=x; {x в степени}
fakt:=1; {значение факториала в знаменателе}
ex:=1; {первый элемент в разложении}
i:=1; {счётчик}
while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности}
ex:=ex+stx/fakt;
inc(i);
stx:=stx*x;
fakt:=fakt*i;
end;
Writeln('Количество элементов в разложении = ',i+1);
Writeln('Значение e^',x:6:6,'= ',ex:6:6);
Writeln('Значение компьютера: ',exp(x):6:6);
Readln;
End.

Разложение ln(x) в ряд Тейлора
ЗАДАЧА:
Используя разложение в ряд Тейлора найти значение ln(x) с заданной точностью e.
ОПИСАНИЕ:

КОД:
program lnx_teilor;
var x,stx,lnt,e: real;
i,fakt,z: integer;
Begin
Write('Введите 1 < x < 2: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
stx:= x-1; {x в степени}
fakt:= 1; {значение знаменателя}
lnt:= 0; {первый элемент в разложении}
i:= 1; {счётчик}
z:= 1; {знак элемента}
while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности}
lnt:=lnt+z*stx/fakt;
inc(i);
stx:=stx*(x-1);
fakt:=i;
z:=z*(-1); {смена знака}
end;
Writeln('Количество элементов в разложении = ',i);
Writeln('Значение ln(',x:6:6,')= ',lnt:6:6);
Writeln('Значение компьютера: ',ln(x):6:6);
Readln;
End.


Разложение косинуса в ряд Тейлора
ЗАДАЧА:
Используя разложение в ряд Тейлора найти значение cos(x) с заданной точностью e.
ОПИСАНИЕ:

КОД:
program cos_teilor;
var x,stx,cost,e: real;
i,fakt,z: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
stx:= x*x; {x в степени}
fakt:= 2; {значение факториала в знаменателе}
cost:= 1; {первый элемент в разложении}
i:= 2; {счётчик}
z:= -1; {знак элемента}
while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности}
cost:=cost+z*stx/fakt;
inc(i,2);
stx:=stx*x*x;
fakt:=fakt*(i-1)*i;
z:=z*(-1); {смена знака}
end;
Writeln('Количество элементов в разложении = ',i div 2 + 1);
Writeln('Значение cos(',x:6:6,')= ',cost:6:6);
Writeln('Значение компьютера: ',cos(x):6:6);
Readln;
End.


Разложение гиперболического синуса в ряд Тейлора
ЗАДАЧА:
Используя разложение в ряд Тейлора найти значение sh(x) с заданной точностью e.
ОПИСАНИЕ:

КОД:
program sh_teilor;
var x,stx,sh,e: real;
i,fakt: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
stx:=x; {x в степени}
fakt:=1; {значение факториала в знаменателе}
sh:=0; {первый элемент в разложении}
i:=1; {счётчик}
while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности}
sh:=sh+stx/fakt;
inc(i,2); {увеличение i на 2}
stx:=stx*x*x;
fakt:=fakt*(i-1)*i;
end;
Writeln('Количество элементов в разложении = ',i div 2);
Writeln('Значение sh(',x:6:6,')= ',sh:6:6);
Readln;
End.

Разложение гиперболического косинуса в ряд Тейлора
ЗАДАЧА:
Используя разложение в ряд Тейлора найти значение ch(x) с заданной точностью e.
ОПИСАНИЕ:

КОД:
program ch_teilor;
var x,stx,ch,e: real;
i,fakt: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
stx:= x*x; {x в степени}
fakt:= 2; {значение факториала в знаменателе}
ch:= 1; {первый элемент в разложении}
i:= 2; {счётчик}
while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности}
ch:=ch+stx/fakt;
inc(i,2);
stx:=stx*x*x;
fakt:=fakt*(i-1)*i;
end;
Writeln('Количество элементов в разложении = ',i div 2 + 1);
Writeln('Значение ch(',x:6:6,')= ',ch:6:6);
Readln;
End.


Для masm32: (количество членов ряда задается в переменной n)
Код ASM

.model flat, stdcall
option casemap :none

include \masm32\include\windows.inc
include \masm32\include\fpu.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\fpu.lib


BSIZE equ 30

.data
z2 dt 0.0
elem dt 0.0
rez dt 0.0
n dd 10
counter dd 0
buf1 db '6.28',0

.data?
z dt ?
buf db BSIZE dup (?)
.code
main proc

LOCAL hOutPut :DWORD
LOCAL hInput :DWORD
LOCAL nRead :DWORD
LOCAL nWriten :DWORD

finit
invoke GetStdHandle,STD_INPUT_HANDLE
mov hInput, eax
invoke GetStdHandle, STD_OUTPUT_HANDLE
mov hOutPut, eax

invoke ReadConsole, hInput, addr buf, BSIZE, ADDR nRead, NULL
mov ebx, nRead
xor al, al
mov [buf+ebx-2], al
invoke FpuAtoFL, addr buf, addr z, DEST_MEM

fld1
fld1
fstp rez
fstp elem
fld z
fld st(0)
fmul
fstp z2

mov ecx, n
l:
inc counter
fild counter
fld st
fadd
fld st
fld1
fsub
fmul
fld z2
fdivr
fchs
fld elem
fmul
fld st
fstp elem
fld rez
fadd
fstp rez
loop l

invoke FpuFLtoA, ADDR rez,10, ADDR buf, SRC1_REAL or SRC2_DIMM
invoke WriteConsoleA, hOutPut, ADDR buf, BSIZE, ADDR nWriten, NULL

invoke ExitProcess,0
main endp
end main

еще раз прошу помогите, а то мне будут кранты