这个程序只需要 himem.sys, 与 emm386.exe 无关, 可访问所有的内存 (4G)
// --- xms.h
#ifndef _Head_XMS_H_
#define _Head_XMS_H_
#ifndef FarPtr
#define FarPtr(seg,ofs) ((void _seg *)(seg) + (void near *)(ofs))
#define GetSeg(p) ((unsigned)(void _seg *)(void far *)(p))
#define GetOfs(p) ((unsigned)(p))
#endif
class far TXmsMem
{
public:
typedef struct
{
unsigned long Size; //must be EVEN number
int SourHandle; //0: Conventional Memory
unsigned long SourOffset; //Offset/Conv. Mem. Address
int DestHandle; //0: Conventional memory
unsigned long DestOffset; //Offset/Conv. Mem. Address
}XMMStrcut;
int far DriverAvailable(void); //return true if xms driver installed
int far ExtendedVersion(void); //return true if > 64M memory supported
unsigned far GetVersion(void); //return BCD XMS Version
unsigned far GetRevision(void); //return BCD XMS Driver Revision
unsigned long far GetBlockFreeXMS(void); //(kb) ErrCode -> _XMS_Err
unsigned long far GetTotalFreeXMS(void); //(kb) ErrCode -> _XMS_Err
int far AllocXMS(int far *XMSHandle, unsigned long kbyte); //(kb) 0:error, ErrCode -> _XMS_Err
int far FreeXMS(int XMSHandle); //0:error, ErrCode -> _XMS_Err
//Size must be an EVEN number
//return 0 -> Error, ErrCode -> _XMS_Err
int far MemCpy(int hD, unsigned long oD, int hS, unsigned long oS, unsigned long Size);
int far LockXMSBlock(int Handle, long *Addr);
int far UnLockXMSBlock(int Handle);
far TXmsMem();
private:
static void far (*_XMS_Proc)(void);
static unsigned far _XMS_Version;
int far fXMSDriverInstalled(void);
void far fInitXMSProc(void);
};
extern TXmsMem far xms;
#endif
//--- xms.cpp
#include "xms.h"
void far (*TXmsMem::_XMS_Proc)(void) = 0;
unsigned far TXmsMem::_XMS_Version = 0x0000;
TXmsMem far xms;
far TXmsMem::TXmsMem()
{
if(!DriverAvailable())
{
if(fXMSDriverInstalled())
fInitXMSProc();
if(DriverAvailable())
_XMS_Version=GetVersion();
}
}
int far TXmsMem:

