The Museum of HP Calculators


Blackjack with a Permanent Bank for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Games 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 "BJACK"
 02 LBL 15
 03 LBL a
 04 STO 09
 05 STO 07
 06 LN
 07 .1
 08 ST+ 07
 09 ST+ 07
 10 ST+ 09
 11 2
 12 LN
 13 STO 00
 14 LBL 19
 15 LBL e
 16 XEQ 00
 17 GTO 19
 18 LBL 10
 19 LBL A
 20 SF 00
 21 RCL 09
 22 X<>Y
 23 X>Y?
 24 GTO 07
 25 STO 08
 26 LN
 27 CLX
 28 STO 01
 29 STO 02
 30 STO 03
 31 STO 04
 32 XEQ 12
 33 STO 22
 34 RDN
 35 STO 05
 36 RDN
 37 STO 06
 38 XEQ 04
 39 STO 20
 40 7PRTX
 41 XEQ 12
 42 CF 01
 43 STO 23
 44 XEQ 04
 45 STO 21
 46 RCL 04
 47 RCL 02
 48 X<=Y?
 49 X<>Y
 50 21
 51 -
 52 0
 53 X#Y?
 54 RTN
 55 RCL 21
 56 7PRTX
 57 RCL 04
 58 XEQ 03
 59 X>0?
 60 50
 61 %
 62 INT
 63 ST+ 09
 64 RCL 09
 65 RTN
 66 LBL 11
 67 LBL B
 68 FS? 01
 69 GTO 07
 70 RCL 22
 71 RCL 23
 72 X#Y?
 73 GTO 07
 74 RCL 09
 75 RCL 08
 76 2
 77 *
 78 X>Y?
 79 GTO 07
 80 RCL 06
 81 STO 04
 82 RCL 05
 83 STO 03
 84 CLX
 85 CF 00
 86 RTN
 87 LBL 12
 88 LBL C
 89 SF 01
 90 RCL 03
 91 RCL 04
 92 XEQ 18
 93 ST+ 04
 94 X<>Y
 95 ST+ 03
 96 RCL 24
 97 .1
 98 +
 99 7PRTX
100 RTN
101 LBL 13
102 LBL D
103 FS? 00
104 GTO 07
105 RCL 05
106 RCL 06
107 XEQ 18
108 ST+ 06
109 X<>Y
110 ST+ 05
111 RCL 24
112 .2
113 +
114 7PRTX
115 RTN
116 LBL 14
117 LBL E
118 RCL 20
119 PSE
120 RCL 21
121 7PRTX
122 LBL 01
123 RCL 02
124 RCL 01
125 SF 22
126 XEQ 02
127 17
128 X<=Y?
129 GTO 05
130 XEQ 04
131 7PRTX
132 GTO 01
133 LBL 00
134 997
135 RCL 00
136 *
137 FRC
138 STO 00
139 13
140 *
141 INT
142 RTN
143 LBL 02
144 12
145 X>Y?
146 RDN
147 RDN
148 FS?C 22
149 RTN
150 21
151 X<>Y
152 X>Y?
153 CLX
154 RTN
155 LBL 03
156 RCL 02
157 -
158 ENTER
159 ABS
160 X#0?
161 /
162 RCL 08
163 *
164 ST+ 09
165 RTN
166 LBL 04
167 RCL 01
168 RCL 02
169 XEQ 18
170 ST+ 02
171 X<>Y
172 ST+ 01
173 RCL 24
174 RTN
175 LBL 05
176 RCL 02
177 RCL 01
178 CF 22
179 XEQ 02
180 X=0?
181 1
182 STO 02
183 RCL 04
184 RCL 03
185 LBL 06
186 XEQ 02
187 XEQ 03
188 RCL 09
189 FS? 00
190 RTN
191 SF 00
192 RCL 06
193 RCL 05
194 GTO 06
195 LBL 18
196 LBL d
197 X#Y?
198 SF 02
199 XEQ 00
200 X#0?
201 SF 02
202 1
203 +
204 STO 24
205 10
206 X>Y?
207 X<>Y
208 ENTER
209 FS?C 02
210 RTN
211 10
212 +
213 RTN
214 LBL 17
215 LBL c
216 RCL 07
217 RCL 09
218 STO 07
219 X<>Y
220 STO 09
221 RTN
222 GTO 67
223 END

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