The Museum of HP Calculators

Belt Length 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 M.E. 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 "BELT67"
 02 LBL 15
 03 LBL a
 04 0
 05 FS?C 02
 06 RTN
 07 SF 02
 08 1
 09 RTN
 10 LBL 10
 11 LBL A
 12 7CLREG
 13 SF 01
 14 STO 00
 15 STO 01
 16 RDN
 17 STO 21
 18 RDN
 19 STO 20
 20 1-
 21 ACOS
 22 STO 22
 23 RCL 00
 24 RTN
 25 LBL 11
 26 LBL B
 27 STO 04
 28 CLX
 29 RCL 03
 30 7P<>S
 31 STO 03
 32 7P<>S
 33 X<>Y
 34 STO 03
 35 X<>Y
 36 -
 37 X<>Y
 38 RCL 02
 39 7P<>S
 40 STO 02
 41 7P<>S
 42 X<>Y
 43 STO 02
 44 X<>Y
 45 -
 46 R-P
 47 X^2
 48 X<>Y
 49 X<0?
 50 XEQ 00
 51 FS? 01
 52 STO 05
 53 FS? 01
 54 STO 06
 55 RCL 06
 56 X<>Y
 57 STO 06
 58 XEQ 14
 59 X<>Y
 60 RCL 01
 61 RCL 04
 62 -
 63 X^2
 64 -
 65 SQRT
 66 ST+ 08
 67 RCL 01
 68 RCL 04
 69 -
 70 X<>Y
 71 XEQ 01
 72 STO 07
 73 +
 74 RCL 01
 75 *
 76 RCL 22
 77 /
 78 PI
 79 *
 80 ST+ 08
 81 FS?C 02
 82 XEQ 17
 83 RCL 04
 84 STO 01
 85 CF 01
 86 RTN
 87 LBL 14
 88 LBL E
 89 -
 90 1
 91 P-R
 92 R-P
 93 *
 94 ABS
 95 RCL 07
 96 -
 97 RTN
 98 LBL 12
 99 LBL C
100 RCL 20
101 RCL 21
102 RCL 00
103 XEQ 11
104 RCL 06
105 RCL 05
106 XEQ 14
107 RCL 01
108 *
109 RCL 22
110 /
111 PI
112 *
113 ST+ 08
114 RCL 08
115 RTN
116 LBL 00
117 RCL 22
118 +
119 LASTX
120 +
121 RTN
122 LBL 01
123 R-P
124 RDN
125 COS
126 X<0?
127 GTO 09
128 CLX
129 LASTX
130 RTN
131 LBL 09
132 CLX
133 LASTX
134 RCL 22
135 +
136 1
137 P-R
138 R-P
139 RDN
140 RTN
141 LBL 17
142 LBL c
143 1
144 ASIN
145 RCL 06
146 +
147 RCL 07
148 -
149 STO 23
150 RCL 01
151 P-R
152 7P<>S
153 RCL 02
154 +
155 7PRTX
156 X<>Y
157 RCL 03
158 +
159 7PRTX
160 ADV
161 7P<>S
162 RCL 23
163 RCL 04
164 P-R
165 RCL 02
166 +
167 7PRTX
168 X<>Y
169 RCL 03
170 +
171 7PRTX
172 SF 02
173 ADV
174 ADV
175 RTN
176 STOP
177 END

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