$SAVE NOLIST

dq$decode$exception:  PROCEDURE( exception$code,
                                 exception$ptr,
                                 except$ptr ) EXTERNAL;

DECLARE exception$code  WORD,
        exception$ptr   POINTER,
        except$ptr      POINTER;

END dq$decode$exception;

$RESTORE