Ohne zu Debuggen bleibt der Code < 1 K Word
Debugen=0 dann ohne LCD Anzeigen zwischendurch
Baud=19200 reicht vom Speed und ist sicherer , wird ja nicht jeden Tag bei Kunden upgedatet.
Bei mir geht jede Baudzahl nach oben auch.
Um mir nicht selbst ins Knie zu schießen habe ich die relevanten stellen geschwärtzt. "****"
Code:' Bootloader für Mega 32 $crystal = 16000000 $baud = 19200 '38400 'this loader uses serial com $regfile = "m32def.dat" Config Portb = Output Config Lcd = 20 * 2 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.6 , Rs = Portb.5 Config Lcdbus = 4 Config Pind.0 = Input 'RxD für RS232 Config Pind.1 = Output 'TxD für RS232 Const Debugen = 0 'Zu Testzwecke auf 1 setzen $loader = $3c00 '$3800= 2048 word $3c00= 1024 words Const Maxwordbit = 6 'Z6 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Const Maxword = 128 'Nur für Mega 32 Const Maxwordshift = Maxwordbit + 1 'Dim the used variables Dim Blockstatus As Byte Dim Fehlerversuche As Byte Dim Blocknummer As Byte Dim Blocklocalnummer As Byte Dim Vor_checksumme_vom_pc As Byte Dim Checksumme_vom_pc As Byte Dim Buffer(128) As Byte Dim Checksumme As Byte Dim Schleife As Byte Dim Spmcrval As Byte ' self program command byte value Dim Zeiger As Long 'this is the Z pointer word Dim Vl As Byte Dim Vh As Byte ' these bytes are used for the data values Dim Wrd As Word Dim Page As Word 'these vars contain the page and word address Dim Ladeziel As Byte Dim Kruept As Byte Disable Interrupts 'we do not use ints 'some constants used in serial com Const Nak = &H15 Const Ack = &H06 Const Can = &H18 $timeout = 100000 'we use a timeout 'When you get LOADER errors during the upload, increase the timeout value 'for example at 16 Mhz, use 200000 Waitms 100 Initlcd Cursor Off Noblink Cls Locate 1 , 1 Lcd "Init" Blocklocalnummer = 0 For Schleife = 0 To 15 #if Debugen = 0 Lcd "." #endif #if Debugen = 1 Lcd "?" #endif Blockstatus = Waitkey() 'Wartet ob der PC die Ladesequenz beginnt Print Chr(blockstatus); 'Echo zurück If Blockstatus = 123 Then 'Wenn Ladesequenz=123 dann wird der normale Flash geladen Ladeziel = 0 ' Goto Loader End If #if Debugen = 1 If Blockstatus = 124 Then 'Wenn Ladesequenz=124 dann wird ind EEPROM geladen Ladeziel = 1 ' Goto Loader End If #endif Next Schleife Goto _reset 'Wenn zu lange gewartet dann springe ins normale Program '################################################################################################################################ Loader: Locate 1 , 1 Lcd "Update " 'die eigendliche Laderoute Do Blockstatus = Waitkey() Loop Until Blockstatus = 0 If Ladeziel = 0 Then Spmcrval = 3 : Gosub Do_spm ' erase the first page Spmcrval = 17 : Gosub Do_spm ' re-enable page End If Fehlerversuche = 10 'number of retries '###################### Einleseschleife ############################################### Do Checksumme = 0 'checksum is 0 when we start Print Chr(nak); ' firt time send a nack Do Blockstatus = Waitkey() 'wait for statuse byte Select Case Blockstatus Case 1 To 3: ' 1=normal 2=Invers 3=Krüpt Incr Blocklocalnummer 'increase local block count Checksumme = 1 'checksum is 1 Blocknummer = Waitkey() 'hole Block Nr die übertragen werden soll .Start ist 1 Checksumme = Checksumme + Blocknummer 'get block Vor_checksumme_vom_pc = Waitkey() Checksumme = Checksumme + Vor_checksumme_vom_pc 'get checksum first byte For Schleife = 1 To 128 'get 128 bytes Buffer(schleife) = Waitkey() Checksumme = Checksumme + Buffer(schleife) If Blockstatus = 2 Then Buffer(schleife) = Not Buffer(schleife) If Blockstatus = 3 Then Kruept = ******** Kruept = Kruept - ***** Buffer(schleife) = Buffer(schleife) ******** Kruept End If Next Checksumme_vom_pc = Waitkey() 'Warte auf Checksumme vom PC #if Debugen = 1 Locate 1 , 1 Lcd "Uebertrage Block:" Lcd Blocknummer Locate 2 , 1 Lcd "Bstatus :" Lcd Blockstatus Lcd " " #endif If Blocklocalnummer = Blocknummer Then 'are the blocks the same? If Checksumme_vom_pc = Checksumme Then 'is the checksum the same? Gosub Schreibe_seite '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: ' Beendet die Übertragung mit erfolg If Wrd > 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 Print Chr(ack); #if Debugen = 1 ' send ack and ready Locate 2 , 1 Lcd "Bstatus :" Lcd Blockstatus Lcd " " Locate 1 , 21 Lcd "Update Erfolgreich" Wait 5 #endif 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 ' Fehlerübertragungsbehandlung If Fehlerversuche > 0 Then 'attempte left? Waitms 1000 Decr Fehlerversuche 'decrease attempts Else Goto _reset 'reset chip End If Loop '####################### Ende Einleseschleife ############################# Schreibe_seite: 'Beschreibt eine oder mehr seiten If Ladeziel = 0 Then For Schleife = 1 To 128 Step 2 'we write 2 bytes into a page Vl = Buffer(schleife) Vh = Buffer(schleife + 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 #if Debugen = 1 Else 'eeprom For Schleife = 1 To 128 Writeeeprom Buffer(schleife) , Wrd Wrd = Wrd + Schleife Next #endif End If Return '############################################################################### Do_spm: Bitwait Spmcsr.0 , Reset ' check for previous SPM complete Bitwait Eecr.1 , Reset 'wait for eeprom Zeiger = Page 'make equal to page Shift Zeiger , Left , Maxwordshift 'shift to proper place Zeiger = Zeiger + Wrd 'add word lds r30,{Zeiger} lds r31,{Zeiger+1} Spmcsr = Spmcrval 'assign register spm 'this is an asm instruction nop nop Return '###############################################################################
Gruß Gento
Zitieren
Lesezeichen