' Считываем с фотоприемника данные ИК-пульта
' Выдаем на индикатор НТ-1613 по два байта
' Не использует прерываний и таймера

$Device= attiny2313        ' used device
$Stack = 32                ' stack depth
$Clock = 8                ' adjust for used crystal

$Def in_signal = PIND.6
$Def pinLCDdat = PORTB.0
$Def pinLCDclk = PORTB.1
$Def LED = PORTB.2

Declare Sub SendLCD(LCDdataX As Byte)
Declare Sub ScrollLCD(LCDdvigatSinvolov As Byte)
Declare Sub SendLCDstring(LCDdataX As Byte)
Declare Function RX () As Byte 

Dim temp As Byte
Dim DATA_1 As Byte, DATA_2 As Byte
Dim DATA_3 As Byte, DATA_4 As Byte
Dim stringS As String*3, stringSv As String*1

'- Инициализация всей периферии
DDRD=0: PORTD =0    ' INPut
DDRB=255: PORTB =0    ' OUTput
    
start_prog:   '  ------- НАЧАЛО ПРОГРАММЫ  --- Основной цикл ---

    WaitMs 100
    While Not in_signal: Wend
    
    aa: temp = 248                ' Ждём _длинную_ паузу в сигнале >7500 us!
    ab: If in_signal Then GoTo aa
    WaitUs 3                            ' Пауза
    Decr temp: If temp >1 Then GoTo ab
    
    bb: temp = 110                ' Ждём _длинный  сигнал
    bc: If Not in_signal Then GoTo bb
    WaitUs 3                            ' Пауза
    Decr temp: If temp >1 Then GoTo bc
    While in_signal: Wend        ' Ждем завершения сигнала
led =1
    
    DATA_1 = RX()
    DATA_2 = RX()
    DATA_3 = RX()
    DATA_4 = RX()
    
led =0
    
    ScrollLCD(10)    ' Очистим экран
    
    SendLCDstring (DATA_1)
    ScrollLCD(1)
    
    SendLCDstring (DATA_2)
    ScrollLCD(1): SendLCD (13)
    
    Wait 1
    ScrollLCD(10)    ' Очистим экран
    
    SendLCDstring (DATA_3)
    ScrollLCD(1)
    
    SendLCDstring (DATA_4)
    ScrollLCD(1): SendLCD (12)

GoTo start_prog

'-------------   символ в число   ------------
Sub SendLCDstring(LCDdataX As Byte)
Local temp4 As Byte
    stringS = Str(LCDdataX)  
    For temp4= 1 To Len (stringS)
    stringSv= Mid(stringS, temp4, 1)
    LCDdataX = Val(stringSv)
    SendLCD (LCDdataX)
    Next
End Sub


'----------   Один символ на экран  ---------
Sub SendLCD(LCDdataX As Byte)
Local tiki As Byte, temp2 As Byte, temp As Byte
    If LCDdataX =0 Then LCDdataX =10
    
    pinLCDclk =1    ' CLK
    tiki= 128
    
    Shift(Left, 4, LCDdataX)
    
    For temp2 = 0 To 3 
        temp = LCDdataX & tiki
        
        If temp =0 Then
           pinLCDdat =0    ' Data 
         Else 
           pinLCDdat =1    ' Data
        End If
          
        pinLCDclk = 0: WaitUs 1
        pinLCDclk = 1: WaitUs 1
            
        Shift(Right, 1, tiki):    If tiki =0 Then tiki = 128
    Next
End Sub


'===================== примем 8 бит ============
Function RX() As Byte
 Local tiki As Byte, temp3 As Byte, DATA_RX As Byte

    For temp3 = 7 To 0 Step -1
        tiki=0
        Shift(Left, 1, DATA_RX)
        
        While Not in_signal: Wend ' Ждем 1 
        WaitUs 30        '  пауза на часть импульса
        
        While in_signal
        Incr tiki: WaitUs 1                ' Пауза 10 мкс
        Wend
         
        If tiki >100 Then DATA_RX = DATA_RX Or 1 'длинный -> бит =1
        
        While in_signal: Wend         ' Ждем завершения сигнала
    Next

 Return DATA_RX 
End Function


