[fpc-pascal]SetIsrVec / GetIsrVec

[Peter Baumgartner]

Using version 1.0.6 (23.4.2002), with GO32 Extender, we have the problem
that the procedures SETISRVEC and GETISRVEC do not work properly:

We want to save first the old IRQ vector and then set a new one.

As result, OldIsr is always NIL !


Did anyone out there ever have such a problem ?


Thanks for help


Peter Baumgartner


----------------------------------------------------------------------------
-
This is our code :

const
   Irq     : 4;
   IRQ_Tab : Array[0..15] of Byte = ($08, $09, $0A, $0B, $0C, $0D, $0E, $0F,
                                     $70, $71, $72, $73, $74, $75, $76,
$77);

var
   OldIsr:Pointer;

procedure ComIsr; Interrupt;
begin
   ...
end;

begin

...

GetIntVec(IRQ_Tab[Irq],OldIsr);
if OldIsr = nil then begin
   WriteLn('OldIsr = NIL !!!');
   Halt;
end;

SetIntVec(IRQ_Tab[Irq],Addr(ComIsr));

...

end.
----------------------------------------------------------------------------
----

Peter Baumgartner
WWW: www.timetronic.it
eMail: peter.baumgartner at timetronic.it
Phone: (+39) 0474 410012
Fax: (+39) 0474 410012
Mobil: (+39) 329 4960006