DOS中使用扩展内存与XMS操作库设计

作者：彭学周（Favory.Peng）

DOS系统常规内存指的是0－640K的内存区。在DOS下，一般的应用程序只能使用系统的常规内存，因而都要受到640KB内存的限制。而且由于DOS本身和config.sys文件中的安装的设备驱动程序和autoexec.bat文件中执行的内存驻留程序都要占用一些常规内存，所以应用程序能使用的常规内存是不到640K的。为了解决应用程序的内存需求问题最常用的方法就是使用扩展内存（XMS），扩展内存只能用在80286或更高档次的机器上，目前几乎所有使用DOS的机器上超过1M的内存都是扩展内存。扩展内存同样不能被DOS直接使用，DOS5.0以后提供了Himem.sys这个扩展内存管理程序，我们可以通过它来管理扩展内存。

加载方法：在config.sys文件中要加上一句话：DEVICE=C:/DOS/HIMEM.SYS，然后就能在程序中访问扩展内存了。利用mem.exe查看内存情况就可以看到你的物理内存1M以上的内存都被列为XMS扩展内存部分啦，我们就可以利用HIMEM.SYS提供的内存管理功能接口来使用XMS啦；

XMS的使用步骤如下：

1、加载驱动，在Config中加入DEVICE=C:/DOS/HIMEM.SYS；

2、获取驱动入口地址；

3、申请XMS内存获取句柄；

4、使用XMS内存（写入，读取）；

5、根据句柄释放XMS内存；

XMS操作库：DM&P DOS XMS Library 下载地址：http://www.dmp.com.tw/tech/dmp-lib/xms/

具体的C语言版本的XMS操作函数可以在网上直接搜索到，参考：http://www.blogjava.net/wudiasm/archive/2008/11/09/195680.html

本人用Pascal在TP7.0下面重新实现了这套函数库，希望对你有所帮助；

