changes to the GUI to allow for better loading and writing as well as tested our...
[goodfet] / firmware / lib / tilaunchpad.c
1 //! tilaunchpad clock and I/O definitions
2
3 // serial io stuff moved to msp430_serial.c
4 // serial is common for the different versions of msp430 so it makes sense
5
6 #include "platform.h"
7 #include <signal.h>
8 #include <msp430.h>
9 #include <iomacros.h>
10
11 #define MSP430_CPU_SPEED 6000000UL
12 #include <setjmp.h>
13 #include "msp430_serial.h"
14 extern jmp_buf warmstart;
15 void coldstart();
16 #define USE_NMI_RESET_IRQ
17
18 static void delay_1us()
19 {
20         // 6 Mhz, 6000000 cycles/sec, 6000 cycles/msec, 6 cycles/usec
21         // 6 cycles = 1 usec
22         // asummung loop wil be 3 cycles
23         //asm("  nop");         // 1 cycle
24         asm("  nop");           // 1 cycle
25         asm("  nop");           // 1 cycle
26         asm("  nop");           // 1 cycle
27 }
28
29 void delay_us(unsigned int us)
30 {
31         while (us) {
32                 delay_1us();
33                 us--;
34         }
35 }
36
37 void delay_ms(unsigned int ms)
38 {
39         while (ms) {
40                 ms--;
41                 delay_us(1000);
42         }
43 }
44
45 void delay_sec(unsigned int s)
46 {
47         while (s) {
48                 s--;
49                 delay_ms(1000);
50         }
51 }
52
53 static char led_pin = 0;        // since we are short on pins we might have LED on different pin 
54 static char led_last;
55 // led_pin=0 is disabled
56 // BIT2 and BIT3 is on port 5   SBWDIO SBWTCK
57 // BIT6 and BIT7 os on port 3   BRDRX BRDTX
58 void led_init(char pin)
59 {
60         ddputs("led=");
61         if (pin & BIT2) {
62                 ddputs("P5.2");
63                 led_pin = BIT2;
64                 P5DIR |= led_pin;
65         } else if (pin & BIT3) {
66                 ddputs("P5.3");
67                 led_pin = BIT3;
68                 P5DIR |= BIT3;
69         } else if (pin & BIT6) {
70                 ddputs("P3.6");
71                 led_pin = BIT6;
72                 P3SEL &= ~BIT6; // do not use as uart1
73                 P3DIR |= BIT6;
74         } else if (pin & BIT7) {
75                 ddputs("P3.7");
76                 led_pin = BIT7;
77                 P3SEL &= ~BIT7; // do not use as uart1
78                 P3DIR |= BIT7;
79         } else {
80                 led_pin = 0;
81                 ddputs("disabled");
82         }
83 }
84
85 void led_on()                   // 0 will disable, but it is up to the application to setup new use
86 {
87 //      dddputs("led_on=");
88 //      dddputb(led_pin);
89         if (led_pin & BIT2) {
90                 P5OUT |= BIT2;
91         } else if (led_pin & BIT3) {
92                 P5OUT |= BIT3;
93         } else if (led_pin & BIT6) {
94                 P3OUT |= BIT6;
95         } else if (led_pin & BIT7) {
96                 P3OUT |= BIT7;
97         }
98         led_last = 1;
99 }
100
101 void led_off()
102 {
103         //dddputs("led_off=");
104         //dddputb(led_pin);
105         if (led_pin & BIT2) {
106                 P5OUT &= ~BIT2;
107         } else if (led_pin & BIT3) {
108                 P5OUT &= ~BIT3;
109         } else if (led_pin & BIT6) {
110                 P3OUT &= ~BIT6;
111         } else if (led_pin & BIT7) {
112                 P3OUT &= ~BIT7;
113         }
114         led_last = 0;
115 }
116
117 void led_toggle()
118 {
119         if (led_last) {
120                 led_off();
121         } else {
122                 led_on();
123         }
124 }
125
126 void led_blink(int n)           // long - n shorts
127 {
128         int i;
129         return;
130         led_off();
131         delay_ms(200);
132         led_on();
133         delay_ms(500);
134         for (i = 0; i < n; i++) {
135                 led_off();
136                 delay_ms(100);
137                 led_on();
138                 delay_ms(150);
139         }
140         led_off();
141 }
142
143 void check_usb2serial()
144 {
145         //ddputs("usb2serial ");
146         led_init(SBWTCK);       // we will use TCK for LED
147         P5DIR &= ~SBWDIO;       // input
148
149         led_on();               // we will use TCK for LED
150         if ((P5IN & SBWDIO) == 0) {     // TCK != DIO
151                 led_init(0);    // no led
152                 dputs("low no usb2serial");
153                 return;
154         }
155         led_off();              // we will use TCK for LED
156         if (P5IN & SBWDIO) {    // TCK != DIO
157                 led_init(0);    // no led
158                 dputs("high no usb2serial");
159                 return;
160         }
161         // TCK is jumpered to DIO, lets start working as USB-serial converter.
162         serflush(txfp0);
163         serflush(txfp1);
164         delay_ms(100);
165         dputs("Serial pass through\n");
166         serputs("Serial pass through\n", txfp0);
167         while (1) {
168                 char c;
169                 if (seravailable(rxfp0) > 0) {
170                         c=sergetc(rxfp0);
171                         serputc( c, txfp1);
172                 }
173                 if (seravailable(rxfp1) > 0) {
174                         c=sergetc(rxfp1);
175                         serputc( c, txfp0);
176                 }
177                 // FIXME we should sleep
178         }
179 }
180
181 char rts_change = 1;            // we cannot return 0 in longjmp so we take 1
182
183 interrupt(PORT1_VECTOR) POSRT1_ISR(void)
184 {
185         if (P1IFG & RTS) {
186                 if ((P1IN & DTR) == 0) {
187                         rts_change++;
188                         if (rts_change > 10) {  // just there is no wrap-around
189                                 rts_change = 10;
190                         }
191                 } else {
192                         rts_change = 1;
193                 }
194                 P1IFG &= ~RTS;  // clear irq
195         }
196         if (P1IFG & DTR) {
197                 int i;
198                 P1IFG &= ~DTR;  // clear irq
199                 
200                 for (i=0; (P1IN & DTR) == 0;i++) {      // wait for DTR high
201                         if (i>10000) {
202                                 i=10000;
203                         }
204                 }
205                 if (i>5000) { //avoid spikes
206                         longjmp(warmstart, rts_change);
207                 }
208         }
209 }
210
211 #ifdef USE_NMI_RESET_IRQ
212 // A reset is warmstart, ie. do not reset TUSB3410
213 // to use this wire a reset switch or connect TUSB3410 DTR to RST/NMI
214 // for development it is conveenient ot implement a reset function
215 interrupt(NMI_VECTOR) NMI_ISR(void)
216 {
217         IFG1 &= ~NMIIFG;
218         led_toggle();
219         dputs("NMI(RESET)\n");
220         dflush();
221         longjmp(warmstart, rts_change);
222 }
223 #endif
224 // TI lauchpad has 12 Mhz X-tal on XT2 which also is the base clock for the TUSB34010 
225 // For Launchpad and probably EZ430/FETUIF 
226 // EZ430/FETUIF may need BCSCTL2 = SELM1 | DIVM1 | SELS;
227 void coldstart()
228 {
229         _DINT();
230 #ifdef USE_NMI_RESET_IRQ
231         WDTCTL = WDTPW + WDTHOLD + WDTNMI;      // Stop WDT, deactivate RESET
232         //IE1 |= NMIIE;         // msp430f1612.pdf page 13
233 #else
234         WDTCTL = WDTPW + WDTHOLD;       // Stop WDT
235 #endif
236         //led_init(SBWTCK);
237         led_init(0);
238         led_off();
239 // reset for TUSB3410
240         P4OUT &= ~BIT6;         // reset TUSB3410
241         P4DIR |= BIT6;
242 // 12 Mhz on XT2
243         BCSCTL1 &= ~0x80;       // turn on XT2 oscillator
244         do {                    // delay for X-tal to settle
245                 IFG1 &= ~OFIFG;
246                 delay_us(100);  // wait at least 50 usec
247         } while (IFG1 & OFIFG);
248         //BCSCTL2 = SELM_2 | DIVM_1 | SELS | DIVS_0;    // 6Mhz MCLK=XT2/2 SMCLK=XT2
249         BCSCTL2 = SELM_2 | DIVM_2 | SELS | DIVS_0;      // 3Mhz MCLK=XT2/4 SMCLK=XT2
250 // Disable eeprom P3.1 SDA P3.3 SCL
251         P3OUT &= ~(BIT1 | BIT3);        // pull dcl and sda down
252         P3DIR |= BIT1 | BIT3;
253 // generate 12 Mhz clock for TUSB3410
254         P5SEL |= BIT5;          // P5.5 is SMCLK to TUSG3410
255         P5DIR |= BIT5;          // P5.5 is output
256 // release reset for TUSB3410
257         delay_ms(100);
258         P4OUT &= ~BIT6;         // release reset to TUSB3410
259         P4DIR &= ~BIT6;         // and release port TUSB3410
260 // P1.3 RTS input, P1.4 DTR input can generate IRQ
261         P1DIR &= ~(RTS | DTR);  // input
262         P1SEL &= ~(RTS | DTR);  // no  special funtions
263         P1IES &= ~RTS;  // low to high
264         P1IES |=  DTR;  // high to low
265         P1IFG &= ~(RTS | DTR);  // clear irqs if any, to avoid instant irq
266         P1IE |= RTS | DTR;      // enable IRQ on pin 3,4
267         IE1 |= NMIIE;           // msp430f1612.pdf page 13
268         ser0_init(0, &fiforx0, &fifotx0);
269         //ser1_init(0, &fiforx1, &fifotx1);
270         ser1_init(0, NULL, NULL);
271         _EINT();                // now we can print
272         dputs("->coldstart<-\n");
273         led_blink(4);
274         led_on();               // led comes on after the very basic setup is done
275 }
276
277 void msp430_init()
278 {
279 #ifdef USE_NMI_RESET_IRQ
280         WDTCTL = WDTPW + WDTHOLD + WDTNMI;      // Stop WDT, deactivate RESET
281         //IFG1 &= ~NMIIFG;
282         IE1 |= NMIIE;           // msp430f1612.pdf page 13
283 #else
284         WDTCTL = WDTPW + WDTHOLD;       // Stop WDT
285 #endif
286         serclear(rxfp0);
287         ddputs("msp430_init\n");
288         led_blink(10);
289
290         check_usb2serial();     // configure as USB-serial if jumper RST-TEST
291         led_blink(2);
292         led_on();
293 }
294
295 //! Initialization is correct.
296 void msp430_init_dco_done()
297 {
298 }