Ejercicio 2 about practica2-ec-uc3m

[tastypeanut]

.data
	vector: .word 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
.text
sumav:
	#Apilamos en pila los equivalentes de $a0 y $a1
	push IX
  push IY
  #Cargamos 0 en el equivalente de $v0
  ldi HL 0
  #Creamos el bucle que va a sumar recursivamente los elementos de la matriz pasada por parámetro
  b1:
  	#Inicializamos el registro A
  	ldi A 0
    #Le sumamos a A el valor de IX
  	add_a IX
    #Si la suma anterior activa Flag.Zero, salta a la etiqueta f1, si no, continúa con la siguiente instrucción
    jpz f1
    #Carga el valor de la direccion de memoria almacenada en IY, en BC (el equivalente de $t0).
    ld BC, (IY)
    #Las siguientes instrucciones son el equivalente de add $v0 $v0 $t0
    ld A, HL
    add_a BC 
    ld HL, A
    #Las siguientes instrucciones son el equivalente de addi $a1 $a1 4
    ld A, IY
    addi_a 4
    ld IY, A
    #Las siguientes instrucciones son el equivalente de addi $a0 $a0 -1
    ld A, IX
    addi_a -1
    ld IX, A
    #
    jp b1
  f1:
  	pop IY
    pop IX
    ret
 main:
 	ldi IX, 10
  ldi IY, vector 
  call sumav
  halt

[jorgee00]

.data
	#Declaramos un vector de enteros
	vector: .word 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
.text
#Declaramos la funcion sumav
sumav:
	#Apilamos en pila los equivalentes de $a0 y $a1
	push IX
  push IY
  #Cargamos 0 en el equivalente de $v0
  ldi HL 0
  #Creamos el bucle que va a sumar recursivamente los elementos de la matriz pasada por parámetro
  b1:
  	#Inicializamos el registro A
  	ldi A 0
    #Le sumamos a A el valor de IX
  	add_a IX
    #Si la suma anterior activa Flag.Zero, salta a la etiqueta f1, si no, continúa con la siguiente instrucción
    jpz f1
    #Carga el valor de la direccion de memoria almacenada en IY, en BC (el equivalente de $t0).
    ld BC, (IY)
    #Las siguientes instrucciones son el equivalente de add $v0 $v0 $t0
    ld A, HL
    add_a BC 
    ld HL, A
    #Las siguientes instrucciones son el equivalente de addi $a1 $a1 4
    ld A, IY
    addi_a 4
    ld IY, A
    #Las siguientes instrucciones son el equivalente de addi $a0 $a0 -1
    ld A, IX
    addi_a -1
    ld IX, A
    #Volvemos al inicio del bucle b1
    jp b1
  #Etiqueta fin de bucle
  f1:
  	#Desapilamos y restauramos los valores de IY e IX
  	pop IY
    pop IX
    #Finalizamos la funcion
    ret
    
 main:
 	#Cargamos los valores en los argumentos que requiere la funcion 
 	ldi IX, 10
  ldi IY, vector 
  #Llamamos a la funcion sumav
  call sumav
  #Finalizamos la ejecuccion del programa
  halt