🚀 go-pugleaf

I'm writing a program that needs to catch the clock interrupt and do
something.  I've got one working, but its kludged and I'm looking for a 
better solution.  What I'm doing now looks like:

procedure DoStuff(..all registers .. : word) ; interrupt;
var r : registers;
begin
   .. do whatever I need to do ..
   .. Move passed registers into r...
   setintvec(8,int08saved);
   intr(8,r);
   setintvec(8,@dostuff);
end;

Does anyone know of a better way.  I'd really like an example in TP or TC.

Thanks,

Jim Barbour