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