AS2 Library XMS module release - Exposed Dreams
------------------------------------------------------------------

Well, here it is! This is first ever release of AS2 code outside of the
ED offices! It really ain't all that usefull either! =D (which is the 
main cause of it's release!)

It is a simple XMS library, but we've found that XMS isn't all that great
over the past few days. All it's really good for is storage, but still...
Using the different routines here you can set it up to hold static data 
of really any sort: Maps, tables (blending) etc. but double buffering
is just not a great idea...

All in all it can be very useful..

Command list:

DECLARE SUB Mov2XMS (segm, offs, handle, length&)
DECLARE SUB Mov2RAM (segm, offs, handle, length&)
DECLARE SUB XMSfree (handle)
DECLARE SUB XMSinfo (totalmem, largestblock)
DECLARE SUB XMSresize (handle, newkb)
DECLARE FUNCTION XMSalloc% (BYVAL kbytes)
DECLARE FUNCTION XMSinit% ()

SUB Mov2XMS (segm, offs, handle, length&)
-------------------------------------
Moves length& data from segm:offs into the given XMS handle


SUB Mov2RAM (segm, offs, handle, length&)
-------------------------------------
Moves length & data to segm:offs from the given XMS handle


SUB XMSfree (handle)
-------------------------------------
Frees the XMS handle and all memory allocated to it


SUB XMSinfo (totalmem, largestblock)
-------------------------------------
Returns the XMS info in the two variables passed as parameters


SUB XMSresize (Handle, newkb)
-------------------------------------
Resizes the XMS block to the given NewKb


FUNCTION XMSalloc% (BYVAL kbytes)
-------------------------------------
This is the allocation of XMS, just remember that it is in kilobytes
So don't try and allocate 64000!
The XMS handle is returned


FUNCTION XMSinit% ()
-------------------------------------
This is a VERY important function, it needs to be called before all 
other XMS routines are! It will return -1 if XMS is not installed
else the XMS version number stored in the following format:-

result% = XMSinit%
XMSversion$ = str$(result% / &H100)+"."+str$(result% AND &HFF)

-----------------------------------------------------------------
Well that's it!

Enjoy!

mail: maz-q@bigfoot.com
mail: gza_wu@warzone.com
URL : http://www.gza-wu.freeserve.co.uk
UIN : 23420704
UIN : 5373629

ALSO visit Gza's EFnet #quickbasic page -
URL : http://www.gza-wu.freeserve.co.uk/quickbasic/