|
|
|
@ -1886,6 +1886,10 @@ |
|
|
|
ADD (let [res (aplicar-operador-diadico + pila)] |
|
|
|
ADD (let [res (aplicar-operador-diadico + pila)] |
|
|
|
(if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) |
|
|
|
(if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; PUSHFI: PUSH FROM INSTRUCTION. Direccionamiento inmediato. Incrementa cont-prg en 1 y agrega al final de pila el valor del argumento. |
|
|
|
|
|
|
|
PUSHFI (let [res (conj pila (second fetched)) |
|
|
|
|
|
|
|
(recur cod regs-de-act (inc cont-prg) res mapa-regs) |
|
|
|
|
|
|
|
]) |
|
|
|
) |
|
|
|
) |
|
|
|
) |
|
|
|
) |
|
|
|
) |
|
|
|
) |
|
|
|
|