{uxms.pas}
{
DOS XMS library is a DOS real mode and large memory model Pascal library.
Because DOS is ran under real mode, programmer only can access RAM under 1MB.
The memory user can use are 640 KB, Other 384 KB are reserved for ROM BIOS and other cards.
XMS library provides DOS programmer a easy way to access RAM above 1 MB under DOS via XMS driver.
For MS-DOS, add "DOS=HIGH" to you CONFIG.SYS will force MS-DOS to active XMS driver.
================================================================================
3F Medical Pascal XMS Library.
Copyright (C) 2008 by Favory.Peng.
This library is for 3F Medical product user only.
}
unit UXMS;
interface
uses DOS,CRT;
type
XMMS = record
byte_count:LongInt; {bytes count}
source_handle:word; {source handle}
source_offset:Pointer;{source offset}
dest_handle:word; {destination handle}
dest_offset:Pointer; {destination offset}
end;
pXMMS = ^XMMS;
pByte = ^Byte;
pWord = ^Word;
var
XMS:Boolean;
xms_func:LongInt;
max_block,total_block:word;
trans:XMMS;
function XMS_Init:Boolean;
function XMS_Allocate(len:word):word;
function XMS_Free(handle:word):Boolean;
function XMS_GetVer:word;
function XMS_GetFree:Boolean;
function XMS_Lock(handle:word):Boolean;
function XMS_ULock(handle:word):Boolean;
function XMS_Copy(PT:pXMMS):Boolean;
function XMS_CopyToXMS(DstHandle:word;lDstOffset:Pointer;pSrc:Pointer;lLen:LongInt):Boolean;
function XMS_CopyFromXMS(pDst:Pointer;SrcHandle:word;lSrcOffset:Pointer;lLen:LongInt):Boolean;
implementation
{Initialize XMS driver and get control function address}
function XMS_Init:Boolean;
var
is_exist:byte;
seg1,off1:word;
ptr_xms_func:^word;
begin
asm
mov ax,4300h
int 2fh
mov is_exist,al
end;
if is_exist<>$80 then
begin
XMS_Init:=False;
end else
begin
asm
mov ax,4310h
Int 2fh
mov seg1,ES
mov off1,BX
end;
ptr_xms_func:=@xms_func;
ptr_xms_func^:=off1;
inc(ptr_xms_func);
ptr_xms_func^:=seg1;
XMS_Init:=True;
end;
end;
{Allocate XMS memory}
function XMS_Allocate(len:word):word;
var
result,handle:word;
begin
asm
mov dx,len
mov ah,9
call xms_func
mov result,ax
mov handle,dx
end;
if result=0 then
XMS_Allocate:=0
else
XMS_Allocate:=handle;
end;
{Free allocated XMS memory}
function XMS_Free(handle:word):Boolean;
var
result:word;
begin
asm
mov dx,handle
mov ah,10
call xms_func
mov result,ax
end;
if result=0 then
XMS_Free:=False
else
XMS_Free:=True;
end;
{Get XMS driver version}
function XMS_GetVer:word;
var
version:word;
begin
asm
mov ah,0
call xms_func
mov version,ax
end;
XMS_GetVer:=version;
end;
{Query free memory and maximum available space}
function XMS_GetFree:Boolean;
var
error_code:byte;
begin
error_code:=$ff;
if XMS then
begin
asm
mov ah,8
call xms_func
mov max_block,ax
mov total_block,dx
mov error_code,bl
end;
end;
if error_code=$ff then
XMS_GetFree:=False
else
XMS_GetFree:=True;
end;
{Lock Block}
function XMS_Lock(handle:word):Boolean;
var
result:word;
begin
if XMS then
begin
asm
mov ah,0ch
mov dx,handle
call xms_func
mov result,ax
end;
end;
if result=0 then
XMS_Lock:=false
else
XMS_Lock:=True;
end;
{UNLock Block}
function XMS_ULock(handle:word):Boolean;
var
result:word;
begin
if XMS then
begin
asm
mov ah,0dh
mov dx,handle
call xms_func
mov result,ax
end;
end;
if result=0 then
XMS_ULock:=False
else
XMS_ULock:=True;
end;
{Copy XMS memory}
function XMS_Copy(PT:pXMMS):Boolean;
var
xoff,result:word;
begin
result:=$ff;
if XMS then
begin
xoff:=Ofs(PT^);
asm
mov ah,0bh
mov si,xoff
call xms_func
mov result,ax
end;
end;
if result=0 then
begin
XMS_Copy:=False;
end else
begin
XMS_Copy:=True;
end;
end;
{Copy memory buffer to XMS}
function XMS_CopyToXMS(DstHandle:word;lDstOffset:Pointer;pSrc:Pointer;lLen:LongInt):Boolean;
begin
trans.byte_count:=llen;
trans.source_handle:=0;
trans.source_offset:=pByte(pSrc);
trans.dest_handle:=DstHandle;
trans.dest_offset:=lDstOffset;
XMS_CopyToXMS:=XMS_Copy(@trans);
end;
{Copy XMS to memory buffer}
function XMS_CopyFromXMS(pDst:Pointer;SrcHandle:word;lSrcOffset:Pointer;lLen:LongInt):Boolean;
begin
trans.byte_count:=llen;
trans.source_handle:=SrcHandle;
trans.source_offset:=lSrcOffset;
trans.dest_handle:=0;
trans.dest_offset:=pByte(pDst);
XMS_CopyFromXMS:=XMS_Copy(@trans);
end;
{init_unit}
begin
XMS:=XMS_Init;
XMS_GetFree;
end.

测试实例：100bytes数据拷贝到XMS中，程序赋值，从XMS恢复100Bytes的值。

