#include "pmc.h"

long __pascal drivechange (int drive)
{
  REGSTRUCT rs;
  int r;

  rs.w.FLAGS = rs.d.SSSP = 0;
  rs.b.DL = drive - 1;
  rs.b.AH = 0xe;

  if ((r = xlt_simrmint (0x21, &rs, 0)) < 0)
    return r;

  return 0;
}