riverAvailable(void)
{
return _XMS_Proc!=0;
}
int far TXmsMem::ExtendedVersion(void)
{
return _XMS_Version>=0x0300;
}
int far TXmsMem::fXMSDriverInstalled(void) //called only in XMS.CPP, not a public proc.
{
asm mov ax,0x4300
asm int 0x2f
return _AL==0x80;
}
void far TXmsMem::fInitXMSProc(void)
{
unsigned int Sgmt,Ofst;
asm mov ax,0x4310
asm int 0x2f
asm mov Ofst,bx
asm mov bx,es
asm mov Sgmt,bx
_XMS_Proc=(void far(*)(void)) FarPtr(Sgmt,Ofst);
}
unsigned far TXmsMem::GetVersion(void)
{
asm xor ah,ah
_XMS_Proc();
return _AX;
}
unsigned far TXmsMem::GetRevision(void)
{
asm xor ah,ah
_XMS_Proc();
return _BX;
}
unsigned long far TXmsMem::GetBlockFreeXMS(void) //return Size (kb); if Error, ErrCode -> _XMS_Err
{
if(ExtendedVersion())
{
unsigned FreeHi, FreeLo;
asm mov ah, 0x88
asm xor bl, bl
_XMS_Proc();
asm mov FreeLo, ax //OPSIZ:
asm db 0x66,0xc1,0xe8,0x10 //SHR EAX 10H
asm mov FreeHi, ax
return ((long)FreeHi< _XMS_Err
{
if(ExtendedVersion())
{
unsigned FreeHi, FreeLo;
asm mov ah, 0x88
asm xor bl, bl
_XMS_Proc();
asm mov FreeLo, dx //OPSIZ:
asm db 0x66,0xc1,0xea,0x10 //SHR EDX 10H
asm mov FreeHi, dx
return ((long)FreeHi< Success, 0 -> Error, ErrCode -> _XMS_Err
{
int Handle, AllocErr;
unsigned kbhi = kbyte>>16;
unsigned kblo = kbyte&0x0000ffff;
if(ExtendedVersion())
{
asm mov ah, 0x89
asm mov dx, kbhi //OPSIZ:
asm db 0x66,0xc1,0xe2,0x10 //SHL EDX, 10H
asm mov dx, kblo
_XMS_Proc();
asm mov AllocErr,ax
//asm mov _XMS_Err,bl
asm mov Handle,dx
*XMSHandle=Handle;
return AllocErr;
}
else
{
asm mov ah, 9
asm mov dx, kblo
_XMS_Proc();
asm mov AllocErr,ax
//asm mov _XMS_Err,bl
asm mov Handle,dx
*XMSHandle=Handle;
return AllocErr;
}
}
int far TXmsMem::FreeXMS(int XMSHandle) //return 1 -> Success, 0 -> Error, ErrCode -> _XMS_Err
{
asm mov ah,0x0a
asm mov dx,XMSHandle
_XMS_Proc();
//asm mov _XMS_Err,bl
return _AX;
}
int far TXmsMem::MemCpy(int hD, unsigned long oD, int hS, unsigned long oS, unsigned long Size)
{
//Size must be an EVEN number //return 1 -> Success, 0 -> Error, ErrCode -> _XMS_Err
XMMStrcut XMSS;
int XMSSSgmt, XMSSOfst;
void far (*XMS_Proc)(void)=_XMS_Proc;
XMSS.Size=Size; //must be EVEN number
XMSS.SourHandle=hS;
XMSS.SourOffset=oS;
XMSS.DestHandle=hD;
XMSS.DestOffset=oD;
XMSSSgmt=GetSeg(&XMSS);
XMSSOfst=GetOfs(&XMSS);
asm push ds
asm push es
asm mov si,XMSSSgmt
asm mov ds,si
asm mov si,XMSSOfst
asm mov ah,0x0b
XMS_Proc();
asm pop es
asm pop ds
//asm mov _XMS_Err,bl
return _AX;
}
int far TXmsMem::LockXMSBlock(int Handle, long *Addr)
{
unsigned int HighWord,LowWord,ErrCode;
asm mov ah,0x0c
asm mov dx,Handle
_XMS_Proc();
asm mov ErrCode,ax
asm mov HighWord,dx
asm mov LowWord,bx
//asm mov _XMS_Err,bl
*Addr=((unsigned long)HighWord<<16)+(unsigned long)LowWord;
return ErrCode;
}
int far TXmsMem::UnLockXMSBlock(int Handle)
{
asm mov ah,0x0d
asm mov dx,Handle
_XMS_Proc();
//asm mov _XMS_Err,bl
return _AX;
}
//-- 使用:
int XmsHandle;
if(!xms.AllocXMS(&XmsHandle,260)) //分配内存
{
//错误
}
//复制数据(访问XMS)
char Buf;
//把 Buf 的 Bytes 字节复制到 XmsHandle 的第 XMSOffset 字节开始的内存位置
xms.MemCpy(XmsHandle,XMSOffset, 0,(long)Buf, Bytes);
//把XmsHandle 的 XMSOffset 开始的 Bytes 字节复制到 Buf 地址
xms.MemCpy(0,(long)Buf, XmsHandle,XMSOffset, Bytes);
//复制内存函数的句柄为零,偏移量为常规内存的地址
//复制内存函数的句柄不为零,偏移量为访问这个句柄的扩展内存的开始位置
xms.FreeXMS(XmsHandle); //释放内存, 退出程序的时候必须释放 XMS 内存
//如果程序退出时忘记释放了,只有重新启动才可以释放了