This program is Copyright © HP and is used here by permission. It was originally printed in the Electrical Engineering 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 "CHEB" 02 ENG 03 03 RAD 04 1 05 XEQ 09 06 ST* 01 07 ST* 02 08 ST* 05 09 RCL 03 10 10 11 / 12 10^X 13 1 14 - 15 SQRT 16 STO 06 17 RCL 04 18 10 19 / 20 10^X 21 1 22 - 23 4 24 * 25 RCL 06 26 X^2 27 / 28 2 29 - 30 STO 12 31 "?" 32 PROMPT 33 STO 07 34 GTO IND 07 35 LBL 04 36 XEQ 03 37 GTO 00 38 LBL 02 39 SF 02 40 XEQ 01 41 LBL 00 42 1/X 43 CHS 44 GTO 05 45 LBL 01 46 RCL 05 47 RCL 01 48 / 49 FS?C 02 50 RTN 51 GTO 05 52 LBL 03 53 RCL 05 54 X^2 55 RCL 01 56 X^2 57 - 58 RCL 05 59 / 60 RCL 02 61 / 62 LBL 05 63 ABS 64 STO 08 65 ENTER 66 X^2 67 1 68 - 69 SQRT 70 + 71 STO 10 72 LN 73 RCL 12 74 LN 75 X<>Y 76 / 77 STO 09 78 LBL 06 79 RCL 09 80 RCL 10 81 RCL 09 82 Y^X 83 STO 05 84 ENTER 85 1/X 86 + 87 RCL 12 88 - 89 RCL 05 90 ENTER 91 1/X 92 - 93 / 94 RCL 10 95 LN 96 / 97 2 98 / 99 - 100 STO 09 101 LASTX 102 ABS 103 .01 104 X<=Y? 105 GTO 06 106 RCL 09 107 2 108 / 109 1 110 + 111 INT 112 STO 09 113 "N=" 114 ARCL X 115 AVIEW 116 STOP 117 1 118 STO 11 119 RCL 03 120 40 121 / 122 1 123 E^X 124 LOG 125 / 126 ENTER 127 + 128 E^X 129 1 130 X<>Y 131 + 132 LASTX 133 1 134 - 135 / 136 RCL 09 137 STO 10 138 2 139 * 140 1/X 141 Y^X 142 ENTER 143 1/X 144 - 145 2 146 / 147 X^2 148 STO 08 149 PI 150 2 151 / 152 RCL 09 153 / 154 SIN 155 STO 12 156 2 157 * 158 RCL 08 159 SQRT 160 / 161 LBL 10 162 STO 05 163 RCL 00 164 -1 165 RCL 11 166 PSE 167 Y^X 168 Y^X 169 * 170 GTO IND 07 171 LBL 01 172 RCL 01 173 / 174 XEQ 11 175 GTO 00 176 LBL 02 177 RCL 01 178 * 179 1/X 180 XEQ 11 181 CHS 182 GTO 00 183 LBL 03 184 RCL 02 185 / 186 XEQ 11 187 SF 01 188 XEQ 00 189 1/X 190 RCL 01 191 X^2 192 / 193 XEQ 11 194 CHS 195 GTO 00 196 LBL 04 197 RCL 02 198 * 199 RCL 01 200 X^2 201 / 202 XEQ 11 203 SF 01 204 XEQ 00 205 RCL 01 206 X^2 207 * 208 1/X 209 XEQ 11 210 CHS 211 LBL 00 212 "L=" 213 X<0? 214 "C=" 215 ABS 216 ARCL X 217 AVIEW 218 STOP 219 FS?C 01 220 RTN 221 DSE 10 222 GTO 07 223 RTN 224 LBL 07 225 RCL 12 226 RCL 09 227 RCL 10 228 - 229 1 230 + 231 STO 11 232 1 233 - 234 2 235 * 236 1 237 + 238 PI 239 * 240 2 241 / 242 RCL 09 243 / 244 SIN 245 STO 12 246 * 247 4 248 * 249 RCL 05 250 / 251 RCL 08 252 RCL 09 253 RCL 10 254 - 255 PI 256 * 257 RCL 09 258 / 259 SIN 260 X^2 261 + 262 / 263 GTO 10 264 LBL 11 265 -1 266 RCL 11 267 Y^X 268 * 269 RTN 270 LBL 09 271 2 272 * 273 PI 274 * 275 RTN 276 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall