*
; CRYSTALS OF OLYMPIA � MAIN PROGRAM>; BY DOMINIC �DS; DECEMBER '94 �_(��$C000o�; VARIABLES~�TUNE�$CF80��MLO�$FB�MHI�$FC�NW�$CF81��; MUSIC ROUTINES��MUSIC LDA NW��BEQ ���INC NW��RTS��� LDY #$00	�LDA (MLO),Y	�� #$01	�BEQ �MA)	LDA #$075	�MA TAXE	LDA (MLO),YO	&LSR AZ	0STA NWb	:INYo	DCMP #$06{	NBNE MR��	XLDA (MLO),Y�	bSTA $D404,X�	lINY�	vLDA (MLO),Y�	�STA $D405,X�	�INY�	�LDA (MLO),Y�	�STA $D406,X�	�JMP MFIN
�MR� LDA (MLO),Y
�STY $02 
�TAY/
�LDA MDAT,Y?
�STA $D400,XO

LDA MDATB,Y_
 
STA $D401,Xk
*
LDY $02x
4
MFIN INY�
>
TYA�
H
CLC�
R
ADC $FB�
\
STA $FB�
f
LDA $FC�
p
ADC #$00�
z
STA $FC�
�
RTS�
�MDAT TXT 12,28,45,62,81,102,123�TXT 145,169,195,221,250,24,56,90<�TXT 125,163,204,246,35,83,134,187b�TXT 244,48,112,180,251,71,152,237��TXT 71,167,12,119,233,97,225,104��TXT 247,143,48,218,143,78,24,239��TXT 210,195,195,209,239,31,96,181��TXT 30,156,49,223,165,135,134,162�TXT 223,62,193,107,60,57,99,190,75D�TXT 15,12,69,191,125,131,214,121jTXT 115,199,124,151,30,24,139,126�TXT 250,6,172,243,230,143,248,46�MDATB TXT 1,1,1,1,1,1,1,1,1,1,1,1�"TXT 2,2,2,2,2,2,2,3,3,3,3,3,4,4,4
,TXT 4,5,5,5,6,6,7,7,7,8,8,9,9,10&
6TXT 11,11,12,13,14,14,15,16,17,18L
@TXT 19,21,22,23,25,26,28,29,31,33r
JTXT 35,37,39,42,44,47,50,53,56,59�
TTXT 63,67,71,75,79,84,89,94,100�
^TXT 106,112,119,126,134,142,150�
hTXT 159,168,179,189,200,212,225�
rTXT 238,253

*HJ@; crystals of olympia . main program@>HT@; by dominic .d@sH.@; december '94 .@.H(@..$c000@OH.C; variables@.H.Ctune.$cf80@.H.Cmlo.$fb@.HFDmhi.$fc@.HPDnw.$cf81@.H.K; music routines@.H.Kmusic lda nw@.H.Kbeq .@.H.Kinc nw@.H.Krts@.H.K. ldy #$00@EI.Klda (mlo),y@PI.K. #$01@£I.Kbeq .ma@)IHLlda #$07@5IRL.ma tax@eI£Llda (mlo),y@oI&Llsr a@zI0Lsta nw@BI:Liny@OIdLcmp #$06@.InLbne mr.@.IxLlda (mlo),y@.IBLsta $d404,x@.ILLiny@.IVLlda (mlo),y@.I.Lsta $d405,x@.I.Liny@.I.Llda (mlo),y@.I.Lsta $d406,x@.I.Ljmp mfin@LJ.Lmr. lda (mlo),y@XJ.Lsty $02@ J.Ltay@/J.Llda mdat,y@?J.Lsta $d400,x@oJVMlda mdatb,y@.J Msta $d401,x@KJ*Mldy $02@XJ4Mmfin iny@.J>Mtya@.JhMclc@.JrMadc $fb@.J£Msta $fb@.JFMlda $fc@.JPMadc #$00@.JZMsta $fc@.J.Mrts@.J.Omdat txt 12,28,45,62,81,102,123@VK.Otxt 145,169,195,221,250,24,56,90@<K.Otxt 125,163,204,246,35,83,134,187@BK.Otxt 244,48,112,180,251,71,152,237@.K.Otxt 71,167,12,119,233,97,225,104@.K.Otxt 247,143,48,218,143,78,24,239@.K.Otxt 210,195,195,209,239,31,96,181@.K.Otxt 30,156,49,223,165,135,134,162@.L.Otxt 223,62,193,107,60,57,99,190,75@dL.Otxt 15,12,69,191,125,131,214,121@JLDPtxt 115,199,124,151,30,24,139,126@.LNPtxt 250,6,172,243,230,143,248,46@.LXPmdatb txt 1,1,1,1,1,1,1,1,1,1,1,1@.L"Ptxt 2,2,2,2,2,2,2,3,3,3,3,3,4,4,4@@M,Ptxt 4,5,5,5,6,6,7,7,7,8,8,9,9,10@&M6Ptxt 11,11,12,13,14,14,15,16,17,18@lM@Ptxt 19,21,22,23,25,26,28,29,31,33@RMjPtxt 35,37,39,42,44,47,50,53,56,59@.MtPtxt 63,67,71,75,79,84,89,94,100@.M.Ptxt 106,112,119,126,134,142,150@.MHPtxt 159,168,179,189,200,212,225@.MRPtxt 238,253@@@

