From a7e852daaca98dba6c96a77c5254e47464e4dd42 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Sebastian=20Strohh=C3=A4cker?=
 <c2woody@users.sourceforge.net>
Date: Fri, 19 Oct 2007 19:39:27 +0000
Subject: [PATCH] fix dos exec "load but don't run" subfunction (japheth)

Imported-from: https://svn.code.sf.net/p/dosbox/code-0/dosbox/trunk@3020
---
 src/dos/dos_execute.cpp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/dos/dos_execute.cpp b/src/dos/dos_execute.cpp
index 7ceab107..b181a4c0 100644
--- a/src/dos/dos_execute.cpp
+++ b/src/dos/dos_execute.cpp
@@ -16,7 +16,7 @@
  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  */
 
-/* $Id: dos_execute.cpp,v 1.61 2007-08-09 19:52:33 c2woody Exp $ */
+/* $Id: dos_execute.cpp,v 1.62 2007-10-19 19:39:27 c2woody Exp $ */
 
 #include <string.h>
 #include <ctype.h>
@@ -412,14 +412,18 @@ bool DOS_Execute(char * name,PhysPt block_pt,Bit8u flags) {
 	}
 
 	if (flags==LOAD) {
+		SaveRegisters();
 		DOS_PSP callpsp(dos.psp());
 		/* Save the SS:SP on the PSP of calling program */
 		callpsp.SetStack(RealMakeSeg(ss,reg_sp));
+		reg_sp+=18;
 		/* Switch the psp's */
 		dos.psp(pspseg);
 		DOS_PSP newpsp(dos.psp());
 		dos.dta(RealMake(newpsp.GetSegment(),0x80));
-		block.exec.initsssp = sssp;
+		/* First word on the stack is the value ax should contain on startup */
+		real_writew(RealSeg(sssp-2),RealOff(sssp-2),0xffff);
+		block.exec.initsssp = sssp-2;
 		block.exec.initcsip = csip;
 		block.SaveData();
 		return true;