' LNB 1.1  на 14 выходов
' рабочая версия. 25-10-2006. Проверена на ОБ-300
' переписана Функция приема сигнала

$Device= attiny2313        ' used device
$Stack = 32                ' stack depth
$Clock = 16.384            ' used crystal 
$Source= On
$Baud  = 115200,n,8,1

$Def out_1 = PORTB.7
$Def out_2 = PORTB.6
$Def out_3 = PORTB.5
$Def out_4 = PORTB.4
$Def out_5 = PORTB.3
$Def out_6 = PORTB.2
$Def out_7 = PORTD.6
$Def out_8 = PORTD.5
$Def out_9  = PORTD.4
$Def out_10 = PORTD.3
$Def out_11 = PORTD.2
$Def out_12 = PORTA.0
$Def out_13 = PORTA.1
$Def out_14 = PORTD.0

Declare Function RX_DISEqC () As Byte 
Declare Sub out_on (out_vkl As Byte)
Declare Sub Wait_1()
Declare Sub wait_0()


Dim DATA_DISEqC As Byte
Dim DATA_DISEqC1 As Byte
Dim DATA_DISEqC2 As Byte
Dim DATA_DISEqC3 As Byte
Dim DATA_DISEqC4 As Byte

Dim temp As Byte
Dim LNB_out As Byte

Const delay_big    = 70
Const delay_small = 35

Const vkl_out = 1
'-----------------------------------------------
Disable Interrupts  
DIDR=3                ' ОТКЛ digital in !!!
Start Ac

'- Выключаем все реле
DDRA=255: PORTA =0  ' OUTput
DDRD=255: PORTD =0    ' OUTput
DDRB=252: PORTB =0    ' OUTput + INPut Pb.0 Pb.1  
'LNB_out=1

Print "Danilin Aleksandr (C) 2006   pic-avr.narod.ru"
'-----------------------------------------------
out_on (1)            ' Включим по умолчанию выход 1

Start_prog:

wait_0()
aaa:                ' Ждём _длинную_ паузу в сигнале!!! >500 Us
temp = 20
aa1:
If acsr.5=1 Then GoTo aaa
WaitUs 1
Decr temp
If temp>1 Then GoTo aa1
'-----------------------------

DATA_DISEqC1=RX_DISEqC ()

If DATA_DISEqC1=240 Then
 WaitUs 150
 DATA_DISEqC1= 224
End If

If DATA_DISEqC1=184 Then
 WaitUs 255
' Print "&";
 DATA_DISEqC1= 224
End If

DATA_DISEqC2=RX_DISEqC ()
DATA_DISEqC3=RX_DISEqC ()
DATA_DISEqC4=RX_DISEqC ()

If DATA_DISEqC2= 16 Then 
    If DATA_DISEqC3= 57 Then 
        Print "1.1 LNB";
        temp=DATA_DISEqC4-239
        Print temp
        out_on (temp)
        GoTo ddd
    End If    
            
    If DATA_DISEqC3= 56 Then 
        Print "1.0 LNB";
        DATA_DISEqC4 = DATA_DISEqC4 Or 243
        If DATA_DISEqC4 =255 Then Print "4":GoTo ddd
        If DATA_DISEqC4 =251 Then Print "3":GoTo ddd
        If DATA_DISEqC4 =247 Then Print "2":GoTo ddd
        If DATA_DISEqC4 =243 Then Print "1":GoTo ddd
    End If    
    
End If


If DATA_DISEqC2= 49 Then
    Print "1.2 Motor  ";
 If DATA_DISEqC3 =107 Then Print "GOTO ";DATA_DISEqC4 :GoTo ddd
 If DATA_DISEqC3 =104 Then Print "Vostok" :GoTo ddd
 If DATA_DISEqC3 =105 Then Print "Zapad" :GoTo ddd
 If DATA_DISEqC3 =96 Then Print "Stop" :GoTo ddd 
    
 If DATA_DISEqC3 =106 Then
        Print "SAVE ";
        DATA_DISEqC4=DATA_DISEqC4'-128
        Print DATA_DISEqC4
        GoTo ddd
 End If
End If

Print DATA_DISEqC1; " "; DATA_DISEqC2; " "; DATA_DISEqC3; " "; DATA_DISEqC4
ddd:
WaitMs 50
GoTo Start_prog