+/* Project 16 Source Code~\r
+ * Copyright (C) 2012-2017 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
+ *\r
+ * This file is part of Project 16.\r
+ *\r
+ * Project 16 is free software; you can redistribute it and/or modify\r
+ * it under the terms of the GNU General Public License as published by\r
+ * the Free Software Foundation; either version 3 of the License, or\r
+ * (at your option) any later version.\r
+ *\r
+ * Project 16 is distributed in the hope that it will be useful,\r
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+ * GNU General Public License for more details.\r
+ *\r
+ * You should have received a copy of the GNU General Public License\r
+ * along with this program. If not, see <http://www.gnu.org/licenses/>, or\r
+ * write to the Free Software Foundation, Inc., 51 Franklin Street,\r
+ * Fifth Floor, Boston, MA 02110-1301 USA.\r
+ *\r
+ */\r
+\r
//\r
// ID_PM.C\r
// Id Engine's Page Manager v1.0\r
#pragma hdrstop\r
\r
// Main Mem specific variables\r
- boolean MainPresent;\r
- memptr MainMemPages[PMMaxMainMem];\r
- PMBlockAttr MainMemUsed[PMMaxMainMem];\r
- int MainPagesAvail;\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
- word EMSAvail,EMSPagesAvail,EMSHandle,\r
- EMSPageFrame,EMSPhysicalPage;\r
- EMSListStruct EMSList[EMSFrameCount];\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
- word XMSAvail,XMSPagesAvail,XMSHandle;\r
- longword XMSDriver;\r
- int XMSProtectPage = -1;\r
+ //boolean XMSPresent;\r
+ //word gvar->pm.xmm.XMSAvail,gvar->pm.xmm.XMSPagesAvail,gvar->pm.xmm.XMSHandle;\r
+ dword XMSDriver; //hard to put in gvar\r
+ word XMSVer; //hard to put in gvar\r
+/* int gvar->pm.xmm.XMSProtectPage = -1;\r
\r
// File specific variables\r
- char PageFileName[13] = {"VSWAP."};\r
+ char gvar->pm.fi.PageFileName[13] = {"VSWAP."};\r
int PageFile = -1;\r
- word ChunksInFile;\r
- word PMSpriteStart,PMSoundStart;\r
+ word gvar->pm.fi.ChunksInFile;\r
+ word PMSpriteStart,PMSoundStart;*/\r
\r
// General usage variables\r
- boolean PMStarted,\r
- PMPanicMode,\r
- PMThrashing;\r
- word XMSPagesUsed,\r
- EMSPagesUsed,\r
+/* boolean PMStarted,\r
+ gvar->pm.PMPanicMode,\r
+ gvar->pm.PMThrashing;\r
+ word gvar->pm.XMSPagesUsed,\r
+ gvar->pm.EMSPagesUsed,\r
MainPagesUsed,\r
- PMNumBlocks;\r
+ gvar->pm.PMNumBlocks;\r
long PMFrameCount;\r
- PageListStruct far *PMPages,\r
- _seg *PMSegPages;\r
+ PageListStruct far *gvar->pm.PMPages,\r
+ _seg *gvar->pm.PMSegPages;*/\r
+\r
+static union REGS CPURegs;\r
+\r
+#define _AX CPURegs.x.ax\r
+#define _BX CPURegs.x.bx\r
+#define _CX CPURegs.x.cx\r
+#define _DX CPURegs.x.dx\r
+\r
+#define _SI CPURegs.x.si\r
+\r
+#define _AH CPURegs.h.ah\r
+#define _AL CPURegs.h.al\r
+#define _BH CPURegs.h.bh\r
+#define _BL CPURegs.h.bl\r
+#define _CH CPURegs.h.ch\r
+#define _CL CPURegs.h.cl\r
+#define _DH CPURegs.h.dh\r
+#define _DL CPURegs.h.dl\r
+\r
+#ifdef __WATCOMC__\r
+#define geninterrupt(n) int86(n,&CPURegs,&CPURegs);\r
+#endif\r
\r
static char *ParmStrings[] = {"nomain","noems","noxms",nil};\r
\r
//\r
// PML_MapEMS() - Maps a logical page to a physical page\r
//\r
-void\r
-PML_MapEMS(word logical,word physical)\r
-{
- union REGS CPURegs;\r
- CPURegs.h.al = physical;\r
- CPURegs.x.bx = logical;\r
- CPURegs.x.dx = EMSHandle;\r
- CPURegs.h.ah = EMS_MAPPAGE;\r
- __asm
- {
- int EMS_INT
+byte\r
+PML_MapEMS(word logical, byte physical, global_game_variables_t *gvar)\r
+{\r
+ byte err=0, str[160];\r
+ unsigned EMShandle;\r
+ //int i;\r
+\r
+ boolean errorflag=false;\r
+ EMShandle=gvar->pm.emm.EMSHandle;\r
+\r
+ __asm {\r
+ mov ah,EMS_MAPPAGE\r
+ mov al,physical\r
+ mov bx,logical\r
+ mov dx,EMShandle\r
+ int EMS_INT\r
+ or ah,ah\r
+ jnz errorme\r
+ jmp Endme\r
+#ifdef __BORLANDC__\r
}\r
-\r
- if(CPURegs.h.ah)\r
- printf("PML_MapEMS: Page mapping failed\n");\r
+#endif\r
+ errorme:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov err,ah\r
+ mov errorflag,1\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ Endme:\r
+#ifdef __WATCOMC__\r
+ }\r
+#endif\r
+ if(errorflag==true)\r
+ {\r
+ strcpy(str,"MM_MapEMS: EMS error ");\r
+ MM_EMSerr(str, err);\r
+ printf("%s\n",str);\r
+ Quit (gvar, "PML_MapEMS: Page mapping failed\n");\r
+ return err;\r
+ }\r
+ return 0;\r
}\r
\r
//\r
// to the maximum we need)\r
//\r
\r
- char EMMDriverName[9] = "EMMXXXX0";\r
-\r
boolean\r
-PML_StartupEMS(void)\r
+PML_StartupEMS(global_game_variables_t *gvar)\r
{\r
int i;\r
- long size;\r
-\r
- EMSPresent = false; // Assume that we'll fail\r
- EMSAvail = 0;\r
-\r
- _DX = (word)EMMDriverName;\r
- _AX = 0x3d00;\r
- geninterrupt(0x21); // try to open EMMXXXX0 device\r
-asm jnc gothandle\r
- goto error;\r
-\r
-gothandle:\r
- _BX = _AX;\r
- _AX = 0x4400;\r
- geninterrupt(0x21); // get device info\r
-asm jnc gotinfo;\r
- goto error;\r
-\r
-gotinfo:\r
-asm and dx,0x80\r
- if (!_DX)\r
- goto error;\r
-\r
- _AX = 0x4407;\r
- geninterrupt(0x21); // get status\r
-asm jc error\r
- if (!_AL)\r
- goto error;\r
-\r
- _AH = 0x3e;\r
- geninterrupt(0x21); // close handle\r
-\r
- _AH = EMS_STATUS;\r
- geninterrupt(EMS_INT);\r
- if (_AH)\r
- goto error; // make sure EMS hardware is present\r
-\r
- _AH = EMS_VERSION;\r
- geninterrupt(EMS_INT);\r
- if (_AH || (_AL < 0x32)) // only work on EMS 3.2 or greater (silly, but...)\r
- goto error;\r
-\r
- _AH = EMS_GETFRAME;\r
- geninterrupt(EMS_INT);\r
- if (_AH)\r
- goto error; // find the page frame address\r
- EMSPageFrame = _BX;\r
-\r
- _AH = EMS_GETPAGES;\r
- geninterrupt(EMS_INT);\r
- if (_AH)\r
- goto error;\r
- if (_BX < 2)\r
- goto error; // Require at least 2 pages (32k)\r
- EMSAvail = _BX;\r
-\r
- // Don't hog all available EMS\r
- size = EMSAvail * (long)EMSPageSize;\r
- if (size - (EMSPageSize * 2) > (ChunksInFile * (long)PMPageSize))\r
+ //long size;\r
+ byte err=0, str[64];\r
+\r
+ boolean errorflag=false;\r
+ static char emmname[] = "EMMXXXX0"; //fix by andrius4669\r
+ unsigned int EMSVer = 0;\r
+ unsigned totalEMSpages,freeEMSpages,EMSPageFrame,EMSHandle=0,EMSAvail=0;\r
+ totalEMSpages = freeEMSpages = EMSPageFrame = 0;\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
+ mov ax,0x3d00\r
+ int EMM_INT // try to open EMMXXXX0 device\r
+ jc error1\r
+\r
+ mov bx,ax\r
+ mov ax,0x4400\r
+\r
+ int EMM_INT // get device info\r
+ jc error1\r
+\r
+ and dx,0x80\r
+ jz error1\r
+\r
+ mov ax,0x4407\r
+\r
+ int EMM_INT // get status\r
+ jc error1\r
+ or al,al\r
+ jz error1\r
+\r
+ mov ah,0x3e\r
+ int EMM_INT // close handle\r
+ jc error1\r
+\r
+ mov ah,EMS_STATUS\r
+ int EMS_INT\r
+ jc error1 // make sure EMS hardware is present\r
+\r
+ mov ah,EMS_VERSION\r
+ int EMS_INT // only work on EMS 3.2 or greater (silly, but...)\r
+ or ah,ah\r
+ jnz error1\r
+ mov [EMSVer],ax // set EMSVer\r
+ cmp al,0x32 // only work on ems 3.2 or greater\r
+ jb error1\r
+\r
+ mov ah,EMS_GETFRAME\r
+ int EMS_INT // find the page frame address\r
+ or ah,ah\r
+ jnz error1\r
+ mov [EMSPageFrame],bx\r
+\r
+ mov ah,EMS_GETPAGES\r
+ int EMS_INT // find out how much EMS is there\r
+ or ah,ah\r
+ jnz error1\r
+ or bx,bx\r
+ jz noEMS // no EMS at all to allocate\r
+ cmp bx,2\r
+ jl noEMS // Require at least 2 pages (32k)\r
+ mov [totalEMSpages],dx\r
+ mov [freeEMSpages],bx\r
+ mov [EMSAvail],bx\r
+ jmp End1\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ error1:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov err,ah\r
+ mov errorflag,1\r
+ jmp End1\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+noEMS:\r
+End1:\r
+#ifdef __WATCOMC__\r
+ }\r
+#endif\r
+/*\r
+ if(errorflag==false)\r
{\r
- size = (ChunksInFile * (long)PMPageSize) + EMSPageSize;\r
- EMSAvail = size / EMSPageSize;\r
+ // Don't hog all available EMS\r
+ size = gvar->pm.emm.EMSAvail * (long)EMSPageSize;\r
+ if (size - (EMSPageSize * 2) > (gvar->pm.fi.ChunksInFile * (long)PMPageSize))\r
+ {\r
+ size = (gvar->pm.fi.ChunksInFile * (long)PMPageSize) + EMSPageSize;\r
+ gvar->pm.emm.EMSAvail = size / EMSPageSize;\r
+ }\r
}\r
+*/\r
+ __asm {\r
+ mov ah,EMS_ALLOCPAGES\r
+ mov bx,[EMSAvail];\r
+ int EMS_INT\r
+ or ah,ah\r
+ jnz error2\r
+ mov [EMSHandle],dx\r
+ jmp End2\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ error2:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov err,ah\r
+ mov errorflag,1\r
+ jmp End2\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+End2:\r
+#ifdef __WATCOMC__\r
+ }\r
+#endif\r
\r
- _AH = EMS_ALLOCPAGES;\r
- _BX = EMSAvail;\r
- geninterrupt(EMS_INT);\r
- if (_AH)\r
- goto error;\r
- EMSHandle = _DX;\r
-\r
- mminfo.EMSmem += EMSAvail * (long)EMSPageSize;\r
+ if(errorflag==false)\r
+ {\r
+ gvar->mmi.EMSmem = EMSAvail * (dword)EMSPageSize;\r
\r
// Initialize EMS mapping cache\r
for (i = 0;i < EMSFrameCount;i++)\r
- EMSList[i].baseEMSPage = -1;\r
+ gvar->pm.emm.EMSList[i].baseEMSPage = -1;\r
\r
- EMSPresent = true; // We have EMS\r
+ }\r
+ else\r
+ {\r
+ strcpy(str,"PML_StartupEMS: EMS error ");\r
+ MM_EMSerr(str, err);\r
+ printf("%s\n",str);\r
+ return(gvar->pm.emm.EMSPresent);\r
+ }\r
\r
-error:\r
- return(EMSPresent);\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.EMSHandle = EMSHandle;\r
+ gvar->pm.emm.freeEMSpages = freeEMSpages;\r
+ gvar->pm.emm.totalEMSpages = totalEMSpages;\r
+\r
+ return(gvar->pm.emm.EMSPresent);\r
}\r
\r
//\r
// PML_ShutdownEMS() - If EMS was used, deallocate it\r
//\r
void\r
-PML_ShutdownEMS(void)\r
+PML_ShutdownEMS(global_game_variables_t *gvar)\r
{\r
- if (EMSPresent)\r
+ word EMSHandle;\r
+ byte err=0, str[64];\r
+\r
+ boolean errorflag=false;\r
+ EMSHandle=gvar->pm.emm.EMSHandle;\r
+\r
+ if (gvar->pm.emm.EMSPresent)\r
{\r
- asm mov ah,EMS_FREEPAGES\r
- asm mov dx,[EMSHandle]\r
- asm int EMS_INT\r
- if (_AH)\r
- printf("PML_ShutdownEMS: Error freeing EMS\n");\r
+ __asm {\r
+ mov ah,EMS_FREEPAGES\r
+ mov dx,[EMSHandle]\r
+ int EMS_INT\r
+ jc errores\r
+ jmp Endes\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ errores:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov err,ah\r
+ mov errorflag,1\r
+ jmp Endes\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+ Endes:\r
+#ifdef __WATCOMC__\r
+ }\r
+#endif\r
+ if(errorflag==true)\r
+ {\r
+ strcpy(str,"PML_ShutdownEMS: Error freeing EMS ");\r
+ MM_EMSerr(str, err);\r
+ printf("%s\n",str);\r
+ Quit (gvar, "PML_ShutdownEMS: Error freeing EMS\n");\r
+ //return;\r
+ }\r
}\r
}\r
\r
// Allocates any remaining XMS (rounded down to the nearest page size)\r
//\r
boolean\r
-PML_StartupXMS(void)\r
+PML_StartupXMS(global_game_variables_t *gvar)\r
{\r
- XMSPresent = false; // Assume failure\r
- 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
+//TODO: translate the _REG into working assembly\r
+//#define STARTUPXMSASM\r
+ byte err;\r
+ word XMSAvail, XMSHandle;//, XMSVer;\r
+ boolean errorflag=false;\r
+ word e=0;\r
+ gvar->pm.xmm.XMSPresent = false; // Assume failure\r
+ 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
+\r
+ mov ah,XMS_VERSION\r
+ call [DWORD PTR XMSDriver] //; Get XMS Version Number\r
+ mov [XMSVer],ax\r
+ mov e,2\r
+\r
+#ifdef STARTUPXMSASM\r
+ mov ah,XMS_QUERYFREE // Find out how much XMS is available\r
+ call [DWORD PTR XMSDriver]\r
+ mov XMSAvail,ax\r
+ or ax,ax // AJR: bugfix 10/8/92\r
+ jz error1\r
+ mov e,3\r
+#endif\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
+ if(errorflag==true) goto error;\r
+#ifndef STARTUPXMSASM\r
XMS_CALL(XMS_QUERYFREE); // Find out how much XMS is available\r
XMSAvail = _AX;\r
if (!_AX) // AJR: bugfix 10/8/92\r
+ {\r
+ errorflag = true;\r
+ err = _BL;\r
goto error;\r
+ }\r
+ e++;\r
+#endif\r
\r
+#ifdef __DEBUG_PM__\r
+ printf("XMSVer=%02X ", XMSVer);\r
+ printf("XMSAvail=%u\n", XMSAvail);\r
+ getch();\r
+#endif\r
XMSAvail &= ~(PMPageSizeKB - 1); // Round off to nearest page size\r
if (XMSAvail < (PMPageSizeKB * 2)) // Need at least 2 pages\r
+ {\r
+ errorflag=true;\r
goto error;\r
-\r
+ }\r
+#ifdef STARTUPXMSASM\r
+ __asm {\r
+ mov dx,XMSAvail\r
+ mov ah,XMS_ALLOC // And do the allocation\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
+#else\r
_DX = XMSAvail;\r
XMS_CALL(XMS_ALLOC); // And do the allocation\r
XMSHandle = _DX;\r
-\r
if (!_AX) // AJR: bugfix 10/8/92\r
{\r
- XMSAvail = 0;\r
+ errorflag=true;\r
+ err = _BL;\r
goto error;\r
}\r
-\r
- mminfo.XMSmem += XMSAvail * 1024;\r
-\r
- XMSPresent = true;\r
+ e++;\r
+#endif\r
error:\r
- return(XMSPresent);\r
+ if(errorflag==false)\r
+ {\r
+ gvar->mmi.XMSmem = (dword)(XMSAvail) * 1024;\r
+ gvar->pm.xmm.XMSAvail = XMSAvail;\r
+ gvar->pm.xmm.XMSHandle = XMSHandle;\r
+ //gvar->pm.xmm.XMSVer = XMSVer;\r
+ gvar->pm.xmm.XMSPresent = true;\r
+#ifdef __DEBUG_PM__\r
+ printf(" XMSmem=%lu XMSAvail=%u\n", gvar->mmi.XMSmem, XMSAvail);\r
+#endif\r
+ }\r
+ else\r
+ {\r
+#ifdef __DEBUG_PM__\r
+ //printf("XMSHandle\n");\r
+ //printf(" 1=%u 2=%u 3=%u 4=%u\n", XMSHandle1, XMSHandle2, XMSHandle3, XMSHandle4);\r
+ //printf(" 2=%u ", XMSHandle);\r
+ //printf(" %u", gvar->pm.xmm.XMSHandle);\r
+ printf(" err=%02X e=%u\n", err, e);\r
+#endif\r
+ }\r
+ return(gvar->pm.xmm.XMSPresent);\r
}\r
\r
//\r
// Will round an odd-length request up to the next even value\r
//\r
void\r
-PML_XMSCopy(boolean toxms,byte far *addr,word xmspage,word length)\r
+PML_XMSCopy(boolean toxms,byte far *addr,word xmspage,word length, global_game_variables_t *gvar)\r
{\r
dword xoffset;\r
struct\r
{\r
- longword length;\r
+ dword length;\r
word source_handle;\r
- longword source_offset;\r
+ dword source_offset;\r
word target_handle;\r
- longword target_offset;\r
+ dword target_offset;\r
} copy;\r
\r
if (!addr)\r
- printf("PML_XMSCopy: zero address\n");\r
+ {\r
+ Quit (gvar, "PML_XMSCopy: zero address\n");\r
+ //return;\r
+ }\r
\r
- xoffset = (longword)xmspage * PMPageSize;\r
+ xoffset = (dword)xmspage * PMPageSize;\r
\r
copy.length = (length + 1) & ~1;\r
- copy.source_handle = toxms? 0 : XMSHandle;\r
+ copy.source_handle = toxms? 0 : gvar->pm.xmm.XMSHandle;\r
copy.source_offset = toxms? (long)addr : xoffset;\r
- copy.target_handle = toxms? XMSHandle : 0;\r
+ copy.target_handle = toxms? gvar->pm.xmm.XMSHandle : 0;\r
copy.target_offset = toxms? xoffset : (long)addr;\r
\r
-asm push si\r
+ __asm {\r
+ push si\r
+ }\r
_SI = (word)©\r
XMS_CALL(XMS_MOVE);\r
-asm pop si\r
+ __asm {\r
+ pop si\r
+ }\r
if (!_AX)\r
- Quit("PML_XMSCopy: Error on copy");\r
+ {\r
+ Quit (gvar, "PML_XMSCopy: Error on copy");\r
+ //return;\r
+ }\r
}\r
\r
#if 1\r
-#define PML_CopyToXMS(s,t,l) PML_XMSCopy(true,(s),(t),(l))\r
-#define PML_CopyFromXMS(t,s,l) PML_XMSCopy(false,(t),(s),(l))\r
+#define PML_CopyToXMS(s,t,l,gvar) PML_XMSCopy(true,(s),(t),(l),(gvar))\r
+#define PML_CopyFromXMS(t,s,l,gvar) PML_XMSCopy(false,(t),(s),(l),(gvar))\r
#else\r
//\r
// PML_CopyToXMS() - Copies the specified number of bytes from the real mode\r
// segment address to the specified XMS page\r
//\r
void\r
-PML_CopyToXMS(byte far *source,int targetpage,word length)\r
+PML_CopyToXMS(byte far *source,int targetpage,word length,global_game_variables_t *gvar)\r
{\r
- PML_XMSCopy(true,source,targetpage,length);\r
+ PML_XMSCopy(true,source,targetpage,length, global_game_variables_t *gvar);\r
}\r
\r
//\r
// page to the specified real mode address\r
//\r
void\r
-PML_CopyFromXMS(byte far *target,int sourcepage,word length)\r
+PML_CopyFromXMS(byte far *target,int sourcepage,word length, global_game_variables_t *gvar)\r
{\r
- PML_XMSCopy(false,target,sourcepage,length);\r
+ PML_XMSCopy(false,target,sourcepage,length, global_game_variables_t *gvar);\r
}\r
#endif\r
\r
// PML_ShutdownXMS()\r
//\r
void\r
-PML_ShutdownXMS(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 = XMSHandle;\r
- XMS_CALL(XMS_FREE);\r
- if (_BL)\r
- Quit("PML_ShutdownXMS: Error freeing XMS");\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 (gvar, "PML_ShutdownXMS: Error freeing XMS");\r
+ //return;\r
+ }\r
}\r
}\r
\r
// PM_UnlockMainMem() macros should be used instead.\r
//\r
void\r
-PM_SetMainMemPurge(int level)\r
+PM_SetMainMemPurge(int level, global_game_variables_t *gvar)\r
{\r
int i;\r
\r
+ if(gvar->pm.mm.MainPresent)\r
for (i = 0;i < PMMaxMainMem;i++)\r
- if (MainMemPages[i])\r
- MM_SetPurge(&MainMemPages[i],level);\r
+ {\r
+#ifdef __DEBUG_PM__\r
+ printf("PM_SetMainMemPurge() info of gvar->pm.mm.MainMemPages[i]\n");\r
+ printf("& %Fp, %Fp\n", &gvar->pm.mm.MainMemPages[i], &(gvar->pm.mm.MainMemPages[i]));\r
+#endif\r
+ if (gvar->pm.mm.MainMemPages[i])\r
+ MM_SetPurge(&(gvar->pm.mm.MainMemPages[i]),level, gvar);\r
+ }\r
+\r
+ else\r
+ {\r
+ Quit (gvar, "MainPresent IS NULL\n");\r
+ }\r
}\r
\r
//\r
// program makes allocation requests of the Memory Mgr.\r
//\r
void\r
-PM_CheckMainMem(void)\r
+PM_CheckMainMem(global_game_variables_t *gvar)\r
{\r
boolean allocfailed;\r
int i,n;\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 = PMPages;i < ChunksInFile;i++,page++)\r
+ for (i = 0,page = gvar->pm.PMPages;i < gvar->pm.fi.ChunksInFile;i++,page++)\r
{\r
n = page->mainPage;\r
if (n != -1) // Is the page using main memory?\r
{\r
- if (!MainMemPages[n]) // Yep, was the block purged?\r
+ if (!gvar->pm.mm.MainMemPages[n]) // Yep, was the block purged?\r
{\r
page->mainPage = -1; // Yes, mark page as purged & unlocked\r
page->locked = pml_Unlocked;\r
}\r
\r
// Prevent allocation attempts from purging any of our other blocks\r
- PM_LockMainMem();\r
+ PM_LockMainMem(gvar);\r
allocfailed = false;\r
- for (i = 0,p = MainMemPages,used = MainMemUsed;i < PMMaxMainMem;i++,p++,used++)\r
+ for (i = 0,p = gvar->pm.mm.MainMemPages,used = gvar->pm.mm.MainMemUsed; i < PMMaxMainMem;i++,p++,used++)\r
{\r
if (!*p) // If the page got purged\r
{\r
if (*used & pmba_Allocated) // If it was allocated\r
{\r
*used &= ~pmba_Allocated; // Mark as unallocated\r
- MainPagesAvail--; // and decrease available count\r
+ gvar->pm.mm.MainPagesAvail--; // and decrease available count\r
}\r
\r
if (*used & pmba_Used) // If it was used\r
{\r
*used &= ~pmba_Used; // Mark as unused\r
- MainPagesUsed--; // and decrease used count\r
+ gvar->pm.MainPagesUsed--; // and decrease used count\r
}\r
\r
if (!allocfailed)\r
{\r
- MM_BombOnError(false);\r
- MM_GetPtr(p,PMPageSize); // Try to reallocate\r
- if (mmerror) // If it failed,\r
+ MM_BombOnError(false, gvar);\r
+ MM_GetPtr(p,PMPageSize, gvar); // Try to reallocate\r
+ if (gvar->mm.mmerror) // If it failed,\r
allocfailed = true; // don't try any more allocations\r
else // If it worked,\r
{\r
*used |= pmba_Allocated; // Mark as allocated\r
- MainPagesAvail++; // and increase available count\r
+ gvar->pm.mm.MainPagesAvail++; // and increase available count\r
}\r
- MM_BombOnError(true);\r
+ MM_BombOnError(true, gvar);\r
}\r
}\r
}\r
- if (mmerror)\r
- mmerror = false;\r
+ if (gvar->mm.mmerror)\r
+ gvar->mm.mmerror = false;\r
}\r
\r
//\r
// needs to be called.\r
//\r
void\r
-PML_StartupMainMem(void)\r
+PML_StartupMainMem(global_game_variables_t *gvar)\r
{\r
- int i,n;\r
+ int i;//,n;\r
memptr *p;\r
\r
- MainPagesAvail = 0;\r
- MM_BombOnError(false);\r
- for (i = 0,p = MainMemPages;i < PMMaxMainMem;i++,p++)\r
+ gvar->pm.mm.MainPagesAvail = 0;\r
+ gvar->pm.mm.MainPresent = false;\r
+ MM_BombOnError(false, gvar);\r
+ for (i = 0,p = gvar->pm.mm.MainMemPages;i < PMMaxMainMem;i++,p++)\r
{\r
- MM_GetPtr(p,PMPageSize);\r
- if (mmerror)\r
+ MM_GetPtr(p,PMPageSize, gvar);\r
+ if (gvar->mm.mmerror)\r
break;\r
\r
- MainPagesAvail++;\r
- MainMemUsed[i] = pmba_Allocated;\r
+ gvar->pm.mm.MainPagesAvail++;\r
+ gvar->pm.mm.MainMemUsed[i] = pmba_Allocated;\r
}\r
- MM_BombOnError(true);\r
- if (mmerror)\r
- mmerror = false;\r
- if (MainPagesAvail < PMMinMainMem)\r
- Quit("PM_SetupMainMem: Not enough main memory");\r
- MainPresent = true;\r
+ MM_BombOnError(true, gvar);\r
+ if (gvar->mm.mmerror)\r
+ gvar->mm.mmerror = false;\r
+ if (gvar->pm.mm.MainPagesAvail < PMMinMainMem)\r
+ {\r
+ Quit (gvar, "PM_SetupMainMem: Not enough main memory");\r
+ //return;\r
+ }\r
+ gvar->pm.mm.MainPresent = true;\r
}\r
\r
//\r
// Page Mgr.\r
//\r
void\r
-PML_ShutdownMainMem(void)\r
+PML_ShutdownMainMem(global_game_variables_t *gvar)\r
{\r
int i;\r
memptr *p;\r
\r
// DEBUG - mark pages as unallocated & decrease page count as appropriate\r
- for (i = 0,p = MainMemPages;i < PMMaxMainMem;i++,p++)\r
+ for (i = 0,p = gvar->pm.mm.MainMemPages;i < PMMaxMainMem;i++,p++)\r
if (*p)\r
- MM_FreePtr(p);\r
+ MM_FreePtr(p, gvar);\r
}\r
\r
/////////////////////////////////////////////////////////////////////////////\r
// PML_ReadFromFile() - Reads some data in from the page file\r
//\r
void\r
-PML_ReadFromFile(byte far *buf,long offset,word length)\r
+PML_ReadFromFile(byte far *buf,long offset,word length, global_game_variables_t *gvar)\r
{\r
if (!buf)\r
- Quit("PML_ReadFromFile: Null pointer");\r
+ {\r
+ Quit (gvar, "PML_ReadFromFile: Null pointer");\r
+ //return;\r
+ }\r
if (!offset)\r
- Quit("PML_ReadFromFile: Zero offset");\r
- if (lseek(PageFile,offset,SEEK_SET) != offset)\r
- Quit("PML_ReadFromFile: Seek failed");\r
- if (!CA_FarRead(PageFile,buf,length))\r
- Quit("PML_ReadFromFile: Read failed");\r
+ {\r
+ Quit (gvar, "PML_ReadFromFile: Zero offset");\r
+ //return;\r
+ }\r
+ if (lseek(gvar->pm.fi.PageFile,offset,SEEK_SET) != offset)\r
+ {\r
+ Quit (gvar, "PML_ReadFromFile: Seek failed");\r
+ //return;\r
+ }\r
+ if (!CA_FarRead(gvar->pm.fi.PageFile,buf,length, gvar))\r
+ {\r
+ Quit (gvar, "PML_ReadFromFile: Read failed");\r
+ //return;\r
+ }\r
}\r
\r
//\r
// PML_OpenPageFile() - Opens the page file and sets up the page info\r
//\r
void\r
-PML_OpenPageFile(void)\r
+PML_OpenPageFile(global_game_variables_t *gvar)\r
{\r
int i;\r
long size;\r
- void _seg *buf;\r
- longword far *offsetptr;\r
+ //__SEGA buf;\r
+ memptr buf;\r
+ dword far *offsetptr;\r
word far *lengthptr;\r
PageListStruct far *page;\r
\r
- PageFile = open(PageFileName,O_RDONLY + O_BINARY);\r
- if (PageFile == -1)\r
- Quit("PML_OpenPageFile: Unable to open page file");\r
+ gvar->pm.fi.PageFile = open(gvar->pm.fi.PageFileName,O_RDONLY + O_BINARY);\r
+ if (gvar->pm.fi.PageFile == -1)\r
+ {\r
+ Quit (gvar, "PML_OpenPageFile: Unable to open page file");\r
+ //return;\r
+ }\r
\r
// Read in header variables\r
- read(PageFile,&ChunksInFile,sizeof(ChunksInFile));\r
- read(PageFile,&PMSpriteStart,sizeof(PMSpriteStart));\r
- read(PageFile,&PMSoundStart,sizeof(PMSoundStart));\r
+ read(gvar->pm.fi.PageFile,&gvar->pm.fi.ChunksInFile,sizeof(gvar->pm.fi.ChunksInFile));\r
+ read(gvar->pm.fi.PageFile,&gvar->pm.fi.PMSpriteStart,sizeof(gvar->pm.fi.PMSpriteStart));\r
+ read(gvar->pm.fi.PageFile,&gvar->pm.fi.PMSoundStart,sizeof(gvar->pm.fi.PMSoundStart));\r
\r
// Allocate and clear the page list\r
- PMNumBlocks = ChunksInFile;\r
- MM_GetPtr(&(memptr)PMSegPages,sizeof(PageListStruct) * PMNumBlocks);\r
- MM_SetLock(&(memptr)PMSegPages,true);\r
- PMPages = (PageListStruct far *)PMSegPages;\r
- _fmemset(PMPages,0,sizeof(PageListStruct) * PMNumBlocks);\r
+ gvar->pm.PMNumBlocks = gvar->pm.fi.ChunksInFile;\r
+ MM_GetPtr((memptr *)gvar->pm.PMSegPages, sizeof(PageListStruct) * (gvar->pm.PMNumBlocks), gvar);\r
+ MM_SetLock((memptr *)gvar->pm.PMSegPages,true, gvar);\r
+ gvar->pm.PMPages = (PageListStruct far *)gvar->pm.PMSegPages;\r
+ _fmemset(gvar->pm.PMPages,0,sizeof(PageListStruct) * gvar->pm.PMNumBlocks);\r
\r
// Read in the chunk offsets\r
- size = sizeof(longword) * ChunksInFile;\r
- MM_GetPtr(&buf,size);\r
- if (!CA_FarRead(PageFile,(byte far *)buf,size))\r
- Quit("PML_OpenPageFile: Offset read failed");\r
- offsetptr = (longword far *)buf;\r
- for (i = 0,page = PMPages;i < ChunksInFile;i++,page++)\r
+ size = sizeof(dword) * gvar->pm.fi.ChunksInFile;\r
+ MM_GetPtr(&buf, size, gvar);\r
+ if (!CA_FarRead(gvar->pm.fi.PageFile,(byte far *)buf,size, gvar))\r
+ {\r
+ Quit (gvar, "PML_OpenPageFile: Offset read failed");\r
+ //return;\r
+ }\r
+ offsetptr = (dword far *)buf;\r
+ for (i = 0,page = gvar->pm.PMPages;i < gvar->pm.fi.ChunksInFile;i++,page++)\r
page->offset = *offsetptr++;\r
- MM_FreePtr(&buf);\r
+ MM_FreePtr(&buf, gvar);\r
\r
// Read in the chunk lengths\r
- size = sizeof(word) * ChunksInFile;\r
- MM_GetPtr(&buf,size);\r
- if (!CA_FarRead(PageFile,(byte far *)buf,size))\r
- Quit("PML_OpenPageFile: Length read failed");\r
+ size = sizeof(word) * gvar->pm.fi.ChunksInFile;\r
+ MM_GetPtr(&buf,size, gvar);\r
+ if (!CA_FarRead(gvar->pm.fi.PageFile,(byte far *)buf,size, gvar))\r
+ {\r
+ Quit (gvar, "PML_OpenPageFile: Length read failed");\r
+ //return;\r
+ }\r
lengthptr = (word far *)buf;\r
- for (i = 0,page = PMPages;i < ChunksInFile;i++,page++)\r
+ for (i = 0,page = gvar->pm.PMPages;i < gvar->pm.fi.ChunksInFile;i++,page++)\r
page->length = *lengthptr++;\r
- MM_FreePtr(&buf);\r
+ MM_FreePtr(&buf, gvar);\r
}\r
\r
//\r
// PML_ClosePageFile() - Closes the page file\r
//\r
void\r
-PML_ClosePageFile(void)\r
+PML_ClosePageFile(global_game_variables_t *gvar)\r
{\r
- if (PageFile != -1)\r
- close(PageFile);\r
- if (PMSegPages)\r
+ if (gvar->pm.fi.PageFile != -1)\r
+ close(gvar->pm.fi.PageFile);\r
+ if (gvar->pm.PMSegPages)\r
{\r
- MM_SetLock(&(memptr)PMSegPages,false);\r
- MM_FreePtr(&(void _seg *)PMSegPages);\r
+ MM_SetLock((memptr)gvar->pm.PMSegPages,false, gvar);\r
+ MM_FreePtr((memptr)gvar->pm.PMSegPages, gvar);\r
}\r
}\r
\r
// to map our page in. If normal page, use EMS physical page 3, else\r
// use the physical page specified by the lock type\r
//\r
-#if 1\r
+#ifndef __DEBUG_2__\r
#pragma argsused // DEBUG - remove lock parameter\r
memptr\r
-PML_GetEMSAddress(int page,PMLockType lock)\r
+PML_GetEMSAddress(int page,PMLockType lock, global_game_variables_t *gvar)\r
{\r
int i,emspage;\r
word emsoff,emsbase,offset;\r
// See if this page is already mapped in\r
for (i = 0;i < EMSFrameCount;i++)\r
{\r
- if (EMSList[i].baseEMSPage == emsbase)\r
+ if (gvar->pm.emm.EMSList[i].baseEMSPage == emsbase)\r
{\r
emspage = i; // Yep - don't do a redundant remapping\r
break;\r
// If page isn't already mapped in, find LRU EMS frame, and use it\r
if (emspage == -1)\r
{\r
- longword last = MAXLONG;\r
+ dword last = LONG_MAX;\r
for (i = 0;i < EMSFrameCount;i++)\r
{\r
- if (EMSList[i].lastHit < last)\r
+ if (gvar->pm.emm.EMSList[i].lastHit < last)\r
{\r
emspage = i;\r
- last = EMSList[i].lastHit;\r
+ last = gvar->pm.emm.EMSList[i].lastHit;\r
}\r
}\r
\r
- EMSList[emspage].baseEMSPage = emsbase;\r
- PML_MapEMS(page / PMEMSSubPage,emspage);\r
+ gvar->pm.emm.EMSList[emspage].baseEMSPage = emsbase;\r
+ PML_MapEMS(page / PMEMSSubPage,emspage, gvar);\r
}\r
\r
if (emspage == -1)\r
- Quit("PML_GetEMSAddress: EMS find failed");\r
+ Quit (gvar, "PML_GetEMSAddress: EMS find failed");\r
\r
- EMSList[emspage].lastHit = PMFrameCount;\r
+ gvar->pm.emm.EMSList[emspage].lastHit = gvar->pm.PMFrameCount;\r
offset = emspage * EMSPageSizeSeg;\r
offset += emsoff * PMPageSizeSeg;\r
- return((memptr)(EMSPageFrame + offset));\r
+ return((memptr)(gvar->pm.emm.EMSPageFrame + offset));\r
}\r
#else\r
memptr\r
-PML_GetEMSAddress(int page,PMLockType lock)\r
+PML_GetEMSAddress(int page,PMLockType lock, global_game_variables_t *gvar)\r
{\r
word emspage;\r
\r
//\r
//\r
memptr\r
-PM_GetPageAddress(int pagenum)\r
+PM_GetPageAddress(int pagenum, global_game_variables_t *gvar)\r
{\r
PageListStruct far *page;\r
\r
- page = &PMPages[pagenum];\r
+ page = &gvar->pm.PMPages[pagenum];\r
if (page->mainPage != -1)\r
- return(MainMemPages[page->mainPage]);\r
+ return(gvar->pm.mm.MainMemPages[page->mainPage]);\r
else if (page->emsPage != -1)\r
- return(PML_GetEMSAddress(page->emsPage,page->locked));\r
+ return(PML_GetEMSAddress(page->emsPage,page->locked, gvar));\r
else\r
return(nil);\r
}\r
// present & unlocked main/EMS page (or main page if mainonly is true)\r
//\r
int\r
-PML_GiveLRUPage(boolean mainonly)\r
+PML_GiveLRUPage(boolean mainonly, global_game_variables_t *gvar)\r
{\r
int i,lru;\r
long last;\r
PageListStruct far *page;\r
\r
- for (i = 0,page = PMPages,lru = -1,last = MAXLONG;i < ChunksInFile;i++,page++)\r
+ for (i = 0,page = gvar->pm.PMPages,lru = -1,last = LONG_MAX;i < gvar->pm.fi.ChunksInFile;i++,page++)\r
{\r
if\r
(\r
}\r
\r
if (lru == -1)\r
- Quit("PML_GiveLRUPage: LRU Search failed");\r
+ Quit (gvar, "PML_GiveLRUPage: LRU Search failed");\r
return(lru);\r
}\r
\r
// This routine won't return the XMS page protected (by XMSProtectPage)\r
//\r
int\r
-PML_GiveLRUXMSPage(void)\r
+PML_GiveLRUXMSPage(global_game_variables_t *gvar)\r
{\r
int i,lru;\r
long last;\r
PageListStruct far *page;\r
\r
- for (i = 0,page = PMPages,lru = -1,last = MAXLONG;i < ChunksInFile;i++,page++)\r
+ for (i = 0,page = gvar->pm.PMPages,lru = -1,last = LONG_MAX;i < gvar->pm.fi.ChunksInFile;i++,page++)\r
{\r
if\r
(\r
(page->xmsPage != -1)\r
&& (page->lastHit < last)\r
- && (i != XMSProtectPage)\r
+ && (i != gvar->pm.xmm.XMSProtectPage)\r
)\r
{\r
last = page->lastHit;\r
// it with the main/EMS page\r
//\r
void\r
-PML_PutPageInXMS(int pagenum)\r
+PML_PutPageInXMS(int pagenum, global_game_variables_t *gvar)\r
{\r
int usexms;\r
PageListStruct far *page;\r
\r
- if (!XMSPresent)\r
+ if (!gvar->pm.xmm.XMSPresent)\r
return;\r
\r
- page = &PMPages[pagenum];\r
+ page = &gvar->pm.PMPages[pagenum];\r
if (page->xmsPage != -1)\r
return; // Already in XMS\r
\r
- if (XMSPagesUsed < XMSPagesAvail)\r
- page->xmsPage = XMSPagesUsed++;\r
+ if (gvar->pm.XMSPagesUsed < gvar->pm.xmm.XMSPagesAvail)\r
+ page->xmsPage = gvar->pm.XMSPagesUsed++;\r
else\r
{\r
- usexms = PML_GiveLRUXMSPage();\r
+ usexms = PML_GiveLRUXMSPage(gvar);\r
if (usexms == -1)\r
- Quit("PML_PutPageInXMS: No XMS LRU");\r
- page->xmsPage = PMPages[usexms].xmsPage;\r
- PMPages[usexms].xmsPage = -1;\r
+ Quit (gvar, "PML_PutPageInXMS: No XMS LRU");\r
+ page->xmsPage = gvar->pm.PMPages[usexms].xmsPage;\r
+ gvar->pm.PMPages[usexms].xmsPage = -1;\r
}\r
- PML_CopyToXMS(PM_GetPageAddress(pagenum),page->xmsPage,page->length);\r
+ PML_CopyToXMS(PM_GetPageAddress(pagenum, gvar),page->xmsPage,page->length, gvar);\r
}\r
\r
//\r
// the old one's address space. Returns the address of the new page.\r
//\r
memptr\r
-PML_TransferPageSpace(int orig,int new)\r
+PML_TransferPageSpace(int orig,int new, global_game_variables_t *gvar)\r
{\r
memptr addr;\r
PageListStruct far *origpage,far *newpage;\r
\r
if (orig == new)\r
- Quit("PML_TransferPageSpace: Identity replacement");\r
+ Quit (gvar, "PML_TransferPageSpace: Identity replacement");\r
\r
- origpage = &PMPages[orig];\r
- newpage = &PMPages[new];\r
+ origpage = &gvar->pm.PMPages[orig];\r
+ newpage = &gvar->pm.PMPages[new];\r
\r
if (origpage->locked != pml_Unlocked)\r
- Quit("PML_TransferPageSpace: Killing locked page");\r
+ Quit (gvar, "PML_TransferPageSpace: Killing locked page");\r
\r
if ((origpage->emsPage == -1) && (origpage->mainPage == -1))\r
- Quit("PML_TransferPageSpace: Reusing non-existent page");\r
+ Quit (gvar, "PML_TransferPageSpace: Reusing non-existent page");\r
\r
// Copy page that's about to be purged into XMS\r
- PML_PutPageInXMS(orig);\r
+ PML_PutPageInXMS(orig, gvar);\r
\r
// Get the address, and force EMS into a physical page if necessary\r
- addr = PM_GetPageAddress(orig);\r
+ addr = PM_GetPageAddress(orig, gvar);\r
\r
// Steal the address\r
newpage->emsPage = origpage->emsPage;\r
origpage->mainPage = origpage->emsPage = -1;\r
\r
if (!addr)\r
- Quit("PML_TransferPageSpace: Zero replacement");\r
+ Quit (gvar, "PML_TransferPageSpace: Zero replacement");\r
\r
return(addr);\r
}\r
// will be looked at by PML_GiveLRUPage().\r
//\r
byte far *\r
-PML_GetAPageBuffer(int pagenum,boolean mainonly)\r
+PML_GetAPageBuffer(int pagenum,boolean mainonly, global_game_variables_t *gvar)\r
{\r
byte far *addr = nil;\r
int i,n;\r
PMBlockAttr *used;\r
PageListStruct far *page;\r
\r
- page = &PMPages[pagenum];\r
- if ((EMSPagesUsed < EMSPagesAvail) && !mainonly)\r
+ page = &gvar->pm.PMPages[pagenum];\r
+ if ((gvar->pm.EMSPagesUsed < gvar->pm.emm.EMSPagesAvail) && !mainonly)\r
{\r
// There's remaining EMS - use it\r
- page->emsPage = EMSPagesUsed++;\r
- addr = PML_GetEMSAddress(page->emsPage,page->locked);\r
+ page->emsPage = gvar->pm.EMSPagesUsed++;\r
+ addr = PML_GetEMSAddress(page->emsPage,page->locked, gvar);\r
}\r
- else if (MainPagesUsed < MainPagesAvail)\r
+ else if (gvar->pm.MainPagesUsed < gvar->pm.mm.MainPagesAvail)\r
{\r
// There's remaining main memory - use it\r
- for (i = 0,n = -1,used = MainMemUsed;i < PMMaxMainMem;i++,used++)\r
+ for (i = 0,n = -1,used = gvar->pm.mm.MainMemUsed;i < PMMaxMainMem;i++,used++)\r
{\r
if ((*used & pmba_Allocated) && !(*used & pmba_Used))\r
{\r
}\r
}\r
if (n == -1)\r
- Quit("PML_GetPageBuffer: MainPagesAvail lied");\r
- addr = MainMemPages[n];\r
+ Quit (gvar, "PML_GetPageBuffer: MainPagesAvail lied");\r
+ addr = gvar->pm.mm.MainMemPages[n];\r
if (!addr)\r
- Quit("PML_GetPageBuffer: Purged main block");\r
+ Quit (gvar, "PML_GetPageBuffer: Purged main block");\r
page->mainPage = n;\r
- MainPagesUsed++;\r
+ gvar->pm.MainPagesUsed++;\r
}\r
else\r
- addr = PML_TransferPageSpace(PML_GiveLRUPage(mainonly),pagenum);\r
+ addr = PML_TransferPageSpace(PML_GiveLRUPage(mainonly, gvar),pagenum, gvar);\r
\r
if (!addr)\r
- Quit("PML_GetPageBuffer: Search failed");\r
+ Quit (gvar, "PML_GetPageBuffer: Search failed");\r
return(addr);\r
}\r
\r
// (pages that are being purged are copied into XMS, if possible)\r
//\r
memptr\r
-PML_GetPageFromXMS(int pagenum,boolean mainonly)\r
+PML_GetPageFromXMS(int pagenum,boolean mainonly, global_game_variables_t *gvar)\r
{\r
byte far *checkaddr;\r
memptr addr = nil;\r
PageListStruct far *page;\r
\r
- page = &PMPages[pagenum];\r
- if (XMSPresent && (page->xmsPage != -1))\r
+ page = &gvar->pm.PMPages[pagenum];\r
+ if (gvar->pm.xmm.XMSPresent && (page->xmsPage != -1))\r
{\r
- XMSProtectPage = pagenum;\r
- checkaddr = PML_GetAPageBuffer(pagenum,mainonly);\r
+ gvar->pm.xmm.XMSProtectPage = pagenum;\r
+ checkaddr = PML_GetAPageBuffer(pagenum,mainonly, gvar);\r
if (FP_OFF(checkaddr))\r
- Quit("PML_GetPageFromXMS: Non segment pointer");\r
+ Quit (gvar, "PML_GetPageFromXMS: Non segment pointer");\r
addr = (memptr)FP_SEG(checkaddr);\r
- PML_CopyFromXMS(addr,page->xmsPage,page->length);\r
- XMSProtectPage = -1;\r
+ PML_CopyFromXMS(addr,page->xmsPage,page->length, gvar);\r
+ gvar->pm.xmm.XMSProtectPage = -1;\r
}\r
\r
return(addr);\r
// only be loaded into main.\r
//\r
void\r
-PML_LoadPage(int pagenum,boolean mainonly)\r
+PML_LoadPage(int pagenum,boolean mainonly, global_game_variables_t *gvar)\r
{\r
byte far *addr;\r
PageListStruct far *page;\r
\r
- addr = PML_GetAPageBuffer(pagenum,mainonly);\r
- page = &PMPages[pagenum];\r
- PML_ReadFromFile(addr,page->offset,page->length);\r
+ addr = PML_GetAPageBuffer(pagenum,mainonly, gvar);\r
+ page = &gvar->pm.PMPages[pagenum];\r
+ PML_ReadFromFile(addr,page->offset,page->length, gvar);\r
}\r
\r
//\r
//\r
#pragma warn -pia\r
memptr\r
-PM_GetPage(int pagenum)\r
+PM_GetPage(int pagenum, global_game_variables_t *gvar)\r
{\r
memptr result;\r
\r
- if (pagenum >= ChunksInFile)\r
- Quit("PM_GetPage: Invalid page request");\r
-\r
-#if 0 // for debugging\r
-asm mov dx,STATUS_REGISTER_1\r
-asm in al,dx\r
-asm mov dx,ATR_INDEX\r
-asm mov al,ATR_OVERSCAN\r
-asm out dx,al\r
-asm mov al,10 // bright green\r
-asm out dx,al\r
+ if (pagenum >= gvar->pm.fi.ChunksInFile)\r
+ Quit (gvar, "PM_GetPage: Invalid page request");\r
+\r
+#ifdef __DEBUG_2__ // for debugging\r
+ __asm {\r
+ mov dx,STATUS_REGISTER_1\r
+ in al,dx\r
+ mov dx,ATR_INDEX\r
+ mov al,ATR_OVERSCAN\r
+ out dx,al\r
+ mov al,10 // bright green\r
+ out dx,al\r
+ }\r
#endif\r
\r
- if (!(result = PM_GetPageAddress(pagenum)))\r
+ if (!(result = PM_GetPageAddress(pagenum, gvar)))\r
{\r
- boolean mainonly = (pagenum >= PMSoundStart);\r
-if (!PMPages[pagenum].offset) // JDC: sparse page\r
- Quit ("Tried to load a sparse page!");\r
- if (!(result = PML_GetPageFromXMS(pagenum,mainonly)))\r
+ boolean mainonly = (pagenum >= gvar->pm.fi.PMSoundStart);\r
+if (!gvar->pm.PMPages[pagenum].offset) // JDC: sparse page\r
+ Quit (gvar, "Tried to load a sparse page!");\r
+ if (!(result = PML_GetPageFromXMS(pagenum,mainonly, gvar)))\r
{\r
- if (PMPages[pagenum].lastHit == PMFrameCount)\r
- PMThrashing++;\r
+ if (gvar->pm.PMPages[pagenum].lastHit == gvar->pm.PMFrameCount)\r
+ gvar->pm.PMThrashing++;\r
\r
- PML_LoadPage(pagenum,mainonly);\r
- result = PM_GetPageAddress(pagenum);\r
+ PML_LoadPage(pagenum,mainonly, gvar);\r
+ result = PM_GetPageAddress(pagenum, gvar);\r
}\r
}\r
- PMPages[pagenum].lastHit = PMFrameCount;\r
-\r
-#if 0 // for debugging\r
-asm mov dx,STATUS_REGISTER_1\r
-asm in al,dx\r
-asm mov dx,ATR_INDEX\r
-asm mov al,ATR_OVERSCAN\r
-asm out dx,al\r
-asm mov al,3 // blue\r
-asm out dx,al\r
-asm mov al,0x20 // normal\r
-asm out dx,al\r
+ gvar->pm.PMPages[pagenum].lastHit = gvar->pm.PMFrameCount;\r
+\r
+#ifdef __DEBUG_2__ // for debugging\r
+ __asm{\r
+ mov dx,STATUS_REGISTER_1\r
+ in al,dx\r
+ mov dx,ATR_INDEX\r
+ mov al,ATR_OVERSCAN\r
+ out dx,al\r
+ mov al,3 // blue\r
+ out dx,al\r
+ mov al,0x20 // normal\r
+ out dx,al\r
#endif\r
\r
return(result);\r
// specified when returning the address. For sound stuff.\r
//\r
void\r
-PM_SetPageLock(int pagenum,PMLockType lock)\r
+PM_SetPageLock(int pagenum,PMLockType lock, global_game_variables_t *gvar)\r
{\r
- if (pagenum < PMSoundStart)\r
- Quit("PM_SetPageLock: Locking/unlocking non-sound page");\r
+ if (pagenum < gvar->pm.fi.PMSoundStart)\r
+ Quit (gvar, "PM_SetPageLock: Locking/unlocking non-sound page");\r
\r
- PMPages[pagenum].locked = lock;\r
+ gvar->pm.PMPages[pagenum].locked = lock;\r
}\r
\r
//\r
// page, and the total pages that need to be loaded (for thermometer).\r
//\r
void\r
-PM_Preload(boolean (*update)(word current,word total))\r
+PM_Preload(boolean (*update)(word current,word total), global_game_variables_t *gvar)\r
{\r
- int i,j,\r
+ int i,//j,\r
page,oogypage;\r
word current,total,\r
- totalnonxms,totalxms,\r
+ //totalnonxms,totalxms,\r
mainfree,maintotal,\r
- emsfree,emstotal,\r
+ //emstotal,emsfree,\r
xmsfree,xmstotal;\r
memptr addr;\r
- PageListStruct far *p;\r
+ PageListStruct __far *p;\r
\r
- mainfree = (MainPagesAvail - MainPagesUsed) + (EMSPagesAvail - EMSPagesUsed);\r
- xmsfree = (XMSPagesAvail - XMSPagesUsed);\r
+ mainfree = (gvar->pm.mm.MainPagesAvail - gvar->pm.MainPagesUsed) + (gvar->pm.emm.EMSPagesAvail - gvar->pm.EMSPagesUsed);\r
+ xmsfree = (gvar->pm.xmm.XMSPagesAvail - gvar->pm.XMSPagesUsed);\r
\r
xmstotal = maintotal = 0;\r
\r
- for (i = 0;i < ChunksInFile;i++)\r
+ for (i = 0;i < gvar->pm.fi.ChunksInFile;i++)\r
{\r
- if (!PMPages[i].offset)\r
+ if (!gvar->pm.PMPages[i].offset)\r
continue; // sparse\r
\r
- if ( PMPages[i].emsPage != -1 || PMPages[i].mainPage != -1 )\r
+ if ( gvar->pm.PMPages[i].emsPage != -1 || gvar->pm.PMPages[i].mainPage != -1 )\r
continue; // already in main mem\r
\r
if ( mainfree )\r
maintotal++;\r
mainfree--;\r
}\r
- else if ( xmsfree && (PMPages[i].xmsPage == -1) )\r
+ else if ( xmsfree && (gvar->pm.PMPages[i].xmsPage == -1) )\r
{\r
xmstotal++;\r
xmsfree--;\r
//\r
while (maintotal)\r
{\r
- while ( !PMPages[page].offset || PMPages[page].mainPage != -1\r
- || PMPages[page].emsPage != -1 )\r
+ while ( !gvar->pm.PMPages[page].offset || gvar->pm.PMPages[page].mainPage != -1\r
+ || gvar->pm.PMPages[page].emsPage != -1 )\r
page++;\r
\r
- if (page >= ChunksInFile)\r
- Quit ("PM_Preload: Pages>=ChunksInFile");\r
+ if (page >= gvar->pm.fi.ChunksInFile)\r
+ Quit (gvar, "PM_Preload: Pages>=gvar->pm.fi.ChunksInFile");\r
\r
- PM_GetPage(page);\r
+ PM_GetPage(page, gvar);\r
\r
page++;\r
current++;\r
//\r
if (xmstotal)\r
{\r
- for (oogypage = 0 ; PMPages[oogypage].mainPage == -1 ; oogypage++)\r
+ for (oogypage = 0 ; gvar->pm.PMPages[oogypage].mainPage == -1 ; oogypage++)\r
;\r
- addr = PM_GetPage(oogypage);\r
+ addr = PM_GetPage(oogypage, gvar);\r
if (!addr)\r
- Quit("PM_Preload: XMS buffer failed");\r
+ Quit (gvar, "PM_Preload: XMS buffer failed");\r
\r
while (xmstotal)\r
{\r
- while ( !PMPages[page].offset || PMPages[page].xmsPage != -1 )\r
+ while ( !gvar->pm.PMPages[page].offset || gvar->pm.PMPages[page].xmsPage != -1 )\r
page++;\r
\r
- if (page >= ChunksInFile)\r
- Quit ("PM_Preload: Pages>=ChunksInFile");\r
+ if (page >= gvar->pm.fi.ChunksInFile)\r
+ Quit (gvar, "PM_Preload: Pages>=gvar->pm.fi.ChunksInFile");\r
\r
- p = &PMPages[page];\r
+ p = &gvar->pm.PMPages[page];\r
\r
- p->xmsPage = XMSPagesUsed++;\r
- if (XMSPagesUsed > XMSPagesAvail)\r
- Quit("PM_Preload: Exceeded XMS pages");\r
+ p->xmsPage = gvar->pm.XMSPagesUsed++;\r
+ if (gvar->pm.XMSPagesUsed > gvar->pm.xmm.XMSPagesAvail)\r
+ Quit (gvar, "PM_Preload: Exceeded XMS pages");\r
if (p->length > PMPageSize)\r
- Quit("PM_Preload: Page too long");\r
+ Quit (gvar, "PM_Preload: Page too long");\r
\r
- PML_ReadFromFile((byte far *)addr,p->offset,p->length);\r
- PML_CopyToXMS((byte far *)addr,p->xmsPage,p->length);\r
+ PML_ReadFromFile((byte far *)addr,p->offset,p->length, gvar);\r
+ PML_CopyToXMS((byte far *)addr,p->xmsPage,p->length, gvar);\r
\r
page++;\r
current++;\r
update(current,total);\r
}\r
\r
- p = &PMPages[oogypage];\r
- PML_ReadFromFile((byte far *)addr,p->offset,p->length);\r
+ p = &gvar->pm.PMPages[oogypage];\r
+ PML_ReadFromFile((byte far *)addr,p->offset,p->length, gvar);\r
}\r
\r
update(total,total);\r
//\r
//\r
void\r
-PM_NextFrame(void)\r
+PM_NextFrame(global_game_variables_t *gvar)\r
{\r
int i;\r
\r
// Frame count overrun - kill the LRU hit entries & reset frame count\r
- if (++PMFrameCount >= MAXLONG - 4)\r
+ if (++gvar->pm.PMFrameCount >= LONG_MAX - 4)\r
{\r
- for (i = 0;i < PMNumBlocks;i++)\r
- PMPages[i].lastHit = 0;\r
- PMFrameCount = 0;\r
+ for (i = 0;i < gvar->pm.PMNumBlocks;i++)\r
+ gvar->pm.PMPages[i].lastHit = 0;\r
+ gvar->pm.PMFrameCount = 0;\r
}\r
\r
-#if 0\r
- for (i = 0;i < PMSoundStart;i++)\r
+//#if 0\r
+ for (i = 0;i < gvar->pm.fi.PMSoundStart;i++)\r
{\r
- if (PMPages[i].locked)\r
+ if (gvar->pm.PMPages[i].locked)\r
{\r
char buf[40];\r
sprintf(buf,"PM_NextFrame: Page %d is locked",i);\r
- Quit(buf);\r
+ Quit(gvar, buf);\r
}\r
}\r
-#endif\r
+//#endif\r
\r
- if (PMPanicMode)\r
+ if (gvar->pm.PMPanicMode)\r
{\r
// DEBUG - set border color\r
- if ((!PMThrashing) && (!--PMPanicMode))\r
+ if ((!gvar->pm.PMThrashing) && (!--gvar->pm.PMPanicMode))\r
{\r
// DEBUG - reset border color\r
}\r
}\r
- if (PMThrashing >= PMThrashThreshold)\r
- PMPanicMode = PMUnThrashThreshold;\r
- PMThrashing = false;\r
+ if (gvar->pm.PMThrashing >= PMThrashThreshold)\r
+ gvar->pm.PMPanicMode = PMUnThrashThreshold;\r
+ gvar->pm.PMThrashing = false;\r
}\r
\r
//\r
// PM_Reset() - Sets up caching structures\r
//\r
void\r
-PM_Reset(void)\r
+PM_Reset(global_game_variables_t *gvar)\r
{\r
int i;\r
PageListStruct far *page;\r
\r
- XMSPagesAvail = XMSAvail / PMPageSizeKB;\r
+ gvar->pm.xmm.XMSPagesAvail = gvar->pm.xmm.XMSAvail / PMPageSizeKB;\r
+\r
+ gvar->pm.emm.EMSPagesAvail = gvar->pm.emm.EMSAvail * (EMSPageSizeKB / PMPageSizeKB);\r
+ gvar->pm.emm.EMSPhysicalPage = 0;\r
\r
- EMSPagesAvail = EMSAvail * (EMSPageSizeKB / PMPageSizeKB);\r
- EMSPhysicalPage = 0;\r
+ gvar->pm.MainPagesUsed = gvar->pm.EMSPagesUsed = gvar->pm.XMSPagesUsed = 0;\r
\r
- MainPagesUsed = EMSPagesUsed = XMSPagesUsed = 0;\r
+ gvar->pm.PMPanicMode = false;\r
\r
- PMPanicMode = false;\r
+ gvar->pm.fi.PageFile = -1;\r
+ gvar->pm.xmm.XMSProtectPage = -1;\r
\r
// Initialize page list\r
- for (i = 0,page = PMPages;i < PMNumBlocks;i++,page++)\r
+ for (i = 0,page = gvar->pm.PMPages;i < gvar->pm.PMNumBlocks;i++,page++)\r
{\r
page->mainPage = -1;\r
page->emsPage = -1;\r
// PM_Startup() - Start up the Page Mgr\r
//\r
void\r
-PM_Startup(void)\r
+PM_Startup(global_game_variables_t *gvar)\r
{\r
boolean nomain,noems,noxms;\r
int i;\r
\r
- if (PMStarted)\r
+ if (gvar->pm.PMStarted)\r
return;\r
\r
+ //0000+=+=strcpy(&(gvar->pm.fi.PageFileName), "VSWAP.");\r
+\r
nomain = noems = noxms = false;\r
for (i = 1;i < _argc;i++)\r
{\r
}\r
}\r
\r
- PML_OpenPageFile();\r
+ //0000+=+=PML_OpenPageFile(gvar);\r
\r
- if (!noems)\r
- PML_StartupEMS();\r
- if (!noxms)\r
- PML_StartupXMS();\r
+ if (!noems && MML_CheckForEMS())\r
+ PML_StartupEMS(gvar);\r
+ if (!noxms && MML_CheckForXMS())\r
+ PML_StartupXMS(gvar);\r
+ if(!nomain)\r
+ PML_StartupMainMem(gvar);\r
\r
- if (nomain && !EMSPresent)
+ if (!gvar->pm.mm.MainPresent && !gvar->pm.emm.EMSPresent && !gvar->pm.xmm.XMSPresent)\r
{\r
- printf("PM_Startup: No main or EMS\n");
- return;
+ Quit (gvar, "PM_Startup: No main or EMS\n");\r
+ //return;\r
}\r
- else\r
- PML_StartupMainMem();\r
\r
- PM_Reset();\r
+ PM_Reset(gvar);\r
\r
- PMStarted = true;\r
+ gvar->pm.PMStarted = true;\r
}\r
\r
//\r
// PM_Shutdown() - Shut down the Page Mgr\r
//\r
void\r
-PM_Shutdown(void)\r
+PM_Shutdown(global_game_variables_t *gvar)\r
{\r
- PML_ShutdownXMS();\r
- PML_ShutdownEMS();\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();\r
+ //PML_ClosePageFile(gvar);\r
\r
- PML_ShutdownMainMem();\r
+ PML_ShutdownMainMem(gvar);\r
}\r