• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Community
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
    • X86isa
      • Program-execution
      • Sdm-instruction-set-summary
      • Tlb
      • Running-linux
      • Introduction
      • Asmtest
      • X86isa-build-instructions
      • Publications
      • Contributors
      • Machine
        • X86isa-state
        • Syscalls
        • Cpuid
        • Linear-memory
        • Rflag-specifications
        • Characterizing-undefined-behavior
        • Top-level-memory
        • App-view
        • X86-decoder
          • Get-prefixes
          • Vex-0f3a-execute
          • Vex-0f38-execute
          • Vex-0f-execute
          • Two-byte-opcode-execute
          • Second-three-byte-opcode-execute
          • One-byte-opcode-execute
          • First-three-byte-opcode-execute
          • Evex-0f3a-execute
          • Evex-0f38-execute
          • Evex-0f-execute
          • X86-fetch-decode-execute
          • Vex-decode-and-execute
          • Evex-decode-and-execute
          • X86-run
          • Implemented-opcodes
          • Three-byte-opcode-decode-and-execute
          • X86-run-halt-count
          • Two-byte-opcode-decode-and-execute
          • X86-run-steps
          • Opcode-maps
          • X86-run-halt
          • X86-fetch-decode-execute-halt
          • X86-run-steps1
        • Physical-memory
        • Decoding-and-spec-utils
        • Instructions
        • Register-readers-and-writers
        • X86-modes
        • Segmentation
        • Other-non-deterministic-computations
        • Environment
        • Paging
      • Implemented-opcodes
      • To-do
      • Proof-utilities
      • Peripherals
      • Model-validation
      • Modelcalls
      • Concrete-simulation-examples
      • Utils
      • Debugging-code-proofs
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• X86-decoder

One-byte-opcode-execute

Top-level dispatch function.

Signature

(one-byte-opcode-execute proc-mode start-rip temp-rip 
                         prefixes rex-byte opcode modr/m sib x86) 
 
  → 
x86

one-byte-opcode-execute is the doorway to all the opcode maps (for non-AVX/AVX512 instructions).

Definitions and Theorems

Function: one-byte-opcode-execute

