The Museum of HP Calculators

House Cusps - Topocentric Methods for the HP-41CX 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 "HCTPCN"
 02 LBL 01
 03 RCL 00
 04 PI
 05 X=Y?
 06 7P<>S
 07 RCL 22
 08 1
 09 P-R
 10 STO 04
 11 /
 12 RCL 21
 13 1
 14 P-R
 15 STO 05
 16 RDN
 17 *
 18 STO 06
 19 30
 20 STO 07
 21 45
 22 STO 08
 23 157.5
 24 STO 09
 25 0
 26 STO 03
 27 RTN
 28 LBL 15
 29 LBL a
 30 SF 00
 31 STOP
 32 LBL 19
 33 LBL e
 34 CF 00
 35 STOP
 36 LBL 09
 37 7DSP0
 38 12
 39 RCL 01
 40 1
 41 +
 42 X>Y?
 43 1
 44 STO 01
 45 RCL 07
 46 *
 47 60
 48 +
 49 STO 03
 50 GTO 02
 51 LBL 07
 52 7DSP1
 53 12.5
 54 RCL 01
 55 .5
 56 +
 57 X>Y?
 58 1
 59 STO 01
 60 RCL 07
 61 *
 62 RCL 08
 63 +
 64 STO 03
 65 GTO 02
 66 LBL 08
 67 7DSP1
 68 .5
 69 RCL 01
 70 .5
 71 -
 72 X#Y?
 73 GTO 06
 74 8.5
 75 LBL 06
 76 STO 01
 77 RCL 08
 78 CHS
 79 *
 80 RCL 09
 81 +
 82 STO 03
 83 GTO 02
 84 LBL 10
 85 LBL A
 86 XEQ 01
 87 7DSP0
 88 10
 89 STO 01
 90 9
 91 STO 25
 92 GTO 02
 93 LBL 11
 94 LBL B
 95 XEQ 01
 96 7DSP1
 97 3.5
 98 STO 01
 99 8
100 STO 25
101 GTO 02
102 LBL 12
103 LBL C
104 XEQ 01
105 7DSP1
106 10.5
107 STO 01
108 7
109 STO 25
110 LBL 02
111 RCL 03
112 RCL 23
113 +
114 1
115 P-R
116 RCL 05
117 *
118 RCL 03
119 90
120 /
121 1
122 -
123 ABS
124 4
125 /
126 FRC
127 4
128 *
129 2
130 -
131 ABS
132 1
133 -
134 RCL 06
135 *
136 -
137 R-P
138 RDN
139 RCL 24
140 FS? 00
141 CLX
142 +
143 360
144 +
145 LASTX
146 /
147 LASTX
148 X<>Y
149 FRC
150 *
151 RCL 01
152 STOP
153 RDN
154 HMS
155 7DSP4
156 STOP
157 ENTER
158 ENTER
159 RCL 07
160 /
161 INT
162 1
163 +
164 STOP
165 1
166 -
167 RCL 07
168 *
169 -
170 STOP
171 7GTOI
172 STOP
173 END

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