• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
    • X86isa
      • Program-execution
      • Sdm-instruction-set-summary
      • Tlb
      • Booting-linux
      • Introduction
      • Asmtest
      • X86isa-build-instructions
      • Publications
      • Contributors
      • Machine
        • X86isa-state
        • Syscalls
        • Cpuid
        • Linear-memory
        • Rflag-specifications
        • Characterizing-undefined-behavior
        • Top-level-memory
        • App-view
        • X86-decoder
        • Physical-memory
        • Decoding-and-spec-utils
        • Instructions
          • Two-byte-opcodes
          • One-byte-opcodes
          • Fp-opcodes
          • Instruction-semantic-functions
          • X86-illegal-instruction
          • Implemented-opcodes
          • Opcode-maps
          • X86-general-protection
          • X86-device-not-available
          • X86-step-unimplemented
          • Privileged-opcodes
          • Three-byte-opcodes
            • X86-adcx/adox
            • X86-sarx/shlx/shrx
            • X86-blsi
            • X86-swapgs
        • Register-readers-and-writers
        • X86-modes
        • Segmentation
        • Other-non-deterministic-computations
        • Environment
        • Paging
      • Implemented-opcodes
      • To-do
      • Proof-utilities
      • Peripherals
      • Model-validation
      • Modelcalls
      • Concrete-simulation-examples
      • Utils
      • Debugging-code-proofs
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Three-byte-opcodes

X86-blsi

Signature

(x86-blsi 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).

Definitions and Theorems

Function: x86-blsi

(defun x86-blsi (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-blsi))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-blsi)
       (?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*
    ((operand-size (if (and (eql proc-mode 0)
                            (eql (vex->w vex-prefixes) 1))
                       8
                     4))
     ((the (unsigned-byte 4) src1-index)
      (vex-vvvv-reg-index (vex->vvvv vex-prefixes)))
     (badlength? (check-instruction-length start-rip temp-rip 0))
     ((when badlength?)
      (!!fault-fresh :gp 0
                     :instruction-length badlength?))
     (p2 (prefixes->seg prefixes))
     (p4? (equal 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))
     (inst-ac? t)
     ((mv flg0 src2-val
          (the (unsigned-byte 3) increment-rip-by)
          (the (signed-byte 64) 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))
     (res (blsi operand-size src2-val))
     ((the (unsigned-byte 32) input-rflags)
      (rflags x86))
     (output-rflags
      (!rflagsbits->cf
          (b-not (bool->bit (eql src2-val 0)))
          (!rflagsbits->sf
               (logbit (1- (* 8 operand-size)) res)
               (!rflagsbits->zf (bool->bit (eql res 0))
                                (!rflagsbits->of 0 input-rflags)))))
     (undefined-flags (!rflagsbits->pf 1 (!rflagsbits->af 1 0)))
     (x86 (!rgfi-size operand-size src1-index res 1 x86))
     (x86 (write-user-rflags output-rflags undefined-flags x86))
     (x86 (write-*ip proc-mode temp-rip x86)))
    x86))))

Theorem: x86p-of-x86-blsi

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