Two-byte opcode dispatch function.
(two-byte-opcode-execute proc-mode start-rip temp-rip prefixes mandatory-prefix rex-byte opcode modr/m sib x86) → x86
Function:
(defun two-byte-opcode-execute (proc-mode start-rip temp-rip prefixes mandatory-prefix 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) mandatory-prefix) (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 ((and (equal (modr/m->reg modr/m) 0) (not (equal (modr/m->mod modr/m) 3))) (let ((fault-var (if (or (ud-lock-used)) ':ud (if (or (and (gp-cpl-not-0) (gp-cr4-umip-is-1))) ':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-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 (ud-lock-used)) ':ud (if (or (and (gp-cpl-not-0) (gp-cr4-umip-is-1))) ':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-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 (and (gp-cpl-not-0) (gp-cr4-umip-is-1))) ':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-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 (ud-lock-used)) ':ud (if (or (and (gp-cpl-not-0) (gp-cr4-umip-is-1))) ':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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((equal (modr/m->reg modr/m) 2) (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-lldt 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 (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-ltr 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-step-unimplemented "Opcode Unimplemented in x86isa!" 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (1 (cond ((and (equal (modr/m->reg modr/m) 0) (not (equal (modr/m->mod modr/m) 3))) (let ((fault-var (if (or (ud-lock-used)) ':ud (if (or (and (gp-cpl-not-0) (gp-cr4-umip-is-1))) ':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-sgdt proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 0) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 1)) (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) ((and (equal (modr/m->reg modr/m) 0) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 2)) (let ((fault-var (if (or (gp-cpl-not-0)) ':gp nil))) (if fault-var (case fault-var (:gp (x86-general-protection "#GP 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) (equal (modr/m->r/m modr/m) 3)) (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) ((and (equal (modr/m->reg modr/m) 0) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 4)) (let ((fault-var (if (or (gp-cpl-not-0)) ':gp nil))) (if fault-var (case fault-var (:gp (x86-general-protection "#GP 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 (and (gp-cpl-not-0) (gp-cr4-umip-is-1))) ':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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->reg modr/m) 1) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:monitor)) 0) (ud-cpl-is-not-zero)) ':ud nil))) (if fault-var (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)))) ((and (equal (modr/m->reg modr/m) 1) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 1)) (let ((fault-var (if (or (equal (feature-flags-macro '(:monitor)) 0) (ud-cpl-is-not-zero)) ':ud nil))) (if fault-var (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)))) ((and (equal (modr/m->reg modr/m) 1) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 2)) (let ((fault-var (if (or (equal (feature-flags-macro '(:smap)) 0) (ud-lock-used) (ud-cpl-is-not-zero)) ':ud nil))) (if fault-var (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)))) ((and (equal (modr/m->reg modr/m) 1) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 3)) (let ((fault-var (if (or (equal (feature-flags-macro '(:smap)) 0) (ud-lock-used) (ud-cpl-is-not-zero)) ':ud nil))) (if fault-var (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)))) ((and (equal (modr/m->reg modr/m) 1) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 7)) (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 (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-lgdt proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 3) (not (equal (modr/m->mod modr/m) 3))) (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-lidt proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 3) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:xsave)) 0) (ud-lock-used) (equal (cr4bits->osxsave (cr4)) 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-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 '(:xsave)) 0) (ud-lock-used) (equal (cr4bits->osxsave (cr4)) 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-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) 4)) (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) 5)) (let ((fault-var (if (or (equal (feature-flags-macro '(:rtm)) 0) (ud-lock-used) (ud-opr-used) (ud-reps-used)) ':ud nil))) (if fault-var (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)))) ((and (equal (modr/m->reg modr/m) 3) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 6)) (let ((fault-var (if (or (equal (feature-flags-macro '(:hle :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)))) ((and (equal (modr/m->reg modr/m) 3) (equal (modr/m->mod modr/m) 3) (equal (modr/m->r/m modr/m) 7)) (let ((fault-var (if (or (nm-cr0-ts-is-1)) ':nm nil))) (if fault-var (case fault-var (: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 (ud-lock-used)) ':ud (if (or (and (gp-cpl-not-0) (gp-cr4-umip-is-1))) ':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-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 (ud-lock-used)) ':ud (if (or (and (gp-cpl-not-0) (gp-cr4-umip-is-1))) ':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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((equal (modr/m->reg modr/m) 6) (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-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 (ud-lock-used) (ud-modr/m.mod-indicates-register)) ':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-invlpg proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal proc-mode 0) (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 (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-swapgs 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) 1)) (let ((fault-var (if (or (equal (feature-flags-macro '(:rdtscp)) 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)))) (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-step-unimplemented "Opcode Unimplemented in x86isa!" 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (5 (cond ((equal proc-mode 0) (let ((fault-var (if (or (ud-lock-used) (equal (ia32_eferbits->sce (n12 (ia32_efer))) 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-syscall-both-views 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 ('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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (7 (cond ((equal proc-mode 0) (let ((fault-var (if (or (ud-lock-used) (equal (ia32_eferbits->sce (n12 (ia32_efer))) 0)) ':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-sysret 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)))) (8 (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)))) (9 (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)))) (11 (cond ('t (x86-illegal-instruction "UD2 encountered!" start-rip temp-rip 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (16 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movups/movupd/movdqu-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movups/movupd/movdqu-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movss/movsd-op/en-rm 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movss/movsd-op/en-rm 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)))) (17 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movups/movupd/movdqu-op/en-mr proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movups/movupd/movdqu-op/en-mr proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movss/movsd-op/en-mr 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movss/movsd-op/en-mr 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)))) (18 (cond ((and (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movlps/movlpd-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse))))) (or chk-ex 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movlps/movlpd-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movlps/movlpd-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movlps/movlpd-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)))) (19 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movlps/movlpd-op/en-mr proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movlps/movlpd-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)))) (20 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-unpck?ps-op/en-rm 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-unpck?pd-op/en-rm 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)))) (21 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-unpck?ps-op/en-rm 1 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-unpck?pd-op/en-rm 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)))) (22 (cond ((and (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movhps/movhpd-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse))))) (or chk-ex 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0) (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)) (:gp (x86-general-protection "#GP 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-movhps/movhpd-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (: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)))) (23 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movhps/movhpd-op/en-mr proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movhps/movhpd-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)))) (24 (cond ((and (equal (modr/m->reg modr/m) 0) (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-two-byte-nop proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib 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 nil))) (if fault-var (case fault-var (:ud (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-two-byte-nop proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 2) (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-two-byte-nop proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 3) (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-two-byte-nop proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal (modr/m->reg modr/m) 4) (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) ((equal (modr/m->reg modr/m) 5) (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) ((equal (modr/m->reg modr/m) 6) (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) ((equal (modr/m->reg modr/m) 7) (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) ((equal (modr/m->mod modr/m) 3) (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (25 (cond ('t (x86-two-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)))) (26 (cond ((and (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used) (<= 4 (reg-index (modr/m->reg modr/m) rex-byte 2)) (if (eql proc-mode 0) (and (eql (modr/m->mod modr/m) 0) (or (eql (modr/m->r/m modr/m) 5) (and (eql (modr/m->r/m modr/m) 4) (eql (sib->base sib) 5) (eql (sib->index sib) 4)))) (if (eql (prefixes->adr prefixes) 103) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 102)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used-dest-not-memory-op) (<= 4 (reg-index (modr/m->r/m modr/m) rex-byte 0)) (if (and (not (eql proc-mode 0)) (eql (prefixes->adr prefixes) 103)) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 102)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used-dest-not-memory-op) (<= 4 (reg-index (modr/m->r/m modr/m) rex-byte 0)) (if (and (not (eql proc-mode 0)) (eql (prefixes->adr prefixes) 103)) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((equal mandatory-prefix 243) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used) (<= 4 (reg-index (modr/m->reg modr/m) rex-byte 2)) (and (not (eql proc-mode 0)) (if (eql (prefixes->adr prefixes) 103) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((equal mandatory-prefix 242) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used) (<= 4 (reg-index (modr/m->reg modr/m) rex-byte 2)) (and (not (eql proc-mode 0)) (if (eql (prefixes->adr prefixes) 103) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (27 (cond ((and (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used) (<= 4 (reg-index (modr/m->reg modr/m) rex-byte 2)) (if (eql proc-mode 0) (and (eql (modr/m->mod modr/m) 0) (or (eql (modr/m->r/m modr/m) 5) (and (eql (modr/m->r/m modr/m) 4) (eql (sib->base sib) 5) (eql (sib->index sib) 4)))) (if (eql (prefixes->adr prefixes) 103) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 102)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used-dest-not-memory-op) (<= 4 (reg-index (modr/m->r/m modr/m) rex-byte 0)) (if (and (not (eql proc-mode 0)) (eql (prefixes->adr prefixes) 103)) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 102)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used-dest-not-memory-op) (<= 4 (reg-index (modr/m->r/m modr/m) rex-byte 0)) (if (and (not (eql proc-mode 0)) (eql (prefixes->adr prefixes) 103)) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 243)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used) (<= 4 (reg-index (modr/m->reg modr/m) rex-byte 2)) (if (eql proc-mode 0) (and (eql (modr/m->mod modr/m) 0) (or (eql (modr/m->r/m modr/m) 5) (and (eql (modr/m->r/m modr/m) 4) (eql (sib->base sib) 5) (eql (sib->index sib) 4)))) (if (eql (prefixes->adr prefixes) 103) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 243)) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((equal mandatory-prefix 242) (let ((fault-var (if (or (equal (feature-flags-macro '(:mpx)) 0) (ud-lock-used) (<= 4 (reg-index (modr/m->reg modr/m) rex-byte 2)) (and (not (eql proc-mode 0)) (if (eql (prefixes->adr prefixes) 103) (eql (cs.d) 1) (eql (cs.d) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (28 (cond ('t (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (29 (cond ('t (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (30 (cond ('t (x86-endbr32/endbr64 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)))) (31 (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-two-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)))) (32 (cond ('t (let ((fault-var (if (or (ud-lock-used) (let ((reg (modr/m->reg modr/m))) (if (and (equal proc-mode 0) (logbitp 2 rex-byte)) (not (equal reg 0)) (or (equal reg 1) (equal reg 5) (equal reg 6) (equal reg 7))))) ':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-mov-control-regs-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)))) (33 (cond ('t (let ((fault-var (if (or (ud-lock-used) (and (equal (cr4bits->de (cr4)) 1) (or (equal (modr/m->reg modr/m) 4) (equal (modr/m->reg modr/m) 5)))) ':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-two-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)))) (34 (cond ('t (let ((fault-var (if (or (ud-lock-used) (let ((reg (modr/m->reg modr/m))) (if (and (equal proc-mode 0) (logbitp 2 rex-byte)) (not (equal reg 0)) (or (equal reg 1) (equal reg 5) (equal reg 6) (equal reg 7))))) ':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-mov-control-regs-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)))) (35 (cond ('t (let ((fault-var (if (or (ud-lock-used) (and (equal (cr4bits->de (cr4)) 1) (or (equal (modr/m->reg modr/m) 4) (equal (modr/m->reg modr/m) 5)))) ':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-two-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)))) (40 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movaps/movapd-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movaps/movapd-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)))) (41 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movaps/movapd-op/en-mr proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movaps/movapd-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)))) (42 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-5 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-6 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvtsi2s?-op/en-rm 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvtsi2s?-op/en-rm 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)))) (43 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (: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)))) (44 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-5 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-4 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvts?2si/cvtts?2si-op/en-rm 0 t proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvts?2si/cvtts?2si-op/en-rm 1 t 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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-5 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-4 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvts?2si/cvtts?2si-op/en-rm 0 nil proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvts?2si/cvtts?2si-op/en-rm 1 nil 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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-comis?/ucomis?-op/en-rm 9 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-comis?/ucomis?-op/en-rm 9 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)))) (47 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-comis?/ucomis?-op/en-rm 9 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-comis?/ucomis?-op/en-rm 9 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)))) (48 (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-wrmsr 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)) ':ud nil))) (if fault-var (case fault-var (:ud (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-rdtsc 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-rdmsr 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 (if (or (and (gp-cpl-not-0) (gp-cr4-pce-is-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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (52 (cond ('t (let ((fault-var (if (or (ud-lock-used)) ':ud (if (or (gp-cr0-pe-is-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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (53 (cond ('t (let ((fault-var (if (or (ud-lock-used)) ':ud (if (or (gp-cpl-not-0) (gp-cr0-pe-is-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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (55 (cond ('t (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (56 (cond ('t (three-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)))) (58 (cond ('t (three-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)))) (64 (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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ('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-cmovcc 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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (81 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-sqrtps-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-sqrtpd-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-sqrts?-op/en-rm 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-sqrts?-op/en-rm 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)))) (82 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) (83 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) (84 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 3 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 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)))) (85 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 13 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 13 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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 1 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 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)))) (87 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 5 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 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)))) (88 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addps/subps/mulps/divps/maxps/minps-op/en-rm 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addpd/subpd/mulpd/divpd/maxpd/minpd-op/en-rm 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 0 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 0 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)))) (89 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addps/subps/mulps/divps/maxps/minps-op/en-rm 26 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addpd/subpd/mulpd/divpd/maxpd/minpd-op/en-rm 26 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 26 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 26 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)))) (90 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvtps2pd-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvtpd2ps-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvts?2s?-op/en-rm 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cvts?2s?-op/en-rm 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)))) (91 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (92 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addps/subps/mulps/divps/maxps/minps-op/en-rm 4 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addpd/subpd/mulpd/divpd/maxpd/minpd-op/en-rm 4 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 4 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 4 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)))) (93 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addps/subps/mulps/divps/maxps/minps-op/en-rm 36 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addpd/subpd/mulpd/divpd/maxpd/minpd-op/en-rm 36 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 36 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 36 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)))) (94 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addps/subps/mulps/divps/maxps/minps-op/en-rm 28 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addpd/subpd/mulpd/divpd/maxpd/minpd-op/en-rm 28 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 28 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 28 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)))) (95 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addps/subps/mulps/divps/maxps/minps-op/en-rm 34 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-addpd/subpd/mulpd/divpd/maxpd/minpd-op/en-rm 34 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 34 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-adds?/subs?/muls?/divs?/maxs?/mins?-op/en-rm 34 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)))) (96 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (97 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (98 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (99 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (100 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (101 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (102 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (103 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (104 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (105 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (106 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (107 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (108 (cond ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (109 (cond ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (110 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-8 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movd/movq-to-xmm 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)))) (111 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-8 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movdqa-to-xmm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movups/movupd/movdqu-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)))) (112 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (113 (cond ((and (equal (modr/m->reg modr/m) 2) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (: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 mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (: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 mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (: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)))) (114 (cond ((and (equal (modr/m->reg modr/m) 2) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (: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 mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (: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 mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (: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)))) (115 (cond ((and (equal (modr/m->reg modr/m) 2) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-pslldq/psrldq proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 6) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (: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 mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-pslldq/psrldq 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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-pcmpeqb-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)))) (117 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (118 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (119 (cond ((equal mandatory-prefix 0) (let ((fault-var (if (or (ud-lock-used) (equal (cr0bits->em (cr0)) 1)) ':ud nil))) (if fault-var (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)))) (120 (cond ('t (let ((fault-var (if (or (gp-cpl-not-0)) ':gp nil))) (if fault-var (case fault-var (:gp (x86-general-protection "#GP 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)))) (121 (cond ('t (let ((fault-var (if (or (gp-cpl-not-0)) ':gp nil))) (if fault-var (case fault-var (:gp (x86-general-protection "#GP 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)))) (124 (cond ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (: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)))) (125 (cond ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (: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)))) (126 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-8 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movd/movq-from-xmm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (127 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-8 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movdqa-from-xmm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-movups/movupd/movdqu-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)))) (128 (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-two-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)))) (129 (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-two-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)))) (130 (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-two-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)))) (131 (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-two-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)))) (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-two-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)))) (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-two-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)))) (134 (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-two-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)))) (135 (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-two-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)))) (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-two-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)))) (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-two-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)))) (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-two-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)))) (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-two-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)))) (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-two-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)))) (141 (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-two-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)))) (142 (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-two-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)))) (143 (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-two-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)))) (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-setcc 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-setcc 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-setcc 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-setcc 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-setcc 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-setcc 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-setcc 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-setcc 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-setcc 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-setcc 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 ('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-setcc 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)))) (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-setcc 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-setcc 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-setcc 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)) ':ud nil))) (if fault-var (case fault-var (:ud (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-setcc 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)) ':ud nil))) (if fault-var (case fault-var (:ud (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-setcc 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-push-segment-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)))) (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-step-unimplemented "Opcode Unimplemented in x86isa!" 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-cpuid 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-bt-0f-a3 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-shld/shrd 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-shld/shrd 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-push-segment-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)))) (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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (170 (cond ('t (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (171 (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-bt-0f-ab 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-shld/shrd 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)))) (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-shld/shrd 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)))) (174 (cond ((and (equal (modr/m->reg modr/m) 0) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:fxsr)) 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-fxsave/fxsave64 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal proc-mode 0) (equal (modr/m->reg modr/m) 0) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 243)) (let ((fault-var (if (or (equal (feature-flags-macro '(:fsgsbase)) 0) (ud-lock-used) (equal (cr4bits->fsgsbase (cr4)) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->reg modr/m) 1) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:fxsr)) 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-fxrstor/fxrstor64 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal proc-mode 0) (equal (modr/m->reg modr/m) 1) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 243)) (let ((fault-var (if (or (equal (feature-flags-macro '(:fsgsbase)) 0) (ud-lock-used) (equal (cr4bits->fsgsbase (cr4)) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->reg modr/m) 2) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-ldmxcsr/stmxcsr-op/en-m proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal proc-mode 0) (equal (modr/m->reg modr/m) 2) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 243)) (let ((fault-var (if (or (equal (feature-flags-macro '(:fsgsbase)) 0) (ud-lock-used) (equal (cr4bits->fsgsbase (cr4)) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->reg modr/m) 3) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-ldmxcsr/stmxcsr-op/en-m proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal proc-mode 0) (equal (modr/m->reg modr/m) 3) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 243)) (let ((fault-var (if (or (equal (feature-flags-macro '(:fsgsbase)) 0) (ud-lock-used) (equal (cr4bits->fsgsbase (cr4)) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) ((and (equal (modr/m->reg modr/m) 4) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:xsave)) 0) (ud-lock-used) (equal (cr4bits->osxsave (cr4)) 0)) ':ud (if (or (gp-cpl-not-0)) ':gp (if (or (nm-cr0-ts-is-1)) ':nm 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)) (: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)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:xsave)) 0) (ud-lock-used) (equal (cr4bits->osxsave (cr4)) 0)) ':ud (if (or (gp-cpl-not-0)) ':gp (if (or (nm-cr0-ts-is-1)) ':nm 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)) (: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 mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:sse2)) 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-two-byte-nop proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 6) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (ud-lock-used) (equal (cr4bits->osxsave (cr4)) 0) (or (equal (feature-flag-macro :xsave) 0) (equal (feature-flag-macro :xsaveopt) 0))) ':ud (if (or (nm-cr0-ts-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 mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:sse2)) 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)))) ((and (equal (modr/m->reg modr/m) 7) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:clfsh)) 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)))) ((and (equal (modr/m->reg modr/m) 7) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:sse)) 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)))) (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-imul-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)))) (176 (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-cmpxchg 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-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-cmpxchg 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-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)))) (179 (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-btr-0f-b3 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-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)))) (181 (cond ('t (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)))) (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-movzx 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-movzx 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 ((equal mandatory-prefix 0) (x86-step-unimplemented "Opcode Unimplemented in x86isa!" x86)) ((equal mandatory-prefix 243) (let ((fault-var (if (or (equal (feature-flags-macro '(:popcnt)) 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)))) (185 (cond ('t (x86-illegal-instruction "UD1 encountered!" start-rip temp-rip x86)) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (186 (cond ((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-bt-0f-ba 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-bt-0f-ba 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-bt-0f-ba 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-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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (187 (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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (188 (cond ((equal mandatory-prefix 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-bsf-op/en-rm proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (x86-tzcnt 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 ((equal mandatory-prefix 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-bsr proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (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)))) (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-movsx 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-movsx 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 ('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 38 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 ('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 38 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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cmpps-op/en-rmi proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cmppd-op/en-rmi proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cmpss/cmpsd-op/en-rmi 0 proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-3 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-cmpss/cmpsd-op/en-rmi 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)))) (195 (cond ('t (let ((fault-var (if (or (equal (feature-flags-macro '(:sse2)) 0) (ud-lock-used) (ud-modr/m.mod-indicates-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)))) (196 (cond ((and (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex 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)) (: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 (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex 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)) (: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->mod modr/m) 3) (equal mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex 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)) (: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 (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 102)) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex 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)) (: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)))) (197 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (198 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-shufps-op/en-rmi proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-shufpd-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)))) (199 (cond ((and (equal (modr/m->reg modr/m) 1) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0) (logbitp 3 rex-byte)) (let ((fault-var (if (or (equal (feature-flags-macro '(:cmpxchg16b)) 0) (ud-modr/m.mod-indicates-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)))) ((and (equal (modr/m->reg modr/m) 1) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0) (not (logbitp 3 rex-byte))) (let ((fault-var (if (or (equal (feature-flags-macro '(:cmpxchg16b)) 0) (ud-modr/m.mod-indicates-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)))) ((and (equal (modr/m->reg modr/m) 6) (not (equal (modr/m->mod modr/m) 3)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (gp-cpl-not-0)) ':gp nil))) (if fault-var (case fault-var (:gp (x86-general-protection "#GP 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)) (equal mandatory-prefix 102)) (let ((fault-var (if (or (gp-cpl-not-0)) ':gp nil))) (if fault-var (case fault-var (:gp (x86-general-protection "#GP 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)) (equal mandatory-prefix 243)) (let ((fault-var (if (or (gp-cpl-not-0)) ':gp nil))) (if fault-var (case fault-var (:gp (x86-general-protection "#GP 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)) (equal mandatory-prefix 0)) (let ((fault-var (if (or (gp-cpl-not-0)) ':gp nil))) (if fault-var (case fault-var (:gp (x86-general-protection "#GP 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 mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:rdrand)) 0) (ud-lock-used) (ud-reps-used)) ':ud nil))) (if fault-var (case fault-var (:ud (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-rdrand proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 6) (equal (modr/m->mod modr/m) 3) (equal mandatory-prefix 102)) (let ((fault-var (if (or (equal (feature-flags-macro '(:rdrand)) 0) (ud-lock-used) (ud-reps-used)) ':ud nil))) (if fault-var (case fault-var (:ud (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-rdrand proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86)))) ((and (equal (modr/m->reg modr/m) 7) (equal mandatory-prefix 0)) (let ((fault-var (if (or (equal (feature-flags-macro '(:rdseed)) 0) (ud-lock-used) (ud-reps-used)) ':ud nil))) (if fault-var (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)))) ((and (equal proc-mode 0) (equal (modr/m->reg modr/m) 7) (equal mandatory-prefix 243)) (let ((fault-var (if (or (equal (feature-flags-macro '(:rdpid)) 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)))) ((and (not (equal proc-mode 0)) (equal (modr/m->reg modr/m) 7) (equal mandatory-prefix 243)) (let ((fault-var (if (or (equal (feature-flags-macro '(:rdpid)) 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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (202 (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)))) (203 (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)))) (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-step-unimplemented "Opcode Unimplemented in x86isa!" 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 ('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)))) (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-step-unimplemented "Opcode Unimplemented in x86isa!" x86)))) (t (x86-illegal-instruction "#UD Encountered!" start-rip temp-rip x86)))) (208 (cond ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0)) ':ud 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)) (: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)))) (209 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (210 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (211 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (212 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-paddb/paddw/paddd/paddq-sse 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)))) (213 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (214 (cond ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (if (or (equal (feature-flags-macro '(:sse2)) 0) (equal (cr0bits->ts (cr0)) 1) (equal (cr0bits->em (cr0)) 1) (equal (cr4bits->osfxsr (cr4)) 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)))) ((equal mandatory-prefix 242) (let ((fault-var (if (or (equal (feature-flags-macro '(:sse2)) 0) (equal (cr0bits->ts (cr0)) 1) (equal (cr0bits->em (cr0)) 1) (equal (cr4bits->osfxsr (cr4)) 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)))) (215 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-7 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-pmovmskb-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)))) (216 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 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)))) (220 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 13 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)))) (224 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (225 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (226 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (227 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (228 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (229 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (230 (cond ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 243) (let ((fault-var (let ((chk-ex (or (chk-exc :type-5 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-2 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (231 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-8 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-1 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (: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)))) (232 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (233 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (234 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (235 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 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)))) (236 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (237 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (238 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (239 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-andp?/andnp?/orp?/xorp?/pand/pandn/por/pxor-op/en-rm 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)))) (240 (cond ((equal mandatory-prefix 242) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse3))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse3)) 0) (ud-modr/m.mod-indicates-register)) ':ud 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)) (: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)))) (241 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (242 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (243 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (244 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (245 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (246 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:sse))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (247 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-8 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (: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)))) (248 (cond ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!" start-rip temp-rip x86)) (t (x86-step-unimplemented "Unimplemented exception in x86isa!" x86))) (x86-psubb/psubw/psubd/psubq-sse 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 ((equal mandatory-prefix 0) (let ((fault-var (let ((chk-ex (or (chk-exc :type-22-7 (:mmx))))) (or chk-ex (if (or (equal (feature-flags-macro '(:mmx)) 0)) ':ud 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)) (: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)))) ((equal mandatory-prefix 102) (let ((fault-var (let ((chk-ex (or (chk-exc :type-4 (:sse2))))) (or chk-ex (if (or (equal (feature-flags-macro '(:sse2)) 0)) ':ud 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)) (:nm (x86-device-not-available "#NM Encountered!"