The Museum of HP Calculators

Astro 1 - Mean Obliquity of Ecliptic & GST :Astrology Solution Book 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 Astrology 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 "ASTRO1"
 02 LBL 10
 03 LBL A
 04 ENTER
 05 INT
 06 STO 03
 07 -
 08  E2
 09 *
 10 ENTER
 11 INT
 12 STO 04
 13 -
 14  E4
 15 *
 16 4800
 17 STO 07
 18 +
 19 12
 20 STO 05
 21 *
 22 RCL 03
 23 +
 24 3
 25 -
 26 ENTER
 27 STO 06
 28 RCL 05
 29 /
 30 INT
 31 RCL 05
 32 *
 33 -
 34 ENTER
 35 +
 36 7
 37 +
 38 365
 39 RCL 06
 40 *
 41 +
 42 RCL 05
 43 /
 44 INT
 45 RCL 04
 46 +
 47 RCL 06
 48 48
 49 /
 50 INT
 51 +
 52 32083
 53 -
 54 2299171
 55 X<>Y
 56 X<=Y?
 57 GTO 09
 58 RCL 06
 59 RCL 07
 60 /
 61 INT
 62 +
 63 RCL 06
 64 4
 65 *
 66 RCL 07
 67 /
 68 INT
 69 -
 70 38
 71 +
 72 LBL 09
 73 2415020
 74 -
 75 STO 02
 76 STOP
 77 LBL 11
 78 LBL B
 79 HR
 80 STO 22
 81 24
 82 /
 83 RCL 02
 84 +
 85 .5
 86 -
 87 36525
 88 /
 89 STO 20
 90 .013013-
 91 RCL 20
 92 *
 93 23.452294
 94 +
 95 STO 21
 96 26 E6-
 97 RCL 20
 98 *
 99 2400.051262
100 +
101 RCL 20
102 *
103 6.646066
104 +
105 RCL 22
106 +
107 24
108 /
109 FRC
110 24
111 *
112 STO 04
113 0
114 X<=Y?
115 GTO 01
116 24
117 ST+ 04
118 LBL 01
119 RCL 04
120 15
121 *
122 STO 23
123 LBL 02
124 RCL 21
125 HMS
126 STOP
127 RCL 04
128 HMS
129 STOP
130 RCL 20
131 STOP
132 GTO 02
133 STOP
134 END

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