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

[bshoring]

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