This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 EE(lab) Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. 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 "REACT" 02 LBL 14 03 LBL E 04 7CLREG 05 STOP 06 LBL 10 07 LBL A 08 X<0? 09 GTO 02 10 1 11 STO 25 12 X<>Y 13 FS?C 22 14 GTO 00 15 7DSP2 16 RCL 02 17 RCL 03 18 * 19 SQRT 20 PI 21 * 22 2 23 * 24 X#0? 25 1/X 26 X#0? 27 STO 01 28 X#0? 29 RTN 30 2 31 PI 32 * 33 RCL 02 34 * 35 RCL 04 36 * 37 X#0? 38 1/X 39 X#0? 40 STO 01 41 X#0? 42 RTN 43 RCL 05 44 2 45 PI 46 * 47 RCL 03 48 * 49 / 50 STO 01 51 RTN 52 LBL 11 53 LBL B 54 X<0? 55 GTO 02 56 E3 57 * 58 XEQ 10 59 E3 60 / 61 7DSP3 62 RTN 63 LBL 00 64 STO IND 25 65 RTN 66 LBL 02 67 CHS 68 E6 69 * 70 XEQ 10 71 E6 72 / 73 7DSP3 74 RTN 75 LBL 17 76 LBL c 77 3 78 STO 25 79 X<>Y 80 FS?C 22 81 GTO 00 82 7DSP4 83 RCL 05 84 RCL 01 85 2 86 PI 87 * 88 * 89 / 90 STO 03 91 X#0? 92 RTN 93 4 94 PI 95 X^2 96 * 97 RCL 01 98 X^2 99 * 100 RCL 02 101 * 102 1/X 103 STO 03 104 RTN 105 LBL 18 106 LBL d 107 E3 108 / 109 XEQ 17 110 E3 111 * 112 RTN 113 LBL 19 114 LBL e 115 E6 116 / 117 XEQ 17 118 E6 119 * 120 RTN 121 LBL 13 122 LBL D 123 5 124 STO 25 125 X<>Y 126 FS?C 22 127 GTO 00 128 7DSP2 129 2 130 PI 131 * 132 RCL 01 133 * 134 RCL 03 135 * 136 STO 05 137 RTN 138 LBL 12 139 LBL C 140 4 141 STO 25 142 X<>Y 143 FS?C 22 144 GTO 00 145 7DSP2 146 2 147 PI 148 * 149 RCL 01 150 * 151 RCL 02 152 * 153 1/X 154 STO 04 155 RTN 156 LBL 01 157 2 158 STO 25 159 X<>Y 160 FS?C 22 161 GTO 00 162 7DSP5 163 2 164 PI 165 * 166 RCL 01 167 * 168 RCL 04 169 * 170 X#0? 171 1/X 172 X#0? 173 STO 02 174 X#0? 175 RTN 176 4 177 PI 178 X^2 179 * 180 RCL 01 181 X^2 182 * 183 RCL 03 184 * 185 1/X 186 STO 02 187 RTN 188 RTN 189 LBL 15 190 LBL a 191 E6 192 / 193 XEQ 01 194 E6 195 * 196 RTN 197 LBL 16 198 LBL b 199 E12 200 / 201 XEQ 01 202 E12 203 * 204 RTN 205 STOP 206 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall