.data
n:		.word 3
mat:		.word 1 2 3    4 5 6   7 8 9
Mprod: 		.word 0:9
space:		.asciiz"   "
nl:		.asciiz"\n"
		.text
		.globl main
main:
		li $t0,0   			#inicializza a 0 L
		li $t1,0			#inicializza a 0 J
		li $t2,0			#inicializza a 0 I
		li $t3,0			#inicializza a 0 l'indice secuenza K
		lw $s0,n			# nr di righe e di colonne che  e uguale
		li $t6,0			#inicializa il reg dove si vengono sommati i prodotto 	
						#della riga per la collona
		
		la $t7,mat 			#carico la matrice
		la $t8,mat  			#ricarico la stessa matrice che si mul. per la prima


ciclo:	
		
		lw	$t4,($t7)
		lw	$t5,($t8)

	
		mul 	$t9,$t4,$t5
		add	$t6,$t6,$t9		#faco sommare i prodotti
		addi	$t0,$t0,1		#incremento L
		addi	$t7,$t7,4		#passo al sec. elem. della riga della prima											#matrice
		addi    $t8,$t8,12		#passo al sec. elem. della colona della 											#seconda matrice
	
		blt  	$t0,$s0,ciclo		#se L<n##############################
		li	$t4,0
		li	$t5,0		
		li	$t0,0			#azzero L		
		addi	$t1,$t1,1		#incremento J
		sub	$t7,$t7,12

		li 	$v0,1
		move    $a0,$t6
		syscall
		

		sw	$t6,Mprod($t3)		#deposito l'elemento nella matrice
		addi	$t3,$t3,4		#incremento k
		subu	$t8,$t8,32
		
		li 	$v0,4
		la	$a0,space
		syscall
            li      $t6,0			#azzero il reg. somma
		
		blt	$t1,$s0,ciclo		#se J<n##################################					
		sub	$t8,$t8,12		
		addi	$t7,$t7,12
  
		li 	$v0,4
		la	$a0,nl
		syscall
		syscall
		li	$t0,0			#azzero L
		li    $t1,0			#azzero J
      	addi  $t2,$t2,1			#incremento I
		
		

		blt	$t2,$s0,ciclo		#se i<n#####################################
		li	$v0,10
		syscall