From 20d130434d8d25826abd6131b947295093ca5a7a Mon Sep 17 00:00:00 2001
From: davidly <davidly_lee@hotmail.com>
Date: Fri, 22 Mar 2024 08:02:45 -0700
Subject: [PATCH] tsr should indicate sucessful load

---
 ntvdm.cxx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ntvdm.cxx b/ntvdm.cxx
index 40060ae..43aca6e 100644
--- a/ntvdm.cxx
+++ b/ntvdm.cxx
@@ -5862,6 +5862,7 @@ void handle_int_21( uint8_t c )
             {
                 g_appTerminationReturnCode = cpu.al();
                 tracer.Trace( "  tsr termination return code: %d\n", g_appTerminationReturnCode );
+                cpu.set_carry( false ); // indicate that the Create Process int x21 x4b (EXEC/Load and Execute Program) succeeded.
                 tracer.Trace( "  tsr's environment block: %04x\n", psp->segEnvironment );
                 g_currentPSP = psp->segParent;
                 cpu.set_cs( ( psp->int22TerminateAddress >> 16 ) & 0xffff );