$SAVE NOLIST

rq$set$interrupt:  PROCEDURE( level,
                              interrupt$task$flag,
                              interrupt$handler,
                              interrupt$handler$ds,
                              except$ptr ) EXTERNAL;

DECLARE level                   WORD,
        interrupt$task$flag     BYTE,
        interrupt$handler       POINTER,
        interrupt$handler$ds    TOKEN,
        except$ptr              POINTER;

END rq$set$interrupt;

$RESTORE