The Museum of HP Calculators

Acid-Base Equilibrium (Diprotic) 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 "EQUIL"
 02 SF 27
 03 CF 00
 04 CLRG
 05 LBL A
 06 9.013
 07 STO 07
 08 1 E-14
 09 STO 08
 10 CF 05
 11 "K1"
 12 XEQ 00
 13 "K2"
 14 XEQ 00
 15 "Ca"
 16 SF 05
 17 XEQ 00
 18 "CS,1"
 19 XEQ 00
 20 "CS,2"
 21 LBL 00
 22 RCL IND 07
 23 FS? 05
 24 0
 25 "=?"
 26 PROMPT
 27 STO IND 07
 28 ISG 07
 29 RTN
 30 LBL B
 31 CF 05
 32 0
 33 STO 05
 34 1
 35 RCL 11
 36 XEQ 08
 37 2
 38 RCL 12
 39 XEQ 08
 40 4
 41 RCL 13
 42 XEQ 08
 43 GTO 09
 44 LBL 08
 45 X=0?
 46 RTN
 47 RDN
 48 ST+ 05
 49 RTN
 50 LBL D
 51 FC?C 00
 52 SF 00
 53 GTO C
 54 LBL 09
 55 RCL 09
 56 STO 03
 57 RCL 10
 58 *
 59 STO 02
 60 STO 00
 61 RCL 08
 62 CHS
 63 ST+ 02
 64 ST* 00
 65 RCL 10
 66 *
 67 STO 01
 68 RCL 12
 69 ST+ 03
 70 RCL 13
 71 ST+ 03
 72 ST+ 03
 73 XEQ IND 05
 74 STO 04
 75 STO 06
 76 FIX 08
 77 LBL 10
 78 RCL 04
 79 RCL 03
 80 +
 81 RCL 04
 82 *
 83 RCL 02
 84 +
 85 RCL 04
 86 *
 87 RCL 01
 88 +
 89 RCL 04
 90 *
 91 RCL 00
 92 +
 93 RCL 04
 94 4
 95 *
 96 RCL 03
 97 3
 98 *
 99 +
100 RCL 04
101 *
102 RCL 02
103 ST+ X
104 +
105 RCL 04
106 *
107 RCL 01
108 +
109 /
110 RCL 04
111 X<>Y
112 ST- 04
113 CLX
114 RCL 04
115 -
116 RND
117 X#0?
118 GTO 10
119 LBL C
120 SF 21
121 SCI 02
122 RCL 04
123 FC? 00
124 GTO 11
125 RCL 08
126 /
127 1/X
128 LBL 11
129 "<"
130 FC? 00
131 "H3O+"
132 FS? 00
133 "OH-"
134 ">="
135 ARCL X
136 AVIEW
137 LOG
138 CHS
139 FIX 02
140 "P"
141 FS? 00
142 "O"
143 "H="
144 ARCL X
145 AVIEW
146 RTN
147 LBL 01
148 XEQ 05
149 RCL 09
150 RCL 11
151 *
152 ST- 02
153 STO 14
154 SQRT
155 RTN
156 LBL 02
157 XEQ 07
158 LASTX
159 SQRT
160 RTN
161 LBL 03
162 XEQ 05
163 XEQ 07
164 RCL 09
165 RCL 11
166 *
167 ST- 02
168 RCL 12
169 /
170 RTN
171 LBL 04
172 SF 05
173 LBL 06
174 FC? 05
175 XEQ 07
176 RCL 09
177 RCL 13
178 *
179 ST+ 02
180 FS? 05
181 RCL 08
182 FC? 05
183 RCL 12
184 RCL 10
185 *
186 RCL 13
187 /
188 FS?C 05
189 SQRT
190 RTN
191 LBL 07
192 RCL 12
193 GTO 07
194 LBL 05
195 RCL 11
196 ST+ X
197 LBL 07
198 RCL 10
199 RCL 09
200 *
201 *
202 ST- 01
203 RTN
204 END

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