$SAVE NOLIST

rq$a$change$access:  PROCEDURE( user$t,
                                prefix,
                                subpath,
                                id,
                                access,
                                resp$mbox,
                                except$ptr ) EXTERNAL;

DECLARE user$t     TOKEN,
        prefix     TOKEN,
        subpath    POINTER,
        id         WORD,
        access     BYTE,
        resp$mbox  TOKEN,
        except$ptr POINTER;

END rq$a$change$access;

$RESTORE