Index: /branches/arm/compiler/ARM/arm-disassemble.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-disassemble.lisp	(revision 13833)
+++ /branches/arm/compiler/ARM/arm-disassemble.lisp	(revision 13834)
@@ -61,4 +61,8 @@
   (let* ((opcode (adi-opcode (svref opcodes i))))
     (arm-gpr-name (ldb (byte 4 16) opcode))))
+
+(defun extract-arm-rs-operand (opcodes i)
+  (let* ((opcode (adi-opcode (svref opcodes i))))
+    (arm-gpr-name (ldb (byte 4 8) opcode))))
 
 (defparameter *arm-shift-ops* #(:lsl :lsr :asr :ror))