The Museum of HP Calculators


pH of Weak Acid-Base Solutions for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Chemistry Solution Book. This program was entered and uploaded by Tony Duell.

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 "PH"
 02 SF 21
 03 SF 27
 04 "ACID"
 05 ASTO 05
 06 ASTO 10
 07 "BASE"
 08 ASTO 06
 09 ADV
 10 FC? 55
 11 GTO 00
 12 SF 13
 13 CF 12
 14 4
 15 XROM 29,22
 16 "P"
 17 XROM 29,01
 18 CF 13
 19 "H C"
 20 XROM 29,01
 21 SF 13
 22 "ALCULATIONS"
 23 XROM 29,01
 24 XROM 29,10
 25 LBL a
 26 CF 06
 27 CF 13
 28 ADV
 29 LBL 00
 30 CLA
 31 ARCL 05
 32 "|-/"
 33 ARCL 06
 34 "|-?"
 35 CF 21
 36 AVIEW
 37 SF 21
 38 CLA
 39 ARCL 10
 40 AON
 41 STOP
 42 AOFF
 43 ASTO X
 44 RCL 05
 45 X#Y?
 46 SF 00
 47 X=Y?
 48 CF 00
 49 RCL 05
 50 FS? 00
 51 RCL 06
 52 STO 10
 53 "CONC. "
 54 ARCL 10
 55 "|-?"
 56 RCL 09
 57 PROMPT
 58 STO 09
 59 FC? 55
 60 GTO 00
 61 ASTO 08
 62 CLA
 63 91
 64 XROM 29,02
 65 ARCL 10
 66 XROM 29,01
 67 93
 68 XROM 29,02
 69 "="
 70 ARCL 09
 71 "|- M"
 72 XROM 29,01
 73 XROM 29,10
 74 LBL 00
 75 "K"
 76 XEQ 09
 77 "|-,PK"
 78 XEQ 09
 79 "|-,K"
 80 XEQ 08
 81 "|-,PK"
 82 XEQ 08
 83 PROMPT
 84 LBL 10
 85 "|-="
 86 ARCL X
 87 XROM 29,01
 88 XROM 29,10
 89 RTN
 90 LBL B
 91 SF 06
 92 LBL D
 93 SF 13
 94 "P"
 95 FS? 55
 96 XROM 29,01
 97 CF 13
 98 "K"
 99 FC? 06
100 XEQ 08
101 FS? 06
102 XEQ 09
103 FS? 55
104 XEQ 10
105 CHS
106 10^X
107 FC? 06
108 1 E14
109 FC? 06
110 *
111 FC?C 06
112 1/X
113 GTO 11
114 LBL 01
115 1 E14
116 *
117 1/X
118 RTN
119 LBL 08
120 FS? 00
121 "|-a"
122 FC? 00
123 "|-b"
124 RTN
125 LBL 09
126 FC? 00
127 "|-a"
128 FS? 00
129 "|-b"
130 RTN
131 LBL E
132 RCL 01
133 XEQ 01
134 STO 01
135 RCL 02
136 XEQ 01
137 STO 02
138 FS?C 00
139 GTO 05
140 SF 00
141 GTO 05
142 LBL C
143 SF 06
144 LBL A
145 "K"
146 FC? 06
147 XEQ 09
148 FS? 06
149 XEQ 08
150 FS? 55
151 XEQ 10
152 FS?C 06
153 XEQ 01
154 LBL 11
155 STO 01
156 RCL 09
157 *
158 1 E-14
159 +
160 STO 03
161 LASTX
162 RCL 01
163 *
164 STO 04
165 RCL 03
166 SQRT
167 STO 02
168 LBL 04
169 RCL 02
170 RCL 01
171 +
172 RCL 02
173 *
174 RCL 03
175 -
176 RCL 02
177 *
178 RCL 04
179 -
180 RCL 02
181 3
182 *
183 RCL 01
184 2
185 *
186 +
187 RCL 02
188 *
189 RCL 03
190 -
191 /
192 STO 00
193 ABS
194 RCL 02
195 99
196 /
197 X<>Y
198 X<=Y?
199 GTO 05
200 RCL 00
201 ST- 02
202 GTO 04
203 LBL 05
204 RCL 02
205 LOG
206 CHS
207 STO 07
208 ADV
209 SF 13
210 "P"
211 FS? 55
212 XROM 29,01
213 CF 13
214 FS? 55
215 CLA
216 FS? 00
217 "|-O"
218 "|-H="
219 ARCL X
220 XEQ 07
221 "K"
222 XEQ 09
223 "|-="
224 ARCL 01
225 XEQ 07
226 CLA
227 FC? 55
228 "<"
229 91
230 FS? 55
231 XROM 29,02
232 FS? 00
233 "|-OH-"
234 FC? 00
235 "|-H+"
236 FS? 55
237 XROM 29,01
238 FC? 55
239 "|->"
240 93
241 FS? 55
242 XROM 29,02
243 FS? 55
244 CLA
245 "|-="
246 ARCL 02
247 XEQ 07
248 "ERR.="
249 ARCL 00
250 XEQ 07
251 ADV
252 GTO a
253 LBL 07
254 FS? 55
255 XROM 29,01
256 FS? 55
257 XROM 29,10
258 FC? 55
259 AVIEW
260 END

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