00000000  2a 08 0a 00 3b 20 43 52  59 53 54 41 4c 53 20 4f  |*...; CRYSTALS O|
00000010  46 20 4f 4c 59 4d 50 49  41 20 ab 20 4d 41 49 4e  |F OLYMPIA . MAIN|
00000020  20 50 52 4f 47 52 41 4d  00 3e 08 14 00 3b 20 42  | PROGRAM.>...; B|
00000030  59 20 44 4f 4d 49 4e 49  43 20 81 44 00 53 08 1e  |Y DOMINIC .D.S..|
00000040  00 3b 20 44 45 43 45 4d  42 45 52 20 27 39 34 20  |.; DECEMBER '94 |
00000050  ab 00 5f 08 28 00 ac b2  24 43 30 30 30 00 6f 08  |.._.(...$C000.o.|
00000060  e8 03 3b 20 56 41 52 49  41 42 4c 45 53 00 7e 08  |..; VARIABLES.~.|
00000070  f2 03 54 55 4e 45 b2 24  43 46 38 30 00 8a 08 fc  |..TUNE.$CF80....|
00000080  03 4d 4c 4f b2 24 46 42  00 96 08 06 04 4d 48 49  |.MLO.$FB.....MHI|
00000090  b2 24 46 43 00 a3 08 10  04 4e 57 b2 24 43 46 38  |.$FC.....NW.$CF8|
000000a0  31 00 b8 08 b8 0b 3b 20  4d 55 53 49 43 20 52 4f  |1.....; MUSIC RO|
000000b0  55 54 49 4e 45 53 00 c9  08 c2 0b 4d 55 53 49 43  |UTINES.....MUSIC|
000000c0  20 4c 44 41 20 4e 57 00  d3 08 cc 0b 42 45 51 20  | LDA NW.....BEQ |
000000d0  87 00 de 08 d1 0b 49 4e  43 20 4e 57 00 e6 08 d6  |......INC NW....|
000000e0  0b 52 54 53 00 f5 08 e0  0b 87 20 4c 44 59 20 23  |.RTS...... LDY #|
000000f0  24 30 30 00 05 09 ea 0b  4c 44 41 20 28 4d 4c 4f  |$00.....LDA (MLO|
00000100  29 2c 59 00 10 09 f4 0b  af 20 23 24 30 31 00 1c  |),Y...... #$01..|
00000110  09 fe 0b 42 45 51 20 9a  4d 41 00 29 09 08 0c 4c  |...BEQ .MA.)...L|
00000120  44 41 20 23 24 30 37 00  35 09 12 0c 9a 4d 41 20  |DA #$07.5....MA |
00000130  54 41 58 00 45 09 1c 0c  4c 44 41 20 28 4d 4c 4f  |TAX.E...LDA (MLO|
00000140  29 2c 59 00 4f 09 26 0c  4c 53 52 20 41 00 5a 09  |),Y.O.&.LSR A.Z.|
00000150  30 0c 53 54 41 20 4e 57  00 62 09 3a 0c 49 4e 59  |0.STA NW.b.:.INY|
00000160  00 6f 09 44 0c 43 4d 50  20 23 24 30 36 00 7b 09  |.o.D.CMP #$06.{.|
00000170  4e 0c 42 4e 45 20 4d 52  9a 00 8b 09 58 0c 4c 44  |N.BNE MR....X.LD|
00000180  41 20 28 4d 4c 4f 29 2c  59 00 9b 09 62 0c 53 54  |A (MLO),Y...b.ST|
00000190  41 20 24 44 34 30 34 2c  58 00 a3 09 6c 0c 49 4e  |A $D404,X...l.IN|
000001a0  59 00 b3 09 76 0c 4c 44  41 20 28 4d 4c 4f 29 2c  |Y...v.LDA (MLO),|
000001b0  59 00 c3 09 80 0c 53 54  41 20 24 44 34 30 35 2c  |Y.....STA $D405,|
000001c0  58 00 cb 09 8a 0c 49 4e  59 00 db 09 94 0c 4c 44  |X.....INY.....LD|
000001d0  41 20 28 4d 4c 4f 29 2c  59 00 eb 09 9e 0c 53 54  |A (MLO),Y.....ST|
000001e0  41 20 24 44 34 30 36 2c  58 00 f8 09 a8 0c 4a 4d  |A $D406,X.....JM|
000001f0  50 20 4d 46 49 4e 00 0c  0a b2 0c 4d 52 9a 20 4c  |P MFIN.....MR. L|
00000200  44 41 20 28 4d 4c 4f 29  2c 59 00 18 0a bc 0c 53  |DA (MLO),Y.....S|
00000210  54 59 20 24 30 32 00 20  0a c6 0c 54 41 59 00 2f  |TY $02. ...TAY./|
00000220  0a d0 0c 4c 44 41 20 4d  44 41 54 2c 59 00 3f 0a  |...LDA MDAT,Y.?.|
00000230  da 0c 53 54 41 20 24 44  34 30 30 2c 58 00 4f 0a  |..STA $D400,X.O.|
00000240  16 0d 4c 44 41 20 4d 44  41 54 42 2c 59 00 5f 0a  |..LDA MDATB,Y._.|
00000250  20 0d 53 54 41 20 24 44  34 30 31 2c 58 00 6b 0a  | .STA $D401,X.k.|
00000260  2a 0d 4c 44 59 20 24 30  32 00 78 0a 34 0d 4d 46  |*.LDY $02.x.4.MF|
00000270  49 4e 20 49 4e 59 00 80  0a 3e 0d 54 59 41 00 88  |IN INY...>.TYA..|
00000280  0a 48 0d 43 4c 43 00 94  0a 52 0d 41 44 43 20 24  |.H.CLC...R.ADC $|
00000290  46 42 00 a0 0a 5c 0d 53  54 41 20 24 46 42 00 ac  |FB...\.STA $FB..|
000002a0  0a 66 0d 4c 44 41 20 24  46 43 00 b9 0a 70 0d 41  |.f.LDA $FC...p.A|
000002b0  44 43 20 23 24 30 30 00  c5 0a 7a 0d 53 54 41 20  |DC #$00...z.STA |
000002c0  24 46 43 00 cd 0a 84 0d  52 54 53 00 f1 0a a0 0f  |$FC.....RTS.....|
000002d0  4d 44 41 54 20 54 58 54  20 31 32 2c 32 38 2c 34  |MDAT TXT 12,28,4|
000002e0  35 2c 36 32 2c 38 31 2c  31 30 32 2c 31 32 33 00  |5,62,81,102,123.|
000002f0  16 0b aa 0f 54 58 54 20  31 34 35 2c 31 36 39 2c  |....TXT 145,169,|
00000300  31 39 35 2c 32 32 31 2c  32 35 30 2c 32 34 2c 35  |195,221,250,24,5|
00000310  36 2c 39 30 00 3c 0b b4  0f 54 58 54 20 31 32 35  |6,90.<...TXT 125|
00000320  2c 31 36 33 2c 32 30 34  2c 32 34 36 2c 33 35 2c  |,163,204,246,35,|
00000330  38 33 2c 31 33 34 2c 31  38 37 00 62 0b be 0f 54  |83,134,187.b...T|
00000340  58 54 20 32 34 34 2c 34  38 2c 31 31 32 2c 31 38  |XT 244,48,112,18|
00000350  30 2c 32 35 31 2c 37 31  2c 31 35 32 2c 32 33 37  |0,251,71,152,237|
00000360  00 87 0b c8 0f 54 58 54  20 37 31 2c 31 36 37 2c  |.....TXT 71,167,|
00000370  31 32 2c 31 31 39 2c 32  33 33 2c 39 37 2c 32 32  |12,119,233,97,22|
00000380  35 2c 31 30 34 00 ac 0b  d2 0f 54 58 54 20 32 34  |5,104.....TXT 24|
00000390  37 2c 31 34 33 2c 34 38  2c 32 31 38 2c 31 34 33  |7,143,48,218,143|
000003a0  2c 37 38 2c 32 34 2c 32  33 39 00 d2 0b dc 0f 54  |,78,24,239.....T|
000003b0  58 54 20 32 31 30 2c 31  39 35 2c 31 39 35 2c 32  |XT 210,195,195,2|
000003c0  30 39 2c 32 33 39 2c 33  31 2c 39 36 2c 31 38 31  |09,239,31,96,181|
000003d0  00 f8 0b e6 0f 54 58 54  20 33 30 2c 31 35 36 2c  |.....TXT 30,156,|
000003e0  34 39 2c 32 32 33 2c 31  36 35 2c 31 33 35 2c 31  |49,223,165,135,1|
000003f0  33 34 2c 31 36 32 00 1f  0c f0 0f 54 58 54 20 32  |34,162.....TXT 2|
00000400  32 33 2c 36 32 2c 31 39  33 2c 31 30 37 2c 36 30  |23,62,193,107,60|
00000410  2c 35 37 2c 39 39 2c 31  39 30 2c 37 35 00 44 0c  |,57,99,190,75.D.|
00000420  fa 0f 54 58 54 20 31 35  2c 31 32 2c 36 39 2c 31  |..TXT 15,12,69,1|
00000430  39 31 2c 31 32 35 2c 31  33 31 2c 32 31 34 2c 31  |91,125,131,214,1|
00000440  32 31 00 6a 0c 04 10 54  58 54 20 31 31 35 2c 31  |21.j...TXT 115,1|
00000450  39 39 2c 31 32 34 2c 31  35 31 2c 33 30 2c 32 34  |99,124,151,30,24|
00000460  2c 31 33 39 2c 31 32 36  00 8f 0c 0e 10 54 58 54  |,139,126.....TXT|
00000470  20 32 35 30 2c 36 2c 31  37 32 2c 32 34 33 2c 32  | 250,6,172,243,2|
00000480  33 30 2c 31 34 33 2c 32  34 38 2c 34 36 00 b5 0c  |30,143,248,46...|
00000490  18 10 4d 44 41 54 42 20  54 58 54 20 31 2c 31 2c  |..MDATB TXT 1,1,|
000004a0  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |1,1,1,1,1,1,1,1,|
000004b0  31 2c 31 00 db 0c 22 10  54 58 54 20 32 2c 32 2c  |1,1...".TXT 2,2,|
000004c0  32 2c 32 2c 32 2c 32 2c  32 2c 33 2c 33 2c 33 2c  |2,2,2,2,2,3,3,3,|
000004d0  33 2c 33 2c 34 2c 34 2c  34 00 00 0d 2c 10 54 58  |3,3,4,4,4...,.TX|
000004e0  54 20 34 2c 35 2c 35 2c  35 2c 36 2c 36 2c 37 2c  |T 4,5,5,5,6,6,7,|
000004f0  37 2c 37 2c 38 2c 38 2c  39 2c 39 2c 31 30 00 26  |7,7,8,8,9,9,10.&|
00000500  0d 36 10 54 58 54 20 31  31 2c 31 31 2c 31 32 2c  |.6.TXT 11,11,12,|
00000510  31 33 2c 31 34 2c 31 34  2c 31 35 2c 31 36 2c 31  |13,14,14,15,16,1|
00000520  37 2c 31 38 00 4c 0d 40  10 54 58 54 20 31 39 2c  |7,18.L.@.TXT 19,|
00000530  32 31 2c 32 32 2c 32 33  2c 32 35 2c 32 36 2c 32  |21,22,23,25,26,2|
00000540  38 2c 32 39 2c 33 31 2c  33 33 00 72 0d 4a 10 54  |8,29,31,33.r.J.T|
00000550  58 54 20 33 35 2c 33 37  2c 33 39 2c 34 32 2c 34  |XT 35,37,39,42,4|
00000560  34 2c 34 37 2c 35 30 2c  35 33 2c 35 36 2c 35 39  |4,47,50,53,56,59|
00000570  00 96 0d 54 10 54 58 54  20 36 33 2c 36 37 2c 37  |...T.TXT 63,67,7|
00000580  31 2c 37 35 2c 37 39 2c  38 34 2c 38 39 2c 39 34  |1,75,79,84,89,94|
00000590  2c 31 30 30 00 ba 0d 5e  10 54 58 54 20 31 30 36  |,100...^.TXT 106|
000005a0  2c 31 31 32 2c 31 31 39  2c 31 32 36 2c 31 33 34  |,112,119,126,134|
000005b0  2c 31 34 32 2c 31 35 30  00 de 0d 68 10 54 58 54  |,142,150...h.TXT|
000005c0  20 31 35 39 2c 31 36 38  2c 31 37 39 2c 31 38 39  | 159,168,179,189|
000005d0  2c 32 30 30 2c 32 31 32  2c 32 32 35 00 ee 0d 72  |,200,212,225...r|
000005e0  10 54 58 54 20 32 33 38  2c 32 35 33 00 00 00     |.TXT 238,253...|
000005ef