The Museum of HP Calculators

4*4 Matrix Operatiions for the HP-41C/CV/CX

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 "4*4"
 02 FIX 00
 03 CF 29
 04 4
 05 STO 00
 06 LBL A
 07 1
 08 ST+ 00
 09 "A"
 10 RCL 00
 11 4
 12 -
 13 ARCL X
 14 "?"
 15 PROMPT
 16 STO IND 00
 17 RCL 00
 18 20
 19 X#Y?
 20 GTO A
 21 STOP
 22 LBL "GO"
 23 CLD
 24 FIX 02
 25 SF 29
 26 0
 27 STO 00
 28 1
 29 STO 21
 30 STO 23
 31 STO 24
 32 RCL 05
 33 ABS
 34 STO 22
 35 2
 36 RCL 06
 37 XEQ D
 38 3
 39 RCL 07
 40 XEQ D
 41 4
 42 RCL 08
 43 XEQ D
 44 1
 45 RCL 21
 46 X=Y?
 47 GTO 00
 48 XEQ b
 49 1
 50 XEQ c
 51 2
 52 XEQ c
 53 3
 54 XEQ c
 55 4
 56 XEQ c
 57 LBL 00
 58 RCL 05
 59 CHS
 60 ST/ 06
 61 ST/ 07
 62 ST/ 08
 63 9
 64 STO 25
 65 XEQ d
 66 XEQ d
 67 XEQ d
 68 2
 69 STO 21
 70 STO 23
 71 RCL 10
 72 ABS
 73 STO 22
 74 3
 75 RCL 11
 76 XEQ D
 77 4
 78 RCL 12
 79 XEQ D
 80 2
 81 RCL 21
 82 X=Y?
 83 GTO 00
 84 10
 85 *
 86 XEQ b
 87 2
 88 XEQ c
 89 3
 90 XEQ c
 91 4
 92 XEQ c
 93 LBL 00
 94 RCL 10
 95 CHS
 96 ST/ 11
 97 ST/ 12
 98 RCL 11
 99 RCL 14
100 *
101 ST+ 15
102 RCL 12
103 RCL 14
104 *
105 ST+ 16
106 RCL 11
107 RCL 18
108 *
109 ST+ 19
110 RCL 12
111 RCL 18
112 *
113 RCL 20
114 +
115 STO 20
116 RCL 15
117 ABS
118 RCL 16
119 ABS
120 X<=Y?
121 GTO 00
122 RCL 15
123 RCL 16
124 STO 15
125 X<>Y
126 STO 16
127 RCL 19
128 RCL 20
129 STO 19
130 X<>Y
131 STO 20
132 .4
133 XEQ b
134 LBL 00
135 RCL 15
136 CHS
137 ST/ 16
138 RCL 19
139 RCL 16
140 *
141 RCL 20
142 +
143 STO 20
144 STOP
145 LBL D
146 ABS
147 RCL 22
148 X>Y?
149 RTN
150 RDN
151 STO 22
152 RDN
153 STO 21
154 RTN
155 LBL b
156 ST+ 00
157 RCL 24
158 CHS
159 STO 24
160 RTN
161 LBL c
162 STO 22
163 RCL 23
164 RCL 22
165 XEQ E
166 RCL 21
167 RCL 22
168 XEQ E
169 X<>Y
170 STO IND 25
171 X<>Y
172 RCL 23
173 RCL 22
174 4
175 *
176 +
177 STO 25
178 RDN
179 STO IND 25
180 RTN
181 LBL E
182 4
183 *
184 +
185 STO 25
186 CLX
187 RCL IND 25
188 RTN
189 LBL d
190 RCL IND 25
191 STO 21
192 ISG 25
193 "A"
194 RCL 06
195 XEQ e
196 RCL 07
197 XEQ e
198 RCL 08
199 XEQ e
200 RTN
201 LBL e
202 RCL 21
203 *
204 ST+ IND 25
205 ISG 25
206 RTN
207 RTN
208 LBL "DET"
209 RCL 24
210 RCL 05
211 *
212 RCL 10
213 *
214 RCL 15
215 *
216 RCL 20
217 *
218 "DET="
219 ARCL X
220 AVIEW
221 STOP
222 LBL "SYS"
223 "b1?"
224 PROMPT
225 STO 01
226 "b2?"
227 PROMPT
228 STO 02
229 "b3?"
230 PROMPT
231 STO 03
232 "b4?"
233 PROMPT
234 STO 04
235 LBL a
236 RCL 00
237 10
238 STO 23
239 /
240 FRC
241 RCL 23
242 *
243 INT
244 X=0?
245 GTO 00
246 STO 25
247 RCL IND 25
248 RCL 01
249 STO IND 25
250 X<>Y
251 STO 01
252 LBL 00
253 RCL 01
254 RCL 06
255 *
256 ST+ 02
257 RCL 01
258 RCL 07
259 *
260 ST+ 03
261 RCL 01
262 RCL 08
263 *
264 ST+ 04
265 RCL 00
266 RCL 23
267 /
268 INT
269 X=0?
270 GTO 00
271 STO 25
272 RCL IND 25
273 RCL 02
274 STO IND 25
275 X<>Y
276 STO 02
277 LBL 00
278 RCL 12
279 RCL 11
280 RCL 02
281 *
282 ST+ 03
283 CLX
284 RCL 02
285 *
286 ST+ 04
287 RCL 00
288 FRC
289 RCL 23
290 *
291 X=0?
292 GTO 00
293 STO 25
294 RCL IND 25
295 RCL 03
296 STO IND 25
297 X<>Y
298 STO 03
299 LBL 00
300 RCL 16
301 RCL 03
302 *
303 ST+ 04
304 RCL 20
305 ST/ 04
306 RCL 04
307 CHS
308 STO 21
309 RCL 15
310 STO 22
311 RCL 19
312 RCL 18
313 RCL 17
314 RCL 21
315 *
316 ST+ 01
317 CLX
318 RCL 21
319 *
320 ST+ 02
321 CLX
322 RCL 21
323 *
324 ST+ 03
325 RCL 22
326 ST/ 03
327 RCL 03
328 CHS
329 STO 21
330 RCL 10
331 STO 22
332 RCL 14
333 RCL 13
334 RCL 21
335 *
336 ST+ 01
337 CLX
338 RCL 21
339 *
340 ST+ 02
341 RCL 22
342 ST/ 02
343 RCL 09
344 RCL 02
345 CHS
346 *
347 ST+ 01
348 RCL 05
349 ST/ 01
350 RCL 01
351 STOP
352 RCL 02
353 STOP
354 RCL 03
355 STOP
356 RCL 04
357 STOP
358 RTN
359 LBL "INV"
360 XEQ c
361 1
362 STO 01
363 XEQ a
364 XEQ c
365 1
366 STO 02
367 XEQ a
368 XEQ c
369 1
370 STO 03
371 XEQ a
372 XEQ c
373 1
374 STO 04
375 XEQ a
376 CLX
377 RTN
378 LBL c
379 CLX
380 STO 01
381 STO 02
382 STO 03
383 STO 04
384 RTN
385 LBL "REV"
386 5
387 STO 00
388 LBL F
389 RCL 00
390 4
391 -
392 "A"
393 FIX 00
394 CF 29
395 ARCL X
396 "="
397 SF 29
398 FIX 02
399 ARCL IND 00
400 AVIEW
401 PSE
402 1
403 ST+ 00
404 21
405 RCL 00
406 X=Y?
407 GTO "GO"
408 GTO F
409 END

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