Printbin &H7E; &HFF; &H06;&H11; &H00; &H00; &H01; &HEF

0x01 Следующая песня.
0x02 Последняя песня.
0x03 Указать дорожку(NUM) 0-2999
0x04 Громкость+
0x05 Громкость-
0x06 Укажите громкость 0-30
0x07 Обозначение EQ(0/1/2/3/4/5) Normal/Pop/Rock/Jazz/Classic/Base
0x08 Укажите режим воспроизведения (0/1/2/3) Петли / папки петли/одиночные петли/случайные
0x09 Обозначение оборудования (0/1/2/3/4) U/TF/AUX/SLEEP/FLASH
0x0A В сон -- потребление низкой мощности
0x0B Нормальная работа
0x0C Сброс микросхемы
0x0D Играть
0x0E Пауза.
0x0F Задает воспроизведение папки 1-10(требуется настройка)
0x10 Настройки PA {DH=1:Open PA}{DL: установка усиления, 0-31}
0x11 Воспроизведение петли {1: loop}{0: остановить loop}

Do

If V = 30 Then                                              'таймер отсчитал заданное время
   If L_end = 0 Then                                        'сработал левый концевик
      If R_end = 1 Then                                     'правый концевик разомкнут
         Set Rele                                           'реле включило мотор
         Set Red                                            'загорелся светодиод
      End If
   End If

   If R_end = 0 Then                                        'сработал правый концевик
      If L_end = 1 Then                                     ' левый концевик разомкнут
         Set Rele                                           'реле включило мотор
         Set Red                                            'загорелся светодиод
      End If
   End If

   If L_end = 1 Then                                        'каретка - в промежуточном положении
      If R_end = 1 Then
          Set Rele
          Set Red
      End If
   End If
   V = 0
End If

If L_end = 0 Then                                           'сработал левый концевик
   Reset Rele                                               'выключение мотора и диода
   Reset Red
End If

If R_end = 0 Then                                           'сработал правый концевик
   Reset Rele                                               'выключение мотора и диода
   Reset Red
End If

Loop

Timecount:                                                  'счетчик времени таймера
Incr V
Return

Do

If V = 30 Then                                              'таймер отсчитал заданное время
   If R_end = 1 Then                                        'правый концевик разомкнут
         Set Rele                                           'реле включило мотор
         Set Red                                            'загорелся светодиод
   End If

   If L_end = 1 Then                                        ' левый концевик разомкнут
         Set Rele                                           'реле включило мотор
         Set Red                                            'загорелся светодиод
   End If

   If L_end = 1 Then                                        'каретка - в промежуточном положении
      If R_end = 1 Then
          Set Rele
          Set Red
      End If
   End If
   V = 0
End If

If L_end = 0 Then                                           'сработал левый концевик
   Reset Rele                                               'выключение мотора и диода
   Reset Red
End If

If R_end = 0 Then                                           'сработал правый концевик
   Reset Rele                                               'выключение мотора и диода
   Reset Red
End If

Loop

Timecount:                                                  'счетчик времени таймера
Incr V
Return

$Regfile="attiny2313a.dat"
$Crystal=4000000
$hwstack=40
$swstack=16
$framesize=32
L_end alias pinb.0:config PORTB.0=input:portb.0=1
R_end alias pinb.1:config PORTB.1=input:portb.1=1
Rele alias portb.2:config PORTB.2=output
Red alias portb.3:config PORTB.3=output
green alias portb.4:config PORTB.4=output  'светодиод,пока идет отсчет времени горит,по истечении 30 сек гаснет-для отладки
' настраиваем таймер
Config Timer1 = Timer , Prescale = 64
On Timer1 Timecount
timer1=3036
Enable Timer1
Enable Interrupts
dim v as byte


Do
 'обнуляем время,выключаем реле и светодиод
   v=0
   Reset Rele                                               'выключение мотора и диода
   Reset Red
   set green
'ждем когда истечет время
   while v<30
   wend

'время истекло
   reset green                                        'выключаем светодиод зеленый
   Set Rele                                           'реле включило мотор
   Set Red                                            'загорелся светодиод
'ждем замыкания концевиков
   while R_end = 1 and L_end=1
   wend

Loop
Timecount:                                                  'счетчик времени таймера
timer1=3036
Incr V
Return