Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Вопросы - ответы » Дистанционная прошивка


Дистанционная прошивка

Сообщений 1 страница 30 из 45

1

Прочитал про Bootloader, в том числе и на NRF24L01, но много вопросов. Если кто может, подскажите пож. Задача у меня такая, дистанционно прошивать Мегу 128. Как это будет по WiFi, по GPRS и т.д не важно. Загрузчик со стороны контроллера есть, а вот как организовать передачу данных из HEX файла... Когда ее начинать, когда заканчивать и как именно передавать? Никогда этим просто не занимался, может кто подскажет где посмотреть, чтоб для начального уровня понять.

0

2

Изучайте документацию на загрузчик. В ней должно быть написано о формате данных.

0

3

Там не для начинающего написано, я пример хотел бы , чтоб начинающий понял

0

4

kostr
ищите про самозагрузку у старших AVR
там были и примеры

0

5

Понятно, ищу

0

6

kostr написал(а):

Там не для начинающего написано

Если что-то не понятно, об этом нужно спрашивать.

0

7

Вставлю и я свои 5 копеек.  :) Хоть и не шибко разбираюсь, но на мысль, может и подтолкну. Если не важно, каким путём передавать данные, в Вашем случае - по воздуху, то протокол передачи данных должен быть универсален. TCP - не подходит?

0

8

sevastopolets написал(а):

Вставлю и я свои 5 копеек.  :) Хоть и не шибко разбираюсь, но на мысль, может и подтолкну. Если не важно, каким путём передавать данные, в Вашем случае - по воздуху, то протокол передачи данных должен быть универсален. TCP - не подходит?

Подходит, конечно.

Пётр написал(а):

Если что-то не понятно, об этом нужно спрашивать.


Спрашиваю.
Ковыряю стандартный BootLoader BasCom, возник сразу вопрос как выполняются эти строки:

Const Cdebug = 0                                            ' leave this to 0

#if Cdebug
   Print Maxword
   Print Maxwordshift
#endif

#if Cdebug
    Print "Try " ; Bretries
    Print "Wait"
#endif
Bstatus = Waitkey()                                         'wait for the loader to send a byte
#if Cdebug
   Print "Got "
#endif

#if Cdebug
  Print "RESET"
#endif
Goto _reset

Я бы понял когда #if Cdebug = 1 или что то в этом роде. А прочитав хелп, я так и не врубился что значит #if Cdebug без условия. Если кто знает, поясните пож.

Отредактировано kostr (2015-05-01 06:24:29)

0

9

Mrshilov написал(а):

Такой прикол есть почти во всех языках, в Си и проч.
#if Cdebug будет выполняться (т.е. "утверждение верно"), если Cdebug не равно нулю, пусть даже оно дробное или отрицательное.
#if 1 тоже будет выполняться (число может быть любым, кроме нуля).

Тогда почему
#if Cdebug
,,,,,,
#endif

#if Cdebug
,,,,,,
#endif
,,,,,
#if Cdebug
,,,,,
#endif

#if Cdebug
,,,,,
#endif
а не все в одно условие запихали?
#if Cdebug
,,,,,
,,,,,
,,,,,
#endif
ведь Cdebug не меняется.

0

10

Извините, а что значит решетка в начале строки?  :unsure:

0

11

Mrshilov написал(а):

Такой прикол есть почти во всех языках, в Си и проч. #if Cdebug будет выполняться (т.е. "утверждение верно"), если Cdebug не равно нулю, пусть даже оно дробное или отрицательное. #if 1 тоже будет выполняться (число может быть любым, кроме нуля).

дельная тема . не знал. Кладу в копилку между плеч которая

0

12

SIvan написал(а):

Извините, а что значит решетка в начале строки?  :unsure:

Как я понял условная компиляция, если условие выполняется - компилим, если нет, то оставляем. Много программ в одной, так сказать...

В баскоме наткнулся в Tools на Easy TCP/IP... при помощи этого инструмента можно дистанционно прошить?

0

13

kostr написал(а):

