The Museum of HP Calculators

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

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