The Museum of HP Calculators

Exercise Monitor 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 "RUN"
 02 CF 01
 03 CF 05
 04 CF 29
 05 "Y"
 06 ASTO Y
 07 "PULSE? Y/N"
 08 AON
 09 STOP
 10 AOFF
 11 ASTO X
 12 X=Y?
 13 SF 01
 14 CLRG
 15 1 E-3
 16 STO 05
 17 3
 18 *
 19 STO 00
 20 2
 21 /
 22 STO 07
 23 "LIMIT HMS?"
 24 CLX
 25 PROMPT
 26 STO 16
 27 "GOAL HMS?"
 28 CLX
 29 PROMPT
 30 STO 14
 31 X=0?
 32 GTO 02
 33 17
 34 STO 13
 35 LBL 00
 36 1
 37 ST+ 13
 38 "DISTANCE "
 39 FIX 00
 40 RCL 13
 41 17
 42 -
 43 ARCL X
 44 "?"
 45 FIX 02
 46 CLX
 47 PROMPT
 48 STO IND 13
 49 X#0?
 50 STO 08
 51 X#0?
 52 GTO 00
 53 RCL 13
 54 18
 55 -
 56 RCL 05
 57 *
 58 STO 17
 59 RCL 13
 60 STO 12
 61 1
 62 -
 63 RCL 05
 64 *
 65 18
 66 +
 67 STO 11
 68 STO 13
 69 LBL 01
 70 RCL 14
 71 HR
 72 RCL IND 11
 73 RCL 08
 74 /
 75 *
 76 HMS
 77 STO IND 11
 78 ISG 11
 79 GTO 01
 80 RCL 13
 81 STO 11
 82 LBL 02
 83 "N SPLITS?"
 84 CLX
 85 PROMPT
 86 X#0?
 87 SF 05
 88 "RESIZE>="
 89 FIX 00
 90 SF 25
 91 RCL 12
 92 +
 93 1
 94 +
 95 ARCL X
 96 LASTX
 97 -
 98 STO 04
 99 RCL IND X
100 FC? 25
101 PROMPT
102 FC?C 25
103 GTO 02
104 RCL 04
105 RCL 05
106 *
107 ST+ 12
108 RCL 12
109 STO 06
110 SF 27
111 FIX 04
112 "READY"
113 ASTO 10
114 RCL 10
115 RTN
116 LBL "GO"
117 CF 02
118 FC? 55
119 CF 21
120 SF 26
121 FS? 01
122 XEQ 05
123 RCL 10
124 FS? 01
125 RTN
126 SF 02
127 RCL 11
128 STO 13
129 RUNSW
130 CLST
131 SETSW
132 TIME
133 TONE 09
134 TONE 09
135 STO 15
136 RCL 16
137 X=0?
138 GTO 04
139 CLA
140 FIX 04
141 ATIME24
142 HMS+
143 XYZALM
144 LBL 04
145 RCL 14
146 X#0?
147 GTO 20
148 RTN
149 LBL "SPLIT"
150 RCLSW
151 FIX 04
152 TONE 09
153 TONE 08
154 ISG 12
155 STO IND 12
156 RTN
157 LBL "FIN"
158 STOPSW
159 TONE 09
160 TONE 09
161 FC? 01
162 RTN
163 CLST
164 TIME
165 RCL 07
166 HMS+
167 "^^"
168 XYZALM
169 "WAIT"
170 PROMPT
171 LBL 05
172 FC? 55
173 CF 21
174 "PULSE"
175 AVIEW
176 "BEATS=?"
177 CLST
178 RCL 07
179 TIME
180 HMS+
181 TONE 09
182 TONE 09
183 XYZALM
184 .043
185 HMS+
186 "^^FIN"
187 FS?C 02
188 XYZALM
189 CLX
190 STOP
191 4
192 *
193 ISG 00
194 STO IND 00
195 "RATE="
196 FIX 00
197 ARCL X
198 AVIEW
199 RTN
200 LBL "REPLAY"
201 SF 21
202 1.003
203 STO 00
204 FIX 00
205 LBL 06
206 "PULSE "
207 ARCL 00
208 "="
209 RCL IND 00
210 ARCL X
211 X#0?
212 AVIEW
213 ISG 00
214 GTO 06
215 RCL 06
216 1
217 +
218 FIX 06
219 STO 04
220 LBL 07
221 RCL IND 04
222 CLA
223 ATIME24
224 AVIEW
225 ISG 04
226 GTO 07
227 CLX
228 FIX 02
229 RTN
230 LBL "M"
231 8
232 FS? 05
233 GTO 08
234 TONE 09
235 TONE 09
236 GTO 20
237 LBL 08
238 TONE 09
239 DSE X
240 GTO 08
241 FIX 00
242 "MARK "
243 RCL 13
244 18
245 -
246 INT
247 ARCL X
248 CF 21
249 AVIEW
250 LBL 20
251 CLST
252 RCL 15
253 RCL IND 13
254 HMS+
255 "^^M"
256 ISG 17
257 XYZALM
258 CLX
259 ISG 13
260 END

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