/* Project 16 Source Code~\r
- * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
+ * Copyright (C) 2012-2017 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
*\r
* This file is part of Project 16.\r
*\r
#include "src/lib/16_pm.h"\r
#pragma hdrstop\r
\r
-#ifdef __DEBUG__\r
-boolean dbg_debugpm=0;\r
-#endif\r
-\r
// Main Mem specific variables\r
//boolean MainPresent;\r
/* memptr MainMemPages[PMMaxMainMem];\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
byte\r
PML_MapEMS(word logical, byte physical, global_game_variables_t *gvar)\r
{\r
- byte err, str[160];\r
+ byte err=0, str[160];\r
unsigned EMShandle;\r
- int i;\r
+ //int i;\r
\r
boolean errorflag=false;\r
EMShandle=gvar->pm.emm.EMSHandle;\r
strcpy(str,"MM_MapEMS: EMS error ");\r
MM_EMSerr(str, err);\r
printf("%s\n",str);\r
- Quit("PML_MapEMS: Page mapping failed\n");\r
+ Quit (gvar, "PML_MapEMS: Page mapping failed\n");\r
return err;\r
}\r
return 0;\r
{\r
int i;\r
//long size;\r
- byte err, str[64];\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,EMSAvail;\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
PML_ShutdownEMS(global_game_variables_t *gvar)\r
{\r
word EMSHandle;\r
- byte err,str[64];\r
+ byte err=0, str[64];\r
\r
boolean errorflag=false;\r
EMSHandle=gvar->pm.emm.EMSHandle;\r
strcpy(str,"PML_ShutdownEMS: Error freeing EMS ");\r
MM_EMSerr(str, err);\r
printf("%s\n",str);\r
- Quit("PML_ShutdownEMS: Error freeing EMS\n");\r
+ Quit (gvar, "PML_ShutdownEMS: Error freeing EMS\n");\r
//return;\r
}\r
}\r
\r
if (!addr)\r
{\r
- Quit("PML_XMSCopy: zero address\n");\r
+ Quit (gvar, "PML_XMSCopy: zero address\n");\r
//return;\r
}\r
\r
}\r
if (!_AX)\r
{\r
- Quit("PML_XMSCopy: Error on copy");\r
+ Quit (gvar, "PML_XMSCopy: Error on copy");\r
//return;\r
}\r
}\r
#endif\r
if(errorflag==true)\r
{\r
- Quit("PML_ShutdownXMS: Error freeing XMS");\r
+ Quit (gvar, "PML_ShutdownXMS: Error freeing XMS");\r
//return;\r
}\r
}\r
\r
else\r
{\r
- Quit("MainPresent IS NULL\n");\r
+ Quit (gvar, "MainPresent IS NULL\n");\r
}\r
}\r
\r
void\r
PML_StartupMainMem(global_game_variables_t *gvar)\r
{\r
- int i,n;\r
+ int i;//,n;\r
memptr *p;\r
\r
gvar->pm.mm.MainPagesAvail = 0;\r
gvar->mm.mmerror = false;\r
if (gvar->pm.mm.MainPagesAvail < PMMinMainMem)\r
{\r
- Quit("PM_SetupMainMem: Not enough main memory");\r
+ Quit (gvar, "PM_SetupMainMem: Not enough main memory");\r
//return;\r
}\r
gvar->pm.mm.MainPresent = true;\r
{\r
if (!buf)\r
{\r
- Quit("PML_ReadFromFile: Null pointer");\r
+ Quit (gvar, "PML_ReadFromFile: Null pointer");\r
//return;\r
}\r
if (!offset)\r
{\r
- Quit("PML_ReadFromFile: Zero offset");\r
+ Quit (gvar, "PML_ReadFromFile: Zero offset");\r
//return;\r
}\r
if (lseek(gvar->pm.fi.PageFile,offset,SEEK_SET) != offset)\r
{\r
- Quit("PML_ReadFromFile: Seek failed");\r
+ Quit (gvar, "PML_ReadFromFile: Seek failed");\r
//return;\r
}\r
if (!CA_FarRead(gvar->pm.fi.PageFile,buf,length, gvar))\r
{\r
- Quit("PML_ReadFromFile: Read failed");\r
+ Quit (gvar, "PML_ReadFromFile: Read failed");\r
//return;\r
}\r
}\r
gvar->pm.fi.PageFile = open(gvar->pm.fi.PageFileName,O_RDONLY + O_BINARY);\r
if (gvar->pm.fi.PageFile == -1)\r
{\r
- Quit("PML_OpenPageFile: Unable to open page file");\r
+ Quit (gvar, "PML_OpenPageFile: Unable to open page file");\r
//return;\r
}\r
\r
MM_GetPtr(&buf, size, gvar);\r
if (!CA_FarRead(gvar->pm.fi.PageFile,(byte far *)buf,size, gvar))\r
{\r
- Quit("PML_OpenPageFile: Offset read failed");\r
+ Quit (gvar, "PML_OpenPageFile: Offset read failed");\r
//return;\r
}\r
offsetptr = (dword far *)buf;\r
MM_GetPtr(&buf,size, gvar);\r
if (!CA_FarRead(gvar->pm.fi.PageFile,(byte far *)buf,size, gvar))\r
{\r
- Quit("PML_OpenPageFile: Length read failed");\r
+ Quit (gvar, "PML_OpenPageFile: Length read failed");\r
//return;\r
}\r
lengthptr = (word far *)buf;\r
}\r
\r
if (emspage == -1)\r
- Quit("PML_GetEMSAddress: EMS find failed");\r
+ Quit (gvar, "PML_GetEMSAddress: EMS find failed");\r
\r
gvar->pm.emm.EMSList[emspage].lastHit = gvar->pm.PMFrameCount;\r
offset = emspage * EMSPageSizeSeg;\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
{\r
usexms = PML_GiveLRUXMSPage(gvar);\r
if (usexms == -1)\r
- Quit("PML_PutPageInXMS: No XMS LRU");\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
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 = &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, gvar);\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
}\r
}\r
if (n == -1)\r
- Quit("PML_GetPageBuffer: MainPagesAvail lied");\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
gvar->pm.MainPagesUsed++;\r
}\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
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, gvar);\r
gvar->pm.xmm.XMSProtectPage = -1;\r
memptr result;\r
\r
if (pagenum >= gvar->pm.fi.ChunksInFile)\r
- Quit("PM_GetPage: Invalid page request");\r
+ Quit (gvar, "PM_GetPage: Invalid page request");\r
\r
#ifdef __DEBUG_2__ // for debugging\r
__asm {\r
{\r
boolean mainonly = (pagenum >= gvar->pm.fi.PMSoundStart);\r
if (!gvar->pm.PMPages[pagenum].offset) // JDC: sparse page\r
- Quit ("Tried to load a sparse page!");\r
+ Quit (gvar, "Tried to load a sparse page!");\r
if (!(result = PML_GetPageFromXMS(pagenum,mainonly, gvar)))\r
{\r
if (gvar->pm.PMPages[pagenum].lastHit == gvar->pm.PMFrameCount)\r
PM_SetPageLock(int pagenum,PMLockType lock, global_game_variables_t *gvar)\r
{\r
if (pagenum < gvar->pm.fi.PMSoundStart)\r
- Quit("PM_SetPageLock: Locking/unlocking non-sound page");\r
+ Quit (gvar, "PM_SetPageLock: Locking/unlocking non-sound page");\r
\r
gvar->pm.PMPages[pagenum].locked = lock;\r
}\r
void\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 = (gvar->pm.mm.MainPagesAvail - gvar->pm.MainPagesUsed) + (gvar->pm.emm.EMSPagesAvail - gvar->pm.EMSPagesUsed);\r
xmsfree = (gvar->pm.xmm.XMSPagesAvail - gvar->pm.XMSPagesUsed);\r
page++;\r
\r
if (page >= gvar->pm.fi.ChunksInFile)\r
- Quit ("PM_Preload: Pages>=gvar->pm.fi.ChunksInFile");\r
+ Quit (gvar, "PM_Preload: Pages>=gvar->pm.fi.ChunksInFile");\r
\r
PM_GetPage(page, gvar);\r
\r
;\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
page++;\r
\r
if (page >= gvar->pm.fi.ChunksInFile)\r
- Quit ("PM_Preload: Pages>=gvar->pm.fi.ChunksInFile");\r
+ Quit (gvar, "PM_Preload: Pages>=gvar->pm.fi.ChunksInFile");\r
\r
p = &gvar->pm.PMPages[page];\r
\r
p->xmsPage = gvar->pm.XMSPagesUsed++;\r
if (gvar->pm.XMSPagesUsed > gvar->pm.xmm.XMSPagesAvail)\r
- Quit("PM_Preload: Exceeded XMS pages");\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, gvar);\r
PML_CopyToXMS((byte far *)addr,p->xmsPage,p->length, gvar);\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
if (gvar->pm.PMStarted)\r
return;\r
\r
- //strcpy(&(gvar->pm.fi.PageFileName), "VSWAP.");\r
+ //0000+=+=strcpy(&(gvar->pm.fi.PageFileName), "VSWAP.");\r
\r
nomain = noems = noxms = false;\r
for (i = 1;i < _argc;i++)\r
\r
if (!gvar->pm.mm.MainPresent && !gvar->pm.emm.EMSPresent && !gvar->pm.xmm.XMSPresent)\r
{\r
- Quit("PM_Startup: No main or EMS\n");\r
+ Quit (gvar, "PM_Startup: No main or EMS\n");\r
//return;\r
}\r
\r