.data

H0:    .half 2,4, 6, 7, 0, 12, 3, 8, 1 ,10, 5, 16, 0, 1, 1, 10, 0 ,3 ,20, 21, 1, 1, 2, 4, 2, 22, 6, 0, 0, 12, 37, 0, 30, 50, 1, 34, 0, 5, 4, 13, 10, 63, 8, 8, 1, 6, 5, 3, 5, 4, 0, 1, 0, 9, 6, 2, 41, 0, 14, 2, 0 ,14, 0, 1
accapo:  .ascii "/n"
L:  .word 8

B:  .half 0:32
.text

lw $t0, L   #lunghezza matrice A
li $t1, 0   #offset A
li $t2, 0   #offset B
li $t4, 2 #conteggio colonne
mul $t3, $t0, $t0
sll $t3, $t3, 1   #indice finale di A

ciclo:
lh $s0, H0($t1)
addi $t1, $t1, 2
lh $s1, H0($t1)
addi $t1, $t1, 2

mul $s2, $s0, $s1

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

beq $t4, $t0, vai_a_capo

continua:
addi $t4, $t4, 2
bge  $t1, $t3, fine
j ciclo

vai_a_capo:
la $a0, accapo
li $v0, 4
syscall
li $t4, 0
j continua

fine: