[movitz-cvs] CVS ia-x86

[ffjeld]

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))