The Museum of HP Calculators


Geocentric Distance - Azimuth 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 Earth Sciences Solution Book. 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 "GEOCNT"
 02 LBL 10
 03 LBL A
 04 STO 03
 05 X<>Y
 06 XEQ 12
 07 1
 08 P-R
 09 STO 02
 10 RDN
 11 STO 01
 12 STOP
 13 LBL 11
 14 LBL B
 15 STO 06
 16 X<>Y
 17 XEQ 12
 18 1
 19 P-R
 20 STO 05
 21 X<>Y
 22 STO 04
 23 RCL 01
 24 *
 25 X<>Y
 26 RCL 02
 27 *
 28 RCL 06
 29 RCL 03
 30 -
 31 1
 32 P-R
 33 STO 06
 34 X<>Y
 35 STO 07
 36 RDN
 37 *
 38 +
 39 RCL 02
 40 RCL 04
 41 *
 42 STO 04
 43 RCL 01
 44 RCL 05
 45 *
 46 RCL 06
 47 *
 48 -
 49 RCL 05
 50 RCL 07
 51 *
 52 X<>Y
 53 R-P
 54 R^
 55 R-P
 56 RDN
 57 STOP
 58 XEQ 00
 59 STOP
 60 RCL 02
 61 RCL 07
 62 CHS
 63 *
 64 RCL 05
 65 RCL 01
 66 *
 67 RCL 06
 68 RCL 04
 69 *
 70 -
 71 R-P
 72 LBL 00
 73 X<>Y
 74 0
 75 X<>Y
 76 X>Y?
 77 RTN
 78 360
 79 +
 80 RTN
 81 LBL 12
 82 LBL C
 83 TAN
 84 RCL 08
 85 *
 86 ATAN
 87 RTN
 88 LBL 13
 89 LBL D
 90 .993305
 91 STO 08
 92 RTN
 93 LBL 14
 94 LBL E
 95 1
 96 STO 08
 97 RTN
 98 STOP
 99 END

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