The Museum of HP Calculators

Solution to f(x)=0 on an Interval 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 "FNRT67"
 02 LBL 10
 03 LBL A
 04 STO 21
 05 XEQ 14
 06 STO 08
 07 RTN
 08 LBL 11
 09 LBL B
 10 STO 20
 11 STO 22
 12 XEQ 14
 13 STO 00
 14 STO 09
 15 RTN
 16 LBL 12
 17 LBL C
 18 STO 24
 19 RTN
 20 LBL 13
 21 LBL D
 22 RCL 08
 23 X=0?
 24 GTO 05
 25 RCL 21
 26 RCL 22
 27 -
 28 ABS
 29 RCL 24
 30 X>Y?
 31 GTO 05
 32 2
 33 /
 34  E-9
 35 RCL 21
 36 *
 37 +
 38 STO 25
 39 RCL 08
 40 RCL 00
 41 RCL 08
 42 -
 43 RCL 20
 44 RCL 21
 45 -
 46 /
 47 /
 48 RCL 21
 49 X<>Y
 50 -
 51 STO 23
 52 RCL 21
 53 -
 54 RCL 22
 55 RCL 21
 56 -
 57 /
 58 X<0?
 59 GTO 01
 60 1
 61 X<=Y?
 62 GTO 01
 63 RCL 21
 64 RCL 22
 65 -
 66 ABS
 67 4
 68 /
 69 RCL 23
 70 RCL 22
 71 -
 72 ABS
 73 X<=Y?
 74 GTO 01
 75 RCL 25
 76 RCL 23
 77 RCL 21
 78 -
 79 ABS
 80 X>Y?
 81 GTO 02
 82 X<>Y
 83 RCL 22
 84 RCL 21
 85 -
 86 ENTER
 87 ABS
 88 /
 89 *
 90 RCL 21
 91 +
 92 STO 23
 93 GTO 02
 94 LBL 01
 95 RCL 21
 96 RCL 22
 97 +
 98 2
 99 /
100 STO 23
101 LBL 02
102 RCL 21
103 STO 20
104 RCL 08
105 STO 00
106 RCL 23
107 STO 21
108 XEQ 14
109 STO 08
110 RCL 09
111 *
112 X<0?
113 GTO 03
114 RCL 20
115 STO 22
116 RCL 00
117 STO 09
118 LBL 03
119 RCL 09
120 ABS
121 RCL 08
122 ABS
123 X<=Y?
124 GTO 13
125 RCL 21
126 RCL 22
127 STO 21
128 X<>Y
129 STO 22
130 STO 20
131 RCL 08
132 RCL 09
133 STO 08
134 X<>Y
135 STO 09
136 STO 00
137 GTO 13
138 LBL 05
139 RCL 21
140 RTN
141 LBL 14
142 LBL E
143 RTN
144 STOP
145 END

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