The Museum of HP Calculators

House Cusps - Campanus Methods 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 "HCCAMP"
 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 1
113 P-R
114 RCL 04
115 /
116 R-P
117 X<>Y
118 STO 03
119 RCL 23
120 +
121 1
122 P-R
123 RCL 05
124 *
125 RCL 03
126 SIN
127 RCL 06
128 *
129 -
130 R-P
131 RDN
132 RCL 24
133 FS? 00
134 CLX
135 +
136 360
137 +
138 LASTX
139 /
140 LASTX
141 X<>Y
142 FRC
143 *
144 RCL 01
145 STOP
146 RDN
147 HMS
148 7DSP4
149 STOP
150 ENTER
151 ENTER
152 RCL 07
153 /
154 INT
155 1
156 +
157 STOP
158 1
159 -
160 RCL 07
161 *
162 -
163 STOP
164 7GTOI
165 STOP
166 END

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