使用XMS扩展内存编程实例

粗略地讲，扩展内存和扩充内存在物理上都是指高内存区，只是由于管理程序的不同而给予不同的称呼，二者分别代表了两种不同的管理规范：EMS和XMS。它们以不同的方式提供了使用高内存的操作。二者都是在系统启动时加载驱动程序而控制高内存的，并为用户提供功能调用。

二者的另一相似之处都是采用句柄的方法进行管理。用户程序申请一块高内存，得到的是一个句柄，对此高内存块的访问都是通过这个句柄来完成的，用户程序调用管理规范提供的功能实现对此高内存块操作。

使用XMS，应在CONFIG.SYS文件中加入：

DEVICE=C:/DOS/HIMEM.SYS /MEMTEST:OFF

DEVICE=C:/DOS/EMM386.EXE /NOEMS

程序实例：

#include <mem.h>

#ifndef XRH_XMS_LIBRARY
#define XRH_XMS_LIBRARY

#include <DOS.H>
#include <STDIO.H>
#include <STDLIB.H>
struct XMS_Move_Data{
unsigned long far Move_Bytes;             // 移动的字节数
unsigned far Source_Handle;               // 源句柄
unsigned long far Source_Offset;          // 源偏移量
unsigned far Target_Handle;               // 目的句柄
unsigned long far Target_Offset;          // 目的偏移量
};
int  far XMS=0;

class MyXMS{
private:
int XMS;
int Xms_Err;
int IsErr(int Xms_Err_Num);
void (far *Xms)(void);
void  XMS_Get_Drive_Addr(void);
static int  MyXMS_Num;
public:
XMS_Move_Data  Xmd; // very important, the detail at above
int  XMS_Check(unsigned &Max_Block_Size,unsigned &Total_Size);
int  XMS_Get(unsigned &Handle,unsigned Size);
int  XMS_ReGet(unsigned Handle,unsigned ReSize);
int  XMS_Free(unsigned Handle);
int  XMS_Move();  // 设置好了结构体 Xmd 之后，主动调用本函数，可实现数据块的移动
int  base_to_xms(void far *base,unsigned handle,unsigned long length,unsigned long emboffset);
int  xms_to_base(void far *base,unsigned handle,unsigned long length,unsigned long emboffset);
MyXMS();
~MyXMS();
};

int  MyXMS::MyXMS_Num=0;
// XMS (Int 2F/43) 多路中断
// INT 2F - XMS 驱动程序安装检测
// 输入参数:AX = 4300h
// 返回值:  AL = 80h XMS 驱动程序已安装
// AL <> 80h 未发现XMS 驱动程序
// 注: XMS 使你可以访问扩充内存以及其它的高于640K的非EMS内存
//     其它程序不得使用与之相同的安装检测方式
int  XMS_Test(void)
{
asm {
mov ax ,0x4300
int 0x2F
}
if(_AL==0x80)
XMS=1;
else
XMS=0;
return XMS;
}

//  错误代码
//  80h 没有提供的功能
//  81h 检测到虚拟盘(Vdisk)
//  82h 发生A20地址线错误
//  8Eh 一般驱动程序错误
//  8Fh 致命的驱动程序错误
//  90h 高端内存(HMA)不存在
//  91h 高端内存(HMA)已被使用
//  92h DX is less than the /HMAMIN= parameter
//  93h 高端内存(HMA)未被分配
//  94h A20地址线已被激活
//  A0h 所有扩充内存已被分配
//  A1h 所有可用的句柄已被分配
//  A2h 无效的句柄
//  A3h 无效的源句柄
//  A4h 无效的源偏移
//  A5h 无效的目的句柄
//  A6h 无效的目的偏移
//  A7h 无效的长度
//  A8h 移动有非法的重叠
//  A9h 发生奇偶校验错误
//  AAh 块未加锁
//  ABh 块已被锁定
//  ACh 块锁定计数溢出
//  ADh 锁定失败
//  B0h 只有更小一些的UMB空间
//  B1h 没有可用的UMB空间
int  MyXMS::IsErr(int Xms_Err_Num)
{
switch(Xms_Err_Num)
{
case 0x80:
case 0x81:
case 0x82:
case 0x8E:
case 0x8F:
case 0x90:
case 0x91:
case 0x92:
case 0x93:
case 0x94:
case 0xA0:
case 0xA1:
case 0xA2:
case 0xA3:
case 0xA4:
case 0xA5:
case 0xA6:
case 0xA7:
case 0xA8:
case 0xA9:
case 0xAA:
case 0xAB:
case 0xAC:
case 0xAD:
case 0xB0:
case 0xB1:
return 1;
default  :
return 0;
}
}

//  INT 2F - XMS - 获取驱动程序入口地址
//  输入参数:AX = 4310h
//  返回值:  ES:BX -> 驱动程序入口地址
//  请参见:  AX=4300h
//  AH中放功能号, 用远调用的方式调用驱动程序
//  BL中返回的错误代码
void  MyXMS::XMS_Get_Drive_Addr()
{
if (XMS)
{
asm {
mov ax,0x4310
int 0x2F
}
this->Xms=(void (far *)())(((unsigned long)(_ES)<<16)+_BX);
// Xms=(void (far *)())(((unsigned long)(_ES)<<16)+_BX);
}
return;
}

