From d166b99eb025d3fa55c7d5ea5c7e6388a5b29000 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Thu, 18 Jan 2018 07:20:02 -0800
Subject: [PATCH] Fix 65802 HWSP state

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

diff --git a/src/vmsrc/plvm802.s b/src/vmsrc/plvm802.s
index 82caaa7..1b71cdb 100644
--- a/src/vmsrc/plvm802.s
+++ b/src/vmsrc/plvm802.s
@@ -1534,6 +1534,8 @@ JMPTMP  JMP     (TMP)
 ;* ENTER FUNCTION WITH FRAME SIZE AND PARAM COUNT
 ;*
 ENTER   PEI     (IFP)           ; SAVE ON STACK FOR LEAVE
+        TSX                     ; REFLECT SP IN SAVED HWSP
+        STX     HWSP
         INY
         LDA     (IP),Y
         AND     #$00FF