commit acfad31438f67fbd66398801cd9b6874deeb00f2 parent b48da132b3837c50ad47a74b9f984a59fb755376 Author: Georges Dupéron <jahvascriptmaniac+github@free.fr> Date: Thu, 21 Oct 2010 17:47:40 +0200 Fin de isn-encode (non testé). Diffstat:
| M | instructions.lisp | | | 7 | ++++++- |
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git 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)