// 查询空闲的扩充内存空间, 不包括HMA
// 输入参数:AH = 08h
// 返回值:  AX = 最大的扩充内存块的大小(单位:K)
// 			DX = 总的扩充内存块的大小(单位:K)
// 			BL = 错误代码
int  MyXMS::XMS_Check(unsigned &Max_Block_Size,unsigned &Total_Size)
{
if (XMS)
{
asm mov ah,0x08
Xms();
Max_Block_Size=_AX;
Total_Size=_DX;
Xms_Err=_BL;
}
return (!(IsErr(Xms_Err)));
}

// 分配扩充内存
// 输入参数:AH = 09h
// 			DX = 要求分配的内存块大小(单位:K)
// 返回值:	AX = 0001h 成功
// 			DX = 内存块的句柄
// 			AX = 0000h 失败
// 			BL = 错误代码
int  MyXMS::XMS_Get(unsigned &Handle,unsigned Size)
{
unsigned Ax=0;
if (XMS)
{
asm {
mov ah,0x09
mov dx,Size
}
Xms();
Ax=_AX;
Handle=_DX;
Xms_Err=_BL;
if(!Ax) return 0;
return 1;
}
return 0;
// return(!(IsErr(Xms_Err)));
}

// 为句柄重新分配内存
// 输入参数:AH = 0Fh
// 			DX = 句柄
// 			BX = 新的块的容量(单位:K)
// 返回值:	AX = 0001h 成功
//             = 0000h 失败
//          BL = 错误代码
int  MyXMS::XMS_ReGet(unsigned Handle,unsigned ReSize)
{
unsigned Ax=0;
if (XMS)
{
asm {
mov ah,0x0F
mov dx,Handle
mov bx,ReSize
}
Xms();
Ax=_AX;
Xms_Err=_BL;
if(!Ax)
return 0;
return 1;
}
return 0;
}

// 释放指定句柄所分配的扩充内存
// 输入参数:AH = 0Ah
// 			DX = 内存块的句柄
// 返回值:	AX = 0001h 成功
//             = 0000h 失败
//          BL = 错误代码
int  MyXMS::XMS_Free(unsigned Handle)
{
unsigned Ax=0;
if (XMS)
{
asm {
mov ah,0x0A
mov dx,Handle
}
Xms();
Ax=_AX;
Xms_Err=_BL;
if(!Ax)
return 0;
return 1;
}
return 0;
//  return(!(IsErr(Xms_Err)));
}

// 移动扩充内存块
// 输入参数:AH = 0Bh
//      	DS:SI -> xms_mov 结构
// 返回值:	AX = 0001h 成功
//             = 0000h 失败
//          BL = 错误代码
// 注: 如果结构中任一句柄为0000h, 那么其对应32位偏移量将被视为常规内存
//     的绝对地址
int  MyXMS::XMS_Move()
{
unsigned Ax=0;
if (XMS)
{
asm push ds;
unsigned Xseg=FP_SEG(&(this->Xmd)),Xoff=FP_OFF(&(this->Xmd));
asm  {
mov ah,0x0B
mov si,Xoff
mov ds,Xseg
}
Xms();
asm pop ds;
Ax=_AX;
Xms_Err=_BL;
if(!Ax)
return 0;
return 1;
}
return 0;
}

int MyXMS::base_to_xms(void far *base,unsigned handle,unsigned long length,unsigned long emboffset)
{
unsigned seg,off;
unsigned long offset;
seg=FP_SEG(base);
off=FP_OFF(base);
offset=(((unsigned long)seg)<<16)+off;
Xmd.Move_Bytes=length;       //长度必须是偶数
Xmd.Source_Handle=0;         //句柄=0时,由下面的Offset给出地址
Xmd.Source_Offset=offset;
Xmd.Target_Handle=handle;
Xmd.Target_Offset=emboffset;
if(!XMS_Move())
return 0;
else
return 1;
}

int MyXMS::xms_to_base(void far *base,unsigned handle,unsigned long length,unsigned long emboffset)
{
unsigned seg,off;
unsigned long offset;
seg=FP_SEG(base);
off=FP_OFF(base);
offset=(((unsigned long)seg)<<16)+off;
Xmd.Move_Bytes=length;       //长度必须是偶数
Xmd.Source_Handle=handle;
Xmd.Source_Offset=emboffset;
Xmd.Target_Handle=0;         //句柄=0时,由下面的Offset给出地址
Xmd.Target_Offset=offset;
if(!XMS_Move())
return 0;
else
return 1;
}

MyXMS::MyXMS()
{
Xms_Err=0;
if (!MyXMS_Num)
::XMS_Test();
XMS=::XMS;
if(!XMS){printf("  XMS Not Found,Please Setup In 'Config.sys' File.");exit(1);}
MyXMS_Num++;
XMS_Get_Drive_Addr();
}

MyXMS::~MyXMS()
{
MyXMS_Num--;
}

#endif

void main()
{
MyXMS myxms;
char buff[32000];
memset(buff,'A',19);
buff[19]='/0';
printf("/nbuff=%s",buff);
unsigned handle=0;
unsigned size=10;	//10kb

if(!myxms.XMS_Get(handle,size))            //先申请XMS内存得到句柄handle
{                                          //size的单位是kb
printf("/nget memory error!");
return;
}
if(!myxms.base_to_xms(buff,handle,8,0))    //从基本内存移动8个字节到XMS内存
{                                          //长度必须是偶数
printf("/nbase to xms error!");
myxms.XMS_Free(handle);
}
memset(buff,'0',19);
printf("/nbuff=%s",buff);
myxms.xms_to_base(buff,handle,8,0);
printf("/nbuff=%s",buff);
myxms.XMS_Free(handle);
}