Хочу прерывание на Паскале от СОМ-порта, (Турбо Паскаль, не Дельфи) Опции

[Diusha]

Программка (запускается под DOS, Win98):

CODE

Uses crt, dos;

Label Finish, ll00;

Const
baud = 38400;
COM=$3F8 { $2F8 };
intr=$0C { $0B };

Var
stv, srv : pointer;
cnt : word;
b : byte;
key : char;
speed_fr : word;

{----------------------------------------------------------------------------------}
{$F+}
Procedure int_1c; interrupt;
Begin
inc(cnt);
if cnt=18 then begin cnt:=0; write ('g') end;
End;
{$F-}
{-----------------------------------------------------------------------------------}
{$F+}
Procedure int_rs; interrupt;
Begin
b:=port[COM];
write (b,' ');
End;
{$F-}
{----------------------------------------------------------------------------------}

BEGIN
speed_fr:=trunc(115200/baud+0.5);
port[COM+3]:=$80; { ўЄ«. гбв ­®ўЄ бЄ®p®бвЁ }
port[COM+1]:=hi(speed_fr); port[COM+0]:=lo(speed_fr);
port[COM+3]:=$00; { 5 bit, 1 stop, parity=none }
port[COM+4]:=0;
port[COM+2]:=$03; { FIFO on }
port[COM+1]:=$01; { interrupt when rec'd data is available }

getintvec($1C,stv);
getintvec(intr,srv);

cnt:=0;
setintvec($1C,addr(int_1c));
setintvec(intr,addr(int_rs));

ll00 : if keypressed then begin
key:=readkey;
goto Finish;
end;

{ b:=port[COM+5]; }
{ if (b and $01)<>0 then begin }
{ b:=port[COM]; }
{ write (b,' '); }
{ end; }

goto ll00;

Finish :
setintvec($1C,stv);
setintvec(intr,srv);
halt;
END.

Процедурка int_1c - для тренировки - раз в сек пишет "g"; работает. По ее образу и подобию - int_rs - должна непечатать принятые с СОМ данные. Не работает. Что не так?
Порт настраивается нормально, в этом легко убедиться раскомментировав 5 строчек выше "goto ll00;"

Причина редактирования: Оформление цитаты исходника.

[XVR]

Прерывание от COM порта еще надо разрешить в контролере прерываний (предполагаю, что оно весит на IRQ3)

Код

port[$21] := port[$21] and $f7;

Ну и про

Код

port[$20] := $20;

в конце тоже забывать не надо

[vvs157]

Прерывание от COM порта еще надо разрешить в контролере прерываний (

И еще в USART чипе разрешить прохождение прерывание на контроллер (помимо разрешения на прерывание в самом контроллере). Проще взять готовую библитотеку для ДОС для работы с COM. Вообще-то работа с СОМ по прерываниям в ДОС требует большой аккуратности и имеет много нюансов, "наскоком" не берется. BIOS поддерживает только поопросный режим работы с портом, что малоприемлемо.

[defunct]

И еще в USART чипе разрешить прохождение прерывание на контроллер

Не USART, а UART.
Ну и это уже делается. В код топикстартера хоть заглядывали?

Проще взять готовую библитотеку для ДОС для работы с COM.

Вот чего не надо делать, так это брать готовую г...о-библиотеку.

[_Pasha]

Вот чего не надо делать, так это брать готовую г...о-библиотеку.

Человек хотел понять, как написать ISR под ДОС. Я дал ссылку на классику (правда, гуаноподобную), достаточную для понимания и допиливания. А Вы ее в сад отправляете.

[defunct]

А Вы ее в сад отправляете.

К ссылке у меня не было никаких вопросов. Там все ОК ;>
Смотреть - наздоровье. Пользовать-то зачем?

И смысл этой магии мне непонятен, т.к. не нашел понятного описания этих портов

Понятное описание этих и всех остальных портов можно найти в TechHelp который можно взять здесь

В двух словах, есть 2 класса прерываний - программные и аппаратные.
Программные прерывания такие как int 10h,.. 13h,.. 16h,.. int 21h... вызываются из программы специальной командой INT xx для доступа к BIOS/DOS (каким-то иным) программным сервисам.

Аппаратные прерывания (int 8, 9 ..0Fh ..) - вызываются аппаратурой (периферией). Исторически у x86 всего один вход INT для аппаратного прерывания, а периферии много: таймер, клавиатура, ком порты, и т.д. и т.п. Вопрос как это все подключить к одному входу проца? Ответ - добавить внешний контроллер прерываний, у которого будет столько входов сколько периферии, а выход на проц - один. Вот именно этот контроллер прерываний и располагается в портах 0x20, 0x21 и его надо настроить чтобы соответвующий сигнал запроса на прерывание от COM1 порта (IRQ4) - превратить в INT...