From d7618a37083376a276ada778a36cc0791e17aa74 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Wed, 10 Jan 2018 12:29:52 -0800
Subject: [PATCH] get SYSPATH from CMD path

---
 src/vmsrc/cmd.pla  | 2 +-
 src/vmsrc/plvm02.s | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla
index 69a9946..926ca57 100755
--- a/src/vmsrc/cmd.pla
+++ b/src/vmsrc/cmd.pla
@@ -1370,7 +1370,7 @@ loop
 //
 // Set system path
 //
-strcat(getpfx(@syspath), "SYS/"))
+strcat(strcpy(@syspath, $280), "SYS/")) // This is the path to CMD
 //
 // Try to load autorun.
 //
diff --git a/src/vmsrc/plvm02.s b/src/vmsrc/plvm02.s
index 1463f9a..ead6b7c 100755
--- a/src/vmsrc/plvm02.s
+++ b/src/vmsrc/plvm02.s
@@ -336,6 +336,13 @@ CMDENTRY =      *
         !WORD   CLOSEPARMS
         BNE     FAIL
 ;
+; CHANGE CMD STRING TO SYSPATH STRING
+;
+        LDA     STRBUF
+        SEC
+        SBC     #$03
+        STA     STRBUF
+;
 ; INIT VM ENVIRONMENT STACK POINTERS
 ;
 ;        LDA #$00               ; INIT FRAME POINTER