В баскоме наткнулся в Tools на Easy TCP/IP... при помощи этого инструмента можно дистанционно прошить?

Вообще кто нибудь пользовался на практике этим?

Отредактировано kostr (2015-05-02 22:02:21)

0

14

kostr написал(а):

В баскоме наткнулся в Tools на Easy TCP/IP... при помощи этого инструмента можно дистанционно прошить?Вообще кто нибудь пользовался на практике этим?

Лично я, если бы коснулось, то пробовал сам. Собрал необходимое железо на макетке и пытался. Убил бы какое-то время, на всё это, но зато получил бы хоть какой-то результат. Теория, теорией..... а практика.

0

15

Делал нечто подобное. Примерно выглядит так: есть грубо говоря гланый контроллер(XMEGA256 и памяти много и uart-тов). у него есть USB,сделанный на ft232, есть также rs232 и rs485. шина rs232 немного изменена и к ней можно подключать несколько модулей. Предполагалось что на шине rs232 и rs485 стоят разные модули с авр-ками. в основном мега8. у каждого модуля среди прочего(будь то битовые входы выходы, датчики ds18b20 итд (что придет в голову)) есть внешняя микросхема памяти типа 24с64(8 килобайт).
Предположим нам надопршить модуль который стоит где-то за несколько сот метров на шине rs485.
С компа по usb передается пакет данных(64 байта) из хекс файла к клавному контроллреу. главный контроллер принимает пакет, затем когда есть промежуток времени в шине rs485(а там есть очередь чтения записи с модулей) передает модулю пакет. тот в свою очередь складывает этот пакет во внешнюю микросхему памяти и шлет ответ главному контроллеру. компьютер после посылки пакета с данными шлет запрос к главному контроллеру типа " где ответ на тот пакет данных что я тебе посылал." и когда ответ от модуля принят, контроллер в ответ  пересылает его компьютеру. затем передается следующий пакет от компьютера к контроллеру до конца хекс файла. потом коомпьютер посылает команду(переписать все из внешней микросхемы памяти в нашу мега8 и перезагрузиться) и модуль переходит в область загрузчика. загрузчик из микросхемы 24c64 переписывает данные в мега8 и потом перезагружается и начинает работать  уже по новой программе.
у меня пока сделан только один главный контроллер и один модуль. но зато прошивается с компа. главный контроллер пока прошивается простым mcsbootloader(потом доделаю).
плюсы:
1. можно прошивать удаленные модули. длинна шины rs485 кажется до 1,2 км(при условии экранирования).
2. можно подключать разные модули не переделывая при этом главный контроллер(физически) .тоесть расширять систему. только добавив обмен в клавный контроллер с этим модулем
3. сейчас в разработке модули блютус, и ethernet. предполагается, что через эти модули можно также программировать все модули в системе и главный контроллер, в том числе и сами модули блютуз и езернет. читать значения входов выходов модулей(не на прямую с модулей, а их значения с главного контроллера). читать разне отладочные сообщения от модуля. делать визуализацию(ну это уж очень не скоро).
минусы:
1. скорость 9600(для отладки), и пока ждем очереди и вечные запросы, скорость программирования конечного модуля весьма мала. 3 килобайта шъется около минуты.
2. для каждого конечного модуля нужна отдельная внешняя микросхема памяти.
3. для каждого модуля нужен свой загрузчик(если модули разные).
Если интересно выложу схемы и программы как есть.

Отредактировано lan_tosno (2015-05-12 09:18:23)

0

16

Интересен вот какой момент:
если я выставляю фьзы на bootblock=4096 Words, то каким делать адрес $loader=?????
контроллер MEGA128

0

17

И еще вопрос. Можно ли залить и загрузчик и основную программу в контроллер одновременно?

0

18

что мешает Вам их обЪеденить ?

0

19

А каким образом?
как только я пишу $loader=xxxx, то компилятор ругается, что не хватает памяти

0

20

Вопросы бегут ручьем у меня в голове.
1. В баскоме можно как то указать, что этот кусок кода загружать с адреса &H0000, а этот с адреса &HF800?
2. Если для меги128 bootblock=4096 Words и выставлен BRST, то с какого адреса пойдет загрузка при сбросе?

