The Museum of HP Calculators

Celestial Position 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 Space Science 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

Program Listing

LINE  KEYS
 01 LBL "CELPOS"
 02 LBL 15
 03 LBL a
 04 7DSP5
 05 HR
 06 STO 02
 07 X<>Y
 08 HR
 09 STO 01
 10 1977
 11 7DSP0
 12 RTN
 13 LBL 16
 14 LBL b
 15 X<>Y
 16 STO 04
 17 3
 18 X>Y?
 19 GTO 01
 20 XEQ 01
 21 R^
 22 4
 23 /
 24 FRC
 25 X=0?
 26 1
 27 RCL 03
 28 +
 29 INT
 30 RCL 04
 31 .4
 32 *
 33 2.3
 34 +
 35 INT
 36 -
 37 STO 03
 38 RTN
 39 LBL 01
 40 RDN
 41 1
 42 -
 43 31
 44 *
 45 +
 46 STO 03
 47 RTN
 48 LBL 10
 49 LBL A
 50 SF 00
 51 XEQ 02
 52 STO 06
 53 X<>Y
 54 HR
 55 STO 05
 56 RTN
 57 LBL 11
 58 LBL B
 59 SF 00
 60 STO 22
 61 RCL 02
 62 360
 63 STO 07
 64 /
 65 1
 66 X<>Y
 67 -
 68 .276518
 69 +
 70 X<>Y
 71 HR
 72 24
 73 /
 74 RCL 03
 75 +
 76 1.0027379
 77 *
 78 +
 79 FRC
 80 24
 81 *
 82 HMS
 83 STO 00
 84 7DSP5
 85 RTN
 86 LBL 12
 87 LBL C
 88 RCL 00
 89 CF 00
 90 XEQ 02
 91 RCL 06
 92 -
 93 STO 08
 94 RCL 01
 95 SIN
 96 RCL 05
 97 SIN
 98 *
 99 RCL 01
100 COS
101 RCL 05
102 COS
103 *
104 RCL 08
105 COS
106 *
107 +
108 STO 09
109 ASIN
110 STO 20
111 RCL 05
112 SIN
113 RCL 09
114 RCL 01
115 SIN
116 *
117 -
118 RCL 01
119 COS
120 /
121 RCL 20
122 COS
123 /
124 ACOS
125 RCL 08
126 SIN
127 7DSP1
128 X<0?
129 GTO 03
130 RDN
131 RCL 07
132 X<>Y
133 -
134 STO 21
135 RTN
136 LBL 03
137 RDN
138 STO 21
139 RTN
140 LBL 04
141 RTN
142 LBL 14
143 LBL E
144 7DSP5
145 RCL 00
146 RTN
147 LBL 12
148 LBL C
149 7DSP1
150 RCL 21
151 GTO 04
152 LBL 13
153 LBL D
154 FS? 00
155 XEQ 12
156 7DSP1
157 RCL 20
158 GTO 04
159 LBL 02
160 HR
161 15
162 *
163 RTN
164 LBL 17
165 LBL c
166 RCL 20
167 STO 23
168 RCL 21
169 STO 24
170 RCL 22
171 .1
172 +
173 XEQ 11
174 XEQ 12
175 RCL 24
176 -
177 6
178 *
179 STO 24
180 7DSP3
181 RTN
182 LBL 18
183 LBL d
184 RCL 20
185 RCL 23
186 -
187 6
188 *
189 STO 23
190 7DSP3
191 RTN
192 STOP
193 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall