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