Вопрос про прерывания в паскале, Как кроме моего оставить и штатное? Опции

[Diusha]

Упрощенно прога:

Var xxx : pointer;
{$F+}
Procedure pr; interrupt;
begin
. . . . . .
end;
{F-}
BEGIN
getintvec($08, xxx);
setintvec($08, addr(pr));
. . . . . . .
END.

Вместо срандартного прерывания $08 назначена и выполняется моя процедурка pr, это работает. А как бы так сделать, чтобы кроме pr выполнялась и штатная ПП этого прерывания? (то биш в pr надо как-то вставить CALL (xxx) ???)

[AHTOXA]

Я делал так:

Код

  GetIntVec($08,Save_08);
  SetIntVec($60,Save_08);
  SetIntVec($08,@Int_08);

и в прерывании:

Код

procedure Int_08;
begin
...
  Intr($60,Reg);
  Port[$20]:=$20;
end;

Но я перепрограммировал таймер, потому вынужден был висеть на 8м прерывании. Если такой нужды нет, то лучше 1C конечно.

[zltigo]

SetIntVec($60,Save_08);

Только вот гарантий свободости 60h вектора в общем случае нет.

[AHTOXA]

Конечно. Но это не помешает работать нашей программе

[zltigo]

Конечно. Но это не помешает работать нашей программе

Еще как помешает - именно в качестве софтового прерывания его именно и используют, например Ethernet пакетный драйвер попытается общаться с обработчиком.

[AHTOXA]

Еще как помешает - именно в качестве софтового прерывания его именно и используют, например Ethernet пакетный драйвер попытается общаться с обработчиком.

Это настраивается. И в пакетном драйвере, и в программе.
Однако же не припоминаю конфликтов. У меня это работало под всеми дос от 3.3 до 7.0 и с несколькими драйверами сетевух.