deci    d#-4,s
        addsp   d#-4,i
        jsr     Fibo
        deco    d#0,s
        addsp   d#2,i
        stop



Fibo:   loada   d#2,s       ;charger le nombre passé en paramètre (n)
        breq    zero
        compa   d#1,i
        breq    un

        suba    d#1,i       ;n-1
        addsp   d#-4,i      ;préparer l'appel de la fonction Fibo()
        storea  d#0,s       ;paramètre = n-1
        jsr Fibo
                            ;On laisse la réponse sur la pile pour plus tard
        loada   d#4,s       ;charger n
        suba    d#2,i       ;n-2
        addsp   d#-4,i      ;préparer l'appel de la fonction Fibo()
        storea  d#0,s       ;paramètre = n-2
        jsr Fibo

        loada   d#0,s       ;récupérer la solution de Fibo(n-2)
        adda    d#2,s       ;additionner la solution de Fibo(n-1)
        addsp   d#4,i       ;et nettoyer la pile...
        br  suite

zero:   loada   d#0,i       ;Fibo(0) = 0
        br  suite
un:     loada   d#1,i       ;Fibo(1) = 1

suite:  storea  d#4,s       ;stocker la réponse
        loada   d#0,s
        storea  d#2,s       ;déplacer le pointeur de retour
        addsp   d#2,i       ;et encore une fois, nettoyer la pile
        rts 

.END