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