The Museum of HP Calculators

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

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