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 Physics 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 = +4.064882535E-3 RR011 = +1.550000000E+0 RR012 = +1.247951766E-3 RR013 = +1.700000000E+0 RR014 = +1.316000000E-8 RR015 = +2.000000000E+0 RR016 = +9.569787630E-3 RR017 = +3.000000000E+0 RR018 = +6.336817507E-14 RR019 = +5.000000000E+0 RR020 = +0.000000000E+0 RR021 = +1.800000000E+3 RR022 = +1.370000000E+3 RR023 = +1.230000000E+3 RR024 = +9.700000000E+2 RR025 = +0.000000000E+0
LINE KEYS 01 LBL "TRAJCT" 02 LBL 10 03 LBL A 04 FS? 00 05 ADV 06 XEQ 13 07 RCL 07 08 STO 02 09 10 10 STO 25 11 RCL 20 12 STO 04 13 XEQ 01 14 RCL 09 15 XEQ 01 16 RCL 06 17 7DSP3 18 XEQ 01 19 7DSP0 20 FS? 00 21 ADV 22 LBL 11 23 LBL B 24 FS? 00 25 ADV 26 XEQ 08 27 FS? 00 28 ADV 29 XEQ 02 30 XEQ 03 31 XEQ 04 32 XEQ 05 33 XEQ 06 34 RCL 07 35 ST+ 02 36 RCL 02 37 RCL 08 38 X<=Y? 39 RTN 40 GTO 11 41 LBL 01 42 FS? 00 43 GTO 15 44 PSE 45 PSE 46 RTN 47 LBL 15 48 LBL a 49 7PRTX 50 RTN 51 LBL 02 52 RCL 04 53 XEQ 07 54 RCL 07 55 * 56 2 57 * 58 RCL 06 59 / 60 CHS 61 RCL 04 62 X^2 63 + 64 SQRT 65 XEQ 01 66 RTN 67 LBL 03 68 RCL 04 69 X<>Y 70 + 71 LASTX 72 STO 04 73 X<>Y 74 STO 03 75 RCL 04 76 X^2 77 RCL 09 78 * 79 450240 80 / 81 FS? 01 82 XEQ 01 83 RTN 84 LBL 04 85 RCL 03 86 1/X 87 2 88 * 89 RCL 07 90 * 91 ST+ 05 92 * 93 RCL 05 94 7DSP4 95 FS? 01 96 XEQ 01 97 RTN 98 LBL 05 99 X^2 100 48.26 101 * 102 7DSP2 103 XEQ 01 104 RTN 105 LBL 06 106 4 107 * 108 3 109 / 110 RCL 04 111 RCL 20 112 / 113 SQRT 114 2 115 * 116 1 117 + 118 * 119 XEQ 01 120 RTN 121 LBL 07 122 26 E2 123 X<=Y? 124 GTO 00 125 X<>Y 126 RCL 21 127 X<=Y? 128 GTO 17 129 X<>Y 130 RCL 22 131 X<=Y? 132 GTO 19 133 X<>Y 134 RCL 23 135 X<=Y? 136 GTO 18 137 18 138 STO 25 139 LBL 16 140 LBL b 141 RCL 04 142 RCL IND 25 143 7ISZ 144 RCL IND 25 145 X<>Y 146 RDN 147 Y^X 148 R^ 149 * 150 RTN 151 LBL 00 152 10 153 STO 25 154 GTO 16 155 LBL 17 156 LBL c 157 12 158 STO 25 159 GTO 16 160 LBL 19 161 LBL e 162 14 163 STO 25 164 GTO 16 165 LBL 18 166 LBL d 167 16 168 STO 25 169 GTO 16 170 LBL 13 171 LBL D 172 0 173 STO 02 174 STO 05 175 RTN 176 LBL 08 177 RCL 02 178 3 179 / 180 7DSP0 181 XEQ 01 182 RTN 183 LBL 14 184 LBL E 185 STO 00 186 X<>Y 187 STO 01 188 STO 04 189 XEQ 07 190 2 191 * 192 RCL 07 193 * 194 RCL 01 195 X^2 196 CHS 197 RCL 00 198 X^2 199 + 200 / 201 XEQ 01 202 RTN 203 STOP 204 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall