anchor.diff:      let ZpIdxRmwStage4 () = ReadMemory opcode2 <| SetAlu
       let ZpIdxRmwStage6 () = WriteMemory opcode2 aluTemp <| ignore
   
  -    let ZpRead operation = ReadMemory opcode2 <| operation
  +    let ZpRead = ReadMemory opcode2
       let ZpReadEor () = ZpRead <| Eor
       let ZpReadBit () = ZpRead <| Bit
       let ZpReadLda () = ZpRead <| Lda
  
positive.code: 
      let PullANoInc () = ReadMemoryS <| SetAInternal
  
      let Imp operation = FetchDummy <| operation
      let ImpAslA () = Imp <| AslA
      let ImpRolA () = Imp <| RolA
      let ImpRorA () = Imp <| RorA
  
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
  