X-Git-Url: http://4ch.mooo.com/gitweb/?p=16.git;a=blobdiff_plain;f=src%2Flib%2F16_mm.c;h=c14632abb93014c2d9ce3057ad480a4f542e5f77;hp=e2249abd0ec9c4daae564e16f5a608bdb73fef7c;hb=050d28da3358d5c1434fda542ec11adbee182ea5;hpb=c28d5b8162a2fef3c362a709915d6f8ad18625e1

diff --git a/src/lib/16_mm.c b/src/lib/16_mm.c
index e2249abd..c14632ab 100755
--- a/src/lib/16_mm.c
+++ b/src/lib/16_mm.c
@@ -1,19 +1,23 @@
-/* Catacomb Apocalypse Source Code
- * Copyright (C) 1993-2014 Flat Rock Software
+/* Project 16 Source Code~
+ * Copyright (C) 2012-2017 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover
  *
- * This program is free software; you can redistribute it and/or modify
+ * 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 2 of the License, or
+ * the Free Software Foundation; either version 3 of the License, or
  * (at your option) any later version.
  *
- * This program is distributed in the hope that it will be useful,
+ * 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, write to the Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>, or
+ * write to the Free Software Foundation, Inc., 51 Franklin Street,
+ * Fifth Floor, Boston, MA 02110-1301 USA.
+ *
  */
 
 // NEWMM.C
@@ -28,7 +32,7 @@ Primary coder: John Carmack
 
 RELIES ON
 ---------
-Quit (global_game_variables_t *gvar, char *error) function
+Quit (char *error) function
 
 
 WORK TO DO
@@ -54,6 +58,37 @@ Open Watcom port by sparky4
 #pragma warn -pro
 #pragma warn -use
 
+/*
+=============================================================================
+
+							LOCAL INFO
+
+=============================================================================
+*/
+
+#define LOCKBIT		0x80	// if set in attributes, block cannot be moved
+#define PURGEBITS	3		// 0-3 level, 0= unpurgable, 3= purge first
+#define PURGEMASK	0xfffc
+#define BASEATTRIBUTES	0	// unlocked, non purgable
+
+//#define MAXUMBS		10
+
+/*typedef struct mmblockstruct
+{
+	unsigned	start,length;
+	unsigned	attributes;
+	memptr		*useptr;	// pointer to the segment start
+	struct mmblockstruct far *next;
+} mmblocktype;*/
+
+
+//#define GETNEWBLOCK {if(!(mmnew=mmfree))Quit("MM_GETNEWBLOCK: No free blocks!") ;mmfree=mmfree->next;}
+//
+
+#define GETNEWBLOCK {if(!gvar->mm.mmfree)MML_ClearBlock(gvar);gvar->mm.mmnew=gvar->mm.mmfree;gvar->mm.mmfree=gvar->mm.mmfree->next;}
+
+#define FREEBLOCK(x) {*x->useptr=NULL;x->next=gvar->mm.mmfree;gvar->mm.mmfree=x;}
+
 /*
 =============================================================================
 
@@ -62,9 +97,12 @@ Open Watcom port by sparky4
 =============================================================================
 */
 
+/*mminfotype	mminfo;
+memptr		bufferseg;
+boolean		mmerror;*/
+
 void		(* beforesort) (void);
 void		(* aftersort) (void);
-void		(* XMSaddr) (void);		// far pointer to XMS driver
 
 /*
 =============================================================================
@@ -73,6 +111,38 @@ void		(* XMSaddr) (void);		// far pointer to XMS driver
 
 =============================================================================
 */
