The Museum of HP Calculators


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

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