From: sparky4 <sparky4@cock.li>
Date: Tue, 15 Aug 2017 18:20:10 +0000 (-0500)
Subject: the memory management stuff is not working on the XT. and it is odd in xcroll.exe
X-Git-Url: http://4ch.mooo.com/gitweb/?a=commitdiff_plain;h=ee591c181c3711512cfc1fc5c7a2628662d68147;p=16.git

the memory management stuff is not working on the XT. and it is odd in xcroll.exe
---

diff --git a/bcexmm.dsk b/bcexmm.dsk
index 44f458fe..cd351bc4 100755
Binary files a/bcexmm.dsk and b/bcexmm.dsk differ
diff --git a/bcexmm.exe b/bcexmm.exe
index 183a0a7b..36a8a1f4 100755
Binary files a/bcexmm.exe and b/bcexmm.exe differ
diff --git a/bcexmm.prj b/bcexmm.prj
index 09284e08..c185ea31 100755
Binary files a/bcexmm.prj and b/bcexmm.prj differ
diff --git a/src/exmmtest.h b/src/exmmtest.h
index aa63cd4f..463932eb 100755
--- a/src/exmmtest.h
+++ b/src/exmmtest.h
@@ -42,7 +42,7 @@
 #define FILEREADLOAD
 #define FILEREAD
 //#define EXMMVERBOSE
-//#define BUFFDUMPPAUSE
+#define BUFFDUMPPAUSE
 //#define EXMMVERBOSE__
 //	#define PRINTBBDUMP
 #define BUFFDUMP
diff --git a/src/lib/16_mm.c b/src/lib/16_mm.c
index 18c02bbb..dc807cbd 100755
--- a/src/lib/16_mm.c
+++ b/src/lib/16_mm.c
@@ -1505,6 +1505,7 @@ reset:
 	}
 
 	CA_CloseDebug (gvar);
+	if (gvar->video.VL_Started) IN_Ack(gvar);
 
 #ifdef MMSMPANVID
 	{
@@ -1549,8 +1550,10 @@ reset:
 	else q = 0;
 	restarted = false;
 
-	IN_Ack(gvar);
-//	VL_ClearVideo (8);
+	while (!(scancode = gvar->in.inst->LastScan)){}
+//	IN_ClearKey(scancode);
+//	IN_Ack(gvar);
+
 	for (done = false;!done;)
 	{
 		if(scaninfo[q].scan->attributes & PURGEBITS)
@@ -1683,8 +1686,8 @@ reset:
 			break;
 		}
 	}
-#else
-	if(gvar->video.VL_Started) IN_Ack(gvar);
+//#else
+//	if(gvar->video.VL_Started) IN_Ack(gvar);
 #endif
 
 	gvar->video.BOFS = (byte __far *)temp;