Allow SOS PLASMA to set system path

src/vmsrc/a1cmd.pla

@@ -1038,6 +1038,10 @@ def execmod(modfile)#1
     return -perr
 end
 //
+// Print PLASMA version
+//
+prstr(@verstr); prbyte(version.1); cout('.'); prbyte(version.0); crout
+//
 // Get heap start.
 //
 heap = *freemem
@@ -1068,11 +1072,6 @@ perr = 0
 // Print some startup info.
 //
 if not ^cmdptr
-    prstr(@verstr)
-    prbyte(version.1)
-    cout('.')
-    prbyte(version.0)
-    crout
     prstr(@freestr)
     prword(availheap)
     crout

src/vmsrc/cmd.pla

@@ -1356,6 +1356,10 @@ def execmod(modfile)#1
     return -perr
 end
 //
+// Print PLASMA version
+//
+prstr("PLASMA "); prbyte(version.1); cout('.'); prbyte(version.0); crout
+//
 // Get heap start.
 //
 heap = *freemem
@@ -1384,7 +1388,6 @@ else
     //
     // Print some startup info.
     //
-    prstr("PLASMA "); prbyte(version.1); cout('.'); prbyte(version.0); crout
     prstr("MEM FREE:$"); prword(availheap); crout
 fin
 perr = 0

src/vmsrc/soscmd.pla

@@ -1342,6 +1342,10 @@ end
 //
 init_cons
 //
+// Print PLASMA version
+//
+prstr("PLASMA "); prbyte(version.1); cout('.'); prbyte(version.0); crout
+//
 // Init 2K symbol table.
 //
 seg_find($00, @symtbl, @lastsym, $08, $11)
@@ -1355,9 +1359,9 @@ while *syslibsym
     syslibsym = syslibsym + 4
 loop
 //
-// Set system path
+// Clear system path
 //
-strcat(getpfx(@syspath), "SYS/"))
+syspath = 0
 //
 // Try to load autorun.
 //
@@ -1371,11 +1375,6 @@ else
     //
     // Print some startup info.
     //
-    prstr("PLASMA ")
-    prbyte(version.1)
-    cout('.')
-    prbyte(version.0)
-    crout
     prstr("MEM:$")
     prword(availheap)
     crout
@@ -1395,6 +1394,10 @@ while 1
             is 'P'
                 setpfx(cmdptr)
                 break
+            is 'S'
+                setpfx(cmdptr)
+                strcat(getpfx(@syspath), "SYS/"))
+                break
             is 'V'
                 volumes
                 break