$DEBUG PAGELENGTH(50)

/*************/
/*           */ 
/*  I N T R  */
/*           */
/*************/

M$INTR: DO;

$NOLIST
$INCLUDE(MDSIO.DCL)
$LIST

/*********************************************/
/*                                           */
/*  'BREAK' interrupt routine                */
/*                                           */
/*  restarts menu program after an interrupt */
/*   #6 has occured.                         */
/*                                           */
/*  LAST UPDATED - 26.5.82  DROR             */
/*                                           */
/*********************************************/

DECLARE START LABEL EXTERNAL;  /* start of main program */

INTR: PROCEDURE INTERRUPT 6 PUBLIC;
   DISABLE;
   OUTPUT(INT$CNTL$CMD)=20H;   /* 'end of interrupt' to interrupt controller */
   ENABLE;
   GO TO START;     /* restart menu program */
END INTR;

END M$INTR;