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

[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) ???)

[zltigo]

...то биш в pr надо как-то вставить CALL (xxx)

И пред этим pushf не забыть , ибо iret. А вообще не лезте на 08h таймера, тем более Паскль... Учтите матчасть - 1Сh для юзеров.
И вообще, учитесь вопросы задавать, тем более на эмбеддерском форуме вдруг со своими боладопаскалями и писишкаим .

[Diusha]

1. А Вы не могли бы написать с правильным синтаксисом про pushf и call?
2. Правильно ли я понял, что если 1С, а не 08, то call не нужен?
(сейчас откопал, что inicially он указывает на dummy iret)

[zltigo]

1. А Вы не могли бы написать с правильным синтаксисом про pushf и call?

На борландячем паскале нет - нет желания вспоминать. На C++, даже борландячем, могу, на ASM могу...

2. Правильно ли я понял, что если 1С, а не 08, то call не нужен?

Это уже штатный callback из 08h - вешайте на него свой обработчик прерывания и пользуйте.

[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 конечно.

[Diusha]

zltigo, AHTOXA,
спасибо!

[zltigo]

SetIntVec($60,Save_08);

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

[AHTOXA]

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

[zltigo]

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

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

[AHTOXA]

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

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

[zltigo]

Это настраивается. И в пакетном драйвере, и в программе.

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

[Demeny]

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

Код

const
          MyStackSize = 2048;
type      
...
          TInterrupt = procedure (Flags: Word);
...
var
...
          { store original Interrupt service routine }
          OldIntHandler : TInterrupt;  
          
          SSp, SPp : word;
          MyStack : array[1..MyStackSize] of char;  
...


{==== Interrupt Handlers ====}

{$F+}

procedure MyIntHandler(Flags, CS, IP, AX, BX, CX, DX, SI, DI, DS, ES, BP: Word);
                     interrupt;
begin
  asm
    mov SSp, ss
    mov SPp, sp
    mov ss, ax
    mov ax, offset MyStack
    add ax, MyStacksize-2
    mov sp, ax
  end;
  
.... {user defined code}....

  OldIntHandler(Flags);

  asm
    mov ss, SSp
    mov sp, SPp
  end;

  port[$20]:=$20;

end;

{$F-}

begin
...
getintvec($08,@OldIntHandler);
setintvec($08,@MyIntHandler);
...
end.

[AHTOXA]

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

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

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

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

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

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

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

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

[zltigo]

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

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

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

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

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

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

[Demeny]

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

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

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

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