The Museum of HP Calculators

# M-Days bet. 2 Dates & Nth M-Day of Month for the HP-41C/CV/CX

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

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