From a5b0349d56c50a21d494ea951523dfb411ebe08b Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Fri, 23 May 2014 12:23:51 -0700
Subject: [PATCH] Small AUX mem tweaks

---
 PLASMA/src/cmd.pla  |  2 +-
 PLASMA/src/plvm02.s | 16 +++++++---------
 2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/PLASMA/src/cmd.pla b/PLASMA/src/cmd.pla
index 8fd8b673..4440fd7b 100644
--- a/PLASMA/src/cmd.pla
+++ b/PLASMA/src/cmd.pla
@@ -92,7 +92,7 @@ byte prefix[32]   = ""
 ;
 word heap
 word lastsym     = symtbl
-word xheap       = $0400
+word xheap       = $0800
 word systemflags = 0
 word perr
 word cmdptr
diff --git a/PLASMA/src/plvm02.s b/PLASMA/src/plvm02.s
index 57b5530e..0ebb4591 100644
--- a/PLASMA/src/plvm02.s
+++ b/PLASMA/src/plvm02.s
@@ -319,7 +319,7 @@ NEXTOPHX INC	IPH
 DROPX	INX
 NEXTOPX	INY
 	BEQ	NEXTOPHX
-FETCHOPX ;SEI
+FETCHOPX SEI
 	STA	ALTRDON
 	LDA	(IP),Y
 	STA	*+4
@@ -1778,20 +1778,18 @@ CALL 	+INC_IP
 ;
 CALLX 	+INC_IP
 	LDA	(IP),Y
-	PHA
+	STA	TMPL
 	+INC_IP
 	LDA	(IP),Y
-	STA	ALTRDOFF
 	STA	TMPH
-	PLA
-	STA	TMPL
 	LDA	IPH
 	PHA
 	LDA	IPL
 	PHA
 	TYA
 	PHA
-	;CLI
+	STA	ALTRDOFF
+	CLI
 	JSR	JMPTMP
 	PLA
 	TAY
@@ -1839,7 +1837,7 @@ ICALX 	LDA	ESTKL,X
 	TYA
 	PHA
 	STA	ALTRDOFF
-	;CLI
+	CLI
 	JSR	JMPTMP
 	PLA
 	TAY
@@ -1953,10 +1951,10 @@ LEAVEX 	STA	ALTRDOFF
 	STA	IFPL
 	PLA
 	STA	IFPH
-	;CLI
+	CLI
 	RTS
 RETX	STA	ALTRDOFF
-	;CLI
+	CLI
 	RTS
 VMEND	=	*
 }
\ No newline at end of file