anchor.diff:  
       let PullANoInc () = ReadMemoryS <| SetAInternal
   
  -    let Imp operation = FetchDummy <| operation
  +    let Imp = FetchDummy
       let ImpAslA () = Imp <| AslA
       let ImpRolA () = Imp <| RolA
       let ImpRorA () = Imp <| RorA
  
positive.code: 
  
      let FetchDiscard address operation = ReadMemory address <| (ignore >> operation)
      let FetchDummy operation = FetchDiscard pc operation
  
      let Fetch1RealInternal () =
          let currentPc = pc
  
negative.code: 
      let ZpRmwStage3 () = ReadMemory opcode2 <| SetAlu
      let ZpRmwStage5 () = WriteMemory opcode2 aluTemp <| ignore
      let ZpRmw = WriteMemory opcode2 aluTemp
  
      let ZpRmwInc () = ZpRmw <| Inc
      let ZpRmwDec () = ZpRmw <| Dec
  