{UXMSTEST.pas}
{
This example will show you how to XMS library.
}
program uxmstest;
uses dos,crt,uxms;
var
szStr:array[0..99] of Byte;
i,xms_handle:word;
nStrLen:LongInt;
{main}
begin
clrscr;
for i:=0 to 99 do
begin
szStr[i]:=i;
end;
nStrLen:=100;
if XMS_GetFree then writeln('Free memory: Max=',max_block,' KB, total=',total_block,' KB.');
xms_handle:=XMS_Allocate(1);
if xms_handle=0 then
writeln('Allocate failed!')
else begin
writeln('Allocate 1KB memory: Handle=',xms_handle);
end;
if XMS_GetFree then writeln('Free memory: Max=',max_block,' KB, total=',total_block,' KB.');
if XMS then writeln('XMS Version: ',XMS_GetVer);
writeln('--------------------------------------------------------------------------');
for i:=0 to 99 do
begin
write(szStr[i],',');
end;
writeln;
writeln('1. Copy buffer to XMS..... buffer size=',nStrLen);
XMS_CopyToXMS(xms_handle,Pointer(0),@szStr,nStrLen);
writeln('2. Reset buffer....');
for i:=0 to 99 do
begin
szStr[i]:=0;
write(szStr[i],',');
end;
writeln;
XMS_CopyFromXMS(@szStr,xms_handle,Pointer(0),nStrLen);
writeln('3. Restore buffer....');
for i:=0 to 99 do
begin
write(szStr[i],',');
end;
writeln;
writeln('--------------------------------------------------------------------------');
XMS_Free(xms_handle);
if XMS_GetFree then writeln('Free memory: Max=',max_block,' KB, total=',total_block,' KB.');
readkey;
end.

XMS操作单元UXMS.PAS：

UXMS使用实例执行结果：

本文到此结束！

DOS中使用扩展内存与XMS操作库设计相关推荐

java知识点8——垃圾回收原理和算法、通用的分代垃圾回收机制、 JVM调优和Full GC、开发中容易造成内存泄露的操作
垃圾回收原理和算法内存管理 Java的内存管理很大程度指的就是对象的管理,其中包括对象空间的分配和释放. 对象空间的分配:使用new关键字创建对象即可对象空间的释放:将对象赋值null即可垃圾回 ...
ORM映射框架总结--数据库操作库(精修版)
1. ORM数据库操作原理前面已经介绍过了个人ORM映射框架中的三个核心库: 实体-数据库映射特性关系: http://www.cnblogs.com/qingyuan/archive ...
什么是堆栈？内存中划分出按FIL0方式操作的特殊区域，叫做堆栈
内存中划分出按FIL0方式操作的特殊区域,叫做堆栈有两个操作,分为压栈,出栈每次压栈和出栈以字为单位. SS存放段基值,SP存放栈顶单元偏移量 SS:SP构成堆栈指针物理地址SSx16+SP 常 ...
错误内存【读书笔记】C程序中常见的内存操作有关的典型编程错误
题记:写这篇博客要主是加深自己对错误内存的认识和总结实现算法时的一些验经和训教,如果有错误请指出,万分感谢. 对C/C++程序员来讲,内存管理是个不小的挑战,绝对值得慎之又慎,否则让由上万行代码构成的 ...
c语言中指针往内存写值,C语言编程常见问题解答之指针和内存分配
指针为C语言编程提供了强大的支持--如果你能正确而灵活地利用指针,你就可以直接切入问题的核心,或者将程序分割成一个个片断.一个很好地利用了指针的程序会非常高效.简洁和精致. 利用指针你可以将数据写入内 ...
追踪JVM中的本地内存
点击蓝色"程序猿DD"关注我回复"资源"获取独家整理的学习资料! 转载自公众号:锅外的大佬 1.概述有没有想过为什么Java应用程序通过众所周知的-Xms和 ...
group by 和 left join 哪个慢_手机自带内存和扩展内存一样吗？哪个更好？
前个月,无意中看到某手机的营销文案,运存4GB,总内存可达256GB.明眼人自然可以看到,这不过是通过TF卡扩展内存得到总256GB.因为还没有见过那个机器用4+256的组合的,常见都是4+32,4+ ...
使用jemalloc在Go中进行手动内存管理
目录通过Cgo创建内存 jemalloc 在字节片上放置Go结构用分配器摊销Calloc的成本明智地参考处理分配的GB 排序可变长度数据捕捉内存泄漏结论推荐阅读曼尼斯·赖·贾因(Ma ...
JVM中的本地内存追踪NMT（Native Memory Tracking）
JVM中的本地内存追踪NMT(Native Memory Tracking) 1 概述每当想起为什么Java应用程序会消耗比设置-Xms和-Xmx多的内存的时候,心中总是会有个问号.因为一些理由和优 ...

DOS中使用扩展内存与XMS操作库设计

DOS中使用扩展内存与XMS操作库设计相关推荐

最新文章

热门文章