The Museum of HP Calculators

32-P Remaining on Day of Year for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Physics 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 "32P"
 02 CLRG
 03 CF 22
 04 "DATE1?"
 05 PROMPT
 06 XEQ A
 07 "DATE2?"
 08 PROMPT
 09 XEQ B
 10 XEQ C
 11 CF 22
 12 "MCI ON 1?"
 13 PROMPT
 14 FC?C 22
 15 GTO 05
 16 XEQ D
 17 XEQ E
 18 GTO "32P"
 19 LBL 05
 20 "CPM ON 1?"
 21 PROMPT
 22 XEQ D
 23 XEQ c
 24 GTO "32P"
 25 LBL A
 26 FIX 02
 27 RCL 04
 28 RCL 02
 29 -
 30 3
 31 GTO 00
 32 LBL B
 33 RCL 03
 34 RCL 02
 35 +
 36 4
 37 LBL 00
 38 STO 00
 39 RDN
 40 365.25
 41 STO 05
 42 30.6001
 43 STO 06
 44 RDN
 45 RDN
 46 FS?C 22
 47 GTO 01
 48 STO IND 00
 49 122.1
 50 -
 51 RCL 05
 52 /
 53 INT
 54 STO 09
 55 RCL 05
 56 *
 57 INT
 58 RCL IND 00
 59 -
 60 CHS
 61 STO 01
 62 RCL 06
 63 /
 64 INT
 65 STO 07
 66 RCL 01
 67 X<>Y
 68 RCL 06
 69 *
 70 INT
 71 -
 72 STO 06
 73 RCL 07
 74 1
 75 RCL 08
 76 %
 77 -
 78 -
 79 RCL 07
 80 14
 81 /
 82 XEQ 02
 83 RCL 09
 84 1 E6
 85 *
 86 +
 87 FIX 06
 88 RTN
 89 LBL 01
 90 RDN
 91 ENTER
 92 INT
 93 STO 07
 94 -
 95 1 E2
 96 *
 97 ENTER
 98 INT
 99 STO 08
100 -
101 1 E4
102 *
103 STO 09
104 RCL 07
105 1
106 +
107 ENTER
108 1/X
109 .7
110 +
111 CHS
112 XEQ 02
113 RCL 06
114 *
115 INT
116 RCL 09
117 RCL 05
118 *
119 INT
120 +
121 RCL 08
122 +
123 STO IND 00
124 1720982
125 +
126 FIX 00
127 RTN
128 LBL 02
129 INT
130 ST+ 09
131 12
132 *
133 -
134 RTN
135 LBL C
136 FIX 00
137 STO 02
138 FS?C 22
139 RTN
140 RCL 04
141 RCL 03
142 -
143 STO 02
144 RTN
145 LBL D
146 STO 10
147 14.3
148 STO 11
149 2.2 E9
150 STO 12
151 RTN
152 LBL E
153 2
154 RCL 02
155 RCL 11
156 /
157 Y^X
158 1/X
159 RCL 10
160 RCL 12
161 *
162 *
163 SCI 04
164 "DPM="
165 ARCL X
166 PROMPT
167 ENTER
168 .3
169 *
170 "CPM="
171 ARCL X
172 PROMPT
173 RTN
174 LBL c
175 RCL 02
176 RCL 11
177 /
178 .5
179 X<>Y
180 Y^X
181 RCL 10
182 *
183 "CPM="
184 ARCL X
185 PROMPT
186 .3
187 /
188 RCL 12
189 /
190 SCI 02
191 "MCI="
192 ARCL X
193 PROMPT
194 RTN
195 END

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