The Museum of HP Calculators

Blackjack 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 "CRD"
 02 CLA
 03 ASTO 19
 04 1
 05 STO 15
 06 RCL 00
 07 9821
 08 *
 09 .211327
 10 +
 11 FRC
 12 STO 00
 13 RCL 14
 14 *
 15 INT
 16 1
 17 +
 18 LBL 02
 19 RCL IND 15
 20 X>Y?
 21 GTO 03
 22 -
 23 ISG 15
 24 LBL 99
 25 GTO 02
 26 LBL 03
 27 DSE IND 15
 28 LBL 99
 29 DSE 14
 30 12
 31 RCL 14
 32 X>Y?
 33 GTO 04
 34 XEQ "SH"
 35 LBL 04
 36 RCL 15
 37 STO 16
 38 10
 39 X<=Y?
 40 GTO 00
 41 X<>Y
 42 STO 16
 43 1
 44 X=Y?
 45 GTO A
 46 CLA
 47 ARCL Y
 48 GTO 01
 49 LBL 00
 50 STO 16
 51 CLX
 52 10
 53 X=Y?
 54 GTO "10"
 55 1
 56 +
 57 X=Y?
 58 GTO J
 59 1
 60 +
 61 X=Y?
 62 GTO "Q"
 63 "K"
 64 GTO 01
 65 LBL A
 66 "A"
 67 CF 07
 68 GTO 01
 69 LBL "Q"
 70 "Q"
 71 GTO 01
 72 LBL J
 73 "J"
 74 GTO 01
 75 LBL "10"
 76 "10"
 77 LBL 01
 78 ASTO 19
 79 RCL 16
 80 RTN
 81 LBL "SH"
 82 "SHUFFLING"
 83 AVIEW
 84 1.013
 85 ENTER
 86 8
 87 LBL 14
 88 STO IND Y
 89 ISG Y
 90 GTO 14
 91 104
 92 STO 14
 93 CLD
 94 CF 00
 95 CF 01
 96 CF 02
 97 CF 03
 98 CF 04
 99 RTN
100 LBL "DL"
101 CF 09
102 SF 07
103 ABS
104 INT
105 FS?C 22
106 STO 22
107 RCL 22
108 STO 20
109 SF 06
110 CLA
111 ASTO 26
112 ASTO 25
113 XEQ "CRD"
114 RCL 15
115 STO 17
116 XEQ "CRD"
117 STO 23
118 CF 08
119 FS? 07
120 SF 08
121 CLA
122 ARCL 19
123 ARCL 25
124 ASTO 25
125 "I SHOW "
126 ARCL 25
127 AVIEW
128 SF 07
129 0
130 STO 24
131 XEQ "CRD"
132 XEQ "PH"
133 XEQ "CRD"
134 XEQ "PH"
135 RCL 24
136 10
137 FS? 07
138 CLX
139 +
140 21
141 X#Y?
142 SF 09
143 FS? 09
144 RTN
145 21.5
146 STO 24
147 1.5
148 ST* 20
149 "BLACKJACK"
150 AVIEW
151 LBL "S"
152 CF 06
153 FS? 07
154 GTO 05
155 11
156 RCL 24
157 X>Y?
158 GTO 05
159 10
160 ST+ 24
161 LBL 05
162 CF 07
163 FS? 08
164 SF 07
165 RCL 17
166 STO 15
167 XEQ 04
168 XEQ "DH"
169 FS? 07
170 GTO 07
171 11
172 RCL 23
173 X#Y?
174 GTO 07
175 21.5
176 STO 23
177 "I HAVE BLACKJAC"
178 "K"
179 AVIEW
180 GTO 07
181 LBL 06
182 XEQ "CRD"
183 XEQ "DH"
184 LBL 07
185 FS? 06
186 GTO 09
187 FC? 09
188 GTO 08
189 RCL 23
190 17
191 X<=Y?
192 GTO 08
193 FS? 07
194 GTO 06
195 11
196 RCL 23
197 X>Y?
198 GTO 06
199 7
200 X>Y?
201 GTO 06
202 10
203 ST+ 23
204 LBL 08
205 21.5
206 RCL 23
207 X>Y?
208 XEQ "DB"
209 RCL 24
210 -
211 X=0?
212 XEQ "P"
213 X>0?
214 SF 06
215 LBL 09
216 RCL 20
217 FS? 06
218 CHS
219 ST+ 21
220 "YOUR BANK IS $"
221 ARCL 21
222 AVIEW
223 RTN
224 LBL "HT"
225 XEQ "CRD"
226 XEQ "PH"
227 RCL 24
228 21.5
229 X>Y?
230 RTN
231 "BUST"
232 AVIEW
233 GTO 05
234 LBL "DB"
235 "BUST"
236 AVIEW
237 0
238 RTN
239 LBL "PH"
240 ST+ 24
241 CLA
242 ARCL 26
243 ARCL 19
244 ASTO 26
245 "YOU HAVE "
246 ARCL 26
247 AVIEW
248 RTN
249 LBL "DH"
250 ST+ 23
251 CLA
252 ARCL 25
253 ARCL 19
254 ASTO 25
255 "I HAVE "
256 ARCL 25
257 AVIEW
258 RTN
259 LBL "P"
260 "A PUSH"
261 AVIEW
262 ST* 20
263 END

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