The Museum of HP Calculators

Complete Maya Calendar (Card 1) 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 "MAYA1"
 02 LBL 11
 03 LBL B
 04 SF 02
 05 GTO 01
 06 LBL 10
 07 LBL A
 08 STO 00
 09 LBL 01
 10 5
 11 STO 25
 12 20
 13 STO 21
 14 *
 15 STO 06
 16 X<>Y
 17 LBL 02
 18 ENTER
 19 INT
 20 STO IND 25
 21 -
 22 RCL 06
 23 *
 24 7DSZ
 25 GTO 02
 26 144 E3
 27 RCL 05
 28 *
 29 7200
 30 RCL 04
 31 *
 32 +
 33 360
 34 RCL 03
 35 *
 36 +
 37 RCL 21
 38 RCL 02
 39 *
 40 +
 41 RCL 01
 42 +
 43 STO 00
 44 FS?C 02
 45 STOP
 46 LBL 15
 47 LBL a
 48 STO 00
 49 1842
 50 -
 51 0
 52 X<>Y
 53 18980
 54 STO 24
 55 /
 56 FRC
 57 RCL 24
 58 *
 59 7DSP0
 60 RND
 61 X<0?
 62 RCL 24
 63 +
 64 LBL 12
 65 LBL C
 66 STO 07
 67 365
 68 STO 23
 69 /
 70 FRC
 71 RCL 23
 72 *
 73 7DSP0
 74 RND
 75 STO 08
 76 20
 77 STO 21
 78 /
 79 ENTER
 80 INT
 81 STO 03
 82 -
 83 RCL 21
 84 *
 85 STO 02
 86 RCL 07
 87 260
 88 STO 22
 89 /
 90 FRC
 91 RCL 22
 92 *
 93 RND
 94 STO 09
 95 RCL 21
 96 /
 97 FRC
 98 RCL 21
 99 *
100 RND
101 X=0?
102 RCL 21
103 STO 01
104 RCL 09
105 13
106 STO 20
107 /
108 FRC
109 RCL 20
110 *
111 RND
112 X=0?
113 RCL 20
114 LBL 04
115 FS?C 02
116 GTO 05
117 GTO 06
118 LBL 05
119 RCL 05
120 RCL 04
121 8
122 10^X
123 /
124 +
125 LBL 06
126 RCL 03
127 6
128 10^X
129 /
130 +
131 RCL 02
132 4
133 10^X
134 /
135 +
136 RCL 01
137 2
138 10^X
139 /
140 +
141 7DSP8
142 FS? 00
143 GTO 08
144 7PRTX
145 STOP
146 LBL 13
147 LBL D
148 STO 06
149 LBL 07
150 RCL 06
151 ST+ 00
152 RCL 00
153 SF 00
154 GTO 15
155 LBL 08
156 7PRTX
157 7DSZ
158 GTO 07
159 CF 00
160 STOP
161 LBL 14
162 LBL E
163 RCL 00
164 20
165 STO 21
166 /
167 ENTER
168 INT
169 STO 05
170 -
171 RCL 21
172 *
173 STO 04
174 RCL 05
175 18
176 /
177 ENTER
178 INT
179 STO 05
180 -
181 18
182 *
183 STO 03
184 RCL 05
185 RCL 21
186 /
187 ENTER
188 INT
189 STO 05
190 -
191 RCL 21
192 *
193 STO 02
194 RCL 05
195 RCL 21
196 /
197 ENTER
198 INT
199 STO 05
200 -
201 RCL 21
202 *
203 STO 01
204 SF 02
205 GTO 04
206 GTO 67
207 END

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