The Museum of HP Calculators

Binary Star Ephemeris (HP41 Version) 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 "BNST41"
 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 0
104 7PRTX
105 0.007
106 RDTAX
107 PSE
108 FS?C 22
109 RTN
110 1
111 STO 25
112 LBL 01
113 CF 22
114 PSE
115 FS?C 22
116 GTO 02
117 STOP
118 LBL 02
119 STO IND 25
120 7ISZ
121 7
122 RCL 25
123 X<=Y?
124 GTO 01
125 CLX
126 WDTA
127 RTN
128 LBL 13
129 LBL D
130 7P<>S
131 RTN
132 LBL 12
133 LBL C
134 STO 25
135 GTO 01
136 LBL 14
137 LBL E
138 X<>Y
139 RTN
140 STOP
141 END

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