$SYSPROG ON$
PROGRAM isrtest(INPUT,OUTPUT);
$SEARCH '#3:SERIAL5'$             { or wherever }
IMPORT iodeclarations,general_0,general_1,general_2,
       serial_3,serial_5;

VAR i   : INTEGER;
    isc : INTEGER;

PROCEDURE myproc(temp : INTEGER);
BEGIN
  WRITELN('break received       ISR ');
END;

BEGIN
  isc:=-1;
  FOR i:=0 TO 31 DO IF isc_table[i].card_id=hp98628_async THEN isc:=i;
  WRITELN(isc);
  
  set_baud_rate   (isc,2400);
  set_parity      (isc,odd_parity);
  set_char_length (isc,7);
  set_stop_bits   (isc,1);
  
  iocontrol(isc,12,1);
  
  writestringln(isc,'ready when you are CB - to hit break');
  
  on_break(isc,myproc,0);
  
  i:=0;
  WHILE TRUE DO BEGIN
    i:=i+1;
    WRITELN('waiting ',i:6);
  END;
END.
