The Museum of HP Calculators

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

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