long change(unsigned short PID, unsigned short service, SV* returnedHFS)
{
  unsigned long hFS;
  long retval;
  retval = DoAttach(PID, service, &hFS);
  sv_setuv(returnedHFS, hFS);
  return retval;
}