The Museum of HP Calculators

Payroll 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 "PAYROLL"
 02 FIX 00
 03 CF 29
 04 RCL 00
 05 ABS
 06 INT
 07 SF 25
 08 RCL IND X
 09 FS?C 25
 10 GTO 00
 11 1
 12 +
 13 CF 21
 14 "RELOAD DATA"
 15 AVIEW
 16 PSE
 17 "CARD AFTER"
 18 AVIEW
 19 PSE
 20 "SIZE "
 21 100
 22 X>Y?
 23 "0"
 24 ARCL Y
 25 PROMPT
 26 LBL 00
 27 FS? 55
 28 SF 21
 29 CLA
 30 ARCL 01
 31 AVIEW
 32 FC? 55
 33 PSE
 34 CLA
 35 ARCL 02
 36 ARCL 03
 37 AVIEW
 38 FC? 55
 39 PSE
 40 CLA
 41 ARCL 04
 42 ARCL 05
 43 AVIEW
 44 FC? 55
 45 PSE
 46 "MARRIED"
 47 RCL 00
 48 X<0?
 49 "SINGLE"
 50 AVIEW
 51 FC? 55
 52 PSE
 53 ABS
 54 FRC
 55 100
 56 *
 57 CLA
 58 ARCL X
 59 " EXEMPT."
 60 AVIEW
 61 FC? 55
 62 PSE
 63 FC? 55
 64 GTO 00
 65 "PER ENDING  "
 66 PROMPT
 67 INT
 68 ARCL X
 69 "/"
 70 LASTX
 71 FRC
 72 100
 73 *
 74 INT
 75 ARCL X
 76 "/"
 77 LASTX
 78 FRC
 79 100
 80 *
 81 ARCL X
 82 XROM 29,08
 83 LBL 00
 84 "REG HOURS  "
 85 PROMPT
 86 FIX 02
 87 ARCL X
 88 HR
 89 FS? 55
 90 XROM 29,08
 91 RCL 06
 92 *
 93 RND
 94 "$"
 95 ARCL X
 96 SF 21
 97 AVIEW
 98 "O. T. HOURS  "
 99 PROMPT
100 ARCL X
101 HR
102 FS? 55
103 XROM 29,08
104 RCL 06
105 RCL 07
106 *
107 *
108 RND
109 "$"
110 ARCL X
111 AVIEW
112 +
113 STO 08
114 ST+ 09
115 "G=$"
116 ARCL X
117 AVIEW
118 "F ?"
119 PROMPT
120 "F=$"
121 ARCL X
122 FS? 55
123 XROM 29,08
124 STO 10
125 ST+ 11
126 "S ?"
127 PROMPT
128 "S=$"
129 ARCL X
130 FS? 55
131 XROM 29,08
132 ST+ 10
133 ST+ 12
134 RCL 08
135 22900
136 RCL 09
137 -
138 RCL 08
139 +
140 X>Y?
141 X<>Y
142 X<0?
143 CLX
144 6.13
145 %
146 RND
147 ST+ 10
148 ST+ 13
149 "FICA=$"
150 ARCL X
151 AVIEW
152 RCL 00
153 ABS
154 INT
155 1 E3
156 /
157 13
158 +
159 GTO 00
160 LBL 01
161 CLA
162 ARCL IND X
163 "=$"
164 ISG X
165 RCL 08
166 RCL IND Y
167 X>0?
168 %
169 ABS
170 RND
171 ST+ 10
172 ARCL X
173 AVIEW
174 ISG Z
175 ST+ IND Z
176 RDN
177 RDN
178 LBL 00
179 ISG X
180 GTO 01
181 "~DED=$"
182 ARCL 10
183 AVIEW
184 "~G=$"
185 ARCL 09
186 AVIEW
187 "~F=$"
188 ARCL 11
189 AVIEW
190 "~S=$"
191 ARCL 12
192 AVIEW
193 "~FICA=$"
194 ARCL 13
195 AVIEW
196 FRC
197 13
198 +
199 GTO 00
200 LBL 02
201 "~"
202 ARCL IND X
203 "=$"
204 2
205 +
206 ARCL IND X
207 AVIEW
208 LBL 00
209 ISG X
210 GTO 02
211 "NET=$"
212 RCL 08
213 RCL 10
214 -
215 ARCL X
216 CF 21
217 AVIEW
218 SF 21
219 FS? 55
220 XROM 29,08
221 STOP
222 XROM 30,07
223 RTN
224 END

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