0

21

Делал так: писал отдельно основную программу и отдельно загрузчик. потом их по отдельности компилировал, а потом в текстовом редакторе из двух hex файлов делал один.
Я пытался делать порграмму целиком и для загрузчика и для основной программы, помоемому через команду $loader, но фишка в том, что переменные которые используються в основной порграмме(константы) по умолчанию всеравно пишуться в начале hex фала. тоесть если я загрузчиком переписываю данные из флешки в память мк, то константы теряются. мне вариант с двумя hex файлами нравиться больше.

Отредактировано lan_tosno (2015-05-18 08:47:21)

0

22

Приветствую, можно, прошу здесь?

Загрузчик будет работать с софтовым уартом? ну, т.е., если сконфигурировать его вместо $baud, появилась идея прошивки по однопроводной шине. Ещё не пробовал, решил сначала спросить

0

23

Неужто никто не пробовал?

Код:
'----------------------------------------------------------------
'                          (c) 1995-2009, MCS
'                        Bootloader.bas
'  This sample demonstrates how you can write your own bootloader
'  in BASCOM BASIC
'  VERSION 2 of the BOOTLOADER. The waiting for the NAK is stretched
'  further a bug was resolved for the M64/M128 that have a big page size
'-----------------------------------------------------------------
'This sample will be extended to support other chips with bootloader
'The loader is supported from the IDE

$crystal = 8000000
'$baud = 19200                                               'this loader uses serial com
'It is VERY IMPORTANT that the baud rate matches the one of the boot loader
'do not try to use buffered com as we can not use interrupts

'possible return codes of the PC bootloader.exe
' -6005    Cancel requested
' -6006    Fatal time out
' -6007    Unrecoverable event during protocol
' -6008    Too many errors during protocol
' -6009    Block sequence error in Xmodem
' -6016    Session aborted




$regfile = "m328pdef.dat"
Const Loaderchip = 328
config portc.2 = output
set portc.2


   #if Loaderchip = 328                                     ' Mega32
    $loader = $3c00                                         ' 1024 words
    Const Maxwordbit = 6                                    'Z6 is maximum bit                                   '
     Open "comc.1:2400,8,n,1" For Output As #2
     Open "comc.0:2400,8,n,1" For Input As #3
    #endif



Const Maxword =(2 ^ Maxwordbit) * 2                         '128
Const Maxwordshift = Maxwordbit + 1
Const Cdebug = 0                                            ' leave this to 0

#if Cdebug
   Print #2 , Maxword
   Print #2 , Maxwordshift
#endif



'Dim the used variables
Dim Bstatus As Byte , Bretries As Byte , Bblock As Byte , Bblocklocal As Byte
Dim Bcsum1 As Byte , Bcsum2 As Byte , Buf(128) As Byte , Csum As Byte
Dim J As Byte , Spmcrval As Byte                            ' self program command byte value

Dim Z As Long                                               'this is the Z pointer word
Dim Vl As Byte , Vh As Byte                                 ' these bytes are used for the data values
Dim Wrd As Word , Page As Word                              'these vars contain the page and word address
Dim Bkind As Byte , Bstarted As Byte

Disable Interrupts                                          'we do not use ints


'Waitms 100                                                  'wait 100 msec sec
'We start with receiving a file. The PC must send this binary file

'some constants used in serial com
Const Nak = &H15
Const Ack = &H06
Const Can = &H18

$timeout = 400000                                           'we use a timeout
'When you get LOADER errors during the upload, increase the timeout value
'for example at 16 Mhz, use 200000

Bretries = 5                                                'we try 5 times
Testfor123:
#if Cdebug
    Print #2 , "Try " ; Bretries
    Print #2 , "Wait"
