Код:

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 128
$baud = 9600
Echo Off

Dim Buff(704) As Byte
Dim Buff_index_1 As Word
Dim Buff_index_2 As Word
Dim Rdy_rx_flag As Bit
Dim B As Byte
Dim 100ms2 As Word
Dim Str As String * 254
Dim Phone As String * 48
Dim Strk As String * 4
Dim J As Byte
Dim K As Byte

Declare Sub In_message(byval T As Word , S As String * 254)
Declare Sub In_txt(byval T As Word , S As String * 254)
Declare Sub Ucs2_win(s As String)

Config Timer1 = Timer , Prescale = 64 , Clear Timer = 1     ' 0,1 sec
Compare1a = 25000

On Urxc Rx_rdy
On Oc1a Sec01

Enable Urxc
Enable Oc1a
Enable Interrupts

Start Timer1
'------------------------------------------------------------

Print "AT+CMGR=1"        'прочитать 1 СМС
In_txt 100 , Str         'прочитать сообщение от модуля с таймаутом 10 сек в переменную str

If Left(str , 5) = "+CMGR" Then
	J = Len(textstr)
   	Strk = ","
	K = Instr(str , Strk)
	J = J - K
	Decr J
	str = Right(str , J)
	Strk = Chr(34)
	K = Instr(str , Strk )
	Decr K
	Phone = Left(textstr , K) 'номер отправителя в UCS2
	In_message 100 , str    'прочитать СМС от модуля с таймаутом 10 сек в переменную str с переводом в ASCII
end If

Ucs2_win Phone       'Преобразовать номер из UCS2 в ASCII


do
loop


end
'------------------------------------------------------------
Rx_rdy:
B = Udr
Select Case B
   Case 10 :
   Case 13 :   Set Rdy_rx_flag
   Case Else : If B >= 20 And B <= 127 Then
                  Incr Buff_index_1
                  If Buff_index_1 > 704 Then Buff_index_1 = 1
                  Buff(buff_index_1) = B
                End If
End Select
Return
'------------------------------------------------------------
Sec01:' тик в 0,1 сек для таймаута
Incr 100ms2
Return
'------------------------------------------------------------

'=============================================================================
Sub Ucs2_win(s As String * 254)
Local B As Byte
Local D As Byte
Local K As Byte
Local J As Byte
Local C As Word
Local Str1 As String * 4


J = Len(s)
D = 0

For K = 1 To J Step 4

Str1 = Mid(s , K , 1)
B = K + 1
Str1 = Str1 + Mid(s , B , 1)
   Incr B
   Str1 = Str1 + Mid(s , B , 1)
   Incr B
   Str1 = Str1 + Mid(s , B , 1)
   C = Hexval(str1)

   Select Case C
      Case 1105 : C = 184
      Case 1025 : C = 168
      Case Else : If C > 128 Then C = C - 848
   End Select
   Str1 = Chr(c)
   Incr D
   Mid(s , D , 1 ) = Str1

Next K
S = Left(s , D)
End Sub
'=============================================================================
Sub In_message(t As Word , S As String * 254)     'для чтения СМС

Local C As Word
Local J As Word
Local K As Word
Local B As Byte
Local Tempstr As String * 4

100ms2 = 1
S = ""
Tempstr = ""
Do
Loop Until T = 100ms2 Or Rdy_rx_flag = 1
J = Buff_index_1
Reset Rdy_rx_flag
K = 1

Do
   Incr Buff_index_2
   If Buff_index_2 > 704 Then Buff_index_2 = 1
   B = Buff(buff_index_2)

   If B = 0 Then Exit Sub

   Tempstr = Tempstr + Chr(b)

   If K = 4 Then
      C = Hexval(tempstr)
      Select Case C
         'Case 0 : C = 0
         Case 1105 : C = 184
         Case 1025 : C = 168
         Case Else : If C > 128 Then C = C - 848
      End Select
      S = S + Chr(c)
      Tempstr = ""
      K = 0
   End If

   Incr K
Loop Until Buff_index_2 = J

End Sub
'=============================================================================
Sub In_txt(t As Word , S As String * 254 )    'для общения с модулем

Local J As Word

S = ""
100ms2 = 1
Do
Loop Until T = 100ms2 Or Rdy_rx_flag = 1
J = Buff_index_1
Reset Rdy_rx_flag

Do
   Incr Buff_index_2
   If Buff_index_2 > 704 Then Buff_index_2 = 1
   S = S + Chr(buff(buff_index_2))
Loop Until Buff_index_2 = J

End Sub
'=============================================================================