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