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 Astrology 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 = +3.978812030E-1 RR002 = +9.174369450E-1 RR003 = +0.000000000E+0 RR004 = +0.000000000E+0 RR005 = +3.652500000E+2 RR006 = +3.060010000E+1 RR007 = +0.000000000E+0 RR008 = +0.000000000E+0 RR009 = +0.000000000E+0 RR010 = +3.141592654E+0 RR011 = +2.234341321E+2 RR012 = +5.549656667E+4 RR013 = +3.600000000E+3 RR014 = +3.600000000E+2 RR015 = -1.773597313E-3 RR016 = +8.131300000E+4 RR017 = +4.800000000E+3 RR018 = +1.800000000E+0 RR019 = +2.352779100E+2 RR020 = +2.415020000E+6 RR021 = +6.570982200E-2 RR022 = +1.864606555E+1 RR023 = +1.002737812E+0 RR024 = +1.720982000E+6 RR025 = +3.600000000E+2
LINE KEYS 01 LBL "HRSCPE" 02 LBL 10 03 LBL A 04 CF 01 05 CF 00 06 HR 07 STO 03 08 RDN 09 HR 10 STO 04 11 RDN 12 HR 13 STO 00 14 RDN 15 ENTER 16 INT 17 STO 07 18 - 19 E2 20 * 21 ENTER 22 INT 23 STO 08 24 - 25 E4 26 * 27 STO 09 28 RCL 07 29 1 30 + 31 ENTER 32 1/X 33 .7 34 + 35 CHS 36 INT 37 ST+ 09 38 12 39 * 40 - 41 RCL 06 42 * 43 INT 44 RCL 09 45 RCL 05 46 * 47 INT 48 + 49 RCL 08 50 + 51 RCL 24 52 + 53 RCL 20 54 - 55 RCL 21 56 * 57 24 58 STO 08 59 / 60 FRC 61 RCL 08 62 * 63 RCL 22 64 + 65 RCL 00 66 ENTER 67 ENTER 68 RCL 08 69 / 70 STO 00 71 RDN 72 RCL 23 73 * 74 + 75 15 76 * 77 RCL 04 78 - 79 XEQ 09 80 RDN 81 STO 09 82 7PRTX 83 TAN 84 RCL 09 85 270 86 X<=Y? 87 SF 02 88 3 89 / 90 X<=Y? 91 FS?C 22 92 RDN 93 RDN 94 RCL 02 95 FS?C 02 96 GTO 08 97 FS?C 22 98 GTO 15 99 GTO 01 100 LBL 07 101 FS? 00 102 RTN 103 90 104 + 105 XEQ 09 106 RDN 107 STOP 108 LBL 12 109 LBL C 110 FS? 01 111 GTO 07 112 SF 01 113 RCL 09 114 COS 115 RCL 03 116 COS 117 * 118 STO 04 119 RCL 03 120 COS 121 RCL 09 122 SIN 123 RCL 02 124 * 125 STO 07 126 * 127 RCL 03 128 SIN 129 RCL 01 130 * 131 + 132 RCL 04 133 X<0? 134 GTO 01 135 X<>Y 136 X<0? 137 GTO 02 138 X<>Y 139 LBL 15 140 LBL a 141 XEQ 04 142 XEQ 03 143 LBL 01 144 XEQ 04 145 180 146 + 147 GTO 03 148 LBL 02 149 X<>Y 150 LBL 08 151 XEQ 04 152 RCL 25 153 + 154 GTO 03 155 LBL 04 156 / 157 ATAN 158 RTN 159 LBL 03 160 FS? 01 161 GTO 07 162 7PRTX 163 GTO 12 164 LBL 13 165 LBL D 166 RCL 00 167 1 168 X<=Y? 169 GTO 00 170 X<>Y 171 X>0? 172 GTO 06 173 X<>Y 174 CHS 175 LBL 00 176 7PRTX 177 ST- 00 178 LBL 06 179 STOP 180 HR 181 X<>Y 182 HR 183 - 184 LASTX 185 X<>Y 186 RCL 00 187 * 188 + 189 GTO 06 190 LBL 14 191 LBL E 192 .5 193 ST+ 00 194 GTO 13 195 LBL 09 196 RCL 25 197 X>Y? 198 RTN 199 - 200 GTO 09 201 LBL 11 202 LBL B 203 SF 00 204 RCL 09 205 COS 206 RCL 01 207 RCL 03 208 TAN 209 / 210 RCL 07 211 - 212 X<0? 213 GTO 05 214 GTO 01 215 LBL 05 216 X<>Y 217 X<0? 218 GTO 04 219 GTO 08 220 GTO 67 221 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall