anchor.diff:      let SetNZY value =
           y <- value
           NZ y
  +    let SetAInternal value =
  +        a <- value
       let SetAlu value =
           aluTemp <- value
       let SetOpcode2 value =
  
positive.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
  
negative.code:             iFlagPending <- i
              i <- myIFlag
  
      let PullANoInc () = ReadMemoryS <| SetAInternal
  
      let Imp operation = FetchDummy <| operation
      let ImpAslA () = Imp <| AslA
  