anchor.diff:              iFlagPending <- i
               i <- myIFlag
   
  -    let PullANoInc () = ReadMemoryS <| fun mem -> a <- mem
  +    let PullANoInc () = ReadMemoryS <| SetAInternal
   
       let Imp operation = FetchDummy <| operation
       let ImpAslA () = Imp <| AslA
  
positive.code:     let AbsRmwStage6 () = WriteMemory ea aluTemp <| ignore
  
      let JamAddress address =
          FetchDiscard address |> ignore; true
  
      let JamFFFE () =
          JamAddress 0xFFFE
  
negative.code:         opcode <- VopFetch1
          mi <- -1
          restart <- true
          true
  
      let EndSuppressInterrupt () =
          opcode <- VopFetch1NoInterrupt
          mi <- -1
          restart <- true
          true
  
      let End () =
          opcode <- VopFetch1
          mi <- -1
          iFlagPending <- i
          restart <- true
          true
  
      let EndBranchSpecial = End
  
  