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 M.E. 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.
BUG Note: The listing below and the .raw and .dat files contain a known bug. These files are reproduced here as shipped in the HP-67 M.E. Pac 1. However, for proper operation, the lines:
156 STO 8 157 GTO A
Should be deleted and replaced with GTO 5. This fix was originally document in Key Notes volume 4, number 1. Thanks to Andre Wilhelmus for pointing this out.
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 "HSPR67" 02 LBL 16 03 LBL b 04 STO 21 05 RDN 06 STO 20 07 RDN 08 STO 09 09 RTN 10 LBL 17 11 LBL c 12 STO 02 13 X<>Y 14 STO 01 15 RTN 16 LBL 18 17 LBL d 18 STO 04 19 X<>Y 20 STO 03 21 RCL 01 22 - 23 RCL 02 24 RCL 04 25 - 26 / 27 STO 05 28 ADV 29 7PRTX 30 RTN 31 LBL 19 32 LBL e 33 ADV 34 * 35 STO 06 36 CLX 37 LASTX 38 RCL 03 39 * 40 8 41 * 42 PI 43 / 44 X<>Y 45 STO 08 46 ST- 06 47 3 48 Y^X 49 / 50 7PRTX 51 RTN 52 LBL 10 53 LBL A 54 ADV 55 RCL 09 56 RCL 08 57 X^2 58 X^2 59 * 60 8 61 / 62 RCL 06 63 X^2 64 LASTX 65 * 66 / 67 RCL 05 68 / 69 STO 22 70 7PRTX 71 RTN 72 LBL 11 73 LBL B 74 ADV 75 RCL 01 76 RCL 05 77 / 78 RCL 02 79 + 80 STO 23 81 RCL 22 82 2 83 + 84 RCL 08 85 * 86 STO 24 87 - 88 RCL 05 89 * 90 RCL 06 91 RCL 08 92 / 93 XEQ 01 94 * 95 RCL 06 96 * 97 RCL 08 98 X^2 99 / 100 RCL 08 101 / 102 8 103 * 104 PI 105 / 106 STO 00 107 7PRTX 108 RTN 109 LBL 14 110 LBL E 111 ADV 112 RCL 23 113 7PRTX 114 RCL 24 115 7PRTX 116 RCL 06 117 7PRTX 118 RCL 08 119 + 120 7PRTX 121 RTN 122 LBL 15 123 LBL a 124 FS? 00 125 GTO 00 126 SF 00 127 0 128 RTN 129 LBL 00 130 1 131 CF 00 132 RTN 133 LBL 12 134 LBL C 135 RCL 04 136 RCL 24 137 - 138 RCL 23 139 RCL 04 140 - 141 .1 142 * 143 X<=Y? 144 GTO 00 145 XEQ 02 146 RDN 147 RCL 00 148 X<=Y? 149 GTO 03 150 1 151 RTN 152 LBL 03 153 RCL 08 154 2 155 RTN 156 STO 08 ; BUG - SEE ABOVE 157 GTO 10 ; replace these two lines with GTO 5 158 LBL 00 159 XEQ 02 160 RCL 00 161 X<=Y? 162 GTO 03 163 RCL 08 164 3 165 RTN 166 LBL 05 167 RCL 08 168 ST+ 06 169 RDN 170 STO 08 171 ST- 06 172 GTO 10 173 LBL 03 174 RCL 25 175 .3 176 * 177 RCL 00 178 X<=Y? 179 GTO 04 180 5 181 RTN 182 LBL 04 183 RCL 08 184 4 185 RTN 186 GTO 05 187 LBL 02 188 RCL 08 189 LN 190 RCL 21 191 * 192 RCL 20 193 + 194 ENTER 195 STO 25 196 .35 197 ENTER 198 .1 199 FS? 00 200 CLX 201 + 202 * 203 X<>Y 204 LASTX 205 .2 206 + 207 * 208 RTN 209 LBL 01 210 STO 00 211 4 212 * 213 1 214 - 215 ENTER 216 ENTER 217 3 218 - 219 / 220 .615 221 RCL 00 222 / 223 + 224 RTN 225 STOP 226 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall