The Museum of HP Calculators

Internal and External Tapers for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Geometry Solution Book. 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 "TAPERS"
 02 CF 01
 03 "IN.,EX. TAPERS"
 04 AVIEW
 05 STOP
 06 LBL A
 07 "R1?"
 08 PROMPT
 09 STO 00
 10 "R2?"
 11 PROMPT
 12 +
 13 2
 14 *
 15 STO 01
 16 "c?"
 17 PROMPT
 18 *
 19 LASTX
 20 X^2
 21 -
 22 SQRT
 23 STO 02
 24 RCL 01
 25 "d?"
 26 PROMPT
 27 *
 28 LASTX
 29 X^2
 30 -
 31 SQRT
 32 STO 04
 33 RCL 02
 34 -
 35 "b?"
 36 PROMPT
 37 /
 38 ATAN
 39 STO 03
 40 90
 41 +
 42 2
 43 /
 44 TAN
 45 1/X
 46 ST* 00
 47 RCL 02
 48 "C"
 49 XEQ 11
 50 RCL 04
 51 "D"
 52 XEQ 11
 53 RCL 03
 54 "PHI"
 55 XEQ 11
 56 RCL 02
 57 RCL 00
 58 +
 59 "R1"
 60 XEQ 11
 61 LBL B
 62 "R1?"
 63 PROMPT
 64 STO 00
 65 "R2?"
 66 PROMPT
 67 STO 01
 68 -
 69 "a?"
 70 FS? 01
 71 "c?"
 72 PROMPT
 73 RCL 00
 74 -
 75 STO 02
 76 "b?"
 77 FS? 01
 78 "d?"
 79 PROMPT
 80 RCL 01
 81 -
 82 -
 83 /
 84 FS?C 01
 85 RTN
 86 ATAN
 87 STO 03
 88 LASTX
 89 1/X
 90 RCL 00
 91 *
 92 RCL 02
 93 -
 94 CHS
 95 90
 96 RCL 03
 97 2
 98 *
 99 -
100 X<>Y
101 GTO 05
102 LBL C
103 "H?"
104 PROMPT
105 "b?"
106 PROMPT
107 "a?"
108 PROMPT
109 STO 00
110 -
111 /
112 ATAN
113 STO 01
114 CHS
115 90
116 +
117 RCL 00
118 RCL 01
119 2
120 /
121 TAN
122 1/X
123 1
124 +
125 "R?"
126 PROMPT
127 *
128 -
129 LBL 05
130 "X"
131 XEQ 11
132 RDN
133 "PHI"
134 XEQ 11
135 LBL D
136 SF 01
137 XEQ B
138 ASIN
139 STO 03
140 RCL 00
141 LASTX
142 RCL 02
143 *
144 -
145 RCL 03
146 COS
147 /
148 GTO 05
149 LBL 11
150 "="
151 ARCL X
152 AVIEW
153 STOP
154 RTN
155 END

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