$SAVE NOLIST rq$enter$interrupt: PROCEDURE( level, except$ptr ) EXTERNAL; DECLARE level WORD, except$ptr POINTER; END rq$enter$interrupt; $RESTORE