$regfile = "m8def.dat"
$crystal = 12000000
Config Portb.1 = Output
Speaker Alias Portb.1
'
'===============================================================================
' _______
' | |_____| |
' PB.1|----|____|----|+ -|----| GND
' | |___| |
' | 100 Ом Speaker
'
'===============================================================================
Do
'Celine Dion : : My Heart Will Go On
Sound Speaker , 587 , 1135 'D2(1/2)
Sound Speaker , 659 , 1011 'E2(1/2)
Sound Speaker , 880 , 388 'A3(1/4)
Sound Speaker , 880 , 758 'A2(1/2)
Sound Speaker , 392 , 850 'G2(1/4)
Sound Speaker , 185 , 901 'Fis2(1/8)
Sound Speaker , 659 , 1011 'E2(1/2)
Sound Speaker , 370 , 901 'Fis2(1/4)
Sound Speaker , 392 , 850 'G2(1/4)
Sound Speaker , 740 , 901 'Fis2(1/2)
Sound Speaker , 330 , 1011 'E2(1/4)
Sound Speaker , 294 , 1135 'D2(1/4)
Sound Speaker , 277 , 1203 'Cis2(1/4)
Sound Speaker , 587 , 1135 'D2(1/2)
Sound Speaker , 277 , 1203 'Cis2(1/4)
Sound Speaker , 3952 , 337 'H3(1/1)
Sound Speaker , 3440 , 388 'A3(1/1)
Sound Speaker , 1175 , 1135 'D2(1/1)
Sound Speaker , 659 , 1011 'E2(1/2)
Sound Speaker , 880 , 388 'A3(1/4)
Sound Speaker , 880 , 758 'A2(1/2)
Sound Speaker , 392 , 850 'G2(1/4)
Sound Speaker , 185 , 901 'Fis2(1/8)
Sound Speaker , 659 , 1011 'E2(1/2)
Sound Speaker , 370 , 901 'Fis2(1/4)
Sound Speaker , 392 , 850 'G2(1/4)
Sound Speaker , 740 , 901 'Fis2(1/2)
Sound Speaker , 330 , 1011 'E2(1/4)
Sound Speaker , 294 , 1135 'D2(1/4)
Sound Speaker , 277 , 1203 'Cis2(1/4)
Sound Speaker , 587 , 1135 'D2(1/2)
Sound Speaker , 277 , 1203 'Cis2(1/4)
Sound Speaker , 277 , 1203 'Cis2(1/4)
Sound Speaker , 587 , 1135 'D2(1/2)
Sound Speaker , 330 , 1011 'E2(1/4)
Sound Speaker , 740 , 901 'Fis2(1/2)
Sound Speaker , 659 , 1011 'E2(1/2)
Sound Speaker , 1175 , 1135 'D2(1/1)
Wait 2
'Europe :: Final Countdown
Sound Speaker , 124 , 675 'H2(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Sound Speaker , 248 , 675 'H2(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 165 , 1011 'E2(1/8)
Waitms 250 'P(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 131 , 637 'C3(1/16)
Sound Speaker , 124 , 675 'H2(1/16)
Sound Speaker , 131 , 637 'C3(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 124 , 675 'H2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 220 , 758 'A2(1/8)
Waitms 125 'P(1/16)
Waitms 250 'P(1/8)
Sound Speaker , 131 , 637 'C3(1/16)
Sound Speaker , 124 , 675 'H2(1/16)
Sound Speaker , 262 , 637 'C3(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 165 , 1011 'E2(1/8)
Waitms 250 'P(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 196 , 850 'G2(1/8)
Wait 2
'Corona :: Rythm of The Night
Sound Speaker , 65 , 1274 'C2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Sound Speaker , 117 , 715 'Ais2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Waitms 125 'P(1/16)
Wait 2
'Jean Michel Jarre :: Oxygene 10
Sound Speaker , 131 , 637 'C3(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 131 , 637 'C3(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 117 , 715 'Ais2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 104 , 803 'Gis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Sound Speaker , 92 , 901 'Fis2(1/16)
Sound Speaker , 65 , 1274 'C2(1/16)
Wait 2
'Titanic: Theme
Sound Speaker , 131 , 637 'C3(1/16)
Sound Speaker , 147 , 566 'D3(1/16)
Sound Speaker , 330 , 483 'E3(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 175 , 477 'F3(1/16)
Sound Speaker , 165 , 483 'E3(1/16)
Sound Speaker , 147 , 566 'D3(1/16)
Sound Speaker , 131 , 637 'C3(1/16)
Sound Speaker , 147 , 566 'D3(1/16)
Sound Speaker , 392 , 425 'G3(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 165 , 483 'E3(1/16)
Sound Speaker , 147 , 566 'D3(1/16)
Sound Speaker , 262 , 637 'C3(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Sound Speaker , 196 , 850 'G2(1/8)
Waitms 125 'P(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 131 , 637 'C3(1/16)
Sound Speaker , 147 , 566 'D3(1/16)
Sound Speaker , 330 , 483 'E3(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 175 , 477 'F3(1/16)
Sound Speaker , 165 , 483 'E3(1/16)
Sound Speaker , 147 , 566 'D3(1/16)
Sound Speaker , 131 , 637 'C3(1/16)
Sound Speaker , 147 , 566 'D3(1/16)
Sound Speaker , 392 , 425 'G3(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 165 , 483 'E3(1/16)
Sound Speaker , 196 , 425 'G3(1/16)
Sound Speaker , 440 , 388 'A3(1/8)
Waitms 125 'P(1/16)
Sound Speaker , 196 , 425 'G3(1/16)
Sound Speaker , 165 , 483 'E3(1/16)
Sound Speaker , 294 , 566 'D3(1/8)
Wait 2
Loop