From d3a19cccbfac2f2d2dfc82dee4b9ddfe65c6699b Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Tue, 24 Apr 2018 10:26:48 -0700
Subject: [PATCH] Remove xheap from 64K cmdsys. Rework init message

---
 src/vmsrc/apple/cmd.pla    | 7 ++-----
 src/vmsrc/apple/cmdjit.pla | 2 +-
 src/vmsrc/apple/sossys.pla | 2 +-
 3 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index 37bb434..cd7871c 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -121,7 +121,6 @@ word sysmodsym  = @exports
 //
 word systemflags = 0
 word heap
-word xheap       = $0800
 word lastsym     = symtbl
 //
 // Utility functions
@@ -1310,17 +1309,15 @@ def execsys(sysfile)#0
 end
 def execmod(modfile)#1
     byte moddci[17]
-    word saveheap, savexheap, savesym, saveflags
+    word saveheap, savesym, saveflags
 
     perr = 1
     if stodci(modfile, @moddci)
         saveheap  = heap
-        savexheap = xheap
         savesym   = lastsym
         saveflags = systemflags
         if loadmod(@moddci) < modkeep
             lastsym = savesym
-            xheap   = savexheap
             heap    = saveheap
         fin
         ^lastsym    = 0
@@ -1335,7 +1332,7 @@ heap = *freemem
 //
 // Print PLASMA version
 //
-prstr("PLASMA 64K 2.0 Dev\n")//; prbyte(version.1); cout('.'); prbyte(version.0); crout
+prstr("PLASMA 2.0 Dev 64K \n")//; prbyte(version.1); cout('.'); prbyte(version.0); crout
 //
 // Init symbol table.
 //
diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla
index 52eeb25..fbfb51c 100755
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -1400,7 +1400,7 @@ heap = *freemem
 //
 // Print PLASMA version
 //
-prstr("PLASMA 128K 2.0 Dev ")//; prbyte(version.1); cout('.'); prbyte(version.0); crout
+prstr("PLASMA 2.0 Dev 128K ")//; prbyte(version.1); cout('.'); prbyte(version.0); crout
 //
 // Init symbol table.
 //
diff --git a/src/vmsrc/apple/sossys.pla b/src/vmsrc/apple/sossys.pla
index c600a74..22c0af8 100755
--- a/src/vmsrc/apple/sossys.pla
+++ b/src/vmsrc/apple/sossys.pla
@@ -1287,7 +1287,7 @@ cmdlnptr = @cmdln
 // Print PLASMA version
 //
 init_cons
-prstr("PLASMA JITC 2.0 Dev\n")//; putb(version.1); putc('.'); putb(version.0); putln
+prstr("PLASMA 2.0 Dev JITC\n")//; putb(version.1); putc('.'); putb(version.0); putln
 prstr("MEM:$"); prword(availheap); crout
 //
 // Exec command line parser