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