The Museum of HP Calculators

Horizon Distance, Great Circle Distance 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 = +1.852000000E+0
RR002 = +0.000000000E+0
RR003 = +0.000000000E+0
RR004 = +0.000000000E+0
RR005 = +0.000000000E+0
RR006 = +0.000000000E+0
RR007 = +0.000000000E+0
RR008 = +0.000000000E+0
RR009 = +0.000000000E+0
RR010 = +1.739290000E+3
RR011 = +2.420990000E+3
RR012 = +6.052000000E+3
RR013 = +6.371017000E+3
RR014 = +3.387550000E+3
RR015 = +7.137500000E+4
RR016 = +6.040000000E+4
RR017 = +2.350000000E+4
RR018 = +2.500000000E+4
RR019 = +2.930000000E+3
RR020 = +0.000000000E+0
RR021 = +0.000000000E+0
RR022 = +0.000000000E+0
RR023 = +0.000000000E+0
RR024 = +0.000000000E+0
RR025 = +0.000000000E+0

Program Listing

LINE  KEYS
 01 LBL "SPSCI1"
 02 LBL 10
 03 LBL A
 04 RCL 02
 05 ENTER
 06 X^2
 07 X<>Y
 08 RCL 00
 09 2
 10 *
 11 *
 12 +
 13 SQRT
 14 STOP
 15 ENTER
 16 ENTER
 17 RCL 01
 18 /
 19 STOP
 20 X<>Y
 21 RTN
 22 LBL 11
 23 LBL B
 24 RCL 00
 25 X<>Y
 26 /
 27 ATAN
 28 2
 29 *
 30 RTN
 31 LBL 12
 32 LBL C
 33 2
 34 /
 35 90
 36 X<>Y
 37 -
 38 RTN
 39 LBL 13
 40 LBL D
 41 D-R
 42 RCL 00
 43 *
 44 STOP
 45 RCL 01
 46 /
 47 STOP
 48 RCL 03
 49 ST+ 02
 50 RCL 02
 51 STOP
 52 XEQ 10
 53 LBL 14
 54 LBL E
 55 RCL 04
 56 HR
 57 SIN
 58 RCL 06
 59 HR
 60 SIN
 61 *
 62 RCL 04
 63 HR
 64 COS
 65 RCL 06
 66 HR
 67 COS
 68 *
 69 RCL 05
 70 HR
 71 RCL 07
 72 HR
 73 -
 74 ABS
 75 COS
 76 *
 77 +
 78 ACOS
 79 STOP
 80 D-R
 81 STO 08
 82 RCL 00
 83 *
 84 STOP
 85 RCL 01
 86 /
 87 RTN
 88 LBL 15
 89 LBL a
 90 PI
 91 2
 92 *
 93 RCL 08
 94 -
 95 RCL 00
 96 *
 97 STOP
 98 RCL 01
 99 /
100 RTN
101 STOP
102 END

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