#include "pmode.h"

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

  rs.flags = rs.sp = rs.ss = 0;
  rsDL(rs) = drive;
  rsAH(rs) = 0x36;

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

  return rsBX(rs) * rsCX(rs) * rsAX(rs);
}