The Museum of HP Calculators

Semi-Empirical Nuclear Mass Formula for the HP-41C/CV/CX

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "NM"
 02 CF 01
 03 CF 00
 04 CLRG
 05 -931.504
 06 STO 08
 07 938.793
 08 STO 09
 09 939.576
 10 STO 10
 11 -15.68
 12 STO 11
 13 18.56
 14 STO 12
 15 .717
 16 STO 13
 17 28.1
 18 STO 14
 19 -17
 20 STO 15
 21 "NUM PROT?"
 22 PROMPT
 23 FS?C 22
 24 STO 01
 25 "NUM NEUT?"
 26 PROMPT
 27 FS?C 22
 28 STO 02
 29 RCL 02
 30 RCL 01
 31 +
 32 STO 00
 33 XEQ C
 34 XEQ D
 35 XEQ E
 36 XEQ a
 37 XEQ b
 38 XEQ c
 39 XEQ d
 40 XEQ e
 41 GTO "NM"
 42 LBL C
 43 XEQ 01
 44 19.024
 45 STO 03
 46 XEQ 04
 47 "B.E.="
 48 ARCL X
 49 PROMPT
 50 RCL 00
 51 /
 52 "B.E./A="
 53 ARCL X
 54 PROMPT
 55 RTN
 56 LBL D
 57 17.024
 58 STO 03
 59 XEQ 04
 60 "M="
 61 ARCL X
 62 PROMPT
 63 RCL 00
 64 /
 65 "M/A="
 66 ARCL X
 67 PROMPT
 68 RTN
 69 LBL E
 70 XEQ 01
 71 16.024
 72 XEQ 04
 73 "M.E.="
 74 ARCL X
 75 PROMPT
 76 RCL 00
 77 /
 78 "M.E./A="
 79 ARCL X
 80 PROMPT
 81 RTN
 82 LBL a
 83 RCL 20
 84 "EV="
 85 ARCL X
 86 PROMPT
 87 RCL 00
 88 /
 89 "EV/A="
 90 ARCL X
 91 PROMPT
 92 RTN
 93 LBL b
 94 RCL 21
 95 "ES="
 96 ARCL X
 97 PROMPT
 98 RCL 00
 99 /
100 "ES/A="
101 ARCL X
102 PROMPT
103 RTN
104 LBL c
105 RCL 22
106 "Ec="
107 ARCL X
108 PROMPT
109 RCL 00
110 /
111 "Ec/A="
112 ARCL X
113 PROMPT
114 RTN
115 LBL d
116 RCL 23
117 "ESYM="
118 ARCL X
119 PROMPT
120 RCL 00
121 /
122 "ESYM/A="
123 ARCL X
124 PROMPT
125 RTN
126 LBL e
127 RCL 24
128 "EP="
129 ARCL X
130 PROMPT
131 RCL 00
132 /
133 "EP/A="
134 ARCL X
135 PROMPT
136 RTN
137 LBL 01
138 8
139 STO 03
140 RCL 00
141 XEQ 02
142 RCL 01
143 XEQ 02
144 RCL 02
145 XEQ 02
146 RCL 00
147 XEQ 02
148 RCL 00
149 3
150 1/X
151 Y^X
152 X^2
153 XEQ 02
154 RCL 01
155 X^2
156 RCL 00
157 3
158 1/X
159 Y^X
160 /
161 XEQ 02
162 RCL 01
163 RCL 02
164 -
165 X^2
166 RCL 00
167 /
168 XEQ 02
169 -1
170 RCL 01
171 Y^X
172 -1
173 RCL 02
174 Y^X
175 +
176 RCL 00
177 .75
178 Y^X
179 /
180 XEQ 02
181 SF 01
182 RTN
183 LBL 02
184 RCL IND 03
185 *
186 RCL 03
187 9
188 +
189 STO 03
190 X<>Y
191 STO IND 03
192 8
193 ST- 03
194 RTN
195 LBL 04
196 0
197 STO 06
198 LBL 05
199 ISG 03
200 GTO 10
201 GTO 06
202 LBL 10
203 RCL IND 03
204 ST+ 06
205 GTO 05
206 LBL 06
207 RCL 06
208 RTN
209 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall