d2f70ac9cb1d920b6d9ca7950e86f2a2a0c9fc42
[goodfet] / firmware / apps / chipcon / chipcon.c
1 /*! \file chipcon.c
2   \author Travis Goodspeed
3   \brief Chipcon 8051 debugging.
4 */
5
6
7 //This is like SPI, except that you read or write, not both.
8
9 /* N.B. The READ verb performs a write of all (any) supplied data,
10    then reads a single byte reply from the target.  The WRITE verb
11    only writes.
12 */
13
14 #include "platform.h"
15 #include "command.h"
16 #include "chipcon.h"
17
18 #include <signal.h>
19 #include <io.h>
20 #include <iomacros.h>
21
22
23 /* Concerning clock rates, the maximimum clock rates are defined on
24    page 4 of the spec.  They vary, but are roughly 30MHz.  Raising
25    this clock rate might allow for clock glitching, but the GoodFET
26    isn't sufficient fast for that.  Perhaps a 200MHz ARM or an FPGA in
27    the BadassFET?
28 */
29
30 //Pins and I/O
31 //MISO and MOSI are the same pin, direction changes.
32 #define RST  BIT0
33 #define MOSI BIT2
34 #define MISO BIT2
35 #define SCK  BIT3
36
37 //This could be more accurate.
38 //Does it ever need to be?
39 #define CCSPEED 3
40 //#define CCDELAY(x) delay(x)
41 #define CCDELAY(x) 
42
43 #define SETMOSI P5OUT|=MOSI
44 #define CLRMOSI P5OUT&=~MOSI
45 #define SETCLK P5OUT|=SCK
46 #define CLRCLK P5OUT&=~SCK
47 #define READMISO (P5IN&MISO?1:0)
48
49 #define CCWRITE P5DIR|=MOSI
50 #define CCREAD P5DIR&=~MISO
51
52 //! Set up the pins for CC mode.  Does not init debugger.
53 void ccsetup(){
54   P5OUT|=MOSI+SCK+RST;
55   P5DIR|=MOSI+SCK+RST;
56   //P5REN=0xFF;
57 }
58
59
60 /* 33 cycle critical region
61 0000000e <ccdebuginit>:
62    e:   f2 d0 0d 00     bis.b   #13,    &0x0031 ;5 cycles
63   12:   31 00 
64   14:   f2 c2 31 00     bic.b   #8,     &0x0031 ;4 cycles
65   18:   d2 c3 31 00     bic.b   #1,     &0x0031 ;4
66   1c:   f2 e2 31 00     xor.b   #8,     &0x0031 ;4
67   20:   f2 e2 31 00     xor.b   #8,     &0x0031 ;4
68   24:   f2 e2 31 00     xor.b   #8,     &0x0031 ;4
69   28:   f2 e2 31 00     xor.b   #8,     &0x0031 ;4
70   2c:   d2 d3 31 00     bis.b   #1,     &0x0031 ;4
71   30:   30 41           ret                     
72 */
73
74
75 //! Initialize the debugger
76 void ccdebuginit(){
77   //Port output BUT NOT DIRECTION is set at start.
78   P5OUT|=MOSI+SCK+RST;
79   
80   //delay(30); //So the beginning is ready for glitching.
81   
82   //Two positive debug clock pulses while !RST is low.
83   //Take RST low, pulse twice, then high.
84   P5OUT&=~SCK;
85   P5OUT&=~RST;
86   
87   //Two rising edges.
88   P5OUT^=SCK; //up
89   P5OUT^=SCK; //down
90   P5OUT^=SCK; //up
91   P5OUT^=SCK; //Unnecessary.
92   
93   
94   //Raise !RST.
95   P5OUT|=RST;
96 }
97
98 //! Read and write a CC bit.
99 unsigned char cctrans8(unsigned char byte){
100   unsigned int bit;
101   //This function came from the SPI Wikipedia article.
102   //Minor alterations.
103   
104   for (bit = 0; bit < 8; bit++) {
105     /* write MOSI on trailing edge of previous clock */
106     if (byte & 0x80)
107       SETMOSI;
108     else
109       CLRMOSI;
110     byte <<= 1;
111  
112     /* half a clock cycle before leading/rising edge */
113     CCDELAY(CCSPEED/2);
114     SETCLK;
115  
116     /* half a clock cycle before trailing/falling edge */
117     CCDELAY(CCSPEED/2);
118  
119     /* read MISO on trailing edge */
120     byte |= READMISO;
121     CLRCLK;
122   }
123   
124   return byte;
125 }
126
127 //! Send a command from txbytes.
128 void cccmd(unsigned char len){
129   unsigned char i;
130   CCWRITE;
131   for(i=0;i<len;i++)
132     cctrans8(cmddata[i]);
133 }
134
135 //! Fetch a reply, usually 1 byte.
136 void ccread(unsigned char len){
137   unsigned char i;
138   CCREAD;
139   for(i=0;i<len;i++)
140     cmddata[i]=cctrans8(0);
141 }
142
143 //! Handles a monitor command.
144 void cchandle(unsigned char app,
145                unsigned char verb,
146                unsigned long len){
147   //Always init.  Might help with buggy lines.
148   //Might hurt too.
149   //ccdebuginit();
150   long i;
151   
152   switch(verb){
153     //CC_PEEK and CC_POKE will come later.
154   case PEEK:
155     cmddata[0]=cc_peekirambyte(cmddata[0]);
156     txdata(app,verb,1);
157     break;
158   case POKE:
159     cmddata[0]=cc_pokeirambyte(cmddata[0],cmddata[1]);
160     txdata(app,verb,0);
161     break;
162   case READ:  //Write a command and return 1-byte reply.
163     cccmd(len);
164     if(cmddata[0]&0x4)
165       ccread(1);
166     txdata(app,verb,1);
167     break;
168   case WRITE: //Write a command with no reply.
169     cccmd(len);
170     txdata(app,verb,0);
171     break;
172   case START://enter debugger
173     ccdebuginit();
174     txdata(app,verb,0);
175     break;
176   case STOP://exit debugger
177     //Take RST low, then high.
178     P5OUT&=~RST;
179     CCDELAY(CCSPEED);
180     P5OUT|=RST;
181     txdata(app,verb,0);
182     break;
183   case SETUP:
184     ccsetup();
185     txdata(app,verb,0);
186     break;
187     
188   //Micro commands!
189   case CC_CHIP_ERASE:
190     cc_chip_erase();
191     txdata(app,verb,1);
192     break;
193   case CC_WR_CONFIG:
194     cc_wr_config(cmddata[0]);
195     txdata(app,verb,1);
196     break;
197   case CC_RD_CONFIG:
198     cc_rd_config();
199     txdata(app,verb,1);
200     break;
201   case CC_GET_PC:
202     cc_get_pc();
203     txdata(app,verb,2);
204     break;
205   case CC_LOCKCHIP:
206     cc_lockchip();
207     //no break, return status
208   case CC_READ_STATUS:
209     cc_read_status();
210     txdata(app,verb,1);
211     break;
212   case CC_SET_HW_BRKPNT:
213     cc_set_hw_brkpnt(cmddataword[0]);
214     txdata(app,verb,1);
215     break;
216   case CC_HALT:
217     cc_halt();
218     txdata(app,verb,1);
219     break;
220   case CC_RESUME:
221     cc_resume();
222     txdata(app,verb,1);
223     break;
224   case CC_DEBUG_INSTR:
225     cc_debug_instr(len);
226     txdata(app,verb,1);
227     break;
228   case CC_STEP_INSTR:
229     cc_step_instr();
230     txdata(app,verb,1);
231     break;
232   case CC_STEP_REPLACE:
233     txdata(app,NOK,0);//TODO add me
234     break;
235   case CC_GET_CHIP_ID:
236     cmddataword[0]=cc_get_chip_id();
237     txdata(app,verb,2);
238     break;
239
240
241   //Macro commands
242   case CC_READ_CODE_MEMORY:
243     cmddata[0]=cc_peekcodebyte(cmddataword[0]);
244     txdata(app,verb,1);
245     break;
246   case CC_READ_XDATA_MEMORY:
247     cmddata[0]=cc_peekdatabyte(cmddataword[0]);
248     txdata(app,verb,1);
249     break;
250   case CC_WRITE_XDATA_MEMORY:
251     cmddata[0]=cc_pokedatabyte(cmddataword[0], cmddata[2]);
252     txdata(app,verb,1);
253     break;
254   case CC_SET_PC:
255     cc_set_pc(cmddatalong[0]);
256     txdata(app,verb,0);
257     break;
258   case CC_WRITE_FLASH_PAGE:
259     cc_write_flash_page(cmddatalong[0]);
260     txdata(app,verb,0);
261     break;
262   case CC_WIPEFLASHBUFFER:
263     for(i=0xf000;i<0xf800;i++)
264       cc_pokedatabyte(i,0xFF);
265     txdata(app,verb,0);
266     break;
267   case CC_MASS_ERASE_FLASH:
268   case CC_CLOCK_INIT:
269   case CC_PROGRAM_FLASH:
270     debugstr("This Chipcon command is not yet implemented.");
271     txdata(app,NOK,0);//TODO implement me.
272     break;
273   }
274 }
275
276 //! Set the Chipcon's Program Counter
277 void cc_set_pc(u32 adr){
278   cmddata[0]=0x02;             //SetPC
279   cmddata[1]=((adr>>8)&0xff);  //HIBYTE
280   cmddata[2]=adr&0xff;         //LOBYTE
281   cc_debug_instr(3);
282   return;
283 }
284
285 //! Erase all of a Chipcon's memory.
286 void cc_chip_erase(){
287   cmddata[0]=CCCMD_CHIP_ERASE; //0x14
288   cccmd(1);
289   ccread(1);
290 }
291 //! Write the configuration byte.
292 void cc_wr_config(unsigned char config){
293   cmddata[0]=CCCMD_WR_CONFIG; //0x1D
294   cmddata[1]=config;
295   cccmd(2);
296   ccread(1);
297 }
298
299 //! Locks the chip.
300 void cc_lockchip(){
301   register int i;
302   
303   //debugstr("Locking chip.");
304   cc_wr_config(1);//Select Info Flash 
305   if(!(cc_rd_config()&1))
306     debugstr("Config forgotten!");
307   
308   //Clear config page.
309   for(i=0;i<2048;i++)
310     cc_pokedatabyte(0xf000+i,0);
311   cc_write_flash_page(0);
312   if(cc_peekcodebyte(0))
313     debugstr("Failed to clear info flash byte.");
314   
315   cc_wr_config(0);  
316   if(cc_rd_config()&1)
317     debugstr("Stuck in info flash mode!");
318 }
319
320 //! Read the configuration byte.
321 unsigned char cc_rd_config(){
322   cmddata[0]=CCCMD_RD_CONFIG; //0x24
323   cccmd(1);
324   ccread(1);
325   return cmddata[0];
326 }
327
328
329 //! Read the status register
330 unsigned char cc_read_status(){
331   cmddata[0]=CCCMD_READ_STATUS; //0x3f
332   cccmd(1);
333   ccread(1);
334   return cmddata[0];
335 }
336
337 //! Read the CHIP ID bytes.
338 unsigned short cc_get_chip_id(){
339   cmddata[0]=CCCMD_GET_CHIP_ID; //0x68
340   cccmd(1);
341   ccread(2);
342
343   
344   //Find the flash word size.
345   switch(cmddata[0]){
346   case 0x01://CC1110
347   case 0x11://CC1111
348   case 0x81://CC2510
349   case 0x91://CC2511
350     //debugstr("2 bytes/flash word");
351     flash_word_size=0x02;
352     break;
353   default:
354     //debugstr("Warning: Guessing flash word size.");
355     //flash_word_size=0;
356     break;
357   case 0x85://CC2430
358   case 0x89://CC2431
359     //debugstr("4 bytes/flash word");
360     flash_word_size=0x04;
361     break;
362   }
363   
364   //Return the word.
365   return cmddataword[0];
366 }
367
368 //! Populates flash buffer in xdata.
369 void cc_write_flash_buffer(u8 *data, u16 len){
370   cc_write_xdata(0xf000, data, len);
371 }
372 //! Populates flash buffer in xdata.
373 void cc_write_xdata(u16 adr, u8 *data, u16 len){
374   u16 i;
375   for(i=0; i<len; i++){
376     cc_pokedatabyte(adr+i,
377                     data[i]);
378   }
379 }
380
381
382 //32-bit words, 2KB pages
383 //0x20 0x00 for CC2430, CC1110
384 #define HIBYTE_WORDS_PER_FLASH_PAGE 0x02
385 #define LOBYTE_WORDS_PER_FLASH_PAGE 0x00
386
387 /** Ugh, this varies by chip.
388     0x800 for CC2430
389     0x400 for CC1110
390 */
391 //#define FLASHPAGE_SIZE 0x400
392 #define MAXFLASHPAGE_SIZE 0x800
393 #define MINFLASHPAGE_SIZE 0x400
394
395
396 //32 bit words on CC2430
397 //16 bit words on CC1110
398 //#define FLASH_WORD_SIZE 0x2
399 u8 flash_word_size = 0; //0x02;
400
401
402 /* Flash Write Timing
403    MHZ | FWT (0xAB)
404    12  | 0x10
405    13  | 0x11
406    16  | 0x15
407    24  | 0x20
408    26  | 0x23  (IM ME)
409    32  | 0x2A  (Modula.si)
410 */
411 //#define FWT 0x23
412
413 const u8 flash_routine[] = {
414   //0:
415   //MOV FADDRH, #imm; 
416   0x75, 0xAD,
417   0x00,//#imm=((address >> 8) / FLASH_WORD_SIZE) & 0x7E,
418   
419   //0x75, 0xAB, 0x23, //Set FWT per clock
420   0x75, 0xAC, 0x00,                                          //                 MOV FADDRL, #00; 
421   /* Erase page. */
422   0x75, 0xAE, 0x01,                                          //                 MOV FLC, #01H; // ERASE 
423                                                              //                 ; Wait for flash erase to complete 
424   0xE5, 0xAE,                                                // eraseWaitLoop:  MOV A, FLC; 
425   0x20, 0xE7, 0xFB,                                          //                 JB ACC_BUSY, eraseWaitLoop; 
426   
427   /* End erase page. */
428                                                              //                 ; Initialize the data pointer 
429   0x90, 0xF0, 0x00,                                          //                 MOV DPTR, #0F000H; 
430                                                              //                 ; Outer loops 
431   0x7F, HIBYTE_WORDS_PER_FLASH_PAGE,                         //                 MOV R7, #imm; 
432   0x7E, LOBYTE_WORDS_PER_FLASH_PAGE,                         //                 MOV R6, #imm; 
433   0x75, 0xAE, 0x02,                                          //                 MOV FLC, #02H; // WRITE 
434                                                              //                     ; Inner loops 
435   //24:
436   0x7D, 0xde /*FLASH_WORD_SIZE*/,                                     // writeLoop:          MOV R5, #imm; 
437   0xE0,                                                      // writeWordLoop:          MOVX A, @DPTR; 
438   0xA3,                                                      //                         INC DPTR; 
439   0xF5, 0xAF,                                                //                         MOV FWDATA, A;  
440   0xDD, 0xFA,                                                //                     DJNZ R5, writeWordLoop; 
441                                                              //                     ; Wait for completion 
442   0xE5, 0xAE,                                                // writeWaitLoop:      MOV A, FLC; 
443   0x20, 0xE6, 0xFB,                                          //                     JB ACC_SWBSY, writeWaitLoop; 
444   0xDE, 0xF1,                                                //                 DJNZ R6, writeLoop; 
445   0xDF, 0xEF,                                                //                 DJNZ R7, writeLoop; 
446                                                              //                 ; Done, fake a breakpoint 
447   0xA5                                                       //                 DB 0xA5; 
448 };
449
450
451 //! Copies flash buffer to flash.
452 void cc_write_flash_page(u32 adr){
453   //Assumes that page has already been written to XDATA 0xF000
454   //debugstr("Flashing 2kb at 0xF000 to given adr.");
455   
456   if(adr&(MINFLASHPAGE_SIZE-1)){
457     debugstr("Flash page address is not on a page boundary.  Aborting.");
458     return;
459   }
460   
461   if(flash_word_size!=2 && flash_word_size!=4){
462     debugstr("Flash word size is wrong, aborting write to");
463     debughex(adr);
464     while(1);
465   }
466   
467   //Routine comes next
468   //WRITE_XDATA_MEMORY(IN: 0xF000 + FLASH_PAGE_SIZE, sizeof(routine), routine);
469   cc_write_xdata(0xF000+MAXFLASHPAGE_SIZE,
470                  (u8*) flash_routine, sizeof(flash_routine));
471   //Patch routine's third byte with
472   //((address >> 8) / FLASH_WORD_SIZE) & 0x7E
473   cc_pokedatabyte(0xF000+MAXFLASHPAGE_SIZE+2,
474                   ((adr>>8)/flash_word_size)&0x7E);
475   //Patch routine to define FLASH_WORD_SIZE
476   if(flash_routine[25]!=0xde)
477     debugstr("Ugly patching code failing in chipcon.c");
478   cc_pokedatabyte(0xF000+MAXFLASHPAGE_SIZE+25,
479                   flash_word_size);
480   
481   //debugstr("Wrote flash routine.");
482     
483   //MOV MEMCTR, (bank * 16) + 1;
484   cmddata[0]=0x75;
485   cmddata[1]=0xc7;
486   cmddata[2]=0x51;
487   cc_debug_instr(3);
488   //debugstr("Loaded bank info.");
489   
490   cc_set_pc(0xf000+MAXFLASHPAGE_SIZE);//execute code fragment
491   cc_resume();
492   
493   //debugstr("Executing.");
494   
495   
496   while(!(cc_read_status()&CC_STATUS_CPUHALTED)){
497     PLEDOUT^=PLEDPIN;//blink LED while flashing    
498   }
499   
500   
501   //debugstr("Done flashing.");
502   
503   PLEDOUT&=~PLEDPIN;//clear LED
504 }
505
506 //! Read the PC
507 unsigned short cc_get_pc(){
508   cmddata[0]=CCCMD_GET_PC; //0x28
509   cccmd(1);
510   ccread(2);
511   
512   //Return the word.
513   return cmddataword[0];
514 }
515
516 //! Set a hardware breakpoint.
517 void cc_set_hw_brkpnt(unsigned short adr){
518   debugstr("FIXME: This certainly won't work.");
519   cmddataword[0]=adr;
520   cccmd(2);
521   ccread(1);
522   return;
523 }
524
525
526 //! Halt the CPU.
527 void cc_halt(){
528   cmddata[0]=CCCMD_HALT; //0x44
529   cccmd(1);
530   ccread(1);
531   return;
532 }
533 //! Resume the CPU.
534 void cc_resume(){
535   cmddata[0]=CCCMD_RESUME; //0x4C
536   cccmd(1);
537   ccread(1);
538   return;
539 }
540
541
542 //! Step an instruction
543 void cc_step_instr(){
544   cmddata[0]=CCCMD_STEP_INSTR; //0x5C
545   cccmd(1);
546   ccread(1);
547   return;
548 }
549
550 //! Debug an instruction.
551 void cc_debug_instr(unsigned char len){
552   //Bottom two bits of command indicate length.
553   unsigned char cmd=CCCMD_DEBUG_INSTR+(len&0x3); //0x54+len
554   CCWRITE;
555   cctrans8(cmd);  //Second command code
556   cccmd(len&0x3); //Command itself.
557   ccread(1);
558   return;
559 }
560
561 //! Debug an instruction, for local use.
562 unsigned char cc_debug(unsigned char len,
563               unsigned char a,
564               unsigned char b,
565               unsigned char c){
566   unsigned char cmd=CCCMD_DEBUG_INSTR+(len&0x3);//0x54+len
567   CCWRITE;
568   cctrans8(cmd);
569   if(len>0)
570     cctrans8(a);
571   if(len>1)
572     cctrans8(b);
573   if(len>2)
574     cctrans8(c);
575   CCREAD;
576   return cctrans8(0x00);
577 }
578
579 //! Fetch a byte of code memory.
580 unsigned char cc_peekcodebyte(unsigned long adr){
581   /** See page 9 of SWRA124 */
582   unsigned char bank=adr>>15,
583     lb=adr&0xFF,
584     hb=(adr>>8)&0x7F,
585     toret=0;
586   adr&=0x7FFF;
587   
588   //MOV MEMCTR, (bank*16)+1
589   cc_debug(3, 0x75, 0xC7, (bank<<4) + 1);
590   //MOV DPTR, address
591   cc_debug(3, 0x90, hb, lb);
592   
593   //for each byte
594   //CLR A
595   cc_debug(2, 0xE4, 0, 0);
596   //MOVC A, @A+DPTR;
597   toret=cc_debug(3, 0x93, 0, 0);
598   //INC DPTR
599   //cc_debug(1, 0xA3, 0, 0);
600   
601   return toret;
602 }
603
604
605 //! Set a byte of data memory.
606 unsigned char cc_pokedatabyte(unsigned int adr,
607                            unsigned char val){
608   unsigned char
609     hb=(adr&0xFF00)>>8,
610     lb=adr&0xFF;
611   
612   //MOV DPTR, adr
613   cc_debug(3, 0x90, hb, lb);
614   //MOV A, val
615   cc_debug(2, 0x74, val, 0);
616   //MOVX @DPTR, A
617   cc_debug(1, 0xF0, 0, 0);
618   
619   return 0;
620   /*
621 DEBUG_INSTR(IN: 0x90, HIBYTE(address), LOBYTE(address), OUT: Discard);
622 for (n = 0; n < count; n++) {
623     DEBUG_INSTR(IN: 0x74, inputArray[n], OUT: Discard);
624     DEBUG_INSTR(IN: 0xF0, OUT: Discard);
625     DEBUG_INSTR(IN: 0xA3, OUT: Discard);
626 }
627    */
628 }
629
630 //! Fetch a byte of data memory.
631 unsigned char cc_peekdatabyte(unsigned int adr){
632   unsigned char
633     hb=(adr&0xFF00)>>8,
634     lb=adr&0xFF;
635   
636   //MOV DPTR, adr
637   cc_debug(3, 0x90, hb, lb);
638   //MOVX A, @DPTR
639   //Must be 2, perhaps for clocking?
640   return cc_debug(3, 0xE0, 0, 0);
641 }
642
643
644 //! Fetch a byte of IRAM.
645 u8 cc_peekirambyte(u8 adr){
646   //CLR A
647   cc_debug(2, 0xE4, 0, 0);
648   //MOV A, #iram
649   return cc_debug(3, 0xE5, adr, 0);
650 }
651
652 //! Write a byte of IRAM.
653 u8 cc_pokeirambyte(u8 adr, u8 val){
654   //CLR A
655   cc_debug(2, 0xE4, 0, 0);
656   //MOV #iram, #val
657   return cc_debug(3, 0x75, adr, val);
658   //return cc_debug(3, 0x75, val, adr);
659 }
660
661