#pragma hdrstop\r
\r
#ifdef __DEBUG__\r
-boolean debugpm=0;\r
+boolean dbg_debugpm=0;\r
#endif\r
\r
// Main Mem specific variables\r
- boolean MainPresent;\r
+ //boolean MainPresent;\r
/* memptr MainMemPages[PMMaxMainMem];\r
PMBlockAttr gvar->pm.mm.MainMemUsed[PMMaxMainMem];\r
int gvar->pm.mm.MainPagesAvail;*/\r
\r
// EMS specific variables\r
- boolean EMSPresent;\r
+ //boolean EMSPresent;\r
/* word gvar->pm.emm.EMSAvail,gvar->pm.emm.EMSPagesAvail,gvar->pm.emm.EMSHandle,\r
gvar->pm.emm.EMSPageFrame,gvar->pm.emm.EMSPhysicalPage;\r
gvar->pm.emm.EMSListStruct gvar->pm.emm.EMSList[EMSFrameCount];*/\r
\r
// XMS specific variables\r
- boolean XMSPresent;\r
+ //boolean XMSPresent;\r
//word gvar->pm.xmm.XMSAvail,gvar->pm.xmm.XMSPagesAvail,gvar->pm.xmm.XMSHandle;\r
- word XMSDriver;\r
+ dword XMSDriver;\r
/* int gvar->pm.xmm.XMSProtectPage = -1;\r
\r
// File specific variables\r
word PMSpriteStart,PMSoundStart;*/\r
\r
// General usage variables\r
- boolean PMStarted;/*,\r
+/* boolean PMStarted,\r
gvar->pm.PMPanicMode,\r
gvar->pm.PMThrashing;\r
word gvar->pm.XMSPagesUsed,\r
byte\r
PML_MapEMS(word logical, byte physical, global_game_variables_t *gvar)\r
{\r
- byte str[160];\r
+ byte err, str[160];\r
unsigned EMShandle;\r
- byte err;\r
- boolean errorflag=false;\r
int i;\r
+\r
+ boolean errorflag=false;\r
EMShandle=gvar->pm.emm.EMSHandle;\r
\r
__asm {\r
mov dx,EMShandle\r
int EMS_INT\r
or ah,ah\r
- jnz error\r
- jmp End\r
+ jnz errorme\r
+ jmp Endme\r
#ifdef __BORLANDC__\r
}\r
#endif\r
- error:\r
+ errorme:\r
#ifdef __BORLANDC__\r
__asm {\r
#endif\r
#ifdef __BORLANDC__\r
}\r
#endif\r
- End:\r
+ Endme:\r
#ifdef __WATCOMC__\r
}\r
#endif\r
PML_StartupEMS(global_game_variables_t *gvar)\r
{\r
int i;\r
- long size;\r
- byte str[64];\r
- byte err;\r
+ //long size;\r
+ byte err, str[64];\r
\r
- boolean errorflag=0;\r
+ boolean errorflag=false;\r
static char emmname[] = "EMMXXXX0"; //fix by andrius4669\r
unsigned int EMSVer = 0;\r
unsigned totalEMSpages,freeEMSpages,EMSPageFrame,EMSHandle,EMSAvail;\r
totalEMSpages = freeEMSpages = EMSPageFrame = 0;\r
- EMSPresent = false; // Assume that we'll fail\r
+ gvar->pm.emm.EMSPresent = false; // Assume that we'll fail\r
gvar->pm.emm.EMSAvail = 0;\r
+ gvar->mmi.EMSmem = 0;\r
\r
__asm {\r
mov dx,OFFSET emmname //fix by andrius4669\r
\r
if(errorflag==false)\r
{\r
- gvar->mmi.EMSmem += gvar->pm.emm.EMSAvail * (long)EMSPageSize;\r
+ gvar->mmi.EMSmem = EMSAvail * (dword)EMSPageSize;\r
\r
// Initialize EMS mapping cache\r
for (i = 0;i < EMSFrameCount;i++)\r
strcpy(str,"PML_StartupEMS: EMS error ");\r
MM_EMSerr(str, err);\r
printf("%s\n",str);\r
- return(EMSPresent);\r
+ return(gvar->pm.emm.EMSPresent);\r
}\r
\r
- EMSPresent = true; // We have EMS\r
+ gvar->pm.emm.EMSPresent = true; // We have EMS\r
gvar->pm.emm.EMSPageFrame = EMSPageFrame;\r
gvar->pm.emm.EMSAvail = EMSAvail;\r
gvar->pm.emm.EMSVer = EMSVer;\r
gvar->pm.emm.freeEMSpages = freeEMSpages;\r
gvar->pm.emm.totalEMSpages = totalEMSpages;\r
\r
- return(EMSPresent);\r
+ return(gvar->pm.emm.EMSPresent);\r
}\r
\r
//\r
PML_ShutdownEMS(global_game_variables_t *gvar)\r
{\r
word EMSHandle;\r
- byte err;\r
- byte str[64];\r
- boolean errorflag=false;\r
+ byte err,str[64];\r
\r
+ boolean errorflag=false;\r
EMSHandle=gvar->pm.emm.EMSHandle;\r
\r
- if (EMSPresent)\r
+ if (gvar->pm.emm.EMSPresent)\r
{\r
__asm {\r
mov ah,EMS_FREEPAGES\r
mov dx,[EMSHandle]\r
int EMS_INT\r
- jc errors\r
- jmp Ends\r
+ jc errores\r
+ jmp Endes\r
#ifdef __BORLANDC__\r
}\r
#endif\r
- errors:\r
+ errores:\r
#ifdef __BORLANDC__\r
__asm {\r
#endif\r
mov err,ah\r
mov errorflag,1\r
- jmp Ends\r
+ jmp Endes\r
#ifdef __BORLANDC__\r
}\r
#endif\r
- Ends:\r
+ Endes:\r
#ifdef __WATCOMC__\r
}\r
#endif\r
boolean\r
PML_StartupXMS(global_game_variables_t *gvar)\r
{\r
- XMSPresent = false; // Assume failure\r
- gvar->pm.xmm.XMSAvail = 0;\r
+ boolean errorflag;\r
+ byte err;\r
+ word /*XMSAvail,*/ XMSHandle;\r
\r
- _AX=0x4300;\r
- geninterrupt(XMS_INT); // Check for presence of XMS driver\r
- if (_AL != 0x80)\r
- goto error;\r
+ word XMSAvail1, XMSAvail2, XMSAvail3, XMSAvail4;\r
\r
+ word e=0;\r
+ errorflag=gvar->pm.xmm.XMSPresent = false; // Assume failure\r
+ gvar->pm.xmm.XMSAvail = gvar->mmi.XMSmem = 0;\r
\r
__asm {\r
+ mov ax,0x4300\r
+ int XMS_INT // Check for presence of XMS driver\r
+ cmp al,0x80\r
+ jne error1\r
+ mov e,1\r
+\r
mov ax,0x4310\r
int XMS_INT // Get address of XMS driver\r
mov [WORD PTR XMSDriver],bx\r
mov [WORD PTR XMSDriver+2],es // function pointer to XMS driver\r
+ mov e,2\r
+\r
+ //XMS_CALL(XMS_QUERYFREE); // Find out how much XMS is available\r
+ mov ah,XMS_QUERYFREE // Find out how much XMS is available\r
+ call [DWORD PTR XMSDriver]\r
+ //mov [XMSAvail],ax\r
+ //mov XMSAvail1,ax\r
+ //mov ax,XMSAvail2\r
+ //mov [XMSAvail3],ax\r
+ mov ax,[XMSAvail4]\r
+ mov err,bl\r
+ cmp ax,0 // AJR: bugfix 10/8/92\r
+ je error1\r
+ mov e,3\r
+ jmp End1\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ error1:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov err,bl\r
+ mov errorflag,1\r
+ jmp End1\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+End1:\r
+#ifdef __WATCOMC__\r
+ }\r
+#endif\r
+\r
+// XMS_CALL(XMS_QUERYFREE); // Find out how much XMS is available\r
+// XMSAvail = _AX;\r
+// if (!_AX) // AJR: bugfix 10/8/92\r
+// goto error;\r
+\r
+ printf(" XMSAvail=%u e=%u\n", XMSAvail4, e);\r
+ //printf(" %u %u %u %u\n", XMSAvail1, XMSAvail2, XMSAvail3, XMSAvail4);\r
+ XMSAvail4 &= ~(PMPageSizeKB - 1); // Round off to nearest page size\r
+ if (XMSAvail4 < (PMPageSizeKB * 2)){ // Need at least 2 pages\r
+ printf("PISS! %u\n", XMSAvail4);\r
+ goto error;\r
}\r
\r
+ __asm {\r
+ mov dx,XMSAvail4\r
+ //XMS_CALL(XMS_ALLOC); // And do the allocation\r
+ mov ah,XMS_ALLOC\r
+ call [DWORD PTR XMSDriver]\r
+ mov XMSHandle,dx\r
+ or ax,ax // AJR: bugfix 10/8/92\r
+ jz error2\r
+ mov e,4\r
+ jmp End2\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ error2:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov err,bl\r
+ mov errorflag,1\r
+ jmp End2\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+End2:\r
+#ifdef __WATCOMC__\r
+ }\r
+#endif\r
+\r
+ if(errorflag==false)\r
+ {\r
+ gvar->mmi.XMSmem = XMSAvail4 * (dword)1024;\r
+ gvar->pm.xmm.XMSAvail = XMSAvail4;\r
+ gvar->pm.xmm.XMSHandle = XMSHandle;\r
+\r
+ gvar->pm.xmm.XMSPresent = true;\r
+ printf(" %u %u %u\n", gvar->mmi.XMSmem, gvar->pm.xmm.XMSAvail, XMSAvail4);\r
+ getch();\r
+ }else printf(" %u errorflag=%02X\n", XMSAvail4, err);\r
+error:\r
+ return(gvar->pm.xmm.XMSPresent);\r
+/*\r
+ gvar->pm.xmm.XMSPresent = false; // Assume failure\r
+ gvar->pm.xmm.XMSAvail = 0;\r
+\r
+__asm mov ax,0x4300\r
+__asm int XMS_INT // Check for presence of XMS driver\r
+ if (_AL != 0x80)\r
+ goto error;\r
+\r
+\r
+__asm mov ax,0x4310\r
+__asm int XMS_INT // Get address of XMS driver\r
+__asm mov [WORD PTR XMSDriver],bx\r
+__asm mov [WORD PTR XMSDriver+2],es // function pointer to XMS driver\r
+\r
XMS_CALL(XMS_QUERYFREE); // Find out how much XMS is available\r
gvar->pm.xmm.XMSAvail = _AX;\r
if (!_AX) // AJR: bugfix 10/8/92\r
goto error;\r
}\r
\r
- gvar->mmi.XMSmem += gvar->pm.xmm.XMSAvail * 1024;\r
+ gvar->mmi.XMSmem = gvar->pm.xmm.XMSAvail * 1024;\r
\r
- XMSPresent = true;\r
+ gvar->pm.xmm.XMSPresent = true;\r
error:\r
- return(XMSPresent);\r
+ printf("XMSstart %u %u\n", gvar->mmi.XMSmem, gvar->pm.xmm.XMSAvail);\r
+ return(gvar->pm.xmm.XMSPresent);*/\r
}\r
\r
//\r
void\r
PML_ShutdownXMS(global_game_variables_t *gvar)\r
{\r
- if (XMSPresent)\r
+ boolean errorflag=false;\r
+ word XMSHandle = gvar->pm.xmm.XMSHandle;\r
+ if (gvar->pm.xmm.XMSPresent)\r
{\r
- _DX = gvar->pm.xmm.XMSHandle;\r
- XMS_CALL(XMS_FREE);\r
- if (_BL)\r
+ __asm {\r
+ mov dx,[XMSHandle]\r
+ //XMS_CALL(XMS_FREE);\r
+ mov ah,XMS_FREE\r
+ call [DWORD PTR XMSDriver]\r
+ or bl,bl\r
+ jz errorxs\r
+ jmp Endxs\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ errorxs:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ //mov err,ah\r
+ mov errorflag,1\r
+ jmp Endxs\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ Endxs:\r
+#ifdef __WATCOMC__\r
+ }\r
+#endif\r
+ if(errorflag==true)\r
{\r
Quit("PML_ShutdownXMS: Error freeing XMS");\r
//return;\r
{\r
int i;\r
\r
- if(MainPresent)\r
+ if(gvar->pm.mm.MainPresent)\r
for (i = 0;i < PMMaxMainMem;i++)\r
{\r
#ifdef __DEBUG_PM__\r
PMBlockAttr *used;\r
PageListStruct far *page;\r
\r
- if (!MainPresent)\r
+ if (!gvar->pm.mm.MainPresent)\r
return;\r
\r
for (i = 0,page = gvar->pm.PMPages;i < gvar->pm.fi.ChunksInFile;i++,page++)\r
memptr *p;\r
\r
gvar->pm.mm.MainPagesAvail = 0;\r
- MainPresent = false;\r
+ gvar->pm.mm.MainPresent = false;\r
MM_BombOnError(false, gvar);\r
- printf("PML_StartupMainMem()\n");\r
- printf(" p=%04x MainMemPages=%04x\n", p, gvar->pm.mm.MainMemPages);\r
- printf(" p=%Fp MainMemPages=%Fp\n", p, gvar->pm.mm.MainMemPages);\r
for (i = 0,p = gvar->pm.mm.MainMemPages;i < PMMaxMainMem;i++,p++)\r
{\r
MM_GetPtr(p,PMPageSize, gvar);\r
Quit("PM_SetupMainMem: Not enough main memory");\r
//return;\r
}\r
- MainPresent = true;\r
+ gvar->pm.mm.MainPresent = true;\r
}\r
\r
//\r
int usexms;\r
PageListStruct far *page;\r
\r
- if (!XMSPresent)\r
+ if (!gvar->pm.xmm.XMSPresent)\r
return;\r
\r
page = &gvar->pm.PMPages[pagenum];\r
PageListStruct far *page;\r
\r
page = &gvar->pm.PMPages[pagenum];\r
- if (XMSPresent && (page->xmsPage != -1))\r
+ if (gvar->pm.xmm.XMSPresent && (page->xmsPage != -1))\r
{\r
gvar->pm.xmm.XMSProtectPage = pagenum;\r
checkaddr = PML_GetAPageBuffer(pagenum,mainonly, gvar);\r
boolean nomain,noems,noxms;\r
int i;\r
\r
- if (PMStarted)\r
+ if (gvar->pm.PMStarted)\r
return;\r
\r
//strcpy(&(gvar->pm.fi.PageFileName), "VSWAP.");\r
}\r
}\r
\r
- //0000++++PML_OpenPageFile(gvar);\r
+ //0000+=+=PML_OpenPageFile(gvar);\r
\r
- if (!noems)\r
+ if (!noems && MML_CheckForEMS())\r
PML_StartupEMS(gvar);\r
- if (!noxms)\r
- //++++PML_StartupXMS(gvar); //TODO: convert\r
+ if (!noxms && MML_CheckForXMS())\r
+ PML_StartupXMS(gvar);\r
\r
- if (!nomain && !EMSPresent)\r
+ if (!nomain && !gvar->pm.emm.EMSPresent)\r
{\r
- Quit("PM_Startup: No main or EMS\n");\r
+ printf("PM_Startup: No main or EMS\n");\r
+ exit(-5);\r
//return;\r
}\r
PML_StartupMainMem(gvar);\r
\r
PM_Reset(gvar);\r
\r
- PMStarted = true;\r
+ gvar->pm.PMStarted = true;\r
}\r
\r
//\r
void\r
PM_Shutdown(global_game_variables_t *gvar)\r
{\r
- PML_ShutdownXMS(gvar);\r
- PML_ShutdownEMS(gvar);\r
+ if(MML_CheckForXMS()) PML_ShutdownXMS(gvar);\r
+ if(MML_CheckForEMS()) PML_ShutdownEMS(gvar);\r
\r
- if (!PMStarted)\r
+ if (!gvar->pm.PMStarted)\r
return;\r
\r
PML_ClosePageFile(gvar);\r