Дабы не плодить темы спрошу здесь, т.к. по логике ближе... 
С ШИМами все нормально, а вот прерывание - не видит ни в какую...
Вроде, все, как всегда, стандартный подход к обработке...
Или что-то не так ?
Код:
$Regfile="m8adef.dat"
$Crystal=8000000
$hwstack=16
$swstack=16
$framesize=32
$baud = 19200
'$lib "mcsbyte.lbx"
'$lib "mcsbyteint.lib"
Config Timer1 = Pwm, Pwm = 8, Compare A Pwm = Clear Up, Compare B Pwm = Clear Up, Prescale = 8
Config Timer2 = Pwm, Compare Pwm = Clear Up, Prescale = 8
' PWM1A - Красный
' PWM1B - Зеленый
' PWM2 - Синий
Config Adc = Single, Prescaler = Auto, Reference = AVCC
Start Adc
Config Int0 = Rising
'Config Int0 = Low Level
On Int0 knopka Nosave
Enable Int0
'Gicr.6 = 1
Config PIND.2 = Input
Config PORTB.1 = Output
Config PORTB.2 = Output
Config PORTB.3 = Output
'CONFIG RND = 16
Dim a As Byte
Dim flag As Byte
Dim nomer As Byte
Dim knop As Bit
Dim rr As Word ' Данные АЦП регулятора красный
Dim rg As Word ' Данные АЦП регулятора зеленый
Dim rb As Word ' Данные АЦП регулятора синий
Dim rwm As Word ' Пересчет АЦП для ШИМ
'===================================================================
nachalo:
Do
If flag = 0 Then
' Print "No press"
rr = Getadc(0)
rwm = rr\4
Pwm1a = rwm ' красный
rg = Getadc(1)
rwm = rg\4
Pwm1b = rwm ' зеленый
rb = Getadc(2)
rwm = rb\4
Pwm2 = rwm ' синий
End If
If flag = 1 Then
Pwm1a = 255 ' красный
Pwm1b = 255 ' зеленый
Pwm2 = 255 ' синий
flag = 0
Wait 1
End If
Loop
End
'===================================================================
knopka: ' Обработка прерывания INT0
' push r24
flag = 1
' pop r24
'nop
Return
Тебе люди советую, что надо делать, а ты всё споришь на пустом месте. Зачем тогда спрашивать?
