The Museum of HP Calculators

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

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