The Museum of HP Calculators

Calendar Printout 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 "LINE"
 02 LBL 09
 03 RCL 33
 04 1
 05 -
 06 1 E3
 07 /
 08 1
 09 +
 10 0
 11 ENTER
 12 124
 13 XROM 29,06
 14 CLA
 15 ARCL X
 16 "  "
 17 ASTO X
 18 CLA
 19 LBL 14
 20 ARCL X
 21 ISG Y
 22 GTO 14
 23 0
 24 ENTER
 25 124
 26 XROM 29,06
 27 8
 28 RCL 33
 29 -
 30 1 E3
 31 /
 32 1
 33 +
 34 LBL 13
 35 ARCL Y
 36 ARCL IND X
 37 ISG X
 38 GTO 13
 39 ARCL Y
 40 XROM 29,01
 41 ADV
 42 9
 43 RCL 33
 44 -
 45 ENTER
 46 ENTER
 47 ENTER
 48 7
 49 MOD
 50 X=0?
 51 SF 00
 52 FS? 00
 53 CLX
 54 FS? 00
 55 +
 56 FS?C 00
 57 7
 58 X=0?
 59 7
 60 RCL 34
 61 -
 62 CHS
 63 1
 64 +
 65 7
 66 /
 67 INT
 68 7
 69 *
 70 .07
 71 +
 72 1 E3
 73 /
 74 +
 75 STO 00
 76 LBL 23
 77 RCL 00
 78 INT
 79 ENTER
 80 ENTER
 81 6
 82 +
 83 1 E3
 84 /
 85 +
 86 0
 87 ENTER
 88 124
 89 XROM 29,06
 90 CLA
 91 LBL 22
 92 ARCL X
 93 ARCL IND Y
 94 ISG Y
 95 GTO 22
 96 ARCL X
 97 XROM 29,01
 98 ADV
 99 ISG 00
100 GTO 23
101 RCL 34
102 RCL 00
103 INT
104 X>Y?
105 RTN
106 ENTER
107 ENTER
108 RCL 35
109 +
110 1
111 -
112 1 E3
113 /
114 +
115 0
116 ENTER
117 124
118 XROM 29,06
119 CLA
120 LBL 20
121 ARCL X
122 ARCL IND Y
123 ISG Y
124 GTO 20
125 7
126 RCL 35
127 -
128 1 E3
129 /
130 1
131 +
132 LBL 18
133 ARCL Y
134 "  "
135 ISG X
136 GTO 18
137 0
138 ENTER
139 124
140 XROM 29,06
141 ARCL X
142 XROM 29,01
143 ADV
144 RTN
145 LBL 29
146 RCL 37
147 RCL 36
148 1
149 +
150 ENTER
151 1/X
152 .7
153 +
154 CHS
155 INT
156 ST+ 37
157 12
158 *
159 -
160 30.6001
161 *
162 INT
163 RCL 37
164 365.25
165 *
166 INT
167 +
168 STO 40
169 7
170 MOD
171 X=0?
172 7
173 RTN
174 LBL "CAL"
175 "YEAR ?"
176 PROMPT
177 STO 38
178 "START. MONTH?"
179 PROMPT
180 ENTER
181 ENTER
182 "NO. OF MON. ?"
183 PROMPT
184 +
185 1
186 -
187 .001
188 *
189 +
190 STO 42
191 LBL 15
192 RCL 42
193 INT
194 STO 36
195 RCL 38
196 STO 37
197 XEQ 29
198 STO 33
199 RCL 40
200 STO 41
201 1
202 ST+ 36
203 RCL 38
204 STO 37
205 XEQ 29
206 1
207 -
208 STO 35
209 RCL 40
210 RCL 41
211 -
212 STO 34
213 SF 12
214 XEQ IND 42
215 CLA
216 "     "
217 ARCL 38
218 AVIEW
219 "S"
220 XROM 29,01
221 4
222 XROM 29,23
223 "M"
224 XROM 29,01
225 XROM 29,23
226 "T"
227 XROM 29,01
228 XROM 29,23
229 "W"
230 XROM 29,01
231 XROM 29,23
232 "T"
233 XROM 29,01
234 XROM 29,23
235 "F"
236 XROM 29,01
237 XROM 29,23
238 "S"
239 XROM 29,01
240 2
241 XROM 29,23
242 ADV
243 CF 12
244 XEQ "LINE"
245 ADV
246 ADV
247 RCL 42
248 INT
249 12
250 X=Y?
251 XEQ 30
252 ISG 42
253 GTO 15
254 RTN
255 LBL 01
256 "   JANUARY"
257 AVIEW
258 RTN
259 LBL 02
260 "   FEBRUARY"
261 AVIEW
262 RTN
263 LBL 03
264 "    MARCH"
265 AVIEW
266 RTN
267 LBL 04
268 "    APRIL"
269 AVIEW
270 RTN
271 LBL 05
272 "     MAY"
273 AVIEW
274 RTN
275 LBL 06
276 "     JUNE"
277 AVIEW
278 RTN
279 LBL 07
280 "     JULY"
281 AVIEW
282 RTN
283 LBL 08
284 "    AUGUST"
285 AVIEW
286 RTN
287 LBL 09
288 "  SEPTEMBER"
289 AVIEW
290 RTN
291 LBL 11
292 "  NOVEMBER"
293 AVIEW
294 RTN
295 LBL 10
296 "   OCTOBER"
297 AVIEW
298 RTN
299 LBL 12
300 "  DECEMBER"
301 AVIEW
302 RTN
303 LBL "INIT"
304 CLRG
305 1.031
306 STO 00
307 LBL 00
308 9
309 RCL 00
310 INT
311 X<=Y?
312 " "
313 FIX 00
314 CF 29
315 ARCL X
316 ASTO IND X
317 CLA
318 ISG 00
319 GTO 00
320 0
321 STO 00
322 722923
323 STO 40
324 722892
325 STO 41
326 GTO "CAL"
327 LBL 30
328 1
329 ST+ 38
330 12
331 ST- 42
332 .001
333 *
334 ST- 42
335 RTN
336 END

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