anchor.diff:       (clear-flag :of)))
   
   (defun test-accumulator-with-immediate (opcode)
  -  (let ((is-word (oddp opcode)))
  +  (with-size-by-last-bit opcode
       (if is-word
         (test-operation (register :ax) (next-word) t)
         (test-operation (byte-register :al) (next-instruction) nil))))
   
   (defun test-memory-register (opcode)
     (with-mod-r/m-byte
  -    (let ((is-word (oddp opcode)))
  +    (with-size-by-last-bit opcode
         (if is-word
   	  (test-operation (register (bits->word-reg reg-bits)) (indirect-address mod-bits r/m-bits t) t)
   	  (test-operation (byte-register (bits->byte-reg reg-bits)) (indirect-address mod-bits r/m-bits nil) nil)))))
  
positive.code:     ((in-4-byte-block-p opcode #x88) (parse-mov-opcode opcode))
      ((in-paired-byte-block-p opcode #x86) (xchg-memory-register opcode))
      ((in-paired-byte-block-p opcode #xc6) (parse-group11-opcode opcode))
      ((in-paired-byte-block-p opcode #xfe) (parse-group4/5-opcode opcode))
      ((in-paired-byte-block-p opcode #xf6) (parse-group3-opcode opcode))
      ((= opcode #x9c) (push-flags))
  
negative.code: ;; Memory and register mov/xchg
  
  (defun xchg-memory-register (opcode)
    (with-mod-r/m-byte
      (with-size-by-last-bit opcode
        (if is-word
  	  (xchg (register (bits->word-reg reg-bits)) (indirect-address mod-bits r/m-bits is-word))
  	  (xchg (byte-register (bits->byte-reg reg-bits)) (indirect-address mod-bits r/m-bits is-word))))))
  