		Search-engine friendly clone of the ACL2 documentation.

X86-vmovups-vex-a

VMOVUPS: Move Unaligned Packed Single Precision Floating-Point Values (VEX encoding, Op/En A)

Signature
(x86-vmovups-vex-a proc-mode start-rip temp-rip prefixes rex-byte vex-prefixes opcode modr/m sib x86) → x86
Returns: x86 — Type (x86p x86), given (x86p x86).

This instruction is listed under MOVUPS in Intel Manuals Volume 2 (Dec 2023).

This semantic function covers the two VEX-encoded variants that move from register or memory to register (i.e. Op/En A).

VMOVUPS xmm1, xmm2/m128 
VMOVUPS ymm1, ymm2/m256

Definitions and Theorems

Function: x86-vmovups-vex-a

(defun x86-vmovups-vex-a
       (proc-mode start-rip temp-rip prefixes rex-byte
                  vex-prefixes 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 24) vex-prefixes)
          (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)
                             (vex-prefixes-byte0-p vex-prefixes))))
 (let ((__function__ 'x86-vmovups-vex-a))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-vmovups-vex-a)
       (?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*
    ((p2 (prefixes->seg prefixes))
     (p4? (eql 103 (prefixes->adr prefixes)))
     (seg-reg
         (select-segment-register proc-mode p2 p4? mod r/m sib x86))
     (rex-byte (rex-byte-from-vex-prefixes vex-prefixes))
     ((the (integer 16 32) operand-size)
      (if (equal (vex->l vex-prefixes) 1)
          32
        16))
     (inst-ac? nil)
     ((mv flg
          (the (unsigned-byte 256) reg/mem-value)
          (the (integer 0 4) increment-rip-by)
          & x86)
      (x86-operand-from-modr/m-and-sib-bytes
           proc-mode (if (= operand-size 16) 2 3)
           operand-size inst-ac? nil seg-reg p4?
           temp-rip rex-byte r/m mod sib 0 x86))
     ((when flg)
      (!!ms-fresh :x86-operand-from-modr/m-and-sib-bytes flg))
     ((mv flg (the (signed-byte 48) temp-rip))
      (add-to-*ip proc-mode
                  temp-rip increment-rip-by x86))
     ((when flg)
      (!!ms-fresh :rip-increment-error flg))
     (badlength? (check-instruction-length start-rip temp-rip 0))
     ((when badlength?)
      (!!fault-fresh :gp 0
                     :instruction-length badlength?))
     (x86 (!zmmi-size operand-size (reg-index reg rex-byte 2)
                      reg/mem-value x86
                      :regtype (if (= operand-size 16) 2 3)))
     (x86 (write-*ip proc-mode temp-rip x86)))
    x86))))

Theorem: x86p-of-x86-vmovups-vex-a

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