+
+/*boolean		mmstarted;
+
+void far	*farheap;
+void		*nearheap;
+
+mmblocktype	far mmblocks[MAXBLOCKS]
+			,far *mmhead,far *mmfree,far *mmrover,far *mmnew;
+
+boolean		bombonerror;*/
+
+//unsigned	totalEMSpages,freeEMSpages,EMSpageframe,EMSpagesmapped,EMShandle;
+
+void		(* XMSaddr) (void);		// far pointer to XMS driver
+
+/*unsigned	numUMBs,UMBbase[MAXUMBS];*/
+
+//==========================================================================
+
+//
+// local prototypes
+//
+
+boolean		MML_CheckForEMS (void);
+void 		MML_ShutdownEMS (void);
+void 		MM_MapEMS (void);
+boolean 	MML_CheckForXMS (void);
+void 		MML_ShutdownXMS (void);
+//void		MML_UseSpace (unsigned segstart, unsigned seglength);
+//void 		MML_ClearBlock (void);
+
+//==========================================================================
 #ifndef __16_PM__
 #if 0
 static	char *ParmStringsexmm[] = {"noems","noxms",""};
@@ -319,7 +389,7 @@ void MML_ShutdownEMS(global_game_variables_t *gvar)
 	}
 #endif
 	if(errorflag==true)
-		Quit (gvar, "MML_ShutdownEMS: Error freeing EMS!\n");	//++++ add something
+		Quit ("MML_ShutdownEMS: Error freeing EMS!\n");	//++++ add something
 }
 
 /*
@@ -624,10 +694,10 @@ void MML_ShutdownXMS(global_game_variables_t *gvar)
 	}
 //++++todo: linked list of segment!
 */
