ASC ex 6 lab 5-6

# ex 6 lab 5-6

.data
x: .space 4

.text
main:
subu $sp,8
li $t0,1
sw $t0,0($sp)
li $t0,2
sw $t0,4($sp)
jal f
lw $t0,0($sp)
addu $sp,4
sw $t0,x
li $v0,10
syscall

f:
subu $sp,4
sw $fp,0($sp)
addiu $fp,$sp,0 # fp,sp: (fp v), p, q
lw $t0,4($fp)
mul $t0,$t0,$t0
subu $sp,4
sw $t0,0($sp) # sp: p*p, fp: (fp v), p, q
lw $t0,8($fp)
mul $t0,$t0,$t0
lw $t1,0($sp)
addu $sp,4 # scoatem p*p din stiva
add $t1,$t1,$t0
sw $t1,8($sp)
lw $fp,0($fp) # fp revine la vechea lui valoare
addu $sp,8
jr $ra