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 Applied Stats 2 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 "FREQ" 02 LBL A 03 CLRG 04 LBL 01 05 STOP 06 STO 20 07 LN 08 RCL 20 09 * 10 ST+ 00 11 STOP 12 LN 13 RCL 20 14 * 15 ST+ 01 16 ADV 17 GTO 01 18 LBL B 19 RCL 00 20 RCL 01 21 - 22 2 23 * 24 "G" 25 XEQ 11 26 STO 24 27 STOP 28 STO 22 29 XEQ 10 30 RTN 31 LBL C 32 CLRG 33 STOP 34 STO 30 35 STOP 36 STO 31 37 STOP 38 STO 32 39 STOP 40 STO 33 41 + 42 + 43 + 44 STO 34 45 RCL 30 46 RCL 31 47 + 48 STO 35 49 ADV 50 "A+B" 51 XEQ 11 52 RCL 32 53 RCL 33 54 + 55 STO 36 56 "C+D" 57 XEQ 11 58 RCL 30 59 RCL 32 60 + 61 STO 37 62 "A+C" 63 XEQ 11 64 RCL 31 65 RCL 33 66 + 67 STO 38 68 "B+D" 69 XEQ 11 70 RCL 34 71 "N" 72 XEQ 11 73 RTN 74 LBL D 75 XEQ 05 76 RCL 30 77 X=0? 78 GTO 12 79 RCL 31 80 X=0? 81 GTO 12 82 RCL 32 83 X=0? 84 GTO 12 85 RCL 33 86 X=0? 87 GTO 12 88 RCL 30 89 RCL 33 90 * 91 RCL 31 92 RCL 32 93 * 94 - 95 X<0? 96 GTO 14 97 1 98 ST+ 30 99 ST+ 33 100 ST- 31 101 ST- 32 102 GTO 15 103 LBL 14 104 1 105 ST- 30 106 ST- 33 107 ST+ 31 108 ST+ 32 109 LBL 15 110 XEQ 05 111 LBL 12 112 RCL 14 113 FIX 04 114 "P.UNI" 115 XEQ 11 116 2 117 * 118 "P.BIL" 119 XEQ 11 120 FIX 02 121 RTN 122 LBL 05 123 30 124 STO 25 125 RCL IND 25 126 FACT 127 STO 12 128 LBL 16 129 XROM 30,29 130 RCL IND 25 131 FACT 132 ST* 12 133 34 134 RCL 25 135 X#Y? 136 GTO 16 137 XROM 30,29 138 RCL IND 25 139 FACT 140 STO 13 141 LBL 13 142 XROM 30,29 143 RCL IND 25 144 FACT 145 ST* 13 146 38 147 RCL 25 148 X#Y? 149 GTO 13 150 RCL 13 151 RCL 12 152 / 153 ST+ 14 154 RTN 155 LBL F 156 RCL 34 157 RCL 30 158 RCL 33 159 * 160 RCL 31 161 RCL 32 162 * 163 - 164 ABS 165 RCL 34 166 2 167 / 168 - 169 X^2 170 * 171 RCL 35 172 / 173 RCL 36 174 / 175 RCL 37 176 / 177 RCL 38 178 / 179 ADV 180 "X2" 181 XEQ 11 182 STO 24 183 1 184 STO 22 185 XEQ 10 186 RTN 187 LBL 10 188 RCL 24 189 SQRT 190 STO 26 191 RCL 22 192 1 193 X=Y? 194 GTO 08 195 RCL 22 196 2 197 X=Y? 198 GTO 17 199 RCL 22 200 2 201 / 202 INT 203 LASTX 204 X#Y? 205 GTO 07 206 SF 01 207 RCL 22 208 2 209 - 210 2 211 / 212 STO 25 213 XEQ 02 214 0 215 STO 05 216 1 217 STO 06 218 LBL 03 219 RCL 24 220 * 221 RCL 05 222 2 223 + 224 STO 05 225 / 226 ST+ 06 227 XROM 30,23 228 GTO 03 229 FS? 01 230 GTO 06 231 RCL 07 232 2 233 * 234 RCL 02 235 2 236 * 237 RCL 06 238 * 239 + 240 FIX 03 241 "P" 242 XEQ 11 243 FIX 02 244 RTN 245 LBL 06 246 RCL 10 247 RCL 02 248 RCL 06 249 * 250 * 251 LBL 09 252 FIX 03 253 "P" 254 XEQ 11 255 FIX 02 256 CF 01 257 RTN 258 LBL 07 259 RCL 22 260 1 261 - 262 2 263 / 264 1 265 - 266 STO 25 267 XEQ 04 268 XEQ 02 269 1 270 STO 05 271 RCL 26 272 STO 06 273 GTO 03 274 LBL 02 275 PI 276 2 277 * 278 SQRT 279 STO 10 280 RCL 24 281 2 282 / 283 CHS 284 E^X 285 RCL 10 286 1/X 287 * 288 STO 02 289 RTN 290 LBL 04 291 1 292 RCL 26 293 .196854 294 * 295 + 296 RCL 26 297 X^2 298 .115194 299 * 300 + 301 RCL 26 302 3 303 Y^X 304 .000344 305 * 306 + 307 RCL 26 308 4 309 Y^X 310 .019527 311 * 312 + 313 -4 314 Y^X 315 2 316 / 317 CHS 318 1 319 + 320 1 321 X<>Y 322 - 323 STO 07 324 RTN 325 LBL 08 326 XEQ 04 327 2 328 * 329 GTO 09 330 LBL 17 331 XEQ 02 332 RCL 10 333 RCL 02 334 * 335 GTO 09 336 LBL 11 337 "=" 338 ARCL X 339 AVIEW 340 RTN 341 LBL G 342 CLRG 343 STOP 344 STO 23 345 13 346 X<=Y? 347 GTO 19 348 STOP 349 STO 21 350 ADV 351 ADV 352 LBL 20 353 STOP 354 X#0? 355 SF 02 356 ST+ 13 357 ST+ IND 25 358 XROM 30,29 359 XEQ 21 360 GTO 20 361 LBL H 362 RCL 13 363 "~R" 364 XEQ 11 365 ADV 366 ST+ 14 367 XEQ 22 368 0 369 STO 13 370 STO 25 371 1 372 ST+ 15 373 RCL 21 374 RCL 15 375 X#Y? 376 GTO 20 377 LBL 23 378 RCL IND 25 379 "~C" 380 XEQ 11 381 XEQ 22 382 XROM 30,29 383 RCL 23 384 RCL 25 385 X#Y? 386 GTO 23 387 RCL 14 388 ADV 389 "N" 390 XEQ 11 391 ADV 392 LN 393 LASTX 394 * 395 RCL 16 396 + 397 RCL 17 398 - 399 2 400 * 401 "G" 402 XEQ 11 403 STO 24 404 RCL 23 405 1 406 - 407 RCL 21 408 1 409 - 410 * 411 STO 22 412 "D.L." 413 XEQ 11 414 XEQ 10 415 RTN 416 LBL 21 417 FS?C 02 418 LN 419 LASTX 420 * 421 ST+ 16 422 RTN 423 LBL 22 424 LN 425 LASTX 426 * 427 ST+ 17 428 RTN 429 LBL E 430 XROM 30,23 431 STOP 432 X#0? 433 SF 02 434 ST- 13 435 ST- IND 25 436 FS?C 02 437 LN 438 LASTX 439 * 440 ST- 16 441 GTO 20 442 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall