Действительные числа в TurboAssembler

[Mixim]

В этом году начал изучать встроенный Ассемблер Турбо Паскаля(TASM). Сдал одну арифметическую задачу с натуральными числами, а на действительных числах серьёзно "завис". Пишу в Паскале следующий программный код со вставкой кода Ассемблера:

program zd;
uses crt;
var S,KorenIzTrex,a:real; code,kol:integer;
begin
clrscr;
kol:=0;
KorenIzTrex:=sqrt(3);

repeat
if kol=0 then
writeln('Введите число A')
else
writeln('Число А должно быть больше нуля, исправте и введите другое число');
readln(a)
kol:=1;
until a>0

asm
MOV Ax,a;

IMUL a;

IMUL KorenIzTrex;

IDIV 4;

MOV S,Ax;
end;

end.


Если переменную "а" обозначить, как в вышенаписанном коде, типом real, то машина пишет:"Error 155: Invalid combination of opcode and operands.", но это и понятно, т.к. регистр Ах может принимать лишь натуральные числа. Если же задать переменную "a" типом integer, тогда машина пишет туже самую ошибку, только на строчку "IMUL KorenIzTrex", ну это опять таки понятно - пытаюсь умножить регистр Ax на действительное число. Чтобы провести необходимые операции с действительными числами, в коде Ассемблера необходимо подключить сопроцессор, пишу после слова "asm" функцию для подключения сопроцессора "FINIT", но снова вылазит таже самая ошибка.
Подскажите, что неправильно в моём коде и как загрузить в один из регистров ST(0)..ST(7) действительные числа?

[Goodwin98]

Может быть надо вставить дерективу, которая будет указывать о том, что можно использовать сопроцессор : .287 , .387 или .8087.

Или я вас не так понял и вы все еще пытаетесь умножать с помощью imul. Если это так, тогда вам нужно использовать инструкции самого сопроцессора : fmul (умножение), fld (загрузка числа),fstp(выгрузка числа в память).

[airyashov]

real это разве не 6 байт, тогда при работе с fpu нужно преобразовывать к double например

[Mixim]

Сообщение от airyashov

real это разве не 6 байт, тогда при работе с fpu нужно преобразовывать к double например

Ни могли бы Вы уточнить, как сделать такое преобразование и как затем число типа double поместить в стек сопроцессора? И если не затруднит, подскажите как потом работать с загруженными в стек числами(с помощью регистров St или по-другому).