: FIB ( n -- n' )
   DUP 1 > IF
      DUP 1- RECURSE  SWAP 2 -  RECURSE  +
   THEN ;

\ Test is 24 FIB. 

0452 00860001 FIB         G0=#1
0454 4108                 W=S0+(-G0), latch CF
0455 0F00                 Skip when W<=0 xor V=0 (>)
0456 100B                 Branch: P=0462
0457 0BF4                 SP=SP-1
0458 5301                 S0=W=S1-1
0459 8229                 Call 0452:FIB
045A 50F1                 G7=W=S1
045B 5010                 S1=W=S0
045C 0006FFFE             S0=#65534
045E 4A0F                 S0=W=S0+G7, latch CF
045F 8229                 Call 0452:FIB
0460 4A10                 S1=W=S1+S0, latch CF
0461 0814                 SP=SP+1
0462 0409                 Return
