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