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