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