|
|
|
|
@ -1916,6 +1916,10 @@ |
|
|
|
|
POPMULREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched *)] |
|
|
|
|
(if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs))) |
|
|
|
|
|
|
|
|
|
; POPDIVREF: Como POPADDREF, pero divide. |
|
|
|
|
POPDIVREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched dividir)] |
|
|
|
|
(if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs))) |
|
|
|
|
|
|
|
|
|
; Incrementa cont-prg en 1, quita de la pila dos elementos, calcula su suma y la coloca al final de la pila |
|
|
|
|
; fetched: ADD |
|
|
|
|
; pila recibida: [1 0 0 3 4] |
|
|
|
|
|