From acfad31438f67fbd66398801cd9b6874deeb00f2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <jahvascriptmaniac+github@free.fr>
Date: Thu, 21 Oct 2010 17:47:40 +0200
Subject: [PATCH] =?UTF-8?q?Fin=20de=20isn-encode=20(non=20test=C3=A9).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 instructions.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/instructions.lisp b/instructions.lisp
index 1228d5a..8382c10 100644
--- a/instructions.lisp
+++ b/instructions.lisp
@@ -101,7 +101,12 @@ et termine par la liste APPEND."
            (opcode (ash opcode nb-modes-adressage))
            (opcode (logior opcode (position1 mode-adressage-2 table-modes-adressage))))
       (split-bytes opcode nb-opcode-bytes
-                   (list valeur-1 valeur-2)))))
+                   (list (if (eq mode-adressage-1 'registre)
+							 (position1 valeur1 (get-register-list (make-vm 1)))
+						   valeur1)
+						 (if (eq mode-adressage-2 'registre)
+							 (position1 valeur2 (get-register-list (make-vm 1)))
+						   valeur2))))))
 
 ;;TODO : Faire les registres
 (defun dump-vm (vm)