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