The Museum of HP Calculators

Days <-> Dates, Day of Week for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Calendars Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. 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 "DAYDTE"
 02 LBL 10
 03 LBL A
 04 XEQ 11
 05 RCL 01
 06 STO 02
 07 X<>Y
 08 RTN
 09 LBL 11
 10 LBL B
 11 9
 12 ENTER
 13  E6-
 14 -
 15 X<>Y
 16 3
 17 X<>Y
 18 X<=Y?
 19 XEQ 00
 20 1
 21 +
 22 ENTER
 23 INT
 24 STO 01
 25 -
 26  E2
 27 *
 28 ENTER
 29 FRC
 30  E2
 31 *
 32 ENTER
 33 INT
 34 7
 35 -
 36 .75
 37 *
 38 INT
 39 X<>Y
 40 36525
 41 *
 42 INT
 43 -
 44 -
 45 INT
 46 RCL 01
 47 30.6
 48 *
 49 INT
 50 +
 51 STO 01
 52 RCL 02
 53 -
 54 RTN
 55 LBL 12
 56 LBL C
 57 ENTER
 58 INT
 59 X#Y?
 60 XEQ 01
 61 RCL 01
 62 7
 63 /
 64 FRC
 65 7
 66 *
 67 RTN
 68 LBL 00
 69 +
 70 +
 71 RTN
 72 LBL 01
 73 X<>Y
 74 GTO 11
 75 LBL 15
 76 LBL a
 77 STO 00
 78 7DSP0
 79  E2
 80 STO 02
 81 122.1
 82 STO 03
 83  E6-
 84 STO 04
 85 30.6001
 86 STO 05
 87  E4
 88 STO 08
 89 365.25
 90 STO 06
 91 RCL 00
 92 9
 93 ENTER
 94 ENTER
 95 RCL 04
 96 -
 97 3
 98 R^
 99 X<=Y?
100 XEQ 00
101 1
102 +
103 ENTER
104 INT
105 STO 07
106 -
107 RCL 02
108 *
109 ENTER
110 FRC
111 RCL 06
112 *
113 RCL 08
114 *
115 INT
116 +
117 INT
118 RCL 07
119 RCL 05
120 *
121 INT
122 +
123 RCL 01
124 X<>Y
125 STO 01
126 -
127 CHS
128 RTN
129 LBL 16
130 LBL b
131 RCL 01
132 +
133 ENTER
134 ENTER
135 RCL 03
136 -
137 RCL 06
138 /
139 INT
140 ENTER
141 ENTER
142 RCL 04
143 *
144 STO 01
145 CLX
146 RCL 06
147 *
148 INT
149 -
150 ENTER
151 ENTER
152 RCL 05
153 /
154 INT
155 STO 07
156 RCL 05
157 *
158 INT
159 -
160 RCL 02
161 /
162 RCL 01
163 +
164 RCL 04
165 RCL 07
166 1
167 -
168 12
169 X<>Y
170 X>Y?
171 XEQ 02
172 R^
173 +
174 7DSP6
175 RTN
176 LBL 02
177 -
178 -
179 RTN
180 STOP
181 END

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