The Museum of HP Calculators


Psychrometric Properties for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HVAC 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 "PSYCHSI"
 02 SF 00
 03 GTO 00
 04 LBL "PSYCHE"
 05 CF 00
 06 LBL 00
 07 0
 08 STO 00
 09 ADV
 10 "P"
 11 XEQ "IN"
 12 "Tdb"
 13 XEQ "IN"
 14 XEQ F
 15 ADV
 16 "PSAT"
 17 XEQ "O"
 18 STO 06
 19 ADV
 20 "SELECT KEY:"
 21 CF 21
 22 AVIEW
 23 SF 21
 24 PSE
 25 LBL 22
 26 SF 27
 27 "TWb  REL  PV"
 28 PROMPT
 29 GTO 22
 30 LBL A
 31 2
 32 STO 00
 33 "TWb"
 34 XEQ "IN"
 35 XEQ F
 36 XEQ 03
 37 "TWb HIGH"
 38 X<0?
 39 PROMPT
 40 XEQ 04
 41 "TWb LOW"
 42 X<0?
 43 PROMPT
 44 STO 07
 45 .2
 46 "SPC HUM>=.2"
 47 X<=Y?
 48 PROMPT
 49 RDN
 50 RCL 01
 51 *
 52 RCL 07
 53 .622
 54 +
 55 /
 56 "TWb>Tdb"
 57 XEQ 05
 58 ADV
 59 GTO 18
 60 LBL C
 61 3
 62 STO 00
 63 "REL"
 64 XEQ "IN"
 65 ADV
 66 RCL 02
 67 STO 03
 68 XEQ F
 69 X<>Y
 70 %
 71 STO 08
 72 GTO 00
 73 LBL E
 74 RCL 02
 75 STO 03
 76 7
 77 STO 00
 78 "PV"
 79 XEQ "IN"
 80 "VP>Tdb"
 81 ADV
 82 XEQ 05
 83 RCL 08
 84 LBL 00
 85 XEQ 03
 86 "VP>P"
 87 X<0?
 88 PROMPT
 89 STO 07
 90 .2
 91 "W>.2"
 92 X<=Y?
 93 PROMPT
 94 FS? 00
 95 80
 96 FC? 00
 97 140
 98 STO 09
 99 CF 02
100 LBL 01
101 RCL 09
102 FS?C 02
103 CHS
104 ST- 03
105 2
106 ST/ 09
107 RCL 03
108 XEQ F
109 XEQ 03
110 X<0?
111 GTO 01
112 XEQ 04
113 RCL 07
114 -
115 X<0?
116 SF 02
117 ABS
118 1 E-5
119 X<=Y?
120 GTO 01
121 GTO 08
122 LBL 06
123 FC? 00
124 .445
125 FS? 00
126 1.8631
127 *
128 FC? 00
129 1061
130 FS? 00
131 2501
132 +
133 X<>Y
134 32
135 FS? 00
136 CLX
137 -
138 X<0?
139 XEQ 07
140 FC? 00
141 1
142 FS? 00
143 4.1868
144 *
145 -
146 RTN
147 LBL 07
148 .467
149 *
150 FC? 00
151 -143.956
152 FS? 00
153 -79.97556
154 +
155 RTN
156 LBL 05
157 STO 08
158 RCL 06
159 /
160 1
161 X<>Y
162 X>Y?
163 PROMPT
164 1 E2
165 *
166 STO 04
167 RTN
168 LBL 08
169 RCL 03
170 "TWb"
171 XEQ "O"
172 LBL 18
173 RCL 08
174 X=0?
175 GTO 09
176 32
177 FS? 00
178 CLX
179 XEQ F
180 X>Y?
181 GTO 00
182 RCL 08
183 FS? 00
184 1.40974 E7
185 FC? 00
186 2.04466 E6
187 /
188 LN
189 1/X
190 FS? 00
191 -3928.5
192 FC? 00
193 -7071.3
194 *
195 FS? 00
196 231.667
197 FC? 00
198 385
199 -
200 GTO 11
201 LBL 00
202 RCL 08
203 FS? 00
204 3.61633 E9
205 FC? 00
206 5.24506 E8
207 /
208 LN
209 1/X
210 FS? 00
211 -6150.6
212 FC? 00
213 -11071
214 *
215 FS? 00
216 273.33
217 FC? 00
218 460
219 -
220 GTO 11
221 LBL F
222 32
223 FS? 00
224 CLX
225 X>Y?
226 GTO 00
227 RDN
228 FS? 00
229 231.667
230 FC? 00
231 385
232 +
233 FS? 00
234 -3928.5
235 FC? 00
236 -7071.3
237 X<>Y
238 /
239 E^X
240 FS? 00
241 1.40974 E7
242 FC? 00
243 2.04466 E6
244 *
245 RTN
246 LBL 00
247 RDN
248 FS? 00
249 273.33
250 FC? 00
251 460
252 +
253 FS? 00
254 -6150.6
255 FC? 00
256 -11071
257 X<>Y
258 /
259 E^X
260 FS? 00
261 3.61633 E9
262 FC? 00
263 5.24506 E8
264 *
265 RTN
266 LBL 03
267 "WSAT OR VP=P"
268 .622
269 X<>Y
270 *
271 RCL 01
272 LASTX
273 -
274 X=0?
275 PROMPT
276 /
277 RTN
278 LBL 04
279 RCL 03
280 RCL 03
281 XEQ 06
282 *
283 RCL 03
284 RCL 02
285 -
286 FC? 00
287 .24
288 FS? 00
289 1.0048
290 *
291 +
292 RCL 03
293 RCL 02
294 XEQ 06
295 /
296 RTN
297 LBL 11
298 "TdP"
299 XEQ "O"
300 LBL 09
301 RCL 08
302 "PV"
303 XEQ "O"
304 RCL 07
305 "W"
306 XEQ "O"
307 RCL 04
308 "REL"
309 XEQ "O"
310 RCL 02
311 FC? 00
312 .24
313 FS? 00
314 1.0048
315 *
316 32
317 FS? 00
318 ST- X
319 RCL 02
320 XEQ 06
321 RCL 07
322 *
323 +
324 "H"
325 XEQ "O"
326 RCL 02
327 FC? 00
328 459.67
329 FS? 00
330 273.15
331 +
332 FC? 00
333 .3701
334 FS? 00
335 286.7
336 *
337 RCL 01
338 RCL 08
339 -
340 /
341 "V"
342 XEQ "O"
343 GTO 00
344 LBL "IN"
345 CF 22
346 1
347 ST+ 00
348 RCL IND 00
349 "|-="
350 ASTO Y
351 "|-?"
352 CF 21
353 AVIEW
354 SF 21
355 CLA
356 ARCL Y
357 STOP
358 STO IND 00
359 FS? 22
360 FC? 55
361 RTN
362 ARCL X
363 XROM 29,08
364 RTN
365 LBL "O"
366 "|-="
367 ARCL X
368 AVIEW
369 END

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