EGL--XMS类函数实现文件 XMS.INC

/*
  XMS.INC
*/

int xms_init()   /* 检测扩充内存服务程序 */
{  union REGS r;
   r.x.ax=0x4300;
   int86(0x2f,&r,&r);
   if(r.h.al!=0x80) return(ERROR); /* 无HIMEM.SYS */
   if( (xms_2_basemem_buffer=malloc(XMS_BUF))==NULL )     return(ERROR);
   return(OK);
}
int end_xms()
{
  free(xms_2_basemem_buffer);
}
int xms_free(int xms_handle)    /* 释放由句柄占用的扩充内存 */
{  union REGS r;
   r.h.ah=0x0a;
   r.x.dx=xms_handle;
   xms_interface(&r,&r);
   if(r.x.ax==0) return(ERROR);
   return(OK);
}
int xms_movedata( struct xms_move *m ) /*将数据在扩充内在与基本内存之间传送*/
{  union REGS r;                       /* 需要将xms_move结构传送过来 */
   r.h.ah=0x0b;
   r.x.si=(unsigned)m;
   xms_interface(&r,&r);
   if(r.x.ax==0) return(ERROR);
   return(OK);
}
int xms_malloc( UINT memKB )  /*分配以KB计量的扩充内存,如不为ERROR,则返回句柄*/
{  union REGS r;
   r.h.ah=9;
   r.x.dx=memKB; /* must kb */
   xms_interface(&r,&r);
   if(r.x.ax==0) return(ERROR);
   return(r.x.dx); /* return mem fp */
}
void xms_interface(union REGS *inregs,union REGS *outregs)
{  union REGS in,out;  /* 提供扩充内存服务的接口函数 */
   struct SREGS sregs;
   void far (*xms)(void);
   in.x.ax=0x4310;
   int86x(0x2f,&in,&out,&sregs);
   xms=(void far *)( ((long)(sregs.es)<<16)+out.x.bx );
   _AX=inregs->x.ax;
   _CX=inregs->x.cx;
   _DX=inregs->x.dx;
   _SI=inregs->x.si;
   _DI=inregs->x.di;
   _BX=inregs->x.bx;
   xms();
   outregs->x.ax=_AX;
   outregs->x.bx=_BX;
   outregs->x.cx=_CX;
   outregs->x.dx=_DX;
   outregs->x.si=_SI;
   outregs->x.di=_DI;
}