From 463db3c170d7c6edfb5457649c66ad5766b31c84 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Fri, 16 Mar 2018 20:44:09 -0700
Subject: [PATCH] Fix 65802 caseblock early exit

---
 PLASMA-SYS2.PO            | Bin 143360 -> 143360 bytes
 src/vmsrc/apple/plvm802.s |   2 +-
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/PLASMA-SYS2.PO b/PLASMA-SYS2.PO
index 0bc72573be1c69a5b9019f6337766640664ff5fb..26d994e71c62ddd1e71c46e91ece895b742006ce 100644
GIT binary patch
delta 40
wcmZp8z|ru4W5W&>UKbSs0cD2A3=9P-iXzQNS+*Z#VO+4C(Q13z9>!V402ZSS=Kufz

delta 40
wcmZp8z|ru4W5W&>UK157er1No3=9P-rUK1JS+*Z#VO+4CQDS@A9>!V402zi2?f?J)

diff --git a/src/vmsrc/apple/plvm802.s b/src/vmsrc/apple/plvm802.s
index dafb39a..9c3df63 100644
--- a/src/vmsrc/apple/plvm802.s
+++ b/src/vmsrc/apple/plvm802.s
@@ -1398,10 +1398,10 @@ CASELP  CMP     (IP),Y
 CASEEND TXA                     ; SKIP REMAINING CASES
         ASL
         ASL
+        DEC
 ;        CLC
         ADC     IP
         STA     IP
-        DEY
 FIXNEXT TYA
         LDY     #$00
         SEC