The Museum of HP Calculators

Short Wave Transmission Path Calculations 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

Program Listing

LINE  KEYS
 01 LBL "SWTP"
 02 FIX 04
 03 DEG
 04 "LAT."
 05 ASTO 10
 06 "LONG."
 07 ASTO 11
 08 "REC. "
 09 ASTO 12
 10 ARCL 10
 11 " ?"
 12 PROMPT
 13 HR
 14 STO 02
 15 CLA
 16 ARCL 12
 17 ARCL 11
 18 " ?"
 19 PROMPT
 20 HR
 21 STO 01
 22 "TRAN. "
 23 ASTO 12
 24 ARCL 10
 25 " ?"
 26 PROMPT
 27 HR
 28 STO 05
 29 CLA
 30 ARCL 12
 31 ARCL 11
 32 " ?"
 33 PROMPT
 34 HR
 35 STO 04
 36 RCL 01
 37 -
 38 COS
 39 RCL 02
 40 COS
 41 *
 42 RCL 05
 43 COS
 44 *
 45 RCL 02
 46 SIN
 47 RCL 05
 48 SIN
 49 *
 50 +
 51 ACOS
 52 STO 00
 53 RCL 02
 54 RCL 05
 55 XEQ 02
 56 STO 03
 57 RCL 05
 58 RCL 02
 59 XEQ 02
 60 STO 06
 61 RCL 00
 62 36
 63 /
 64 1
 65 +
 66 INT
 67 STO 07
 68 RCL 04
 69 RCL 01
 70 -
 71 1
 72 P-R
 73 R-P
 74 RDN
 75 X>0?
 76 GTO 01
 77 RCL 03
 78 HMS
 79 360
 80 RCL 06
 81 -
 82 GTO 05
 83 LBL 01
 84 360
 85 RCL 03
 86 -
 87 HMS
 88 RCL 06
 89 LBL 05
 90 HMS
 91 "BTR="
 92 ARCL X
 93 PROMPT
 94 "BRT="
 95 ARCL Y
 96 PROMPT
 97 RTN
 98 LBL 02
 99 SIN
100 X<>Y
101 STO 12
102 SIN
103 RCL 00
104 COS
105 *
106 -
107 RCL 00
108 SIN
109 RCL 12
110 COS
111 *
112 /
113 ACOS
114 RTN
115 LBL "N"
116 FIX 00
117 CF 29
118 "N="
119 ARCL 07
120 FIX 02
121 SF 29
122 PROMPT
123 RCL 00
124 69.05
125 *
126 "DMI="
127 ARCL X
128 PROMPT
129 RCL 00
130 111.12
131 *
132 "DKM="
133 ARCL X
134 PROMPT
135 RTN
136 LBL "RCP"
137 RCL 07
138 2
139 *
140 1
141 -
142 "R"
143 ASTO 08
144 XEQ 09
145 1
146 "T"
147 ASTO 08
148 GTO 09
149 LBL "MNP"
150 90
151 RCL 03
152 X#Y?
153 X>Y?
154 GTO 06
155 COS
156 RCL 02
157 TAN
158 /
159 ATAN
160 PI
161 R-D
162 X<>Y
163 X<0?
164 +
165 "N"
166 ASTO 08
167 RCL 00
168 X<>Y
169 X<=Y?
170 GTO 03
171 LBL 06
172 "NO MNP"
173 PROMPT
174 RTN
175 LBL "MRP"
176 "M?"
177 PROMPT
178 "M"
179 ASTO 08
180 STO 12
181 2
182 /
183 FRC
184 "IONESPHERE"
185 X=0?
186 "GROUND"
187 PROMPT
188 RCL 12
189 LBL 09
190 RCL 07
191 2
192 *
193 /
194 CHS
195 1
196 +
197 RCL 00
198 *
199 LBL 03
200 FIX 04
201 STO 09
202 COS
203 RCL 02
204 SIN
205 *
206 RCL 09
207 SIN
208 RCL 02
209 COS
210 *
211 RCL 03
212 COS
213 *
214 +
215 ASIN
216 STO 12
217 HMS
218 CLA
219 ARCL 08
220 ARCL 10
221 "="
222 ARCL X
223 PROMPT
224 RCL 09
225 COS
226 RCL 12
227 SIN
228 RCL 02
229 SIN
230 *
231 -
232 RCL 12
233 COS
234 /
235 RCL 02
236 COS
237 /
238 ACOS
239 RCL 04
240 RCL 01
241 -
242 1
243 P-R
244 R-P
245 RDN
246 ABS
247 X=0?
248 GTO 04
249 LASTX
250 /
251 *
252 LBL 04
253 RCL 01
254 +
255 1
256 P-R
257 R-P
258 RDN
259 HMS
260 CLA
261 ARCL 08
262 ARCL 11
263 "="
264 ARCL X
265 PROMPT
266 RTN
267 END

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