The Museum of HP Calculators

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

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