anchor.diff:                  true
               | _ -> false
   
  +    let FetchPclVectorInternal () =
  +        if nmi && ((ea = brkVector && b) || (ea = irqVector && (not b))) then
  +            nmi <- false
  +            ea <- nmiVector
  +        aluTemp <- ReadMemoryInternal ea
  +        
       let FetchPclVector () =
  -        IfReady <| fun _ ->
  -            if nmi && ((ea = brkVector && b) || (ea = irqVector && (not b))) then
  -                nmi <- false
  -                ea <- nmiVector
  -            aluTemp <- ReadMemoryInternal ea
  +        IfReady <| FetchPclVectorInternal
  +
  +    let FetchPchVectorInternal () =
  +        aluTemp <- aluTemp ||| (ReadMemoryInternal(ea + 1) <<< 8)
  +        pc <- aluTemp
               
       let FetchPchVector () =
  -        IfReady <| fun _ ->
  -            aluTemp <- aluTemp ||| (ReadMemoryInternal(ea + 1) <<< 8)
  -            pc <- aluTemp
  +        IfReady <| FetchPchVectorInternal
   
       let Imp operation = FetchDummy operation
       let ImpIny () = Imp <| fun _ -> (Inc y; y <- aluTemp)
  
positive.code:     let Fetch1Real () =
          IfReady <| Fetch1RealInternal
  
      let Fetch1 () =
          IfReady <| fun _ ->
              myIFlag <- i
              i <- iFlagPending
              match branchIrqHack, nmi, (irq && (not myIFlag)) with
                  | false, true, _ ->
                      interruptPending <- false
                      ea <- nmiVector
                      opcode <- vopNmi
                      nmi <- false
                      mi <- 0
                      restart <- true
                  | false, false, true ->
                      interruptPending <- false
                      ea <- irqVector
                      opcode <- vopIrq
                      mi <- 0
                      restart <- true
                  | _ -> Fetch1RealInternal()
  
      let Fetch2 () = ReadMemoryPcIncrement <| SetOpcode2
      let Fetch3 () = ReadMemoryPcIncrement <| SetOpcode3
      let PushPch () = Push (GetPch()) <| ignore
      let PushPcl () = Push (GetPcl()) <| ignore
  
      let PushDummy () =
          ReadMemoryS <| fun _ -> s <- (s - 1) &&& 0xFF
  
      let PushPInterrupt newB newEa =
          b <- newB
  
negative.code:         FetchDummy <| fun _ ->
              pc <- (pc + (if aluTemp < 0 then -256 else 256)) &&& 0xFFFF
  
      let IncrementS () = 
          s <- (s + 1) &&& 0xFF
      let IncS () = ReadMemoryS <| (ignore >> IncrementS)
      let Jsr () = ReadMemory pc <| SetPcJump
      let PullP () = Pull <| SetP
      let PullPcl () = Pull <| SetPcl
  