anchor.diff:  
       let ZpRmwStage3 () = ReadMemory opcode2 <| SetAlu
       let ZpRmwStage5 () = WriteMemory opcode2 aluTemp <| ignore
  -    let ZpRmw operation = WriteMemory opcode2 aluTemp <| operation
  +    let ZpRmw = WriteMemory opcode2 aluTemp
   
       let ZpRmwInc () = ZpRmw <| Inc
       let ZpRmwDec () = ZpRmw <| Dec
  
positive.code:             pc <- pc + 1
              mem |> operation)
  
      let ReadMemoryS operation =
          ReadMemory (0x100 ||| s) <| operation
  
      let WriteMemoryS value operation =
          WriteMemory (0x100 ||| s) value <| operation
  
      let Push value operation =
          WriteMemoryS value <| (fun mem ->
  
negative.code:     let AbsIdxRmwStage5 () = ReadMemory ea <| SetAlu
      let AbsIdxRmwStage7 () = WriteMemory ea aluTemp <| ignore
  
      let AbsIdxRmwStage6 = WriteMemory ea aluTemp
      let AbsIdxRmwStage6Dec () = AbsIdxRmwStage6 <| Dec
      let AbsIdxRmwStage6Dcp () = AbsIdxRmwStage6 <| Dcp
      let AbsIdxRmwStage6Isc () = AbsIdxRmwStage6 <| Isc
  