anchor.diff:        (format t "~85T; ~A" (pop annotations))
         (dolist (an annotations)
           (format t ", ~A" an)))))
  +
  +(defun decode-seg (reg)
  +  (elt #(:es :cs :ss :ds :fs :gs :invalid :invalid) reg))
   
   (defun decode-gpr8 (reg rex-field)
     (elt #(:al :cl :dl :bl :spl :bpl :sil :dil
  
positive.code:     (decode-ev-gv sys.lap-x86:mov16 sys.lap-x86:mov32 sys.lap-x86:mov64)
      (decode-gb-eb sys.lap-x86:mov8)
      (decode-gv-ev sys.lap-x86:mov16 sys.lap-x86:mov32 sys.lap-x86:mov64)
      (decode-ev-sw sys.lap-x86:movseg)
      (decode-gv-ev nil sys.lap-x86:lea32 sys.lap-x86:lea64)
      (decode-sw-ew sys.lap-x86:movseg)
      (decode-group-1a)
      (decode-xchg+r) ; 90
      (decode-xchg+r)
  
negative.code:                     (decode-gpr64 (ldb (byte 3 0) (getf info :opcode))
                                    (rex-b info))))
  
  (defun decode-ib (context info opcode)
    (declare (ignore info))
    (make-instruction opcode
                      (consume-sb8 context)))
  
  (defun decode-iz (context info opcode)
    (declare (ignore info))
    (make-instruction opcode
  