The Museum of HP Calculators


Astro 2 - Moon Asc Node, Nutation, Vernal Pt 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 "ASTRO2"
 02 LBL 10
 03 LBL A
 04 7.48
 05 RCL 20
 06 *
 07 6962911.23
 08 -
 09 RCL 20
 10 *
 11 933059.79
 12 +
 13 3600
 14 STO 03
 15 /
 16 360
 17 STO 04
 18 /
 19 FRC
 20 RCL 04
 21 *
 22 0
 23 X<=Y?
 24 GTO 01
 25 RCL 04
 26 +
 27 LBL 01
 28 +
 29 STO 01
 30 259205536
 31 RCL 20
 32 *
 33 2013816
 34 +
 35 RCL 03
 36 /
 37 STO 02
 38 COS
 39 .55
 40 *
 41 RCL 01
 42 COS
 43 9.21
 44 *
 45 +
 46 RCL 03
 47 /
 48 STO 05
 49 17.23
 50 RCL 01
 51 SIN
 52 *
 53 1.27
 54 RCL 02
 55 SIN
 56 *
 57 +
 58 1.11
 59 RCL 20
 60 *
 61 5025.64
 62 +
 63 RCL 20
 64 *
 65 -
 66 84038.27
 67 -
 68 RCL 03
 69 /
 70 STO 24
 71 LBL 12
 72 LBL C
 73 RCL 01
 74 HMS
 75 STOP
 76 ENTER
 77 ENTER
 78 30
 79 /
 80 INT
 81 1
 82 +
 83 STOP
 84 1
 85 -
 86 30
 87 *
 88 -
 89 STOP
 90 RCL 24
 91 30
 92 +
 93 HMS
 94 STOP
 95 GTO 12
 96 LBL 03
 97 0
 98 /
 99 GTO 03
100 LBL 19
101 LBL e
102 FS?C 02
103 GTO 04
104 GTO 03
105 LBL 04
106 RCL 21
107 RCL 05
108 +
109 STO 21
110 HMS
111 STOP
112 END

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