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

[Gerson W. Barbosa]

(05-15-2017 10:47 PM)bshoring Wrote:  Here's the listing for HP-38 E/C or RPN-38 CX based on Gerson's last entry:

Code:


01 - 21 0        STO 0
02 - 1            1
03 - 25 23        LN
04 - 25 31        LASTx
05 - 33          x≷y
06 - 51          +
07 - 1            1
08 - 21 41 0      STO − 0
09 - 25 33        R↓
10 - 22 0        RCL 0
11 - 25 6        x=0
12 - 25 7 15      GTO 15
13 - 25 33        R↓
14 - 25 7 04      GTO 04
15 - 33          x≷y
16 - 25 7 00      GTO 00

One listing for the RPN-38CX might be

Code:


01 - 26           x≷I
02 - 1            1
03 - 25 23        LN
04 - 22 51 31     RCL + LASTx
05 - 24 26        DSE
06 - 25 7 04      GTO 04
07 - 25 7 00      GTO 00

Best regards,

Gerson.