Не просыпается 2313

$regfile = "attiny2313.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
 
Ddrb = 0
 
Config Portd.3 = Input       вход с прерыванием с подтяжкой к +
Portd.3 = 1
 
Config Int1 = Low Level       Прерывание на INT1 PD3
On Int1 Pushkey
Enable Ymtirrupts
Enable Int1
 
Config Porta.1 = Output        Зеленый светодиод
G_tid Alias Porta.1
 
Config Portd.6 = Output        ИК диод
Ik_tid Alias Portd.6
 
Dim K_mut As Long    -----------------КОДЫ КНОПОК----------
K_mut = &B11101011111101101000
Dim K_pwr As Long
K_pwr = &B11101011110101011010
Dim K_vol_up As Long
K_vol_up = &B11101011101101110100
Dim K_vol_down As Long
K_vol_down = &B11101010110110110110
Dim K_ch_up As Long
K_ch_up = &B11101011101110110100
Dim K_ch_down As Long
K_ch_down = &B11101011101110101010
Dim Temp As Long    Временная для хранения текущего значения кнопки.
 -                     --------------------------- ---------
 
Dim Count_i As Byte  Счетчик импульсов в пачке
Dim Count_a As Byte  Счетчик задержки для формирования импульсов и пауз
Dim X As Integer     Счетчик номера бита в числе ТЭМП. Для проигрывания его на ИК-диод
 
Do                   главный цикл
Woytms 30            пауза между пачками
 
Enable Int1
Powirdown
Loop
 
Pushkey:            -----------------ЗАХОД В ПРЕРЫВАНИЕ----------
Dysable Int1
 переключение порта БЭ на вход с подтяжкой к+.
Portb = 255          ПОДТЯЖКА
nop                  Ждем некоторое время для установки порта.
nop
NOP
NOP
NOP
NOP
NOP
 
If Pinb.0 = 1 Then Temp = K_vol_up
If Pinb.1 = 1 Then Temp = K_mut
If Pinb.2 = 1 Then Temp = K_vol_down        Определение нажатой кнопки.
If Pinb.5 = 1 Then Temp = K_ch_up
If Pinb.6 = 1 Then Temp = K_pwr
If Pinb.7 = 1 Then Temp = K_ch_down
X = 19
Gosub Player
Portb = 0            HI-Z
Return              -------------------------
 
Pustaya_pachka:     -----пустая пачка 0,5 МС----
Incr Count_a
If Count_a = 185 Then
Count_a = 0
Return
End If
Goto Pustaya_pachka
Return              ---------------------------
 
Popravka:           -----пустая пачка 0,2 МС---- ПОПРАВКА
Incr Count_a
If Count_a = 74 Then
Count_a = 0
Return
End If
Goto Popravka
Return              ---------------------------
 
Pachka:              ---- ПАЧКА 16 импульсов    период 22микросекунд. импульс 11 микросекунд, пауза 21 микросекунд потом УТОЧНИТЬ
Incr Count_i
Ik_tid = 1
G_tid = 1
Label1:
Incr Count_a
NOP
NOP
nop
If Count_a = 5 Then тут импульсы
Count_a = 0
G_tid = 0
Ik_tid = 0
Goto Label2
End If
Goto Label1
Label2:
Incr Count_a
nop
nop
If Count_a = 9 Then  тут паузы
Count_a = 0
Goto Label3
End If
Goto Label2
Label3:
If Count_i = 15 Then
Count_i = 0
Return
End If
Goto Pachka
Return              ----------------------------------------------------------------------------------------
 
Player:             --------------------Здесь происходит проигрывание кода на диод----------ИДТИ С ХВОСТА
If Temp.x = 1 Then Gosub Pachka
If Temp.x = 0 Then Gosub Pustaya_pachka
Woytms 2             Это пауза между пачками или пустыми пачками
Gosub Popravka
ТУТ НЕОБХОДИМА ПОПРАВКА 0,2мс
Decr X               ВСЕГО 19 бит надо проиграть. начинать с 19 цатого
If X = -1 Then Return
Goto Player
 
Return