Error Project2.dpr(2): Invalid compiler directive: 'ASMMODE' "Delphi7"
выдает данную ошибку при попытке запустить код. Возможно из-за того что я создаю файл Console Aplication.
program LR03;
{$ASMMODE Intel} {директива компилятору по формату ассемблерной вставки}
var freq:real; {объявление переменных разного типа freq-действительное число, n -целое, ans- символ, n_H,n_L -байты}
var n:integer;
ans:char;
n_L,n_H:byte;
label Start; {объявление метки}
begin
Start:
Writeln('Writefrequency =');
Readln(freq);{Получение желаемой частоты от пользователя}
if((freq>=20)and(freq<=20000)){проверка соответствует ли желаемая частота заданому диапазону}
then
begin
n:=round(1193180/freq);{вычисление коэфициента пересчёта и округление его до целого числа}
n_H:=hi(n);
n_L:=lo(n);{разделение коэфициента пересчёта на младшую и старшую часть}
asm
mov DX,$43
mov AL,$B6
out DX,AL {Передача управляющего слова (10110110) = B6 в порт с адресом 43h}
mov DX,$42
mov AL,n_L
out DX,AL
mov AL,n_H
out DX,AL {Передача младшей, а потом старшей части коэфициентапересчёта в порт с адресом 42h}
mov DX,$61
in AL,DX
or AL,$03
out DX,AL {Разрешение работы второго канала таймера и разрешение вывода выходного сигнала на системный динамик}
end;
write('Continue? <y/n>');
readln(ans); {Запрос пользователю на продолжение и получение ответа от пользователя}
if((ans='y')or(ans='Y'))then goto Start; {Если ответ положительный- то переход к началу программы}
asm
mov DX,$61
in AL,DX
and AL,$FC
out DX,AL {Если ответ отрицательный- то запрещение работы второго канала таймера и запрещение вывода выходного сигнала на системный динамик}
end
end
else {Если желаемая частота не лежит в заданом диапазоне- то выдача сообщения об ошибке и переход к началу программы}
begin
writeln('Error');
goto Start;
end
end.