The Museum of HP Calculators


Great Circle and Rhumb Line Navigation 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.

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 "GCRL67"
 02 LBL 15
 03 LBL a
 04 HR
 05 STO 01
 06 RDN
 07 HR
 08 STO 00
 09 RTN
 10 LBL 10
 11 LBL A
 12 HR
 13 STO 03
 14 RDN
 15 HR
 16 STO 02
 17 RTN
 18 LBL 11
 19 LBL B
 20 RCL 00
 21 SIN
 22 RCL 02
 23 SIN
 24 *
 25 RCL 00
 26 COS
 27 RCL 02
 28 COS
 29 *
 30 RCL 03
 31 RCL 01
 32 -
 33 STO 24
 34 COS
 35 *
 36 +
 37 ACOS
 38 STO 04
 39 XEQ 17
 40 RCL 02
 41 SIN
 42 RCL 00
 43 SIN
 44 RCL 04
 45 COS
 46 *
 47 -
 48 RCL 04
 49 SIN
 50 /
 51 RCL 00
 52 COS
 53 /
 54 ACOS
 55 RCL 24
 56 SIN
 57 X<0?
 58 GTO 01
 59 RDN
 60 XEQ 18
 61 -
 62 CHS
 63 GTO 00
 64 LBL 01
 65 RDN
 66 LBL 00
 67 STO 05
 68 XEQ 05
 69 RTN
 70 LBL 12
 71 LBL C
 72 HR
 73 STO 06
 74 RTN
 75 LBL 13
 76 LBL D
 77 RCL 24
 78 COS
 79 ACOS
 80 RCL 06
 81 /
 82 ABS
 83 STO 25
 84 RCL 00
 85 STO 21
 86 7DSP4
 87 XEQ 08
 88 RCL 01
 89 STO 20
 90 XEQ 08
 91 HR
 92 XEQ 09
 93 LBL 03
 94 XEQ 00
 95 RCL 03
 96 RCL 08
 97 STO 20
 98 XEQ 09
 99 7DSZ
100 GTO 03
101 RCL 20
102 RCL 03
103 X=Y?
104 RTN
105 LBL 00
106 STO 08
107 XEQ 07
108 XEQ 19
109 FS? 00
110 ADV
111 RCL 09
112 7DSP4
113 STO 21
114 XEQ 08
115 RCL 08
116 LBL 08
117 HMS
118 LBL 05
119 FS? 00
120 7PRTX
121 FS? 00
122 RTN
123 STOP
124 RTN
125 LBL 09
126 RCL 06
127 +
128 1
129 P-R
130 R-P
131 RDN
132 RTN
133 LBL 18
134 LBL d
135 360
136 RTN
137 LBL 19
138 LBL e
139 FS? 00
140 ADV
141 RCL 20
142 RCL 08
143 -
144 STO 22
145 2
146 /
147 SIN
148 ASIN
149 90
150 /
151 PI
152 *
153 RCL 09
154 XEQ 04
155 RCL 21
156 XEQ 04
157 -
158 R-P
159 RDN
160 STO 23
161 RCL 22
162 SIN
163 ASIN
164 X<0?
165 GTO 00
166 RCL 23
167 GTO 01
168 LBL 00
169 XEQ 18
170 RCL 23
171 ABS
172 -
173 LBL 01
174 ABS
175 7DSP0
176 XEQ 05
177 RCL 22
178 RCL 09
179 COS
180 *
181 ENTER
182 RCL 09
183 RCL 21
184 -
185 RCL 23
186 COS
187 X#0?
188 /
189 ENTER
190 X=0?
191 R^
192 ABS
193 LBL 17
194 LBL c
195 60
196 *
197 GTO 05
198 LBL 04
199 2
200 /
201 45
202 +
203 TAN
204 LN
205 RTN
206 LBL 07
207 RCL 20
208 -
209 SIN
210 RCL 02
211 TAN
212 *
213 RCL 08
214 RCL 03
215 -
216 SIN
217 RCL 21
218 TAN
219 *
220 -
221 RCL 03
222 RCL 20
223 -
224 SIN
225 /
226 ATAN
227 STO 09
228 RTN
229 GTO 67
230 END

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