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: (define-modr/m-decoder decode-ev-gv (context info opcode r/m reg)
    (make-instruction opcode r/m reg))
  
  (define-modr/m-decoder decode-gv-ev-ib (context info opcode r/m reg)
    (let ((imm (consume-sb8 context)))
      (make-instruction opcode reg r/m imm)))
  
  (define-modr/m-decoder decode-gv-ev (context info opcode r/m reg)
  
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
  