]> 4ch.mooo.com Git - 16.git/blobdiff - src/lib/16_pm.c
updated the copyleft wwww i am not deAD! i just been 2 busy last 6 monthes
[16.git] / src / lib / 16_pm.c
index ac77de42fe9aec5066cd848f68d08db77eb9fa1b..01622b5e621b84d14f4f3520b273c673730cd225 100755 (executable)
@@ -1,5 +1,5 @@
 /* Project 16 Source Code~\r
- * Copyright (C) 2012-2017 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
+ * Copyright (C) 2012-2018 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
  *\r
  * This file is part of Project 16.\r
  *\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
@@ -153,49 +131,28 @@ PML_MapEMS(word logical, byte physical, global_game_variables_t *gvar)
 //             If there's more than our minimum (2 pages) available, allocate it (up\r
 //                     to the maximum we need)\r
 //\r
+//     Please call MML_CheckForEMS() before calling this function.\r
+//     MML_CheckForEMS is not local despite the name wwww.\r
+//\r
 \r
 boolean\r
 PML_StartupEMS(global_game_variables_t *gvar)\r
 {\r
        int             i;\r
-       //long  size;\r
+#ifdef __PM__NOHOGEMS__\r
+       long    size;\r
+#endif\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
+       unsigned        EMSVer;\r
+       unsigned        totalEMSpages,freeEMSpages,EMSPageFrame,EMSHandle,EMSAvail;\r
+       totalEMSpages = freeEMSpages = EMSPageFrame = EMSHandle = EMSAvail = EMSVer = 0;        // set all to 0~\r
        gvar->pm.emm.EMSPresent = false;                        // Assume that we'll fail\r
-       gvar->pm.emm.EMSAvail = 0;\r
-       gvar->mmi.EMSmem = 0;\r
+       gvar->pm.emm.EMSAvail = 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
+               //MML_CheckForEMS() takes care of what the code did here\r
                mov     ah,EMS_STATUS\r
                int     EMS_INT\r
                jc      error1                  // make sure EMS hardware is present\r
@@ -204,7 +161,7 @@ PML_StartupEMS(global_game_variables_t *gvar)
                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
+               mov     [EMSVer],ax             // set EMSVer\r
                cmp     al,0x32                 // only work on ems 3.2 or greater\r
                jb      error1\r
 \r
@@ -225,7 +182,7 @@ PML_StartupEMS(global_game_variables_t *gvar)
                mov     [totalEMSpages],dx\r
                mov     [freeEMSpages],bx\r
                mov     [EMSAvail],bx\r
-               jmp End1\r
+               jmp     End1\r
 #ifdef __BORLANDC__\r
        }\r
 #endif\r
@@ -235,7 +192,7 @@ PML_StartupEMS(global_game_variables_t *gvar)
 #endif\r
                mov     err,ah\r
                mov     errorflag,1\r
-               jmp End1\r
+               jmp     End1\r
 #ifdef __BORLANDC__\r
        }\r
 #endif\r
@@ -244,7 +201,7 @@ End1:
 #ifdef __WATCOMC__\r
        }\r
 #endif\r
-/*\r
+#ifdef __PM__NOHOGEMS__\r
        if(errorflag==false)\r
        {\r
                // Don't hog all available EMS\r
@@ -255,7 +212,7 @@ End1:
                        gvar->pm.emm.EMSAvail = size / EMSPageSize;\r
                }\r
        }\r
-*/\r
+#endif\r
        __asm {\r
                mov     ah,EMS_ALLOCPAGES\r
                mov     bx,[EMSAvail];\r
@@ -273,31 +230,26 @@ End1:
 #endif\r
                mov     err,ah\r
                mov     errorflag,1\r
-               jmp End2\r
+               jmp     End2\r
 #ifdef __BORLANDC__\r
-       }\r
+       }//end of assembly\r
 #endif\r
 End2:\r
 #ifdef __WATCOMC__\r
-       }\r
+       }//end of assembly\r
 #endif\r
-\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
-               gvar->pm.emm.EMSList[i].baseEMSPage = -1;\r
-\r
-       }\r
-       else\r
+       if(errorflag==true)\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
+       gvar->mmi.EMSmem = EMSAvail * (dword)EMSPageSize;\r
+\r
+       // Initialize EMS mapping cache\r
+       for (i = 0;i < EMSFrameCount;i++)\r
+               gvar->pm.emm.EMSList[i].baseEMSPage = -1;\r
 \r
        gvar->pm.emm.EMSPresent = true;                 // We have EMS\r
        gvar->pm.emm.EMSPageFrame = EMSPageFrame;\r
