RDW огромное спасибо за участие!Решил пару дней отдохнуть,а то в голове уже каша.Довольно сложно осваивать все это с нуля-тем более что опыта нет вообще.К стати кнопки к своей программе прикрутил,сейчас колдую над отображением периода и длительности на LCD-пока безрезультатно.

'================================ГЕНЕРАТОР======================================

$regfile = "m16def.dat"
$crystal = 10000000
$hwstack = 40
$swstack = 16
$framesize = 32

'==========================КОНФИГУРАЦИЯ ДИСПЛЕЯ=================================

Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Portb.7 , E = Portb.6 , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.1 , Db7 = Portb.0
Cursor Off                                                 'курсор выключить
Locate 1 , 1
Lcd " ЎEHEPATOP ҐMЁ©§bCOB"

'==========================КОНФИГУРАЦИЯ ПОРТОВ-УСТРОЙСТВ========================
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Portd.5 = Output

'==========================ПОДТЯГИВАЮЩИЕ РЕЗИСТОРЫ==============================
Set Portc.0
Set Portc.1

'==========================КОНФИГУРАЦИЯ ТАЙМЕРА=================================

Config Timer0 = Timer , Prescale = 1
On Timer0 Tik
Enable Interrupts                                          'разрешить прерывания
Enable Timer0
Config Debounce = 30                                       'тут задаем время опроса кнопки - 30 милесекунд

'==========================ПРИСВАИВАЕМ ИМЕНА ПИНАМ==============================
Verh Alias Pinc.0
Vniz Alias Pinc.1
Imp Alias Portd.5

'==========================ОБЪЯВЛЯЕМ ПЕРЕМЕННЫЕ=================================

Dim Period As Word                                         ' для изменения периода импульсов
Dim Dlitel As Word                                         'для изменения длительности импульсов
Dim Pulse As Word                                          'для формирования импульсов

Dim X As String * 3

Period = 35                                                'именение периода
Dlitel = 15                                                'именение длительности

'===========================ОСНОВНАЯ ПРОГРАММА==================================

Do

Debounce Verh , 0 , Vv , Sub
Debounce Vniz , 0 , Vn , Sub

X = Str(dlitel)
X = Format(x , "000")

Locate 2 , 1
Lcd X
Locate 2 , 5
Lcd "ms"

Loop

End

'===============================================================================
Vv:

Incr Dlitel                                                'прибавляем по 1
Return

'===============================================================================
Vn:

Decr Dlitel                                                'вычитаем по 1
Return

'===========================ФОРМИРОВАНИЕ ИМПУЛЬСОВ==============================
Tik:

Incr Pulse
If Pulse > Period Then Pulse = 0                           'формирование периода
If Pulse < Dlitel Then                                     'формирование длительности
Imp = 1
Else
Imp = 0
End If

Return

Осциллограф на борту имеется.Прекрасно понимаю что Proteus не панацея-в железе отлаживать намного наглядней и надежней.Прежде чем начинать писать большую программу,освоил подключение LCD,написал небольшую менюшку с навигацией ,поморгал светодиодами.Все что удачно получилось сохраняю-типа исходник.Влип именно при освоении таймера,прерываний по таймеру,переменные. В данный момент решил собрать стенд для отладки,вот ссылка Стенд AVR.