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.
    

Ответы (0 шт):