The Museum of HP Calculators

Sun Altitude, Azimuth for the HP-41C/CV/CX

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

Program Listing

LINE  KEYS
 01 LBL "ALMANAC"
 02 SF 27
 03 LBL A
 04 SF 21
 05 CF 22
 06 "MM.DDYYYY ?"
 07 PROMPT
 08 FC?C 22
 09 GTO 00
 10 INT
 11 STO 06
 12 LASTX
 13 FRC
 14 100
 15 *
 16 INT
 17 STO 03
 18 LASTX
 19 FRC
 20 1 E4
 21 *
 22 X<> Z
 23 3056
 24 %
 25 INT
 26 ST+ 03
 27 R^
 28 STO 04
 29 RCL 06
 30 3
 31 X>Y?
 32 1
 33 RCL 04
 34 4
 35 /
 36 FRC
 37 +
 38 1
 39 X<>Y
 40 X=Y?
 41 2
 42 RCL 04
 43 7
 44 -
 45 RCL 03
 46 365.25
 47 /
 48 +
 49 STO 06
 50 20
 51 *
 52 STO 04
 53 SIN
 54 4
 55 *
 56 50941
 57 +
 58 RCL 06
 59 7
 60 *
 61 +
 62 896
 63 /
 64 -
 65 ST- 03
 66 360
 67 ST* 03
 68 LBL 00
 69 "LAT ?"
 70 PROMPT
 71 HR
 72 FS?C 22
 73 STO 01
 74 "LONG ?"
 75 PROMPT
 76 HR
 77 FS?C 22
 78 STO 00
 79 "GMT ?"
 80 PROMPT
 81 HR
 82 15
 83 *
 84 FS?C 22
 85 STO 02
 86 RCL 02
 87 STO 05
 88 RCL 03
 89 +
 90 365.25
 91 /
 92 118.1
 93 RCL 04
 94 968
 95 /
 96 -
 97 +
 98 .2
 99 P-R
100 9.58
101 -
102 *
103 +
104 RCL 04
105 427
106 /
107 RCL 04
108 COS
109 -
110 8531.5
111 -
112 360
113 /
114 CHS
115 X<>Y
116 -1
117 P-R
118 RDN
119 P-R
120 R^
121 R-P
122 RDN
123 X<>Y
124 STO 07
125 ASIN
126 STO 06
127 RDN
128 -
129 ST+ 05
130 RCL 05
131 RCL 00
132 -
133 RCL 06
134 COS
135 P-R
136 RCL 01
137 STO 06
138 X<>Y
139 P-R
140 X<> 06
141 RCL 07
142 P-R
143 X<> 06
144 +
145 ASIN
146 X<> 06
147 -
148 R-P
149 RDN
150 180
151 +
152 "ZN="
153 ARCL X
154 AVIEW
155 "HC="
156 ARCL 06
157 AVIEW
158 RTN
159 LBL B
160 "N ?"
161 PROMPT
162 FS?C 22
163 STO 08
164 90
165 RCL 06
166 -
167 STO 05
168 SIN
169 RCL 08
170 /
171 ASIN
172 COS
173 STO 07
174 RCL 08
175 *
176 RCL 05
177 COS
178 +
179 1/X
180 X^2
181 RCL 05
182 COS
183 RCL 08
184 *
185 RCL 07
186 +
187 1/X
188 X^2
189 +
190 2
191 *
192 RCL 08
193 *
194 RCL 07
195 *
196 RCL 05
197 COS
198 *
199 100
200 *
201 "%E="
202 ARCL X
203 AVIEW
204 RTN
205 END

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