Hello Hans,

you could try this:

procedure xxx; interrupt y;
begin
t := 0;
repeat
...
inc (t);
until (t > 500) or (P1.2);
end;

Try avoiding delay loops in tinterrupt routines...

Wich compiler are you using?

Mike