anchor.diff:                  let adjustedResult = result + (if result &&& 0x1F0 > 0x090 then 0x060 else 0x000)
                   c <- (adjustedResult &&& 0xFF0) > 0x0F0
                   adjustedResult &&& 0xFF
  -            else
  -                NZ binaryResult
  -                c <- binaryResult > 0xFF
  -                setV binaryResult value
  -                binaryResult &&& 0xFF
           aluTemp <- alu
           a <- alu
   
  
positive.code:         aluTemp <-
              let initialMask = a &&& value
              let binaryResult = (initialMask >>> 1) ||| (if c then 0x80 else 0x00)
              if isDecimalMode then
                  n <- (a &&& 0x80) <> 0
                  z <- binaryResult = 0
                  v <- (binaryResult ^^^ initialMask) &&& 0x40 <> 0
  
negative.code:             aluTemp <- address
              pc <- (pc &&& 0xFF00) ||| (aluTemp &&& 0xFF)
              if (address &&& 0xFF00) >= 0x100 then
                  opcode <- VopRelativeStuff2
                  mi <- -1
              else
                  if interruptPending then
  