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