� Sixty Six Loader V.2.21
.�1:�23;8202;0;0;0;19,2,2;0;:*L.KQJdata B00

�assemble
(��23,224,0,54,127,127,127,62,28,8,23,225,0,8,28,62,127,127,28,62,23,226,0,8,28,62,127,62,28,8,23,227,0,28,28,107,127,107,8,28,23,228,206,219,219,219,219,219,206,0
2G�23,229,240,240,240,240,240,240,0;23,239,160,160,160,160,160,160,0;
<��23,240,7950;32575;32639;32639;23,241,31800;65534;65535;65535;23,242,7999;1807;259;0;23,243,64766;61688;49376;128;23,244,256;1795;7951;32575;23,245,49280;61664;64760;65534;23,246,32639;15486;769;7;23,247,65535;40639;57536;240;
F��23,248,256;1795;7951;32575;23,249,49280;61664;64760;65534;23,250,7999;1807;259;0;23,251,64766;61688;49376;128;23,252,256;771;7427;16190;23,253,49152;57568;56544;65214;23,254,7230;257;1795;0;23,255,40126;49344;61664;0;
P&� 1,1,0,0,0,0,0,0,126,-1,0,-1,88,0
Z*� 2,2,33,-33,33,2,2,2,127,0,0,-20,88,0
d+� 3,2,1,1,1,50,50,50,63,-10,0,-63,63,63
n&� 4,3,1,-1,1,1,2,1,75,0,0,-75,75,0
x��0,130:�:�0,0:�1276,0:�1276,1023:�0,1023:�0,4:�1272,4:�1272,1019:�4,1019:�4,4:�0,152:�1276,152:�1276,156:�0,156:� 0,799:�1276,799:�1276,795:�0,795
�A�5:�0,1:Z%=1:�X%=140 � 1100 � 192:� X%,204:�;Z%;:Z%=Z%+1:�:�4
�A�0,128:�24,8;8;1268;148;16:�0,129:�24,8;803;1268;1015;16:�0,3
���732,803:�732,1023:�736,1023:�736,803:�5:�928,1007:�"Last":�912,971:�"Round":�1088,1007:�"Total":�1088,971:�"Score":�4:�3:�129:�24,3)"You    0    0"�24,5)"Comp   0    0"':�130
�4�title("SIXTY",3,24,991):�title("SIX",3,456,991)
�#A%=&900:C%=&920:P%=&928:W%=&930
�/W%?1=11:W%?2=10:W%?3=4:W%?4=3:W%?5=2:W%?6=0
�:
��"66GB"
�:
�� �title(A$,C%,H%,V%)
�� 0,C%:� K%=1 � �A$
�?&70=��A$,K%,1)
�A%=10:X%=&70:Y%=0:� &FFF1

Y%=V%:� J%=0 � 7:B%=J%?&71

� I%=7 � 0 �-1:Z%=2^I%

+� B%�Z% X%=7-I%:�5:� H%+X%*12,Y%:�239,4

"B%=B%�Z%

,�:Y%=Y%-24

6�:H%=H%+80

@�:�

J:

T� �assemble

^Haddr=&70:x=&72:y=&74:col=&76:count=&77:scr=&78:data=&7A:oswrch=&FFEE

h� pass=0 � 2 � 2

