Всем привет! решил я поразить свой мозг ассемблером, язык понял, вкурил немного всего, но в детстве DeltaC-48k TR-DOS сделали своё злое дело и теперь грызу BASCOM, от души пишу коды, даже за неделю уже придумал схему и написал простенький алгоритм запуска автомобильного генератора как мотора, но дело не в этом.
Опыта хочу с АЦП и тонкости познать контроллерные,
вот тут схема, от известного металлоискателя Clone PI-W, собрал, работает, всё отлично, теперь решил сам написать прошивку, вкурил принцип действия, пишу простой код, просто, чтоб он мне музыку играл:
Код: Выделить всё
$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Config Portc = Output
Config Portd = Output
Config Portc.1 = Input
Config Portc.0 = Input
Portd.0 = 0
Portd.1 = 0
Portc.4 = 0
Portc.5 = 0
Portd.2 = 1
Speaker Alias Pinb.2
Do
'Celine Dion : : My Heart Will Go On
Sound Speaker , 587 , 1135 'D2(1/2)
Sound Speaker , 659 , 1011 'E2(1/2)
Portd.2 = 0
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
Loop
Запускаю, а он пол секунды ноту выдаст, пол сек полчит и пищит примитивно, индикацию поставил, проверил, порты все совподают, отключил ещё то, что открывает полевой транзистор и палит 20 омный резюк. На просторах как-то видел исходники на ассемблер от Clone PI-W, теперь найти не могу, но в голове отложилось, что там использовали сторожевой таймер.
Удивило меня то, что установив его так:
Код: Выделить всё
$regfile = "m8def.dat"
$crystal = 8000000
Config Watchdog = 2048
он стал пищать гораздо тормознее и почти 2 мелодии проигрывает. Подсказали мне стартовать, останавливать его так:
Код: Выделить всё
$regfile = "m8def.dat"
$crystal = 8000000
Config Watchdog = 2048
...
...
...
Sound Speaker , 659 , 1011 'E2(1/2)
Portd.2 = 0
Stop Watchdog
...
...
...
Но это не помогло. Потребляет он 100-170мА, может АЦП инициализировать надо или ещё какие премудрости? Стабилизатор в схеме не мощный, может до порогового значения питание падает из-за замыкания какого нибудь порта? Хелпните мне,
пожалуйста.
А это уже совсем другой огород.