anchor.diff:  
   (defun decode-group-9 (context info)
     (multiple-value-bind (reg r/m)
  -      (disassemble-ordinary-modr/m context info)
  +      (disassemble-modr/m context info)
       (case reg
         (1
          (if (rex-w info)
  
positive.code: 
  (defun decode-ed/q-pd (context info opcode32 opcode64)
    (multiple-value-bind (reg r/m)
        (disassemble-ordinary-modr/m context info)
      (make-instruction (if (rex-w info)
                            opcode64
                            opcode32)
  
negative.code: 
  (defun decode-pq-qd (context info opcode opcode-66 opcode-f2 opcode-f3)
    (multiple-value-bind (reg r/m)
        (disassemble-modr/m context info)
      (cond ((getf info :osize)
             (and opcode-66
                  (make-instruction opcode-66
  