		Search-engine friendly clone of the ACL2 documentation.

One-byte-opcodes

X86-imul-op/en-rmi

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

Op/En: RMI

6B ib:
IMUL r16, r/m16, imm8
IMUL r32, r/m32, imm8
IMUL r64, r/m64, imm8

69 iw:
IMUL r16, r/m16, imm16
IMUL r32, r/m32, imm32
IMUL r64, r/m64, imm32

Definitions and Theorems

Function: x86-imul-op/en-rmi

(defun x86-imul-op/en-rmi
       (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-imul-op/en-rmi))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-imul-op/en-rmi)
       (?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? (equal 103 (prefixes->adr prefixes)))
     ((the (integer 1 8) reg/mem-size)
      (select-operand-size proc-mode nil
                           rex-byte nil prefixes nil nil nil x86))
     ((the (integer 1 4) imm-size)
      (if (equal opcode 107)
          1
        (if (equal reg/mem-size 2) 2 4)))
     (seg-reg
         (select-segment-register proc-mode p2 p4? mod r/m sib x86))
     (inst-ac? t)
     ((mv flg0 reg/mem
          (the (unsigned-byte 3) increment-rip-by)
          (the (signed-byte 64) ?addr)
          x86)
      (x86-operand-from-modr/m-and-sib-bytes
           proc-mode 0 reg/mem-size
           inst-ac? nil seg-reg p4? temp-rip
           rex-byte r/m mod sib imm-size x86))
     ((when flg0)
      (!!ms-fresh :x86-operand-from-modr/m-and-sib-bytes flg0))
     ((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 temp-rip))
     ((mv flg1 (the (unsigned-byte 32) imm)
          x86)
      (rme-size-opt proc-mode
                    imm-size temp-rip 1 :x nil x86))
     ((when flg1)
      (!!ms-fresh :rme-size-error flg1))
     (imm (loghead (* 8 reg/mem-size)
                   (logext (* 8 imm-size) imm)))
     ((mv flg (the (signed-byte 48) temp-rip))
      (add-to-*ip proc-mode temp-rip imm-size x86))
     ((when flg)
      (!!ms-fresh :rip-increment-error temp-rip))
     (badlength? (check-instruction-length start-rip temp-rip 0))
     ((when badlength?)
      (!!fault-fresh :gp 0
                     :instruction-length badlength?))
     ((mv ?product-high product-low ?product
          (the (unsigned-byte 1) cf-and-of))
      (imul-spec reg/mem-size reg/mem imm))
     (x86 (!rgfi-size reg/mem-size (reg-index reg rex-byte 2)
                      product-low rex-byte x86))
     (x86 (let* ((x86 (!flgi :cf cf-and-of x86))
                 (x86 (!flgi-undefined :pf x86))
                 (x86 (!flgi-undefined :af x86))
                 (x86 (!flgi-undefined :zf x86))
                 (x86 (!flgi-undefined :sf x86))
                 (x86 (!flgi :of cf-and-of x86)))
            x86))
     (x86 (write-*ip proc-mode temp-rip x86)))
    x86))))

Theorem: x86p-of-x86-imul-op/en-rmi

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