anchor.diff:                        (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)
  +    (let ((opcodes (aref (symbol-value group-table) reg)))
  +      (cond (opcodes
  +             (and (first opcodes)
  +                  (make-instruction (fourth opcodes)
  +                                    (decode-gpr8-or-mem r/m (rex-b info))
  +                                    :cl)))
  +            (t nil)))))
  +
  +(defun decode-ev-cl (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))
  +                                        :cl))
  +                 (and (third opcodes)
  +                      (make-instruction (third opcodes)
  +                                        (decode-gpr32-or-mem r/m (rex-b info))
  +                                        :cl))))
               (t nil)))))
   
   (defun decode-ev-ib (context info group-table)
  
positive.code:     (decode-ev64 *group-5*)))
  
  (defparameter *extended-instruction-table*
    #(nil ; 00
      nil
      nil
      nil
      nil
  
negative.code:     nil
      nil
      nil
      (decode-io sys.lap-x86:in8 sys.lap-x86:in8 nil)
      (decode-io sys.lap-x86:in16 sys.lap-x86:in32 nil)
      (decode-io sys.lap-x86:out8 sys.lap-x86:out8 nil)
      (decode-io sys.lap-x86:out16 sys.lap-x86:out32 nil)
      (decode-jz sys.lap-x86:call) ; E8
      (decode-jz sys.lap-x86:jmp)
      nil
      (decode-jb sys.lap-x86:jmp)
      (decode-io sys.lap-x86:in8 sys.lap-x86:in8 :dx)
      (decode-io sys.lap-x86:in16 sys.lap-x86:in32 :dx)
      (decode-io sys.lap-x86:out8 sys.lap-x86:out8 :dx)
      (decode-io sys.lap-x86:out16 sys.lap-x86:out32 :dx)
      (decode-simple sys.lap-x86:lock) ; F0
      nil
      nil
  