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