The Museum of HP Calculators

Precession / Galactic Coordinates for the HP-41C/CV/CX

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
Download Data Set (.d41) See Note under Data Sets (below.)

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 saved to a magnetic card.

RR000 = +0.000000000E+0
RR001 = +0.000000000E+0
RR002 = +0.000000000E+0
RR003 = +0.000000000E+0
RR004 = +0.000000000E+0
RR005 = +0.000000000E+0
RR006 = +6.400694444E-3
RR007 = +3.877777778E-8
RR008 = +8.388888889E-9
RR009 = +5.000000000E-12
RR010 = +1.677500000E+2
RR011 = +6.260000000E+1
RR012 = -5.700000000E+1
RR013 = +0.000000000E+0
RR014 = +0.000000000E+0
RR015 = +0.000000000E+0
RR016 = +0.000000000E+0
RR017 = +0.000000000E+0
RR018 = +0.000000000E+0
RR019 = +0.000000000E+0
RR020 = +2.197222222E-8
RR021 = +5.568561111E-3
RR022 = -2.369444444E-8
RR023 = -1.183333337E-8
RR024 = -1.166666667E-11
RR025 = +0.000000000E+0

Program Listing

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

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