.data

    msg1:    .asciiz "donnez un entier "
    msg2:    .asciiz "le fibonacci de "
    msg3:    .asciiz " est "
    input:    .word     0
    output:   .word     0

.text

#lire un entier dans $v0
    li $v0,4
    la $a0,msg1
    syscall

    li $v0,5
    syscall

    sw $v0,input
    move $a0,$v0
    subiu $a0,$a0,1
    li $v0,1
    jal fibo
    sw $v0,output
    j print_res

fibo :
    subu $sp,$sp,16
    sw   $ra,0($sp)
    sw   $s0,4($sp)
    sw   $s1,8($sp)
    sw   $s2,12($sp)
#la case de base de fibo
    li $v0,1
    blt $a0,2,end_fibo

#le calcule de fibo

    move $s0,$a0
    subu $a0,$s0,1
    jal fibo
    move $s1,$v0
    subu $a0,$s0,2
    jal fibo
    move $s2,$v0
    add $v0,$s1,$s2
end_fibo :
    lw   $ra,0($sp)
    lw   $s0,4($sp)
    lw   $s1,8($sp)
    lw   $s2,12($sp)
    addiu $sp,$sp,16
    jr $ra
print_res :
    li $v0,4
    la $a0,msg2
    syscall
    li $v0,1
    lw $a0,input
    syscall
    li $v0,4
    la $a0,msg3
    syscall
    li $v0,1
    lw $a0,output
    syscall
    li $v0,10
    syscall