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

[Diusha]

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

Код

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 - должна нaпечатать принятые с СОМ данные. Не работает. Что не так?
Порт настраивается нормально, в этом легко убедиться раскомментировав 5 строчек выше "goto ll00;"

[volvo]

Хм... Навскидку - где занесение значения $20 в порт $20 в конце обработчика прерывания от COM-порта? Т.е., последней командой обработчика должно быть

Port[$20] := $20;

Это первое... А второе, насколько я помню, в обработчиках прерываний с номерами меньшими $16, не должно быть вызовов процедур ввода-вывода Паскаля (равно, как и процедур дин. распределения памяти и вызовов функций операционной системы), так что лучше запоминай полученный байт в глобальной переменной, устанавливай глобальный же флажок "получено", и выходи из прерывания, а в основной программе (в цикле) проверяй состояние флажка "получено", и если он установлен - то печатай байт и снимай флажок.