Update of /project/movitz/cvsroot/ia-x86 In directory clnet:/tmp/cvs-serv22419

Modified Files: instr-shift.lisp Log Message: Add instruction RCR.

--- /project/movitz/cvsroot/ia-x86/instr-shift.lisp 2004/01/16 11:54:14 1.2 +++ /project/movitz/cvsroot/ia-x86/instr-shift.lisp 2008/03/03 22:22:17 1.3 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2002, +;;;; Copyright (C) 20012000, 2002, 2005, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: instr-shift.lisp @@ -9,7 +9,7 @@ ;;;; Created at: Tue May 2 10:56:33 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: instr-shift.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: instr-shift.lisp,v 1.3 2008/03/03 22:22:17 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -138,6 +138,25 @@ (:digit (#xd3 0) 0 (cl r/m32) :operand-mode :32-bit) (:digit (#xc1 0) 1 (imm8 r/m32) :operand-mode :32-bit))

+;;; Rotate right with CF + +(def-instr rcr (instruction)) + +(def-instr rcrb (shl) + (:digit (#xd0 2) 0 (1 r/m8)) + (:digit (#xd2 2) 0 (cl r/m8)) + (:digit (#xc0 2) 1 (imm8 r/m8))) + +(def-instr rcrw (rcr) + (:digit (#xd1 3) 0 (1 r/m16) :operand-mode :16-bit) + (:digit (#xd3 3) 0 (cl r/m16) :operand-mode :16-bit) + (:digit (#xc1 3) 1 (imm8 r/m16) :operand-mode :16-bit)) + +(def-instr rcrl (rcr) + (:digit (#xd1 3) 0 (1 r/m32) :operand-mode :32-bit) + (:digit (#xd3 3) 0 (cl r/m32) :operand-mode :32-bit) + (:digit (#xc1 3) 1 (imm8 r/m32) :operand-mode :32-bit)) + ;;; Rotate right without CF

(def-instr ror (instruction))