anchor.diff:                                      1)))
               (t nil)))))
   
  -(defun decode-ev-1 (context info group-table)
  -  (multiple-value-bind (reg r/m)
  -      (disassemble-ordinary-modr/m context info)
  -    (let ((opcodes (aref (symbol-value group-table) reg)))
  -      (cond (opcodes
  -             (if (rex-w info)
  -                 (and (fourth opcodes)
  -                      (make-instruction (fourth opcodes)
  -                                        (decode-gpr64-or-mem r/m (rex-b info))
  -                                        1))
  -                 (and (third opcodes)
  -                      (make-instruction (third opcodes)
  -                                        (decode-gpr32-or-mem r/m (rex-b info))
  -                                        1))))
  -            (t nil)))))
  -
   (defun decode-eb-cl (context info group-table)
     (multiple-value-bind (reg r/m)
  -      (disassemble-ordinary-modr/m context info)
  +      (disassemble-modr/m context info)
       (let ((opcodes (aref (symbol-value group-table) reg)))
         (cond (opcodes
                (and (first opcodes)
  
positive.code: 
  (defun decode-mov-r-c (context info)
    (multiple-value-bind (reg r/m)
        (disassemble-ordinary-modr/m context info)
      (when (integerp r/m)
        (make-instruction 'sys.lap-x86:movcr
                          (elt #(:cr0 :cr1 :cr2 :cr3 :cr4 :cr5 :cr6 :cr7) reg)
  
negative.code: 
  (defun decode-group-1a (context info)
    (multiple-value-bind (reg r/m)
        (disassemble-modr/m context info)
      (case reg
        (0
         (make-instruction 'sys.lap-x86:pop
  