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 Navigation 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.
This program produces a list of selected stars that are above the horizon at any place and time.
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
Download Data Set (.d41) See Note under Data Set
(below.)
Currently, we know how to transfer the .d41 files to an HP-4C1 with Tony Duell's LIF Utilities for linux. Other users can enter the register listings below by hand. If you determine how DOS users can transfer these files, please let me know.
The Data should be loaded before running the program.
RR000 = +0.000000000E+0 RR001 = +3.393721000E-1 RR002 = +1.894160088E+4 RR003 = +8.171737302E+4 RR004 = +7.226447856E+4 RR005 = +2.227041177E+4 RR006 = +5.447624512E+4 RR007 = +4.625679618E+4 RR008 = +5.958847426E+4 RR009 = +3.462274119E+4 RR010 = +8.909455238E+4 RR011 = +4.353615781E+4 RR012 = +4.185659664E+4 RR013 = +8.519219148E+4 RR014 = +5.633723035E+4 RR015 = +3.974384219E+4 RR016 = +9.228353662E+3 RR017 = +6.477270977E+4 RR018 = +4.317528825E+4 RR019 = +6.490745486E+4 RR020 = +8.211825485E+4 RR021 = +4.488867166E+4 RR022 = +0.000000000E+0 RR023 = +0.000000000E+0 RR024 = +0.000000000E+0 RR025 = +0.000000000E+0
LINE KEYS 01 LBL "STSP67" 02 LBL 15 03 LBL a 04 7DSP0 05 FS? 00 06 GTO 00 07 0 08 SF 00 09 RTN 10 LBL 00 11 1 12 CF 00 13 RTN 14 LBL 10 15 LBL A 16 HR 17 STO 22 18 RDN 19 HR 20 STO 00 21 RTN 22 LBL 11 23 LBL B 24 STO 23 25 X<>Y 26 STO 25 27 3056 28 % 29 INT 30 R^ 31 STO 24 32 RDN 33 RCL 23 34 + 35 STO 23 36 RCL 04 37 3 38 X>Y? 39 1 40 RCL 05 41 4 42 / 43 FRC 44 + 45 1 46 X<>Y 47 X=Y? 48 2 49 RCL 23 50 - 51 CHS 52 STO 25 53 FS?C 22 54 GTO 00 55 6- 56 SIN 57 X<>Y 58 20 59 - 60 COS 61 23.3 62 * 63 CHS 64 STO 24 65 SIN 66 RCL 00 67 SIN 68 * 69 - 70 RCL 00 71 COS 72 / 73 RCL 24 74 COS 75 / 76 ACOS 77 RCL 22 78 X<>Y 79 FS?C 02 80 CHS 81 - 82 LBL 00 83 X<> 25 84 72.2 85 + 86 RCL 22 87 - 88 STO 24 89 STO 22 90 RTN 91 LBL 14 92 LBL E 93 SF 02 94 LBL 13 95 LBL D 96 CF 22 97 XEQ 11 98 RCL 25 99 15 100 / 101 12 102 + 103 HMS 104 7DSP2 105 7PRTX 106 LBL 12 107 LBL C 108 HR 109 15 110 * 111 RCL 22 112 + 113 STO 24 114 21 115 STO 25 116 LBL 07 117 RCL IND 25 118 FRC 119 XEQ 19 120 RCL IND 25 121 INT 122 E5 123 / 124 XEQ 19 125 7DSZ 126 GTO 07 127 RTN 128 LBL 19 129 LBL e 130 10 131 * 132 XEQ 16 133 XEQ 16 134 30 135 * 136 347 137 + 138 X<>Y 139 INT 140 RCL 25 141 STO 22 142 + 143 RCL 25 144 + 145 2 146 - 147 STO 23 148 6 149 * 150 - 151 7DSP0 152 RND 153 RCL 24 154 + 155 X<>Y 156 INT 157 COS 158 ASIN 159 RCL 00 160 X<>Y 161 1 162 P-R 163 R^ 164 X<>Y 165 P-R 166 R^ 167 STO 25 168 X<>Y 169 P-R 170 X<> 25 171 R^ 172 P-R 173 X<> 25 174 + 175 X<> 25 176 - 177 R-P 178 RDN 179 180 180 + 181 RCL 22 182 X<> 25 183 ASIN 184 5 185 X<=Y? 186 XEQ 00 187 RTN 188 LBL 00 189 ADV 190 CLX 191 RCL 23 192 XEQ 05 193 7DSP2 194 HMS 195 XEQ 05 196 7DSP1 197 LBL 05 198 7PRTX 199 FS? 00 200 STOP 201 RDN 202 RTN 203 LBL 16 204 LBL b 205 18 206 * 207 FRC 208 LASTX 209 X<>Y 210 RTN 211 GTO 67 212 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall