The Museum of HP Calculators

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

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