.data

A:          .word 0:1
B:          .word 0:1
C:          .word 0:1
D:          .word 0:1
E:          .word 0:1
F:          .word 0:1
G:          .word 0:1
risultato:  .word 0:1
x:          .word 0:1
T:          .word 0:1

.text

li $v0, 5
syscall
sw $v0, A($zero)
move $a0, $v0

li $v0, 5
syscall
sw $v0, B($zero)
move $a1, $v0

li $v0, 5
syscall
sw $v0, C
move $a2, $v0

li $v0, 5
syscall
sw $v0, D
move $a3, $v0

jal COMPLESSA
move $a0, $v0
li $v0, 1
syscall

li $v0, 10
syscall

COMPLESSA:
subi $sp, $sp, 4
sw $ra, ($sp)

div $t0, $a0, $a1   #e
mul $t1, $t0, $a1
sub $t1, $a0, $t1   #f
sw $t0, E
sw $t1, F

jal QUADRATI

lw $ra, ($sp)
addi $sp, $sp, 4
jr $ra


QUADRATI:
subi $sp, $sp, 4
sw $ra, ($sp)

lw $s0, E
lw $s1, F
mul $a0, $a0, $a0
mul $a1, $a1, $a1
mul $a2, $a2, $a2
mul $a3, $a3, $a3
mul $s0, $s0, $s0
mul $s1, $s1, $s1

sw $s0, E
sw $s1, F
li $s2, 6
sw $s2, G

jal MEDIA_QUADRATI

lw $ra, 0($sp)
addi $sp, $sp, 4
jr $ra

MEDIA_QUADRATI:
subi $sp, $sp, 4
sw $ra, ($sp)

lw $s0, E
lw $s1, F
lw $s2, G

add $s3, $a0, $a1
add $s3, $s3, $a2
add $s3, $s3, $a3
add $s3, $s3, $s0
add $s3, $s3, $s1
div $s3, $s3, $s2

sw $s3, risultato($zero)

jal RADICE_PER_INTERI

lw $ra, ($sp)
addi $sp, $sp, 4
jr $ra


RADICE_PER_INTERI:

lw $s3, risultato

mtc1 $s3, $f0
cvt.s.w $f0, $f0
sqrt.s $f1, $f0
floor.w.s $f1, $f1
mfc1 $v0, $f1
jr $ra