anchor.diff:  
           let PullP () =
               if rdy then
  -                SetP (ReadMemoryS())
  +                ReadMemoryS() |> SetP
                   IncrementS()
               rdy
   
  
positive.code:             z <- (value &&& 0x02) <> 0
              c <- (value &&& 0x01) <> 0
  
          let inline BitWithin register index =
              register &&& (1 <<< index) <> 0
  
          let Cmp register =
              let result = register - aluTemp
              c <- register >= aluTemp
              NZ result
  
          let And () =
              a <- a &&& aluTemp
              NZ a
  
          let Bit () =
              n <- (aluTemp &&& 0x80) <> 0
              v <- (aluTemp &&& 0x40) <> 0
              z <- (a &&& aluTemp) = 0
  
          let Eor () =
              a <- a ^^^ aluTemp
              NZ a
  
          let Ora () =
              a <- a ||| aluTemp
              NZ a
  
          let Anc () =
              a <- a &&& aluTemp
              c <- (a &&& 0x80) <> 0
              NZ a
  
          let Asr () =
              a <-
                  let anded = a &&& aluTemp
                  c <- (anded &&& 0x01) <> 0
                  anded >>> 1
              NZ a
  
          let Axs () =
              x <- x &&& a
              aluTemp <- (x - aluTemp)
              x <- aluTemp &&& 0xFF
              c <- (aluTemp &&& 0x100) = 0
              NZ x
  
          let Arr () =
              a <-
                  let initialMask = a &&& aluTemp
                  let binaryResult = (initialMask >>> 1) ||| (if c then 0x80 else 0x00)
                  if isDecimalMode then
                      n <- (a &&& 0x80) <> 0
  
negative.code:         let IndIdxStage4 () =
              if rdy then
                  aluTemp <- ea + y
                  ea <- (((opcode2 + 1) &&& 0xFF) <<< 8) ||| (aluTemp &&& 0xFF) |> ReadMemory
              rdy
  
          let IndIdxWriteStage5 () =
  