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

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

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

[Demeny]

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

А зачем ? Сохранить флаги и регистры и восстановить их - это задача старого обработчика, если он корректно написан (иначе как же он работал до этого).

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

Не возникает, если Вы не используете локальные переменные в своём обработчике. У меня, например, в обработчике прерывания идёт гигантская работа с обилием локальных переменных, вызов других функий и т. п. Поэтому я сделал себе свой "локальный" стек. Без него у меня программа валится по "Runtime Error 202" (DPMI, защищённый режим).

[zltigo]

Сохранить флаги и регистры и восстановить их - это задача старого обработчика, если он корректно написан (иначе как же он работал до этого).

Понятно переписали прием откуда-то не думая... Обработчик прерывания возвращается по iret а не по ret и соответственно из стека извлекается еще и слово флагов. Посему оно должно быть туда помещено. В Вашем коде оно помещается передачей "функции" при вызове наследуемого параметра. Естественно функция-обработчик знать о нем не знает, но зато он попадает в стек...

[Demeny]

Понятно переписали прием откуда-то не думая...

Ну дык ... если сороконожка будет думать, как ходит её каждая нога - она вообще с места не сдвинется.
А ресурс по Паскалю, откуда я это списал, и вправду неплохой http://pascal.sources.ru. Но то, что у меня это работает - истинная правда.