The Museum of HP Calculators

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

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