		Search-engine friendly clone of the ACL2 documentation.

One-byte-opcodes

X86-add/adc/sub/sbb/or/and/xor/cmp-g-e

Operand Fetch and Execute for ADD, ADC, SUB, SBB, OR, AND, XOR, CMP: Addressing Mode = (G, E)

Signature
(x86-add/adc/sub/sbb/or/and/xor/cmp-g-e operation 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 = RM: [OP REG, R/M] or [OP G, E]

where G is the destination operand and E is the source operand. Note that G stands for a general-purpose register specified by the ModRM.reg field, and E stands for a general-purpose register or memory operand specified by the ModRM.r/m field.

[OP REG, R/M] Flags Affected
02, 03: ADD c p a z s o
0A, 0B: OR p z s (o and c cleared, a undefined)
12, 13: ADC c p a z s o
1A, 1B: SBB c p a z s o
22, 23: AND p z s (o and c cleared, a undefined)
2A, 2B: SUB c p a z s o
32, 33: XOR p z s (o and c cleared, a undefined)
3A, 3B: CMP c p a z s o

Definitions and Theorems

Function: x86-add/adc/sub/sbb/or/and/xor/cmp-g-e

(defun x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
       (operation proc-mode start-rip temp-rip
                  prefixes rex-byte opcode modr/m sib x86)
 (declare (xargs :stobjs (x86)))
 (declare (type (integer 0 38) operation)
          (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)
                             (and (not (equal operation 7))
                                  (natp operation)
                                  (<= operation 8)))))
 (let ((__function__ 'x86-add/adc/sub/sbb/or/and/xor/cmp-g-e))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-add/adc/sub/sbb/or/and/xor/cmp-g-e)
       (?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)))
     (byte-operand? (eql 0
                         (the (unsigned-byte 1)
                              (logand 1 opcode))))
     ((the (integer 1 8) operand-size)
      (select-operand-size proc-mode byte-operand?
                           rex-byte nil prefixes nil nil nil x86))
     (g (rgfi-size operand-size
                   (the (unsigned-byte 4)
                        (reg-index reg rex-byte 2))
                   rex-byte x86))
     (seg-reg
         (select-segment-register proc-mode p2 p4? mod r/m sib x86))
     (inst-ac? t)
     ((mv flg0 e
          (the (unsigned-byte 3) increment-rip-by)
          (the (signed-byte 64) e-addr)
          x86)
      (x86-operand-from-modr/m-and-sib-bytes
           proc-mode
           0 operand-size inst-ac? nil seg-reg p4?
           temp-rip rex-byte r/m mod sib 0 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 flg))
     (badlength? (check-instruction-length start-rip temp-rip 0))
     ((when badlength?)
      (!!fault-fresh :gp 0
                     :instruction-length badlength?))
     ((the (unsigned-byte 32) input-rflags)
      (rflags x86))
     ((mv result
          (the (unsigned-byte 32) output-rflags)
          (the (unsigned-byte 32)
               undefined-flags))
      (gpr-arith/logic-spec operand-size
                            operation g e input-rflags))
     (x86 (if (eql operation 8)
              x86
            (!rgfi-size operand-size (reg-index reg rex-byte 2)
                        result rex-byte x86)))
     (x86 (write-user-rflags output-rflags undefined-flags x86))
     (x86 (write-*ip proc-mode temp-rip x86)))
    x86))))

Theorem: x86p-of-x86-add/adc/sub/sbb/or/and/xor/cmp-g-e

(defthm x86p-of-x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
  (implies (x86p x86)
           (b* ((x86 (x86-add/adc/sub/sbb/or/and/xor/cmp-g-e
                          operation
                          proc-mode start-rip temp-rip prefixes
                          rex-byte opcode modr/m sib x86)))
             (x86p x86)))
  :rule-classes :rewrite)