anchor.diff:      ((= opcode #x2e) (segment-prefix :cs))
       ((= opcode #x36) (segment-prefix :ss))
       ((= opcode #x3e) (segment-prefix :ds))
  +    ((= opcode #x8c) (mov-segment-to-indirect))
  +    ((= opcode #x8e) (mov-indirect-to-segment))
       ((= opcode #xe9) (jmp-near))
       ((= opcode #xeb) (jmp-short))
       ((in-paired-byte-block-p opcode #x70) (jmp-short-conditionally opcode (flag-p :of) "o"))
  
positive.code: 
  (defun bits->byte-reg (bits)
    (elt +bits-to-byte-register+ bits))
  
  (defmacro default-seg-to (default &optional (current *current-segment*))
    `(if (null ,current) ,default ,current))
  
negative.code: 
  (defun pop-segment (seg)
    (pop-operation (segment seg)))
  
  (defun mov-segment-to-indirect ()
    (with-mod-r/m-byte
      (mov (segment (bits->segment reg-bits)) (indirect-address mod-bits r/m-bits t))))
  
  (defun mov-indirect-to-segment ()
    (with-mod-r/m-byte
      (mov (indirect-address mod-bits r/m-bits t) (segment (bits->segment reg-bits)))))
  
  ;; Flow control
  
  