' ---------  Скроллинг экрана на X символов  --------
Sub ScrollLCD(LCDdvigatSinvolov As Byte)
Local temp2 As Byte, temp As Byte
    pinLCDdat =0    ' Data
    For temp = 1 To LCDdvigatSinvolov    
        For temp2 = 0 To 3
            pinLCDclk = 0: WaitUs 1    ' CLK  
            pinLCDclk = 1: WaitUs 1    ' CLK 
        Next
    Next
End Sub

$Device= mega8
$Stack = 32
$Clock = 4

$Def Led7_1 = PORTB.5
$Def Led7_2 = PORTB.4
$Def Led7Load = PORTB.1

$Def Led = PORTB.3

$ShiftOut Data=PORTB.0, Clock=PORTB.2, Lsb 

Dim n As Byte                   

'- Инициализация всей периферии
DDRD=0: PORTD =255      ' INPut
DDRB=255: PORTB =0       ' OUTput
DDRC=0: PORTC =0        ' INput

For n = 0 To 4
 Toggle Led
 WaitMs 100
Next n

Led7_1 = 0 ' Выключили оба индикатора
Led7_2 = 0

n = 164 ' Это данные символа, который необходимо вывести на индикатор

ShiftOut n ' Выдаём байт в регистр

Led7Load = 0 ' Низкий уровень на "загрузка" регистра
WaitMs 1
Led7Load = 1 ' Загружаем регистр, вывод данных на ножки регистра
WaitMs 1
Led7Load = 0

Do

 Led7_1 = 1 ' Включаем первый индикатор
 WaitMs 1
 Led7_1 = 0
 WaitMs 10

  
  Toggle Led: WaitMs 10 ' Мигнём св диодом
Loop

'1 = 238
'2 = 146 
'3 = 162 
'4 = 228
'5 = 161
'6 = 129
'7 = 234
'8 = 128
'9 = 160
'0 = 136

'- = 247
'A = 192
'b = 133
'С = 153
'с = 151
'd = 134
'E = 145
'F = 209
'G = 137
'H = 196
'h = 197
'I = 221
'J = 138
'L = 157
'n = 199
'O = 136
'o = 135
'P = 208
'r = 215
'S = 161
't = 149
'U = 140
'u = 143
'y = 164

$Device= attiny2313
$Stack = 32
$Clock = 8

$Timer0= Timer, Prescale=256

$Def pinLed = PORTB.2
Declare Interrupt Ovf0()

Dim tiki As Byte

  '- Инициализация всей периферии
    DDRD=0: PORTD =255        ' INPut
    DDRB=255: PORTB =255    ' OUTput

Timer0=&h64            ' 
Enable Ovf0
Enable Interrupts
Start Timer0


Start_prog:  '  ------- НАЧАЛО ПРОГРАММЫ  --- Основной цикл ---


GoTo Start_prog 


'/////////////////////////////////////////////////////////
Interrupt Ovf0(), Save All
Timer1=&h64            ' 
Toggle pinLed
End Interrupt

$Device= m8
$Clock = 16.0
$Baud = 19200
$Stack = 32

Declare Interrupt Urxc()
Declare Interrupt Int0()
Declare Sub Sendsms()
Declare Sub Balanse()

.......................

DDRD.1=1 	'Порт на выход
PORTD.1 = 0 
DDRD.0=0 	'Порт на вход       
PORTD.0=1

Balanse()


Enable Urxc
Enable Int0
Enable Interrupts 

'###########################################################################
'Основная программа
'###########################################################################
'Do 

........................

'Loop 
End
'============================================================================
'============================================================================
Sub Balanse()
Print  "AT+CUSD=1,";Chr(34);"#101#";Chr(34) 
WaitMs 100
End Sub
 

'подпрограмма для разбора сообщения модуля
'=============================================================================
Interrupt Urxc(),Save All

     S = ""
       Do
InputBin B                                       'берем символ из буфера 
    If B=0 Then
     Exit Do
     End If  
   
     If B>31 Then
     S=S+Chr(B)
     End If  
   Loop
 Otvet = S
 Sendsms()
 
End Interrupt

'подпрограмма отправки смс
'=============================================================================
Sub Sendsms()
K=&h1A
Print "AT+CMGS=";Chr(34);Phonenumber;Chr(34) 
WaitMs 200
Print Otvet
PrintBin K
WaitMs 100
End Sub

;-Line--0117----Enable Interrupts--
sei

;-Line--0118----Enable Urxc--
sbiUCSRB,7