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