Упрощенно прога:
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) ???)
|