-void MML_UseSpace(word segstart, dword seglength, global_game_variables_t *gvar)
+void MML_UseSpace (unsigned segstart, unsigned seglength, global_game_variables_t *gvar)
 {
 	mmblocktype far *scan,far *last;
-	word	oldend;
+	unsigned	oldend;
 	sdword		extra;
 	//word segm=1;
 
@@ -656,8 +726,9 @@ void MML_UseSpace(word segstart, dword seglength, global_game_variables_t *gvar)
 // take the given range out of the block
 //
 	oldend = scan->start + scan->length;
-	extra = oldend - (segstart+((unsigned)seglength));
+	extra = oldend - (segstart+seglength);
 	if (extra < 0)
+#ifdef __DEBUG_MM__
 	{
 		printf("========================================\n");
 		printf("start=%x	", scan->start);
@@ -671,6 +742,9 @@ void MML_UseSpace(word segstart, dword seglength, global_game_variables_t *gvar)
 		printf("========================================\n");
 		//return;
 	}
+#else
+		Quit ("MML_UseSpace: Segment spans two blocks!");
+#endif
 
 	if (segstart == scan->start)
 	{
@@ -707,7 +781,7 @@ void MML_UseSpace(word segstart, dword seglength, global_game_variables_t *gvar)
 ====================
 */
 
-void MML_ClearBlock(global_game_variables_t *gvar)
+void MML_ClearBlock (global_game_variables_t *gvar)
 {
 	mmblocktype far *scan;//,far *last;
 
@@ -723,7 +797,7 @@ void MML_ClearBlock(global_game_variables_t *gvar)
 		scan = scan->next;
 	}
 
-	printf("MM_ClearBlock: No purgable blocks!\n");
+	Quit ("MM_ClearBlock: No purgable blocks!\n");
 }
 
 
@@ -740,26 +814,24 @@ void MML_ClearBlock(global_game_variables_t *gvar)
 ===================
 */
 
-void MM_Startup(global_game_variables_t *gvar)
+void MM_Startup (global_game_variables_t *gvar)
 {
 	int i;
-	//dword length,seglength;
-	dword length; word seglength;
+	dword length;
 	void far	*start;
-	word	segstart;//,endfree;
+	unsigned	segstart,seglength;//,endfree;
 
 	if(gvar->mm.mmstarted)
-		MM_Shutdown(gvar);
+		MM_Shutdown (gvar);
 
 	gvar->mm.mmstarted = true;
 	gvar->mm.bombonerror = true;
-
 //
 // set up the linked list (everything in the free list;
 //
 	gvar->mm.mmhead = NULL;
 	gvar->mm.mmfree = &(gvar->mm.mmblocks[0]);
-	for(i=0;i<MAXBLOCKS-1;i++)
+	for (i=0;i<MAXBLOCKS-1;i++)
 		gvar->mm.mmblocks[i].next = &(gvar->mm.mmblocks[i+1]);
 	gvar->mm.mmblocks[i].next = NULL;
 
@@ -774,6 +846,7 @@ void MM_Startup(global_game_variables_t *gvar)
 	gvar->mm.mmnew->next = NULL;
 	gvar->mm.mmrover = gvar->mm.mmhead;
 
+
 //
 // get all available near conventional memory segments
 //
@@ -793,7 +866,7 @@ void MM_Startup(global_game_variables_t *gvar)
 	length -= SAVENEARHEAP;
 	seglength = length / 16;			// now in paragraphs
 	segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;
-	MML_UseSpace(segstart,seglength, gvar);
+	MML_UseSpace (segstart,seglength, gvar);
 	gvar->mmi.nearheap = length;
 	//0000printf("near:	start=%Fp	segstart=%x	seglen=%lu	len=%lu\n", start, segstart, (dword)seglength, length);
 
@@ -814,7 +887,7 @@ void MM_Startup(global_game_variables_t *gvar)
 	length -= SAVEFARHEAP;
 	seglength = length / 16;			// now in paragraphs
 	segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;
-	MML_UseSpace(segstart,seglength, gvar);
+	MML_UseSpace (segstart,seglength, gvar);
 	gvar->mmi.farheap = length;
 	//0000printf("far:	start=%Fp	segstart=%x	seglen=%lu	len=%lu\n", start, segstart, (dword)seglength, length);
 
@@ -869,7 +942,7 @@ xmsskip:
 //
 	gvar->mm.mmrover = gvar->mm.mmhead;		// start looking for space after low block
 
-	MM_GetPtr(&(gvar->mm.bufferseg),BUFFERSIZE, gvar);
+	MM_GetPtr (&(gvar->mm.bufferseg),BUFFERSIZE, gvar);
 }
 
 //==========================================================================
@@ -884,7 +957,7 @@ xmsskip:
 ====================
 */
 
-void MM_Shutdown(global_game_variables_t *gvar)
+void MM_Shutdown (global_game_variables_t *gvar)
 {
 	if(!(gvar->mm.mmstarted))
 		return;
@@ -922,10 +995,10 @@ void MM_Shutdown(global_game_variables_t *gvar)
 ====================
 */
 
-void MM_GetPtr (memptr *baseptr, dword size, global_game_variables_t *gvar)
+void MM_GetPtr (memptr *baseptr,dword size, global_game_variables_t *gvar)
 {
 	mmblocktype far *scan,far *lastscan,far *endscan
-						,far *purge,far *next;
+				,far *purge,far *next;
 	int			search;
 	unsigned	needed,startseg;
 
@@ -934,18 +1007,19 @@ void MM_GetPtr (memptr *baseptr, dword size, global_game_variables_t *gvar)
 	GETNEWBLOCK;				// fill in start and next after a spot is found
 	gvar->mm.mmnew->length = needed;
 	gvar->mm.mmnew->useptr = baseptr;
+	gvar->mm.mmnew->attributes = BASEATTRIBUTES;
 	//if(gvar->mm.mmnew->useptr==NULL){
 #ifdef __DEBUG_MM__
+	printf("MM_GetPtr\n");
 	if(dbg_debugmm>0){
-		printf("MM_GetPtr\n");
 		//%04x
 		printf("	baseptr=%Fp	", baseptr); printf("useptr=%Fp\n", gvar->mm.mmnew->useptr);
 		printf("	*baseptr=%Fp	", *baseptr); printf("*useptr=%Fp\n", *(gvar->mm.mmnew->useptr));
 		printf("	&baseptr=%Fp	", &baseptr); printf("&useptr=%Fp\n", &(gvar->mm.mmnew->useptr));
 	}
+	printf("	size is %lu\n", size);
 #endif
 	//Quit(gvar, "gvar->mm.mmnew->useptr==NULL"); }
-	gvar->mm.mmnew->attributes = BASEATTRIBUTES;
 
 //tryagain:
 	for (search = 0; search<3; search++)
@@ -1023,7 +1097,7 @@ void MM_GetPtr (memptr *baseptr, dword size, global_game_variables_t *gvar)
 		//heapdump();
 #endif
 		printf(OUT_OF_MEM_MSG,(size-gvar->mmi.nearheap));
-		Quit(gvar, "for stability reasons the program will shut down! wwww\n");
+		Quit("for stability reasons the program will shut down! wwww\n");
 	}
 	else
 		gvar->mm.mmerror = true;
@@ -1051,14 +1125,14 @@ void MM_FreePtr (memptr *baseptr, global_game_variables_t *gvar)
 	if (baseptr == gvar->mm.mmrover->useptr)	// removed the last allocated block
 		gvar->mm.mmrover = gvar->mm.mmhead;
 
-	while(scan->useptr != baseptr && scan)
+	while (scan->useptr != baseptr && scan)
 	{
 		last = scan;
 		scan = scan->next;
 	}
 
-	if(!scan)
-		Quit (gvar, "MM_FreePtr: Block not found!");
+	if (!scan)
+		Quit ("MM_FreePtr: Block not found!");
 
 	last->next = scan->next;
 
@@ -1092,9 +1166,9 @@ void MM_SetPurge (memptr *baseptr, int purge, global_game_variables_t *gvar)
 		if (!gvar->mm.mmrover)
 			gvar->mm.mmrover = gvar->mm.mmhead;
 		else if (gvar->mm.mmrover == start)
-			Quit (gvar, "MM_SetPurge: Block not found!");
+			Quit ("MM_SetPurge: Block not found!");
 
-	} while(1);
+	} while (1);
 
 	gvar->mm.mmrover->attributes &= ~PURGEBITS;
 	gvar->mm.mmrover->attributes |= purge;
