6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-10-01 14:57:08 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/vmsrc/apple/plvm01.s
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

9
src/vmsrc/apple/plvm02.s
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