anchor.diff:              z <- (value &&& 0x02) <> 0
               c <- (value &&& 0x01) <> 0
   
  -        let inline BitWithin register index =
  -            register &&& (1 <<< index) <> 0
  -
  -        let Cmp register =
  -            let result = register - aluTemp
  +        let IfReady action =
  +            if rdy then
  +                action
  +            rdy
  +
  +
  +        // ----- ALU -----
  +
  +
  +        let Cmp register value =
  +            aluTemp <- (register - value) &&& 0xFF
               c <- register >= aluTemp
  -            NZ result
  -
  -        let And () =
  -            a <- a &&& aluTemp
  +            NZ aluTemp
  +
  +        let And value =
  +            aluTemp <- a &&& value
  +            a <- aluTemp
               NZ a
   
  -        let Bit () =
  +        let Bit value =
  +            aluTemp <- value
               n <- (aluTemp &&& 0x80) <> 0
               v <- (aluTemp &&& 0x40) <> 0
               z <- (a &&& aluTemp) = 0
   
  -        let Eor () =
  -            a <- a ^^^ aluTemp
  +        let Eor value =
  +            aluTemp <- a ^^^ value
  +            a <- aluTemp
               NZ a
   
  -        let Ora () =
  -            a <- a ||| aluTemp
  +        let Ora value =
  +            aluTemp <- a ||| value
  +            a <- aluTemp
               NZ a
   
  -        let Anc () =
  -            a <- a &&& aluTemp
  -            c <- (a &&& 0x80) <> 0
  +        let Anc value =
  +            aluTemp <- a &&& value
  +            c <- (aluTemp &&& 0x80) <> 0
  +            a <- aluTemp
               NZ a
   
  -        let Asr () =
  -            a <-
  -                let anded = a &&& aluTemp
  -                c <- (anded &&& 0x01) <> 0
  -                anded >>> 1
  +        let Asr value =
  +            aluTemp <- value
  +            let anded = a &&& aluTemp
  +            c <- (anded &&& 0x01) <> 0
  +            aluTemp <- anded >>> 1
  +            a <- aluTemp
               NZ a
   
  -        let Axs () =
  +        let Axs value =
  +            aluTemp <- value
               x <- x &&& a
               aluTemp <- (x - aluTemp)
               x <- aluTemp &&& 0xFF
               c <- (aluTemp &&& 0x100) = 0
               NZ x
   
  -        let Arr () =
  -            a <-
  -                let initialMask = a &&& aluTemp
  +        let Arr value =
  +            aluTemp <-
  +                let initialMask = a &&& value
                   let binaryResult = (initialMask >>> 1) ||| (if c then 0x80 else 0x00)
                   if isDecimalMode then
                       n <- (a &&& 0x80) <> 0
  
positive.code:             if rdy then
                  if aluTemp >= 0x100 then
                      mi <- mi + 1
                      ExecuteOneRetry()
                  else
                      ReadMemory ea |> ignore
                      ea <- (ea + 0x100) &&& 0xFFFF
  
negative.code: 
          let AbsReadBit () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Bit
              rdy
  
          let AbsReadLax () =
  