@@ -1128,7 +1202,7 @@ void MM_SetLock (memptr *baseptr, boolean locked, global_game_variables_t *gvar)
 		if (!gvar->mm.mmrover)
 			gvar->mm.mmrover = gvar->mm.mmhead;
 		else if (gvar->mm.mmrover == start)
-			Quit (gvar, "MM_SetLock: Block not found!");
+			Quit ("MM_SetLock: Block not found!");
 
 	} while(1);
 
@@ -1169,7 +1243,7 @@ void MM_SortMem (global_game_variables_t *gvar)
 			playing += STARTADLIBSOUNDS;
 			break;
 		}
-		MM_SetLock((memptr *)&audiosegs[playing],true);
+		MM_SetLock(MEMPTRCONV audiosegs[playing],true);
 	}
 
 
@@ -1177,16 +1251,16 @@ void MM_SortMem (global_game_variables_t *gvar)
 	oldborder = gvar->video.bordercolor;
 	gvar->video.bordercolor = modexPalOverscan(15);
 
-	if(beforesort)
+	if (beforesort)
 		beforesort();
 
 	scan = gvar->mm.mmhead;
 
 	last = NULL;		// shut up compiler warning
 
-	while(scan)
+	while (scan)
 	{
-		if(scan->attributes & LOCKBIT)
+		if (scan->attributes & LOCKBIT)
 		{
 		//
 		// block is locked, so try to pile later blocks right after it
@@ -1195,7 +1269,7 @@ void MM_SortMem (global_game_variables_t *gvar)
 		}
 		else
 		{
-			if(scan->attributes & PURGEBITS)
+			if (scan->attributes & PURGEBITS)
 			{
 			//
 			// throw out the purgable block
@@ -1211,12 +1285,12 @@ void MM_SortMem (global_game_variables_t *gvar)
 			//
 			// push the non purgable block on top of the last moved block
 			//
-				if(scan->start != start)
+				if (scan->start != start)
 				{
 					length = scan->length;
 					source = scan->start;
 					dest = start;
-					while(length > 0xf00)
+					while (length > 0xf00)
 					{
 						movedata(source,0,dest,0,0xf00*16);
 						length -= 0xf00;
@@ -1238,7 +1312,7 @@ void MM_SortMem (global_game_variables_t *gvar)
 
 	gvar->mm.mmrover = gvar->mm.mmhead;
 
-	if(aftersort)
+	if (aftersort)
 		aftersort();
 
 	VL_ColorBorder (oldborder, &gvar->video);
@@ -1257,14 +1331,18 @@ void MM_SortMem (global_game_variables_t *gvar)
 =====================
 */
 
-#define MMSMPANVID
+#ifdef __WATCOMC__
+//#define MMSMPANVID
+#define MMSMSCANINFO
+#endif
 
 void MM_ShowMemory (global_game_variables_t *gvar)
 {
 	mmblocktype far *scan;
-	unsigned color,temp,x,y		,w,width;
+	unsigned color,temp,x,y		,w,q,width;
 	sdword	end,owner;
-	byte    scratch[160],scratch0[4096],str[16];
+	byte		scratch[160],scratch0[4096],str[16];
+	mmshowmemoryinfo_t scaninfo[MAXBLOCKS];
 
 	if(!gvar->video.page[0].width) gvar->video.page[0].sw = gvar->video.page[0].width = 320;	//to prevent division by 0
 //--	VL_SetLineWidth(40, gvar);
@@ -1276,11 +1354,12 @@ void MM_ShowMemory (global_game_variables_t *gvar)
 
 	end = -1; w = 0;
 
-	width = gvar->video.page[0].width;
+	width = gvar->video.page[0].width; q = 0;
 
 	CA_OpenDebug (gvar);
 	while (scan)
 	{
+		scaninfo[q].scan = scan;
 		strcpy(scratch, AARESET);
 		if(scan->attributes & PURGEBITS)
 		{
@@ -1306,20 +1385,21 @@ void MM_ShowMemory (global_game_variables_t *gvar)
 			ultoa (scan->start,str,10);
 			strcat (scratch,str);
 			write(gvar->handle.debughandle,scratch,strlen(scratch));
-			Quit (gvar, "MM_ShowMemory: Memory block order currupted!");
+			Quit ("MM_ShowMemory: Memory block order currupted!");
 		}
 		end = scan->length-1;
 		y = scan->start/width;
 		x = scan->start%width;
+		scaninfo[q].x = x;
+		scaninfo[q].y = y;
 		VW_Hlin(x,x+end,y,color,gvar);
 		VL_Plot(x,y,5,gvar);
+//++==++==optional			strcat(scratch0, AARESET); strcat(scratch0, AAGREY); strcat(scratch0,"_");
 		for(w=(scan->start)/80;w<=end/80;w++)
 		{
 //printf("+	%u	%lu\n", w, scan->length);
 			strcat(scratch0, "+");
 		}
-		//++==++==optional
-		strcat(scratch0, AARESET); strcat(scratch0, AAGREY); strcat(scratch0,"_");
 
 		if (scan->next && scan->next->start > end+1)
 		{
@@ -1374,6 +1454,7 @@ void MM_ShowMemory (global_game_variables_t *gvar)
 //fprintf(stdout, "%s", scratch);
 
 		scan = scan->next;
+		q++;
 //if(color!=6) IN_Ack(gvar);
 	}
 
@@ -1415,9 +1496,124 @@ void MM_ShowMemory (global_game_variables_t *gvar)
 		gvar->video.page[0].dx = odx;
 		gvar->video.page[0].dy = ody;
 	}
-#else
-	IN_Ack(gvar);
 #endif
+#ifdef MMSMSCANINFO
+	{
+		byte scratch1[4];
+		unsigned		maxq = q;
+		boolean			done;
+		ScanCode		scancode;
+		int xpos,ypos;
+		word qq, ccolor = 3;
+		IN_Ack(gvar);
+//		VL_ClearVideo (8);
+		for (qq = 0,done = false;!done;)
+		{
+			if(scaninfo[qq].scan->attributes & PURGEBITS)
+			{
+				ccolor = 6;		// dark purple = purgable
+				strcpy(scratch1, AAMAGENTA);		// dark purple = purgable
+				//printf("%s", AAMAGENTA);
+			}else{
+				ccolor = 2;		// medium blue = non purgable
+				strcpy(scratch1, AABLUE);		// medium blue = non purgable
+				//printf("%s", AABLUE);
+			}
+			if(scaninfo[qq].scan->attributes & LOCKBIT)
+			{
+				ccolor = 1;		// red = locked
+				strcpy(scratch1, AARED);		// red = locked
+				//printf("%s", AARED);
+			}
+			end = scaninfo[qq].scan->length-1;
+/*typedef struct mmblockstruct{
+	word	start,length;
+	unsigned	attributes;
+	memptr		*useptr;	// pointer to the segment start
+	struct mmblockstruct far *next;
+} mmblocktype;*/
+			//modexprint(page, x, y, t, tlsw, color, bgcolor, vidsw, const byte *str);
+#define MMSMPRINTMEMINFO modexprint(&(gvar->video.page[0]), xpos, ypos, 1, 0, ccolor, 8, gvar->video.VL_Started, global_temp_status_text); ypos+=8;
+			if(!gvar->video.VL_Started) clrscr(); else
+			{
+				VL_ShowPage(&gvar->video.page[0], 1, 0);
+				modexClearRegion(&gvar->video.page[0], 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 8);
+			}
+			sprintf(global_temp_status_text, "block #%04u", qq); MMSMPRINTMEMINFO
+//			sprintf(global_temp_status_text, "%Fp", scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO
+			sprintf(global_temp_status_text, "%04x", (unsigned)scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO
+			sprintf(global_temp_status_text, "size: %05u", (unsigned)scaninfo[qq].scan->length); MMSMPRINTMEMINFO
+			if (scaninfo[qq].scan->next && scaninfo[qq].scan->next->start > end+1)
+			{
+				sprintf(global_temp_status_text, "free: %05u", (unsigned)(scaninfo[qq].scan->next->start-scaninfo[qq].scan->start)); MMSMPRINTMEMINFO
+			}
+			if(gvar->video.VL_Started)
+			{
+				y = ypos;//scaninfo[qq].scan->start/width;
+				x = xpos;//scaninfo[qq].scan->start%width;
+				VW_Hlin(x,x+end,y,ccolor,gvar);
+				VL_Plot(x,y,5,gvar);
+			}
+			else
+			{
+				printf("%s", scratch1);
+				printf("%s", AAGREY); printf("_");
+				for(w=(scaninfo[qq].scan->start)/80;w<=end/80;w++)
+				{
+					//strcat(scratch1, "+");
+					printf("+");
+				}
+			}
+
+
+				if (scaninfo[qq].scan->next && scaninfo[qq].scan->next->start > end+1) if(!gvar->video.VL_Started)
+				{
+					//strcat(scratch1, AARESET);
+					printf("%s", AARESET);
+					//strcat(scratch1,AAGREEN);
+					printf("%s", AAGREEN);
+					for(w=(end+1)/80;w<=((scaninfo[qq].scan->next->start-scaninfo[qq].scan->start)/80);w++)
+					{
+						//strcat(scratch1,"0");
+						printf("0");
+					}
+				}else VW_Hlin(x+end+1,x+(scaninfo[qq].scan->next->start-scaninfo[qq].scan->start),y,3,gvar);	// black = free//now green
+
+
+			if(gvar->video.VL_Started)
+			{
+				//if (scan->next && scan->next->start > end+1) free
+				xpos = 16;
+				ypos = 16;//(gvar->video.page[0].sh-(32));//8*4
+			}
+			else
+			{
+				//printf("%s\n", scratch1);
+				printf("%s", AARESET);
+				printf("\n");
+			}
+			while (!(scancode = gvar->in.inst->LastScan)){}
+
+			IN_ClearKey(scancode);
+			switch (scancode)
+			{
+				case sc_LeftArrow:
+					if(qq>0) qq--;
+					else	qq = maxq;
+				break;
+				case sc_RightArrow:
+					if(qq<maxq) qq++;
+					else qq = 0;
+				break;
+				case sc_Escape:
+					done = true;
+				break;
+			}
+		}
+	}
+#endif
+
+	if(gvar->video.VL_Started) IN_Ack(gvar);
 
 	gvar->video.BOFS = (byte __far *)temp;
 }