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