Ассемблер в Паскале

[JeyKip]

добрый вечер...у меня возникла проблема с программированием сопроцессора посредством ассемблера в среде паскаля...он не видит функцию fsincos...почему такое может быть..?? на С++ это воспринимается нормально...!! помогите, кто знает, пожалуйста..!!

uses  crt;
var
ry,rx,x,y,angl:integer;
two_pi,yc,xc:double;
begin
two_pi:=180.0;
angl:=1;
ry:=100;
rx:=100;


asm

   mov ah,0h
   mov al,0Dh
   int 10h

   MOV  AX,0A000H      ;указываем на видеобуфер
   MOV  ES,AX



@create:

	finit
	fldpi
	fld		two_pi
	fdiv
	fstp	two_pi

   mov cx,360
@do:

	fld		two_pi
	fild		angl
	fmul

        fsincos      ;в этом месте ошибка. Если убрать, то работает..но    нужно с ней, чтобы построить окружность
	fild		ry
	fmul
	fild		yc
	fadd
	fistp	y

	fild		rx
	fmul
	fild		xc
	fadd
	fistp	x

	fwait


@video:
   mov ax,x
   mov bh,al
   mov ax,y
   mov bl,al

   MOV  DX,3C4H        ;указываем на адресный регистр
   MOV  AL,8           ;номер регистра
   OUT  DX,AL          ;посылаем его
   inc dx             ;указываем на регистр данных
   MOV  AL,0FFh   ;маска
   OUT  DX,AL          ;посылаем данные

   MOV  AL,ES:[BX]     ;читаем содержимое в задвижку
   MOV  AL,0           ;готовимся к очистке
   MOV  ES:[BX],AL     ;чистим задвижку

   MOV  DX,3c4H        ;указываем на адресный регистр
   MOV  AL,2           ;индекс регистра маски карты
   OUT  DX,AL          ;установка адреса
   INC  DX             ;указываем на регистр данных
   MOV  AL,4
   OUT  DX,AL          ;посылаем код цвета

   MOV  AL,01H        ;любое значение с установленным  битом
   MOV  ES:[BX],AL     ;выводим точку

   inc angl
   loop @do


end;
readln
end.