The branch op code I was looking for

2024-10-18 22:24:28 +00:00 · 2018-01-20 10:30:14 -08:00 · 2018-01-20 10:30:14 -08:00 · 3807a29fc9
commit 3807a29fc9
parent 934c52cf4d
2 changed files with 7 additions and 9 deletions
--- a/src/vmsrc/plvm02.s
+++ b/src/vmsrc/plvm02.s
@ -1363,24 +1363,22 @@ BRFLS   INX
        ORA     ESTKL-1,X
        BNE     NOBRNCH
 BRNCH   TYA                     ; FLATTEN IP
-        CLC
+        SEC
        ADC     IPL
        STA     TMPL
        LDA     #$00
+        TAY
        ADC     IPH
        STA     TMPH            ; ADD BRANCH OFFSET
-        INY
-        LDA     (IP),Y
+        LDA     (TMP),Y
        CLC
        ADC     TMPL
-        STA     TMPL
+        STA     IPL
        INY
-        LDA     (IP),Y
+        LDA     (TMP),Y
        ADC     TMPH
        STA     IPH
-        LDA     TMPL
-        STA     IPL
-        LDY     #$01
+        DEY
        JMP     FETCHOP
 BREQ    INX
        LDA     ESTKL-1,X
--- a/src/vmsrc/plvm802.s
+++ b/src/vmsrc/plvm802.s
@ -1285,7 +1285,7 @@ BRNCH   TYA                     ; FLATTEN IP
        CLC
        ADC     IP
        INY                     ;+INC_IP
-        CLC                     ; ADD BRANCH OFFSET
+        ;CLC                    ; ADD BRANCH OFFSET (BETTER NOT CARRY OUT OF IP+Y)
        ADC     (IP),Y
        STA     IP
        LDY     #$01