github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-03-07 03:16:10 +00:00
Code Issues Releases Wiki Activity
Files
master
pkimpel.retro-220/software/examples/BLACKJACK/BLACKJACK.lst
Paul Kimpel e38dddfb79 Commit 220 BLACKJACK card game. 
Transcribed from "SAMPLE PROGRAM 2" in Appendix D of the
"Burroughs 220 Assembler-Compiler" manual, Bulletin 5024, April 1960.
Assemble with the BAC-Assembler. This manual was found at CBI:

    Burroughs Corporation Records, Product Literature (CBI 90),
    Charles Babbage Institute, University of Minnesota, Minneapolis.
    https://archives.lib.umn.edu/repositories/3/resources/186.
    Series 74, box 5, folder 17.
2021-09-04 18:09:44 -07:00

845 lines
46 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2020-07-18 11:29
Source File: BLACKJACK.card
START PASS 1
BLACKJACK -- SAMPLE PROGRAM 2
FROM BURROUGHS 220 ASSEMBLER-COMPILER MANUAL
BULLETIN 5024, APRIL 1960, APPENDIX D
001.00.0 0000 SHUFL BUN * EXIT
001.01.0 0001 CLL EYE SET I TO 0
001.02.0 0002 C1 LDB +ODD DIVIDE DECK INTO ODD AND EVEN STACK
001.03.0 0003 CLL OCTR
001.04.0 0004 RTF DECK,26
001.05.0 0005 CLL DCTR
001.06.0 0006 LDB +EVEN
001.07.0 0007 CLL ECTR
001.08.0 0008 RTF DECK+26,26
001.08.5 0009 MPF 1,1
001.09.0 0010 A1 CLA GENERATE A RANDOM NUMBER
001.10.0 0011 *C MPF 1,10
001.11.0 0012 *B MIB A+,1
001.12.0 0013 ADD +1
001.13.0 0014 BUN B-
001.13.2 0015 *A IFL C-,41,1
001.13.4 0016 IFL B-,4,3
001.13.5 0017 BUN A+
001.13.7 0018 DFL C-,41,1
001.13.9 0019 DFL B-,4,3
001.14.0 0020 *A STA RANDM
001.15.0 0021 CAD +1 IS IT ODD
001.16.0 0022 EXT RANDM
001.17.0 0023 BZA A+ NO
001.18.0 0024 LDB OCTR YES
002.19.0 0025 CAD - ODD GET NEXT CARD FROM ODD STACK
002.00.0 0026 LDB DCTR
002.01.0 0027 STA - DECK
002.02.0 0028 IBB *+1,1
002.03.0 0029 STB DCTR
002.04.0 0030 CAD OCTR IS THIS THE LAST CARD
002.05.0 0031 BFA B+,2,25 YES
002.06.0 0032 ADD +1 NO
002.07.0 0033 STA OCTR
002.08.0 0034 BUN A1
002.09.0 0035 *B CAD +26 GET REMAINDER OF CARDS FROM EVEN STACK
002.10.0 0036 SUB ECTR
002.11.0 0037 SLA 7
002.12.0 0038 STA B+,32
002.13.0 0039 CAD +EVEN
002.14.0 0040 ADD ECTR
002.15.0 0041 STA B+,4
002.16.0 0042 LDB DCTR
002.17.0 0043 IBB *+1,DECK
002.18.0 0044 *B RTF *,0
002.19.0 0045 BUN B+
003.00.0 0046 *A LDB ECTR RANDOM NUMBER IS EVEN
003.01.0 0047 CAD - EVEN GET NEXT CARD FROM EVEN STACK
003.02.0 0048 LDB DCTR
003.03.0 0049 STA - DECK
003.04.0 0050 IBB *+1,1
003.05.0 0051 STB DCTR
003.06.0 0052 CAD ECTR IS THIS THE LAST CARD
003.07.0 0053 BFA A+,2,25 YES
003.08.0 0054 ADD +1 NO
003.09.0 0055 STA ECTR
003.10.0 0056 BUN A1
003.11.0 0057 *A CAD +26 GET REMAINDER OF CARDS FROM ODD STACK
003.12.0 0058 SUB OCTR
003.13.0 0059 SLA 7
003.14.0 0060 STA A+,32
003.15.0 0061 CAD +ODD
003.16.0 0062 ADD OCTR
003.17.0 0063 STA A+,4
003.18.0 0064 LDB DCTR
003.19.0 0065 IBB *+1,DECK
004.00.0 0066 *A RTF *,0
004.01.0 0067 *B CAD EYE INCREASE I BY 1
004.02.0 0068 ADD +1
004.03.0 0069 STA EYE
004.04.0 0070 BFA B1,1,3 IS I 3
004.05.0 0071 BUN C1 NO
004.06.0 0072 B1 SPO $|CUT|$,1 YES, ALLOW CUT OF CARDS
004.07.0 0073 CLA
004.08.0 0074 KAD
004.09.0 0075 CFA +52
004.10.0 0076 BCL A+
004.11.0 0077 CLA
004.12.0 0078 *A STA STPT
004.13.0 0079 ADD +1
004.14.0 0080 BFA A+,2,52
004.15.0 0081 *B STA DCTR BURN FIRST CARD
004.16.0 0082 LDB STPT
004.17.0 0083 SPO MSG1,3
004.18.0 0084 SPO - DECK,1
004.19.0 0085 SPO $||~__$,1
005.00.0 0086 BUN SHUFL EXIT
005.01.0 0087 *A CLA
005.02.0 0088 BUN B-
005.03.0 0089 MSG1 CNST $FIRST CARD $
005.04.0 0092 DEAL BUN * EXIT
005.05.0 0093 LDB DCTR GET NEXT CARD
005.06.0 0094 CAD - DECK
005.07.0 0095 STA CARD
005.08.0 0096 CAD DCTR
005.09.0 0097 ADD +1
005.10.0 0098 BFA A+,2,52
005.11.0 0099 *B STA DCTR
005.12.0 0100 CFA STPT IS IT THE LAST CARD
005.13.0 0101 BCU DEAL NO
005.14.0 0102 SPO MSG2,3 YES. SHOW PLAYER LAST CARD
005.15.0 0103 SPO CARD,1
005.16.0 0104 STP SHUFL SHUFFLE
005.17.0 0105 BUN SHUFL+1
005.18.0 0106 BUN DEAL+1 GET NEXT CARD
005.19.0 0107 *A CLA
006.00.0 0108 BUN B-
006.01.0 0109 MSG2 CNST $||LAST CARD $
006.02.0 0112 BLKJK CLL SCORE SET SCORE TO 0
006.03.0 0113 STP SHUFL SHUFFLE
006.04.0 0114 BUN SHUFL+1
006.05.0 0115 M CLL PLACE SET PLAYERS AND DEALERS ACES TO 0
006.06.0 0116 CLL DLACE
006.07.0 0117 CLL PLTOT SET PLAYERS AND DEALERS TOTALS TO 0
006.08.0 0118 CLL DLTOT
006.09.0 0119 CAD ALPH1 SET ALPHA TO 1
006.10.0 0120 STA ALPHA
006.11.0 0121 CAD BETA1 SET BETA TO 1
006.12.0 0122 STA BETA
006.13.0 0123 CAD GAM1 SET GAMMA TO 1
006.14.0 0124 STA GAMMA
006.15.0 0125 SPO MSG3,2 ALLOW PLAYER TO NAME STAKE
006.16.0 0126 CLA
006.17.0 0127 KAD
006.17.5 0128 BZA A+
006.18.0 0129 STA STAKE
006.19.0 0130 *A SPO STAKE,1,2
007.00.0 0131 SPO $||~__$,1
007.01.0 0132 BUN B
007.02.0 0133 MSG3 CNST $||STAKE $
007.03.0 0135 B STP DEAL DEAL
007.04.0 0136 BUN DEAL+1
007.05.0 0137 SPO CARD,1 WRITE PLAYERS CARD
007.06.0 0138 CAD CARD IS IT AN ACE
007.07.0 0139 BFA A+,62,41 YES
007.08.0 0140 BUN A NO
007.09.0 0141 *A IFL PLACE,0,1 ADD 1 TO PLAYERS ACES
007.10.0 0142 A BFA A+,51,8 ADD CARD VALUE TO PLAYERS TOTAL
007.11.0 0143 BFA B+,62,41
007.12.0 0144 *C CAD +10
007.13.0 0145 BUN C+
007.14.0 0146 *A SRA 4
007.15.0 0147 EXT +1
007.16.0 0148 BZA C-
007.17.0 0149 BUN C+
007.18.0 0150 *B CAD +11
007.19.0 0151 *C ADL PLTOT
008.00.0 0152 ALPHA HLT
008.01.0 0153 ALPH1 BUN A+
008.02.0 0154 ALPH2 BUN B+
008.03.0 0155 *A CAD ALPH2 SET ALPHA TO 2
008.04.0 0156 STA ALPHA
008.05.0 0157 SPO $|~___$,1
008.06.0 0158 BUN B
008.07.0 0159 *B STP DEAL DEAL
008.08.0 0160 BUN DEAL+1
008.09.0 0161 SPO $~____$,1
DITTO 7.5,7.7 IS IT AN ACE
007.05.0 0162 SPO CARD,1 WRITE PLAYERS CARD
007.06.0 0163 CAD CARD IS IT AN ACE
007.07.0 0164 BFA A+,62,41 YES
008.11.0 0165 BUN B+ NO
008.12.0 0166 *A IFL DLACE,0,1 YES. ADD 1 TO DEALERS ACES
008.13.0 0167 *B BFA A+,51,8 ADD CARD VALUE TO DEALERS TOTAL
DITTO 7.11,7.18
007.11.0 0168 BFA B+,62,41
007.12.0 0169 *C CAD +10
007.13.0 0170 BUN C+
007.14.0 0171 *A SRA 4
007.15.0 0172 EXT +1
007.16.0 0173 BZA C-
007.17.0 0174 BUN C+
007.18.0 0175 *B CAD +11
008.15.0 0176 *C ADL DLTOT
008.16.0 0177 C SPO $|CARD$,1 DOES PLAYER WANT ANOTHER CARD
008.17.0 0178 SPO $~____$,1
008.18.0 0179 CLA
008.19.0 0180 KAD
009.00.0 0181 BZA A+ YES
009.01.0 0182 BETA HLT
009.02.0 0183 BETA1 BUN B+
009.03.0 0184 BETA2 BUN C+
009.04.0 0185 *B CAD BETA2 SET BETA TO 2
009.05.0 0186 STA BETA
009.06.0 0187 CAD PLTOT DOES PLAYER HAVE BLACKJACK
009.07.0 0188 BFA B+,2,21 YES
009.08.0 0189 *C SPO PLTOT,1 NO. WRITE PLAYERS TOTAL
009.09.0 0190 BUN F
009.10.0 0191 *B SPO MSG4,2 WRITE BLACKJACK
009.11.0 0192 STP DEAL DEAL
009.12.0 0193 BUN DEAL+1
009.13.0 0194 SPO $~____$,1
009.14.0 0195 SPO CARD,1
009.15.0 0196 SPO $|~___$,1
009.16.0 0197 CAD CARD ADD CARD VALUE TO DEALERS TOTAL
009.17.0 0198 BFA B+,51,8
009.18.0 0199 BFA C+,62,41
009.19.0 0200 *D CAD +10
010.00.0 0201 BUN D+
010.01.0 0202 *B BFA D-,61,0
010.02.0 0203 SRA 4
010.02.3 0204 EXT +1
010.02.6 0205 BUN D+
010.03.0 0206 *C CAD +11
010.04.0 0207 *D ADD DLTOT
010.04.5 0208 STA DLTOT
010.05.0 0209 BFA C+,2,21
010.05.3 0210 *B SPO $~____$,1
010.05.6 0211 SPO DLTOT,1
010.06.0 0212 CAD STAKE
010.07.0 0213 MUL +15
010.08.0 0214 SLT 9
010.09.0 0215 ADL SCORE
010.10.0 0216 BUN H
010.11.0 0217 MSG4 CNST $BLACKJACK$
010.11.1 0219 *C SPO $~____$,1
010.11.2 0220 SPO MSG4,2
010.11.3 0221 BUN H
010.11.4 0222 *A CAD BETA2
010.11.6 0223 STA BETA
010.12.0 0224 STP DEAL
DITTO 7.4,7.7 WRITE PLAYERS CARD
007.04.0 0225 BUN DEAL+1
007.05.0 0226 SPO CARD,1 WRITE PLAYERS CARD
007.06.0 0227 CAD CARD IS IT AN ACE
007.07.0 0228 BFA A+,62,41 YES
010.14.0 0229 BUN B+ IT IS NOT AN ACE
010.15.0 0230 *A IFL PLACE,0,1 ADD 1 TO PLAYERS ACES
DITTO 8.13,8.14 ADD CARD VALUE TO PLAYERS TOTAL
008.13.0 0231 *B BFA A+,51,8 ADD CARD VALUE TO DEALERS TOTAL
DITTO 7.11,7.18
007.11.0 0232 BFA B+,62,41
007.12.0 0233 *C CAD +10
007.13.0 0234 BUN C+
007.14.0 0235 *A SRA 4
007.15.0 0236 EXT +1
007.16.0 0237 BZA C-
007.17.0 0238 BUN C+
007.18.0 0239 *B CAD +11
010.17.0 0240 *C ADL PLTOT
010.18.0 0241 G CAD PLTOT IS PLAYERS TOTAL GREATER THAN 21
010.19.0 0242 CFA +21
011.00.0 0243 BCH E YES
011.01.0 0244 BUN C NO
011.02.0 0245 E CAD PLACE ARE PLAYERS ACES 0
011.03.0 0246 BZA A+ YES
011.04.0 0247 DFL PLACE,0,1 NO. DECREASE PLAYERS ACES BY 1
011.05.0 0248 DFL PLTOT,0,10 DECREASE LAYERS TOTAL BY 10
011.06.0 0249 BUN G
011.07.0 0250 *A SPO $|~___$,1
011.08.0 0251 SPO $ BUST$,1
011.09.0 0252 CAD SCORE SUBTRACT STAKE FROM SCORE
011.10.0 0253 SUB STAKE
011.12.0 0254 STA SCORE
DITTO 9.11,9.15 DEAL. WRITE DEALERS CARD
009.11.0 0255 STP DEAL DEAL
009.12.0 0256 BUN DEAL+1
009.13.0 0257 SPO $~____$,1
009.14.0 0258 SPO CARD,1
009.15.0 0259 SPO $|~___$,1
011.12.0 0260 BUN H
011.13.0 0261 F STP DEAL DEAL
DITTO 9.12,9.16 WRITE DEALERS CARD
009.12.0 0262 BUN DEAL+1
009.13.0 0263 SPO $~____$,1
009.14.0 0264 SPO CARD,1
009.15.0 0265 SPO $|~___$,1
009.16.0 0266 CAD CARD ADD CARD VALUE TO DEALERS TOTAL
011.15.0 0267 BFA A+,62,41 IS IT AN ACE
011.16.0 0268 BUN B+ NO
011.17.0 0269 *A IFL DLACE,0,1 ADD 1 TO DEALERS ACES
DITTO 8.13,8.15 ADD CARD VALUE TO DEALERS TOTAL
008.13.0 0270 *B BFA A+,51,8 ADD CARD VALUE TO DEALERS TOTAL
DITTO 7.11,7.18
007.11.0 0271 BFA B+,62,41
007.12.0 0272 *C CAD +10
007.13.0 0273 BUN C+
007.14.0 0274 *A SRA 4
007.15.0 0275 EXT +1
007.16.0 0276 BZA C-
007.17.0 0277 BUN C+
007.18.0 0278 *B CAD +11
008.15.0 0279 *C ADL DLTOT
011.19.0 0280 L CAD DLTOT IS DEALERS TOTAL GREATER THAN 16
012.00.0 0281 CFA +16
012.01.0 0282 BCH A+ YES
012.01.3 0283 CAD GAM2
012.01.6 0284 STA GAMMA
012.02.0 0285 BUN F
012.03.0 0286 *A CFA +21 IS DEALERS TOTAL GREATER THAN 21
012.04.0 0287 BCH A+ YES
012.05.0 0288 GAMMA HLT
012.06.0 0289 GAM1 BUN B+
012.07.0 0290 GAM2 BUN C+
012.08.0 0291 *B LDR GAM2 SET GAMMA TO 2
012.09.0 0292 STR GAMMA
012.10.0 0293 BCE B+
012.10.3 0294 *C SPO $~____$,1
012.10.6 0295 SPO DLTOT,1
012.11.0 0296 BUN I NO
012.11.2 0297 *B SPO $~____$,1
012.11.5 0298 SPO MSG4,2
012.11.7 0299 BUN D
012.12.0 0300 *A CAD DLACE ARE DEALERS ACES 0
012.13.0 0301 BZA K YES
012.14.0 0302 BUN J NO
012.15.0 0303 K SPO $~____$,1
012.15.5 0304 SPO $ BUST$,1
012.16.0 0305 CAD STAKE ADD STAKE TO SCORE
012.17.0 0306 ADL STORE
012.18.0 0307 BUN H
012.19.0 0308 J DFL DLACE,0,1 DECREASE DEALERS ACES BY 1
013.00.0 0309 DFL DLTOT,0,10 DECREASE DEALERS TOTAL BY 10
013.01.0 0310 BUN L
013.02.0 0311 I CAD PLTOT COMPARE PLAYERS TOTAL TO DEALERS TOTAL
013.03.0 0312 CFA DLTOT
013.04.0 0313 BCH A+ GREATER
013.05.0 0314 BCE H EQUAL
013.06.0 0315 D CAD SCORE LESS
013.07.0 0316 SUB STAKE SUBTRACT STAKE FROM SCORE
013.08.0 0317 STA SCORE
013.09.0 0318 BUN H
013.10.0 0319 *A CAD STAKE ADD STAKE TO SCORE
013.11.0 0320 ADL SCORE
013.12.0 0321 H SPO $||___$,1
013.13.0 0322 SPO $SCORE$,1
013.14.0 0323 SPO $__$,1
013.15.0 0324 SPO SCORE,1,2
014.01.0 0325 BUN M
014.02.0 0326 DECK CNST $ A S K S Q S J S 10 S 9 S 8 S 7 S 6 S 5 S 4
014.03.0 0336 S 3 S 2 S A H K H Q H J H 10 H 9 H 8 H 7 H 6
014.04.0 0347 H 5 H 4 H 3 H 2 H A D K D Q D J D 10 D 9 D 8
014.05.0 0358 D 7 D 6 D 5 D 4 D 3 D 2 D A C K C Q C J C 10
014.06.0 0369 C 9 C 8 C 7 C 6 C 5 C 4 C 3 C 2 C$
014.07.0 0378 EVEN LOCN *+26
014.08.0 0404 ODD LOCN *+26
999.99.0 0430 FINI
0430 EYE
0431 OCTR
0432 DCTR
0433 ECTR
0434 RANDM
0435 STPT
0436 CARD
0437 SCORE
0438 PLACE
0439 DLACE
0440 PLTOT
0441 DLTOT
0442 STAKE
0443 STORE
0444 +0000000404
0445 +0000000378
0446 +0000000001
0447 +0000000026
0448 $|CUT|
0449 +0000000052
0450 $||~__
0451 +0000000010
0452 +0000000011
0453 $|~___
0454 $~____
0455 $|CARD
0456 +0000000015
0457 +0000000021
0458 $ BUST
0459 +0000000016
0460 $||___
0461 $SCORE
0462 $__
END PASS 1, ERRORS = 0
START PASS 2
BLACKJACK -- SAMPLE PROGRAM 2
FROM BURROUGHS 220 ASSEMBLER-COMPILER MANUAL
BULLETIN 5024, APRIL 1960, APPENDIX D
001.00.0 5 0000 0 0000 30 0000 SHUFL BUN * EXIT
001.01.0 6 0001 0 0000 46 0430 CLL EYE SET I TO 0
001.02.0 7 0002 0 0000 42 0444 C1 LDB +ODD DIVIDE DECK INTO ODD AND EVEN STACK
001.03.0 8 0003 0 0000 46 0431 CLL OCTR
001.04.0 9 0004 0 0260 29 0326 RTF DECK,26
001.05.0 10 0005 0 0000 46 0432 CLL DCTR
001.06.0 11 0006 0 0000 42 0445 LDB +EVEN
001.07.0 12 0007 0 0000 46 0433 CLL ECTR
001.08.0 13 0008 0 0260 29 0352 RTF DECK+26,26
001.08.5 14 0009 0 1100 58 0000 MPF 1,1
001.09.0 15 0010 0 0001 45 0000 A1 CLA GENERATE A RANDOM NUMBER
001.10.0 16 0011 0 1000 58 0000 *C MPF 1,10
001.11.0 17 0012 0 1000 59 0015 *B MIB A+,1
001.12.0 18 0013 0 0000 12 0446 ADD +1
001.13.0 19 0014 0 0000 30 0012 BUN B-
001.13.2 20 0015 0 4101 26 0011 *A IFL C-,41,1
001.13.4 21 0016 0 0403 26 0012 IFL B-,4,3
001.13.5 22 0017 0 0000 30 0020 BUN A+
001.13.7 23 0018 0 4101 27 0011 DFL C-,41,1
001.13.9 24 0019 0 0403 27 0012 DFL B-,4,3
001.14.0 25 0020 0 0000 40 0434 *A STA RANDM
001.15.0 26 0021 0 0000 10 0446 CAD +1 IS IT ODD
001.16.0 27 0022 0 0000 17 0434 EXT RANDM
001.17.0 28 0023 0 0000 36 0046 BZA A+ NO
001.18.0 29 0024 0 0000 42 0431 LDB OCTR YES
002.19.0 30 0025 1 0000 10 0404 CAD - ODD GET NEXT CARD FROM ODD STACK
002.00.0 31 0026 0 0000 42 0432 LDB DCTR
002.01.0 32 0027 1 0000 40 0326 STA - DECK
002.02.0 33 0028 0 0001 20 0029 IBB *+1,1
002.03.0 34 0029 0 0002 40 0432 STB DCTR
002.04.0 35 0030 0 0000 10 0431 CAD OCTR IS THIS THE LAST CARD
002.05.0 36 0031 0 0225 36 0035 BFA B+,2,25 YES
002.06.0 37 0032 0 0000 12 0446 ADD +1 NO
002.07.0 38 0033 0 0000 40 0431 STA OCTR
002.08.0 39 0034 0 0000 30 0010 BUN A1
002.09.0 40 0035 0 0000 10 0447 *B CAD +26 GET REMAINDER OF CARDS FROM EVEN STACK
002.10.0 41 0036 0 0000 13 0433 SUB ECTR
002.11.0 42 0037 0 0000 49 0007 SLA 7
002.12.0 43 0038 0 3210 40 0044 STA B+,32
002.13.0 44 0039 0 0000 10 0445 CAD +EVEN
002.14.0 45 0040 0 0000 12 0433 ADD ECTR
002.15.0 46 0041 0 0410 40 0044 STA B+,4
002.16.0 47 0042 0 0000 42 0432 LDB DCTR
002.17.0 48 0043 0 0326 20 0044 IBB *+1,DECK
002.18.0 49 0044 0 0000 29 0044 *B RTF *,0
002.19.0 50 0045 0 0000 30 0067 BUN B+
003.00.0 51 0046 0 0000 42 0433 *A LDB ECTR RANDOM NUMBER IS EVEN
003.01.0 52 0047 1 0000 10 0378 CAD - EVEN GET NEXT CARD FROM EVEN STACK
003.02.0 53 0048 0 0000 42 0432 LDB DCTR
003.03.0 54 0049 1 0000 40 0326 STA - DECK
003.04.0 55 0050 0 0001 20 0051 IBB *+1,1
003.05.0 56 0051 0 0002 40 0432 STB DCTR
003.06.0 57 0052 0 0000 10 0433 CAD ECTR IS THIS THE LAST CARD
003.07.0 58 0053 0 0225 36 0057 BFA A+,2,25 YES
003.08.0 59 0054 0 0000 12 0446 ADD +1 NO
003.09.0 60 0055 0 0000 40 0433 STA ECTR
003.10.0 61 0056 0 0000 30 0010 BUN A1
003.11.0 62 0057 0 0000 10 0447 *A CAD +26 GET REMAINDER OF CARDS FROM ODD STACK
003.12.0 63 0058 0 0000 13 0431 SUB OCTR
003.13.0 64 0059 0 0000 49 0007 SLA 7
003.14.0 65 0060 0 3210 40 0066 STA A+,32
003.15.0 66 0061 0 0000 10 0444 CAD +ODD
003.16.0 67 0062 0 0000 12 0431 ADD OCTR
003.17.0 68 0063 0 0410 40 0066 STA A+,4
003.18.0 69 0064 0 0000 42 0432 LDB DCTR
003.19.0 70 0065 0 0326 20 0066 IBB *+1,DECK
004.00.0 71 0066 0 0000 29 0066 *A RTF *,0
004.01.0 72 0067 0 0000 10 0430 *B CAD EYE INCREASE I BY 1
004.02.0 73 0068 0 0000 12 0446 ADD +1
004.03.0 74 0069 0 0000 40 0430 STA EYE
004.04.0 75 0070 0 0103 36 0072 BFA B1,1,3 IS I 3
004.05.0 76 0071 0 0000 30 0002 BUN C1 NO
004.06.0 77 0072 0 0010 09 0448 B1 SPO $|CUT|$,1 YES, ALLOW CUT OF CARDS
004.07.0 78 0073 0 0001 45 0000 CLA
004.08.0 79 0074 0 0000 08 0000 KAD
004.09.0 80 0075 0 0000 18 0449 CFA +52
004.10.0 81 0076 0 0001 34 0078 BCL A+
004.11.0 82 0077 0 0001 45 0000 CLA
004.12.0 83 0078 0 0000 40 0435 *A STA STPT
004.13.0 84 0079 0 0000 12 0446 ADD +1
004.14.0 85 0080 0 0252 36 0087 BFA A+,2,52
004.15.0 86 0081 0 0000 40 0432 *B STA DCTR BURN FIRST CARD
004.16.0 87 0082 0 0000 42 0435 LDB STPT
004.17.0 88 0083 0 0030 09 0089 SPO MSG1,3
004.18.0 89 0084 1 0010 09 0326 SPO - DECK,1
004.19.0 90 0085 0 0010 09 0450 SPO $||~__$,1
005.00.0 91 0086 0 0000 30 0000 BUN SHUFL EXIT
005.01.0 92 0087 0 0001 45 0000 *A CLA
005.02.0 93 0088 0 0000 30 0081 BUN B-
005.03.0 94 0089 2 4649 59 6263 MSG1 CNST $FIRST CARD $
0090 2 0043 41 5944
0091 2 0000 00 0000
005.04.0 95 0092 0 0000 30 0092 DEAL BUN * EXIT
005.05.0 96 0093 0 0000 42 0432 LDB DCTR GET NEXT CARD
005.06.0 97 0094 1 0000 10 0326 CAD - DECK
005.07.0 98 0095 0 0000 40 0436 STA CARD
005.08.0 99 0096 0 0000 10 0432 CAD DCTR
005.09.0 100 0097 0 0000 12 0446 ADD +1
005.10.0 101 0098 0 0252 36 0107 BFA A+,2,52
005.11.0 102 0099 0 0000 40 0432 *B STA DCTR
005.12.0 103 0100 0 0000 18 0435 CFA STPT IS IT THE LAST CARD
005.13.0 104 0101 0 0001 35 0092 BCU DEAL NO
005.14.0 105 0102 0 0030 09 0109 SPO MSG2,3 YES. SHOW PLAYER LAST CARD
005.15.0 106 0103 0 0010 09 0436 SPO CARD,1
005.16.0 107 0104 0 0000 44 0000 STP SHUFL SHUFFLE
005.17.0 108 0105 0 0000 30 0001 BUN SHUFL+1
005.18.0 109 0106 0 0000 30 0093 BUN DEAL+1 GET NEXT CARD
005.19.0 110 0107 0 0001 45 0000 *A CLA
006.00.0 111 0108 0 0000 30 0099 BUN B-
006.01.0 112 0109 2 1616 53 4162 MSG2 CNST $||LAST CARD $
0110 2 6300 43 4159
0111 2 4400 00 0000
006.02.0 113 0112 0 0000 46 0437 BLKJK CLL SCORE SET SCORE TO 0
006.03.0 114 0113 0 0000 44 0000 STP SHUFL SHUFFLE
006.04.0 115 0114 0 0000 30 0001 BUN SHUFL+1
006.05.0 116 0115 0 0000 46 0438 M CLL PLACE SET PLAYERS AND DEALERS ACES TO 0
006.06.0 117 0116 0 0000 46 0439 CLL DLACE
006.07.0 118 0117 0 0000 46 0440 CLL PLTOT SET PLAYERS AND DEALERS TOTALS TO 0
006.08.0 119 0118 0 0000 46 0441 CLL DLTOT
006.09.0 120 0119 0 0000 10 0153 CAD ALPH1 SET ALPHA TO 1
006.10.0 121 0120 0 0000 40 0152 STA ALPHA
006.11.0 122 0121 0 0000 10 0183 CAD BETA1 SET BETA TO 1
006.12.0 123 0122 0 0000 40 0182 STA BETA
006.13.0 124 0123 0 0000 10 0289 CAD GAM1 SET GAMMA TO 1
006.14.0 125 0124 0 0000 40 0288 STA GAMMA
006.15.0 126 0125 0 0020 09 0133 SPO MSG3,2 ALLOW PLAYER TO NAME STAKE
006.16.0 127 0126 0 0001 45 0000 CLA
006.17.0 128 0127 0 0000 08 0000 KAD
006.17.5 129 0128 0 0000 36 0130 BZA A+
006.18.0 130 0129 0 0000 40 0442 STA STAKE
006.19.0 131 0130 0 2011 09 0442 *A SPO STAKE,1,2
007.00.0 132 0131 0 0010 09 0450 SPO $||~__$,1
007.01.0 133 0132 0 0000 30 0135 BUN B
007.02.0 134 0133 2 1616 62 6341 MSG3 CNST $||STAKE $
0134 2 5245 00 0000
007.03.0 135 0135 0 0000 44 0092 B STP DEAL DEAL
007.04.0 136 0136 0 0000 30 0093 BUN DEAL+1
007.05.0 137 0137 0 0010 09 0436 SPO CARD,1 WRITE PLAYERS CARD
007.06.0 138 0138 0 0000 10 0436 CAD CARD IS IT AN ACE
007.07.0 139 0139 0 6241 36 0141 BFA A+,62,41 YES
007.08.0 140 0140 0 0000 30 0142 BUN A NO
007.09.0 141 0141 0 0001 26 0438 *A IFL PLACE,0,1 ADD 1 TO PLAYERS ACES
007.10.0 142 0142 0 5108 36 0146 A BFA A+,51,8 ADD CARD VALUE TO PLAYERS TOTAL
007.11.0 143 0143 0 6241 36 0150 BFA B+,62,41
007.12.0 144 0144 0 0000 10 0451 *C CAD +10
007.13.0 145 0145 0 0000 30 0151 BUN C+
007.14.0 146 0146 0 0000 48 0004 *A SRA 4
007.15.0 147 0147 0 0000 17 0446 EXT +1
007.16.0 148 0148 0 0000 36 0144 BZA C-
007.17.0 149 0149 0 0000 30 0151 BUN C+
007.18.0 150 0150 0 0000 10 0452 *B CAD +11
007.19.0 151 0151 0 0000 19 0440 *C ADL PLTOT
008.00.0 152 0152 0 0000 00 0000 ALPHA HLT
008.01.0 153 0153 0 0000 30 0155 ALPH1 BUN A+
008.02.0 154 0154 0 0000 30 0159 ALPH2 BUN B+
008.03.0 155 0155 0 0000 10 0154 *A CAD ALPH2 SET ALPHA TO 2
008.04.0 156 0156 0 0000 40 0152 STA ALPHA
008.05.0 157 0157 0 0010 09 0453 SPO $|~___$,1
008.06.0 158 0158 0 0000 30 0135 BUN B
008.07.0 159 0159 0 0000 44 0092 *B STP DEAL DEAL
008.08.0 160 0160 0 0000 30 0093 BUN DEAL+1
008.09.0 161 0161 0 0010 09 0454 SPO $~____$,1
DITTO 7.5,7.7 IS IT AN ACE
007.05.0 163 0162 0 0010 09 0436 SPO CARD,1 WRITE PLAYERS CARD
007.06.0 164 0163 0 0000 10 0436 CAD CARD IS IT AN ACE
007.07.0 165 0164 0 6241 36 0166 BFA A+,62,41 YES
008.11.0 166 0165 0 0000 30 0167 BUN B+ NO
008.12.0 167 0166 0 0001 26 0439 *A IFL DLACE,0,1 YES. ADD 1 TO DEALERS ACES
008.13.0 168 0167 0 5108 36 0171 *B BFA A+,51,8 ADD CARD VALUE TO DEALERS TOTAL
DITTO 7.11,7.18
007.11.0 170 0168 0 6241 36 0175 BFA B+,62,41
007.12.0 171 0169 0 0000 10 0451 *C CAD +10
007.13.0 172 0170 0 0000 30 0176 BUN C+
007.14.0 173 0171 0 0000 48 0004 *A SRA 4
007.15.0 174 0172 0 0000 17 0446 EXT +1
007.16.0 175 0173 0 0000 36 0169 BZA C-
007.17.0 176 0174 0 0000 30 0176 BUN C+
007.18.0 177 0175 0 0000 10 0452 *B CAD +11
008.15.0 178 0176 0 0000 19 0441 *C ADL DLTOT
008.16.0 179 0177 0 0010 09 0455 C SPO $|CARD$,1 DOES PLAYER WANT ANOTHER CARD
008.17.0 180 0178 0 0010 09 0454 SPO $~____$,1
008.18.0 181 0179 0 0001 45 0000 CLA
008.19.0 182 0180 0 0000 08 0000 KAD
009.00.0 183 0181 0 0000 36 0222 BZA A+ YES
009.01.0 184 0182 0 0000 00 0000 BETA HLT
009.02.0 185 0183 0 0000 30 0185 BETA1 BUN B+
009.03.0 186 0184 0 0000 30 0189 BETA2 BUN C+
009.04.0 187 0185 0 0000 10 0184 *B CAD BETA2 SET BETA TO 2
009.05.0 188 0186 0 0000 40 0182 STA BETA
009.06.0 189 0187 0 0000 10 0440 CAD PLTOT DOES PLAYER HAVE BLACKJACK
009.07.0 190 0188 0 0221 36 0191 BFA B+,2,21 YES
009.08.0 191 0189 0 0010 09 0440 *C SPO PLTOT,1 NO. WRITE PLAYERS TOTAL
009.09.0 192 0190 0 0000 30 0261 BUN F
009.10.0 193 0191 0 0020 09 0217 *B SPO MSG4,2 WRITE BLACKJACK
009.11.0 194 0192 0 0000 44 0092 STP DEAL DEAL
009.12.0 195 0193 0 0000 30 0093 BUN DEAL+1
009.13.0 196 0194 0 0010 09 0454 SPO $~____$,1
009.14.0 197 0195 0 0010 09 0436 SPO CARD,1
009.15.0 198 0196 0 0010 09 0453 SPO $|~___$,1
009.16.0 199 0197 0 0000 10 0436 CAD CARD ADD CARD VALUE TO DEALERS TOTAL
009.17.0 200 0198 0 5108 36 0202 BFA B+,51,8
009.18.0 201 0199 0 6241 36 0206 BFA C+,62,41
009.19.0 202 0200 0 0000 10 0451 *D CAD +10
010.00.0 203 0201 0 0000 30 0207 BUN D+
010.01.0 204 0202 0 6100 36 0200 *B BFA D-,61,0
010.02.0 205 0203 0 0000 48 0004 SRA 4
010.02.3 206 0204 0 0000 17 0446 EXT +1
010.02.6 207 0205 0 0000 30 0207 BUN D+
010.03.0 208 0206 0 0000 10 0452 *C CAD +11
010.04.0 209 0207 0 0000 12 0441 *D ADD DLTOT
010.04.5 210 0208 0 0000 40 0441 STA DLTOT
010.05.0 211 0209 0 0221 36 0219 BFA C+,2,21
010.05.3 212 0210 0 0010 09 0454 *B SPO $~____$,1
010.05.6 213 0211 0 0010 09 0441 SPO DLTOT,1
010.06.0 214 0212 0 0000 10 0442 CAD STAKE
010.07.0 215 0213 0 0000 14 0456 MUL +15
010.08.0 216 0214 0 0001 49 0009 SLT 9
010.09.0 217 0215 0 0000 19 0437 ADL SCORE
010.10.0 218 0216 0 0000 30 0321 BUN H
010.11.0 219 0217 2 4253 41 4352 MSG4 CNST $BLACKJACK$
0218 2 5141 43 5200
010.11.1 220 0219 0 0010 09 0454 *C SPO $~____$,1
010.11.2 221 0220 0 0020 09 0217 SPO MSG4,2
010.11.3 222 0221 0 0000 30 0321 BUN H
010.11.4 223 0222 0 0000 10 0184 *A CAD BETA2
010.11.6 224 0223 0 0000 40 0182 STA BETA
010.12.0 225 0224 0 0000 44 0092 STP DEAL
DITTO 7.4,7.7 WRITE PLAYERS CARD
007.04.0 227 0225 0 0000 30 0093 BUN DEAL+1
007.05.0 228 0226 0 0010 09 0436 SPO CARD,1 WRITE PLAYERS CARD
007.06.0 229 0227 0 0000 10 0436 CAD CARD IS IT AN ACE
007.07.0 230 0228 0 6241 36 0230 BFA A+,62,41 YES
010.14.0 231 0229 0 0000 30 0231 BUN B+ IT IS NOT AN ACE
010.15.0 232 0230 0 0001 26 0438 *A IFL PLACE,0,1 ADD 1 TO PLAYERS ACES
DITTO 8.13,8.14 ADD CARD VALUE TO PLAYERS TOTAL
008.13.0 234 0231 0 5108 36 0235 *B BFA A+,51,8 ADD CARD VALUE TO DEALERS TOTAL
DITTO 7.11,7.18
007.11.0 236 0232 0 6241 36 0239 BFA B+,62,41
007.12.0 237 0233 0 0000 10 0451 *C CAD +10
007.13.0 238 0234 0 0000 30 0240 BUN C+
007.14.0 239 0235 0 0000 48 0004 *A SRA 4
007.15.0 240 0236 0 0000 17 0446 EXT +1
007.16.0 241 0237 0 0000 36 0233 BZA C-
007.17.0 242 0238 0 0000 30 0240 BUN C+
007.18.0 243 0239 0 0000 10 0452 *B CAD +11
010.17.0 244 0240 0 0000 19 0440 *C ADL PLTOT
010.18.0 245 0241 0 0000 10 0440 G CAD PLTOT IS PLAYERS TOTAL GREATER THAN 21
010.19.0 246 0242 0 0000 18 0457 CFA +21
011.00.0 247 0243 0 0000 34 0245 BCH E YES
011.01.0 248 0244 0 0000 30 0177 BUN C NO
011.02.0 249 0245 0 0000 10 0438 E CAD PLACE ARE PLAYERS ACES 0
011.03.0 250 0246 0 0000 36 0250 BZA A+ YES
011.04.0 251 0247 0 0001 27 0438 DFL PLACE,0,1 NO. DECREASE PLAYERS ACES BY 1
011.05.0 252 0248 0 0010 27 0440 DFL PLTOT,0,10 DECREASE LAYERS TOTAL BY 10
011.06.0 253 0249 0 0000 30 0241 BUN G
011.07.0 254 0250 0 0010 09 0453 *A SPO $|~___$,1
011.08.0 255 0251 0 0010 09 0458 SPO $ BUST$,1
011.09.0 256 0252 0 0000 10 0437 CAD SCORE SUBTRACT STAKE FROM SCORE
011.10.0 257 0253 0 0000 13 0442 SUB STAKE
011.12.0 258 0254 0 0000 40 0437 STA SCORE
DITTO 9.11,9.15 DEAL. WRITE DEALERS CARD
009.11.0 260 0255 0 0000 44 0092 STP DEAL DEAL
009.12.0 261 0256 0 0000 30 0093 BUN DEAL+1
009.13.0 262 0257 0 0010 09 0454 SPO $~____$,1
009.14.0 263 0258 0 0010 09 0436 SPO CARD,1
009.15.0 264 0259 0 0010 09 0453 SPO $|~___$,1
011.12.0 265 0260 0 0000 30 0321 BUN H
011.13.0 266 0261 0 0000 44 0092 F STP DEAL DEAL
DITTO 9.12,9.16 WRITE DEALERS CARD
009.12.0 268 0262 0 0000 30 0093 BUN DEAL+1
009.13.0 269 0263 0 0010 09 0454 SPO $~____$,1
009.14.0 270 0264 0 0010 09 0436 SPO CARD,1
009.15.0 271 0265 0 0010 09 0453 SPO $|~___$,1
009.16.0 272 0266 0 0000 10 0436 CAD CARD ADD CARD VALUE TO DEALERS TOTAL
011.15.0 273 0267 0 6241 36 0269 BFA A+,62,41 IS IT AN ACE
011.16.0 274 0268 0 0000 30 0270 BUN B+ NO
011.17.0 275 0269 0 0001 26 0439 *A IFL DLACE,0,1 ADD 1 TO DEALERS ACES
DITTO 8.13,8.15 ADD CARD VALUE TO DEALERS TOTAL
008.13.0 277 0270 0 5108 36 0274 *B BFA A+,51,8 ADD CARD VALUE TO DEALERS TOTAL
DITTO 7.11,7.18
007.11.0 279 0271 0 6241 36 0278 BFA B+,62,41
007.12.0 280 0272 0 0000 10 0451 *C CAD +10
007.13.0 281 0273 0 0000 30 0279 BUN C+
007.14.0 282 0274 0 0000 48 0004 *A SRA 4
007.15.0 283 0275 0 0000 17 0446 EXT +1
007.16.0 284 0276 0 0000 36 0272 BZA C-
007.17.0 285 0277 0 0000 30 0279 BUN C+
007.18.0 286 0278 0 0000 10 0452 *B CAD +11
008.15.0 287 0279 0 0000 19 0441 *C ADL DLTOT
011.19.0 288 0280 0 0000 10 0441 L CAD DLTOT IS DEALERS TOTAL GREATER THAN 16
012.00.0 289 0281 0 0000 18 0459 CFA +16
012.01.0 290 0282 0 0000 34 0286 BCH A+ YES
012.01.3 291 0283 0 0000 10 0290 CAD GAM2
012.01.6 292 0284 0 0000 40 0288 STA GAMMA
012.02.0 293 0285 0 0000 30 0261 BUN F
012.03.0 294 0286 0 0000 18 0457 *A CFA +21 IS DEALERS TOTAL GREATER THAN 21
012.04.0 295 0287 0 0000 34 0300 BCH A+ YES
012.05.0 296 0288 0 0000 00 0000 GAMMA HLT
012.06.0 297 0289 0 0000 30 0291 GAM1 BUN B+
012.07.0 298 0290 0 0000 30 0294 GAM2 BUN C+
012.08.0 299 0291 0 0000 41 0290 *B LDR GAM2 SET GAMMA TO 2
012.09.0 300 0292 0 0001 40 0288 STR GAMMA
012.10.0 301 0293 0 0000 35 0297 BCE B+
012.10.3 302 0294 0 0010 09 0454 *C SPO $~____$,1
012.10.6 303 0295 0 0010 09 0441 SPO DLTOT,1
012.11.0 304 0296 0 0000 30 0311 BUN I NO
012.11.2 305 0297 0 0010 09 0454 *B SPO $~____$,1
012.11.5 306 0298 0 0020 09 0217 SPO MSG4,2
012.11.7 307 0299 0 0000 30 0315 BUN D
012.12.0 308 0300 0 0000 10 0439 *A CAD DLACE ARE DEALERS ACES 0
012.13.0 309 0301 0 0000 36 0303 BZA K YES
012.14.0 310 0302 0 0000 30 0308 BUN J NO
012.15.0 311 0303 0 0010 09 0454 K SPO $~____$,1
012.15.5 312 0304 0 0010 09 0458 SPO $ BUST$,1
012.16.0 313 0305 0 0000 10 0442 CAD STAKE ADD STAKE TO SCORE
012.17.0 314 0306 0 0000 19 0443 ADL STORE
012.18.0 315 0307 0 0000 30 0321 BUN H
012.19.0 316 0308 0 0001 27 0439 J DFL DLACE,0,1 DECREASE DEALERS ACES BY 1
013.00.0 317 0309 0 0010 27 0441 DFL DLTOT,0,10 DECREASE DEALERS TOTAL BY 10
013.01.0 318 0310 0 0000 30 0280 BUN L
013.02.0 319 0311 0 0000 10 0440 I CAD PLTOT COMPARE PLAYERS TOTAL TO DEALERS TOTAL
013.03.0 320 0312 0 0000 18 0441 CFA DLTOT
013.04.0 321 0313 0 0000 34 0319 BCH A+ GREATER
013.05.0 322 0314 0 0000 35 0321 BCE H EQUAL
013.06.0 323 0315 0 0000 10 0437 D CAD SCORE LESS
013.07.0 324 0316 0 0000 13 0442 SUB STAKE SUBTRACT STAKE FROM SCORE
013.08.0 325 0317 0 0000 40 0437 STA SCORE
013.09.0 326 0318 0 0000 30 0321 BUN H
013.10.0 327 0319 0 0000 10 0442 *A CAD STAKE ADD STAKE TO SCORE
013.11.0 328 0320 0 0000 19 0437 ADL SCORE
013.12.0 329 0321 0 0010 09 0460 H SPO $||___$,1
013.13.0 330 0322 0 0010 09 0461 SPO $SCORE$,1
013.14.0 331 0323 0 0010 09 0462 SPO $__$,1
013.15.0 332 0324 0 2011 09 0437 SPO SCORE,1,2
014.01.0 333 0325 0 0000 30 0115 BUN M
014.02.0 334 0326 2 0000 41 0062 DECK CNST $ A S K S Q S J S 10 S 9 S 8 S 7 S 6 S 5 S 4
0327 2 0000 52 0062
0328 2 0000 58 0062
0329 2 0000 51 0062
0330 2 0081 80 0062
0331 2 0000 89 0062
0332 2 0000 88 0062
0333 2 0000 87 0062
0334 2 0000 86 0062
0335 2 0000 85 0062
014.03.0 335 0336 2 0000 84 0062 S 3 S 2 S A H K H Q H J H 10 H 9 H 8 H 7 H 6
0337 2 0000 83 0062
0338 2 0000 82 0062
0339 2 0000 41 0048
0340 2 0000 52 0048
0341 2 0000 58 0048
0342 2 0000 51 0048
0343 2 0081 80 0048
0344 2 0000 89 0048
0345 2 0000 88 0048
0346 2 0000 87 0048
014.04.0 336 0347 2 0000 86 0048 H 5 H 4 H 3 H 2 H A D K D Q D J D 10 D 9 D 8
0348 2 0000 85 0048
0349 2 0000 84 0048
0350 2 0000 83 0048
0351 2 0000 82 0048
0352 2 0000 41 0044
0353 2 0000 52 0044
0354 2 0000 58 0044
0355 2 0000 51 0044
0356 2 0081 80 0044
0357 2 0000 89 0044
014.05.0 337 0358 2 0000 88 0044 D 7 D 6 D 5 D 4 D 3 D 2 D A C K C Q C J C 10
0359 2 0000 87 0044
0360 2 0000 86 0044
0361 2 0000 85 0044
0362 2 0000 84 0044
0363 2 0000 83 0044
0364 2 0000 82 0044
0365 2 0000 41 0043
0366 2 0000 52 0043
0367 2 0000 58 0043
0368 2 0000 51 0043
014.06.0 338 0369 2 0081 80 0043 C 9 C 8 C 7 C 6 C 5 C 4 C 3 C 2 C$
0370 2 0000 89 0043
0371 2 0000 88 0043
0372 2 0000 87 0043
0373 2 0000 86 0043
0374 2 0000 85 0043
0375 2 0000 84 0043
0376 2 0000 83 0043
0377 2 0000 82 0043
014.07.0 339 0378 EVEN LOCN *+26
014.08.0 340 0404 ODD LOCN *+26
999.99.0 341 0430 FINI
0430 0 0000 00 0000 EYE
0431 0 0000 00 0000 OCTR
0432 0 0000 00 0000 DCTR
0433 0 0000 00 0000 ECTR
0434 0 0000 00 0000 RANDM
0435 0 0000 00 0000 STPT
0436 0 0000 00 0000 CARD
0437 0 0000 00 0000 SCORE
0438 0 0000 00 0000 PLACE
0439 0 0000 00 0000 DLACE
0440 0 0000 00 0000 PLTOT
0441 0 0000 00 0000 DLTOT
0442 0 0000 00 0000 STAKE
0443 0 0000 00 0000 STORE
0444 0 0000 00 0404 +0000000404
0445 0 0000 00 0378 +0000000378
0446 0 0000 00 0001 +0000000001
0447 0 0000 00 0026 +0000000026
0448 2 1643 64 6316 $|CUT|
0449 0 0000 00 0052 +0000000052
0450 2 1616 26 0202 $||~__
0451 0 0000 00 0010 +0000000010
0452 0 0000 00 0011 +0000000011
0453 2 1626 02 0202 $|~___
0454 2 2602 02 0202 $~____
0455 2 1643 41 5944 $|CARD
0456 0 0000 00 0015 +0000000015
0457 0 0000 00 0021 +0000000021
0458 2 0042 64 6263 $ BUST
0459 0 0000 00 0016 +0000000016
0460 2 1616 02 0202 $||___
0461 2 6243 56 5945 $SCORE
0462 2 0202 00 0000 $__
SYMBOL TABLE
458 $ BUST 461 $SCORE 462 $__ 455 $|CARD 448 $|CUT|
460 $||___ 450 $||~__ 453 $|~___ 454 $~____ 15 *A..1
20 *A..2 46 *A..3 57 *A..4 66 *A..5 78 *A..6
87 *A..7 107 *A..8 130 *A..9 141 *A.10 146 *A.11
155 *A.12 166 *A.13 171 *A.14 222 *A.15 230 *A.16
235 *A.17 250 *A.18 269 *A.19 274 *A.20 286 *A.21
300 *A.22 319 *A.23 12 *B..1 35 *B..2 44 *B..3
67 *B..4 81 *B..5 99 *B..6 150 *B..7 159 *B..8
167 *B..9 175 *B.10 185 *B.11 191 *B.12 202 *B.13
210 *B.14 231 *B.15 239 *B.16 270 *B.17 278 *B.18
291 *B.19 297 *B.20 11 *C..1 144 *C..2 151 *C..3
169 *C..4 176 *C..5 189 *C..6 206 *C..7 219 *C..8
233 *C..9 240 *C.10 272 *C.11 279 *C.12 294 *C.13
200 *D..1 207 *D..2 446 +0000000001 451 +0000000010 452 +0000000011
456 +0000000015 459 +0000000016 457 +0000000021 447 +0000000026 449 +0000000052
445 +0000000378 444 +0000000404 142 A 10 A1 153 ALPH1
154 ALPH2 152 ALPHA 135 B 72 B1 182 BETA
183 BETA1 184 BETA2 112 BLKJK 8 BMOD 177 C
2 C1 436 CARD 315 D 432 DCTR 92 DEAL
326 DECK 439 DLACE 441 DLTOT 245 E 433 ECTR
378 EVEN 430 EYE 261 F 241 G 289 GAM1
290 GAM2 288 GAMMA 321 H 311 I 308 J
303 K 280 L 115 M 89 MSG1 109 MSG2
133 MSG3 217 MSG4 431 OCTR 404 ODD 438 PLACE
440 PLTOT 434 RANDM 1 RLO 437 SCORE 0 SHUFL
442 STAKE 443 STORE 435 STPT
END PASS 2, ERRORS = 0
Reference in New Issue View Git Blame Copy Permalink