(defun one-byte-opcode-execute
       (proc-mode start-rip temp-rip
                  prefixes rex-byte opcode modr/m sib x86)
 (declare (xargs :stobjs (x86)))
 (declare (type (integer 0 4) proc-mode)
          (type (signed-byte 48) start-rip)
          (type (signed-byte 48) temp-rip)
          (type (unsigned-byte 52) prefixes)
          (type (unsigned-byte 8) rex-byte)
          (type (unsigned-byte 8) opcode)
          (type (unsigned-byte 8) modr/m)
          (type (unsigned-byte 8) sib))
 (declare (xargs :guard (and (prefixes-p prefixes)
                             (modr/m-p modr/m)
                             (sib-p sib)
                             (rip-guard-okp proc-mode temp-rip))))
 (case opcode
  (0
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (1
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (2
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (3
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (4
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (5
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (6
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-segment-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "PUSH ES is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (7
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "POP ES is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (8
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (9
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (10
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (11
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (12
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (13
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (14
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-segment-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "PUSH CS is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (15 (cond ('t
             (two-byte-opcode-decode-and-execute
                  proc-mode start-rip
                  temp-rip prefixes rex-byte opcode x86))
            (t (x86-illegal-instruction "#UD Encountered!"
                                        start-rip temp-rip x86))))
  (16
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (17
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (18
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (19
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (20
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (21
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (22
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-segment-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "PUSH SS is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (23
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "POP SS is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (24
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (25
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (26
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (27
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (28
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (29
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (30
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-segment-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "PUSH DS is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (31
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "POP DS is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (32
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (33
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (34
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (35
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (36
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (37
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (38 (cond ('t
             (x86-illegal-instruction "#UD Encountered!"
                                      start-rip temp-rip x86))
            (t (x86-illegal-instruction "#UD Encountered!"
                                        start-rip temp-rip x86))))
  (39
   (cond
    ((not (equal proc-mode 0))
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((equal proc-mode 0)
     (let ((fault-var (if (or t) ':ud nil)))
      (if fault-var
          (case fault-var
            (:ud (x86-illegal-instruction "#UD Encountered!"
                                          start-rip temp-rip x86))
            (t (x86-step-unimplemented
                    "Unimplemented exception in x86isa!"
                    x86)))
       (x86-illegal-instruction "DAA is illegal in the 64-bit mode!"
                                start-rip temp-rip x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (40
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (41
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (42
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (43
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (44
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (45
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (46 (cond ('t
             (x86-illegal-instruction "#UD Encountered!"
                                      start-rip temp-rip x86))
            (t (x86-illegal-instruction "#UD Encountered!"
                                        start-rip temp-rip x86))))
  (47
   (cond
    ((not (equal proc-mode 0))
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((equal proc-mode 0)
     (let ((fault-var (if (or t) ':ud nil)))
      (if fault-var
          (case fault-var
            (:ud (x86-illegal-instruction "#UD Encountered!"
                                          start-rip temp-rip x86))
            (t (x86-step-unimplemented
                    "Unimplemented exception in x86isa!"
                    x86)))
       (x86-illegal-instruction "DAS is illegal in the 64-bit mode!"
                                start-rip temp-rip x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (48
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (49
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (50
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (51
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (52
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (53
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (54 (cond ('t
             (x86-illegal-instruction "#UD Encountered!"
                                      start-rip temp-rip x86))
            (t (x86-illegal-instruction "#UD Encountered!"
                                        start-rip temp-rip x86))))
  (55
   (cond
    ((not (equal proc-mode 0))
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((equal proc-mode 0)
     (let ((fault-var (if (or t) ':ud nil)))
      (if fault-var
          (case fault-var
            (:ud (x86-illegal-instruction "#UD Encountered!"
                                          start-rip temp-rip x86))
            (t (x86-step-unimplemented
                    "Unimplemented exception in x86isa!"
                    x86)))
       (x86-illegal-instruction "AAA is illegal in the 64-bit mode!"
                                start-rip temp-rip x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (56
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (57
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (58
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (59
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (60
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (61
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (62 (cond ('t
             (x86-illegal-instruction "#UD Encountered!"
                                      start-rip temp-rip x86))
            (t (x86-illegal-instruction "#UD Encountered!"
                                        start-rip temp-rip x86))))
  (63
   (cond
    ((not (equal proc-mode 0))
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((equal proc-mode 0)
     (let ((fault-var (if (or t) ':ud nil)))
      (if fault-var
          (case fault-var
            (:ud (x86-illegal-instruction "#UD Encountered!"
                                          start-rip temp-rip x86))
            (t (x86-step-unimplemented
                    "Unimplemented exception in x86isa!"
                    x86)))
       (x86-illegal-instruction "AAS is illegal in the 64-bit mode!"
                                start-rip temp-rip x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (64
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (65
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (66
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (67
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (68
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (69
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (70
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (71
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (72
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (73
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (74
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (75
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (76
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (77
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (78
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (79
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-4x proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (80
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (81
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (82
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (83
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (84
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (85
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (86
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (87
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (88
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (89
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (90
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (91
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (92
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (93
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (94
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (95
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-general-register
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (96
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pusha proc-mode start-rip temp-rip prefixes
                     rex-byte opcode modr/m sib x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "PUSHA is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (97
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-popa proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "POPA is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (98
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)
                               (ud-second-operand-is-a-register))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (99
   (cond
     ((equal proc-mode 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-movsxd proc-mode start-rip temp-rip prefixes
                      rex-byte opcode modr/m sib x86))))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (100 (cond ('t
              (x86-illegal-instruction "#UD Encountered!"
                                       start-rip temp-rip x86))
             (t (x86-illegal-instruction "#UD Encountered!"
                                         start-rip temp-rip x86))))
  (101 (cond ('t
              (x86-illegal-instruction "#UD Encountered!"
                                       start-rip temp-rip x86))
             (t (x86-illegal-instruction "#UD Encountered!"
                                         start-rip temp-rip x86))))
  (102 (cond ('t
              (x86-illegal-instruction "#UD Encountered!"
                                       start-rip temp-rip x86))
             (t (x86-illegal-instruction "#UD Encountered!"
                                         start-rip temp-rip x86))))
  (103 (cond ('t
              (x86-illegal-instruction "#UD Encountered!"
                                       start-rip temp-rip x86))
             (t (x86-illegal-instruction "#UD Encountered!"
                                         start-rip temp-rip x86))))
  (104
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-i proc-mode start-rip temp-rip prefixes
                      rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (105
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-imul-op/en-rmi proc-mode start-rip temp-rip prefixes
                              rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (106
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-push-i proc-mode start-rip temp-rip prefixes
                      rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (107
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-imul-op/en-rmi proc-mode start-rip temp-rip prefixes
                              rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (108
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (109
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (110
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (111
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (112
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (113
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (114
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (115
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (116
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (117
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (118
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (119
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (120
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (121
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (122
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (123
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (124
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (125
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (126
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (127
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-jcc proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (128
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 6)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (129
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 6)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (130
   (cond
     ((and (not (equal proc-mode 0))
           (equal (modr/m->reg modr/m) 0))
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((and (not (equal proc-mode 0))
           (equal (modr/m->reg modr/m) 1))
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((and (not (equal proc-mode 0))
           (equal (modr/m->reg modr/m) 2))
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((and (not (equal proc-mode 0))
           (equal (modr/m->reg modr/m) 3))
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((and (not (equal proc-mode 0))
           (equal (modr/m->reg modr/m) 4))
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((and (not (equal proc-mode 0))
           (equal (modr/m->reg modr/m) 5))
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((and (not (equal proc-mode 0))
           (equal (modr/m->reg modr/m) 6))
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((and (not (equal proc-mode 0))
           (equal (modr/m->reg modr/m) 7))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "Opcode 0x82 is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (131
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               0 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               1 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               2 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               6 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               3 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               4 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 6)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               5 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               8 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (132
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               7 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (133
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/xadd/adc/sub/sbb/or/and/xor/cmp/test-e-g
               7 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (134
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (135
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (136
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-mr proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (137
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-mr proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (138
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-rm proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (139
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-rm proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (140
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-mr proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (141
   (cond
     ('t
      (let ((fault-var (if (or (ud-source-operand-is-a-register)
                               (ud-lock-used))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-lea proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (142
   (cond
     ('t
      (let ((fault-var (if (or (equal (modr/m->reg modr/m) 1)
                               (ud-lock-used))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-rm proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (143
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pop-ev proc-mode start-rip temp-rip prefixes
                      rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (144
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (145
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (146
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (147
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (148
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (149
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (150
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (151
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-xchg proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (152
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cbw/cwd/cdqe proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (153
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cwd/cdq/cqo proc-mode start-rip temp-rip prefixes
                           rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (154
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "far CALL is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (155
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-one-byte-nop proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (156
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-pushf proc-mode start-rip temp-rip prefixes
                     rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (157
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-popf proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (158
   (cond
     ('t
      (let ((fault-var
                 (if (or (ud-lock-used)
                         (and (equal proc-mode 0)
                              (equal (feature-flag-macro :lahf-sahf)
                                     0)))
                     ':ud
                   nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sahf proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (159
   (cond
     ('t
      (let ((fault-var
                 (if (or (ud-lock-used)
                         (and (equal proc-mode 0)
                              (equal (feature-flag-macro :lahf-sahf)
                                     0)))
                     ':ud
                   nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-lahf proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (160
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-fd proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (161
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-fd proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (162
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-td proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (163
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-td proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (164
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-movs proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (165
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-movs proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (166
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cmps proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (167
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cmps proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (168
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               7 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (169
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-rax-i
               7 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (170
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-stos proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (171
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-stos proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (172
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (173
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (174
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (175
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (176
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (177
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (178
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (179
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (180
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (181
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (182
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (183
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (184
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (185
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (186
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (187
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (188
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (189
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (190
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (191
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-oi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (192
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (193
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (194
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-ret proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (195
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-ret proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (196
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)
                               (ud-source-operand-is-a-register))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (197
   (cond
     ((equal proc-mode 0)
      (x86-illegal-instruction "#UD Encountered!"
                               start-rip temp-rip x86))
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)
                               (ud-source-operand-is-a-register))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (198
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-mi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     ((and (equal (modr/m->reg modr/m) 7)
           (equal (modr/m->mod modr/m) 3)
           (equal (modr/m->r/m modr/m) 0))
      (let
         ((fault-var (if (or (equal (feature-flags-macro '(:rtm)) 0)
                             (ud-lock-used))
                         ':ud
                       nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (199
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mov-op/en-mi proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     ((and (equal (modr/m->reg modr/m) 7)
           (equal (modr/m->mod modr/m) 3)
           (equal (modr/m->r/m modr/m) 0))
      (let
         ((fault-var (if (or (equal (feature-flags-macro '(:rtm)) 0)
                             (ud-lock-used))
                         ':ud
                       nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (200
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (201
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-leave proc-mode start-rip temp-rip prefixes
                     rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (202
   (cond
    ('t
     (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (203 (cond ('t
              (x86-ret proc-mode start-rip temp-rip prefixes
                       rex-byte opcode modr/m sib x86))
             (t (x86-illegal-instruction "#UD Encountered!"
                                         start-rip temp-rip x86))))
  (204
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-int3 proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (205
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (206
   (cond
     ((not (equal proc-mode 0))
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     ((equal proc-mode 0)
      (let ((fault-var (if (or t) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-illegal-instruction
               "INTO is illegal in the 64-bit mode!"
               start-rip temp-rip x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (207
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-iret proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (208
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (209
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (210
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (211
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sal/sar/shl/shr/rcl/rcr/rol/ror
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (212
   (cond
    ((not (equal proc-mode 0))
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((equal proc-mode 0)
     (let ((fault-var (if (or t) ':ud nil)))
      (if fault-var
          (case fault-var
            (:ud (x86-illegal-instruction "#UD Encountered!"
                                          start-rip temp-rip x86))
            (t (x86-step-unimplemented
                    "Unimplemented exception in x86isa!"
                    x86)))
       (x86-illegal-instruction "AAM is illegal in the 64-bit mode!"
                                start-rip temp-rip x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (213
   (cond
    ((not (equal proc-mode 0))
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((equal proc-mode 0)
     (let ((fault-var (if (or t) ':ud nil)))
      (if fault-var
          (case fault-var
            (:ud (x86-illegal-instruction "#UD Encountered!"
                                          start-rip temp-rip x86))
            (t (x86-step-unimplemented
                    "Unimplemented exception in x86isa!"
                    x86)))
       (x86-illegal-instruction "AAD is illegal in the 64-bit mode!"
                                start-rip temp-rip x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (215
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (216
   (cond
    ((and (equal (modr/m->reg modr/m) 0)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (217
   (cond
    ((and (equal (modr/m->reg modr/m) 0)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 0))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 0))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 1))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 4))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 5))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 0))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 1))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 2))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 4))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 5))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 6))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 0))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 1))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 2))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 4))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 5))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 6))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 7))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 0))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 1))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 2))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 4))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 5))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 6))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 7))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (218
   (cond
    ((and (equal (modr/m->reg modr/m) 0)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 1))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (219
   (cond
    ((and (equal (modr/m->reg modr/m) 0)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (not (equal (modr/m->mod modr/m) 3)))
     (let ((fault-var (if (or (ud-lock-used))
                          ':ud
                        (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                            ':nm
                          nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 2))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (220
   (cond
    ((and (equal (modr/m->reg modr/m) 2)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (221
   (cond
    ((and (equal (modr/m->reg modr/m) 3)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (not (equal (modr/m->mod modr/m) 3)))
     (let ((fault-var (if (or (ud-lock-used))
                          ':ud
                        (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                            ':nm
                          nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (222
   (cond
    ((and (equal (modr/m->reg modr/m) 0)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 0)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 1))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (223
   (cond
    ((and (equal (modr/m->reg modr/m) 0)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 1)
          (not (equal (modr/m->mod modr/m) 3)))
     (let ((fault-var (if (or (ud-lock-used))
                          ':ud
                        (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                            ':nm
                          nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 2)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 3)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 7)
          (not (equal (modr/m->mod modr/m) 3)))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 4)
          (equal (modr/m->mod modr/m) 3)
          (equal (modr/m->r/m modr/m) 0))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((and (equal (modr/m->reg modr/m) 6)
          (equal (modr/m->mod modr/m) 3))
     (let
        ((fault-var (if (or (equal (feature-flags-macro '(:fpu)) 0)
                            (ud-lock-used))
                        ':ud
                      (if (or (nm-cr0-ts-is-1) (nm-cr0-em-is-1))
                          ':nm
                        nil))))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (:nm (x86-device-not-available "#NM Encountered!"
                                            start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (224
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-loop proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (225
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-loop proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (226
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-loop proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (227
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-jrcxz proc-mode start-rip temp-rip prefixes
                     rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (228
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (229
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (230
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-out proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (231
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (232
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-call-e8-op/en-m proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (233
   (cond
    ('t
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-near-jmp-op/en-d proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (234
   (cond
    ((not (equal proc-mode 0))
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((equal proc-mode 0)
     (let ((fault-var (if (or t) ':ud nil)))
      (if fault-var
          (case fault-var
            (:ud (x86-illegal-instruction "#UD Encountered!"
                                          start-rip temp-rip x86))
            (t (x86-step-unimplemented
                    "Unimplemented exception in x86isa!"
                    x86)))
       (x86-illegal-instruction "JMP is illegal in the 64-bit mode!"
                                start-rip temp-rip x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (235
   (cond
    ('t
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-near-jmp-op/en-d proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (236
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (237
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (238
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (239
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (240 (cond ('t
              (x86-illegal-instruction "#UD Encountered!"
                                       start-rip temp-rip x86))
             (t (x86-illegal-instruction "#UD Encountered!"
                                         start-rip temp-rip x86))))
  (241
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                  x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (242 (cond ('t
              (x86-illegal-instruction "#UD Encountered!"
                                       start-rip temp-rip x86))
             (t (x86-illegal-instruction "#UD Encountered!"
                                         start-rip temp-rip x86))))
  (243 (cond ('t
              (x86-illegal-instruction "#UD Encountered!"
                                       start-rip temp-rip x86))
             (t (x86-illegal-instruction "#UD Encountered!"
                                         start-rip temp-rip x86))))
  (244
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used))
                           ':ud
                         (if (or (gp-cpl-not-0)) ':gp nil))))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (:gp (x86-general-protection "#GP Encountered!"
                                           start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-hlt proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (245
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cmc/clc/stc/cld/std
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (246
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               7 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-not/neg-f6-f7 proc-mode start-rip temp-rip prefixes
                             rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-not/neg-f6-f7 proc-mode start-rip temp-rip prefixes
                             rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mul proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-imul-op/en-m proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 6)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-div proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-idiv proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (247
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-add/adc/sub/sbb/or/and/xor/cmp-test-e-i
               7 proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 2)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-not/neg-f6-f7 proc-mode start-rip temp-rip prefixes
                             rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 3)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-not/neg-f6-f7 proc-mode start-rip temp-rip prefixes
                             rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 4)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-mul proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 5)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-imul-op/en-m proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 6)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-div proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 7)
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-idiv proc-mode start-rip temp-rip prefixes
                    rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (248
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cmc/clc/stc/cld/std
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (249
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cmc/clc/stc/cld/std
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (250
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cli proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (251
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-sti proc-mode start-rip temp-rip prefixes
                   rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (252
   (cond
     ('t
      (x86-cmc/clc/stc/cld/std proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (253
   (cond
     ('t
      (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-cmc/clc/stc/cld/std
               proc-mode start-rip temp-rip prefixes
               rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (254
   (cond
     ((equal (modr/m->reg modr/m) 0)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-fe-ff proc-mode start-rip temp-rip prefixes
                             rex-byte opcode modr/m sib x86))))
     ((equal (modr/m->reg modr/m) 1)
      (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                           ':ud
                         nil)))
        (if fault-var
            (case fault-var
              (:ud (x86-illegal-instruction "#UD Encountered!"
                                            start-rip temp-rip x86))
              (t (x86-step-unimplemented
                      "Unimplemented exception in x86isa!"
                      x86)))
          (x86-inc/dec-fe-ff proc-mode start-rip temp-rip prefixes
                             rex-byte opcode modr/m sib x86))))
     (t (x86-illegal-instruction "#UD Encountered!"
                                 start-rip temp-rip x86))))
  (255
   (cond
    ((equal (modr/m->reg modr/m) 0)
     (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                          ':ud
                        nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-inc/dec-fe-ff proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
    ((equal (modr/m->reg modr/m) 1)
     (let ((fault-var (if (or (ud-lock-used-dest-not-memory-op))
                          ':ud
                        nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-inc/dec-fe-ff proc-mode start-rip temp-rip prefixes
                            rex-byte opcode modr/m sib x86))))
    ((equal (modr/m->reg modr/m) 2)
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
      (if fault-var
          (case fault-var
            (:ud (x86-illegal-instruction "#UD Encountered!"
                                          start-rip temp-rip x86))
            (t (x86-step-unimplemented
                    "Unimplemented exception in x86isa!"
                    x86)))
        (x86-call-ff/2-op/en-m proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86))))
    ((equal (modr/m->reg modr/m) 3)
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-step-unimplemented "Opcode Unimplemented in x86isa!"
                                 x86))))
    ((equal (modr/m->reg modr/m) 4)
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-near-jmp-op/en-m proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86))))
    ((and (equal (modr/m->reg modr/m) 5)
          (not (equal (modr/m->mod modr/m) 3)))
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-far-jmp-op/en-d proc-mode start-rip temp-rip prefixes
                              rex-byte opcode modr/m sib x86))))
    ((equal (modr/m->reg modr/m) 6)
     (let ((fault-var (if (or (ud-lock-used)) ':ud nil)))
       (if fault-var
           (case fault-var
             (:ud (x86-illegal-instruction "#UD Encountered!"
                                           start-rip temp-rip x86))
             (t (x86-step-unimplemented
                     "Unimplemented exception in x86isa!"
                     x86)))
         (x86-push-ev proc-mode start-rip temp-rip prefixes
                      rex-byte opcode modr/m sib x86))))
    (t (x86-illegal-instruction "#UD Encountered!"
                                start-rip temp-rip x86))))
  (t (x86-illegal-instruction "#UD Encountered!"
                              start-rip temp-rip x86))))

Theorem: x86p-one-byte-opcode-execute

(defthm x86p-one-byte-opcode-execute
 (implies
  (x86p x86)
  (x86p
      (one-byte-opcode-execute proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86))))