anchor.diff:              v <- (a ^^^ sum) &&& (a ^^^ operand) &&& 0x80 = 0
           let alu =
               let binaryResult = value + a + (if c then 1 else 0)
  -            if isDecimalMode then
  +            if not isDecimalMode then
  +                NZ binaryResult
  +                c <- binaryResult > 0xFF
  +                setV binaryResult value
  +                binaryResult &&& 0xFF
  +            else
                   let initialAdd = (a &&& 0x0F) + (value &&& 0x0F) + (if c then 1 else 0)
                   let adjustedAdd = initialAdd + (if initialAdd > 9 then 6 else 0)
                   let result = (adjustedAdd &&& 0x0F) + (a &&& 0xF0) + (value &&& 0xF0) + (if adjustedAdd > 0x0F then 0x10 else 0x00)
  
positive.code:             aluTemp <- address
              pc <- (pc &&& 0xFF00) ||| (aluTemp &&& 0xFF)
              if (address &&& 0xFF00) >= 0x100 then
                  opcode <- vopRelativeStuff2
                  mi <- -1
              else
                  if interruptPending then
  
negative.code:                 c <- binaryResult >= 0
                  setV binaryResult value
                  result &&& 0xFF
          aluTemp <- alu
          a <- alu
  
  