set I0, P0[1]
            bsr FIBO
            print I0
            print "\n"
            end


FIBO:
            lt I0, 2, FIBO_ONE
            set I1, I0
            set I2, I1
            sub I2, 2
            set I0, I2
            save I1
            save I2
            save I3
            bsr FIBO
            restore I3
            restore I2
            restore I1
            set I1, I0
            inc I2
            set I0, I2
            save I1
            save I2
            save I3
            bsr FIBO
            restore I3
            restore I2
            restore I1
            add I0, I0, I1
            branch FIBO_END
FIBO_ONE:    set I0, 1
FIBO_END:    
            ret