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

Mise a jour des instructions VM

Browse Source
This commit is contained in:
Bertrand BRUN 2010-10-15 20:05:04 +02:00
parent be4c1636b7
commit be3b162221
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
VM/instruction.lisp
View File

@ -56,12 +56,12 @@
(setf register (- register 1)))
(defun PUSH (register)
(progn (INCR SP)
(STORE register SP)))
(INCR SP)
(STORE register SP))
(defun POP (register)
(progn (LOAD SP register)
(DECR SP)))
(LOAD SP register)
(DECR SP))
;; TODO : Remplir la fonction JMP
(defun JMP (dst)
@ -77,17 +77,17 @@
(defun CMP (reg1 reg2)
(cond ((= (getValueInMemory reg1) (getValueInMemory reg2))
(progn (setf EQ T)
(setf PP nil)
(setf PG nil)))
(setf EQ T)
(setf PP nil)
(setf PG nil))
((< (getValueInMemory reg1) (getValueInMemory reg2))
(progn (setf EQ nil)
(setf PP T)
(setf PG nil)))
(setf EQ nil)
(setf PP T)
(setf PG nil))
(T
(progn (setf EQ nil)
(setf PP nil)
(setf PG T)))))
(setf EQ nil)
(setf PP nil)
(setf PG T))))
(defun JEQ (label)
(if EQ