Config Serialin0 = Buffered , Size = 20 , Bytematch = 123




Serial0charmatch:
Cls
Lcd "BOOT VECTOR"
Wait 1
'here you need to read the data sheet
'to find the correct address
Goto &HC00

Return
 

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 16
$framesize = 64
$baud = 115200

Const Buffs_len = 50

'*****************************************************************
'*         CONFIG BUFFERED USART FOR DEBUG via USB               *
'*****************************************************************
 Config Serialin0 = Buffered , Size = Buffs_len             'RX from Terminal

  Dim Char As Byte , Cmd_timeout1 As Byte , Got_str As Byte
  Dim Command1 As String * Buffs_len
  Open "COM1:" For Binary As #1
  Const Usb = 1

'*****************************************************************
'*                   TIMER2 FOR TIME BASE                        *
'*****************************************************************

  Config Timer2 = Timer , Prescale = 1024 , Clear_timer = 1
  Compare2a = 155                                           '10ms @16MHz/1024
'*****************************************************************
'*                      VARIABLES                                *
'*****************************************************************
 'general purposes
 Dim Tempb As Byte

' ----------------------------
'|      PROGRAM START         |
' ----------------------------

 Enable Interrupts                                          ' for serial receiving in the background interrupt

 Do

   '--[ USART0 COM1 USB ]------------------------
    If 0 < Ischarwaiting(#usb) Then

      Char = Inkey(#usb)

      Select Case Char
       Case 10 : Got_str = 1
       Case 13 :                                            'swallow
       Case Else
        Command1 = Command1 + Chr(char)

      End Select

      If Len(command1) > 49 Then Got_str = 1                'force parsing

      If Got_str = 0 Then Cmd_timeout1 = 50                 '50x10ms

      'end if Ischarwaiting
    End If

   '--[ PARSE COM1 USB ]-------------------------
    If Got_str = 1 Then

     '-------------------------------------
        Tempb = Instr(command1 , "AT+RST")

        If Tempb > 0 Then

          Print #usb , "Reseting in progress..."

          Disable Interrupts
          Config Watchdog = 16                              'set shortest time
          Start Watchdog                                    'always strt WD after config
          Do : Loop                                         'wait for reset in neverending loop

        End If
     '-------------------------------------

         Got_str = 0
       Command1 = ""
     Cmd_timeout1 = 0
    End If

    '--[ TIMER2 10ms ]----------------------------
    If Tifr2.ocf2a = 1 Then
     Tifr2.ocf2a = 1



     'COM1 USB
     If Cmd_timeout1 > 0 Then
      Decr Cmd_timeout1
       If Cmd_timeout1 = 0 Then
        'Got_str = 1                                        'force parsing
         Command1 = ""                                      'or clear trash
       End If
     End If
    End If
 Loop
 End