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:         FetchDummy <| fun _ ->
              pc <- (pc + (if aluTemp < 0 then -256 else 256)) &&& 0xFFFF
  
      let IncS () = ReadMemoryS <| fun _ -> s <- (s + 1) &&& 0xFF
      let Jsr () = ReadMemory pc <| SetPcJump
      let PullP () = Pull <| SetP
      let PullPcl () = Pull <| SetPcl
  
negative.code:                 | Uop.EndSuppressInterrupt -> EndSuppressInterrupt
                  | Uop.End -> End
                  | Uop.EndBranchSpecial -> EndBranchSpecial
                  | Uop.JamFFFE -> fun _ -> FetchDiscard 0xFFFE |> ignore; true
                  | Uop.JamFFFF -> fun _ -> FetchDiscard 0xFFFF |> ignore; true
                  | _ -> fun _ -> FetchDiscard 0xFFFF |> ignore; false
          then
              mi <- mi + 1
  
  