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