Commit e2abe086 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Add instruction RCR.

parent c3ec47a6
;;;;------------------------------------------------------------------
;;;;
;;;; 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.1.1.1 2004/01/12 14:19:00 ffjeld Exp $
;;;; $Id: instr-shift.lisp,v 1.2 2004/01/16 11:54:14 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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment