The Museum of HP Calculators

House Cusps - Placidus Method 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 "HCPLCD"
 02 LBL 01
 03 RCL 22
 04 ABS
 05 90
 06 RCL 21
 07 -
 08 X<=Y?
 09 GTO 00
 10 RCL 00
 11 PI
 12 X=Y?
 13 7P<>S
 14 STO 06
 15 RCL 21
 16 1
 17 P-R
 18 STO 05
 19 /
 20 RCL 22
 21 TAN
 22 *
 23 STO 09
 24 0
 25 STO 07
 26 RCL 23
 27 D-R
 28 STO 08
 29 RTN
 30 LBL 10
 31 LBL A
 32 FS?C 02
 33 XEQ 01
 34 7
 35 STO 25
 36 10
 37 STO 01
 38 0
 39 STO 02
 40 LBL 02
 41 PI
 42 2
 43 /
 44 STO 03
 45 RAD
 46 LBL 03
 47 RCL 02
 48 RCL 03
 49 *
 50 RCL 08
 51 +
 52 STO 04
 53 RCL 09
 54 P-R
 55 RCL 02
 56 CHS
 57 *
 58 RCL 03
 59 SIN
 60 +
 61 X<>Y
 62 RCL 03
 63 COS
 64 +
 65 X<>Y
 66 /
 67 RCL 03
 68 +
 69 STO 03
 70 LASTX
 71 -
 72 ABS
 73  E8-
 74 X<=Y?
 75 GTO 03
 76 RCL 03
 77 RCL 02
 78 *
 79 RCL 08
 80 +
 81 RCL IND 25
 82 +
 83 1
 84 P-R
 85 RCL 05
 86 *
 87 DEG
 88 R-P
 89 X<>Y
 90 RCL 24
 91 FS? 00
 92 CLX
 93 +
 94 360
 95 +
 96 LASTX
 97 /
 98 LASTX
 99 X<>Y
100 FRC
101 *
102 RCL 01
103 7DSP0
104 STOP
105 RDN
106 HMS
107 7DSP4
108 STOP
109 ENTER
110 ENTER
111 30
112 /
113 INT
114 1
115 +
116 STOP
117 1
118 -
119 30
120 *
121 -
122 STOP
123 12
124 RCL 01
125 1
126 +
127 X>Y?
128 1
129 STO 01
130 7
131 X>Y?
132 6
133 STO 25
134 RCL 02
135 3
136 1/X
137 +
138 STO 02
139 RND
140 1
141 X#Y?
142 GTO 02
143 1-
144 STO 02
145 GTO 02
146 LBL 15
147 LBL a
148 SF 00
149 STOP
150 LBL 19
151 LBL e
152 CF 00
153 STOP
154 END

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