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