The Museum of HP Calculators

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

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