The Museum of HP Calculators

# Star Sight Planner for the HP-41C/CV/CX

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)

## Data Set

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
```

## Program Listing

```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
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
```