diff --git a/src/vmsrc/a1cmd.pla b/src/vmsrc/a1cmd.pla index 15063a1..e9b011b 100755 --- a/src/vmsrc/a1cmd.pla +++ b/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 diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla index 8f580bf..25cfcb9 100755 --- a/src/vmsrc/cmd.pla +++ b/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 diff --git a/src/vmsrc/soscmd.pla b/src/vmsrc/soscmd.pla index 8240e1b..49823ce 100755 --- a/src/vmsrc/soscmd.pla +++ b/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