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 Solar Engineering 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 "IRRAD" 02 SF 21 03 CF 01 04 FIX 00 05 DEG 06 CF 29 07 SF 27 08 "MM.DDYYYY ?" 09 CF 22 10 RCL 06 11 PROMPT 12 FC?C 22 13 GTO 00 14 INT 15 STO 01 16 LASTX 17 FRC 18 100 19 * 20 INT 21 STO 06 22 LASTX 23 FRC 24 2500 25 * 26 FRC 27 STO 02 28 RCL 01 29 30.56 30 * 31 INT 32 30 33 - 34 ST+ 06 35 RCL 02 36 ENTER 37 X#0? 38 / 39 1 40 + 41 2 42 RCL 01 43 X<=Y? 44 GTO 00 45 RCL Z 46 ST- 06 47 LBL 00 48 "LAT. ?" 49 RCL 00 50 PROMPT 51 FS?C 22 52 HR 53 STO 00 54 1 55 P-R 56 STO 11 57 RDN 58 STO 10 59 "LONG. ?" 60 RCL 02 61 PROMPT 62 FS?C 22 63 HR 64 STO 02 65 "TIME MER. ?" 66 RCL 01 67 PROMPT 68 STO 01 69 "SLOPE ?" 70 RCL 03 71 PROMPT 72 STO 03 73 1 74 P-R 75 STO 13 76 RDN 77 STO 12 78 "AZIMUTH ?" 79 RCL 04 80 CF 22 81 PROMPT 82 FS?C 22 83 HR 84 STO 04 85 1 86 P-R 87 STO 15 88 RDN 89 STO 14 90 "TRAN. COEF. ?" 91 RCL 07 92 PROMPT 93 STO 07 94 RCL 06 95 284 96 + 97 .986 98 * 99 SIN 100 23.45 101 * 102 STO 05 103 1 104 P-R 105 STO 17 106 RDN 107 STO 16 108 RCL 06 109 81 110 - 111 .989 112 * 113 ENTER 114 SIN 115 1.5 116 * 117 CHS 118 X<>Y 119 ENTER 120 COS 121 7.53 122 * 123 CHS 124 X<>Y 125 2 126 * 127 SIN 128 9.87 129 * 130 + 131 + 132 CHS 133 60 134 / 135 RCL 01 136 RCL 02 137 - 138 15 139 / 140 + 141 STO 09 142 "A, B OR C?" 143 PROMPT 144 LBL A 145 HR 146 SF 00 147 XEQ 20 148 RCL 19 149 * 150 + 151 1/X 152 6 153 X<=Y? 154 GTO 03 155 RDN 156 RCL 07 157 X<>Y 158 Y^X 159 428 160 * 161 RCL 22 162 * 163 X>0? 164 GTO 04 165 LBL 03 166 0 167 LBL 04 168 "G=" 169 ARCL X 170 AVIEW 171 RTN 172 LBL B 173 15 174 * 175 STO 25 176 RDN 177 HR 178 X<>Y 179 HR 180 X<>Y 181 CF 00 182 XEQ 20 183 STO 19 184 LBL 01 185 RCL 23 186 RCL 24 187 - 188 RCL 25 189 X<=Y? 190 GTO 02 191 RDN 192 STO 25 193 SF 01 194 LBL 02 195 RCL 23 196 RCL 25 197 2 198 / 199 - 200 ENTER 201 COS 202 RCL 21 203 * 204 X<>Y 205 1/X 206 RCL 22 207 * 208 + 209 RCL 20 210 + 211 RCL 23 212 RCL 25 213 2 214 / 215 - 216 COS 217 RCL 19 218 * 219 RCL 18 220 + 221 1/X 222 RCL 07 223 X<>Y 224 Y^X 225 * 226 RCL 25 227 * 228 15 229 / 230 X<0? 231 0 232 ST+ 08 233 RCL 23 234 RCL 25 235 - 236 STO 23 237 FC?C 01 238 GTO 01 239 RCL 08 240 428 241 * 242 "~G=" 243 ARCL X 244 AVIEW 245 RTN 246 LBL 20 247 RCL 09 248 + 249 12 250 X<>Y 251 - 252 15 253 * 254 STO 24 255 FS? 00 256 GTO 00 257 RDN 258 RCL 09 259 + 260 12 261 X<>Y 262 - 263 15 264 * 265 STO 23 266 0 267 STO 08 268 GTO 02 269 LBL 00 270 1 271 P-R 272 STO 19 273 RDN 274 STO 18 275 LBL 02 276 RCL 16 277 RCL 10 278 * 279 RCL 13 280 * 281 RCL 16 282 RCL 11 283 * 284 RCL 12 285 * 286 RCL 15 287 * 288 - 289 STO 20 290 RCL 17 291 RCL 11 292 * 293 RCL 13 294 * 295 FC? 00 296 GTO 00 297 RCL 19 298 * 299 + 300 LBL 00 301 RCL 17 302 RCL 10 303 * 304 RCL 12 305 * 306 RCL 15 307 * 308 FS? 00 309 RCL 19 310 FS? 00 311 * 312 + 313 STO 21 314 RCL 17 315 RCL 12 316 * 317 RCL 14 318 * 319 FC? 00 320 GTO 00 321 RCL 18 322 * 323 + 324 LBL 00 325 STO 22 326 RCL 16 327 RCL 10 328 * 329 STO 18 330 RCL 17 331 RCL 11 332 * 333 RTN 334 LBL C 335 RCL 00 336 TAN 337 RCL 05 338 TAN 339 * 340 CHS 341 ACOS 342 15 343 / 344 STO 24 345 12 346 RCL 09 347 - 348 STO 25 349 X<>Y 350 - 351 "SUN R=" 352 XEQ 00 353 RCL 25 354 RCL 24 355 + 356 "SUN S=" 357 LBL 00 358 HMS 359 INT 360 ARCL X 361 ":" 362 9 363 LASTX 364 FRC 365 100 366 * 367 INT 368 X<=Y? 369 "
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall