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