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