Buenas, tengo que hacer lo siguiente:
implementar en lenguaje ensamblador del MIPS el producto escalar de 2 vectores.
data # Segmento de datos
tvector: .word 6 # Tamaño de los vectores
res: .space 4 # Resultado del producto escalar
vector1: .word 6,7,8,9,4,1 # Vector 1
vector2: .word 2,3,5,4,6,7 # Vector 2
Después de la ejecución del programa ejemplo, el resultado
debe ser res=140
También se debe de poder modificar el resultador res.
Por ahora tengo esto, pero no me llega funcionar, si alguien sabe que tengo mal o que me falta se lo agradecería:
Código:
.data # Segmento de datos
res: .space 4 # Resultado del producto escalar
tvector: .word 6 # Tamaño de los vectores
vector1: .word 6,7,8,9,4,1 # Vector 1
vector2: .word 2,3,5,4,6,7 # Vector 2
main:
la $a0,vector1 # $a0 <-- dirección base del array vector1
la $a1,vector2 # $a1 <-- dirección base del array vector2
lw $a2,tvector # $a2 <-- tamaño del array = n
li $a3,140 # $a3 <-- valor que le daremos a res
sw $a3,res # $a3 <-- carga el contenido de la memoria en la dirección especificada de 32 bits en res
jal ip # invoca rutina ip, guarda en $ra la dir. de vuelta
move $a0, $v0 # escribe en consola el resultado (que ip dejó en $v0)
li $v0, 1
syscall
li $v0, 10
syscall
ip: li $v0, 0 # inicializa sum a 0. $v0 guardará el resultado que devuelve la rutina
li $t3, 0 # $t3: índice de los elementos del array (i)
ip1: bge $t3, $a3, res # sale cuando i >= res
lw $t0, 0($a0) # $t0 <-- a0[i]
lw $t1, 0($a1) # $t1 <-- a1[i]
mul $a3, $t0, $t1
add $v0, $v0, $a3 # res <-- res + a0[i] * a1[i]
addi $t3, $t3, 1 # i++
b ip1 # cierra bucle (salto incond. a ip1)
ipx: jr $ra # retorna al invocador