$SAVE NOLIST

rq$set$priority:  PROCEDURE( task$t,
                             priority,
                             except$ptr ) EXTERNAL;

DECLARE task$t      TOKEN,
        priority    BYTE,
        except$ptr  POINTER;

END rq$set$priority;

$RESTORE