As I have mentioned before, most of my duties involve financial calculations in an industrial environment.
The calculator I prefer among all, because of its simplicity (no menus) and its portability (fits in my jacket and occupies very limited space in a crowded desk, is the HP15.
Here is a dump of the program memory:
Let's start with an oldie, in the version that appears in the Advanced Functions handbook - no change needed. It uses the A to E keys in User mode, following the standard n -i- PV- PMT-FV. One key for entering the data and placing the program pointer in the right place; then R/S to execute:
I will continue in the next few blogs with the rest of the memory. For the sake of engineer futility, I have left space enough for a 3x3 + 3 equation system if some time was needed - and it has not been the case so far !!
Time Value of Money |
1 |
LBL A |
|
2 |
STO 1 |
|
3 |
R/S |
|
4 |
GSB .1 |
|
5 |
LST X |
|
6 |
R/S |
|
7 |
RCL*0 |
|
8 |
RCL 5 |
|
9 |
X<>Y |
|
10 |
- |
|
11 |
LST X |
|
12 |
RCL+3 |
|
13 |
X=0? |
|
14 |
GTO .0 |
|
15 |
/ |
|
16 |
CHS |
|
17 |
TEST 4 |
|
18 |
GTO .0 |
|
19 |
LN |
|
20 |
RCL 6 |
|
21 |
LN |
|
22 |
/ |
|
23 |
STO 1 |
|
24 |
RTN |
|
25 |
LBL B |
|
26 |
STO 2 |
|
27 |
R/S |
|
28 |
, |
|
29 |
2 |
|
30 |
ENTER |
|
31 |
EEX |
|
32 |
CHS |
|
33 |
3 |
|
34 |
CF 1 |
|
35 |
SOLVE .3 |
36 |
GOTO .4 |
|
37 |
GOTO .0 |
|
38 |
LBL .4 |
|
39 |
EEX |
|
40 |
2 |
|
41 |
* |
|
42 |
STO 2 |
|
43 |
RTN |
|
44 |
LBL C |
|
45 |
STO 3 |
|
46 |
R/S |
|
47 |
GSB .1 |
|
48 |
GSB 2 |
|
49 |
CHS |
|
50 |
STO 3 |
|
51 |
RTN |
|
52 |
LBL D |
|
53 |
STO 4 |
|
54 |
R/S |
|
55 |
1 |
|
56 |
STO 4 |
|
57 |
GSB .1 |
|
58 |
RCL 3 |
|
59 |
GSB 2 |
|
60 |
X<>Y |
|
61 |
/ |
|
62 |
CHS |
|
63 |
STO 4 |
|
64 |
RTN |
|
65 |
LBL E |
|
66 |
STO 5 |
|
67 |
R/S |
|
68 |
GSB .1 |
|
69 |
RCL+3 |
|
70 |
RCL+7 |
|
71 |
CHS |
|
72 |
STO 5 |
|
73 |
RTN |
|
74 |
LBL .1 |
|
75 |
SF 1 |
|
76 |
1 |
|
77 |
RCL 2 |
|
78 |
/ |
|
79 |
LBL .3 |
|
80 |
STO 8 |
|
81 |
1 |
|
82 |
STO 0 |
|
83 |
+ |
|
84 |
TEST 4 |
|
85 |
GOTO .0 |
|
86 |
STO 6 |
|
87 |
F?0 |
|
88 |
STO 0 |
|
89 |
RCL 1 |
|
90 |
CHS |
|
91 |
Y^X |
|
92 |
STO 7 |
|
93 |
1 |
|
94 |
X<>Y |
|
95 |
- |
|
96 |
X=0? |
|
97 |
GOTO .0 |
|
98 |
RCL*0 |
|
99 |
RCL 4 |
|
100 |
RCL/8 |
|
101 |
* |
|
102 |
F?1 |
|
103 |
RTN |
|
104 |
RCL+3 |
|
105 |
LBL 2 |
|
106 |
RCL 5 |
|
107 |
RCL*7 |
|
108 |
+ |
|
109 |
RTN |
|