* function: xms_get_version()
*
* description:  This function returns the version of the XMS driver.  Note
*    that the driver will return its version in binary-coded-decimal (BCD)
*    so we should convert it to straight decimal to return it.  The
*    easiest way to do that is to chop the returned value into two bytes
*    (via the vers[2] array), so that 0x0200 (512 in decimal) because
*    02 and 00.  Then we can return them in an orderly fashion.
*
* Note: Since most of these functions only work with drivers that meet
*     the XMS 2.0 specification, you should check this function and
*     abort if the version is < 200.
*-------------------------------------------------------------------------
FUNCTION UINT xms_get_version

   VARDEF
      UINT  ax,bx,cx,dx,ds,si,es,di,bp
   ENDDEF

   ax = &XMS_GETVERSION       && Subfunction to get version information
   call_driver( xms_get_driver(), ax, bx, cx, dx, si, di, bp, ds, es)
   xms_set_error( ax, bx )

   return hibyte(ax) * 100 + lobyte(ax)

ENDPRO