$SYSPROG ON$
PROGRAM isrtest(INPUT,OUTPUT);
$SEARCH '#3:HPIB5'$             { or wherever }
IMPORT iodeclarations,general_1,hpib_0,hpib_2,hpib_3,hpib_5;

VAR i   : INTEGER;

PROCEDURE myproc(temp : INTEGER);
BEGIN
  WRITELN('                     ISR ');
  TRY
    i:=spoll(730);
    WRITELN('                     ',i:4);
    clear_hpib(7,atn_line);     { so 98034 can re-assert srq line  
                                  since I used a 9835/98034 as a 
                                  device }
  RECOVER BEGIN
            WRITELN('             ISR ESCAPE');
            ioreset(7);
          END; 
END;

BEGIN
  i:=-1;
  set_timeout(7,1.0);
  on_srq(7,myproc,0);
  WHILE TRUE DO BEGIN
    WRITELN('waiting ',i:4);
  END;
END.
