$SAVE NOLIST

rq$signal$exception:  PROCEDURE( exception$code,
                                 param$num,
                                 stack$ptr,
                                 first$reserved$word,
                                 second$reserved$word,
                                 except$ptr ) EXTERNAL;

DECLARE exception$code         WORD,
        param$num              BYTE,
        stack$ptr              POINTER,
        first$reserved$word    WORD,
        second$reserved$word   WORD,
        except$ptr             POINTER;

END rq$signal$exception;

$RESTORE