		Search-engine friendly clone of the ACL2 documentation.

Two-byte-opcodes

X86-mov-control-regs-op/en-mr

Signature
(x86-mov-control-regs-op/en-mr proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86) → x86
Returns: x86 — Type (x86p x86), given (x86p x86).

Definitions and Theorems

Function: x86-mov-control-regs-op/en-mr

(defun x86-mov-control-regs-op/en-mr
       (proc-mode start-rip temp-rip
                  prefixes rex-byte opcode modr/m sib x86)
  (declare (xargs :stobjs (x86)))
  (declare (type (integer 0 4) proc-mode)
           (type (signed-byte 48) start-rip)
           (type (signed-byte 48) temp-rip)
           (type (unsigned-byte 52) prefixes)
           (type (unsigned-byte 8) rex-byte)
           (type (unsigned-byte 8) opcode)
           (type (unsigned-byte 8) modr/m)
           (type (unsigned-byte 8) sib))
  (declare (ignorable proc-mode start-rip temp-rip
                      prefixes rex-byte opcode modr/m sib))
  (declare (xargs :guard (and (prefixes-p prefixes)
                              (modr/m-p modr/m)
                              (sib-p sib)
                              (rip-guard-okp proc-mode temp-rip))))
  (let ((__function__ 'x86-mov-control-regs-op/en-mr))
    (declare (ignorable __function__))
    (b* ((?ctx 'x86-mov-control-regs-op/en-mr)
         (?r/m (the (unsigned-byte 3)
                    (modr/m->r/m modr/m)))
         (?mod (the (unsigned-byte 2)
                    (modr/m->mod modr/m)))
         (?reg (the (unsigned-byte 3)
                    (modr/m->reg modr/m))))
      (b* ((ctr-index (if (and (logbitp 2 rex-byte) (equal reg 0))
                          8
                        reg))
           (operand-size (if (equal proc-mode 0) 8 4))
           (ctr-val (the (unsigned-byte 64)
                         (ctri ctr-index x86)))
           (ctr-val (if (eql operand-size 4)
                        (n32 ctr-val)
                      ctr-val))
           (x86 (!rgfi-size operand-size (reg-index r/m rex-byte 0)
                            ctr-val rex-byte x86))
           (x86 (!flgi-undefined :cf x86))
           (x86 (!flgi-undefined :pf x86))
           (x86 (!flgi-undefined :af x86))
           (x86 (!flgi-undefined :zf x86))
           (x86 (!flgi-undefined :sf x86))
           (x86 (!flgi-undefined :of x86))
           (x86 (write-*ip proc-mode temp-rip x86)))
        x86))))

Theorem: x86p-of-x86-mov-control-regs-op/en-mr

(defthm x86p-of-x86-mov-control-regs-op/en-mr
  (implies (x86p x86)
           (b* ((x86 (x86-mov-control-regs-op/en-mr
                          proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86)))
             (x86p x86)))
  :rule-classes :rewrite)