The Museum of HP Calculators


Precession of Rt Ascension & Declination 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.

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 "PRCRAD"
 02 LBL 10
 03 LBL A
 04 XEQ 09
 05 STO 00
 06 STOP
 07 LBL 11
 08 LBL B
 09 XEQ 09
 10 LBL 07
 11 RCL 00
 12 -
 13 STO 01
 14 18
 15 *
 16 302
 17 +
 18 RCL 01
 19 *
 20 1396
 21 RCL 00
 22 *
 23 +
 24 2304250
 25 +
 26 RCL 01
 27 *
 28 36 E5
 29 STO 05
 30 /
 31 STO 02
 32 RCL 01
 33 X^2
 34 791
 35 *
 36 RCL 05
 37 /
 38 +
 39 STO 03
 40 42-
 41 RCL 01
 42 *
 43 426
 44 -
 45 RCL 01
 46 *
 47 853
 48 RCL 00
 49 *
 50 -
 51 2004682
 52 +
 53 RCL 01
 54 *
 55 RCL 05
 56 /
 57 STO 04
 58 RCL 01
 59 STOP
 60 LBL 14
 61 LBL E
 62 HR
 63 X<>Y
 64 HR
 65 15
 66 *
 67 RCL 02
 68 +
 69 X<>Y
 70 1
 71 P-R
 72 RDN
 73 X<>Y
 74 R^
 75 P-R
 76 X<>Y
 77 STO 06
 78 RDN
 79 X<>Y
 80 R-P
 81 X<>Y
 82 RCL 04
 83 -
 84 X<>Y
 85 P-R
 86 STO 07
 87 RDN
 88 RCL 06
 89 X<>Y
 90 R-P
 91 X<>Y
 92 RCL 03
 93 +
 94 360
 95 /
 96 1
 97 +
 98 FRC
 99 24
100 *
101 HMS
102 STOP
103 RCL 07
104 ASIN
105 HMS
106 STOP
107 LBL 09
108 2415020.313
109 -
110 36524.22
111 /
112 RTN
113 LBL 15
114 LBL a
115 XEQ 08
116 STO 00
117 STOP
118 LBL 16
119 LBL b
120 XEQ 08
121 GTO 07
122 LBL 08
123 1900
124 -
125 100
126 /
127 RTN
128 STOP
129 END

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