|
|
|
@ -1920,6 +1920,10 @@ |
|
|
|
POPDIVREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched dividir)] |
|
|
|
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))) |
|
|
|
(if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; POPMODREF: Como POPADDREF, pero calcula el resto de la division. |
|
|
|
|
|
|
|
POPMODREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched rem)] |
|
|
|
|
|
|
|
(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 |
|
|
|
; Incrementa cont-prg en 1, quita de la pila dos elementos, calcula su suma y la coloca al final de la pila |
|
|
|
; fetched: ADD |
|
|
|
; fetched: ADD |
|
|
|
; pila recibida: [1 0 0 3 4] |
|
|
|
; pila recibida: [1 0 0 3 4] |
|
|
|
|