diff --git a/src/vmsrc/plvm02.s b/src/vmsrc/plvm02.s
index 6dd1d56..af3002b 100755
--- 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
diff --git a/src/vmsrc/plvm802.s b/src/vmsrc/plvm802.s
index 016aefc..1983d7c 100644
--- 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