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

[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]

Естествнно настраивается, если знать что надо убираться с этого прерывания при использовании Вашей программы

А какие проблемы настроить? Почему захват пакетным драйвером вектора 60h вас не смущает, а захват оного моей программой - смущает?

можно и искать свободный, эмулировать jump,... многое, что можно...

Да много чего можно, кто же спорит

Вот заведомо рабочий код с вызовом старого обработчика.

А где pushf перед вызовом?

Здесь также продемонстрирована подмена стека прерванной программы на собственный стек размером 2048 байт. Подмена стека нужна, если только предполагается запускать программы в защищённом режиме DPMI, иначе возникнет "Runtime Error 202"

Ничего не возникает и без этого.

[zltigo]

А какие проблемы настроить? Почему захват пакетным драйвером вектора 60h вас не смущает, а захват оного моей программой - смущает?

Надо отличать минимально необходимые настройки от лишних сущностей.

А где pushf перед вызовом?

В приведенном случае вызываемя функция вызывается с параметром и декларирована, как обработчик прерывания.

Ничего не возникает и без этого.

Слишком категорично . Работает какая-то программа, имеет свой стек, на который и рассчитывает и вдруг ее кто-то прерывает и начинает пользовать ее стек . Естественно, если Вы воспользуетесь счинанными байтами практически наверняка ничего не произойдет - редко стеки до байта рассчитывают, а вот если что-то будете более-менеее суровое в прерывании делать, то тогда свой стек надо ставить. Вопрос только как, ибо ASM вставки типа приведенных сносят оптимизацию борланду начисто.