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