anchor.diff:              ea <- (opcode3 <<< 8) + opcode2
               aluTemp <- ReadMemoryInternal ea
   
  -    let AbsRmwStage5 operation = WriteMemory ea aluTemp operation
  +    let AbsRmwStage5 operation = WriteMemory ea aluTemp <| operation
       let AbsRmwStage5Inc () = AbsRmwStage5 <| Inc
       let AbsRmwStage5Dec () = AbsRmwStage5 <| Dec
       let AbsRmwStage5Dcp () = AbsRmwStage5 <| Dcp
  
positive.code:     let SetNZY value =
          y <- value
          NZ y
      let SetAlu value =
          aluTemp <- value
      let SetOpcode2 value =
  
negative.code:     let ZpRmwStage5 () = WriteMemory opcode2 aluTemp <| ignore
      let ZpRmw operation = WriteMemory opcode2 aluTemp <| operation
  
      let ZpRmwInc () = ZpRmw <| Inc
      let ZpRmwDec () = ZpRmw <| Dec
      let ZpRmwAsl () = ZpRmw <| Asl
      let ZpRmwSre () = ZpRmw <| Sre
      let ZpRmwRra () = ZpRmw <| Rra
      let ZpRmwDcp () = ZpRmw <| Dcp
      let ZpRmwLsr () = ZpRmw <| Lsr
      let ZpRmwRor () = ZpRmw <| Ror
      let ZpRmwRol () = ZpRmw <| Rol
      let ZpRmwSlo () = ZpRmw <| Slo
      let ZpRmwIsc () = ZpRmw <| Isc
      let ZpRmwRla () = ZpRmw <| Rla
  
      let AbsIdxStage3 value =
          ReadMemoryPcIncrement <| (fun mem ->
  