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 HP-67 Earth Sciences 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.
The original HP-67 version of this program used Rapid Reverse Branching, an HP67 feature that doesn't work on the HP41. Tony modified this copy to work on the HP-41. The original program is available if you want to port it back to the HP-67.
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
Download Data Set (.d41) See Note under Data Sets
(below.)
Currently, we know how to transfer the .d41 files to an HP-4C1 with Tony Duell's LIF Utilities for linux. Other users can enter the register listings below by hand. If you determine how DOS users can transfer these files, please let me know. The data should be saved to a magnetic card.
RR000 = +2.426254453E+2 RR001 = -4.271071252E+3 RR002 = +2.697821331E+8 RR003 = +6.244684600E+2 RR004 = +3.666450400E-1 RR005 = +3.823128854E-3 RR006 = -1.029627108E-3 RR007 = +1.041185084E+0 RR008 = +0.000000000E+0 RR009 = +0.000000000E+0 RR010 = +2.731600000E+2 RR011 = +3.496503497E+0 RR012 = +1.062445218E+0 RR013 = +2.400738510E+0 RR014 = +1.519783650E-1 RR015 = +1.670312578E+3 RR016 = +1.112137286E+2 RR017 = +5.284246205E+3 RR018 = +8.384300279E+6 RR019 = +9.754738020E-1 RR020 = +0.000000000E+0 RR021 = +0.000000000E+0 RR022 = +0.000000000E+0 RR023 = +0.000000000E+0 RR024 = +0.000000000E+0 RR025 = +0.000000000E+0
LINE KEYS 01 LBL "ATM41" 02 LBL 19 03 LBL e 04 RCL 00 05 + 06 1/X 07 RCL 01 08 * 09 E^X 10 RCL 02 11 * 12 RTN 13 LBL 14 14 LBL E 15 RCL 24 16 X<>Y 17 XEQ 19 18 / 19 1 20 - 21 1/X 22 RCL 03 23 * 24 RTN 25 LBL 18 26 LBL d 27 STO 24 28 X<>Y 29 STO 23 30 RTN 31 LBL 16 32 LBL b 33 STO 20 34 RTN 35 XEQ 14 36 RCL 23 37 RCL 06 38 * 39 RCL 07 40 + 41 RCL 23 42 RCL 20 43 - 44 * 45 STO 25 46 RCL 04 47 * 48 - 49 1 50 RCL 05 51 RCL 25 52 * 53 + 54 / 55 STO 25 56 RCL 24 57 * 58 RCL 25 59 RCL 03 60 + 61 / 62 RCL 02 63 / 64 LN 65 1/X 66 RCL 01 67 * 68 RCL 00 69 - 70 RTN 71 LBL 17 72 LBL c 73 STO 21 74 RTN 75 RCL 21 76 XEQ 14 77 RCL 23 78 XEQ 14 79 / 80 RTN 81 LBL 15 82 LBL a 83 STO 22 84 RTN 85 RCL 23 86 XEQ 14 87 * 88 STO 08 89 RCL 05 90 * 91 RCL 04 92 + 93 RCL 06 94 RCL 23 95 * 96 RCL 07 97 + 98 * 99 STO 09 100 RCL 23 101 * 102 ST+ 08 103 RCL 23 104 LBL 31 105 RDN 106 ENTER 107 ENTER 108 XEQ 14 109 STO 20 110 X<>Y 111 RCL 09 112 * 113 + 114 RCL 08 115 - 116 RCL 00 117 R^ 118 + 119 X^2 120 RCL 01 121 X<>Y 122 / 123 RCL 20 124 * 125 RCL 09 126 - 127 / 128 + 129 LASTX 130 ABS 131 .01 132 - 133 X>0? 134 GTO 31 135 RDN 136 RTN 137 LBL 10 138 LBL A 139 RCL 23 140 XEQ 19 141 RCL 22 142 * 143 RCL 23 144 XEQ 00 145 / 146 7P<>S 147 RCL 04 148 Y^X 149 RCL 05 150 * 151 RCL 06 152 7P<>S 153 - 154 STOP 155 XEQ 00 156 RCL 23 157 XEQ 00 158 / 159 RCL 24 160 * 161 RTN 162 LBL 11 163 LBL B 164 RCL 23 165 XEQ 14 166 RCL 22 167 * 168 7P<>S 169 RCL 02 170 Y^X 171 RCL 03 172 * 173 7P<>S 174 RCL 23 175 + 176 RTN 177 LBL 13 178 LBL D 179 7P<>S 180 RCL 00 181 + 182 E3 183 RCL 24 184 / 185 RCL 01 186 1/X 187 Y^X 188 * 189 RCL 00 190 - 191 7P<>S 192 RTN 193 LBL 12 194 LBL C 195 RCL 23 196 XEQ 19 197 RCL 24 198 / 199 RCL 23 200 7P<>S 201 RCL 00 202 + 203 / 204 STO 25 205 RCL 07 206 * 207 RCL 09 208 + 209 RCL 25 210 RCL 23 211 RCL 00 212 + 213 / 214 RCL 08 215 * 216 1 217 + 218 / 219 7P<>S 220 RTN 221 LBL 00 222 7P<>S 223 RCL 00 224 + 225 RCL 01 226 7P<>S 227 Y^X 228 RTN 229 STOP 230 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall