anchor.diff:      ((in-paired-byte-block-p opcode #x7c) (jmp-short-conditionally opcode (not (eq (flag-p :of) (flag-p :sf))) "l"))
       ((in-paired-byte-block-p opcode #x7e) (jmp-short-conditionally opcode (or (flag-p :zf) (not (eq (flag-p :of) (flag-p :sf)))) "le"))
       ((= opcode #xe3) (jmp-short-on-cx-zero))
  +    ((= opcode #x9a) (call-far))
       ((= opcode #xe8) (call-near))
       ((= opcode #xc2) (ret-near-resetting-stack))
       ((= opcode #xc3) (ret-near))
  +    ((= opcode #xca) (ret-far-resetting-stack))
  +    ((= opcode #xcb) (ret-far))
       ((= opcode #xe0) (loop-instruction (not (flag-p :zf)) "ne"))
       ((= opcode #xe1) (loop-instruction (flag-p :zf) "e"))
       ((= opcode #xe2) (loop-instruction t ""))
  
positive.code:   `(let ((*default-segment* :ds))
       ,@body))
  
  ;; Group handling
  
  (defmacro parse-group-byte-pair (opcode operation mod-bits r/m-bits)
  
negative.code:     ((= opcode #x3e) (segment-prefix :ds))
      ((= opcode #x8c) (mov-segment-to-indirect))
      ((= opcode #x8e) (mov-indirect-to-segment))
      ((= opcode #xc4) (load-far-pointer :es "les"))
      ((= opcode #xc5) (load-far-pointer :ds "lds"))
      ((= opcode #xea) (jmp-far))
      ((= opcode #xe9) (jmp-near))
      ((= opcode #xeb) (jmp-short))
      ((in-paired-byte-block-p opcode #x70) (jmp-short-conditionally opcode (flag-p :of) "o"))
  