; 8 bit version
; IN : a = n (n <= 13, otherwise overflows)
; OUT: a = FIB(n)
fib8: cp 2
ret c ; if n < 2 then done
ld b,a
dec b ; b = n - 1
ld c,0 ; F0
ld a,1 ; F1
f8_l: ld d,a
add a,c
ld c,d
djnz f8_l
ret