The Museum of HP Calculators

Number of Weekdays Between 2 Dates 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 "WEEK"
 02 LBL 05
 03 SF 21
 04 FIX 06
 05 "DATE 1?"
 06 ADV
 07 XEQ 02
 08 XEQ 00
 09 "DATE 2?"
 10 TONE 08
 11 XEQ 02
 12 XEQ 00
 13 FIX 01
 14 CLA
 15 ARCL X
 16 " WEEKDAYS"
 17 TONE 08
 18 AVIEW
 19 CLA
 20 ARCL 00
 21 " = "
 22 RCL 03
 23 7
 24 *
 25 RND
 26 INT
 27 1
 28 X=Y?
 29 "MON."
 30 RDN
 31 2
 32 X=Y?
 33 "TUE."
 34 RDN
 35 3
 36 X=Y?
 37 "WED."
 38 RDN
 39 4
 40 X=Y?
 41 "THUR."
 42 RDN
 43 5
 44 X=Y?
 45 "FRI."
 46 RDN
 47 6
 48 X=Y?
 49 "SAT."
 50 RDN
 51 0
 52 X=Y?
 53 "SUN."
 54 TONE 08
 55 AVIEW
 56 GTO 05
 57 LBL 02
 58 PROMPT
 59 ASTO 00
 60 CLA
 61 ARCL 00
 62 " = "
 63 ARCL X
 64 FS? 55
 65 XROM 29,08
 66 RTN
 67 LBL 00
 68 9
 69 ENTER
 70 1 E-6
 71 -
 72 X<>Y
 73 3
 74 X<>Y
 75 X<=Y?
 76 XEQ 01
 77 1
 78 +
 79 ENTER
 80 INT
 81 STO 01
 82 -
 83 100
 84 *
 85 ENTER
 86 FRC
 87 100
 88 *
 89 ENTER
 90 INT
 91 7
 92 -
 93 .75
 94 *
 95 INT
 96 X<>Y
 97 36525
 98 *
 99 INT
100 -
101 -
102 INT
103 RCL 01
104 30.6
105 *
106 INT
107 +
108 7
109 /
110 ENTER
111 FRC
112 -
113 LASTX
114 STO 03
115 12.61
116 *
117 INT
118 .1
119 *
120 +
121 5
122 *
123 RCL 02
124 X<>Y
125 STO 02
126 -
127 CHS
128 RTN
129 LBL 01
130 +
131 +
132 END

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