suzanne.soy/2010-m1s1-compilation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fin de isn-encode (non testé).

Browse Source
This commit is contained in:
Georges Dupéron 2010-10-21 17:47:40 +02:00
parent b48da132b3
commit acfad31438
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
instructions.lisp
View File

@ -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)