anchor.diff:  
       let IdxIndRmwStage6 () = ReadMemory ea <| SetAlu
   
  -    let IdxIndRmwStage7 operation = WriteMemory ea aluTemp operation
  +    let IdxIndRmwStage7 operation = WriteMemory ea aluTemp <| operation
       let IdxIndRmwStage7Slo () = IdxIndRmwStage7 <| Slo
       let IdxIndRmwStage7Sre () = IdxIndRmwStage7 <| Sre
       let IdxIndRmwStage7Rra () = IdxIndRmwStage7 <| Rra
  
positive.code:     let AbsRmwStage6 () = WriteMemory ea aluTemp <| ignore
  
      let JamAddress address =
          FetchDiscard address |> ignore; true
  
      let JamFFFE () =
          JamAddress 0xFFFE
  
negative.code:             ea <- (opcode3 <<< 8) + opcode2
              aluTemp <- ReadMemoryInternal ea
  
      let AbsRmwStage5 operation = WriteMemory ea aluTemp <| operation
      let AbsRmwStage5Inc () = AbsRmwStage5 <| Inc
      let AbsRmwStage5Dec () = AbsRmwStage5 <| Dec
      let AbsRmwStage5Dcp () = AbsRmwStage5 <| Dcp
  