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 "BIAS" 02 ENG 02 03 RCL 04 04 25 05 - 06 RCL 05 07 / 08 STO 05 09 RCL 00 10 X^2 11 * 12 RCL 04 13 RCL 02 14 - 15 4.4 16 * 17 / 18 STO 13 19 .1 20 * 21 STO 14 22 LBL 00 23 RCL 00 24 2 25 / 26 ENTER 27 ENTER 28 RCL 13 29 RCL 14 30 + 31 / 32 STO 10 33 RCL 05 34 * 35 * 36 RCL 02 37 + 38 RCL 04 39 X<>Y 40 X>Y? 41 GTO 05 42 XEQ 03 43 CHS 44 RCL 01 45 1 46 + 47 XEQ 04 48 RCL 08 49 + 50 STO 15 51 1 52 RCL 01 53 X^2 54 - 55 2 56 / 57 RCL 10 58 * 59 RCL 05 60 * 61 RCL 00 62 * 63 RCL 03 64 + 65 XEQ 03 66 CHS 67 1 68 RCL 01 69 - 70 XEQ 04 71 RCL 09 72 + 73 STO 16 74 RCL 15 75 X>Y? 76 GTO 02 77 - 78 RCL 10 79 / 80 RCL 01 81 / 82 RCL 14 83 X<>Y 84 STO 14 85 %CH 86 .5 87 X<=Y? 88 GTO 00 89 FS? 01 90 GTO 01 91 SF 01 92 GTO 00 93 LBL 01 94 CF 01 95 "H MAX?" 96 PROMPT 97 "H MIN?" 98 PROMPT 99 STO 12 100 X<>Y 101 STO 11 102 RCL 01 103 2 104 * 105 RCL 10 106 * 107 RCL 14 108 * 109 RCL 15 110 + 111 RCL 16 112 - 113 RCL 12 114 * 115 RCL 11 116 * 117 1 118 RCL 01 119 - 120 RCL 11 121 * 122 1 123 RCL 01 124 + 125 RCL 12 126 * 127 - 128 / 129 RCL 10 130 / 131 STO 02 132 RCL 12 133 / 134 RCL 14 135 + 136 RCL 10 137 * 138 1 139 RCL 01 140 - 141 * 142 RCL 16 143 + 144 STO 03 145 RCL 00 146 X<>Y 147 / 148 RCL 02 149 * 150 RCL 02 151 RCL 00 152 * 153 LASTX 154 RCL 03 155 - 156 / 157 RCL 13 158 RCL 14 159 "RE=" 160 XEQ 02 161 "RL=" 162 XEQ 02 163 "R2=" 164 XEQ 02 165 "R1=" 166 XEQ 02 167 / 168 RCL 12 169 * 170 RCL 02 171 * 172 LASTX 173 RCL 14 174 RCL 12 175 * 176 + 177 / 178 LOG 179 10 180 * 181 "AP=" 182 LBL 02 183 ARCL X 184 AVIEW 185 STOP 186 RDN 187 RTN 188 LBL 03 189 FS? 01 190 XEQ A 191 25 192 - 193 2.2 E-3 194 * 195 RTN 196 LBL A 197 "T=" 198 GTO D 199 LBL 04 200 RCL 10 201 * 202 FS? 01 203 XEQ I 204 RCL 06 205 / 206 LOG 207 RCL 07 208 * 209 + 210 RTN 211 LBL I 212 "I=" 213 LBL D 214 ARCL X 215 AVIEW 216 STOP 217 RTN 218 STO 02 219 0 220 STO 14 221 LBL 05 222 1.1 223 ST* 13 224 GTO 00 225 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall