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