The Museum of HP Calculators
The Museum of HP Calculators
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
LINE KEYS 01 LBL "GAS" 02 SF 27 03 "a=?" 04 PROMPT 05 STO 01 06 "b=?" 07 PROMPT 08 STO 02 09 .0820562 10 STO 03 11 GTO 06 12 LBL A 13 FS?C 22 14 GTO 01 15 XEQ 05 16 RCL 03 17 RCL 13 18 * 19 RCL 09 20 RCL 02 21 - 22 / 23 RCL 01 24 RCL 09 25 X^2 26 / 27 - 28 LBL 01 29 STO 10 30 "P=" 31 GTO 00 32 LBL B 33 FS?C 22 34 GTO 02 35 RCL 02 36 RCL 01 37 RCL 10 38 / 39 STO 05 40 * 41 CHS 42 STO 04 43 RCL 02 44 RCL 03 45 RCL 13 46 * 47 RCL 10 48 / 49 + 50 CHS 51 3 52 / 53 STO 00 54 RCL 05 55 3 56 / 57 RCL 00 58 X^2 59 - 60 3 61 Y^X 62 STO 07 63 RCL 05 64 RCL 00 65 * 66 RCL 04 67 - 68 2 69 / 70 RCL 00 71 3 72 Y^X 73 - 74 STO 08 75 X^2 76 RCL 07 77 + 78 SQRT 79 STO 07 80 RCL 08 81 + 82 XEQ e 83 RCL 08 84 RCL 07 85 - 86 XEQ e 87 + 88 RCL 00 89 - 90 RCL 12 91 * 92 STO 11 93 LBL 02 94 STO 11 95 "V=" 96 GTO 00 97 LBL C 98 FS?C 22 99 GTO 04 100 RCL 10 101 RCL 02 102 RCL 01 103 * 104 / 105 CHS 106 STO 04 107 RCL 10 108 RCL 01 109 / 110 RCL 03 111 RCL 13 112 * 113 RCL 01 114 RCL 02 115 * 116 / 117 + 118 STO 05 119 RCL 02 120 1/X 121 CHS 122 3 123 / 124 STO 00 125 RCL 05 126 3 127 / 128 RCL 00 129 X^2 130 - 131 3 132 Y^X 133 STO 07 134 RCL 05 135 RCL 00 136 * 137 RCL 04 138 - 139 2 140 / 141 RCL 00 142 3 143 Y^X 144 - 145 STO 08 146 X^2 147 RCL 07 148 + 149 SQRT 150 STO 06 151 RCL 08 152 + 153 XEQ e 154 RCL 08 155 RCL 06 156 - 157 XEQ e 158 + 159 RCL 00 160 - 161 RCL 11 162 * 163 LBL 04 164 STO 12 165 "N=" 166 GTO 00 167 LBL D 168 FS?C 22 169 GTO 03 170 XEQ 05 171 RCL 10 172 RCL 01 173 RCL 09 174 X^2 175 / 176 + 177 RCL 09 178 RCL 02 179 - 180 * 181 RCL 03 182 / 183 LBL 03 184 STO 13 185 "T=" 186 GTO 00 187 LBL 05 188 RCL 11 189 RCL 12 190 / 191 STO 09 192 RTN 193 LBL e 194 X<0? 195 SF 01 196 ABS 197 3 198 1/X 199 Y^X 200 FS? 01 201 CHS 202 CF 01 203 RTN 204 LBL E 205 RCL 02 206 2.31207 207 * 208 FIX 05 209 "Vc=" 210 ARCL X 211 AVIEW 212 8 213 RCL 01 214 * 215 9 216 / 217 RCL 03 218 / 219 RCL 01 220 9 221 / 222 RCL 02 223 / 224 RCL 02 225 3 226 * 227 FIX 02 228 / 229 "Pc=" 230 ARCL X 231 AVIEW 232 X<>Y 233 LASTX 234 / 235 "Tc=" 236 LBL 00 237 ARCL X 238 AVIEW 239 RTN 240 LBL 06 241 "P V N T VPTc" 242 AVIEW 243 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall