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