Half-precision Γ(x+1) [HP-12C]

[bshoring]

(02-16-2020 12:30 AM)Gerson W. Barbosa Wrote:  and about half the memory space.

Code:


01- ENTER 
02- ENTER 
03- ENTER 
04- 8
05- 4
06- 0
07- ×
08- 3  
09- 1
10- 4
11- +
12- ×
13- 6
14- 6
15- + 
16- STO 1
17- R↓
18- 5
19- 0
20- 4
21- 0
22- ×
23- 1
24- 4
25- 6
26- 4
27- +
28- ×
29- 4 
30- 1
31- 9
32- +
33- STO/ 1
34- R↓
35- RCL 1
36- +
37- 7
38- 1
39- 0
40- ×
41- 1
42- 1
43- 3
44- /
45- √
46- R↓
47- R↓
48- LN
49- 1
50- -
51- ×
52- eᵡ
53- ×
54- GTO 00

Thanks for this. I’m having fun with it on my HP-38C emulator (RPN-38CX). Here’s my listing. If anyone has RPN-38CX, you can paste this directly into the display in program mode. By the way, I changed storage register 1 to I. That way no numbered or Financial registers are used.

[code]
01 - 31 ENTER
02 - 31 ENTER
03 - 31 ENTER
04 - 8 8
05 - 4 4
06 - 0 0
07 - 61 ×
08 - 3 3
09 - 1 1
10 - 4 4
11 - 51 +
12 - 61 ×
13 - 6 6
14 - 6 6
15 - 51 +
16 - 21 26 STO I
17 - 25 33 R↓
18 - 5 5
19 - 0 0
20 - 4 4
21 - 0 0
22 - 61 ×
23 - 1 1
24 - 4 4
25 - 6 6
26 - 4 4
27 - 51 +
28 - 61 ×
29 - 4 4
30 - 1 1
31 - 9 9
32 - 51 +
33 - 21 71 26 STO ÷ I
34 - 25 33 R↓
35 - 22 51 26 RCL + I
36 - 7 7
37 - 1 1
38 - 0 0
39 - 61 ×
40 - 1 1
41 - 1 1
42 - 3 3
43 - 71 ÷
44 - 24 21 √x
45 - 25 33 R↓
46 - 25 33 R↓
47 - 25 23 LN
48 - 1 1
49 - 41 −
50 - 61 ×
51 - 25 22 eˣ
52 - 61 ×
53 - 25 7 00 GTO 00
[code]