The Museum of HP Calculators

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

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