rP%=&938:[OPT pass

|LDX #230

�
.loop1

�%LDA #23:JSR oswrch:TXA:JSR oswrch

�
LDY #0

�
.loop2

�LDA (addr),Y:JSR oswrch

�INY:CPY #8:BNE loop2

�CLC:TYA:ADC addr:STA addr

�INX:CPX #239:BNE loop1

�(LDA #25:JSR oswrch:LDA #4:JSR oswrch

�'LDA x:JSR oswrch:LDA x+1:JSR oswrch

�'LDA y:JSR oswrch:LDA y+1:JSR oswrch

�
LDX #0

�
.loop3
LDA vdu,X:JSR oswrch
INX:CPX #17:BNE loop3
RTS
&.vdu
0EQUB 230:EQUB 231:EQUB 232
: EQUB 8:EQUB 8:EQUB 8:EQUB 10
DEQUB 233:EQUB 234:EQUB 235
N EQUB 8:EQUB 8:EQUB 8:EQUB 10
X%EQUB 236:EQUB 237:EQUB 238:EQUB 0
b:
�	.card
�LDA #blank � 256:STA data
�LDA #blank � 256:STA data+1
�JSR line
�LDA #0:STA count
�
.loop1
JSR line:JSR ddata
(INC count:LDA count:CMP #4:BNE loop1
JSR line
 JSR line
*RTS
4	.line
>JSR draw
H
JSR idata
R
LDX #9
\
.loop2
fJSR draw
pDEX:BPL loop2
z
JSR idata
�JSR draw
� CLC:LDA scr:ADC #&20:STA scr
�LDA scr+1:ADC #2:STA scr+1
�
JSR idata
�RTS
�:
�	.draw
�
LDY #0
�
.dloop
�LDA (data),Y:STA (scr),Y
�INY:CPY #8:BNE dloop
�CLC:TYA:ADC scr:STA scr
�BCC nocarry:INC scr+1
.nocarry
RTS

.idata
$ CLC:LDA data:ADC #8:STA data
.BCC nocarry2:INC data+1
8
.nocarry2
BRTS
L
.ddata
V!SEC:LDA data:SBC #24:STA data
`BCS carry:DEC data+1
j
.carry
tRTS
~
.blank
�]EQUD &77773380:EQUD &77777777:EQUD &FFFFFF00:EQUD &FFFFFFFF:EQUD &B8B83070:EQUD &B8B8B8B8
�]EQUD &77777777:EQUD &77777777:EQUD &FFFFFFFF:EQUD &FFFFFFFF:EQUD &B8B8B8B8:EQUD &B8B8B8B8
�]EQUD &77777777:EQUD &80337777:EQUD &FFFFFFFF:EQUD &00FFFFFF:EQUD &B8B8B8B8:EQUD &7030B8B8
�]
��:�
�

00000000  0d 00 0a 1d f4 20 53 69  78 74 79 20 53 69 78 20  |..... Sixty Six |
00000010  4c 6f 61 64 65 72 20 56  2e 32 2e 32 31 0d 00 14  |Loader V.2.21...|
00000020  2e eb 31 3a ef 32 33 3b  38 32 30 32 3b 30 3b 30  |..1:.23;8202;0;0|
00000030  3b 30 3b 31 39 2c 32 2c  32 3b 30 3b 3a 2a 4c 2e  |;0;19,2,2;0;:*L.|
00000040  4b 51 4a 64 61 74 61 20  42 30 30 0d 00 1e 0d f2  |KQJdata B00.....|
00000050  61 73 73 65 6d 62 6c 65  0d 00 28 a5 ef 32 33 2c  |assemble..(..23,|
00000060  32 32 34 2c 30 2c 35 34  2c 31 32 37 2c 31 32 37  |224,0,54,127,127|
00000070  2c 31 32 37 2c 36 32 2c  32 38 2c 38 2c 32 33 2c  |,127,62,28,8,23,|
00000080  32 32 35 2c 30 2c 38 2c  32 38 2c 36 32 2c 31 32  |225,0,8,28,62,12|
00000090  37 2c 31 32 37 2c 32 38  2c 36 32 2c 32 33 2c 32  |7,127,28,62,23,2|
000000a0  32 36 2c 30 2c 38 2c 32  38 2c 36 32 2c 31 32 37  |26,0,8,28,62,127|
000000b0  2c 36 32 2c 32 38 2c 38  2c 32 33 2c 32 32 37 2c  |,62,28,8,23,227,|
000000c0  30 2c 32 38 2c 32 38 2c  31 30 37 2c 31 32 37 2c  |0,28,28,107,127,|
000000d0  31 30 37 2c 38 2c 32 38  2c 32 33 2c 32 32 38 2c  |107,8,28,23,228,|
000000e0  32 30 36 2c 32 31 39 2c  32 31 39 2c 32 31 39 2c  |206,219,219,219,|
000000f0  32 31 39 2c 32 31 39 2c  32 30 36 2c 30 0d 00 32  |219,219,206,0..2|
00000100  47 ef 32 33 2c 32 32 39  2c 32 34 30 2c 32 34 30  |G.23,229,240,240|
00000110  2c 32 34 30 2c 32 34 30  2c 32 34 30 2c 32 34 30  |,240,240,240,240|
00000120  2c 30 3b 32 33 2c 32 33  39 2c 31 36 30 2c 31 36  |,0;23,239,160,16|
00000130  30 2c 31 36 30 2c 31 36  30 2c 31 36 30 2c 31 36  |0,160,160,160,16|
00000140  30 2c 30 3b 0d 00 3c e6  ef 32 33 2c 32 34 30 2c  |0,0;..<..23,240,|
00000150  37 39 35 30 3b 33 32 35  37 35 3b 33 32 36 33 39  |7950;32575;32639|
00000160  3b 33 32 36 33 39 3b 32  33 2c 32 34 31 2c 33 31  |;32639;23,241,31|
00000170  38 30 30 3b 36 35 35 33  34 3b 36 35 35 33 35 3b  |800;65534;65535;|
00000180  36 35 35 33 35 3b 32 33  2c 32 34 32 2c 37 39 39  |65535;23,242,799|
00000190  39 3b 31 38 30 37 3b 32  35 39 3b 30 3b 32 33 2c  |9;1807;259;0;23,|
000001a0  32 34 33 2c 36 34 37 36  36 3b 36 31 36 38 38 3b  |243,64766;61688;|
000001b0  34 39 33 37 36 3b 31 32  38 3b 32 33 2c 32 34 34  |49376;128;23,244|
000001c0  2c 32 35 36 3b 31 37 39  35 3b 37 39 35 31 3b 33  |,256;1795;7951;3|
000001d0  32 35 37 35 3b 32 33 2c  32 34 35 2c 34 39 32 38  |2575;23,245,4928|
000001e0  30 3b 36 31 36 36 34 3b  36 34 37 36 30 3b 36 35  |0;61664;64760;65|
000001f0  35 33 34 3b 32 33 2c 32  34 36 2c 33 32 36 33 39  |534;23,246,32639|
00000200  3b 31 35 34 38 36 3b 37  36 39 3b 37 3b 32 33 2c  |;15486;769;7;23,|
00000210  32 34 37 2c 36 35 35 33  35 3b 34 30 36 33 39 3b  |247,65535;40639;|
00000220  35 37 35 33 36 3b 32 34  30 3b 0d 00 46 de ef 32  |57536;240;..F..2|
00000230  33 2c 32 34 38 2c 32 35  36 3b 31 37 39 35 3b 37  |3,248,256;1795;7|
00000240  39 35 31 3b 33 32 35 37  35 3b 32 33 2c 32 34 39  |951;32575;23,249|
00000250  2c 34 39 32 38 30 3b 36  31 36 36 34 3b 36 34 37  |,49280;61664;647|
00000260  36 30 3b 36 35 35 33 34  3b 32 33 2c 32 35 30 2c  |60;65534;23,250,|
00000270  37 39 39 39 3b 31 38 30  37 3b 32 35 39 3b 30 3b  |7999;1807;259;0;|
00000280  32 33 2c 32 35 31 2c 36  34 37 36 36 3b 36 31 36  |23,251,64766;616|
00000290  38 38 3b 34 39 33 37 36  3b 31 32 38 3b 32 33 2c  |88;49376;128;23,|
000002a0  32 35 32 2c 32 35 36 3b  37 37 31 3b 37 34 32 37  |252,256;771;7427|
000002b0  3b 31 36 31 39 30 3b 32  33 2c 32 35 33 2c 34 39  |;16190;23,253,49|
000002c0  31 35 32 3b 35 37 35 36  38 3b 35 36 35 34 34 3b  |152;57568;56544;|
000002d0  36 35 32 31 34 3b 32 33  2c 32 35 34 2c 37 32 33  |65214;23,254,723|
000002e0  30 3b 32 35 37 3b 31 37  39 35 3b 30 3b 32 33 2c  |0;257;1795;0;23,|
000002f0  32 35 35 2c 34 30 31 32  36 3b 34 39 33 34 34 3b  |255,40126;49344;|
00000300  36 31 36 36 34 3b 30 3b  0d 00 50 26 e2 20 31 2c  |61664;0;..P&. 1,|
00000310  31 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 31 32  |1,0,0,0,0,0,0,12|
00000320  36 2c 2d 31 2c 30 2c 2d  31 2c 38 38 2c 30 0d 00  |6,-1,0,-1,88,0..|
00000330  5a 2a e2 20 32 2c 32 2c  33 33 2c 2d 33 33 2c 33  |Z*. 2,2,33,-33,3|
00000340  33 2c 32 2c 32 2c 32 2c  31 32 37 2c 30 2c 30 2c  |3,2,2,2,127,0,0,|
00000350  2d 32 30 2c 38 38 2c 30  0d 00 64 2b e2 20 33 2c  |-20,88,0..d+. 3,|
00000360  32 2c 31 2c 31 2c 31 2c  35 30 2c 35 30 2c 35 30  |2,1,1,1,50,50,50|
00000370  2c 36 33 2c 2d 31 30 2c  30 2c 2d 36 33 2c 36 33  |,63,-10,0,-63,63|
00000380  2c 36 33 0d 00 6e 26 e2  20 34 2c 33 2c 31 2c 2d  |,63..n&. 4,3,1,-|
00000390  31 2c 31 2c 31 2c 32 2c  31 2c 37 35 2c 30 2c 30  |1,1,1,2,1,75,0,0|
000003a0  2c 2d 37 35 2c 37 35 2c  30 0d 00 78 96 e6 30 2c  |,-75,75,0..x..0,|
000003b0  31 33 30 3a da 3a ec 30  2c 30 3a df 31 32 37 36  |130:.:.0,0:.1276|
000003c0  2c 30 3a df 31 32 37 36  2c 31 30 32 33 3a df 30  |,0:.1276,1023:.0|
000003d0  2c 31 30 32 33 3a df 30  2c 34 3a df 31 32 37 32  |,1023:.0,4:.1272|
000003e0  2c 34 3a df 31 32 37 32  2c 31 30 31 39 3a df 34  |,4:.1272,1019:.4|
000003f0  2c 31 30 31 39 3a df 34  2c 34 3a ec 30 2c 31 35  |,1019:.4,4:.0,15|
00000400  32 3a df 31 32 37 36 2c  31 35 32 3a df 31 32 37  |2:.1276,152:.127|
00000410  36 2c 31 35 36 3a df 30  2c 31 35 36 3a ec 20 30  |6,156:.0,156:. 0|
00000420  2c 37 39 39 3a df 31 32  37 36 2c 37 39 39 3a df  |,799:.1276,799:.|
00000430  31 32 37 36 2c 37 39 35  3a df 30 2c 37 39 35 0d  |1276,795:.0,795.|
00000440  00 82 41 ef 35 3a e6 30  2c 31 3a 5a 25 3d 31 3a  |..A.5:.0,1:Z%=1:|
00000450  e3 58 25 3d 31 34 30 20  b8 20 31 31 30 30 20 88  |.X%=140 . 1100 .|
00000460  20 31 39 32 3a ec 20 58  25 2c 32 30 34 3a f1 3b  | 192:. X%,204:.;|
00000470  5a 25 3b 3a 5a 25 3d 5a  25 2b 31 3a ed 3a ef 34  |Z%;:Z%=Z%+1:.:.4|
00000480  0d 00 8c 41 e6 30 2c 31  32 38 3a ef 32 34 2c 38  |...A.0,128:.24,8|
00000490  3b 38 3b 31 32 36 38 3b  31 34 38 3b 31 36 3a e6  |;8;1268;148;16:.|
000004a0  30 2c 31 32 39 3a ef 32  34 2c 38 3b 38 30 33 3b  |0,129:.24,8;803;|
000004b0  31 32 36 38 3b 31 30 31  35 3b 31 36 3a e6 30 2c  |1268;1015;16:.0,|
000004c0  33 0d 00 96 b4 ec 37 33  32 2c 38 30 33 3a df 37  |3.....732,803:.7|
000004d0  33 32 2c 31 30 32 33 3a  df 37 33 36 2c 31 30 32  |32,1023:.736,102|
000004e0  33 3a df 37 33 36 2c 38  30 33 3a ef 35 3a ec 39  |3:.736,803:.5:.9|
000004f0  32 38 2c 31 30 30 37 3a  f1 22 4c 61 73 74 22 3a  |28,1007:."Last":|
00000500  ec 39 31 32 2c 39 37 31  3a f1 22 52 6f 75 6e 64  |.912,971:."Round|
00000510  22 3a ec 31 30 38 38 2c  31 30 30 37 3a f1 22 54  |":.1088,1007:."T|
00000520  6f 74 61 6c 22 3a ec 31  30 38 38 2c 39 37 31 3a  |otal":.1088,971:|
00000530  f1 22 53 63 6f 72 65 22  3a ef 34 3a fb 33 3a fb  |."Score":.4:.3:.|
00000540  31 32 39 3a f1 8a 32 34  2c 33 29 22 59 6f 75 20  |129:..24,3)"You |
00000550  20 20 20 30 20 20 20 20  30 22 8a 32 34 2c 35 29  |   0    0".24,5)|
00000560  22 43 6f 6d 70 20 20 20  30 20 20 20 20 30 22 27  |"Comp   0    0"'|
00000570  3a fb 31 33 30 0d 00 a0  34 f2 74 69 74 6c 65 28  |:.130...4.title(|
00000580  22 53 49 58 54 59 22 2c  33 2c 32 34 2c 39 39 31  |"SIXTY",3,24,991|
00000590  29 3a f2 74 69 74 6c 65  28 22 53 49 58 22 2c 33  |):.title("SIX",3|
000005a0  2c 34 35 36 2c 39 39 31  29 0d 00 aa 23 41 25 3d  |,456,991)...#A%=|
000005b0  26 39 30 30 3a 43 25 3d  26 39 32 30 3a 50 25 3d  |&900:C%=&920:P%=|
000005c0  26 39 32 38 3a 57 25 3d  26 39 33 30 0d 00 b4 2f  |&928:W%=&930.../|
000005d0  57 25 3f 31 3d 31 31 3a  57 25 3f 32 3d 31 30 3a  |W%?1=11:W%?2=10:|
000005e0  57 25 3f 33 3d 34 3a 57  25 3f 34 3d 33 3a 57 25  |W%?3=4:W%?4=3:W%|
000005f0  3f 35 3d 32 3a 57 25 3f  36 3d 30 0d 00 be 05 3a  |?5=2:W%?6=0....:|
00000600  0d 00 c8 0b d7 22 36 36  47 42 22 0d 00 d2 05 3a  |....."66GB"....:|
00000610  0d 00 dc 19 dd 20 f2 74  69 74 6c 65 28 41 24 2c  |..... .title(A$,|
00000620  43 25 2c 48 25 2c 56 25  29 0d 00 e6 17 e6 20 30  |C%,H%,V%)..... 0|
00000630  2c 43 25 3a e3 20 4b 25  3d 31 20 b8 20 a9 41 24  |,C%:. K%=1 . .A$|
00000640  0d 00 f0 13 3f 26 37 30  3d 97 c1 41 24 2c 4b 25  |....?&70=..A$,K%|
00000650  2c 31 29 0d 00 fa 1d 41  25 3d 31 30 3a 58 25 3d  |,1)....A%=10:X%=|
00000660  26 37 30 3a 59 25 3d 30  3a d6 20 26 46 46 46 31  |&70:Y%=0:. &FFF1|
00000670  0d 01 04 1e 59 25 3d 56  25 3a e3 20 4a 25 3d 30  |....Y%=V%:. J%=0|
00000680  20 b8 20 37 3a 42 25 3d  4a 25 3f 26 37 31 0d 01  | . 7:B%=J%?&71..|
00000690  0e 1a e3 20 49 25 3d 37  20 b8 20 30 20 88 2d 31  |... I%=7 . 0 .-1|
000006a0  3a 5a 25 3d 32 5e 49 25  0d 01 18 2b e7 20 42 25  |:Z%=2^I%...+. B%|
000006b0  81 5a 25 20 58 25 3d 37  2d 49 25 3a ef 35 3a ec  |.Z% X%=7-I%:.5:.|
000006c0  20 48 25 2b 58 25 2a 31  32 2c 59 25 3a ef 32 33  | H%+X%*12,Y%:.23|
000006d0  39 2c 34 0d 01 22 0c 42  25 3d 42 25 83 5a 25 0d  |9,4..".B%=B%.Z%.|
000006e0  01 2c 0e ed 3a 59 25 3d  59 25 2d 32 34 0d 01 36  |.,..:Y%=Y%-24..6|
000006f0  0e ed 3a 48 25 3d 48 25  2b 38 30 0d 01 40 07 ed  |..:H%=H%+80..@..|
00000700  3a e1 0d 01 4a 05 3a 0d  01 54 0f dd 20 f2 61 73  |:...J.:..T.. .as|
00000710  73 65 6d 62 6c 65 0d 01  5e 48 61 64 64 72 3d 26  |semble..^Haddr=&|
00000720  37 30 3a 78 3d 26 37 32  3a 79 3d 26 37 34 3a 63  |70:x=&72:y=&74:c|
00000730  6f 6c 3d 26 37 36 3a 63  6f 75 6e 74 3d 26 37 37  |ol=&76:count=&77|
00000740  3a 73 63 72 3d 26 37 38  3a 64 61 74 61 3d 26 37  |:scr=&78:data=&7|
00000750  41 3a 6f 73 77 72 63 68  3d 26 46 46 45 45 0d 01  |A:oswrch=&FFEE..|
00000760  68 14 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |h.. pass=0 . 2 .|
00000770  20 32 0d 01 72 15 50 25  3d 26 39 33 38 3a 5b 4f  | 2..r.P%=&938:[O|
00000780  50 54 20 70 61 73 73 0d  01 7c 0c 4c 44 58 20 23  |PT pass..|.LDX #|
00000790  32 33 30 0d 01 86 0a 2e  6c 6f 6f 70 31 0d 01 90  |230.....loop1...|
000007a0  25 4c 44 41 20 23 32 33  3a 4a 53 52 20 6f 73 77  |%LDA #23:JSR osw|
000007b0  72 63 68 3a 54 58 41 3a  4a 53 52 20 6f 73 77 72  |rch:TXA:JSR oswr|
000007c0  63 68 0d 01 9a 0a 4c 44  59 20 23 30 0d 01 a4 0a  |ch....LDY #0....|
000007d0  2e 6c 6f 6f 70 32 0d 01  ae 1b 4c 44 41 20 28 61  |.loop2....LDA (a|
000007e0  64 64 72 29 2c 59 3a 4a  53 52 20 6f 73 77 72 63  |ddr),Y:JSR oswrc|
000007f0  68 0d 01 b8 18 49 4e 59  3a 43 50 59 20 23 38 3a  |h....INY:CPY #8:|
00000800  42 4e 45 20 6c 6f 6f 70  32 0d 01 c2 1d 43 4c 43  |BNE loop2....CLC|
00000810  3a 54 59 41 3a 41 44 43  20 61 64 64 72 3a 53 54  |:TYA:ADC addr:ST|
00000820  41 20 61 64 64 72 0d 01  cc 1a 49 4e 58 3a 43 50  |A addr....INX:CP|
00000830  58 20 23 32 33 39 3a 42  4e 45 20 6c 6f 6f 70 31  |X #239:BNE loop1|
00000840  0d 01 d6 28 4c 44 41 20  23 32 35 3a 4a 53 52 20  |...(LDA #25:JSR |
00000850  6f 73 77 72 63 68 3a 4c  44 41 20 23 34 3a 4a 53  |oswrch:LDA #4:JS|
00000860  52 20 6f 73 77 72 63 68  0d 01 e0 27 4c 44 41 20  |R oswrch...'LDA |
00000870  78 3a 4a 53 52 20 6f 73  77 72 63 68 3a 4c 44 41  |x:JSR oswrch:LDA|
00000880  20 78 2b 31 3a 4a 53 52  20 6f 73 77 72 63 68 0d  | x+1:JSR oswrch.|
00000890  01 ea 27 4c 44 41 20 79  3a 4a 53 52 20 6f 73 77  |..'LDA y:JSR osw|
000008a0  72 63 68 3a 4c 44 41 20  79 2b 31 3a 4a 53 52 20  |rch:LDA y+1:JSR |
000008b0  6f 73 77 72 63 68 0d 01  f4 0a 4c 44 58 20 23 30  |oswrch....LDX #0|
000008c0  0d 01 fe 0a 2e 6c 6f 6f  70 33 0d 02 08 18 4c 44  |.....loop3....LD|
000008d0  41 20 76 64 75 2c 58 3a  4a 53 52 20 6f 73 77 72  |A vdu,X:JSR oswr|
000008e0  63 68 0d 02 12 19 49 4e  58 3a 43 50 58 20 23 31  |ch....INX:CPX #1|
000008f0  37 3a 42 4e 45 20 6c 6f  6f 70 33 0d 02 1c 07 52  |7:BNE loop3....R|
00000900  54 53 0d 02 26 08 2e 76  64 75 0d 02 30 1e 45 51  |TS..&..vdu..0.EQ|
00000910  55 42 20 32 33 30 3a 45  51 55 42 20 32 33 31 3a  |UB 230:EQUB 231:|
00000920  45 51 55 42 20 32 33 32  0d 02 3a 20 45 51 55 42  |EQUB 232..: EQUB|
00000930  20 38 3a 45 51 55 42 20  38 3a 45 51 55 42 20 38  | 8:EQUB 8:EQUB 8|
00000940  3a 45 51 55 42 20 31 30  0d 02 44 1e 45 51 55 42  |:EQUB 10..D.EQUB|
00000950  20 32 33 33 3a 45 51 55  42 20 32 33 34 3a 45 51  | 233:EQUB 234:EQ|
00000960  55 42 20 32 33 35 0d 02  4e 20 45 51 55 42 20 38  |UB 235..N EQUB 8|
00000970  3a 45 51 55 42 20 38 3a  45 51 55 42 20 38 3a 45  |:EQUB 8:EQUB 8:E|
00000980  51 55 42 20 31 30 0d 02  58 25 45 51 55 42 20 32  |QUB 10..X%EQUB 2|
00000990  33 36 3a 45 51 55 42 20  32 33 37 3a 45 51 55 42  |36:EQUB 237:EQUB|
000009a0  20 32 33 38 3a 45 51 55  42 20 30 0d 02 62 05 3a  | 238:EQUB 0..b.:|
000009b0  0d 02 c6 09 2e 63 61 72  64 0d 02 d0 1d 4c 44 41  |.....card....LDA|
000009c0  20 23 62 6c 61 6e 6b 20  83 20 32 35 36 3a 53 54  | #blank . 256:ST|
000009d0  41 20 64 61 74 61 0d 02  da 1f 4c 44 41 20 23 62  |A data....LDA #b|
000009e0  6c 61 6e 6b 20 81 20 32  35 36 3a 53 54 41 20 64  |lank . 256:STA d|
000009f0  61 74 61 2b 31 0d 02 e4  0c 4a 53 52 20 6c 69 6e  |ata+1....JSR lin|
00000a00  65 0d 02 ee 14 4c 44 41  20 23 30 3a 53 54 41 20  |e....LDA #0:STA |
00000a10  63 6f 75 6e 74 0d 02 f8  0a 2e 6c 6f 6f 70 31 0d  |count.....loop1.|
00000a20  03 02 16 4a 53 52 20 6c  69 6e 65 3a 4a 53 52 20  |...JSR line:JSR |
00000a30  64 64 61 74 61 0d 03 0c  28 49 4e 43 20 63 6f 75  |ddata...(INC cou|
00000a40  6e 74 3a 4c 44 41 20 63  6f 75 6e 74 3a 43 4d 50  |nt:LDA count:CMP|
00000a50  20 23 34 3a 42 4e 45 20  6c 6f 6f 70 31 0d 03 16  | #4:BNE loop1...|
00000a60  0c 4a 53 52 20 6c 69 6e  65 0d 03 20 0c 4a 53 52  |.JSR line.. .JSR|
00000a70  20 6c 69 6e 65 0d 03 2a  07 52 54 53 0d 03 34 09  | line..*.RTS..4.|
00000a80  2e 6c 69 6e 65 0d 03 3e  0c 4a 53 52 20 64 72 61  |.line..>.JSR dra|
00000a90  77 0d 03 48 0d 4a 53 52  20 69 64 61 74 61 0d 03  |w..H.JSR idata..|
00000aa0  52 0a 4c 44 58 20 23 39  0d 03 5c 0a 2e 6c 6f 6f  |R.LDX #9..\..loo|
00000ab0  70 32 0d 03 66 0c 4a 53  52 20 64 72 61 77 0d 03  |p2..f.JSR draw..|
00000ac0  70 11 44 45 58 3a 42 50  4c 20 6c 6f 6f 70 32 0d  |p.DEX:BPL loop2.|
00000ad0  03 7a 0d 4a 53 52 20 69  64 61 74 61 0d 03 84 0c  |.z.JSR idata....|
00000ae0  4a 53 52 20 64 72 61 77  0d 03 8e 20 43 4c 43 3a  |JSR draw... CLC:|
00000af0  4c 44 41 20 73 63 72 3a  41 44 43 20 23 26 32 30  |LDA scr:ADC #&20|
00000b00  3a 53 54 41 20 73 63 72  0d 03 98 1e 4c 44 41 20  |:STA scr....LDA |
00000b10  73 63 72 2b 31 3a 41 44  43 20 23 32 3a 53 54 41  |scr+1:ADC #2:STA|
00000b20  20 73 63 72 2b 31 0d 03  a2 0d 4a 53 52 20 69 64  | scr+1....JSR id|
00000b30  61 74 61 0d 03 ac 07 52  54 53 0d 03 b6 05 3a 0d  |ata....RTS....:.|
00000b40  03 c0 09 2e 64 72 61 77  0d 03 ca 0a 4c 44 59 20  |....draw....LDY |
00000b50  23 30 0d 03 d4 0a 2e 64  6c 6f 6f 70 0d 03 de 1c  |#0.....dloop....|
00000b60  4c 44 41 20 28 64 61 74  61 29 2c 59 3a 53 54 41  |LDA (data),Y:STA|
00000b70  20 28 73 63 72 29 2c 59  0d 03 e8 18 49 4e 59 3a  | (scr),Y....INY:|
00000b80  43 50 59 20 23 38 3a 42  4e 45 20 64 6c 6f 6f 70  |CPY #8:BNE dloop|
00000b90  0d 03 f2 1b 43 4c 43 3a  54 59 41 3a 41 44 43 20  |....CLC:TYA:ADC |
00000ba0  73 63 72 3a 53 54 41 20  73 63 72 0d 03 fc 19 42  |scr:STA scr....B|
00000bb0  43 43 20 6e 6f 63 61 72  72 79 3a 49 4e 43 20 73  |CC nocarry:INC s|
00000bc0  63 72 2b 31 0d 04 06 0c  2e 6e 6f 63 61 72 72 79  |cr+1.....nocarry|
00000bd0  0d 04 10 07 52 54 53 0d  04 1a 0a 2e 69 64 61 74  |....RTS.....idat|
00000be0  61 0d 04 24 20 43 4c 43  3a 4c 44 41 20 64 61 74  |a..$ CLC:LDA dat|
00000bf0  61 3a 41 44 43 20 23 38  3a 53 54 41 20 64 61 74  |a:ADC #8:STA dat|
00000c00  61 0d 04 2e 1b 42 43 43  20 6e 6f 63 61 72 72 79  |a....BCC nocarry|
00000c10  32 3a 49 4e 43 20 64 61  74 61 2b 31 0d 04 38 0d  |2:INC data+1..8.|
00000c20  2e 6e 6f 63 61 72 72 79  32 0d 04 42 07 52 54 53  |.nocarry2..B.RTS|
00000c30  0d 04 4c 0a 2e 64 64 61  74 61 0d 04 56 21 53 45  |..L..ddata..V!SE|
00000c40  43 3a 4c 44 41 20 64 61  74 61 3a 53 42 43 20 23  |C:LDA data:SBC #|
00000c50  32 34 3a 53 54 41 20 64  61 74 61 0d 04 60 18 42  |24:STA data..`.B|
00000c60  43 53 20 63 61 72 72 79  3a 44 45 43 20 64 61 74  |CS carry:DEC dat|
00000c70  61 2b 31 0d 04 6a 0a 2e  63 61 72 72 79 0d 04 74  |a+1..j..carry..t|
00000c80  07 52 54 53 0d 04 7e 0a  2e 62 6c 61 6e 6b 0d 04  |.RTS..~..blank..|
00000c90  88 5d 45 51 55 44 20 26  37 37 37 37 33 33 38 30  |.]EQUD &77773380|
00000ca0  3a 45 51 55 44 20 26 37  37 37 37 37 37 37 37 3a  |:EQUD &77777777:|
00000cb0  45 51 55 44 20 26 46 46  46 46 46 46 30 30 3a 45  |EQUD &FFFFFF00:E|
00000cc0  51 55 44 20 26 46 46 46  46 46 46 46 46 3a 45 51  |QUD &FFFFFFFF:EQ|
00000cd0  55 44 20 26 42 38 42 38  33 30 37 30 3a 45 51 55  |UD &B8B83070:EQU|
00000ce0  44 20 26 42 38 42 38 42  38 42 38 0d 04 92 5d 45  |D &B8B8B8B8...]E|
00000cf0  51 55 44 20 26 37 37 37  37 37 37 37 37 3a 45 51  |QUD &77777777:EQ|
00000d00  55 44 20 26 37 37 37 37  37 37 37 37 3a 45 51 55  |UD &77777777:EQU|
00000d10  44 20 26 46 46 46 46 46  46 46 46 3a 45 51 55 44  |D &FFFFFFFF:EQUD|
00000d20  20 26 46 46 46 46 46 46  46 46 3a 45 51 55 44 20  | &FFFFFFFF:EQUD |
00000d30  26 42 38 42 38 42 38 42  38 3a 45 51 55 44 20 26  |&B8B8B8B8:EQUD &|
00000d40  42 38 42 38 42 38 42 38  0d 04 9c 5d 45 51 55 44  |B8B8B8B8...]EQUD|
00000d50  20 26 37 37 37 37 37 37  37 37 3a 45 51 55 44 20  | &77777777:EQUD |
00000d60  26 38 30 33 33 37 37 37  37 3a 45 51 55 44 20 26  |&80337777:EQUD &|
00000d70  46 46 46 46 46 46 46 46  3a 45 51 55 44 20 26 30  |FFFFFFFF:EQUD &0|
00000d80  30 46 46 46 46 46 46 3a  45 51 55 44 20 26 42 38  |0FFFFFF:EQUD &B8|
00000d90  42 38 42 38 42 38 3a 45  51 55 44 20 26 37 30 33  |B8B8B8:EQUD &703|
00000da0  30 42 38 42 38 0d 04 a6  05 5d 0d 04 b0 07 ed 3a  |0B8B8....].....:|
00000db0  e1 0d ff                                          |...|
00000db3