HAPI- Tech / Mbed 2 deprecated ika_shouyu_poppoyaki

Add to 11U68 11E68

Dependencies:   DirectoryList MODSERIAL mbed

Fork of ika_shouyu_poppoyaki by Tedd OKANO

main.cpp@1:54e619428ae6, 2013-08-24 (annotated)

Committer:
okano
Date:
Sat Aug 24 13:08:37 2013 +0000
Revision:
1:54e619428ae6
Parent:
0:6baefda2e511
Child:
2:8d75eb0ecd20
ISP checksum addition

Who changed what in which revision?

UserRevisionLine numberNew contents of line
okano 0:6baefda2e511 1 #include "mbed.h"
okano 0:6baefda2e511 2
okano 0:6baefda2e511 3 DigitalOut led1(LED1);
okano 0:6baefda2e511 4 DigitalOut led2(LED2);
okano 0:6baefda2e511 5
okano 0:6baefda2e511 6 DigitalOut reset_pin( p26 );
okano 0:6baefda2e511 7 DigitalOut isp_pin( p25 );
okano 0:6baefda2e511 8
okano 0:6baefda2e511 9 Serial pc (USBTX,USBRX);
okano 0:6baefda2e511 10 Serial target (p28,p27);
okano 0:6baefda2e511 11
okano 0:6baefda2e511 12 LocalFileSystem local("local");
okano 0:6baefda2e511 13
okano 1:54e619428ae6 14 #define SOURCE_FILE "/local/bin"
okano 1:54e619428ae6 15 #define STR_BUFF_SIZE 64
okano 1:54e619428ae6 16 #define RAM_START_ADDRESS 0x10000300L
okano 1:54e619428ae6 17 #define SECTOR_SIZE 4096
okano 0:6baefda2e511 18
okano 0:6baefda2e511 19 void put_string( char *s );
okano 0:6baefda2e511 20 void get_string( char *s );
okano 0:6baefda2e511 21
okano 0:6baefda2e511 22
okano 0:6baefda2e511 23 int try_and_check( char *command, char *expected_return_str, int mode )
okano 0:6baefda2e511 24 {
okano 0:6baefda2e511 25 char rtn_str[ STR_BUFF_SIZE ];
okano 0:6baefda2e511 26
okano 0:6baefda2e511 27 put_string( command );
okano 0:6baefda2e511 28 get_string( rtn_str );
okano 0:6baefda2e511 29
okano 0:6baefda2e511 30 return ( strcmp( expected_return_str, rtn_str ) );
okano 0:6baefda2e511 31 }
okano 0:6baefda2e511 32
okano 0:6baefda2e511 33 int try_and_check2( char *command, char *expected_return_str, int mode )
okano 0:6baefda2e511 34 {
okano 0:6baefda2e511 35 char rtn_str[ STR_BUFF_SIZE ];
okano 0:6baefda2e511 36
okano 0:6baefda2e511 37 put_string( command );
okano 0:6baefda2e511 38
okano 0:6baefda2e511 39 get_string( rtn_str ); // just readout echoback
okano 0:6baefda2e511 40 get_string( rtn_str );
okano 0:6baefda2e511 41
okano 0:6baefda2e511 42 return ( strcmp( expected_return_str, rtn_str ) );
okano 0:6baefda2e511 43 }
okano 0:6baefda2e511 44
okano 0:6baefda2e511 45 char read_byte( void )
okano 0:6baefda2e511 46 {
okano 0:6baefda2e511 47 while ( !target.readable() )
okano 0:6baefda2e511 48 ;
okano 0:6baefda2e511 49
okano 0:6baefda2e511 50 return ( target.getc() );
okano 0:6baefda2e511 51 }
okano 0:6baefda2e511 52 char uue_table[ 64 ];
okano 0:6baefda2e511 53
okano 0:6baefda2e511 54 void initialize_uue_table( void )
okano 0:6baefda2e511 55 {
okano 0:6baefda2e511 56 int i;
okano 0:6baefda2e511 57
okano 0:6baefda2e511 58 uue_table[0] = 0x60; // 0x20 is translated to 0x60 !
okano 0:6baefda2e511 59
okano 0:6baefda2e511 60 for (i = 1; i < 64; i++) {
okano 0:6baefda2e511 61 uue_table[i] = (char)(0x20 + i);
okano 0:6baefda2e511 62 }
okano 0:6baefda2e511 63 }
okano 0:6baefda2e511 64
okano 0:6baefda2e511 65 long bin2uue( char *bin, char *str )
okano 0:6baefda2e511 66 {
okano 0:6baefda2e511 67 unsigned long v;
okano 1:54e619428ae6 68 long checksum = 0;
okano 0:6baefda2e511 69 int strpos = 0;
okano 0:6baefda2e511 70
okano 0:6baefda2e511 71 *(str + strpos++) = ' ' + 45;
okano 0:6baefda2e511 72
okano 0:6baefda2e511 73 for ( int i = 0; i < 45; i += 3 ) {
okano 1:54e619428ae6 74 checksum += *(bin + i + 0) + *(bin + i + 1) + *(bin + i + 2);
okano 0:6baefda2e511 75 v = (*(bin + i + 0) << 16) | (*(bin + i + 1) << 8) | (*(bin + i + 2) << 0);
okano 0:6baefda2e511 76 *(str + strpos++) = uue_table[ (v >> 18) & 0x3F ];
okano 0:6baefda2e511 77 *(str + strpos++) = uue_table[ (v >> 12) & 0x3F ];
okano 0:6baefda2e511 78 *(str + strpos++) = uue_table[ (v >> 6) & 0x3F ];
okano 0:6baefda2e511 79 *(str + strpos++) = uue_table[ (v >> 0) & 0x3F ];
okano 0:6baefda2e511 80 }
okano 0:6baefda2e511 81 *(str + strpos++) = '\n';
okano 0:6baefda2e511 82 *(str + strpos++) = '\0';
okano 0:6baefda2e511 83
okano 1:54e619428ae6 84 return checksum;
okano 0:6baefda2e511 85 }
okano 0:6baefda2e511 86
okano 1:54e619428ae6 87 void add_isp_checksum( char *b )
okano 1:54e619428ae6 88 {
okano 1:54e619428ae6 89 // see http://www.lpcware.com/content/nxpfile/lpc177x8x-checksum-insertion-program
okano 1:54e619428ae6 90
okano 1:54e619428ae6 91 unsigned int *p;
okano 1:54e619428ae6 92 unsigned int cksum = 0;
okano 1:54e619428ae6 93
okano 1:54e619428ae6 94 p = (unsigned int *)b;
okano 1:54e619428ae6 95
okano 1:54e619428ae6 96 for ( int i = 0; i < 7; i++ ) {
okano 1:54e619428ae6 97 cksum += *p++;
okano 1:54e619428ae6 98 }
okano 1:54e619428ae6 99
okano 1:54e619428ae6 100 printf( " -- value at checksum slot : 0x%08X\r\n", *p );
okano 1:54e619428ae6 101
okano 1:54e619428ae6 102 *p = 0xFFFFFFFF - cksum + 1;
okano 1:54e619428ae6 103 printf( " -- calculated checksum : 0x%08X\r\n", *p );
okano 1:54e619428ae6 104
okano 1:54e619428ae6 105 printf( " new checksum will be used to program flash\r\n" );
okano 1:54e619428ae6 106 }
okano 1:54e619428ae6 107
okano 1:54e619428ae6 108
okano 1:54e619428ae6 109
okano 1:54e619428ae6 110 void erase_sectors( int last_sector )
okano 1:54e619428ae6 111 {
okano 1:54e619428ae6 112 char command_str[ STR_BUFF_SIZE ];
okano 1:54e619428ae6 113
okano 1:54e619428ae6 114 sprintf( command_str, "P 0 %d\r\n", last_sector );
okano 1:54e619428ae6 115
okano 1:54e619428ae6 116 printf( "\"%s\" %s\r\n", command_str, try_and_check( command_str, "0", 0 ) ? "Fail" : "Pass" );
okano 1:54e619428ae6 117
okano 1:54e619428ae6 118 *(command_str) = 'E';
okano 1:54e619428ae6 119 printf( "\"%s\" %s\r\n", command_str, try_and_check( command_str, "0", 0 ) ? "Fail" : "Pass" );
okano 1:54e619428ae6 120 }
okano 0:6baefda2e511 121
okano 0:6baefda2e511 122 #define FLASH_WRITING_SIZE 1024
okano 0:6baefda2e511 123 #define TRANSFER_SIZE (24 * 45)
okano 0:6baefda2e511 124
okano 0:6baefda2e511 125 char b[ TRANSFER_SIZE ];
okano 0:6baefda2e511 126
okano 1:54e619428ae6 127 void write_binary_data( FILE *fp )
okano 0:6baefda2e511 128 {
okano 0:6baefda2e511 129 char command_str[ STR_BUFF_SIZE ];
okano 1:54e619428ae6 130 long checksum = 0;
okano 0:6baefda2e511 131 int transfer_count = 0;
okano 0:6baefda2e511 132 int size;
okano 0:6baefda2e511 133
okano 0:6baefda2e511 134 initialize_uue_table();
okano 0:6baefda2e511 135
okano 0:6baefda2e511 136 for ( int i = FLASH_WRITING_SIZE; i < TRANSFER_SIZE; i++ )
okano 0:6baefda2e511 137 b[ i ] = 0;
okano 0:6baefda2e511 138
okano 0:6baefda2e511 139 while ( size = fread( b, sizeof( char ), FLASH_WRITING_SIZE, fp ) ) {
okano 0:6baefda2e511 140
okano 1:54e619428ae6 141 if ( !transfer_count ) {
okano 1:54e619428ae6 142 add_isp_checksum( b );
okano 1:54e619428ae6 143 }
okano 1:54e619428ae6 144
okano 1:54e619428ae6 145 sprintf( command_str, "W %ld %ld\r\n", RAM_START_ADDRESS, 1080 );
okano 0:6baefda2e511 146 printf( "\"%s\" %s\r\n", command_str, try_and_check( command_str, "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 147
okano 0:6baefda2e511 148 for ( int i = 0; i < 24; i++ ) {
okano 1:54e619428ae6 149 checksum += bin2uue( b + (i * 45), command_str );
okano 0:6baefda2e511 150 printf( "%02d %s\r\n", i, command_str );
okano 0:6baefda2e511 151 put_string( command_str );
okano 0:6baefda2e511 152 if ( (i == 19) || (i == 23) ) {
okano 1:54e619428ae6 153 sprintf( command_str, "%ld\n", checksum );
okano 1:54e619428ae6 154 printf( " %ld %s\r\n", checksum, command_str );
okano 0:6baefda2e511 155 printf( "\"%s\" %s\r\n", command_str, try_and_check( command_str, "OK", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 156
okano 1:54e619428ae6 157 checksum = 0;
okano 0:6baefda2e511 158 }
okano 0:6baefda2e511 159 }
okano 0:6baefda2e511 160
okano 0:6baefda2e511 161 printf( "\"P 0 0\" %s\r\n", try_and_check( "P 0 0\r\n", "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 162
okano 0:6baefda2e511 163 sprintf( command_str, "C %ld %ld %ld\r\n", FLASH_WRITING_SIZE * transfer_count++, 0x10000300L, FLASH_WRITING_SIZE );
okano 0:6baefda2e511 164 printf( "\"%s\" %s\r\n", command_str, try_and_check( command_str, "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 165
okano 0:6baefda2e511 166
okano 0:6baefda2e511 167 }
okano 0:6baefda2e511 168 printf( "\"G 0 T\" %s\r\n", try_and_check( "G 0 T\r\n", "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 169 }
okano 0:6baefda2e511 170
okano 1:54e619428ae6 171 int file_size( FILE *fp )
okano 1:54e619428ae6 172 {
okano 1:54e619428ae6 173 int size;
okano 1:54e619428ae6 174
okano 1:54e619428ae6 175 fseek( fp, 0, SEEK_END ); // seek to end of file
okano 1:54e619428ae6 176 size = ftell( fp ); // get current file pointer
okano 1:54e619428ae6 177 fseek( fp, 0, SEEK_SET ); // seek back to beginning of file
okano 1:54e619428ae6 178
okano 1:54e619428ae6 179 return size;
okano 1:54e619428ae6 180 }
okano 1:54e619428ae6 181
okano 1:54e619428ae6 182 void reset_target( int isp_pin_state )
okano 1:54e619428ae6 183 {
okano 1:54e619428ae6 184 reset_pin = 1;
okano 1:54e619428ae6 185 isp_pin = 0;
okano 1:54e619428ae6 186 wait_ms( 100 );
okano 1:54e619428ae6 187 reset_pin = 0;
okano 1:54e619428ae6 188 wait_ms( 100 );
okano 1:54e619428ae6 189 reset_pin = 1;
okano 1:54e619428ae6 190 wait_ms( 100 );
okano 1:54e619428ae6 191 }
okano 1:54e619428ae6 192
okano 0:6baefda2e511 193 int main()
okano 0:6baefda2e511 194 {
okano 0:6baefda2e511 195 FILE *fp;
okano 0:6baefda2e511 196 char str_buf0[ STR_BUFF_SIZE ];
okano 0:6baefda2e511 197 char str_buf1[ STR_BUFF_SIZE ];
okano 1:54e619428ae6 198 int data_size;
okano 1:54e619428ae6 199 int last_sector;
okano 0:6baefda2e511 200
okano 0:6baefda2e511 201 pc.baud(9600);
okano 0:6baefda2e511 202 target.baud(9600);
okano 0:6baefda2e511 203
okano 0:6baefda2e511 204 if ( NULL == (fp = fopen( SOURCE_FILE, "rb" )) ) {
okano 0:6baefda2e511 205 error( "couldn't open source file" );
okano 0:6baefda2e511 206 return ( 1 );
okano 0:6baefda2e511 207 }
okano 0:6baefda2e511 208
okano 1:54e619428ae6 209 data_size = file_size( fp );
okano 1:54e619428ae6 210 last_sector = data_size / SECTOR_SIZE;
okano 0:6baefda2e511 211 printf( "\r\n\r\ntarget RESET\r\n" );
okano 1:54e619428ae6 212 printf( "data size = %d bytes, it takes %d secotrs in flash area\r\n", data_size, last_sector + 1 );
okano 0:6baefda2e511 213
okano 1:54e619428ae6 214 reset_target( 0 );
okano 0:6baefda2e511 215
okano 0:6baefda2e511 216 printf( "\"?\" >> \"Synchronized\" %s\r\n", try_and_check( "?", "Synchronized", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 217 printf( "\"Synchronized\\r\\n\" %s\r\n", try_and_check2( "Synchronized\r\n", "OK", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 218 printf( "\"12000\" %s\r\n", try_and_check2( "12000\r\n", "OK", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 219 printf( "\"U 23130\" %s\r\n", try_and_check2( "U 23130\r\n", "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 220 printf( "\"A 0\" %s\r\n", try_and_check2( "A 0\r\n", "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 221
okano 0:6baefda2e511 222 printf( "\"K\" %s\r\n", try_and_check( "K\r\n", "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 223 get_string( str_buf0 );
okano 0:6baefda2e511 224 get_string( str_buf1 );
okano 0:6baefda2e511 225 printf( " result of \"K\" = %s %s\r\n", str_buf0, str_buf1 );
okano 0:6baefda2e511 226
okano 0:6baefda2e511 227 printf( "\"J\" %s\r\n", try_and_check( "J\r\n", "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 228 get_string( str_buf0 );
okano 0:6baefda2e511 229 printf( " result of \"J\" = %s\r\n", str_buf0 );
okano 0:6baefda2e511 230
okano 0:6baefda2e511 231 #if 0
okano 0:6baefda2e511 232 printf( "\"N\" %s\r\n", try_and_check( "N\r\n", "0", 0 ) ? "Fail" : "Pass" );
okano 0:6baefda2e511 233 get_string( str_buf0 );
okano 0:6baefda2e511 234 printf( " result of \"N\" = %s %lX\r\n", str_buf0, atol( str_buf0 ) );
okano 0:6baefda2e511 235 get_string( str_buf0 );
okano 0:6baefda2e511 236 printf( " result of \"N\" = %s %lX\r\n", str_buf0, atol( str_buf0 ) );
okano 0:6baefda2e511 237 get_string( str_buf0 );
okano 0:6baefda2e511 238 printf( " result of \"N\" = %s %lX\r\n", str_buf0, atol( str_buf0 ) );
okano 0:6baefda2e511 239 get_string( str_buf0 );
okano 0:6baefda2e511 240 printf( " result of \"N\" = %s %lX\r\n", str_buf0, atol( str_buf0 ) );
okano 0:6baefda2e511 241 #endif
okano 0:6baefda2e511 242
okano 1:54e619428ae6 243 erase_sectors( last_sector );
okano 1:54e619428ae6 244
okano 1:54e619428ae6 245 write_binary_data( fp );
okano 0:6baefda2e511 246 fclose( fp );
okano 0:6baefda2e511 247
okano 0:6baefda2e511 248 while ( 1 )
okano 0:6baefda2e511 249 ;
okano 0:6baefda2e511 250 }
okano 0:6baefda2e511 251
okano 0:6baefda2e511 252 void put_string( char *s )
okano 0:6baefda2e511 253 {
okano 0:6baefda2e511 254 char c;
okano 0:6baefda2e511 255
okano 0:6baefda2e511 256 while ( (c = *s++) )
okano 0:6baefda2e511 257 target.putc( c );
okano 0:6baefda2e511 258 }
okano 0:6baefda2e511 259
okano 0:6baefda2e511 260 void get_string( char *s )
okano 0:6baefda2e511 261 {
okano 0:6baefda2e511 262 int i = 0;
okano 0:6baefda2e511 263 char c = 0;
okano 0:6baefda2e511 264
okano 0:6baefda2e511 265 do {
okano 0:6baefda2e511 266 do {
okano 0:6baefda2e511 267 if ( target.readable() ) {
okano 0:6baefda2e511 268 c = target.getc();
okano 0:6baefda2e511 269
okano 0:6baefda2e511 270 if ( ( c == '\n') || (c == '\r') )
okano 0:6baefda2e511 271 break;
okano 0:6baefda2e511 272
okano 0:6baefda2e511 273 *s++ = c;
okano 0:6baefda2e511 274 i++;
okano 0:6baefda2e511 275 led2 = !led2;
okano 0:6baefda2e511 276
okano 0:6baefda2e511 277 }
okano 0:6baefda2e511 278 } while ( 1 );
okano 0:6baefda2e511 279 } while ( !i );
okano 0:6baefda2e511 280 *s = '\0';
okano 0:6baefda2e511 281 }
okano 0:6baefda2e511 282