From 95e15e4b8670a47dfa3387026aef870d335577a9 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sat, 17 Mar 2018 09:46:13 -0700
Subject: [PATCH] Better CASE END
---
src/vmsrc/apple/plvm01.s | 9 ++++-----
src/vmsrc/apple/plvm02.s | 9 ++++-----
2 files changed, 8 insertions(+), 10 deletions(-)
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