From 4e3edae44ce3ae3f6fe9f8ad4e328f1d3f446269 Mon Sep 17 00:00:00 2001
From: Sjoerd van der Berg <harekiet@users.sourceforge.net>
Date: Mon, 26 Apr 2004 07:53:17 +0000
Subject: [PATCH] Copy the filename from the current's psp mcb to new allocated
 ones Reduce available memory in tandy mode

Imported-from: https://svn.code.sf.net/p/dosbox/code-0/dosbox/trunk@1784
---
 src/dos/dos_memory.cpp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/dos/dos_memory.cpp b/src/dos/dos_memory.cpp
index 0eef6c1f..6be519af 100644
--- a/src/dos/dos_memory.cpp
+++ b/src/dos/dos_memory.cpp
@@ -72,6 +72,9 @@ bool DOS_AllocateMemory(Bit16u * segment,Bit16u * blocks) {
 	Bit16u bigsize=0;Bit16u mcb_segment=dos.firstMCB;
 	DOS_MCB mcb(0);
 	DOS_MCB mcb_next(0);
+	DOS_MCB psp_mcb(dos.psp-1);
+	char psp_name[9];
+	psp_mcb.GetFileName(psp_name);
 	bool stop=false;
 	while(!stop) {
 		mcb.SetPt(mcb_segment);
@@ -97,6 +100,7 @@ bool DOS_AllocateMemory(Bit16u * segment,Bit16u * blocks) {
 					mcb.SetSize(*blocks);
 					mcb.SetType(0x4d);		
 					mcb.SetPSPSeg(dos.psp);
+					mcb.SetFileName(psp_name);
 					//TODO Filename
 					*segment=mcb_segment+1;
 					return true;
@@ -108,6 +112,7 @@ bool DOS_AllocateMemory(Bit16u * segment,Bit16u * blocks) {
 					mcb_next.SetSize(*blocks);
 					mcb_next.SetType(mcb.GetType());
 					mcb_next.SetPSPSeg(dos.psp);
+					mcb_next.SetFileName(psp_name);
 					// Old Block
 					mcb.SetSize(block_size-*blocks-1);
 					mcb.SetPSPSeg(MCB_FREE);
@@ -188,7 +193,9 @@ void DOS_SetupMemory(void) {
 	
 	DOS_MCB mcb((Bit16u)MEM_START+2);
 	mcb.SetPSPSeg(MCB_FREE);						//Free
-	mcb.SetSize(0x9FFE - MEM_START - 2);
+	if (machine!=MCH_TANDY) {
+		mcb.SetSize(0x9FFE - MEM_START - 2);
+	} else mcb.SetSize(0x7FFE - MEM_START - 2);
 	mcb.SetType(0x5a);								//Last Block
 
 	dos.firstMCB=MEM_START;