From 02e562330c377924205a5d0fd2da7a305ca273ff Mon Sep 17 00:00:00 2001 From: Bertrand BRUN Date: Wed, 20 Oct 2010 11:17:41 +0200 Subject: [PATCH] Ajout de TODO --- VM/instruction.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/VM/instruction.lisp b/VM/instruction.lisp index c2a2384..9891635 100644 --- 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