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