@@ -533,7 +485,6 @@ PML_XMSCopy(boolean toxms,byte far *addr,word xmspage,word length, global_game_v
        if (!addr)\r
        {\r
                Quit (gvar, "PML_XMSCopy: zero address\n");\r
-               //return;\r
        }\r
 \r
        xoffset = (dword)xmspage * PMPageSize;\r
@@ -647,8 +598,10 @@ PM_SetMainMemPurge(int level, global_game_variables_t *gvar)
        for (i = 0;i < PMMaxMainMem;i++)\r
        {\r
 #ifdef __DEBUG_PM__\r
+#ifdef __DEBUG_PM_MAIN__\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
 #endif\r
                if (gvar->pm.mm.MainMemPages[i])\r
                        MM_SetPurge(&(gvar->pm.mm.MainMemPages[i]),level, gvar);\r
@@ -824,13 +777,13 @@ PML_ReadFromFile(byte far *buf,long offset,word length, global_game_variables_t
 //\r
 //     PML_OpenPageFile() - Opens the page file and sets up the page info\r
 //\r
+#if 0\r
 void\r
 PML_OpenPageFile(global_game_variables_t *gvar)\r
 {\r
        int                             i;\r
        long                    size;\r
-                               //__SEGA buf;\r
-       memptr          buf;\r
+       void                    _seg *buf;\r
        dword           far *offsetptr;\r
        word                    far *lengthptr;\r
        PageListStruct  far *page;\r
@@ -849,14 +802,14 @@ PML_OpenPageFile(global_game_variables_t *gvar)
 \r
        // Allocate and clear the page list\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
+       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(dword) * gvar->pm.fi.ChunksInFile;\r
-       MM_GetPtr(&buf, size, gvar);\r
+       MM_GetPtr((memptr *)&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
@@ -865,7 +818,7 @@ PML_OpenPageFile(global_game_variables_t *gvar)
        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, gvar);\r
+       MM_FreePtr((memptr *)&buf, gvar);\r
 \r
        // Read in the chunk lengths\r
        size = sizeof(word) * gvar->pm.fi.ChunksInFile;\r
@@ -878,7 +831,7 @@ PML_OpenPageFile(global_game_variables_t *gvar)
        lengthptr = (word far *)buf;\r
        for (i = 0,page = gvar->pm.PMPages;i < gvar->pm.fi.ChunksInFile;i++,page++)\r
                page->length = *lengthptr++;\r
-       MM_FreePtr(&buf, gvar);\r
+       MM_FreePtr((memptr *)&buf, gvar);\r
 }\r
 \r
 //\r
@@ -891,10 +844,11 @@ PML_ClosePageFile(global_game_variables_t *gvar)
                close(gvar->pm.fi.PageFile);\r
        if (gvar->pm.PMSegPages)\r
        {\r
-               MM_SetLock((memptr)gvar->pm.PMSegPages,false, gvar);\r
-               MM_FreePtr((memptr)gvar->pm.PMSegPages, gvar);\r
+               MM_SetLock((memptr *)&gvar->pm.PMSegPages,false, gvar);\r
+               MM_FreePtr((void _seg *)&gvar->pm.PMSegPages, gvar);\r
        }\r
 }\r
+#endif\r
 \r
 /////////////////////////////////////////////////////////////////////////////\r
 //\r
@@ -1273,6 +1227,7 @@ if (!gvar->pm.PMPages[pagenum].offset)    // JDC: sparse page
                out     dx,al\r
                mov     al,0x20 // normal\r
                out     dx,al\r
+       }\r
 #endif\r
 \r
        return(result);\r
@@ -1445,7 +1400,7 @@ PM_NextFrame(global_game_variables_t *gvar)
                {\r
                        char buf[40];\r
                        sprintf(buf,"PM_NextFrame: Page %d is locked",i);\r
-                       Quit(gvar, buf);\r
+                       Quit (gvar, buf);\r
                }\r
        }\r
 //#endif\r
@@ -1557,7 +1512,7 @@ PM_Shutdown(global_game_variables_t *gvar)
        if (!gvar->pm.PMStarted)\r
                return;\r
 \r
-       //PML_ClosePageFile(gvar);\r
+       //0000+=+=PML_ClosePageFile(gvar);\r
 \r
        PML_ShutdownMainMem(gvar);\r
 }\r