$SAVE NOLIST

dq$trap$cc:  PROCEDURE( cc$routine$ptr,
                        except$ptr ) EXTERNAL;

DECLARE cc$routine$ptr  POINTER,
        except$ptr      POINTER;

END dq$trap$cc;

$RESTORE