The Museum of HP Calculators


Binary Star Ephemeris (HP67 Version) 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 Space Science Solution Book. 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.

Note: This is the original HP-67 version (as translated by the HP-41C card reader.)  Tony has also provided a version that was modified for the HP-41C

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 "BINSTR"
 02 LBL 10
 03 LBL A
 04 STO 20
 05 RCL 02
 06 -
 07 2
 08 *
 09 PI
 10 *
 11 RCL 01
 12 /
 13 STO 08
 14 RAD
 15 LBL 00
 16 ENTER
 17 SIN
 18 RCL 03
 19 *
 20 RCL 08
 21 +
 22 -
 23 LASTX
 24 ENTER
 25 RDN
 26 /
 27 ABS
 28  E-5
 29 X<=Y?
 30 SF 02
 31 R^
 32 FS?C 02
 33 GTO 00
 34 ENTER
 35 COS
 36 RCL 03
 37 *
 38 1
 39 X<>Y
 40 -
 41 RCL 04
 42 *
 43 STO 08
 44 RDN
 45 2
 46 /
 47 TAN
 48 DEG
 49 1
 50 RCL 03
 51 +
 52 1
 53 RCL 03
 54 -
 55 /
 56 SQRT
 57 *
 58 ATAN
 59 2
 60 *
 61 RCL 05
 62 +
 63 ENTER
 64 TAN
 65 RCL 06
 66 COS
 67 *
 68 ATAN
 69 X<>Y
 70 COS
 71 RCL 08
 72 *
 73 X<>Y
 74 COS
 75 LASTX
 76 RDN
 77 /
 78 R^
 79 RCL 07
 80 +
 81 RDN
 82 X<0?
 83 SF 02
 84 ABS
 85 STO 21
 86 CLX
 87 180
 88 R^
 89 FS?C 02
 90 +
 91 360
 92 X>Y?
 93 CLX
 94 -
 95 STO 22
 96 RCL 21
 97 7PRTX
 98 X<>Y
 99 RTN
100 LBL 11
101 LBL B
102 CF 22
103 7
104 STO 25
105 0
106 7PRTX
107 MRG
108 PSE
109 FS?C 22
110 RTN
111 1
112 STO 25
113 LBL 01
114 CF 22
115 PSE
116 FS?C 22
117 GTO 02
118 STOP
119 LBL 02
120 STO IND 25
121 7ISZ
122 7
123 RCL 25
124 X<=Y?
125 GTO 01
126 CLX
127 WDTA
128 RTN
129 LBL 13
130 LBL D
131 7P<>S
132 RTN
133 LBL 12
134 LBL C
135 STO 25
136 GTO 01
137 LBL 14
138 LBL E
139 X<>Y
140 RTN
141 STOP
142 END

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