The Museum of HP Calculators


Circle Computations 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 Math Pac 1. 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 "CIRC67"
 02 LBL 15
 03 LBL a
 04 STO 04
 05 RDN
 06 STO 03
 07 RTN
 08 LBL 16
 09 LBL b
 10 STO 06
 11 RDN
 12 STO 05
 13 RTN
 14 LBL 17
 15 LBL c
 16 STO 08
 17 RDN
 18 STO 07
 19 RTN
 20 LBL 18
 21 LBL d
 22 ADV
 23 RCL 05
 24 RCL 03
 25 X=Y?
 26 GTO 00
 27 RCL 07
 28 RCL 03
 29 X=Y?
 30 GTO 00
 31 LBL 01
 32 RCL 06
 33 RCL 04
 34 -
 35 STO 01
 36 RCL 06
 37 RCL 04
 38 +
 39 *
 40 RCL 05
 41 RCL 03
 42 +
 43 RCL 05
 44 RCL 03
 45 -
 46 ST/ 01
 47 STO 22
 48 *
 49 +
 50 RCL 22
 51 /
 52 2
 53 /
 54 STO 22
 55 RCL 08
 56 RCL 04
 57 -
 58 STO 02
 59 RCL 08
 60 RCL 04
 61 +
 62 *
 63 RCL 07
 64 RCL 03
 65 -
 66 ST/ 02
 67 STO 23
 68 RCL 07
 69 RCL 03
 70 +
 71 *
 72 +
 73 2
 74 /
 75 RCL 23
 76 /
 77 STO 24
 78 RCL 22
 79 -
 80 RCL 02
 81 RCL 01
 82 -
 83 /
 84 STO 23
 85 RCL 24
 86 X<>Y
 87 RCL 02
 88 *
 89 -
 90 STO 22
 91 7PRTX
 92 RCL 07
 93 -
 94 RCL 23
 95 7PRTX
 96 RCL 08
 97 -
 98 R-P
 99 RCL 23
100 X<>Y
101 RCL 22
102 X<>Y
103 STO 24
104 ADV
105 7PRTX
106 RTN
107 LBL 00
108 RCL 07
109 RCL 08
110 RCL 03
111 STO 07
112 CLX
113 RCL 05
114 STO 03
115 CLX
116 RCL 04
117 STO 08
118 CLX
119 RCL 06
120 STO 04
121 RDN
122 STO 06
123 RDN
124 STO 05
125 GTO 01
126 LBL 10
127 LBL A
128 STO 24
129 RDN
130 STO 23
131 RDN
132 STO 22
133 RTN
134 LBL 12
135 LBL C
136 1-
137 ACOS
138 ENTER
139 +
140 X<>Y
141 /
142 LASTX
143 GTO 00
144 LBL 13
145 LBL D
146 1-
147 ACOS
148 ENTER
149 +
150 X<>Y
151 /
152 LASTX
153 X<>Y
154 LBL 00
155 STO 20
156 RDN
157 ABS
158 .5
159 +
160 INT
161 STO 21
162 STO 25
163 RDN
164 STO 02
165 STO 09
166 RCL 20
167 ST- 09
168 RTN
169 LBL 14
170 LBL E
171 ADV
172 RCL 20
173 ST+ 09
174 RCL 09
175 7PRTX
176 7DSZ
177 LBL 00
178 RCL 21
179 RCL 25
180 -
181 7PRTX
182 STO 01
183 XEQ 02
184 R^
185 CLX
186 RCL 09
187 R^
188 CLX
189 RCL 01
190 R^
191 R^
192 RTN
193 LBL 19
194 LBL e
195 RCL 21
196 STO 25
197 RCL 02
198 RCL 20
199 -
200 STO 09
201 LBL 04
202 XEQ 14
203 7ISZ
204 LBL 00
205 7DSZ
206 GTO 04
207 RTN
208 LBL 11
209 LBL B
210 ADV
211 GTO 00
212 LBL 02
213 RCL 09
214 LBL 00
215 RCL 24
216 P-R
217 RCL 22
218 +
219 7PRTX
220 X<>Y
221 RCL 23
222 +
223 7PRTX
224 RTN
225 STOP
226 END

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