Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!usc!zaphod.mps.ohio-state.edu!ub!boulder!barbour
From: barbour@boulder.Colorado.EDU (Jim Barbour)
Newsgroups: comp.os.msdos.programmer
Subject: WANTED: example of how to catch clock interrupts (int 8)
Message-ID: <28451@boulder.Colorado.EDU>
Date: 21 Oct 90 23:11:16 GMT
Sender: news@boulder.Colorado.EDU
Reply-To: barbour@alta.Colorado.EDU (Jim Barbour)
Distribution: usa
Organization: University of Colorado, Boulder
Lines: 19

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