www

commit 02e562330c377924205a5d0fd2da7a305ca273ff
parent cbf7849e7eef9295c756add057c67e0a0e2a9012
Author: Bertrand BRUN <bertrand.brun@me.com>
Date:   Wed, 20 Oct 2010 11:17:41 +0200

Ajout de TODO

Diffstat:
M
VM/instruction.lisp
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/VM/instruction.lisp b/VM/instruction.lisp
@@ -43,7 +43,6 @@
 (defun set-register (vm register value) (send vm 'set-register register value))
 (defun size-memory (vm) (send vm 'size-memory))
 
-;;TODO : Faire les registres
 (defun dump-vm (vm)
   (dotimes (i (size-memory vm))
     (let ((val (get-memory vm i)))
@@ -59,9 +58,12 @@
 (defun isn-decode (opcode)
   opcode)
 
+;;TODO : Penser a ajouter une table des opcodes
 (defun isn-encode (instruction)
   instruction)
 
+;;TODO : Rajouter une fonction resolve pour resoudre les differents modes d'adresssage.
+
 (defun ISN-LOAD (vm address register)
   (set-register vm register (get-memory vm address)))
 
@@ -143,6 +145,7 @@
 
 ;;Test Unitaire
 ;; TODO : Faire deftestvar
+;; TODO : Finir le test unitaire
 (load "test-unitaire")
 (defvar vm (make-vm (+ 10 (random 10))))
 (defvar t-address (random (size-memory vm)))
@@ -160,4 +163,5 @@
          (get-memory vm t-address))
   (get-register vm 'R0))
 
+
 (dump-vm vm)
 \ No newline at end of file