#endif
Bstatus = Waitkey(#3)                                       'wait for the loader to send a byte
#if Cdebug
   Print #2 , "Got "
#endif

Print #2 , Chr(bstatus);

If Bstatus = 123 Then                                       'did we received value 123 ?
   Bkind = 0                                                'normal flash loader
   Goto Loader
Elseif Bstatus = 124 Then                                   ' EEPROM
   Bkind = 1                                                ' EEPROM loader
   Goto Loader
Elseif Bstatus <> 0 Then
   Decr Bretries
   If Bretries <> 0 Then Goto Testfor123                    'we test again
End If

#if Cdebug
  Print #2 , "RESET"
#endif
Goto _reset                                                 'goto the normal reset vector at address 0


'this is the loader routine. It is a Xmodem-checksum reception routine
Loader:
  #if Cdebug
      Print #2 , "Clear buffer"
  #endif
  Do
     Bstatus = Waitkey(#3)
  Loop Until Bstatus = 0

  If Bkind = 0 Then
     Spmcrval = 3 : Gosub Do_spm                            ' erase  the first page
     Spmcrval = 17 : Gosub Do_spm                           ' re-enable page
  End If


Bretries = 10                                               'number of retries

Do
  Bstarted = 0                                              ' we were not started yet
  Csum = 0                                                  'checksum is 0 when we start
  Print #2 , Chr(nak);                                      ' firt time send a nack
  Do

    Bstatus = Waitkey(#3)                                    'wait for statuse byte

    Select Case Bstatus
       Case 1:                                              ' start of heading, PC is ready to send
            Incr Bblocklocal                                'increase local block count
            Csum = 1                                        'checksum is 1
            Bblock = Waitkey(#3)  : Csum = Csum + Bblock     'get block
            Bcsum1 = Waitkey(#3)  : Csum = Csum + Bcsum1     'get checksum first byte
            For J = 1 To 128                                'get 128 bytes
              Buf(j) = Waitkey(#3)  : Csum = Csum + Buf(j)
            Next
            Bcsum2 = Waitkey(#3)                             'get second checksum byte
            If Bblocklocal = Bblock Then                    'are the blocks the same?
               If Bcsum2 = Csum Then                        'is the checksum the same?
                  Gosub Writepage                           'yes go write the page
                  Print #2 , Chr(ack);                      'acknowledge
               Else                                         'no match so send nak
                  Print #2 , Chr(nak);
               End If
            Else
               Print #2 , Chr(nak);                         'blocks do not match
            End If
       Case 4:                                              ' end of transmission , file is transmitted
             If Wrd > 0 And Bkind = 0 Then                  'if there was something left in the page
                 Wrd = 0                                    'Z pointer needs wrd to be 0
                 Spmcrval = 5 : Gosub Do_spm                'write page
                 Spmcrval = 17 : Gosub Do_spm               ' re-enable page
             End If
            '  Waitms 100                                   ' OPTIONAL REMARK THIS IF THE DTR SIGNAL ARRIVES TO EARLY
             Print #2 , Chr(ack);                           ' send ack and ready

             Portb.3 = 0                                    ' simple indication that we are finished and ok
             Waitms 20
             Goto _reset                                    ' start new program
       Case &H18:                                           ' PC aborts transmission
             Goto _reset                                    ' ready
       Case 123 : Exit Do                                   'was probably still in the buffer
       Case 124 : Exit Do
       Case Else
          Exit Do                                           ' no valid data
    End Select
  Loop
  If Bretries > 0 Then                                      'attempte left?
     Waitms 1000
     Decr Bretries                                          'decrease attempts
  Else
     Goto _reset                                            'reset chip
  End If
Loop



'write one or more pages
Writepage:
 If Bkind = 0 Then
   For J = 1 To 128 Step 2                                  'we write 2 bytes into a page
      Vl = Buf(j) : Vh = Buf(j + 1)                         'get Low and High bytes
      lds r0, {vl}                                          'store them into r0 and r1 registers
      lds r1, {vh}
      Spmcrval = 1 : Gosub Do_spm                           'write value into page at word address
      Wrd = Wrd + 2                                         ' word address increases with 2 because LS bit of Z is not used
      If Wrd = Maxword Then                                 ' page is full
          Wrd = 0                                           'Z pointer needs wrd to be 0
          Spmcrval = 5 : Gosub Do_spm                       'write page
          Spmcrval = 17 : Gosub Do_spm                      ' re-enable page

          Page = Page + 1                                   'next page
          Spmcrval = 3 : Gosub Do_spm                       ' erase  next page
          Spmcrval = 17 : Gosub Do_spm                      ' re-enable page
      End If
   Next

 Else                                                       'eeprom
     For J = 1 To 128
       Writeeeprom Buf(j) , Wrd
       Wrd = Wrd + 1
     Next
 End If
 Toggle Portb.2 : Waitms 10 : Toggle Portb.2                'indication that we write
Return


Do_spm:
  Bitwait Spmcsr.0 , Reset                                  ' check for previous SPM complete
  Bitwait Eecr.1 , Reset                                    'wait for eeprom

  Z = Page                                                  'make equal to page
  Shift Z , Left , Maxwordshift                             'shift to proper place
  Z = Z + Wrd                                               'add word
  lds r30,{Z}
  lds r31,{Z+1}

  #if _romsize > 65536
      lds r24,{Z+2}
      sts rampz,r24                                         ' we need to set rampz also for the M128
  #endif

  Spmcsr = Spmcrval                                         'assign register
  spm                                                       'this is an asm instruction
  nop
  nop
Return


'How you need to use this program:
'1- compile this program
'2- program into chip with sample elctronics programmer
'3- select MCS Bootloader from programmers
'4- compile a new program for example M88.bas
'5- press F4 and reset your micro
' the program will now be uploaded into the chip with Xmodem Checksum
' you can write your own loader.too
'A stand alone command line loader is also available


'How to call the bootloader from your program without a reset ???
'Do
'   Print "test"
'   Waitms 1000
'   If Inkey() = 27 Then
'      Print "boot"
'      Goto &H1C00
'   End If
'Loop

'The GOTO will do the work, you need to specify the correct bootloader address
'this is the same as the $LOADER statement.

0

24

С аппаратным уартом всё работает, с программным нет (((

0

25

В общем, благодарю за непомощь, разобрался сам.

Выкладываю рабочий вариант загрузчика с использованием программного uart

Код:
'----------------------------------------------------------------
'                          (c) 1995-2009, MCS
'                        Bootloader.bas
'  This sample demonstrates how you can write your own bootloader
'  in BASCOM BASIC
'  VERSION 2 of the BOOTLOADER. The waiting for the NAK is stretched
'  further a bug was resolved for the M64/M128 that have a big page size
'-----------------------------------------------------------------
'This sample will be extended to support other chips with bootloader
'The loader is supported from the IDE

$crystal = 8000000
'$baud = 9600                                                'this loader uses serial com
'Echo Off

'It is VERY IMPORTANT that the baud rate matches the one of the boot loader
'do not try to use buffered com as we can not use interrupts

'possible return codes of the PC bootloader.exe
' -6005    Cancel requested
' -6006    Fatal time out
' -6007    Unrecoverable event during protocol
' -6008    Too many errors during protocol
' -6009    Block sequence error in Xmodem
' -6016    Session aborted




$regfile = "m328pdef.dat"
Const Loaderchip = 328
config portc.2 = output
set portc.2


   #if Loaderchip = 328                                     ' Mega32
    $loader = $3c00                                         ' 1024 words
    Const Maxwordbit = 6                                    'Z6 is maximum bit                                   '
     Open "comc.1:9600,8,n,1" For Output As #2
     Open "comc.0:9600,8,n,1" For Input As #3

   Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

    #endif



Const Maxword =(2 ^ Maxwordbit) * 2                         '128
Const Maxwordshift = Maxwordbit + 1
Const Cdebug = 0                                            ' leave this to 0

#if Cdebug
   Print #2 , Maxword
   Print #2 , Maxwordshift
#endif



'Dim the used variables
Dim Bstatus As Byte , Bretries As Byte , Bblock As Byte , Bblocklocal As Byte
Dim Bcsum1 As Byte , Bcsum2 As Byte , Buf(128) As Byte , Csum As Byte
Dim J As Byte , Spmcrval As Byte                            ' self program command byte value

Dim Z As Long                                               'this is the Z pointer word
Dim Vl As Byte , Vh As Byte                                 ' these bytes are used for the data values
Dim Wrd As Word , Page As Word                              'these vars contain the page and word address
Dim Bkind As Byte , Bstarted As Byte
Dim Bufer As Byte
Disable Interrupts                                          'we do not use ints


'Waitms 100                                                  'wait 100 msec sec
'We start with receiving a file. The PC must send this binary file

'some constants used in serial com
Const Nak = &H15
Const Ack = &H06
Const Can = &H18

$timeout = 400000                                           'we use a timeout
'When you get LOADER errors during the upload, increase the timeout value
'for example at 16 Mhz, use 200000

Bretries = 5                                                'we try 5 times
Testfor123:
#if Cdebug
    Print #2 , "Try " ; Bretries
    Print #2 , "Wait"
#endif
'Bstatus = Waitkey(#3)                                       'wait for the loader to send a byte          3
Inputbin #3 , Bstatus
#if Cdebug
   Print #2 , "Got "
#endif

Print #2 , Chr(bstatus);

If Bstatus = 123 Then                                       'did we received value 123 ?
   Bkind = 0                                                'normal flash loader
   Goto Loader
Elseif Bstatus = 124 Then                                   ' EEPROM
   Bkind = 1                                                ' EEPROM loader
   Goto Loader
Elseif Bstatus <> 0 Then
   Decr Bretries
   If Bretries <> 0 Then Goto Testfor123                    'we test again
End If

#if Cdebug
  Print #2 , "RESET"
#endif
Goto _reset                                                 'goto the normal reset vector at address 0


'this is the loader routine. It is a Xmodem-checksum reception routine
Loader:
  #if Cdebug
      Print #2 , "Clear buffer"
  #endif
  Do
  Inputbin #3 , Bstatus
'     Bstatus = Waitkey(#3)
  Loop Until Bstatus = 0

  If Bkind = 0 Then
     Spmcrval = 3 : Gosub Do_spm                            ' erase  the first page
     Spmcrval = 17 : Gosub Do_spm                           ' re-enable page
  End If


Bretries = 10                                               'number of retries

Do
  Bstarted = 0                                              ' we were not started yet
  Csum = 0                                                  'checksum is 0 when we start
  Print #2 , Chr(nak);                                      ' firt time send a nack
  Do
    Inputbin #3 , Bstatus
   ' Bstatus = Waitkey(#3)                                     'wait for statuse byte

    Select Case Bstatus
       Case 1:                                              ' start of heading, PC is ready to send
            Incr Bblocklocal                                'increase local block count
            Csum = 1                                        'checksum is 1
            Inputbin #3 , Bblock : Csum = Csum + Bblock
           ' Bblock = Waitkey(#3) : Csum = Csum + Bblock     'get block
            Inputbin #3 , Bcsum1 : Csum = Csum + Bcsum1
            'Bcsum1 = Waitkey(#3) : Csum = Csum + Bcsum1       'get checksum first byte
            For J = 1 To 128
            Bufer = 0
            Inputbin #3 , Bufer : Buf(j) = Bufer : Csum = Csum + Buf(j)       'get 128 bytes
             ' Buf(j) = Waitkey(#3) : Csum = Csum + Buf(j)
            Next
            Inputbin #3 , Bcsum2
           ' Bcsum2 = Waitkey(#3)                              'get second checksum byte
            If Bblocklocal = Bblock Then                    'are the blocks the same?
               If Bcsum2 = Csum Then                        'is the checksum the same?
                  Gosub Writepage                           'yes go write the page
                  Print #2 , Chr(ack);                      'acknowledge
               Else                                         'no match so send nak
                  Print #2 , Chr(nak);
               End If
            Else
               Print #2 , Chr(nak);                         'blocks do not match
            End If
       Case 4:                                              ' end of transmission , file is transmitted
             If Wrd > 0 And Bkind = 0 Then                  'if there was something left in the page
                 Wrd = 0                                    'Z pointer needs wrd to be 0
                 Spmcrval = 5 : Gosub Do_spm                'write page
                 Spmcrval = 17 : Gosub Do_spm               ' re-enable page
             End If
            '  Waitms 100                                   ' OPTIONAL REMARK THIS IF THE DTR SIGNAL ARRIVES TO EARLY
             Print #2 , Chr(ack);                           ' send ack and ready

             Portb.3 = 0                                    ' simple indication that we are finished and ok
             Waitms 20
             Goto _reset                                    ' start new program
       Case &H18:                                           ' PC aborts transmission
             Goto _reset                                    ' ready
       Case 123 : Exit Do                                   'was probably still in the buffer
       Case 124 : Exit Do
       Case Else
          Exit Do                                           ' no valid data
    End Select
  Loop
  If Bretries > 0 Then                                      'attempte left?
     Waitms 1000
     Decr Bretries                                          'decrease attempts
  Else
     Goto _reset                                            'reset chip
  End If
Loop



'write one or more pages
Writepage:
 If Bkind = 0 Then
   For J = 1 To 128 Step 2                                  'we write 2 bytes into a page
      Vl = Buf(j) : Vh = Buf(j + 1)                         'get Low and High bytes
      lds r0, {vl}                                          'store them into r0 and r1 registers
      lds r1, {vh}
      Spmcrval = 1 : Gosub Do_spm                           'write value into page at word address
      Wrd = Wrd + 2                                         ' word address increases with 2 because LS bit of Z is not used
      If Wrd = Maxword Then                                 ' page is full
          Wrd = 0                                           'Z pointer needs wrd to be 0
          Spmcrval = 5 : Gosub Do_spm                       'write page
          Spmcrval = 17 : Gosub Do_spm                      ' re-enable page

          Page = Page + 1                                   'next page
          Spmcrval = 3 : Gosub Do_spm                       ' erase  next page
          Spmcrval = 17 : Gosub Do_spm                      ' re-enable page
      End If
   Next

 Else                                                       'eeprom
     For J = 1 To 128
       Writeeeprom Buf(j) , Wrd
       Wrd = Wrd + 1
     Next
 End If
 Toggle Portb.2 : Waitms 10 : Toggle Portb.2                'indication that we write
Return


Do_spm:
  Bitwait Spmcsr.0 , Reset                                  ' check for previous SPM complete
  Bitwait Eecr.1 , Reset                                    'wait for eeprom

  Z = Page                                                  'make equal to page
  Shift Z , Left , Maxwordshift                             'shift to proper place
  Z = Z + Wrd                                               'add word
  lds r30,{Z}
  lds r31,{Z+1}

  #if _romsize > 65536
      lds r24,{Z+2}
      sts rampz,r24                                         ' we need to set rampz also for the M128
  #endif

  Spmcsr = Spmcrval                                         'assign register
  spm                                                       'this is an asm instruction
  nop
  nop
Return


'How you need to use this program:
'1- compile this program
'2- program into chip with sample elctronics programmer
'3- select MCS Bootloader from programmers
'4- compile a new program for example M88.bas
'5- press F4 and reset your micro
' the program will now be uploaded into the chip with Xmodem Checksum
' you can write your own loader.too
'A stand alone command line loader is also available


'How to call the bootloader from your program without a reset ???
'Do
'   Print "test"
'   Waitms 1000
'   If Inkey() = 27 Then
'      Print "boot"
'      Goto &H1C00
'   End If
'Loop

'The GOTO will do the work, you need to specify the correct bootloader address
'this is the same as the $LOADER statement.

0

26

Вообще, софтварный UART без прерывания (INT) - обречен.

0

27

Обречён на что?

0

28

На глюки приёма.

0

29

а контрольные суммы на что?

0

30

Причем здесь контрольная сумма? Смысл знать, что данные битые, задача качественно принять!

0


Вы здесь » Программирование ATMEL в BASCOM. » Вопросы - ответы » Дистанционная прошивка