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

---
 src/vmsrc/plvm02.s | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/vmsrc/plvm02.s b/src/vmsrc/plvm02.s
index e70ff1e..a1cfa79 100644
--- a/src/vmsrc/plvm02.s
+++ b/src/vmsrc/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
+}