В новых AVR микроконтроллерах семейства Mega есть одна хорошая фича, которая позволяет записать в специальную облась Flash памяти программу которая называется бутлоадер (Bootloader). И так что же такое бутлоадер? Бутлоадер - это специальная программа которая позволяет прошивать микроконтроллер через UART интерфейс. Сегодня наиболее распространённая платформа с использованием бутлоадера это Arduino. В ней есть сразу микроконтроллер и USB-UART переходник, программа на компьютере позволяет сразу свеженаписанную программу зашить в МК через обычный UART. Обычно бутлоадер записывается в конец Flash памяти и стартует сразу при подачи питания на микроконтроллер. После старта бутлоадер проверяет UART, если на него приходит сообщение то начинается прошивка МК, если нет то микроконтроллер начинает выполнять программу как обычно (с начала). Для запуска бутлоадера в микроконтроллере необходимо cначала его прошить потом установить специальный фьюз-бит который называется BOOTRST (Boot Reset vector Enabled), при установленном данном фьюз-бите микроконтроллер при запуске переходит по адресу Flash памяти в котором записан бутлоадер. Адрес перехода устанавливается с помощью фьюз-бита BOOTSZ, обычно он равен 01 (Boot Flash section size = 1024), хотя бывают случаи когда нужен другой адрес (зависит от конкретного бутлоадера). Стоит помнить что при стирании памяти микроконтроллера стирается вся его память в том числе и бутлоадер, если вы хотите чтобы микроконтроллер работал как раньше (выполнял программу сразу) просто снимите фьюз-бит BOOTRST. К счастью в BASCOM-AVR есть готовые бутлоадеры которые можно настроить под конкретный микроконтроллер, в среде BASCOM-AVR есть программа которая выполняет прошивку МК через бутлоадер. Это очень удобно при отладке какого либо устройства на стадии разработки, уважаю MCS Electronics. И так, теперь мы научимся работать с бутлоадером в BASCOM-AVR.
Чтобы научится работать с бутлоадером, сначала соберём простую схему:
Собственно ничего особенного ничего здесь нет, микроконтроллер Atmega32, ЖК индикатор HD44780 и некоторая рассыпуха. Стоит отметить что для связи схемы с компьютером вам будет нужен USB - UART, COM - UART переходник, отлично подойдёт схема из прошлых уроков или вот эта схема. Главное не забывать что RXD подключается к TXD, а TXD к RXD. Напряжение питания схемы 5 вольт, резистор R2 регулирует контрастность дисплея, кнопка S1 - "Сброс".
Теперь подготовим сам бутлоадер, в папке \BASCOM-AVR\SAMPLES\BOOT\ есть большое количество исходных файлов бутлоадеров для разнообразных микроконтроллеров, возьмём самый универсальный, это BootLoader.bas. Откроем его, всё что нам нужно это прописать нужную скорость UART, тактовую частоту, раскомментировать строки с нужным микроконтроллером и закомментировать строки с ненужным. После чего исходный файл бутлоадера можно смело компилировать и прошивать в микроконтроллер. Вот такой получился у меня исходник бутлоадера для Atmega32:
'---------------------------------------------------------------- ' (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 = 16000000 '$crystal = 14745600 $baud = 4800 '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 = "m8def.dat" 'Const Loaderchip = 8 '$regfile = "m168def.dat" 'Const Loaderchip = 168 '$regfile = "m16def.dat" 'Const Loaderchip = 16 $regfile = "m32def.dat" Const Loaderchip = 32 '$regfile = "m88def.dat" 'Const Loaderchip = 88 '$regfile = "m162def.dat" 'Const Loaderchip = 162 '$regfile = "m8515.dat" 'Const Loaderchip = 8515 '$regfile = "m128def.dat" 'Const Loaderchip = 128 '$regfile = "m64def.dat" 'Const Loaderchip = 64 '$regfile = "m2561def.dat" 'Const Loaderchip = 2561 '$regfile = "m2560def.dat" 'Const Loaderchip = 2560 '$regfile = "m329def.dat" 'Const Loaderchip = 329 '$regfile = "m324pdef.dat" 'Const Loaderchip = 324 '$regfile = "m644def.dat" '$regfile = "m644Pdef.dat" 'Const Loaderchip = 644 #if Loaderchip = 88 'Mega88 $loader = $c00 'this address you can find in the datasheet 'the loader address is the same as the boot vector address Const Maxwordbit = 5 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 168 'Mega168 $loader = $1c00 'this address you can find in the datasheet 'the loader address is the same as the boot vector address Const Maxwordbit = 6 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 32 ' Mega32 $loader = $3c00 ' 1024 words Const Maxwordbit = 6 'Z6 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 8 ' Mega8 $loader = $c00 ' 1024 words Const Maxwordbit = 5 'Z5 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 161 ' Mega161 $loader = $1e00 ' 1024 words Const Maxwordbit = 6 'Z6 is maximum bit ' #endif #if Loaderchip = 162 ' Mega162 $loader = $1c00 ' 1024 words Const Maxwordbit = 6 'Z6 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 8515 ' Mega8515 $loader = $c00 ' 1024 words Const Maxwordbit = 5 'Z6 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Osccal = &HB3 ' the internal osc needed a new value #endif #if Loaderchip = 64 ' Mega64 $loader = $7c00 ' 1024 words Const Maxwordbit = 7 'Z7 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 128 ' Mega128 $loader = &HFC00 ' 1024 words Const Maxwordbit = 7 'Z7 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 2561 ' Mega2561 $loader = &H1FC00 ' 1024 words Const Maxwordbit = 7 'Z7 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 2560 ' Mega2560 $loader = &H1FC00 ' 1024 words Const Maxwordbit = 7 'Z7 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 16 ' Mega16 $loader = $1c00 ' 1024 words Const Maxwordbit = 6 'Z6 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 329 ' Mega32 $loader = $3c00 ' 1024 words Const Maxwordbit = 6 'Z6 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 324 ' Mega32 $loader = $3c00 ' 1024 words Const Maxwordbit = 6 'Z6 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif #if Loaderchip = 644 ' Mega644P $loader = $7c00 ' 1024 words Const Maxwordbit = 7 'Z7 is maximum bit ' 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 Maxword Print 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 'Mega 88 : 32 words, 128 pages 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 'we use some leds as indication in this sample , you might want to remove it Config Pinb.2 = Output Portb.2 = 1 'the stk200 has inverted logic for the leds Config Pinb.3 = Output Portb.3 = 1 $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 "Try " ; Bretries Print "Wait" #endif Bstatus = Waitkey() 'wait for the loader to send a byte #if Cdebug Print "Got " #endif Print 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 For J = 1 To 10 'this is a simple indication that we start the normal reset vector Toggle Portb.2 : Waitms 100 Next #if Cdebug Print "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 "Clear buffer" #endif Do Bstatus = Waitkey() Loop Until Bstatus = 0 For J = 1 To 3 'this is a simple indication that we start the normal reset vector Toggle Portb.2 : Waitms 50 Next 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 Chr(nak); ' firt time send a nack Do Bstatus = Waitkey() '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() : Csum = Csum + Bblock 'get block Bcsum1 = Waitkey() : Csum = Csum + Bcsum1 'get checksum first byte For J = 1 To 128 'get 128 bytes Buf(j) = Waitkey() : Csum = Csum + Buf(j) Next Bcsum2 = Waitkey() '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 Chr(ack); 'acknowledge Else 'no match so send nak Print Chr(nak); End If Else Print 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 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.
В нём я установил микроконтроллер Atmega32, скорость UART 4800 бод, тактовая частота 16 МГц, Boot Flash section size = 1024. После прошивки устанавливаем следующие фьюз-биты:
После прошивки и установки фьюз-битов, подключаем схему через UART переходник к компьютеру. Запускаем BASCOM-AVR и открываем настройки программатора (Options>Programmer), в выпадающем списке Programmer выбираем MCS Bootloader, устанавливаем галочку Upload Code and Data. Далее во вкладке Serial выбираем COM-port порт к которому подключена схема (у меня 3) и бод которых указали в бутлоадере (у меня 4800), во вкладке MCS Loader устанавливаем Boot size какой установили во фьюз битах и бутлоадере (у меня 1024). Вот что примерно должно получится:
Всё, когда всё настроили можно писать программу и прошивать с помощью бутлоадера, например напишем простенькую программу:
$regfile = "m32def.dat" $crystal = 16000000 Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0 Config Lcd = 16 * 4 Initlcd Cls Cursor Off Lcd "Bascom AVR Іyї- " Lowerline Lcd "»oaгep Ѕa јёєpo-" Thirdline Lcd "єoЅїpo»»epe At " Fourthline Lcd "mega32 Alex98y" End
Когда всё написали, компилируем и прошиваем: идём Program>Send to chip>Program, появится следующие окошко:
Программа просит, чтобы мы сбросили микроконтроллер, нажмём на кнопку S1 сбросим микроконтроллер (этим мы запустим бутлоадер), сразу начнётся процесс прошивки:
После прошивки кнопочка "Cancel" примет вид "Ok", вот так:
Нажмём на кнопку "Ok" и сбросим микроконтроллер нажав на кнопку S1. Всё, прошивка окончена, программа зашитая в микроконтроллер сразу запуститься. Вот что получилось у меня:
Вот видео где я демонстрирую прошивку МК с помощью бутлоадера:
В файлах к статье есть исходники бутлоадера, программы, готовые прошивки и проект в Proteus.
Вот собственно и всё! Задавайте вопросы в комментариях, пишите в ЛС, всегда рад помочь!
Урок 18. Работа с дисплеем от Nokia 3310
Прикрепленные файлы:
- bootM32.rar (41 Кб)
Комментарии (2) | Я собрал (0) | Подписаться
Для добавления Вашей сборки необходима регистрация
Уважаемый автор! "Отключите" свои познания о программировании и МК, прикиньтесь новичком и заново прочтите свой материал (начиная с 13-ого урока)! Вас как-будто подменили!
Лично я, самостоятельно работающий с МК, с трудом понимаю Вашу писанину! И это уроки для начинающих?
И еще: содрать чей-то код может каждый школьник. А перевести комментарии в коде слабо? На кой ляд разворачивать на странице код, в котором нужно знать уже два языка - программирования и английский?