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 High Level Math 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
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 = +0.000000000E+0 RR001 = +0.000000000E+0 RR002 = +0.000000000E+0 RR003 = +0.000000000E+0 RR004 = +0.000000000E+0 RR005 = +0.000000000E+0 RR006 = +0.000000000E+0 RR007 = +0.000000000E+0 RR008 = +0.000000000E+0 RR009 = +0.000000000E+0 RR010 = +0.000000000E+0 RR011 = -5.771916520E-1 RR012 = +9.882058910E-1 RR013 = -8.970569370E-1 RR014 = +9.182068570E-1 RR015 = -7.567040780E-1 RR016 = +4.821993940E-1 RR017 = -1.935278180E-1 RR018 = +3.586834300E-2 RR019 = +1.000000000E+0 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 "SPFNA" 02 LBL 10 03 LBL A 04 X<0? 05 LN 06 7P<>S 07 ENTER 08 1 09 X>Y? 10 GTO 04 11 - 12 1 13 LBL 08 14 X<>Y 15 X>Y? 16 GTO 01 17 ENTER 18 ENTER 19 ENTER 20 RCL 08 21 * 22 RCL 07 23 XEQ 00 24 RCL 06 25 XEQ 00 26 RCL 05 27 XEQ 00 28 RCL 04 29 XEQ 00 30 RCL 03 31 XEQ 00 32 RCL 02 33 XEQ 00 34 RCL 01 35 XEQ 00 36 XEQ 02 37 RCL 09 38 * 39 1 40 STO 09 41 CLX 42 + 43 7P<>S 44 RTN 45 LBL 01 46 ST* 09 47 X<>Y 48 - 49 1 50 GTO 08 51 LBL 00 52 + 53 * 54 RTN 55 LBL 04 56 X<>Y 57 ENTER 58 ST/ 09 59 XEQ 02 60 7P<>S 61 GTO 10 62 LBL 11 63 LBL B 64 STO 03 65 RDN 66 STO 04 67 RDN 68 STO 05 69 RDN 70 STO 06 71 400 72 STO 25 73 0 74 STO 20 75 1 76 STO 21 77 LBL 03 78 RCL 03 79 RCL 20 80 RCL 06 81 XEQ 00 82 RCL 20 83 RCL 05 84 XEQ 00 85 RCL 04 86 RCL 20 87 + 88 / 89 RCL 20 90 XEQ 02 91 STO 20 92 / 93 RCL 21 94 * 95 STO 21 96 + 97 X=Y? 98 RTN 99 7DSZ 100 GTO 03 101 0 102 / 103 LBL 12 104 LBL C 105 STO 21 106 RDN 107 CHS 108 XEQ 09 109 STO 22 110 RDN 111 STO 23 112 RDN 113 XEQ 02 114 STO 24 115 RCL 21 116 + 117 XEQ 10 118 STO 07 119 RCL 24 120 XEQ 10 121 ST/ 07 122 RCL 21 123 1 124 + 125 XEQ 10 126 ST/ 07 127 RCL 21 128 RCL 23 129 + 130 RCL 24 131 + 132 RCL 21 133 CHS 134 RCL 24 135 RCL 22 136 XEQ 11 137 RCL 07 138 * 139 RTN 140 LBL 13 141 LBL D 142 RDN 143 RDN 144 CLX 145 RDN 146 CLX 147 RDN 148 GTO 12 149 LBL 14 150 LBL E 151 RDN 152 STO 01 153 R^ 154 CHS 155 ENTER 156 CHS 157 RCL 01 158 CHS 159 XEQ 09 160 .5 161 X<>Y 162 GTO 11 163 LBL 15 164 LBL a 165 STO 01 166 RDN 167 CHS 168 XEQ 09 169 STO 02 170 RDN 171 2 172 * 173 STO 03 174 RCL 01 175 + 176 XEQ 10 177 STO 07 178 RCL 03 179 XEQ 10 180 ST/ 07 181 RCL 01 182 XEQ 02 183 XEQ 10 184 ST/ 07 185 RCL 03 186 RCL 01 187 + 188 RCL 01 189 CHS 190 RCL 03 191 XEQ 09 192 RCL 02 193 XEQ 11 194 RCL 07 195 * 196 RTN 197 LBL 16 198 LBL b 199 XEQ 02 200 XEQ 14 201 RCL 01 202 * 203 STO 08 204 RCL 01 205 RCL 05 206 XEQ 02 207 XEQ 14 208 RCL 08 209 - 210 1 211 RCL 01 212 X^2 213 - 214 / 215 CHS 216 RTN 217 LBL 09 218 XEQ 02 219 2 220 / 221 RTN 222 LBL 02 223 1 224 + 225 RTN 226 STOP 227 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall