From d6091a87a1c9a616af498d8df8d9cb0ea4fd6b8d Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Tue, 3 Mar 2015 18:37:00 -0800
Subject: [PATCH] Fix in-line string off-by-one

---
 Platform/Apple/tools/PLASMA/src/plvm02.s | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Platform/Apple/tools/PLASMA/src/plvm02.s b/Platform/Apple/tools/PLASMA/src/plvm02.s
index 915b7d64..0d899430 100644
--- a/Platform/Apple/tools/PLASMA/src/plvm02.s
+++ b/Platform/Apple/tools/PLASMA/src/plvm02.s
@@ -779,7 +779,7 @@ CSX	DEX
 	LDA	(IP),Y
 	TAY			; MAKE ROOM IN POOL AND SAVE ADDR ON ESTK
 	EOR	#$FF
-	SEC
+	CLC
 	ADC	PPL
 	STA	PPL
 	STA	ESTKL,X
@@ -1600,4 +1600,4 @@ RET	LDA	IFPL		; DEALLOCATE POOL
 	STA	IFPH
 	RTS
 VMEND	=	*
-}
\ No newline at end of file
+}