(10C) (11C) Fibonacci Numbers (Tom Grydeland) (10C and 11C)

[Eddie W. Shore]

Today’s program is courtesy of Tom Grydeland. This is his Fibonacci number program for the HP-10C and HP-11C.

Here is what Tom wrote to me:

Dear sir,

In response to your blog post on Fibonacci numbers for the HP-15C:

For the HP-11C, the DSE instruction (and ISG also) references register
I only. Therefore, to run Joe Horn's program on the 11C, replace step
002 (STO 0) with '44, 25' (STO I), and step 010 (DSE 0) with '42, 5'
(DSE).

For the HP-10C, there are no ISG or DSE instructions, nor labels. The
program becomes (tested)

Code:

Step    Key Code        Mnemonic
001     1               (1)
002     34              (X<>Y)
003     0               (0)
004     34              (X<>Y)
005     1               (0)
006     30              (-)
007     44 0            (STO 0)
008     33              (Rv)
009     40              (+)
010     42 36           (LST X)
011     34              (X<>Y)
012     45 0            (RCL 0)
013     42 20           (X=0?)
014     22 16           (GTO 16)
015     22 05           (GTO 05)
016     33              (Rv)
017     22 00           (GTO 00 == STOP)

thank you and best regards.

Credit and thanks to Tom Grydeland