The Museum of HP Calculators

House Cusps - Regiomontanus 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 "HCRGMT"
 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 SIN
120 RCL 06
121 *
122 -
123 R-P
124 RDN
125 RCL 24
126 FS? 00
127 CLX
128 +
129 360
130 +
131 LASTX
132 /
133 LASTX
134 X<>Y
135 FRC
136 *
137 RCL 01
138 STOP
139 RDN
140 HMS
141 7DSP4
142 STOP
143 ENTER
144 ENTER
145 RCL 07
146 /
147 INT
148 1
149 +
150 STOP
151 1
152 -
153 RCL 07
154 *
155 -
156 STOP
157 7GTOI
158 STOP
159 END

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