6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-04-20 16:16:34 +00:00
Code Issues Projects Releases Wiki Activity

Better CASE END

Browse Source
This commit is contained in:
David Schmenk
2018-03-17 09:46:13 -07:00
parent 3975e54c29
commit 95e15e4b86
2 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/vmsrc/apple/plvm01.s
+4 -5
View File
@@ -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
src/vmsrc/apple/plvm02.s
+4 -5
View File
@@ -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