		Search-engine friendly clone of the ACL2 documentation.

Two-byte-opcodes

X86-wrmsr

Signature
(x86-wrmsr 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-wrmsr

(defun x86-wrmsr (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-wrmsr))
    (declare (ignorable __function__))
    (b* ((?ctx 'x86-wrmsr))
      (b* ((msr-addr (rr32 *ecx* x86))
           ((when (not (valid-msr-addr-p msr-addr)))
            (!!fault-fresh :gp 0
                           :invalid-msr msr-addr))
           (lower (rr32 *eax* x86))
           (upper (rr32 *edx* x86))
           (msr-val (logapp 32 lower upper))
           (x86 (!msra msr-addr msr-val x86))
           (x86 (write-*ip proc-mode temp-rip x86)))
        x86))))

Theorem: x86p-of-x86-wrmsr

(defthm x86p-of-x86-wrmsr
 (implies (x86p x86)
          (b* ((x86 (x86-wrmsr proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86)))
            (x86p x86)))
 :rule-classes :rewrite)