The Museum of HP Calculators

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

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