From e158408268e60798540e0a1eaec9d104a042c17c Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Sun, 19 Jun 2016 22:10:17 -0700
Subject: [PATCH] SCP: Add simulator binary name in a SIM_BIN_NAME environment
 variable

---
 scp.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scp.c b/scp.c
index c06eaa24..d0d559c9 100644
--- a/scp.c
+++ b/scp.c
@@ -2006,8 +2006,12 @@ else if (*argv[0]) {                                    /* sim name arg? */
         if (np == NULL)
             np = strrchr (nbuf, ']');                   /* VMS path separator */
         if (np != NULL) {
+            char *sim_bin_name = np;                    /* Save name pointer */
+
             *np = '"';
             stat = do_cmd (-1, np) & ~SCPE_NOMESSAGE;   /* proc default cmd file */
+            np[strlen (np) - 4] = '\0';                 /* strip .ini" */
+            setenv ("SIM_BIN_NAME", sim_bin_name+1, 1); /* Publish simulator binary name */
             }
         }
     }