| 0,0 → 1,245 |
|---|
| /**** Bootloader ****/ |
| #define VERSION "1.0" |
| #define ID "$Id: irmrak4.c 1293 2009-01-11 22:53:46Z kakl $" |
| |
| #CASE // Case sensitive compiler |
| |
| #include "bloader.h" |
| |
| #bit CREN = 0x18.4 // USART registers |
| #bit SPEN = 0x18.7 |
| #bit OERR = 0x18.1 |
| #bit FERR = 0x18.2 |
| |
| |
| #INT_RDA |
| rs232_handler() |
| { |
| putchar(getc()); |
| } |
| |
| |
| /*-------------------------------- MAIN --------------------------------------*/ |
| #SEPARATE |
| void real_main() |
| { |
| int8 i=0; |
| |
| printf("/n/rBootloader/n/r"); |
| enable_interrupts(INT_RDA); |
| enable_interrupts(GLOBAL); |
| while(TRUE) |
| { |
| printf("|%u",i++); |
| delay_ms(100); |
| } |
| } |
| |
| |
| /*------------------- BOOT LOADER --------------------------------------------*/ |
| #define FLASH_BLOCK_SIZE 32 |
| #define LOADER_RESERVED getenv("PROGRAM_MEMORY")-26*FLASH_BLOCK_SIZE |
| #define BUFFER_LEN_LOD 46 |
| #if FLASH_BLOCK_SIZE != getenv("FLASH_ERASE_SIZE")/2 |
| #error Wrong length of the Flash Block Size. getenv("FLASH_ERASE_SIZE")/getenv("FLASH_WRITE_SIZE") |
| #endif |
| |
| |
| #BUILD(INTERRUPT=FLASH_BLOCK_SIZE) // Redirect Interrupt routine above first flash block |
| #ORG 4,5 |
| void JumpToTheInterrupt() // Jump to the Interrupt Handler |
| { #asm GOTO FLASH_BLOCK_SIZE #endasm } |
| #ORG 6,FLASH_BLOCK_SIZE-1 {} // First Flash block is reserved |
| |
| |
| #ORG LOADER_RESERVED,LOADER_RESERVED+FLASH_BLOCK_SIZE-1 auto=0 |
| #SEPARATE |
| void dumy_main() // Main on the fix position |
| { |
| real_main(); |
| } |
| |
| #ORG LOADER_RESERVED+FLASH_BLOCK_SIZE,getenv("PROGRAM_MEMORY")-125 auto=0 default |
| |
| unsigned int atoi_b16(char *s) // Convert two hex characters to an int8 |
| { |
| unsigned int result = 0; |
| int i; |
| |
| for (i=0; i<2; i++,s++) { |
| if (*s >= 'A') |
| result = 16*result + (*s) - 'A' + 10; |
| else |
| result = 16*result + (*s) - '0'; |
| } |
| |
| return(result); |
| } |
| |
| void assert(int1 Condition, int8 ErrorCode) |
| { |
| if(Condition) |
| { |
| putchar('E'); |
| putchar(ErrorCode+'1'); |
| reset_cpu(); |
| } |
| } |
| |
| void pause() |
| { |
| int16 timeout; |
| |
| for(timeout=0; timeout<65535; timeout++); // Delay cca 300ms |
| } |
| |
| #SEPARATE |
| boot_loader() |
| { |
| int buffidx; |
| char buffer[BUFFER_LEN_LOD]; |
| |
| int8 checksum, line_type; |
| int16 l_addr,h_addr=0; |
| int16 addr; |
| int32 next_addr; |
| |
| int8 dataidx, i, count; |
| union program_data { |
| int8 i8[16]; |
| int16 i16[8]; |
| } data; |
| |
| putchar('@'); |
| |
| //nesmaze obsluhu preruseni a jump na main |
| for(addr=getenv("FLASH_ERASE_SIZE")/2;addr<=LOADER_RESERVED;addr+=getenv("FLASH_ERASE_SIZE")/2) |
| { |
| erase_program_eeprom(addr); |
| putchar('.'); |
| } |
| |
| putchar('!'); |
| |
| while(!kbhit()) restart_wdt(); |
| |
| while(TRUE) |
| { |
| //---WDT |
| while (getc()!=':') restart_wdt(); // Only process data blocks that starts with ':' |
| |
| buffidx = 0; // Read into the buffer until 'x' is received or buffer is full |
| do |
| { |
| buffer[buffidx] = getc(); |
| } while ( (buffer[buffidx++] != 'x') && (buffidx < BUFFER_LEN_LOD) ); |
| assert(buffidx == BUFFER_LEN_LOD,1); // Error 1 - Buffer Overrun |
| |
| //---WDT |
| restart_wdt(); |
| |
| checksum = 0; // Sum the bytes to find the check sum value |
| for (i=0; i<(buffidx-3); i+=2) |
| checksum += atoi_b16 (&buffer[i]); |
| checksum = 0xFF - checksum + 1; |
| assert(checksum != atoi_b16 (&buffer[buffidx-3]),2); // Error 2 - Bad CheckSum |
| |
| // count = atoi_b16 (&buffer[0]); // Get the number of bytes from the buffer |
| |
| // Get the lower 16 bits of address |
| l_addr = make16(atoi_b16(&buffer[2]),atoi_b16(&buffer[4])); |
| |
| line_type = atoi_b16 (&buffer[6]); |
| |
| addr = make32(h_addr,l_addr); |
| |
| addr /= 2; // PIC16 uses word addresses |
| |
| // If the line type is 1, then data is done being sent |
| if (line_type == 1) |
| { |
| putchar('#'); |
| reset_cpu(); |
| } |
| |
| assert (line_type == 4,4); // Error 4 - Line type 4 |
| |
| { |
| |
| if (line_type == 0) |
| { |
| // Read old program memory content |
| for (i=0,next_addr=addr;i<8;i++) |
| data.i16[i]=read_program_eeprom(next_addr++); |
| // Loops through all of the data and stores it in data |
| // The last 2 bytes are the check sum, hence buffidx-3 |
| for (i=8,dataidx=0; i < buffidx-3; i += 2) |
| data.i8[dataidx++]=atoi_b16(&buffer[i]); |
| |
| if (addr == 0) |
| { |
| |
| // Write 8 words to the Loader location |
| addr=LOADER_RESERVED; |
| for (i=0;i<8;i++) |
| write_program_eeprom(addr++, data.i16[i]); |
| putchar('%'); |
| } |
| else |
| if (addr > 7 && addr < LOADER_RESERVED) |
| { |
| // Write 8 words |
| for (i=0;i<8;i++) |
| write_program_eeprom(addr++, data.i16[i]); |
| putchar('*'); |
| } |
| else putchar('.'); |
| //---WDT |
| restart_wdt(); |
| CREN=0; CREN=1; |
| } |
| } |
| } |
| } |
| |
| #ORG default |
| |
| #ORG getenv("PROGRAM_MEMORY")-124,getenv("PROGRAM_MEMORY")-1 auto=0 |
| void main() |
| { |
| int8 timeout; |
| |
| disable_interrupts(GLOBAL); |
| setup_wdt(WDT_2304MS); // Setup Watch Dog |
| setup_adc_ports(NO_ANALOGS); |
| setup_adc(ADC_OFF); |
| setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1); |
| setup_timer_1(T1_DISABLED); |
| setup_timer_2(T2_DISABLED,0,1); |
| setup_comparator(NC_NC_NC_NC); |
| setup_vref(FALSE); |
| setup_oscillator(OSC_8MHZ|OSC_INTRC); |
| |
| putchar('?'); |
| for(timeout=0; timeout<255; timeout++) //cca 50s |
| { |
| if (kbhit()) |
| if (getc()=='u') // "uf" as Update Firmware |
| { |
| if (getc()=='f') |
| { |
| restart_wdt(); |
| boot_loader(); // Update Firmware starter |
| } |
| } |
| else break; |
| pause(); |
| CREN=0; CREN=1; // Reinitialise USART |
| restart_wdt(); |
| }; |
| |
| CREN=0; CREN=1; // Reinitialise USART |
| restart_wdt(); |
| goto_address(LOADER_RESERVED); // Jump to the location where is the jump to the main |
| } |
| |