1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-02-28 01:16:17 +00:00
Files
pkimpel.retro-220/software/examples/BLACKJACK/BLACKJACK-Load.pt
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

415 lines
4.5 KiB
XML

61000040000
00000300000
00000460430
00000420444
00000460431
00260290326
00000460432
00000420445
00000460433
00260290352
01100580000
00001450000
01000580000
01000590015
00000120446
00000300012
04101260011
00403260012
00000300020
04101270011
00403270012
00000400434
00000100446
00000170434
00000360046
00000420431
10000100404
00000420432
10000400326
00001200029
00002400432
00000100431
00225360035
00000120446
00000400431
00000300010
00000100447
00000130433
00000490007
03210400044
00000100445
00000120433
00410400044
00000420432
00326200044
00000290044
00000300067
00000420433
10000100378
00000420432
10000400326
00001200051
00002400432
00000100433
00225360057
00000120446
00000400433
00000300010
00000100447
00000130431
00000490007
03210400066
00000100444
00000120431
00410400066
00000420432
00326200066
00000290066
00000100430
00000120446
00000400430
00103360072
00000300002
00010090448
00001450000
00000080000
00000180449
00001340078
00001450000
00000400435
00000120446
00252360087
00000400432
00000420435
00030090089
10010090326
00010090450
00000300000
00001450000
00000300081
2FIRST
2 CARD
2
00000300092
00000420432
10000100326
00000400436
00000100432
00000120446
00252360107
00000400432
00000180435
00001350092
00030090109
00010090436
00000440000
00000300001
00000300093
00001450000
00000300099
2||LAS
2T CAR
2D
00000460437
00000440000
00000300001
00000460438
00000460439
00000460440
00000460441
00000100153
00000400152
00000100183
00000400182
00000100289
00000400288
00020090133
00001450000
00000080000
00000360130
00000400442
02011090442
00010090450
00000300135
2||STA
2KE
00000440092
00000300093
00010090436
00000100436
06241360141
00000300142
00001260438
05108360146
06241360150
00000100451
00000300151
00000480004
00000170446
00000360144
00000300151
00000100452
00000190440
00000000000
00000300155
00000300159
00000100154
00000400152
00010090453
00000300135
00000440092
00000300093
00010090454
00010090436
00000100436
06241360166
00000300167
00001260439
05108360171
06241360175
00000100451
00000300176
00000480004
00000170446
00000360169
00000300176
00000100452
00000190441
00010090455
00010090454
00001450000
00000080000
00000360222
00000000000
00000300185
00000300189
00000100184
00000400182
00000100440
00221360191
00010090440
00000300261
00020090217
00000440092
00000300093
00010090454
00010090436
00010090453
00000100436
05108360202
06241360206
00000100451
00000300207
06100360200
00000480004
00000170446
00000300207
00000100452
00000120441
00000400441
00221360219
00010090454
00010090441
00000100442
00000140456
00001490009
00000190437
00000300321
2BLACK
2JACK
00010090454
00020090217
00000300321
00000100184
00000400182
00000440092
00000300093
00010090436
00000100436
06241360230
00000300231
00001260438
05108360235
06241360239
00000100451
00000300240
00000480004
00000170446
00000360233
00000300240
00000100452
00000190440
00000100440
00000180457
00000340245
00000300177
00000100438
00000360250
00001270438
00010270440
00000300241
00010090453
00010090458
00000100437
00000130442
00000400437
00000440092
00000300093
00010090454
00010090436
00010090453
00000300321
00000440092
00000300093
00010090454
00010090436
00010090453
00000100436
06241360269
00000300270
00001260439
05108360274
06241360278
00000100451
00000300279
00000480004
00000170446
00000360272
00000300279
00000100452
00000190441
00000100441
00000180459
00000340286
00000100290
00000400288
00000300261
00000180457
00000340300
00000000000
00000300291
00000300294
00000410290
00001400288
00000350297
00010090454
00010090441
00000300311
00010090454
00020090217
00000300315
00000100439
00000360303
00000300308
00010090454
00010090458
00000100442
00000190443
00000300321
00001270439
00010270441
00000300280
00000100440
00000180441
00000340319
00000350321
00000100437
00000130442
00000400437
00000300321
00000100442
00000190437
00010090460
00010090461
00010090462
02011090437
00000300115
2 A S
2 K S
2 Q S
2 J S
2 10 S
2 9 S
2 8 S
2 7 S
2 6 S
2 5 S
2 4 S
2 3 S
2 2 S
2 A H
2 K H
2 Q H
2 J H
2 10 H
2 9 H
2 8 H
2 7 H
2 6 H
2 5 H
2 4 H
2 3 H
2 2 H
2 A D
2 K D
2 Q D
2 J D
2 10 D
2 9 D
2 8 D
2 7 D
2 6 D
2 5 D
2 4 D
2 3 D
2 2 D
2 A C
2 K C
2 Q C
2 J C
2 10 C
2 9 C
2 8 C
2 7 C
2 6 C
2 5 C
2 4 C
2 3 C
2 2 C
61000040430
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000404
00000000378
00000000001
00000000026
2|CUT|
00000000052
2||~__
00000000010
00000000011
2|~___
2~____
2|CARD
00000000015
00000000021
2 BUST
00000000016
2||___
2SCORE
2__
60000300112