From 976581b1c124b63d06595a2b88109ee277532a85 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sun, 19 Mar 2023 08:51:17 -0700
Subject: [PATCH] Cleanup for release

---
 src/toolsrc/ed.pla            | 2 +-
 src/toolsrc/plasm.pla         | 2 +-
 src/vmsrc/apple/cmd.pla       | 2 +-
 src/vmsrc/apple/cmdjit.pla    | 2 +-
 src/vmsrc/apple/soscmd.pla    | 3 +--
 src/vmsrc/apple/soscmdjit.pla | 3 +--
 6 files changed, 6 insertions(+), 8 deletions(-)

diff --git a/src/toolsrc/ed.pla b/src/toolsrc/ed.pla
index 09c512e..e989d9b 100755
--- a/src/toolsrc/ed.pla
+++ b/src/toolsrc/ed.pla
@@ -1615,7 +1615,7 @@ def cmdmode#0
     word cmdptr, line
 
     clrscrn
-    puts("PLASMA Editor, Version 2.0 BETA\n")
+    puts("PLASMA Editor, Version 2.0\n")
     while not exit
         puts(@filename)
         cmdptr = gets($BA)
diff --git a/src/toolsrc/plasm.pla b/src/toolsrc/plasm.pla
index 95564d6..1a16ff6 100755
--- a/src/toolsrc/plasm.pla
+++ b/src/toolsrc/plasm.pla
@@ -508,7 +508,7 @@ include "toolsrc/parse.pla"
 //
 // Look at command line arguments and compile module
 //
-puts("PLASMA Compiler, Version 2.0 BETA\n")
+puts("PLASMA Compiler, Version 2.0\n")
 arg = argNext(argFirst)
 if ^arg and ^(arg + 1) == '-'
     opt = arg + 2
diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index a5abf48..38af236 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -1332,7 +1332,7 @@ def docmds#0
                 is '/'
                     repeat
                         ^prefix--
-                    until prefix->[^prefix] == '/'
+                    until ^(prefix + ^prefix) == '/'
                     if ^prefix > 1
                         pfxop(prefix, SET_PFX)
                     fin
diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla
index 480f5d8..daadc86 100755
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -1402,7 +1402,7 @@ def docmds#0
                 is '/'
                     repeat
                         ^prefix--
-                    until prefix->[^prefix] == '/'
+                    until ^(prefix + ^prefix) == '/'
                     if ^prefix > 1
                         pfxop(prefix, SET_PFX)
                     fin
diff --git a/src/vmsrc/apple/soscmd.pla b/src/vmsrc/apple/soscmd.pla
index f5e958f..c444dc1 100755
--- a/src/vmsrc/apple/soscmd.pla
+++ b/src/vmsrc/apple/soscmd.pla
@@ -181,6 +181,7 @@ def shell#1
     //
     // Handle commands.
     //
+    getpfx(@prefix))
     repeat
         if ^cmdptr
             when toupper(parsecmd(cmdptr))
@@ -211,9 +212,7 @@ def shell#1
                     volumes
                     break
                 is '+'
-					//cmdsys:modexec(striptrail(cmdptr))
                     return striptrail(cmdptr)
-                    //cmdsys:syswrite(cmdsys.refcons, @textmode, 3)
                     break
                 otherwise
                     puts("?\n")
diff --git a/src/vmsrc/apple/soscmdjit.pla b/src/vmsrc/apple/soscmdjit.pla
index 7ae06c1..15e86a2 100755
--- a/src/vmsrc/apple/soscmdjit.pla
+++ b/src/vmsrc/apple/soscmdjit.pla
@@ -256,6 +256,7 @@ def shell#1
     //
     // Handle commands.
     //
+    getpfx(@prefix))
     repeat
         if ^cmdptr
             when toupper(parsecmd(cmdptr))
@@ -287,9 +288,7 @@ def shell#1
                     break
                 is '+'
 					*jitcodeptr = jitcbuf
-                    //cmdsys:modexec(striptrail(cmdptr))
                     return striptrail(cmdptr)
-                    //cmdsys:syswrite(cmdsys.refcons, @textmode, 3)
                     break
                 otherwise
                     puts("?\n")