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
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