The Museum of HP Calculators

Automobile Trip Computer for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Time Module 1 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 "TRIP"  ; Key: -71
 02 TONE 09
 03 RUNSW
 04 CLX
 05 SETSW
 06 TIME
 07 STO 22
 08 STO 23
 09 -1 E2
 10 STO 21
 11 XEQ "2"
 12 DATE
 13 STO 18
 14 SREG 25
 15 CLS
 16 CF 07
 17 CF 08
 18 CF 10
 19 XEQ 01
 20 STO 25
 21 "COREX?"
 22 1
 23 PROMPT
 24 STO 28
 25 "DISTANCE?"
 26 CLX
 27 PROMPT
 28 STO 26
 29 GTO 00
 30 LBL A
 31 SF 07
 32 RCL 23
 33 TIME
 34 STO 23
 35 FC?C 08
 36 GTO 00
 37 HMS-
 38 1 E-4
 39 HMS-
 40 STO 17
 41 T+X
 42 "RESET"
 43 AVIEW
 44 PSE
 45 PSE
 46 RCL 17
 47 CHS
 48 T+X
 49 LBL 00
 50 CF 07
 51 CLX
 52 "CHIME/HMS?"
 53 PROMPT
 54 STO 24
 55 X=0?
 56 RTN
 57 CF 26
 58 LBL "CS"
 59 FS? 07
 60 RTN
 61 SF 08
 62 TONE 09
 63 TONE 08
 64 SF 26
 65 STO 11
 66 RDN
 67 STO 12
 68 RDN
 69 STO 13
 70 "^^CS"
 71 RCL 24
 72 RCL 23
 73 XEQ 04
 74 XYZALM
 75 STO 23
 76 RCL 13
 77 RCL 12
 78 RCL 11
 79 RTN
 80 LBL D
 81 XEQ 01
 82 RCL 25
 83 RCL 26
 84 +
 85 X<>Y
 86 -
 87 "ARRIVE HMS?"
 88 PROMPT
 89 HR
 90 /
 91 "REQ SPD="
 92 GTO 06
 93 LBL E
 94 XEQ 01
 95 RCL 25
 96 -
 97 ENTER
 98 ENTER
 99 RCLSW
100 RCL 21
101 HMS+
102 HR
103 /
104 RCL 26
105 R^
106 -
107 X<>Y
108 /
109 HMS
110 TIME
111 XEQ 04
112 FIX 02
113 CLA
114 ATIME
115 " "
116 CLX
117 DATE
118 X<>Y
119 X#Y?
120 ADATE
121 AVIEW
122 RTN
123 LBL 01
124 CLX
125 "ODOMETER?"
126 PROMPT
127 RTN
128 LBL B
129 RCLSW
130 RCL 21
131 HMS+
132 FC?C 10
133 GTO 02
134 RCL 27
135 HMS-
136 RCL 21
137 X<>Y
138 HMS-
139 STO 21
140 "RESTART"
141 AVIEW
142 RTN
143 LBL 02
144 SF 10
145 STO 27
146 LBL "T-"
147 FC? 10
148 RTN
149 "^^T-"
150 TIME
151 .1
152 XEQ 04
153 XYZALM
154 FS? 07
155 RTN
156 XEQ 03
157 LBL 03
158 "TIME OUT"
159 AVIEW
160 TONE 05
161 RTN
162 LBL "2"
163 "^^2"
164 1 E2
165 ST+ 21
166 TIME
167 XEQ 04
168 XYZALM
169 RTN
170 LBL 04
171 HMS+
172 ENTER
173 ENTER
174 24
175 /
176 INT
177 DATE
178 X<>Y
179 DATE+
180 LASTX
181 24
182 *
183 ST- Z
184 CLX
185 STO T
186 RDN
187 X<>Y
188 RTN
189 LBL a
190 RUNSW
191 DATE
192 RCL 18
193 DDAYS
194 24
195 *
196 TIME
197 RCL 22
198 7 E-5
199 HMS-
200 HMS-
201 HMS+
202 1 E2
203 MOD
204 SETSW
205 "RESET SW"
206 AVIEW
207 RTN
208 LBL C
209 RCLSW
210 RCL 21
211 HMS+
212 "DRIVE="
213 FIX 02
214 ATIME24
215 AVIEW
216 RTN
217 LBL c
218 "GEAR?"
219 PROMPT
220 26
221 +
222 "SPEED?"
223 0
224 PROMPT
225 X#0?
226 GTO 05
227 "RPM?"
228 PROMPT
229 RCL IND Z
230 *
231 "SPEED="
232 GTO 06
233 LBL 05
234 RCL IND Z
235 /
236 "RPM="
237 GTO 06
238 LBL d
239 "ACTUAL="
240 RCL 28
241 *
242 GTO 06
243 LBL e
244 "INDIC="
245 RCL 28
246 /
247 LBL 06
248 FIX 01
249 ARCL X
250 AVIEW
251 RTN
252 LBL J
253 SF 07
254 "CANCEL"
255 AVIEW
256 RTN
257 LBL F
258 FC? 55
259 CF 21
260 XEQ "CAL"
261 END

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