diff --git a/src/vmsrc/apple/plvm01.s b/src/vmsrc/apple/plvm01.s
index 6ae2223..651be40 100644
--- a/src/vmsrc/apple/plvm01.s
+++ b/src/vmsrc/apple/plvm01.s
@@ -839,21 +839,20 @@ CASELP  LDA     ESTKL-1,X
         BPL     -
 CASEEND LDA     #$00
         STA     TMPH
+        DEC     TMPL
         LDA     TMPL
         ASL                 ; SKIP REMAINING CASES
         ROL     TMPH
         ASL
         ROL     TMPH
-        SBC     #$00        ; CARRY CLEAR = SUB #1
-        BCS     +
-        DEC     TMPH
-+       CLC
+;       CLC
         ADC     IPL
         STA     IPL
         LDA     TMPH
         ADC     IPH
         STA     IPH
-        DEY
+        INY
+        INY
 FIXNEXT TYA
         LDY     #$00
         SEC
diff --git a/src/vmsrc/apple/plvm02.s b/src/vmsrc/apple/plvm02.s
index 1ab890e..a33d4c8 100755
--- a/src/vmsrc/apple/plvm02.s
+++ b/src/vmsrc/apple/plvm02.s
@@ -1631,21 +1631,20 @@ CASELP  LDA     ESTKL-1,X
         BPL     -
 CASEEND LDA     #$00
         STA     TMPH
+        DEC     TMPL
         LDA     TMPL
         ASL                 ; SKIP REMAINING CASES
         ROL     TMPH
         ASL
         ROL     TMPH
-        SBC     #$00        ; CARRY CLEAR = SUB #1
-        BCS     +
-        DEC     TMPH
-+       CLC
+;       CLC
         ADC     IPL
         STA     IPL
         LDA     TMPH
         ADC     IPH
         STA     IPH
-        DEY
+        INY
+        INY
 FIXNEXT TYA
         LDY     #$00
         SEC